#include "cg1500.h"

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE

#ifdef CONT_SEP
PAGE "Stampa bilancio Contabilità separata" -1 -1 76 16
#else
PAGE "Stampa bilancio" -1 -1 76 16
#endif

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
END

RADIOBUTTON F_BILANCIO 37
BEGIN
  PROMPT 1 5 "@bTipo bilancio"
  HELP "Indicare il tipo di bilancio da stampare"
  ITEM "1|Bilancio a sezioni contrapposte"
  MESSAGE SHOW,1@
  MESSAGE HIDE,2@|RESET,2@
  MESSAGE CLEAR,F_MODULO
  MESSAGE CLEAR,F_QUADRATURA
  ITEM "2|Bilancio di verifica"
  MESSAGE HIDE,1@|RESET,1@
  MESSAGE SHOW,2@
  MESSAGE ENABLE,F_MODULO
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
  MESSAGE ENABLE,F_COMPCR
#ifdef CONT_SEP
  MESSAGE SHOW,F_CONTSEP
#endif
  ITEM "2|All'ultima immissione"
  MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM
  MESSAGE CLEAR,F_COMPCR
  MESSAGE CLEAR,F_QUADRATURA
#ifdef CONT_SEP
  MESSAGE HIDE,F_CONTSEP
#endif
END

DATE F_DATAINI
BEGIN
  PROMPT 2 9 "Data iniziale "
  HELP "Data dall quale iniziare la stampa"

END

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

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

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

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

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

BOOLEAN F_NORMALI
BEGIN
  PROMPT 2 12 "Movimenti : Normali"
END

BOOLEAN F_PROVVM
BEGIN
	PROMPT 29 12 "Provvisori : Manuali"
END

BOOLEAN F_PROVVB
BEGIN
	PROMPT 52 12 "Comp. costi/ricavi"
END

BOOLEAN F_PROVVC
BEGIN
	PROMPT 73 12 "Cespiti"
END

LIST F_MODULO 1 12
BEGIN
  PROMPT 2 13 "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 14 "Quadratura con Libro Giornale"
END

#ifdef CONT_SEP
STRING F_CONTSEP 6
BEGIN
  PROMPT 2 15 "Contabilità separata "
  USE &NPENT
  INPUT CODTAB F_CONTSEP
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CONTSEP CODTAB
  CHECKTYPE REQUIRED
  MODULE NP
END
#endif

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,4@|HIDE,6@
  ITEM "2|Saldi di mastro" MESSAGE SHOW,4@|HIDE,6@
  ITEM "3|Situazione C/F"  MESSAGE HIDE,4@|SHOW,6@
END

RADIOBUTTON F_STAMPAC 36
BEGIN
  PROMPT 34 1 "@bTipo stampa"
  ITEM "1|Conti movimentati"
  ITEM "2|Conti con saldo diverso da zero"
  GROUP 6
  FLAGS "H"
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"
  GROUP 4
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"
  GROUP 4
END

BOOLEAN F_PRINT_FULL_CODE
BEGIN
  PROMPT 2 11 "Stampa il codice completo"
  GROUP 4
END

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

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

GROUPBOX DLG_NULL 55 6
BEGIN
  PROMPT 2 13 "@bSelezione sui conti"
END

NUMBER F_DA_GRUPPO 3
BEGIN
  PROMPT 3 14 "Da:   Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_DA_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DA_GRUPPO GRUPPO    
  CHECKTYPE NORMAL
END

NUMBER F_DA_CONTO 3
BEGIN
  PROMPT 23 14 "Conto "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_DA_GRUPPO 
  INPUT CONTO  F_DA_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_DA_CONTO CONTO  
  OUTPUT F_DA_GRUPPO GRUPPO
  CHECKTYPE NORMAL 
END

NUMBER F_DA_SOTTOCONTO 6
BEGIN
  PROMPT 36 14 "Sottoconto "
  USE LF_PCON
  INPUT GRUPPO F_DA_GRUPPO 
  INPUT CONTO  F_DA_CONTO 
  INPUT SOTTOCONTO F_DA_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DA_SOTTOCONTO SOTTOCONTO
  OUTPUT F_DA_GRUPPO GRUPPO
  OUTPUT F_DA_CONTO CONTO  
  OUTPUT F_DA_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING F_DA_DESCRIZIONE 50
BEGIN
  PROMPT 3 15 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DA_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_DA_SOTTOCONTO SOTTOCONTO
  OUTPUT F_DA_CONTO CONTO
  OUTPUT F_DA_GRUPPO GRUPPO
  OUTPUT F_DA_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

NUMBER F_A_GRUPPO 3
BEGIN
  PROMPT 3 16 "A:    Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_A_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_A_GRUPPO GRUPPO    
  CHECKTYPE NORMAL
END

NUMBER F_A_CONTO 3
BEGIN
  PROMPT 23 16 "Conto "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_A_GRUPPO 
  INPUT CONTO  F_A_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_A_CONTO CONTO  
  OUTPUT F_A_GRUPPO GRUPPO
  CHECKTYPE NORMAL 
END

NUMBER F_A_SOTTOCONTO 6
BEGIN
  PROMPT 36 16 "Sottoconto "
  USE LF_PCON
  INPUT GRUPPO F_A_GRUPPO 
  INPUT CONTO  F_A_CONTO 
  INPUT SOTTOCONTO F_A_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_A_SOTTOCONTO SOTTOCONTO
  OUTPUT F_A_GRUPPO GRUPPO
  OUTPUT F_A_CONTO CONTO  
  OUTPUT F_A_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING F_A_DESCRIZIONE 50
BEGIN
  PROMPT 3 17 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_A_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_A_SOTTOCONTO SOTTOCONTO
  OUTPUT F_A_CONTO CONTO
  OUTPUT F_A_GRUPPO GRUPPO
  OUTPUT F_A_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK