From 1cedda421a838e6bddefc211a2d5f25f2083082e Mon Sep 17 00:00:00 2001 From: alex Date: Tue, 8 Oct 1996 13:26:54 +0000 Subject: [PATCH] Correzioni alla tabella registri per cespiti git-svn-id: svn://10.65.10.50/trunk@3731 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba4300.cpp | 4 +- ba/ba5200.cpp | 29 +++++++++++ ba/ba5200a.h | 3 ++ ba/ba5200a.uml | 139 +++++++++++++++++++++++++++---------------------- 4 files changed, 113 insertions(+), 62 deletions(-) diff --git a/ba/ba4300.cpp b/ba/ba4300.cpp index 8e3dad523..9f1a8b796 100755 --- a/ba/ba4300.cpp +++ b/ba/ba4300.cpp @@ -20,6 +20,8 @@ #define FLD_SC1_CODANAGRSOH 147 #define FLD_SC1_CODDITTA_NDITTE_RAGSOC 144 #define FLD_UL1_CODULC 125 +#define F_CODDITTA 142 +#define F_ANNO 132 const char* CODDITTA = "CODDITTA"; const char* CODATTPREV = "CODATTPREV"; @@ -131,7 +133,7 @@ bool ba4300_handler(TMask& m, KEY k) fldbrowse = FLD_SC1_CODANAGRSOH; } if (k == K_F8) { appname = "ba3 -0 reg"; fld = 0;fldbrowse = 0;} - if (k == K_F3) { appname = "ba5 -1"; fld = 0;fldbrowse = 0;} + if (k == K_F3) { appname = "ba5 -1"; fld = F_CODDITTA;fldbrowse = F_ANNO;} if (appname.not_empty()) { TString body(16); diff --git a/ba/ba5200.cpp b/ba/ba5200.cpp index 4b92a0a12..ea3afacf7 100755 --- a/ba/ba5200.cpp +++ b/ba/ba5200.cpp @@ -5,6 +5,7 @@ #include "batbreg.h" #include "tabreg.h" +#include "ba5200a.h" #define REG_JOURNAL 5 @@ -27,6 +28,8 @@ protected: // TRelation_application virtual void init_modify_mode(TMask& m); virtual int rewrite(const TMask& m); + static bool codsp_handler(TMask_field& f, KEY k); + public: bool exist_journal() {return _exist_journal;} @@ -120,6 +123,7 @@ bool TRegister_app::user_create() _msk->set_handler(F_TIPO, tiporeg_handler); _msk->set_handler(F_PRINTER, printer_handler); + _msk->set_handler(F_CODSPEC, codsp_handler); TConfig st(CONFIG_STUDIO, "cg"); _stampa_intest = st.get_bool("StiReg"); @@ -149,6 +153,31 @@ int TRegister_app::rewrite(const TMask& m) return TRelation_application::rewrite(m); } +bool TRegister_app::codsp_handler(TMask_field& f, KEY k) +{ + TMask & m = f.mask(); + if (f.to_check(k) || !m.is_running()) + { + TString16 codsp(f.get()); + const int len = codsp.len(); + if (len == 1 || len == 3) + { + codsp.insert(" "); + f.set(codsp); + } +/* TDate d(31, 12, m.get_int(F_ANNO)); + + m.set(F_DTF, d.string()); + CheckType c = f.check_type(); + f.check_type(CHECK_NORMAL); + const bool ok = f.check(); + f.check_type(c); + return ok; +*/ + } + return TRUE; +} + int ba5200(int argc, char* argv[]) { TRegister_app a ; diff --git a/ba/ba5200a.h b/ba/ba5200a.h index 3e218022a..4ff307df6 100755 --- a/ba/ba5200a.h +++ b/ba/ba5200a.h @@ -60,6 +60,9 @@ #define F_CODANST 188 #define F_DATASTAB 189 #define F_CODPDBST 190 +#define F_DTF 191 +#define F_DTI 192 #define F_PRINTER 201 #define F_CONFIG 202 + diff --git a/ba/ba5200a.uml b/ba/ba5200a.uml index f5ad4a842..6a55c1042 100755 --- a/ba/ba5200a.uml +++ b/ba/ba5200a.uml @@ -10,12 +10,14 @@ PAGE "Registri" -1 -1 78 18 NUMBER F_CODDITTA 5 BEGIN - PROMPT 1 1 "Ditta " - FLAGS "FRDG" + PROMPT 1 1 "Ditta " KEY 1 FIELD CODDITTA USE LF_NDITTE INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODDITTA CODDITTA OUTPUT F_RAGSOC RAGSOC OUTPUT F_ATTIVITA CODATTPREV CHECKTYPE NORMAL @@ -49,11 +51,11 @@ BEGIN OUTPUT F_CODICE CODREG OUTPUT F_ANNO ANNO OUTPUT F_DESCR DESCR - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED MESSAGE COPY,20@ MESSAGE FALSE COPY,20@ END - + STRING F_CODICE 3 BEGIN PROMPT 49 2 "Codice registro " @@ -64,7 +66,7 @@ BEGIN FLAGS "GUZ" KEY 1 GROUP 1 - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED MESSAGE COPY,21@ END @@ -81,11 +83,11 @@ BEGIN DISPLAY "Codice" CODREG DISPLAY "Tipo" TIPO COPY OUTPUT F_CODICE - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED MESSAGE COPY,22@ HELP "Descrizione del registro" WARNING "La descrizione e' obbligatoria" -END +END NUMBER F_CODLIB 2 BEGIN @@ -97,7 +99,7 @@ BEGIN INPUT CODTAB F_CODLIB DISPLAY "Codice libro" CODTAB DISPLAY "Descrizione @50" S0 - OUTPUT F_CODLIB CODTAB + OUTPUT F_CODLIB CODTAB OUTPUT F_DESCR S0 CHECKTYPE NORMAL HELP "Codice del libro sociale a cui fa riferimento il registro" @@ -138,6 +140,20 @@ BEGIN GROUP 1 END +DATE F_DTI +BEGIN + PROMPT 1 8 "Data inizio eser. " + FIELD DATAINES + GROUP 8 +END + +DATE F_DTF +BEGIN + PROMPT 40 8 "Data fine eser. " + FIELD DATAFIES + GROUP 8 +END + STRING F_ATTIVITA 5 BEGIN PROMPT 1 9 "Codice attivita " @@ -159,57 +175,58 @@ END NUMBER F_CODGRUP 2 BEGIN PROMPT 1 9 "Codice Gruppo " - FLAGS "URZ" - GROUP 8 - USE LF_DITCB SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) && (CBCDD==#F_CODDITTA) - JOIN LF_TABGR TO LF_DITCB INTO G0CGR=CBCGR + GROUP 8 + USE LF_TABGR FIELD CODGR - INPUT CBCGR F_CODGRUP - //DISPLAY "Codice Specie" CBCSP - DISPLAY "Codice Gruppo" CBCGR - DISPLAY "Data inizio esercizio" CBDTI - DISPLAY "Data fine esercizio" CBDTF + INPUT G0CGR F_CODGRUP + DISPLAY "Codice Gruppo" G0CGR DISPLAY "Descrizione@50" LF_TABGR->G0DCT - OUTPUT F_CODGRUP CBCGR - //OUTPUT F_CODSPEC CBCSP - OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT + OUTPUT F_CODGRUP G0CGR + OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT HELP "Codice Gruppo" - WARNING "Codice Gruppo non previsto per questa ditta" + WARNING "Codice Gruppo assente" + CHECKTYPE NORMAL END STRING F_CODGRUPDESCR 60 45 BEGIN PROMPT 24 9 "" - GROUP 8 + GROUP 8 FLAG "D" END STRING F_CODSPEC 4 BEGIN PROMPT 1 10 "Codice Specie " - FLAGS "URZ" - GROUP 8 - USE LF_DITCB SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) && (CBCDD==#F_CODDITTA) + GROUP 8 + FLAGS "#" + USE LF_DITCB KEY 1 SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) JOIN LF_TABAT TO LF_DITCB INTO TACGR=CBCGR TACSP=CBCSP - FIELD CODSP - INPUT CBCSP F_CODSPEC - INPUT CBCGR F_CODGRUP + FIELD CODSP + INPUT CBCDD F_CODDITTA SELECT + INPUT CBDTI F_DTI + INPUT CBDTF F_DTF + INPUT CBCGR F_CODGRUP + INPUT CBCSP F_CODSPEC DISPLAY "Codice Gruppo" CBCGR DISPLAY "Codice Specie" CBCSP DISPLAY "Data inizio esercizio" CBDTI DISPLAY "Data fine esercizio" CBDTF DISPLAY "Descrizione@50" LF_TABAT->TADCT + OUTPUT F_DTI CBDTI + OUTPUT F_DTF CBDTF OUTPUT F_CODGRUP CBCGR OUTPUT F_CODSPEC CBCSP - OUTPUT F_CODSPECDESCR LF_TABAT->TADCT - WARNING "Codice Specie non previsto per questa ditta" + OUTPUT F_CODSPECDESCR LF_TABAT->TADCT + WARNING "Codice Specie non previsto per questa ditta" + CHECKTYPE NORMAL END STRING F_CODSPECDESCR 60 45 BEGIN PROMPT 24 10 "" - GROUP 8 + GROUP 8 FLAG "D" END @@ -233,8 +250,8 @@ BEGIN WARNING "Unita' locale non prevista per questa ditta" CHECKTYPE NORMAL ADD RUN ba4 -3 -END - +END + NUMBER F_PAGSTAMP 5 BEGIN PROMPT 1 12 "Pagine stampate " @@ -287,7 +304,7 @@ BEGIN WARNING "Libro unico assente" CHECKTYPE NORMAL VALIDATE NOT_EMPTY_CHECK_FIELD -END +END BOOLEAN F_CONFIG BEGIN @@ -336,7 +353,7 @@ BEGIN PROMPT 1 3 "Descrizione " GROUP 22 FLAGS "D" -END +END BOOLEAN F_REGSOSP BEGIN @@ -345,7 +362,7 @@ BEGIN GROUP 2 3 HELP "Indicare se il registro e' in sospensione d'imposta" END - + BOOLEAN F_STAMPA_CREDITO_ANNO_PREC BEGIN PROMPT 46 5 "Stampa credito anno precedente" @@ -354,7 +371,7 @@ BEGIN GROUP 3 END -BOOLEAN F_CORRISP +BOOLEAN F_CORRISP BEGIN PROMPT 46 5 "Registro corrispettivi" HELP "Indicare se si tratta di registro dei corrispettivi" @@ -413,7 +430,7 @@ NUMBER F_TOT_INCASSI 15 BEGIN PROMPT 1 7 "Totale incassi " HELP "Progressivo degli incassi effettuati" - FIELD TOTINC + FIELD TOTINC FLAGS "R" PICTURE "." GROUP 5 @@ -438,7 +455,7 @@ BEGIN PICTURE "." GROUP 5 END - + BOOLEAN F_STAMPA_LIQUIDAZIONE BEGIN PROMPT 1 9 "Stampa liquidazione" @@ -451,7 +468,7 @@ NUMBER F_PROG_AVERE 15 BEGIN PROMPT 1 9 "Progressivo avere " HELP "Progressivo avere del giornale" - FIELD PROGAVERE + FIELD PROGAVERE FLAGS "R" PICTURE "." GROUP 6 @@ -463,7 +480,7 @@ BEGIN FIELD STCOSRIC GROUP 5 END - + BOOLEAN F_VENTIL BEGIN PROMPT 46 9 "Attivita' con ventilazione" @@ -478,7 +495,7 @@ BEGIN HELP "Mese in cui e' stata stampata l'ultima liquidazione" FIELD MESEULLIQ FLAGS "M" - ITEM "00|Nessuno" + ITEM "00|Nessuno" ITEM "13|Annuale" GROUP 2 3 4 END @@ -531,7 +548,7 @@ BEGIN ITEM "0| Normale" ITEM "1| Elite" ITEM "2| Compresso" - HELP "Indicare la densita' di stampa" + HELP "Indicare la densita' di stampa" END BOOLEAN F_MOD_12 @@ -545,16 +562,16 @@ END BOOLEAN F_STAMPA_BILINV BEGIN PROMPT 1 6 "Stampa bilancio dopo inventario" - HELP "Indicare se stampare il bilancio dopo l'inventario" - FIELD BILINV + HELP "Indicare se stampare il bilancio dopo l'inventario" + FIELD BILINV GROUP 9 END - + LISTBOX F_STAMPA_INT 25 BEGIN PROMPT 1 7 "Stampa intestazione " - HELP "Indicare se stampare intestazione" - FIELD STINT + HELP "Indicare se stampare intestazione" + FIELD STINT ITEM "1| No" ITEM "2| Su tutte le pagine" ITEM "3| Solo sulla prima pagina" @@ -564,16 +581,16 @@ END BOOLEAN F_PROSPVAR BEGIN PROMPT 1 8 "Stampa con prospetto di variazione" - HELP "Indicare se stampare il prospetto di variazione" - FIELD PROSPVAR + HELP "Indicare se stampare il prospetto di variazione" + FIELD PROSPVAR GROUP 9 END LISTBOX F_CLIFOR 25 BEGIN PROMPT 1 9 "Stampa clienti fornitori " - HELP "Indicare se stampare i clienti fornitori" - FIELD CLIFOR + HELP "Indicare se stampare i clienti fornitori" + FIELD CLIFOR ITEM "1| No" ITEM "2| Si" ITEM "3| Stampa con indirizzo" @@ -583,15 +600,15 @@ END BOOLEAN F_ST1COL BEGIN PROMPT 1 10 "Stampa ad una colonna" - HELP "Indicare se effettuare una stampa ad una colonna" - FIELD ST1COL + HELP "Indicare se effettuare una stampa ad una colonna" + FIELD ST1COL GROUP 9 END STRING F_PROFST 2 BEGIN PROMPT 1 11 "Codice profilo di stampa " - HELP "Indicare il codice del profilo di stampa" + HELP "Indicare il codice del profilo di stampa" FIELD PROFST GROUP 9 END @@ -599,24 +616,24 @@ END STRING F_CODANST 2 BEGIN PROMPT 1 13 "Dati ultima stampa: Codice Analisi " - HELP "Indicare se stampare il prospetto di variazione" - FIELD CODANST + HELP "Indicare se stampare il prospetto di variazione" + FIELD CODANST GROUP 9 END NUMBER F_DATASTAB 4 BEGIN PROMPT 1 14 "Dati ultima stampa: Anno di Bilancio " - HELP "Indicare se stampare il prospetto di variazione" - FIELD DATASTAB + HELP "Indicare se stampare il prospetto di variazione" + FIELD DATASTAB GROUP 9 END STRING F_CODPDBST 2 BEGIN PROMPT 1 15 "Dati ultima stampa: Codice Periodo Bilancio " - HELP "Indicare se stampare il prospetto di variazione" - FIELD CODPDBST + HELP "Indicare se stampare il prospetto di variazione" + FIELD CODPDBST GROUP 9 END