- 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:
parent
8b659731f8
commit
871e1e82d9
14
ba/batbreg.h
14
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
|
||||
|
122
ba/batbreg.uml
122
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@
|
||||
// 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
|
||||
|
Loading…
x
Reference in New Issue
Block a user