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_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);

29
ba/ba5200.cpp
View File

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

3
ba/ba5200a.h
View File

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

139
ba/ba5200a.uml
View File

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