#include "co1100a.h"

PAGE "Stampa libro soci" 0 -1 78 7

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 2 1 "@bDitta corrente"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 2 "Codice      "
  FLAGS "FD"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
  //FIELD RAGSOC
END

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
    PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK