- Introdotte le costanti per i vari gruppi-tipi di registro

- Corretto l'uso multiplo di campi della tabella su tipi di registro divresi


git-svn-id: svn://10.65.10.50/trunk@5638 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/batbreg.h

@@ -60,3 +60,17 @@
 #define F_PAGULTPREC 217
 #define F_ULTPREC 218
 
+#define GRP_VENDITE 2
+#define GRP_ACQUISTI 3
+#define GRP_RIEPIVA  4
+#define GRP_INCASSI 5
+#define GRP_GIORNALE 6
+#define GRP_LSOCIALI 7
+#define GRP_CESPITI 8
+#define GRP_INVENTARI 9
+#define GRP_GIORNMAG 10
+
+#define GRP_SOLOGIORNMAG 11
+#define GRP_NOGIORNMAG 12
+#define GRP_SOLOGIORNALE 13
+#define GRP_NOGIORNALE 14

ba/batbreg.uml

@@ -1,6 +1,10 @@
 #include "ba3100.h"
 #include "batbreg.h"
-
+//
+// I campi della tabella usate in più registri con significati diversi
+// sono gestiti con messaggi a gruppi (GRP_NOxx e GRP_SOLOxxx ...)
+// che azzerano i campi duplicati, impedendono il salvataggio su archivio
+//
 TOOLBAR "" 0 20 0 2
 
 #include <toolbar.h>
@@ -119,23 +123,29 @@ BEGIN
   FLAGS "G"
   GROUP 1 GR_MODIFY_PROTECTED
   ITEM "1|1) Vendite"
-    MESSAGE HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,2@
+    MESSAGE HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_VENDITE@
+    MESSAGE "",GRP_SOLOGIORNMAG@
   ITEM "2|2) Acquisti"
-    MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,3@
+    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_ACQUISTI@
+    MESSAGE "",GRP_SOLOGIORNMAG@
   ITEM "3|3) Libro IVA riepilogativo"
-    MESSAGE HIDE,2@|HIDE,3@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,4@
+    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_RIEPIVA@
-//  ITEM "4|4) Libro Incassi e pagamenti"
+    MESSAGE "",GRP_SOLOGIORNMAG@
-//  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,5@
+//    ITEM "4|4) Libro Incassi e pagamenti"
+//    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_INCASSI@
   ITEM "5|5) Libro Giornale"
-    MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,6@
+    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_GIORNALE@
+    MESSAGE "",GRP_SOLOGIORNMAG@
   ITEM "6|6) Libri Sociali"
-    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,7@
+    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_LSOCIALI@
+    MESSAGE "",GRP_SOLOGIORNMAG@
 //  ITEM "7|7) Libro Cespiti"
-//    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,9@|HIDE,10@|SHOW,8@
+//    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_CESPITI@
 //  ITEM "8|8) Libro Inventari"
-//    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,10@|SHOW,9@
+//    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_INVENTARI@
   ITEM "9|9) Giornale di magazzino"
-    MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@
+    MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|SHOW,GRP_GIORNMAG@
+    MESSAGE "",GRP_NOGIORNMAG@
 END
 
 STRING F_CONSPRESSO 50
@@ -151,7 +161,7 @@ BEGIN
   PROMPT 1 9 "Codice attivita   "
   FIELD REG->S8
   FLAGS "URZ"
-  GROUP 2 3 4
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
   USE LF_ATTIV
   INPUT CODDITTA F_CODDITTA SELECT
   INPUT CODATT F_ATTIVITA
@@ -168,7 +178,7 @@ NUMBER F_CODULC 3
 BEGIN
   PROMPT 35 9 "Unita' locale           "
   FLAGS "R"
-  GROUP 2 3 4 5 6 7 10
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA  GRP_INCASSI  GRP_GIORNALE  GRP_LSOCIALI GRP_GIORNMAG 
   FIELD I7
   USE LF_UNLOC
     JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
@@ -226,7 +236,7 @@ BEGIN
   FIELD S6
   HELP "Codice del libro unico a cui fa riferimento"
   FLAGS "UZ"
-  GROUP 2 3 4
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA  
   USE %LBU
   INPUT CODTAB[1,4] F_ANNO
   INPUT CODTAB[5,7] F_CODLBU
