- 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
This commit is contained in:
augusto 1997-11-18 15:49:32 +00:00
parent 8b659731f8
commit 871e1e82d9
2 changed files with 73 additions and 63 deletions

View File

@ -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

View File

@ -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@
// 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