#include "cg3500.h"

PAGE "Riepilogo Gruppi/Conti" -1 -1 71 16

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta           "
        FLAGS "FRD"
        USE LF_NDITTE KEY 1  
        CHECKTYPE REQUIRED
        INPUT CODDITTA F_CODDITTA
        DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA 
        OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
END

DATE F_DATASTAMPA 
BEGIN
  PROMPT 43 1 "Data di stampa "
  HELP "Data in cui effettuare la stampa"
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Cod. esercizio  "
  HELP "Codice esercizio di cui effettuare la stampa"
  FLAGS "RZ"
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE REQUIRED
  WARNING "Il codice esercizio deve essere presente nella tabella degli esercizi"
  ADD RUN cg0 -5 esc
END

RADIOBUTTON F_STAMPA 30
BEGIN
  PROMPT 2 5 "Scelta stampa     "
  HELP "Indicare il grado di riepilogo"
  ITEM "1|Stampa riepilogo conti"
  ITEM "2|Stampa riepilogo gruppi"
END  

RADIOBUTTON F_RICHIESTA 44
BEGIN
  PROMPT 2 9 "Richiesta stampa      "
  HELP "Indicare il tipo di movimenti da stampare"
  ITEM "1|Stampa progressivi attuali"
  ITEM "2|Stampa progressivi movimenti eliminati"
END

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

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

ENDPAGE

ENDMASK