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
2020-06-26 00:14:32 +02:00 · 2020-06-26 00:14:32 +02:00 · 50628e2df5
commit 50628e2df5
parent 17c36b9d99
6 changed files with 1169 additions and 1830 deletions
--- a/src/cg/cg1500.cpp
+++ b/src/cg/cg1500.cpp
--- a/src/cg/cg1500.h
+++ b/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_DATAA         116
+#define F_DATAINI       115
 #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

--- a/src/cg/cg1500a.uml
+++ b/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"
-  //FLAGS "G"
-  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
+  PROMPT 2 9 "Data iniziale "
+  HELP "Data dall quale iniziare la stampa"
+
 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,5@|HIDE,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@
+  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
@ -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 6
+  GROUP 4
 END

 BOOLEAN F_SEPARATOR
--- a/src/cg/cg1600.cpp
+++ b/src/cg/cg1600.cpp
--- a/src/cg/cg1600.h
+++ b/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

--- a/src/cg/cg1600a.uml
+++ b/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 RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE|
+  MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM
  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 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
+  MESSAGE CLEAR,F_COMPCR
 END

 DATE F_DATAINI
 BEGIN
-  PROMPT 26 9 ""
-  HELP "Data di inizio calcolo"  
-  FLAGS "G"
-//  VALIDATE NOT_EMPTY_FUNC
+  PROMPT 4 8 "Data iniziale "
+  HELP "Data dalla quale si vuole iniziare la stampa"  
 END

-DATE F_DATAFINE
+DATE F_DATALIM
 BEGIN
-  PROMPT 62 9 ""
-  HELP "Data di fine calcolo"   
-  FLAGS "G"
-//  VALIDATE NOT_EMPTY_FUNC
+  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
@ -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