campo-sirio/cg/cg1600a.uml

#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

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
  FLAGS "RZ"
  CHECKTYPE NORMAL
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
  FLAGS "RZ"
  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
  MESSAGE SHOW,F_ANNORAFFR|SHOW,F_DATABILRAF
  ITEM "2|Bilancio di verifica"
  MESSAGE HIDE,F_TIPOSTAMPA|RESET,F_TIPOSTAMPA|SHOW,F_TIPOSTAMPA1|K_SPACE,F_TIPOSTAMPA1
  MESSAGE HIDE,F_ANNORAFFR|HIDE,F_DATABILRAF
END

LIST F_TIPOSTAMPA 23
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_STAMPAINT|SHOW,F_STAMPAMOV 
  ITEM "2|All'ultima immissione"
  MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE
  MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE|
  MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
END

LIST F_TIPOSTAMPA1 23
BEGIN
  PROMPT 4 7 "Tipo stampa1      "
  ITEM "1|Per data "
  MESSAGE HIDE,F_DATALIM
  MESSAGE RESET,F_DATALIM
  MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
  MESSAGE SHOW,F_DATAINI|SHOW,F_DATAFINE|SHOW,F_STAMPAMODULO
  ITEM "2|All'ultima immissione"
  MESSAGE HIDE,F_DATALIM|HIDE,F_DATAINI|HIDE,F_DATAFINE
  MESSAGE RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE
  MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
  MESSAGE COPY,F_TIPOSTAMPA
END

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

TEXT 96
BEGIN
  PROMPT 4 9 "Dalla data competenza "
END

TEXT 97
BEGIN
  PROMPT 40 9 "Alla data competenza  "
END

TEXT 98
BEGIN
  PROMPT 4 9 "Dalla data operazione  "
END

TEXT 99
BEGIN
  PROMPT 40 9 "Alla data operazione  "
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

DATE F_DATAINI
BEGIN
  PROMPT 26 9 ""
//  VALIDATE NOT_EMPTY_FUNC
END

DATE F_DATAFINE
BEGIN
  PROMPT 62 9 ""
//  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_STAMPAMOVPROV
BEGIN
  PROMPT 41 12 "Stampa movimenti provvisori"
END

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

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

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

ENDPAGE

ENDMASK