root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni alla tabella registri per cespiti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3731 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-10-08 13:26:54 +00:00
parent b9b081562b
commit 1cedda421a
4 changed files with 113 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba4300.cpp
View File

@ -20,6 +20,8 @@
#define FLD_SC1_CODANAGRSOH 147 #define FLD_SC1_CODANAGRSOH 147
#define FLD_SC1_CODDITTA_NDITTE_RAGSOC 144 #define FLD_SC1_CODDITTA_NDITTE_RAGSOC 144
#define FLD_UL1_CODULC 125 #define FLD_UL1_CODULC 125
#define F_CODDITTA 142
#define F_ANNO 132
const char* CODDITTA = "CODDITTA"; const char* CODDITTA = "CODDITTA";
const char* CODATTPREV = "CODATTPREV"; const char* CODATTPREV = "CODATTPREV";
@ -131,7 +133,7 @@ bool ba4300_handler(TMask& m, KEY k)
fldbrowse = FLD_SC1_CODANAGRSOH; fldbrowse = FLD_SC1_CODANAGRSOH;
} }
if (k == K_F8) { appname = "ba3 -0 reg"; fld = 0;fldbrowse = 0;} 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()) if (appname.not_empty())
{ {
TString body(16); TString body(16);

29
ba/ba5200.cpp
View File

@ -5,6 +5,7 @@
#include "batbreg.h" #include "batbreg.h"
#include "tabreg.h" #include "tabreg.h"
#include "ba5200a.h"
#define REG_JOURNAL 5 #define REG_JOURNAL 5
@ -27,6 +28,8 @@ protected: // TRelation_application
virtual void init_modify_mode(TMask& m); virtual void init_modify_mode(TMask& m);
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
static bool codsp_handler(TMask_field& f, KEY k);
public: public:
bool exist_journal() {return _exist_journal;} 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_TIPO, tiporeg_handler);
_msk->set_handler(F_PRINTER, printer_handler); _msk->set_handler(F_PRINTER, printer_handler);
_msk->set_handler(F_CODSPEC, codsp_handler);
TConfig st(CONFIG_STUDIO, "cg"); TConfig st(CONFIG_STUDIO, "cg");
_stampa_intest = st.get_bool("StiReg"); _stampa_intest = st.get_bool("StiReg");
@ -149,6 +153,31 @@ int TRegister_app::rewrite(const TMask& m)
return TRelation_application::rewrite(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[]) int ba5200(int argc, char* argv[])
{ {
TRegister_app a ; TRegister_app a ;

3
ba/ba5200a.h
View File

@ -60,6 +60,9 @@
#define F_CODANST 188 #define F_CODANST 188
#define F_DATASTAB 189 #define F_DATASTAB 189
#define F_CODPDBST 190 #define F_CODPDBST 190
#define F_DTF 191
#define F_DTI 192
#define F_PRINTER 201 #define F_PRINTER 201
#define F_CONFIG 202 #define F_CONFIG 202

139
ba/ba5200a.uml
View File

@ -10,12 +10,14 @@ PAGE "Registri" -1 -1 78 18
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "FRDG"
KEY 1 KEY 1
FIELD CODDITTA FIELD CODDITTA
USE LF_NDITTE USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
OUTPUT F_ATTIVITA CODATTPREV OUTPUT F_ATTIVITA CODATTPREV
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -49,11 +51,11 @@ BEGIN
OUTPUT F_CODICE CODREG OUTPUT F_CODICE CODREG
OUTPUT F_ANNO ANNO OUTPUT F_ANNO ANNO
OUTPUT F_DESCR DESCR OUTPUT F_DESCR DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,20@ MESSAGE COPY,20@
MESSAGE FALSE COPY,20@ MESSAGE FALSE COPY,20@
END END
STRING F_CODICE 3 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 49 2 "Codice registro " PROMPT 49 2 "Codice registro "
@ -64,7 +66,7 @@ BEGIN
FLAGS "GUZ" FLAGS "GUZ"
KEY 1 KEY 1
GROUP 1 GROUP 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,21@ MESSAGE COPY,21@
END END
@ -81,11 +83,11 @@ BEGIN
DISPLAY "Codice" CODREG DISPLAY "Codice" CODREG
DISPLAY "Tipo" TIPO DISPLAY "Tipo" TIPO
COPY OUTPUT F_CODICE COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,22@ MESSAGE COPY,22@
HELP "Descrizione del registro" HELP "Descrizione del registro"
WARNING "La descrizione e' obbligatoria" WARNING "La descrizione e' obbligatoria"
END END
NUMBER F_CODLIB 2 NUMBER F_CODLIB 2
BEGIN BEGIN
@ -97,7 +99,7 @@ BEGIN
INPUT CODTAB F_CODLIB INPUT CODTAB F_CODLIB
DISPLAY "Codice libro" CODTAB DISPLAY "Codice libro" CODTAB
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODLIB CODTAB OUTPUT F_CODLIB CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Codice del libro sociale a cui fa riferimento il registro" HELP "Codice del libro sociale a cui fa riferimento il registro"
@ -138,6 +140,20 @@ BEGIN
GROUP 1 GROUP 1
END 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 STRING F_ATTIVITA 5
BEGIN BEGIN
PROMPT 1 9 "Codice attivita " PROMPT 1 9 "Codice attivita "
@ -159,57 +175,58 @@ END
NUMBER F_CODGRUP 2 NUMBER F_CODGRUP 2
BEGIN BEGIN
PROMPT 1 9 "Codice Gruppo " PROMPT 1 9 "Codice Gruppo "
FLAGS "URZ" GROUP 8
GROUP 8 USE LF_TABGR
USE LF_DITCB SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) && (CBCDD==#F_CODDITTA)
JOIN LF_TABGR TO LF_DITCB INTO G0CGR=CBCGR
FIELD CODGR FIELD CODGR
INPUT CBCGR F_CODGRUP INPUT G0CGR F_CODGRUP
//DISPLAY "Codice Specie" CBCSP DISPLAY "Codice Gruppo" G0CGR
DISPLAY "Codice Gruppo" CBCGR
DISPLAY "Data inizio esercizio" CBDTI
DISPLAY "Data fine esercizio" CBDTF
DISPLAY "Descrizione@50" LF_TABGR->G0DCT DISPLAY "Descrizione@50" LF_TABGR->G0DCT
OUTPUT F_CODGRUP CBCGR OUTPUT F_CODGRUP G0CGR
//OUTPUT F_CODSPEC CBCSP OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT
OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT
HELP "Codice Gruppo" HELP "Codice Gruppo"
WARNING "Codice Gruppo non previsto per questa ditta" WARNING "Codice Gruppo assente"
CHECKTYPE NORMAL
END END
STRING F_CODGRUPDESCR 60 45 STRING F_CODGRUPDESCR 60 45
BEGIN BEGIN
PROMPT 24 9 "" PROMPT 24 9 ""
GROUP 8 GROUP 8
FLAG "D" FLAG "D"
END END
STRING F_CODSPEC 4 STRING F_CODSPEC 4
BEGIN BEGIN
PROMPT 1 10 "Codice Specie " PROMPT 1 10 "Codice Specie "
FLAGS "URZ" GROUP 8
GROUP 8 FLAGS "#"
USE LF_DITCB SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) && (CBCDD==#F_CODDITTA) USE LF_DITCB KEY 1 SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO)
JOIN LF_TABAT TO LF_DITCB INTO TACGR=CBCGR TACSP=CBCSP JOIN LF_TABAT TO LF_DITCB INTO TACGR=CBCGR TACSP=CBCSP
FIELD CODSP FIELD CODSP
INPUT CBCSP F_CODSPEC INPUT CBCDD F_CODDITTA SELECT
INPUT CBCGR F_CODGRUP INPUT CBDTI F_DTI
INPUT CBDTF F_DTF
INPUT CBCGR F_CODGRUP
INPUT CBCSP F_CODSPEC
DISPLAY "Codice Gruppo" CBCGR DISPLAY "Codice Gruppo" CBCGR
DISPLAY "Codice Specie" CBCSP DISPLAY "Codice Specie" CBCSP
DISPLAY "Data inizio esercizio" CBDTI DISPLAY "Data inizio esercizio" CBDTI
DISPLAY "Data fine esercizio" CBDTF DISPLAY "Data fine esercizio" CBDTF
DISPLAY "Descrizione@50" LF_TABAT->TADCT DISPLAY "Descrizione@50" LF_TABAT->TADCT
OUTPUT F_DTI CBDTI
OUTPUT F_DTF CBDTF
OUTPUT F_CODGRUP CBCGR OUTPUT F_CODGRUP CBCGR
OUTPUT F_CODSPEC CBCSP OUTPUT F_CODSPEC CBCSP
OUTPUT F_CODSPECDESCR LF_TABAT->TADCT OUTPUT F_CODSPECDESCR LF_TABAT->TADCT
WARNING "Codice Specie non previsto per questa ditta" WARNING "Codice Specie non previsto per questa ditta"
CHECKTYPE NORMAL
END END
STRING F_CODSPECDESCR 60 45 STRING F_CODSPECDESCR 60 45
BEGIN BEGIN
PROMPT 24 10 "" PROMPT 24 10 ""
GROUP 8 GROUP 8
FLAG "D" FLAG "D"
END END
@ -233,8 +250,8 @@ BEGIN
WARNING "Unita' locale non prevista per questa ditta" WARNING "Unita' locale non prevista per questa ditta"
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN ba4 -3 ADD RUN ba4 -3
END END
NUMBER F_PAGSTAMP 5 NUMBER F_PAGSTAMP 5
BEGIN BEGIN
PROMPT 1 12 "Pagine stampate " PROMPT 1 12 "Pagine stampate "
@ -287,7 +304,7 @@ BEGIN
WARNING "Libro unico assente" WARNING "Libro unico assente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE NOT_EMPTY_CHECK_FIELD VALIDATE NOT_EMPTY_CHECK_FIELD
END END
BOOLEAN F_CONFIG BOOLEAN F_CONFIG
BEGIN BEGIN
@ -336,7 +353,7 @@ BEGIN
PROMPT 1 3 "Descrizione " PROMPT 1 3 "Descrizione "
GROUP 22 GROUP 22
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_REGSOSP BOOLEAN F_REGSOSP
BEGIN BEGIN
@ -345,7 +362,7 @@ BEGIN
GROUP 2 3 GROUP 2 3
HELP "Indicare se il registro e' in sospensione d'imposta" HELP "Indicare se il registro e' in sospensione d'imposta"
END END
BOOLEAN F_STAMPA_CREDITO_ANNO_PREC BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
BEGIN BEGIN
PROMPT 46 5 "Stampa credito anno precedente" PROMPT 46 5 "Stampa credito anno precedente"
@ -354,7 +371,7 @@ BEGIN
GROUP 3 GROUP 3
END END
BOOLEAN F_CORRISP BOOLEAN F_CORRISP
BEGIN BEGIN
PROMPT 46 5 "Registro corrispettivi" PROMPT 46 5 "Registro corrispettivi"
HELP "Indicare se si tratta di registro dei corrispettivi" HELP "Indicare se si tratta di registro dei corrispettivi"
@ -413,7 +430,7 @@ NUMBER F_TOT_INCASSI 15
BEGIN BEGIN
PROMPT 1 7 "Totale incassi " PROMPT 1 7 "Totale incassi "
HELP "Progressivo degli incassi effettuati" HELP "Progressivo degli incassi effettuati"
FIELD TOTINC FIELD TOTINC
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
GROUP 5 GROUP 5
@ -438,7 +455,7 @@ BEGIN
PICTURE "." PICTURE "."
GROUP 5 GROUP 5
END END
BOOLEAN F_STAMPA_LIQUIDAZIONE BOOLEAN F_STAMPA_LIQUIDAZIONE
BEGIN BEGIN
PROMPT 1 9 "Stampa liquidazione" PROMPT 1 9 "Stampa liquidazione"
@ -451,7 +468,7 @@ NUMBER F_PROG_AVERE 15
BEGIN BEGIN
PROMPT 1 9 "Progressivo avere " PROMPT 1 9 "Progressivo avere "
HELP "Progressivo avere del giornale" HELP "Progressivo avere del giornale"
FIELD PROGAVERE FIELD PROGAVERE
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
GROUP 6 GROUP 6
@ -463,7 +480,7 @@ BEGIN
FIELD STCOSRIC FIELD STCOSRIC
GROUP 5 GROUP 5
END END
BOOLEAN F_VENTIL BOOLEAN F_VENTIL
BEGIN BEGIN
PROMPT 46 9 "Attivita' con ventilazione" PROMPT 46 9 "Attivita' con ventilazione"
@ -478,7 +495,7 @@ BEGIN
HELP "Mese in cui e' stata stampata l'ultima liquidazione" HELP "Mese in cui e' stata stampata l'ultima liquidazione"
FIELD MESEULLIQ FIELD MESEULLIQ
FLAGS "M" FLAGS "M"
ITEM "00|Nessuno" ITEM "00|Nessuno"
ITEM "13|Annuale" ITEM "13|Annuale"
GROUP 2 3 4 GROUP 2 3 4
END END
@ -531,7 +548,7 @@ BEGIN
ITEM "0| Normale" ITEM "0| Normale"
ITEM "1| Elite" ITEM "1| Elite"
ITEM "2| Compresso" ITEM "2| Compresso"
HELP "Indicare la densita' di stampa" HELP "Indicare la densita' di stampa"
END END
BOOLEAN F_MOD_12 BOOLEAN F_MOD_12
@ -545,16 +562,16 @@ END
BOOLEAN F_STAMPA_BILINV BOOLEAN F_STAMPA_BILINV
BEGIN BEGIN
PROMPT 1 6 "Stampa bilancio dopo inventario" PROMPT 1 6 "Stampa bilancio dopo inventario"
HELP "Indicare se stampare il bilancio dopo l'inventario" HELP "Indicare se stampare il bilancio dopo l'inventario"
FIELD BILINV FIELD BILINV
GROUP 9 GROUP 9
END END
LISTBOX F_STAMPA_INT 25 LISTBOX F_STAMPA_INT 25
BEGIN BEGIN
PROMPT 1 7 "Stampa intestazione " PROMPT 1 7 "Stampa intestazione "
HELP "Indicare se stampare intestazione" HELP "Indicare se stampare intestazione"
FIELD STINT FIELD STINT
ITEM "1| No" ITEM "1| No"
ITEM "2| Su tutte le pagine" ITEM "2| Su tutte le pagine"
ITEM "3| Solo sulla prima pagina" ITEM "3| Solo sulla prima pagina"
@ -564,16 +581,16 @@ END
BOOLEAN F_PROSPVAR BOOLEAN F_PROSPVAR
BEGIN BEGIN
PROMPT 1 8 "Stampa con prospetto di variazione" PROMPT 1 8 "Stampa con prospetto di variazione"
HELP "Indicare se stampare il prospetto di variazione" HELP "Indicare se stampare il prospetto di variazione"
FIELD PROSPVAR FIELD PROSPVAR
GROUP 9 GROUP 9
END END
LISTBOX F_CLIFOR 25 LISTBOX F_CLIFOR 25
BEGIN BEGIN
PROMPT 1 9 "Stampa clienti fornitori " PROMPT 1 9 "Stampa clienti fornitori "
HELP "Indicare se stampare i clienti fornitori" HELP "Indicare se stampare i clienti fornitori"
FIELD CLIFOR FIELD CLIFOR
ITEM "1| No" ITEM "1| No"
ITEM "2| Si" ITEM "2| Si"
ITEM "3| Stampa con indirizzo" ITEM "3| Stampa con indirizzo"
@ -583,15 +600,15 @@ END
BOOLEAN F_ST1COL BOOLEAN F_ST1COL
BEGIN BEGIN
PROMPT 1 10 "Stampa ad una colonna" PROMPT 1 10 "Stampa ad una colonna"
HELP "Indicare se effettuare una stampa ad una colonna" HELP "Indicare se effettuare una stampa ad una colonna"
FIELD ST1COL FIELD ST1COL
GROUP 9 GROUP 9
END END
STRING F_PROFST 2 STRING F_PROFST 2
BEGIN BEGIN
PROMPT 1 11 "Codice profilo di stampa " 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 FIELD PROFST
GROUP 9 GROUP 9
END END
@ -599,24 +616,24 @@ END
STRING F_CODANST 2 STRING F_CODANST 2
BEGIN BEGIN
PROMPT 1 13 "Dati ultima stampa: Codice Analisi " PROMPT 1 13 "Dati ultima stampa: Codice Analisi "
HELP "Indicare se stampare il prospetto di variazione" HELP "Indicare se stampare il prospetto di variazione"
FIELD CODANST FIELD CODANST
GROUP 9 GROUP 9
END END
NUMBER F_DATASTAB 4 NUMBER F_DATASTAB 4
BEGIN BEGIN
PROMPT 1 14 "Dati ultima stampa: Anno di Bilancio " PROMPT 1 14 "Dati ultima stampa: Anno di Bilancio "
HELP "Indicare se stampare il prospetto di variazione" HELP "Indicare se stampare il prospetto di variazione"
FIELD DATASTAB FIELD DATASTAB
GROUP 9 GROUP 9
END END
STRING F_CODPDBST 2 STRING F_CODPDBST 2
BEGIN BEGIN
PROMPT 1 15 "Dati ultima stampa: Codice Periodo Bilancio " PROMPT 1 15 "Dati ultima stampa: Codice Periodo Bilancio "
HELP "Indicare se stampare il prospetto di variazione" HELP "Indicare se stampare il prospetto di variazione"
FIELD CODPDBST FIELD CODPDBST
GROUP 9 GROUP 9
END END