campo-sirio/cg/cg1500a.uml

#include "cg1500.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
    PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Stampa bilancio" -1 -1 76 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 48 1 "Data stampa "
  HELP "Data che verra' stampata sul bilancio"
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Codice esercizio  "
  HELP "Esercizio di cui si vuole ottenere il bilancio"
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  FLAGS "Z"
  CHECKTYPE NORMAL
  WARNING "L'esercizio non esiste"
  ADD RUN cg0 -5 esc
  MESSAGE EMPTY CLEAR,4@
  MESSAGE ENABLE,4@
END

RADIOBUTTON F_BILANCIO 37
BEGIN
  PROMPT 2 5 "@bTipo bilancio"
  HELP "Indicare il tipo di bilancio da stampare"
  ITEM "1|Bilancio a sezioni contrapposte"
  MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
  MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
  MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
  MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
  MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
  MESSAGE CLEAR,F_MODULO
  MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
  ITEM "2|Bilancio di verifica"
  MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
  MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
  MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
  MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
  MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
  MESSAGE ENABLE,F_MODULO
  MESSAGE SHOW,96|SHOW,97|SHOW,98|SHOW,99
END

RADIOBUTTON F_STAMPA 28
BEGIN
  PROMPT 41 5 "@bTipo stampa"
  HELP "Indicare il tipo di stampa"
  ITEM "1|Per date limite"
  MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
  ITEM "2|All'ultima immissione"
  MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM
  MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
END

RADIOBUTTON F_STAMPA1 28
BEGIN
  PROMPT 40 5 "@bTipo stampa"
  //FLAGS "G"
  HELP "Indicare il tipo di stampa"
  ITEM "1|Per date limite"
  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO|SHOW,F_STAMPAMPROV
  ITEM "2|All'ultima immissione"
  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO|SHOW,F_STAMPAMPROV
  MESSAGE COPY,F_STAMPA
END

DATE F_DATALIM
BEGIN
  PROMPT 2 9 "Data limite      "
  HELP "Data fino alla quale si vuole la stampa"
END

BOOLEAN F_TOTALI
BEGIN
  PROMPT 33 9 "Non stampare totali per gruppo "
  HELP "Indicare se non si devono stampare i totali dei gruppi"
END

BOOLEAN F_CODICI
BEGIN
  PROMPT 2 10 "Non stampare codici conti "
  HELP "Indicare se non si devono stampare i codici dei conti"
END

BOOLEAN F_SALDO
BEGIN
  PROMPT 33 10 "Non stampare movimenti con saldo a zero "
  HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
END

TEXT 96
BEGIN
  PROMPT 2 10 "Dalla data competenza "
END

TEXT 97
BEGIN
  PROMPT 38 10 "Alla data competenza "
END

TEXT 98
BEGIN
  PROMPT 2 10 "Dalla data operazione "
END

TEXT 99
BEGIN
  PROMPT 38 10 "Alla data operazione "
END

DATE F_DATADA
BEGIN
  PROMPT 24 10 ""
  HELP "Data dalla quale iniziare la stampa"
END

DATE F_DATAA
BEGIN
  PROMPT 60 10 ""
END

LIST F_STAMPAMPROV 15
BEGIN
  PROMPT 2 11 "Bilancio                   "
  ITEM "1|Normale"
  ITEM "2|Globale"
  ITEM "3|Solo provvisori"
END

LIST F_MODULO 1 12
BEGIN
  PROMPT 2 12 "Larghezza modulo di stampa "

  HELP "Indicare il numero di caratteri del foglio (larghezza)"
  ITEM "1|132 colonne"
  ITEM "2|198 colonne"
END

BOOLEAN F_QUADRATURA
BEGIN
  PROMPT 2 13 "Quadratura con Libro Giornale"
END

GROUPBOX DLG_NULL 73 4
BEGIN
  PROMPT 2 14 "@bCentri di costo / Commesse"
  GROUP 4
END

STRING F_DACDC 20
BEGIN
  PROMPT 3 15 "Da CDC/Commessa "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_DACDC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_DACDC CODTAB
  CHECKTYPE SEARCH
  GROUP 4
END

STRING F_DAFSC 10
BEGIN
  PROMPT 50 15 "Da Fase "
  USE FSC 
  INPUT CODTAB F_DAFSC
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DAFSC CODTAB
  CHECKTYPE SEARCH
  GROUP 4
END

STRING F_ACDC 20
BEGIN
  PROMPT 3 16 "A  CDC/Commessa "
  FLAGS "UZ"
  COPY USE F_DACDC
  INPUT CODTAB F_ACDC
  COPY DISPLAY F_DACDC
  OUTPUT F_ACDC CODTAB
  CHECKTYPE SEARCH
  GROUP 4
END

STRING F_AFSC 10
BEGIN
  PROMPT 50 16 "A Fase  "
  FLAGS "UZ"
  COPY USE F_DAFSC
  INPUT CODTAB F_AFSC
  COPY DISPLAY F_DAFSC
  OUTPUT F_AFSC CODTAB
  CHECKTYPE SEARCH
  GROUP 4
END

ENDPAGE

PAGE "Parametri bilancio di verifica" -1 -1 74 20

RADIOBUTTON F_VERIFICA 27
BEGIN
  PROMPT 2 1 "@bStampa bilancio di verifica "
  HELP "Tipo di bilancio di verifica"
  ITEM "1|Bilancio" 
    MESSAGE SHOW,F_HIDE_CLIFO
  ITEM "2|Saldi di mastro"
    MESSAGE HIDE,F_HIDE_CLIFO
  ITEM "3|Situazione C/F"
    MESSAGE HIDE,F_HIDE_CLIFO
END

RADIOBUTTON F_STAMPAC 36
BEGIN
  PROMPT 34 1 "@bTipo stampa"

  ITEM "1|Conti movimentati"
  ITEM "2|Conti con saldo diverso da zero"
END

RADIOBUTTON F_STAMPAV 36
BEGIN
  PROMPT 34 1 "@bTipo stampa "
  ITEM "1|Conti movimentati"
  ITEM "2|Conti con saldo diverso da zero"
  ITEM "3|Tutti i conti"
END

BOOLEAN F_SEPARATOR
BEGIN
  PROMPT 2 7 "Non stampare i separatori delle migliaia"
  MESSAGE FALSE " 123.456.789.012",F_PICTURE
  MESSAGE TRUE  "1234567890123456",F_PICTURE
END

STRING F_PICTURE 16
BEGIN
  PROMPT 50 7 ""
  FLAGS "DR"
END

BOOLEAN F_HIDE_CLIFO
BEGIN
  PROMPT 2 10 "Non stampare il dettaglio dei clienti/fornitori"
END

LIST F_SITUAZIONE 11
BEGIN
  PROMPT 2 10 "Tipo situazione  "
  ITEM " |Entrambi"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

LIST F_ORDINAMENTO 11
BEGIN
  PROMPT 2 11 "Tipo ordinamento "
  ITEM "1|Per codice"
  ITEM "2|Alfabetico"
END

ENDPAGE

ENDMASK