campo-sirio/cg/cg1600a.uml

#include "cg1600.h"

TOOLBAR "topbar" 0 0 0 2

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

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

ENDPAGE

PAGE "Stampa Bilancio IV dir. CEE" 0 0 0 2

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       "
  HELP "Indicare la data da stampare sul bilancio"
  FLAGS "A"
END

NUMBER F_ANNOESE 4
BEGIN
  PROMPT 4 5 "Codice esercizio  "
  HELP "Esercizio di cui si vuole la stampa"
  USE ESC
  INPUT CODTAB F_ANNOESE
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNOESE CODTAB
  FLAGS "RZ"
  CHECKTYPE NORMAL
  ADD RUN cg0 -5 esc
END

NUMBER F_ANNORAFFR 4
BEGIN
  PROMPT 36 5 "Cod. esercizio da raffrontare "
  HELP "Codice esercizio da raffrontare (in caso di confronto)"
  COPY USE F_ANNOESE
  INPUT CODTAB F_ANNORAFFR
  COPY DISPLAY F_ANNOESE
  OUTPUT F_ANNORAFFR CODTAB
  FLAGS "RZ"
  CHECKTYPE NORMAL
  ADD RUN cg0 -5 esc
END

LIST F_TIPOBIL 22
BEGIN
  PROMPT 4 6 "Tipo bilancio     "
  HELP "Indicare il tipo di bilancio da stampare"
  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|HIDE,F_SEPARATOR 
  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|SHOW,F_SEPARATOR 
END

LIST F_TIPOSTAMPA 23
BEGIN
  PROMPT 4 7 "Tipo stampa       "
  HELP "Indicare il tipo di stampa che si vuole avere"
  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 stampa       "
  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

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       "
  HELP "Data fin alla quale si vuole la stampa"
  FLAGS "G"
//  VALIDATE NOT_EMPTY_FUNC
END

DATE F_DATABILRAF
BEGIN
  PROMPT 36 9 "Data bil. da raffrontare  "
  HELP "Data d'esercizio da raffrontare con data limite"
  FLAGS "G"
//  VALIDATE NOT_EMPTY_FUNC
END

DATE F_DATAINI
BEGIN
  PROMPT 26 9 ""
  HELP "Data di inizio calcolo"  
  FLAGS "G"
//  VALIDATE NOT_EMPTY_FUNC
END

DATE F_DATAFINE
BEGIN
  PROMPT 62 9 ""
  HELP "Data di fine calcolo"   
  FLAGS "G"
//  VALIDATE NOT_EMPTY_FUNC
END

BOOLEAN F_STAMPAINT
BEGIN
  PROMPT 4 11 "Stampa intera struttura"
  HELP "Indicare se ottenere un stampa completa nella sua struttura"
END

BOOLEAN F_STAMPACOD
BEGIN
  PROMPT 41 11 "Non stampare cod. conti"
  HELP "Indicare se non stampare i codici dei conti"
END

BOOLEAN F_STAMPAMOV
BEGIN
  PROMPT 4 12 "Non stampare mov. con saldo a 0"
  HELP "Indicare se non stampare i movimenti con saldo nullo"
END

/*
BOOLEAN F_STAMPAMOVPROV
BEGIN
  PROMPT 41 12 "Stampa movimenti provvisori"
  HELP "Indicare se stampare anche i movimenti provvisori"
END
*/

LIST F_STAMPAMOVPROV 15
BEGIN
    PROMPT 41 12 "Bilancio "
    ITEM "1|Normale"                      
    ITEM "2|Globale"                      
    ITEM "3|Solo provvisori" 
END

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

BOOLEAN F_QUADRATURA
BEGIN
  PROMPT 4 14 "Quadratura con Libro Giornale"
END

BOOLEAN F_SEPARATOR
BEGIN
  PROMPT 4 15 "Non stampare il separatre delle migliaia"
END

ENDPAGE

ENDMASK