From 871e1e82d900b970527d7e6e20146c462c877e6d Mon Sep 17 00:00:00 2001 From: augusto Date: Tue, 18 Nov 1997 15:49:32 +0000 Subject: [PATCH] - 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 | 14 ++++++ ba/batbreg.uml | 122 ++++++++++++++++++++++++------------------------- 2 files changed, 73 insertions(+), 63 deletions(-) diff --git a/ba/batbreg.h b/ba/batbreg.h index bd0cd0193..2e472532a 100755 --- a/ba/batbreg.h +++ b/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 diff --git a/ba/batbreg.uml b/ba/batbreg.uml index 7a5b394ce..3ea2bb472 100755 --- a/ba/batbreg.uml +++ b/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 @@ -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@ -// ITEM "4|4) Libro Incassi e pagamenti" -// MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,5@ + 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@ + MESSAGE "",GRP_SOLOGIORNMAG@ +// 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 - GROUP 3 + FIELD B4 + 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 - NUM_EXPR #F_FREQ<=31 - WARNING "La frequenza di stampa può arrivare fino a 31 giorni" - GROUP 10 + FIELD I3 + NUM_EXPR #F_FREQ<=31 + WARNING "La frequenza di stampa può arrivare fino a 31 giorni" + 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 "" - FIELD D1 - GROUP 10 + PROMPT 2 13 "Data ultima stampa esercizio precedente " + FIELD D4 + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG END - ENDPAGE ENDMASK