PAGE "Stampa elenco versamenti da effettuare" -1 -1 80 10

NUMBER 251 5
  BEGIN
  PROMPT 1 1 "Ditta "
  FLAGS "FRD"
  USE 9 KEY 1 
  CHECKTYPE REQUIRED
  INPUT CODDITTA 251
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT 251 CODDITTA 
  OUTPUT 252 RAGSOC
END

STRING 252 50
  BEGIN
  PROMPT 15 1 ""
  FLAGS "D"
END

GROUPBOX -1 78 5
  BEGIN
  PROMPT 1 3 "@bParametri documenti di vendita"
  FLAGS ""
END

STRING 253 4
BEGIN
  PROMPT 2 4 "Numerazione "
  USE %NUM
  INPUT CODTAB 253
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 253 CODTAB
  OUTPUT 254 S0
  CHECKTYPE FORCED
  FLAGS "UPA"
  FIELD CODNUM
END

STRING 254 50
BEGIN
  PROMPT 22 4 ""
  USE %NUM KEY 2
  INPUT S0 254
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT 253
END

NUMBER 255 4
BEGIN
  PROMPT 2 5 "Anno        "
  USE ESC
  INPUT CODTAB 255
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  CHECKTYPE REQUIRED
  OUTPUT 255 CODTAB
  OUTPUT 256 D0
  OUTPUT 257 D1
  NUM_EXPR #F_ANNO>0
  FLAGS "AP"
  FIELD ANNO
END

DATE 256
BEGIN
  PROMPT 2 6 "Da data     "
  FIELD DADATA
END

DATE 257
BEGIN
  PROMPT 30 6 "A data "
  FIELD ADATA
END

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

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

ENDPAGE

ENDMASK