@@ -293,7 +303,7 @@ BOOLEAN F_REGSOSP
 BEGIN
   PROMPT 1 5 "Registro in sospensione "
   FIELD B1
-  GROUP 2 3
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG
   HELP "Indicare se il registro e' in sospensione d'imposta"
 END
        
@@ -301,8 +311,8 @@ BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
 BEGIN
   PROMPT 46 5 "Stampa credito anno precedente"
   HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente"
-  FIELD B4
+  FIELD B4 
-  GROUP 3
+  GROUP GRP_ACQUISTI GRP_NOGIORNMAG
 END
 
 BOOLEAN F_CORRISP                         
@@ -310,7 +320,7 @@ BEGIN
   PROMPT 46 5 "Registro corrispettivi"
   HELP "Indicare se si tratta di registro dei corrispettivi"
   FIELD B0
-  GROUP 2
+  GROUP GRP_VENDITE 
 END
 
 LIST F_TIPO_DESC_COSTI_RICAVI 1 10
@@ -318,7 +328,7 @@ BEGIN
   PROMPT 1 5 "Tipo descrizione costi/ricavi "
   HELP "Livello a cui stampare la descrizione costi/ricavi"
   FIELD I3
-  GROUP 5
+  GROUP GRP_INCASSI GRP_NOGIORNMAG
   ITEM "1|Gruppo"
   ITEM "2|Conto"
 END
@@ -329,7 +339,7 @@ BEGIN
   FIELD I6
   HELP "Ultimo numero della riga stampata"
   FLAGS "R"
-  GROUP 5 6
+  GROUP GRP_INCASSI GRP_GIORNALE   GRP_NOGIORNMAG
 END
 
 BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
@@ -337,7 +347,7 @@ BEGIN
   PROMPT 1 7 "Stampa indirizzi completi"
   HELP "Indicare se stampare gli indirizzi completi"
   FIELD B5
-  GROUP 2 3
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG
 END
 
 LIST F_FREQUENZA_STAMPA 1 16
@@ -345,7 +355,7 @@ BEGIN
   PROMPT 1 7 "Stampa reg. riepilogativo "
   HELP "Intervallo per fare il riepilogo"
   FIELD S9
-  GROUP 4
+  GROUP GRP_RIEPIVA 
   ITEM "M|Mensile"
   ITEM "T|Trimestrale"
 END
@@ -357,7 +367,7 @@ BEGIN
   FIELD R1
   PICTURE "."
   FLAGS "R"
-  GROUP 6
+  GROUP GRP_GIORNALE GRP_SOLOGIORNALE 
 END
 
 NUMBER F_TOT_INCASSI 18
@@ -367,14 +377,14 @@ BEGIN
   FIELD R0                      
   FLAGS "R"
   PICTURE "."
-  GROUP 5
+  GROUP GRP_INCASSI 
 END
 
 BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
 BEGIN
   PROMPT 46 7 "Stampa riepilogo liquidazione"
   FIELD B6
-  GROUP 2 3 4
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA  
   HELP "Indicare se stampare il  riepilogo IVA delle aliquote utilizzate"
   MESSAGE FALSE ENABLE,F_STAMPA_LIQUIDAZIONE
   MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE
@@ -387,14 +397,14 @@ BEGIN
   FIELD R1
   FLAGS "R"
   PICTURE "."
-  GROUP 5
+  GROUP GRP_INCASSI GRP_NOGIORNALE 
 END
      
 BOOLEAN F_STAMPA_LIQUIDAZIONE
 BEGIN
   PROMPT 1 9 "Stampa liquidazione"
   FIELD B7
-  GROUP 2 3 4
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA  
   HELP "Indicare se stampare a fine periodo la liquidazione"
 END
 
@@ -404,15 +414,15 @@ BEGIN
   HELP "Progressivo avere del giornale"
   FIELD R2           
   FLAGS "R"
+  GROUP GRP_GIORNALE 
   PICTURE "."
-  GROUP 6
 END
 
 BOOLEAN F_STAMPA_COSTI_RICAVI
 BEGIN
   PROMPT 42 9 "Stampa costi/ricavi su libro cronologico "
   FIELD B2
-  GROUP 5
+  GROUP GRP_INCASSI GRP_NOGIORNMAG
 END
        
 BOOLEAN F_VENTIL
