2Patch level : 12.0 972

Files correlati     : cg1.3x3 cg1500a.msk cg1600a.msk
Commento            :

Sampa bilanco e bilancio IV direttiva per data competenza costi/ricavi

src/cg/cg1500.h

@@ -7,15 +7,13 @@
 #define F_BILANCIO      105
 #define F_ANNO          106
 #define F_STAMPA        107
-#define F_STAMPA1       108
 #define F_DATALIM       109
 #define F_TOTALI        110
 #define F_CODICI        111
 #define F_SALDO         112
 #define F_VERIFICA      113
 #define F_STAMPAV       114
-#define F_DATADA        115
+#define F_DATAINI       115
-#define F_DATAA         116
 #define F_SITUAZIONE    118
 #define F_STAMPAC       119
 #define F_ORDINAMENTO   120
@@ -38,8 +36,9 @@
 #define F_PROVVB         142
 #define F_PROVVC         143
 #ifdef CONT_SEP
-#define F_CONTSEP         144
+#define F_CONTSEP        144
 #endif
+#define F_COMPCR         145
 
 #endif  // __CG1500_H
 

src/cg/cg1500a.uml

@@ -50,157 +50,106 @@ BEGIN
   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"
+  PROMPT 1 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 SHOW,1@
   MESSAGE HIDE,2@|RESET,2@
-  MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
   MESSAGE CLEAR,F_MODULO
-  //MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
+  MESSAGE CLEAR,F_QUADRATURA
   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 HIDE,1@|RESET,1@
   MESSAGE SHOW,2@
-  //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"
-  GROUP 1
   ITEM "1|Per date limite"
-  MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
+  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 SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
+  MESSAGE CLEAR,F_COMPCR
+  MESSAGE CLEAR,F_QUADRATURA
 #ifdef CONT_SEP
   MESSAGE HIDE,F_CONTSEP
 #endif
 END
 
-RADIOBUTTON F_STAMPA1 28
+DATE F_DATAINI
 BEGIN
-  PROMPT 40 5 "@bTipo stampa"
+  PROMPT 2 9 "Data iniziale "
-  //FLAGS "G"
+  HELP "Data dall quale iniziare la stampa"
-  HELP "Indicare il tipo di stampa"
+
-  GROUP 2
-  ITEM "1|Per date limite"
-  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
-#ifdef CONT_SEP
-  MESSAGE SHOW,F_CONTSEP
-#endif
-  ITEM "2|All'ultima immissione"
-  MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
-  MESSAGE COPY,F_STAMPA
-#ifdef CONT_SEP
-  MESSAGE HIDE,F_CONTSEP
-#endif
 END
 
 DATE F_DATALIM
 BEGIN
-  PROMPT 2 9 "Data limite      "
+  PROMPT 42 9 "Data limite      "
   HELP "Data fino alla quale si vuole la stampa"
-  GROUP 1
 END
 
 BOOLEAN F_TOTALI
 BEGIN
-  PROMPT 33 9 "Non stampare totali per gruppo "
+  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 10 "Non stampare codici conti "
+  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 10 "Non stampare movimenti con saldo a zero "
+  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
 
-TEXT 96
-BEGIN
-  PROMPT 2 9 "Dalla data competenza "
-END
-
-TEXT 97
-BEGIN
-  PROMPT 38 9 "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 dall quale iniziare la stampa"
-  GROUP 2
-END
-
-DATE F_DATAA
-BEGIN
-  PROMPT 60 10 ""
-  GROUP 2
-END
-
 BOOLEAN F_NORMALI
 BEGIN
-  PROMPT 2 11 "Movimenti : Normali"
+  PROMPT 2 12 "Movimenti : Normali"
 END
 
 BOOLEAN F_PROVVM
 BEGIN
-	PROMPT 29 11 "Provvisori : Manuali"
+	PROMPT 29 12 "Provvisori : Manuali"
 END
 
 BOOLEAN F_PROVVB
 BEGIN
-	PROMPT 52 11 "Comp. costi/ricavi"
+	PROMPT 52 12 "Comp. costi/ricavi"
 END
 
 BOOLEAN F_PROVVC
 BEGIN
-	PROMPT 73 11 "Cespiti"
+	PROMPT 73 12 "Cespiti"
 END
 
 LIST F_MODULO 1 12
 BEGIN
-  PROMPT 2 12 "Larghezza modulo di stampa "
+  PROMPT 2 13 "Larghezza modulo di stampa "
 
   HELP "Indicare il numero di caratteri del foglio (larghezza)"
   ITEM "1|132 colonne"
@@ -209,13 +158,13 @@ END
 
 BOOLEAN F_QUADRATURA
 BEGIN
-  PROMPT 2 13 "Quadratura con Libro Giornale"
+  PROMPT 2 14 "Quadratura con Libro Giornale"
 END
 
 #ifdef CONT_SEP
 STRING F_CONTSEP 6
 BEGIN
-  PROMPT 2 14 "Contabilità separata "
+  PROMPT 2 15 "Contabilità separata "
   USE &NPENT
   INPUT CODTAB F_CONTSEP
   DISPLAY "Codice@6" CODTAB
@@ -234,13 +183,9 @@ RADIOBUTTON F_VERIFICA 27
 BEGIN
   PROMPT 2 1 "@bStampa bilancio di verifica "
   HELP "Tipo di bilancio di verifica"
