campo-sirio/src/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
  MESSAGE EMPTY DISABLE,F_COMPCR
  MESSAGE ENABLE,F_COMPCR
  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 SHOW,F_ANNORAFFR|SHOW,F_DATABILRAF|HIDE,F_SEPARATOR
  MESSAGE CLEAR,F_QUADRATURA
  ITEM "2|Bilancio di verifica"
  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 SHOW,F_DATALIM|SHOW,F_STAMPAINT|SHOW,F_STAMPAMOV 
  MESSAGE ENABLE,F_COMPCR
  ITEM "2|All'ultima immissione"
  MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM
  MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
  MESSAGE CLEAR,F_COMPCR
END

DATE F_DATAINI
BEGIN
  PROMPT 4 8 "Data iniziale "
  HELP "Data dalla quale si vuole iniziare la stampa"  
END

DATE F_DATALIM
BEGIN
  PROMPT 41 8 "Data limite "
  HELP "Data fin alla quale si vuole la stampa"
END

DATE F_DATABILRAF
BEGIN
  PROMPT 28 9 "Data bil. da raffrontare "
  HELP "Data d'esercizio da raffrontare con data limite"
END

BOOLEAN F_COMPCR
BEGIN
  PROMPT 4 10 "Bilancio per competenza costi/ricavi "
  HELP "Bilancio per competenza costi/ricavi"
  FLAGS "D"
  GROUP 4
END

BOOLEAN F_STAMPAINT
BEGIN
  PROMPT 4 11 "Stampa intera struttura"
  HELP "Indicare se ottenere un stampa completa nella sua struttura"
  MESSAGE RESET,F_STAMPAMOV
  MESSAGE TRUE ENABLE,F_STAMPAMOV
END

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

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

BOOLEAN F_NORMALI
BEGIN
  PROMPT 4 14 "Movimenti : Normali"
END

BOOLEAN F_PROVVM
BEGIN
	PROMPT 30 14 "Provvisori : Manuali"
END

BOOLEAN F_PROVVB
BEGIN
	PROMPT 53 14 "Comp. costi/ricavi"
END

BOOLEAN F_PROVVC
BEGIN
	PROMPT 75 14 "Cespiti"
END

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

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

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

ENDPAGE

ENDMASK