@@ -420,7 +430,7 @@ BEGIN
   PROMPT 46 9 "Attivita' con ventilazione"
   HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
   FIELD B3
-  GROUP 3
+  GROUP GRP_ACQUISTI  GRP_NOGIORNMAG
 END
 
 LIST F_MESE_STAMPA_ULTIMA_LIQ 10
@@ -431,7 +441,7 @@ BEGIN
   FLAGS "M"
   ITEM "00|Nessuno" 
   ITEM "13|Annuale"
-  GROUP 2 3 4
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA  
 END
 
 BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
@@ -439,7 +449,7 @@ BEGIN
   PROMPT 1 11 "Stampa sullo stesso registro"
   HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro"
   FIELD B8
-  GROUP 6
+  GROUP GRP_GIORNALE 
 END
 
 NUMBER F_ULTIMO_NUM_PROT 7
@@ -447,7 +457,7 @@ BEGIN
   PROMPT 1 13 "Ultimo numero di protocollo     "
   FIELD I5
   FLAGS "R"
-  GROUP 2 3
+  GROUP GRP_VENDITE GRP_ACQUISTI 
   HELP "Ultimo numero di protocollo"
 END
 
@@ -456,7 +466,7 @@ BEGIN
   PROMPT 1 15 "Ultima data di registrazione    "
   HELP "Date dell'ultima registrazione stampata"
   FIELD D2
-  GROUP 2 3 5 6
+  GROUP GRP_VENDITE GRP_ACQUISTI GRP_INCASSI  GRP_GIORNALE  
 END
 
 DATE F_ULTIMA_DATA_DI_STAMPA
@@ -476,33 +486,33 @@ END
 
 NUMBER F_FREQSTA 2
 BEGIN
-	FLAGS "U"
+  FLAGS "U"
   PROMPT 2 6 "Frequenza di stampa "
-	FIELD I1
+  FIELD I3
-	NUM_EXPR #F_FREQ<=31
+  NUM_EXPR #F_FREQ<=31
-	WARNING "La frequenza di stampa può arrivare fino a 31 giorni"
+  WARNING "La frequenza di stampa può arrivare fino a 31 giorni"
-	GROUP 10
+  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
 END
 
 BOOLEAN F_STARAGG
 BEGIN
   PROMPT 2 7 "Stampa giornale raggruppato"
   FIELD B1
-	GROUP 10
+  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
 END
 
 BOOLEAN F_STARAGGMAG
 BEGIN
   PROMPT 2 8 "Raggruppo i magazzini"
   FIELD B2
-	GROUP 10
+  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
 END
 
 BOOLEAN F_STACLAFIS
 BEGIN
   PROMPT 2 9 "Raggruppo per classe fiscale articoli "
   FIELD B3
-	GROUP 10
+  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
 END
 
 
@@ -510,45 +520,31 @@ BOOLEAN F_STAFISART
 BEGIN
   PROMPT 2 10 "Raggruppo per gruppo fiscale articoli "
   FIELD B4
-	GROUP 10
+  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
 END
 
 BOOLEAN F_STAFISCAU
 BEGIN
   PROMPT 2 11 "Raggruppo per gruppo causali  "
   FIELD B5
-	GROUP 10
+  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
 END
 
-NUMBER F_PAGULTCORR 3
-BEGIN
-  PROMPT 2 12 "Pagina e data ultima stampa esercizio corrente    "
-  FIELD I5
-	GROUP 10
-END
-
-DATE F_ULTCORR
-BEGIN
-  PROMPT 58 12 ""
-  FIELD D0
-	GROUP 10
-END
 
 NUMBER F_PAGULTPREC 3
 BEGIN
-  PROMPT 2 13 "Pagina e data ultima stampa esercizio precedente  "
+  PROMPT 2 12 "Pagina e ultima stampa esercizio precedente  "
   FIELD I6
-	GROUP 10
+  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
 END
 
 DATE F_ULTPREC
 BEGIN
-  PROMPT 58 13 ""
+  PROMPT 2 13 "Data ultima stampa esercizio precedente      "
-  FIELD D1
+  FIELD D4
-	GROUP 10
+  GROUP GRP_GIORNMAG  GRP_SOLOGIORNMAG
 END
 
-
 ENDPAGE
 
 ENDMASK