-  GROUP 2
+  ITEM "1|Bilancio"  MESSAGE SHOW,4@|HIDE,6@
-  ITEM "1|Bilancio" 
+  ITEM "2|Saldi di mastro" MESSAGE SHOW,4@|HIDE,6@
-    MESSAGE SHOW,4@|HIDE,5@|HIDE,6@
+  ITEM "3|Situazione C/F"  MESSAGE HIDE,4@|SHOW,6@
-  ITEM "2|Saldi di mastro"
-    MESSAGE SHOW,4@|HIDE,5@|HIDE,6@
-  ITEM "3|Situazione C/F"
-    MESSAGE HIDE,4@|SHOW,5@|SHOW,6@
 END
 
 RADIOBUTTON F_STAMPAC 36
@@ -248,7 +193,8 @@ BEGIN
   PROMPT 34 1 "@bTipo stampa"
   ITEM "1|Conti movimentati"
   ITEM "2|Conti con saldo diverso da zero"
-  GROUP 4
+  GROUP 6
+  FLAGS "H"
 END
 
 RADIOBUTTON F_STAMPAV 36
@@ -257,8 +203,7 @@ BEGIN
   ITEM "1|Conti movimentati"
   ITEM "2|Conti con saldo diverso da zero"
   ITEM "3|Tutti i conti"
-  FLAGS "H"
+  GROUP 4
-  GROUP 6
 END
 
 BOOLEAN F_SEPARATOR

src/cg/cg1600.h

@@ -9,7 +9,6 @@
 #define F_DATASTAMPA 103
 #define F_TIPOBIL 104
 #define F_TIPOSTAMPA 105
-#define F_TIPOSTAMPA1 106
 #define F_DATALIM 107
 #define F_DATABILRAF 108
 #define F_STAMPAINT 109
@@ -18,7 +17,6 @@
 #define F_COMPETENZA 112
 #define F_STAMPAMODULO 113
 #define F_DATAINI 114
-#define F_DATAFINE 115
 #define F_ANNOESE 116
 #define F_ANNORAFFR 117
 #define F_NORMALI       118
@@ -28,6 +26,7 @@
 #define F_PROVVM         122
 #define F_PROVVB         123
 #define F_PROVVC         124
+#define F_COMPCR         125
 
 #endif  // __CG1600_H
 

src/cg/cg1600a.uml

@@ -54,6 +54,8 @@ BEGIN
   OUTPUT F_ANNOESE CODTAB
   FLAGS "RZ"
   CHECKTYPE NORMAL
+  MESSAGE EMPTY DISABLE,F_COMPCR
+  MESSAGE ENABLE,F_COMPCR
   ADD RUN cg0 -5 esc
 END
 
@@ -75,10 +77,9 @@ 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
-  MESSAGE SHOW,F_ANNORAFFR|SHOW,F_DATABILRAF|HIDE,F_SEPARATOR 
+  MESSAGE CLEAR,F_QUADRATURA
   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
 
@@ -87,79 +88,38 @@ 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 
+  MESSAGE ENABLE,F_COMPCR
   ITEM "2|All'ultima immissione"
-  MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE
+  MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM
-  MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE|
   MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
-END
+  MESSAGE CLEAR,F_COMPCR
-
-LIST F_TIPOSTAMPA1 23
-BEGIN
-  PROMPT 4 7 "Tipo stampa       "
-  ITEM "1|Per data limite"
-  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 ""
+  PROMPT 4 8 "Data iniziale "
-  HELP "Data di inizio calcolo"  
+  HELP "Data dalla quale si vuole iniziare la stampa"  
-  FLAGS "G"
-//  VALIDATE NOT_EMPTY_FUNC
 END
 
-DATE F_DATAFINE
+DATE F_DATALIM
 BEGIN
-  PROMPT 62 9 ""
+  PROMPT 41 8 "Data limite "
-  HELP "Data di fine calcolo"   
+  HELP "Data fin alla quale si vuole la stampa"
-  FLAGS "G"
+END
-//  VALIDATE NOT_EMPTY_FUNC
+
+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
@@ -172,49 +132,49 @@ END
 
 BOOLEAN F_STAMPACOD
 BEGIN
-  PROMPT 41 11 "Non stampare cod. conti"
+  PROMPT 4 12 "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"
+  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 13 "Movimenti : Normali"
+  PROMPT 4 14 "Movimenti : Normali"
 END
 
 BOOLEAN F_PROVVM
 BEGIN
-	PROMPT 30 13 "Provvisori : Manuali"
+	PROMPT 30 14 "Provvisori : Manuali"
 END
 
 BOOLEAN F_PROVVB
 BEGIN
-	PROMPT 53 13 "Comp. costi/ricavi"
+	PROMPT 53 14 "Comp. costi/ricavi"
 END
 
 BOOLEAN F_PROVVC
 BEGIN
-	PROMPT 75 13 "Cespiti"
+	PROMPT 75 14 "Cespiti"
 END
 
 BOOLEAN F_STAMPAMODULO
 BEGIN
-  PROMPT 4 14 "Stampa su modulo 198"
+  PROMPT 4 15 "Stampa su modulo 198"
 END
 
 BOOLEAN F_QUADRATURA
 BEGIN
-  PROMPT 4 15 "Quadratura con Libro Giornale"
+  PROMPT 4 16 "Quadratura con Libro Giornale"
 END
 
 BOOLEAN F_SEPARATOR
 BEGIN
-  PROMPT 4 16 "Non stampare il separatre delle migliaia"
+  PROMPT 4 17 "Non stampare il separatre delle migliaia"
 END
 
 ENDPAGE