#include "cg1600.h"

PAGE "" -1 -1 78 20

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 4 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 4 2 "Ragione sociale   "
  FLAGS "D"
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 4 4 "Data stampa       "
  FLAGS "A"
END

NUMBER F_ANNOESE 4
BEGIN
  PROMPT 4 5 "Anno esercizio    "
  USE ESC
  INPUT CODTAB F_ANNOESE
  DISPLAY "Anno" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNOESE CODTAB
  CHECKTYPE REQUIRED
END

NUMBER F_ANNORAFFR 4
BEGIN
  PROMPT 36 5 "Anno esercizio da raffrontare "
  COPY USE F_ANNOESE
  INPUT CODTAB F_ANNORAFFR
  COPY DISPLAY F_ANNOESE
  OUTPUT F_ANNORAFFR CODTAB
  CHECKTYPE NORMAL
END

LIST F_TIPOBIL 22
BEGIN
  PROMPT 4 6 "Tipo bilancio     "
  ITEM "1|Bilancio scalare"
  MESSAGE HIDE,F_TIPOSTAMPA1|RESET,F_TIPOSTAMPA1|SHOW,F_TIPOSTAMPA|K_SPACE,F_TIPOSTAMPA
  ITEM "2|Bilancio di verifica"
  MESSAGE HIDE,F_TIPOSTAMPA|RESET,F_TIPOSTAMPA|SHOW,F_TIPOSTAMPA1|K_SPACE,F_TIPOSTAMPA1
END

LIST F_TIPOSTAMPA 38
BEGIN
  PROMPT 4 7 "Tipo stampa       "
  ITEM "1|Per data limite"
  MESSAGE HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE
  MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATAFINE
  MESSAGE SHOW,F_DATALIM|SHOW,F_DATABILRAF|SHOW,F_STAMPAINT
  MESSAGE SHOW,F_STAMPAMOV|SHOW,F_COMPETENZA 
  ITEM "2|All'ultima immissione es. in corso"
  MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMODULO
  MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
  MESSAGE RESET,F_COMPETENZA|RESET,F_STAMPAMODULO|RESET,F_DATAINI
  MESSAGE RESET,F_DATAFINE|SHOW,F_DATABILRAF
  MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
  ITEM "3|All'ultima immissione es. precedente"
  MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMODULO
  MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
  MESSAGE RESET,F_COMPETENZA|RESET,F_STAMPAMODULO|RESET,F_DATAINI
  MESSAGE RESET,F_DATAFINE|SHOW,F_DATABILRAF
  MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
END

LIST F_TIPOSTAMPA1 38
BEGIN
  PROMPT 4 7 "Tipo stampa1      "
  ITEM "1|Per data "
  MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF
  MESSAGE RESET,F_DATALIM|RESET,F_DATABILRAF
  MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
  MESSAGE SHOW,F_DATAINI|SHOW,F_DATAFINE|SHOW,F_COMPETENZA|SHOW,F_STAMPAMODULO
  ITEM "2|All'ultima immissione es. in corso"
  MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF|HIDE,F_COMPETENZA
  MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
  MESSAGE RESET,F_DATABILRAF|RESET,F_COMPETENZA|RESET,F_DATAINI
  MESSAGE RESET,F_DATAFINE|SHOW,F_STAMPAINT
  MESSAGE SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
  ITEM "3|All'ultima immissione es. precedente"
  MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF|HIDE,F_COMPETENZA
  MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
  MESSAGE RESET,F_DATABILRAF|RESET,F_COMPETENZA|RESET,F_DATAINI
  MESSAGE RESET,F_DATAFINE|SHOW,F_STAMPAINT
  MESSAGE SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
  MESSAGE COPY,F_TIPOSTAMPA
END

DATE F_DATALIM
BEGIN
  PROMPT 4 9 "Data limite       "
  VALIDATE NOT_EMPTY_FUNC
END

DATE F_DATABILRAF
BEGIN
  PROMPT 36 9 "Data bil. da raffrontare  "
  VALIDATE NOT_EMPTY_FUNC
END

BOOLEAN F_STAMPAINT
BEGIN
  PROMPT 4 11 "Stampa intera struttura"
END

BOOLEAN F_STAMPACOD
BEGIN
  PROMPT 41 11 "Non stampare cod. conti"
END

BOOLEAN F_STAMPAMOV
BEGIN
  PROMPT 4 12 "Non stampare mov. con saldo a 0"
END

BOOLEAN F_COMPETENZA
BEGIN
  PROMPT 41 12 "Controllo anno di competenza"
END

BOOLEAN F_STAMPAMOVPROV
BEGIN
  PROMPT 4 13 "Stampa movimenti provvisori"
END

BOOLEAN F_STAMPAMODULO
BEGIN
  PROMPT 41 13 "Stampa su modulo stretto"
END

DATE F_DATAINI
BEGIN
  PROMPT 4 15 "Data inizio       "
  VALIDATE NOT_EMPTY_FUNC
END

DATE F_DATAFINE
BEGIN
  PROMPT 52 15 "Data fine "
  VALIDATE NOT_EMPTY_FUNC
END

BUTTON DLG_OK 9 0
BEGIN
  PROMPT 51 18 ""
END

BUTTON DLG_CANCEL 9 0
BEGIN
  PROMPT 63 18 ""
END

ENDPAGE

ENDMASK