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

Merge branch 'R_10_00' of http://10.65.20.33/sirio/CAMPO/campo into R_10_00

Browse Source
This commit is contained in:
Simone Palacino 2019-07-03 11:11:31 +02:00
commit 890c6936dd
34 changed files with 830 additions and 452 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cd/test/ba0848.txt Normal file
View File

@ -0,0 +1,9 @@
recdesc\f23.dir
recdesc\f21.trr
recdesc\f21.dir
recdesc\f23.trr
Aggiunta data competenza costi ricavi
Issue #15
Aggiunto tipo provvisorio "B" Bilancio costi/ricavi (Prima nota, Stampa Bilancio, Apertura Chiusura conti)

34
cd/test/ba0848a.ini Normal file
View File

@ -0,0 +1,34 @@
[Main]
Demo=0
[ba2]
File(325) = recdesc\f21.dir|X
File(326) = recdesc\f21.trr|X
File(329) = recdesc\f23.dir|X
File(330) = recdesc\f23.trr|X
Patch = 848
Versione = 21511200
[ba99]
Kill(0) = batbsce.txt|x
Kill(1) = wxmsw240.dll|x
Kill(2) = bastcms.rep|x
Kill(3) = bastcms.msk|x
Kill(4) = bastfsc.msk|x
Kill(5) = bastfsc.rep|x
Kill(6) = bastuue.msk|x
Kill(7) = bastuue.rep|x
[ba]
Data = 24-05-2018
Descrizione = Base
Dischi = 1
Moduli = sy
OEM =
Patch = 848
PostProcess = bainst -0 BA
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

BIN
cd/test/ba0848a1.zip Normal file
View File

Binary file not shown.

4
cd/test/cg0846.txt
View File

@ -1,5 +1,6 @@
cg2100a.msk
cg2fppro.msk
cg2.exe
cg2100t.msk
Cambiata icona ricarica fatture su 'Fatture SDI'
Aggiunta importazione percent. e natura iva da ini con f1
@ -8,3 +9,4 @@ Corretto calcolo ritenute in maschera fppro
Sistemate larghezze colonne maschera fppro
Sistemato ordinamento fatture sdi
Aggiunta ragione sociale su maschera fppro
Cambiato nome maschera fppro

140
cd/test/cg0846a.ini
View File

@ -4,81 +4,83 @@ Demo=0
[cg2]
Edit_23 = cg2 -0
File(154) = cg2.exe|X
File(167) = cg2fppro.msk|X
File(155) = cg2100a.msk|X
File(165) = cg2100t.msk|X
Patch = 846
Versione = 21511200
[cg99]
Kill(0) = batbcve.msk|x
Kill(1) = bastzon.rep|x
Kill(2) = batbtra.msk|x
Kill(3) = batbndo.msk|x
Kill(4) = bastver.msk|x
Kill(5) = bastcfi.rep|x
Kill(6) = batbpor.msk|x
Kill(7) = bastcam.rep|x
Kill(8) = bastleg.rep|x
Kill(9) = batbver.msk|x
Kill(10) = batbcam.msk|x
Kill(11) = bastpor.msk|x
Kill(12) = bastcco.rep|x
Kill(13) = batbind.msk|x
Kill(14) = bastnot.msk|x
Kill(15) = batbivd.msk|x
Kill(0) = bastpor.rep|x
Kill(1) = batbcam.msk|x
Kill(2) = batbscc.msk|x
Kill(3) = bastnot.msk|x
Kill(4) = cgtbcon.msk|x
Kill(5) = bastdpn.msk|x
Kill(6) = bastpor.msk|x
Kill(7) = bastarb.msk|x
Kill(8) = bastmsp.rep|x
Kill(9) = batbcfi.msk|x
Kill(10) = bastndo.rep|x
Kill(11) = batblia.msk|x
Kill(12) = batbdpn.msk|x
Kill(13) = bastcco.msk|x
Kill(14) = batbpor.msk|x
Kill(15) = batbins.msk|x
Kill(16) = batbleg.msk|x
Kill(17) = batbcco.msk|x
Kill(18) = bastmsp.msk|x
Kill(19) = bastntb.rep|x
Kill(20) = bastcco.msk|x
Kill(21) = batbtit.msk|x
Kill(22) = batblia.msk|x
Kill(23) = bastscc.msk|x
Kill(24) = batbarb.msk|x
Kill(25) = bastvet.msk|x
Kill(26) = bastzon.msk|x
Kill(27) = bastesc.msk|x
Kill(28) = batbmsp.msk|x
Kill(29) = bastivd.rep|x
Kill(30) = bastndo.rep|x
Kill(31) = bastpdb.msk|x
Kill(32) = bastcve.rep|x
Kill(33) = batbvet.msk|x
Kill(34) = batbreg.msk|x
Kill(35) = bastndo.msk|x
Kill(36) = bastdpn.msk|x
Kill(37) = batblbu.msk|x
Kill(38) = bastntb.msk|x
Kill(39) = cgtbcon.msk|x
Kill(17) = batbvet.msk|x
Kill(18) = batbcco.msk|x
Kill(19) = bastver.msk|x
Kill(20) = batbind.msk|x
Kill(21) = batbntb.msk|x
Kill(22) = bastivd.msk|x
Kill(23) = bastcam.msk|x
Kill(24) = bastzon.rep|x
Kill(25) = batbivd.msk|x
Kill(26) = batbtra.msk|x
Kill(27) = batbtit.msk|x
Kill(28) = bastscc.rep|x
Kill(29) = bastarb.rep|x
Kill(30) = bastesc.rep|x
Kill(31) = bastivd.rep|x
Kill(32) = batbndo.msk|x
Kill(33) = batbinl.msk|x
Kill(34) = batblia.msk|x
Kill(35) = bastvet.msk|x
Kill(36) = bastcfi.rep|x
Kill(37) = batbdel.msk|x
Kill(38) = cg2fppro.msk|x
Kill(39) = bastver.rep|x
Kill(40) = bastvet.rep|x
Kill(41) = batbdel.msk|x
Kill(42) = batbzon.msk|x
Kill(43) = bastcam.msk|x
Kill(44) = bastpdb.rep|x
Kill(45) = bastver.rep|x
Kill(46) = bastreg.msk|x
Kill(47) = bastdpn.rep|x
Kill(48) = batblia.msk|x
Kill(49) = batbcfi.msk|x
Kill(50) = bastesc.rep|x
Kill(51) = bastcfi.msk|x
Kill(52) = batbinl.msk|x
Kill(53) = bastarb.msk|x
Kill(54) = batbscc.msk|x
Kill(55) = bastarb.rep|x
Kill(56) = bastnot.rep|x
Kill(57) = batbnot.msk|x
Kill(58) = bastcve.msk|x
Kill(59) = batbntb.msk|x
Kill(60) = bastivd.msk|x
Kill(61) = batbins.msk|x
Kill(62) = batbpdb.msk|x
Kill(63) = bastreg.rep|x
Kill(64) = batbesc.msk|x
Kill(65) = bastpor.rep|x
Kill(66) = bastmsp.rep|x
Kill(67) = bastleg.msk|x
Kill(68) = batbdpn.msk|x
Kill(69) = bastscc.rep|x
Kill(41) = bastntb.msk|x
Kill(42) = bastleg.msk|x
Kill(43) = batbzon.msk|x
Kill(44) = bastnot.rep|x
Kill(45) = batbnot.msk|x
Kill(46) = bastcam.rep|x
Kill(47) = batbver.msk|x
Kill(48) = batbarb.msk|x
Kill(49) = bastndo.msk|x
Kill(50) = batbcve.msk|x
Kill(51) = batbmsp.msk|x
Kill(52) = bastcve.msk|x
Kill(53) = bastpdb.msk|x
Kill(54) = bastreg.msk|x
Kill(55) = bastdpn.rep|x
Kill(56) = bastreg.rep|x
Kill(57) = batbesc.msk|x
Kill(58) = bastzon.msk|x
Kill(59) = batblbu.msk|x
Kill(60) = bastleg.rep|x
Kill(61) = batbreg.msk|x
Kill(62) = bastesc.msk|x
Kill(63) = bastntb.rep|x
Kill(64) = bastscc.msk|x
Kill(65) = batbpdb.msk|x
Kill(66) = bastpdb.rep|x
Kill(67) = bastcco.rep|x
Kill(68) = bastcve.rep|x
Kill(69) = bastcfi.msk|x
Kill(70) = bastmsp.msk|x
[cg]
Data = 01-07-2019

BIN
cd/test/cg0846a1.zip
View File

Binary file not shown.

12
cd/test/cg0848.txt Normal file
View File

@ -0,0 +1,12 @@
cg5500b.rep
cg2.exe
cg2100c.msk
cg2100b.msk
cg2200a.msk
cg1500a.msk
cg1.exe
Aggiunta data competenza costi ricavi
Issue #15
Aggiunto tipo provvisorio "B" Bilancio costi/ricavi (Prima nota, Stampa Bilancio, Apertura Chiusura conti)

113
cd/test/cg0848a.ini Normal file
View File

@ -0,0 +1,113 @@
[Main]
Demo=0
[cg1]
File(65) = cg5500b.rep|X
Patch = 848
Versione = 21511200
[cg2]
Edit_23 = cg2 -0
File(154) = cg2.exe|X
File(156) = cg2100b.msk|X
File(157) = cg2100c.msk|X
File(167) = cg2200a.msk|X
Patch = 848
Versione = 21511200
[cg9]
Edit_19 = cg0 -0
Edit_20 = cg0 -1
Edit_26 = cg0 -4
Edit_5 = cg0 -5
File(189) = cg1.exe|X
File(201) = cg1500a.msk|X
Patch = 848
Versione = 21511200
[cg99]
Kill(0) = bastver.msk|x
Kill(1) = batbivd.msk|x
Kill(2) = bastivd.rep|x
Kill(3) = batbcco.msk|x
Kill(4) = bastzon.rep|x
Kill(5) = bastesc.rep|x
Kill(6) = batbtit.msk|x
Kill(7) = batbinl.msk|x
Kill(8) = batbtra.msk|x
Kill(9) = batbndo.msk|x
Kill(10) = batbins.msk|x
Kill(11) = batbntb.msk|x
Kill(12) = batbpor.msk|x
Kill(13) = batbind.msk|x
Kill(14) = batbvet.msk|x
Kill(15) = bastcam.msk|x
Kill(16) = batbleg.msk|x
Kill(17) = bastivd.msk|x
Kill(18) = batblia.msk|x
Kill(19) = bastndo.rep|x
Kill(20) = bastcco.msk|x
Kill(21) = batbdpn.msk|x
Kill(22) = batblbu.msk|x
Kill(23) = batbpdb.msk|x
Kill(24) = bastzon.msk|x
Kill(25) = bastscc.msk|x
Kill(26) = bastmsp.msk|x
Kill(27) = bastcco.rep|x
Kill(28) = bastpdb.rep|x
Kill(29) = bastndo.msk|x
Kill(30) = bastdpn.rep|x
Kill(31) = batbreg.msk|x
Kill(32) = batbarb.msk|x
Kill(33) = bastreg.msk|x
Kill(34) = bastleg.rep|x
Kill(35) = batbesc.msk|x
Kill(36) = bastntb.rep|x
Kill(37) = bastreg.rep|x
Kill(38) = bastesc.msk|x
Kill(39) = bastver.rep|x
Kill(40) = batbnot.msk|x
Kill(41) = batbmsp.msk|x
Kill(42) = cg2fppro.msk|x
Kill(43) = bastnot.rep|x
Kill(44) = batbcve.msk|x
Kill(45) = batbver.msk|x
Kill(46) = bastpdb.msk|x
Kill(47) = bastcam.rep|x
Kill(48) = bastcve.msk|x
Kill(49) = bastarb.rep|x
Kill(50) = bastvet.msk|x
Kill(51) = bastntb.msk|x
Kill(52) = bastscc.rep|x
Kill(53) = batblia.msk|x
Kill(54) = bastvet.rep|x
Kill(55) = batbdel.msk|x
Kill(56) = batbzon.msk|x
Kill(57) = bastcfi.rep|x
Kill(58) = bastleg.msk|x
Kill(59) = bastcfi.msk|x
Kill(60) = bastcve.rep|x
Kill(61) = batbcfi.msk|x
Kill(62) = bastmsp.rep|x
Kill(63) = batbcam.msk|x
Kill(64) = bastpor.rep|x
Kill(65) = bastdpn.msk|x
Kill(66) = cgtbcon.msk|x
Kill(67) = bastnot.msk|x
Kill(68) = batbscc.msk|x
Kill(69) = bastarb.msk|x
Kill(70) = bastpor.msk|x
[cg]
Data = 01-07-2019
Descrizione = Contabilita' Generale
Dischi = 1
Moduli = ba
OEM =
Patch = 848
PostProcess = bainst -0 CG
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

BIN
cd/test/cg0848a1.zip Normal file
View File

Binary file not shown.

50
src/cg/cg1500.cpp
View File

@ -1449,7 +1449,7 @@ bool TStampa_bilanci::bil_verifica()
_mov_ap = FALSE;
//modifica del 19/06/95
movimentato = calcola(g,c,s);
if (_stampa_mov_prov != 3)
if (_stampa_mov_prov & 0x1)
{
if (movimentato)
{
@ -1472,7 +1472,7 @@ bool TStampa_bilanci::bil_verifica()
{
if (_annoes != 0 && (indbil_conto == 1 || indbil_conto == 2 || indbil_conto == 5))
{
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov == 2);
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov);
//modifica del 21/11/95
if (saldo_iniziale > ZERO)
_saldo_ini_dare = saldo_iniziale;
@ -1502,7 +1502,7 @@ bool TStampa_bilanci::bil_verifica()
{
if (_annoes != 0 && (indbil_conto == 1 || indbil_conto == 2 || indbil_conto == 5))
{
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov == 2);
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov);
//modifica del 21/11/95
if (saldo_iniziale > ZERO)
_saldo_ini_dare = saldo_iniziale;
@ -1543,7 +1543,7 @@ bool TStampa_bilanci::bil_verifica()
{
movimentato = sld.ultima_immissione_verifica(_annoes,g,c,s,indbil_conto,_stampa_mov_prov);
if (_stampa_mov_prov != 3)
if (_stampa_mov_prov & 0x1)
{
if (movimentato)
saldo_iniziale = sld.saldoini();
@ -1551,7 +1551,7 @@ bool TStampa_bilanci::bil_verifica()
{
if (indbil_conto == 1 || indbil_conto == 2 || indbil_conto == 5)
{
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,FALSE,_stampa_mov_prov == 2);
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,FALSE,_stampa_mov_prov);
if (_stampav == 1 && sld.significativo())
movimentato = TRUE;
}
@ -1753,10 +1753,10 @@ bool TStampa_bilanci::calcola(int g, int c, long s)
const char provvis = mov.get_char(MOV_PROVVIS);
const TDate datacomp = mov.get_date(MOV_DATACOMP);
if (_stampa_mov_prov == 1 && provvis != '\0') //bilancio normale (non comprende i provvisori)
if (_stampa_mov_prov == 0x1 && provvis != '\0') //bilancio normale (non comprende i provvisori)
continue;
if (_stampa_mov_prov == 3 && provvis == '\0') //bilancio dei soli provvisori
if (!(_stampa_mov_prov & 0x1) && provvis == '\0') //bilancio dei soli provvisori
continue;
const TString& codcaus = mov.get(MOV_CODCAUS);
@ -1853,7 +1853,7 @@ bool TStampa_bilanci::ricerca_cf(int g,int c,char tipocf,int ib, real& saldo_fin
//modifica del 19/06. Vedi appunti per capire
bool movimentato = calcola(g,c,s);
if (_stampa_mov_prov != 3)
if (_stampa_mov_prov & 0x1)
{
if (movimentato)
{
@ -1879,7 +1879,7 @@ bool TStampa_bilanci::ricerca_cf(int g,int c,char tipocf,int ib, real& saldo_fin
{
if (_annoes != 0 && (ib == 1 || ib == 2 || ib == 5))
{
saldo_iniziale += sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov==2);
saldo_iniziale += sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov);
//modifica del 21/11/1995
if (saldo_iniziale > ZERO)
_saldo_ini_dare = saldo_iniziale;
@ -1909,7 +1909,7 @@ bool TStampa_bilanci::ricerca_cf(int g,int c,char tipocf,int ib, real& saldo_fin
{
if (_annoes != 0 && (ib == 1 || ib == 2 || ib == 5))
{
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov==2);
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov);
//modifica del 21/11/1995
if (saldo_iniziale > ZERO)
_saldo_ini_dare = saldo_iniziale;
@ -1956,7 +1956,7 @@ bool TStampa_bilanci::ricerca_cf(int g,int c,char tipocf,int ib, real& saldo_fin
//modifica del 31/03/1995
bool movimentato = sld.ultima_immissione_verifica(_annoes,g,c,s,ib,_stampa_mov_prov);
if (_stampa_mov_prov != 3)
if (_stampa_mov_prov & 0x1)
{
saldo_iniziale = sld.saldoini();
if (!movimentato)
@ -1967,7 +1967,7 @@ bool TStampa_bilanci::ricerca_cf(int g,int c,char tipocf,int ib, real& saldo_fin
//solo se e' un conto patrimoniale
if (ib == 1 || ib == 2 || ib == 5)
{
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov==2);
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,s,false,_stampa_mov_prov);
movimentato = sld.significativo();
}
}
@ -2331,12 +2331,12 @@ void TStampa_bilanci::leggi_clifo(const TArray& gccf)
//modifica del 19/06/95
_indbil = cerca_indbil(g,c);
movimentato = calcola(g,c,codcf);
if (_stampa_mov_prov != 3)
if (_stampa_mov_prov & 0x1)
if (!movimentato)
if (_indbil == 1 || _indbil == 2 || _indbil == 5)
if (_annoes != 0) //cioe' se sto ragionando per competenza
{
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,codcf,false,_stampa_mov_prov==2);
saldo_iniziale = sld.saldofin_esprec(_annoes,g,c,codcf,false,_stampa_mov_prov);
if (saldo_iniziale > ZERO)
_saldo_ini_dare = saldo_iniziale;
else _saldo_ini_avere = -saldo_iniziale;
@ -2359,11 +2359,11 @@ void TStampa_bilanci::leggi_clifo(const TArray& gccf)
if (saldi.read() == NOERR)
{
const real s = saldi.get_real(SLD_SALDO);
if (_stampa_mov_prov != 3)
if (_stampa_mov_prov & 0x1)
if (_indbil == 1 || _indbil == 2 || _indbil == 5)
if (s.is_zero() && _annoes != 0) //competenza!!!
{
saldo_iniziale += sld.saldofin_esprec(_annoes,g,c,codcf,false,_stampa_mov_prov==2);
saldo_iniziale += sld.saldofin_esprec(_annoes,g,c,codcf,false,_stampa_mov_prov);
//modifica del 21/11/1995
if (saldo_iniziale > ZERO)
_saldo_ini_dare = saldo_iniziale;
@ -2398,10 +2398,10 @@ void TStampa_bilanci::leggi_clifo(const TArray& gccf)
_indbil = cerca_indbil(g,c);
movimentato = sld.ultima_immissione_verifica(anno,g,c,codcf,_indbil,_stampa_mov_prov);
if (_stampa_mov_prov != 3)
if (_stampa_mov_prov & 0x1)
if (!movimentato /* && _stampac!=1 */ )
if (_indbil == 1 || _indbil == 2 || _indbil == 5)
saldo_iniziale = sld.saldofin_esprec(anno,g,c,codcf,false,_stampa_mov_prov==2);
saldo_iniziale = sld.saldofin_esprec(anno,g,c,codcf,false,_stampa_mov_prov);
if (movimentato)
saldo_iniziale = sld.saldoini();
@ -3787,15 +3787,19 @@ bool TStampa_bilanci::set_print(int)
m.set_handler (F_DATALIM, mask_datalim);
m.set_handler (F_DATADA, mask_date);
m.set_handler (F_DATAA, mask_date);
m.set_handler (F_ANNO, mask_anno);
m.set_handler (F_ANNO, mask_anno);
m.set(F_NORMALI, "X");
while (m.run() == K_ENTER)
{
_annoes = m.get_int(F_ANNO);
_bilancio = m.get_int(F_BILANCIO);
_data = m.get(F_DATASTAMPA);
_stampa_mov_prov = m.get_int(F_STAMPAMPROV);
_quadratura = m.get_bool(F_QUADRATURA);
_stampa_mov_prov = m.get_bool(F_NORMALI) ? 0x1 : 0; // qui
_stampa_mov_prov |= m.get_bool(F_PROVVM) ? 0x2 : 0; // qui
_stampa_mov_prov |= m.get_bool(F_PROVVB) ? 0x4 : 0; // qui
_stampa_mov_prov |= m.get_bool(F_PROVVC) ? 0x8 : 0; // qui
_quadratura = m.get_bool(F_QUADRATURA);
_hide_clifo = m.get_bool(F_HIDE_CLIFO);
_noseparator = m.get_bool(F_SEPARATOR);
#ifdef CONT_SEP
@ -3905,9 +3909,9 @@ int TStampa_bilanci::stampa_intestazione_ditta()
//_stampa_mov_provv(1=normale,2=globale,3=solo provvisori)
const char* tipoprovv = "";
if (_stampa_mov_prov == 2)
if (_stampa_mov_prov > 0x1)
tipoprovv = TR("GLOBALE");
if (_stampa_mov_prov == 3)
if (!(_stampa_mov_prov & 0x1))
tipoprovv = TR("PROVVISORIO");
//l'uso della overwrite e' una vera vaccata!
riga.overwrite (format("%s %s %s %s", TR("Partita iva"), (const char*)_paiva, TR("Codice fiscale"), (const char*)_cofi));

7
src/cg/cg1500.h
View File

@ -20,7 +20,7 @@
#define F_STAMPAC 119
#define F_ORDINAMENTO 120
#define F_MODULO 121
#define F_STAMPAMPROV 122
#define F_NORMALI 122
#define F_QUADRATURA 123
#define F_SEPARATOR 124
#define F_PICTURE 125
@ -34,8 +34,11 @@
#define F_A_SOTTOCONTO 138
#define F_A_DESCRIZIONE 139
#define F_PRINT_FULL_CODE 140
#define F_PROVVM 141
#define F_PROVVB 142
#define F_PROVVC 143
#ifdef CONT_SEP
#define F_CONTSEP 141
#define F_CONTSEP 144
#endif
#endif // __CG1500_H

22
src/cg/cg1500a.uml
View File

@ -166,12 +166,24 @@ BEGIN
PROMPT 60 10 ""
END
LIST F_STAMPAMPROV 15
BOOLEAN F_NORMALI
BEGIN
PROMPT 2 11 "Bilancio "
ITEM "1|Normale"
ITEM "2|Globale"
ITEM "3|Solo provvisori"
PROMPT 2 11 "Movimenti : Normali"
END
BOOLEAN F_PROVVM
BEGIN
PROMPT 30 11 "Provv.Manuali"
END
BOOLEAN F_PROVVB
BEGIN
PROMPT 50 11 "Provv.Bilancio"
END
BOOLEAN F_PROVVC
BEGIN
PROMPT 70 11 "Provv.Cespiti"
END
LIST F_MODULO 1 12

90
src/cg/cg2100.cpp
View File

@ -46,6 +46,7 @@ public:
TDate _datadoc, _datareg;
TString8 _numdoc;
real _totale;
long _movcoll;
TString4 _causale_originale;
TipoIVA _iva_originale;
};
@ -184,7 +185,10 @@ TMask* TPrimanota_application::load_mask(int n)
// Se esiste lo sheet delle rate
if (is_fattura())
{
m->set_handler(F_DATACOMPCR, datacompcr_handler);
TSheet_field& ps = m->sfield(FS_RATESHEET);
ps.set_notify(pag_notify);
m->set_handler(FS_RATESHEET, pag_sheet_handler);
m->set_handler(F_ANNORIF, annorif_handler);
@ -672,6 +676,10 @@ void TPrimanota_application::init_mask(TMask& m)
TEdit_field& rc = m.efield(F_REVCHARGE);
rc.show(cc.iva() == iva_acquisti && cc.reverse_charge());
m.efield(F_MOVCOLL).show((cc.iva() == iva_acquisti && cc.reverse_charge()) ||
(cc.iva() == iva_vendite && cc.causale_reg_iva()));
// m.efield(F_GOCOLL).show((c.iva() == iva_acquisti && c.reverse_charge()) ||
// (c.iva() == iva_vendite && c.causale_reg_iva()));
activate_split_payment(m);
}
@ -841,6 +849,15 @@ bool TPrimanota_application::get_next_key(TToken_string& tmp)
else
tmp.add(m.get(F_DATACOMP));
if (_iva != nessuna_iva)
{
tmp.add(F_DATACOMPCR); // Ricopia data competenza
if (m.field(F_DATACOMPCR).empty())
tmp.add(m.get(F_DATAREG));
else
tmp.add(m.get(F_DATACOMPCR));
}
if (_iva == iva_vendite)
{
tmp.add(F_DATADOC); tmp.add(m.get(F_DATADOC)); // Ricopia data documento
@ -915,7 +932,11 @@ void TPrimanota_application::init_insert_mode(TMask& m)
if (_automatico->_step == 1)
genera_automatico(_automatico->_tipo, NULL);
else
{
m.reset(F_DATACOMP); // Azzera quasi sempre la data di competenza
if (m.find_by_id(F_DATACOMPCR))
m.reset(F_DATACOMPCR);
}
// La preservo solo per l'incasso immediato
_as400 = false; // Un movimento nuovo non puo' essere trasferito da AS400
@ -1145,7 +1166,7 @@ int TPrimanota_application::read(TMask& m)
}
_saldi.reset(); // Azzera saldi
_saldi.set_movprovv(_rel->curr().get_char(MOV_PROVVIS) > ' ');
_saldi.set_movprovv(_rel->curr().get_char(MOV_PROVVIS));
tiposal tsal = causale().apertura() ? apertura :
(causale().chiusura() ? chiusura : normale);
_saldi.set_tipo_saldo(tsal);
@ -1268,7 +1289,7 @@ void TPrimanota_application::mask2rel(const TMask& m)
const TDate datareg(m.get(F_DATAREG));
const int annoes = m.get_int(F_ANNOES);
_saldi.set_movprovv(m.get(F_PROVVISORIO)[0] > ' ');
_saldi.set_movprovv(m.get(F_PROVVISORIO)[0]);
tiposal tsal = causale().apertura() ? apertura :
(causale().chiusura() ? chiusura : normale);
_saldi.set_tipo_saldo(tsal);
@ -1467,8 +1488,49 @@ bool TPrimanota_application::has_tot_doc(TToken_string& fppro_keys)
return tot.full() && real(tot) != 0;
}
int TPrimanota_application::controlli_f1(const TMask& m)
void TPrimanota_application::find_movcoll(const long numreg)
{
const TCausale& cau = cached_causale(_rel->file().get(MOV_CODCAUS), _rel->file().get_int(MOV_ANNOES));
const TString4 cau_reg = cau.causale_reg_iva();
TMask * m = mask(CGMaskType::_iva);
TToken_string key(m->get(F_CLIFO)); key.add(m->get_long(F_CODCLIFOR));
const long codcli = cache().get(LF_CLIFO, key).get_long(CLI_CODCFASS);
TString query("USE ");
query << LF_MOV << " KEY 1 SELECT " << MOV_CODCAUS << "==\"" << cau_reg << "\"\nFROM " << MOV_NUMREG << "==" << numreg;
TISAM_recordset mov(query);
long movcoll = 0L;
for (bool ok = mov.move_first(); ok ; ok = mov.move_next())
{
TRectype& curr = (TRectype&) mov.cursor()->curr();
const long movcoll_found = curr.get_long(MOV_MOVCOLL);
if ((curr.get_long(MOV_CODCF) == codcli) && ((movcoll_found == 0L) || (movcoll_found == numreg)))
{
movcoll = mov.get(MOV_NUMREG).as_int();
curr.put(MOV_MOVCOLL, numreg);
curr.rewrite(TLocalisamfile(LF_MOV));
break;
}
}
if (movcoll != 0L)
m->set(F_MOVCOLL, movcoll);
}
void TPrimanota_application::set_movcoll(const long movcoll, const long numreg)
{
TRectype mov(LF_MOV);
mov.put(MOV_NUMREG, movcoll);
if (mov.read(TLocalisamfile(LF_MOV)) == NOERR)
{
mov.put(MOV_MOVCOLL, numreg);
const int err = mov.rewrite(TLocalisamfile(LF_MOV));
}
}
int TPrimanota_application::controlli_f1(const TMask& m){
if (m.find_by_id(F_PROKEY) != NULL && m.get(F_PROKEY).full() && has_f1_db((TMask*)&m) && fp_db().sq_is_connect() && check_causale(m.get(F_CODCAUS)))
{
TToken_string keys(m.get(F_PROKEY), ';');
@ -1522,8 +1584,17 @@ int TPrimanota_application::write(const TMask& m)
}
const int err = _rel->write(true);
if (err == NOERR)
{
if (cached_causale(_rel->file().get(MOV_CODCAUS), _rel->file().get_int(MOV_ANNOES)).regolarizzazione())
{
const long movcoll = _rel->file().get_long(MOV_MOVCOLL);
const long numreg = _rel->file().get_long(MOV_NUMREG);
if (movcoll != 0L)
set_movcoll(movcoll, numreg);
}
write_fppro();
_saldi.registra();
@ -1579,7 +1650,7 @@ int TPrimanota_application::write(const TMask& m)
if (tipauto <= 1)
{
causauto = causale().causale_collegata();
if (cached_causale(causauto, causale().reg().year()).ril_fat_em_ric())
if (causauto.full() && cached_causale(causauto, causale().reg().year()).ril_fat_em_ric())
tipauto = 4;
}
if (tipauto <= 0)
@ -1609,6 +1680,13 @@ int TPrimanota_application::write(const TMask& m)
int TPrimanota_application::rewrite(const TMask& m)
{
if (cached_causale(_rel->file().get(MOV_CODCAUS), _rel->file().get_int(MOV_ANNOES)).reverse_charge())
{
const long movcoll = m.get_long(F_MOVCOLL);
if (movcoll == 0L)
find_movcoll(_rel->file().get_long(MOV_NUMREG));
}
mask2rel(m);
switch (controlli_f1(m)) // Solo con F1
@ -1619,7 +1697,7 @@ int TPrimanota_application::rewrite(const TMask& m)
return _isnowarning;
default: case pro_noerr: break;
}
const int err = _rel->rewrite(true);
if (err == NOERR)
{
@ -1770,6 +1848,7 @@ void TPrimanota_application::genera_automatico(int tipo, const char* causimm)
if (_automatico->_tipo == 2)
{
_automatico->_totale += m.get_real(F_REVCHARGE) + m.get_real(F_RITFIS);
_automatico->_movcoll = m.get_long(F_NUMREG);
_automatico->_codiva = m.get(F_CODIVA);
if (_automatico->_codiva.blank() && _rel->iva_items() > 0)
_automatico->_codiva = _rel->iva(0).get(RMI_CODIVA);
@ -1847,6 +1926,7 @@ void TPrimanota_application::genera_automatico(int tipo, const char* causimm)
m.set(F_CODCLIFOR, clnt);
}
m.set(F_TOTALE, _automatico->_totale); // Imposta il totale documento e ...
m.set(F_MOVCOLL, _automatico->_movcoll); // Imposta il movimenti collegato e ...
m.set(F_CODIVA, _automatico->_codiva, true); // ... scatena creazione prima riga IVA
if (TRelation_application::is_transaction())
m.send_key(K_CTRL+'R', 0);

3
src/cg/cg2100.h
View File

@ -22,6 +22,7 @@
#define F_RITFATT 231
#define F_PROKEY 232
#define F_COLFPPRO 233
#define F_DATACOMPCR 234
#define F_CLIFO 128
#define F_CODCLIFOR 151
@ -88,6 +89,8 @@
#define F_SOTTOCONTO 182
#define F_SALDOCONTO 183
#define F_REVCHARGE 184
#define F_MOVCOLL 185
#define F_GOCOLL 186
#define F_SHEETCG 190
#define F_SHEETIVA 191

8
src/cg/cg2100b.uml
View File

@ -75,13 +75,15 @@ BEGIN
MESSAGE COPY,K_DESCRCAUS
END
LIST F_PROVVISORIO 1 24
LIST F_PROVVISORIO 1 28
BEGIN
PROMPT 1 5 "Movimento provvisorio "
PROMPT 1 5 "Mov.provvisorio "
FIELD PROVVIS
ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)"
ITEM "C|Cespiti"
ITEM "N|Si (Non cancellabile)"
ITEM "B|Si (Bilancio costi/ricavi)"
ITEM "C|Si (Cespiti)"
END
STRING F_TIPODOC 2

128
src/cg/cg2100c.uml
View File

@ -85,9 +85,16 @@ BEGIN
FIELD REG
END
DATE F_DATACOMPCR
BEGIN
PROMPT 1 3 "Data comp.c/r "
FIELD DATACOMPCR
FLAGS "G"
END
STRING F_CODCAUS 3
BEGIN
PROMPT 1 3 "Causale "
PROMPT 1 4 "Causale "
FLAGS "UZ"
FIELD CODCAUS
USE LF_CAUSALI SELECT REG!=""
@ -107,7 +114,7 @@ END
STRING F_DESCRCAUS 50
BEGIN
PROMPT 25 3 ""
PROMPT 25 4 ""
USE LF_CAUSALI KEY 2 SELECT REG!=""
INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR
@ -122,13 +129,13 @@ END
STRING F_NUMDOCEXT 50
BEGIN
PROMPT 1 4 "Numero documento esteso "
PROMPT 1 5 "Numero documento esteso "
FIELD NUMDOCEXT
END
STRING F_NUMDOC 7
BEGIN
PROMPT 1 5 "Documento n. "
PROMPT 1 6 "Documento n. "
FIELD NUMDOC
FLAGS "U"
WARNING "La causale o il saldaconto richiedono il numero documento"
@ -136,7 +143,7 @@ END
DATE F_DATADOC
BEGIN
PROMPT 27 5 "Data documento "
PROMPT 27 6 "Data documento "
FIELD DATADOC
WARNING "Inserire una data documento non superiore alla data dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG
@ -144,37 +151,38 @@ END
STRING F_TIPODOC 2
BEGIN
PROMPT 56 5 "Tipo "
PROMPT 56 6 "Tipo "
FIELD TIPODOC
FLAGS "D"
END
BUTTON F_LINKDOC 3 1
BEGIN
PROMPT 73 5 "Doc."
PROMPT 73 6 "Doc."
END
LIST F_SOLAIVA 1 3
BEGIN
PROMPT 1 6 "Movimento di sola IVA "
PROMPT 1 7 "Movimento di sola IVA "
ITEM " |No"
ITEM "X|Si"
END
LIST F_PROVVISORIO 1 22
LIST F_PROVVISORIO 1 28
BEGIN
PROMPT 31 6 "Movimento provvisorio "
PROMPT 31 7 "Mov.provvisorio "
FIELD PROVVIS
ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)"
ITEM "N|Si (Non cancellabile)"
ITEM "C|Cespiti"
ITEM "B|Si (Bilancio costi/ricavi)"
ITEM "C|Si (Cespiti)"
FLAGS "DG"
END
STRING F_DESCAGG 5 6
BEGIN
PROMPT 1 7 "Descrizione "
PROMPT 1 8 "Descrizione "
FLAGS "UZ"
USE %DPN
INPUT CODTAB F_DESCAGG
@ -187,7 +195,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 25 7 ""
PROMPT 25 8 ""
FIELD DESCR
USE %DPN KEY 2
INPUT S0 F_DESCR
@ -198,13 +206,13 @@ END
NUMBER F_PROTIVA 6
BEGIN
PROMPT 1 8 "Protocollo IVA "
PROMPT 1 9 "Protocollo IVA "
FIELD PROTIVA
END
NUMBER F_RIEPILOGO 6
BEGIN
PROMPT 25 8 "Riepilogo al n."
PROMPT 25 9 "Riepilogo al n."
FIELD UPROTIVA
NUM_EXPR {(#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)}
WARNING "Inserire un riepilogo non inferiore al protocollo IVA (Obbigatorio se il cliente/fornitore ha codice inserimento in allegati uguale a 3)"
@ -212,14 +220,14 @@ END
LIST F_DIFFERITA 1 19
BEGIN
PROMPT 48 8 "Liquid. "
PROMPT 48 9 "Liquid. "
ITEM " |periodo in corso"
ITEM "X|periodo precedente"
END
NUMBER F_CODCLIFOR 6
BEGIN
PROMPT 1 9 "Cliente "
PROMPT 1 10 "Cliente "
FIELD CODCF
GROUP 1
USE LF_CLIFO
@ -244,7 +252,7 @@ END
STRING F_RAGSOCCF 50
BEGIN
PROMPT 25 9 ""
PROMPT 25 10 ""
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF F_CLIFO SELECT
@ -262,7 +270,7 @@ END
STRING F_COFI 16
BEGIN
PROMPT 1 10 "C.F. "
PROMPT 1 11 "C.F. "
GROUP 1
USE LF_CLIFO KEY 4
INPUT TIPOCF F_CLIFO SELECT
@ -279,7 +287,7 @@ END
STRING F_PIVA 12
BEGIN
PROMPT 26 10 "P.I. "
PROMPT 26 11 "P.I. "
GROUP 1
USE LF_CLIFO KEY 5
INPUT TIPOCF F_CLIFO SELECT
@ -297,7 +305,7 @@ END
STRING F_STATOPAIV 2
BEGIN
PROMPT 46 10 ""
PROMPT 46 11 ""
FLAGS "U"
USE %SCE
INPUT CODTAB F_STATOPAIV
@ -309,7 +317,7 @@ END
STRING F_RICALT 30 18
BEGIN
PROMPT 52 10 "Alt. "
PROMPT 52 11 "Alt. "
USE LF_CLIFO KEY 6
INPUT TIPOCF F_CLIFO SELECT
INPUT RICALT F_RICALT
@ -327,13 +335,13 @@ END
BUTTON F_OCCASEDIT 50
BEGIN
PROMPT 1 10 "Dati del cliente o fornitore occasionale"
PROMPT 1 11 "Dati del cliente o fornitore occasionale"
FLAGS "H"
END
STRING F_CODPAG 4
BEGIN
PROMPT 1 11 "Codice Pagamento "
PROMPT 1 12 "Codice Pagamento "
FIELD CODPAG
FLAGS "U#"
USE %CPG
@ -349,7 +357,7 @@ END
STRING F_DESPAG 50
BEGIN
PROMPT 25 11 ""
PROMPT 25 12 ""
USE %CPG KEY 2
INPUT S0 F_DESPAG
DISPLAY "Descrizione@60" S0
@ -362,7 +370,7 @@ END
LIST F_CLIFO 1 10
BEGIN
PROMPT 1 12 "Tipo "
PROMPT 1 13 "Tipo "
ITEM "|Conto"
ITEM "C|Cliente"
ITEM "F|Fornitore"
@ -372,7 +380,7 @@ END
NUMBER F_BOLLACODCLI 6
BEGIN
PROMPT 1 12 "Forn. collegato "
PROMPT 1 13 "Forn. collegato "
FIELD CFBOLLADOG
USE LF_CLIFO
INPUT TIPOCF "F"
@ -392,7 +400,7 @@ END
STRING F_BOLLARAGCLI 50 47
BEGIN
PROMPT 28 12 ""
PROMPT 28 13 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_BOLLARAGCLI
@ -412,7 +420,7 @@ END
STRING SK_VALUTA 3
BEGIN
PROMPT 1 13 "Valuta "
PROMPT 1 14 "Valuta "
FIELD CODVAL
FLAGS "UZ"
GROUP 3
@ -427,7 +435,7 @@ END
DATE SK_DATACAMBIO
BEGIN
PROMPT 18 13 "Data cambio "
PROMPT 18 14 "Data cambio "
FIELD DATACAM
FLAGS "R"
USE CAM
@ -446,7 +454,7 @@ END
NUMBER SK_CAMBIO 15 6
BEGIN
PROMPT 44 13 "Cambio "
PROMPT 44 14 "Cambio "
FIELD CAMBIO
FLAGS "RU"
GROUP 3
@ -457,13 +465,13 @@ END
CURRENCY F_TOTALE 18
BEGIN
PROMPT 1 14 "Totale documento "
PROMPT 1 15 "Totale documento "
FIELD TOTDOC
END
CURRENCY SK_TOTDOCVAL 18
BEGIN
PROMPT 38 14 "in valuta "
PROMPT 38 15 "in valuta "
FIELD TOTDOCVAL
GROUP 3
VALIDATE REQIF_FUNC 1 F_TOTALE
@ -472,7 +480,7 @@ END
STRING F_CODIVA 4
BEGIN
PROMPT 67 14 "IVA "
PROMPT 67 15 "IVA "
FLAGS "U"
USE %IVA
INPUT CODTAB F_CODIVA
@ -488,25 +496,39 @@ END
CURRENCY F_RITFIS 18
BEGIN
PROMPT 1 15 "Ritenute fiscali "
PROMPT 1 16 "Ritenute fiscali "
FIELD RITFIS
END
CURRENCY F_RITSOC 18
BEGIN
PROMPT 1 16 "Ritenute sociali "
PROMPT 1 17 "Ritenute sociali "
FIELD RITSOC
END
CURRENCY F_REVCHARGE 18
BEGIN
PROMPT 1 17 "Reverse charge "
PROMPT 1 18 "Reverse charge "
FIELD REVCHARGE
END
NUMBER F_MOVCOLL 7
BEGIN
PROMPT 40 18 "Mov.collegato"
WARNING "Movimento collegato reverse charge"
FIELD MOVCOLL
FLAGS "HDG"
END
BUTTON F_GOCOLL 10 1
BEGIN
PROMPT 64 18 "Mov.Coll."
FLAGS "HDG"
END
DATE F_DATA74TER
BEGIN
PROMPT 52 15 "Data 74/ter "
PROMPT 52 16 "Data 74/ter "
WARNING "E' richiesta la data del 74/ter"
CHECKTYPE REQUIRED
FIELD DATA74TER
@ -514,14 +536,14 @@ END
BOOLEAN F_IVAXCASSA
BEGIN
PROMPT 1 18 "IVA per cassa"
PROMPT 1 20 "IVA per cassa"
FIELD IVAXCASSA
MODULE IC
END
BOOLEAN F_LIQDIFF
BEGIN
PROMPT 25 18 "Liquidazione differita"
PROMPT 25 20 "Liquidazione differita"
WARNING "Data di incasso per liquidazione differita"
FIELD LIQDIFF
MESSAGE FALSE CLEAR,F_DATAINC
@ -531,7 +553,7 @@ END
LIST F_SPLITPAY 1 2
BEGIN
PROMPT 51 18 "Scissione pagamenti "
PROMPT 51 20 "Scissione pagamenti "
FIELD SPLITPAY
ITEM "| "
ITEM "S|Si"
@ -541,28 +563,28 @@ END
DATE F_DATAINC
BEGIN
PROMPT 52 17 "Data incasso "
PROMPT 52 19 "Data incasso "
WARNING "Data di incasso per liquidazione differita"
FIELD DATAINC
END
NUMBER F_ANNORIF 4
BEGIN
PROMPT 48 16 "Rif.partita "
PROMPT 48 17 "Rif.partita "
FIELD LF_PARTITE->ANNO
FLAGS "U"
END
STRING F_NUMRIF 7
BEGIN
PROMPT 66 16 "/ "
PROMPT 66 17 "/ "
FIELD LF_PARTITE->NUMPART
FLAGS "U#"
END
STRING F_VALUTAINTRA 3
BEGIN
PROMPT 1 19 "Cambio intracom. "
PROMPT 1 21 "Cambio intracom. "
FIELD CODVALI
FLAGS "UZ"
GROUP 4
@ -580,7 +602,7 @@ END
NUMBER F_CAMBIOINTRA 15 6
BEGIN
PROMPT 25 19 ""
PROMPT 25 21 ""
FIELD CAMBIOI
FLAGS "U"
GROUP 4
@ -589,20 +611,20 @@ END
DATE F_DATAINTRA
BEGIN
PROMPT 43 19 "Data competenza intra "
PROMPT 43 21 "Data competenza intra "
FIELD DATACOMPI
END
CURRENCY F_CORRISPETTIVO 18
BEGIN
PROMPT 1 20 "Corrispettivo "
PROMPT 1 22 "Corrispettivo "
FIELD CORRLIRE
GROUP 4
END
CURRENCY F_CORRVALUTA 18
BEGIN
PROMPT 39 20 "Corrispet. valuta "
PROMPT 39 22 "Corrispet. valuta "
FIELD CORRVALUTA
GROUP 4
VALIDATE REQIF_FUNC 1 F_VALUTAINTRA
@ -617,7 +639,7 @@ END
STRING F_PROKEY 80
BEGIN
PROMPT 1 19 "db key"
PROMPT 1 20 "db key"
HELP "Chiave database"
FIELD KEYFPPRO
FLAGS "H"
@ -625,7 +647,7 @@ END
BOOLEAN F_RITFATT
BEGIN
PROMPT 1 21 "Fattura in ritardo "
PROMPT 1 23 "Fattura in ritardo "
FIELD RITFATT
END
@ -638,7 +660,7 @@ END
#endif
STRING NP_CONTSEP 6
BEGIN
PROMPT 1 22 "Cont. separata "
PROMPT 1 23 "Cont. separata "
USE &NPENT
INPUT CODTAB NP_CONTSEP
DISPLAY "Codice@6" CODTAB
@ -651,7 +673,7 @@ END
STRING NP_DESCONTSEP 50
BEGIN
PROMPT 25 22 ""
PROMPT 25 24 ""
USE &NPENT KEY 2
INPUT S0 NP_DESCONTSEP
DISPLAY "Descrizione@50" S0

37
src/cg/cg2102.cpp
View File

@ -2328,12 +2328,17 @@ bool TPrimanota_application::caus_modify_handler(TMask_field& f, KEY key)
TString4 provv; provv << c.provvisorio();
m.set(F_PROVVISORIO, provv);
if (c.iva() != nessuna_iva && mask_ok)
{
m.set(F_SOLAIVA, c.soloiva() ? "X" : " ");
m.efield(F_REVCHARGE).show(c.iva() == iva_acquisti && c.reverse_charge());
a.activate_split_payment(m);
}
}
if (c.iva() != nessuna_iva && mask_ok)
{
m.efield(F_REVCHARGE).show(c.iva() == iva_acquisti && c.reverse_charge());
m.efield(F_MOVCOLL).show((c.iva() == iva_acquisti && c.reverse_charge()) ||
(c.iva() == iva_vendite && c.causale_reg_iva()));
// m.efield(F_GOCOLL).show((c.iva() == iva_acquisti && c.reverse_charge()) ||
// (c.iva() == iva_vendite && c.causale_reg_iva()));
a.activate_split_payment(m);
}
// Se la causale ha come tipo documento una bolla doganale, se si abilito i campi per collegare il fornitore
if(m.find_by_id(F_BOLLACODCLI) != NULL)
{
@ -2544,10 +2549,32 @@ bool TPrimanota_application::datacomp_handler(TMask_field& f, KEY key)
return f.error_box(FR("%s non appartiene a nessun esercizio"), data);
}
}
return true;
}
// Handler of the F_DATACOMP field on the modify mask
// Certified 90%
bool TPrimanota_application::datacompcr_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
if (key == K_ENTER)
{
const TDate dr(m.get(F_DATAREG)); // Data operazione
TDate datacompcr(f.get());
if (datacompcr.empty())
{
f.set(dr);
datacompcr = dr;
}
if (datacompcr > dr)
return f.message_box(TR("La data di competenze costi/ricavi maggiore di %s"), dr.stringa());
}
return true;
}
// Handler of the F_DATA74TER field on the modify mask
// Certified 90%
bool TPrimanota_application::data74ter_handler(TMask_field& f, KEY key)

13
src/cg/cg2102.h
View File

@ -80,7 +80,7 @@ class TPrimanota_application : public TRelation_application
bool _sal_dirty; // Il saldaconto e' stato "toccato"?
TipoIVA _iva; // Tipo di IVA corrente
TCausale* _causale; // Causale corrente
TCausale * _causale; // Causale corrente
TLibro_giornale* _giornale; // Libro giornale corrente
long _lastreg; // Numero ultima registrazione
@ -118,8 +118,9 @@ class TPrimanota_application : public TRelation_application
static void check_fppro_fields(TMask& m);
static bool caus_modify_handler(TMask_field& f, KEY key);
static bool datareg_handler(TMask_field& f, KEY key);
static bool datacomp_handler(TMask_field& f, KEY key);
static bool data74ter_handler(TMask_field& f, KEY key);
static bool datacomp_handler(TMask_field& f, KEY key);
static bool datacompcr_handler(TMask_field& f, KEY key);
static bool data74ter_handler(TMask_field& f, KEY key);
static bool datadoc_handler(TMask_field& f, KEY key);
static bool numdoc_handler(TMask_field& f, KEY key);
static bool ndocext_handler(TMask_field& f, KEY key);
@ -251,7 +252,9 @@ protected: // TRelation_application
virtual bool is_transaction() const;
virtual bool get_next_key(TToken_string& key);
virtual int read(TMask& m);
virtual int write(const TMask& m);
void find_movcoll(const long numreg);
void set_movcoll(const long movcoll, const long numreg);
virtual int write(const TMask& m);
virtual int rewrite(const TMask& m);
virtual bool remove();
virtual void write_enable(bool) {}
@ -385,7 +388,7 @@ public:
void reset_colors();
real calcola_saldo() const;
TCausale& causale() const { return *_causale; }
TCausale& causale() const { return * _causale; }
TPartite_array& partite() { return _partite; } // Partite editate
bool edit_pagamento(TPartita& p, int nriga, int nrata, int nrigp);
bool notify_edit_pagamento(TPartita& partita, TRectype& new_pag,

36
src/cg/cg2103.cpp
View File

@ -17,13 +17,23 @@ TCausale::TCausale(const char* cod, int year)
: TArray(12), _rec(LF_CAUSALI),
_iva(iva_errata), _corrisp(false),
_sezione_clifo(' '), _provvisorio(' '),
_sezione_ritsoc(' '), _sezione_ritfis(' '), _sezione_revcharge(' ')
_sezione_ritsoc(' '), _sezione_ritfis(' '), _sezione_revcharge(' '),
_regolarizzazione(false)
{
_regolarizzazione = 0x2;
if (cod && *cod)
read(cod, year);
if (cod && *cod)
read(cod, year);
if (soloiva())
{
TCursor c(new TRelation(LF_CAUSALI));
int items = c.items();
for (c = 0L; c.pos() < items && !_regolarizzazione; ++c)
_regolarizzazione = c.curr().get(CAU_CODCAUREG) == codice();
}
}
bool TCausale::reread()
{
const TString4 cod = codice();
@ -145,22 +155,8 @@ bool TCausale::soloiva() const
int TCausale::regime_speciale() const
{ return _rec.get_int(CAU_REGSPIVA); }
bool TCausale::regolarizzazione()
{
if ((int) _regolarizzazione == 0x2)
{
_regolarizzazione = false;
if (soloiva())
{
TCursor c(new TRelation(LF_CAUSALI));
int items = c.items();
for (c = 0L; c.pos() < items && !_regolarizzazione; ++c)
_regolarizzazione = c.curr().get(CAU_CODCAUREG) == codice();
}
}
return _regolarizzazione != 0;
}
bool TCausale::regolarizzazione() const
{ return _regolarizzazione; }
bool TCausale::ril_fat_em_ric() const
{

4
src/cg/cg2103.h
View File

@ -14,7 +14,7 @@ class TCausale : public TArray
TipoIVA _iva;
bool _corrisp;
char _sezione_clifo, _sezione_ritsoc, _sezione_ritfis, _sezione_revcharge, _provvisorio;
int _regolarizzazione;
bool _regolarizzazione;
protected:
const TRectype* row(int num) const { return (const TRectype*)objptr(num); }
@ -41,7 +41,7 @@ public:
bool valintra() const;
bool soloiva() const;
bool reverse_charge() const;
bool regolarizzazione();
bool regolarizzazione() const;
bool ril_fat_em_ric() const;
bool datareg_prec() const;
char provvisorio() const { return _provvisorio; }

7
src/cg/cg2200.cpp
View File

@ -158,8 +158,9 @@ bool TProvvisori_msk::on_field_event(TOperable_field& o, TField_event e, long jo
switch (o.get()[0])
{
case 'C': fil << "=\"C\""; break;
case 'P': fil << "=\"P\""; break;
default : fil << "!=\"\""; break;
case 'B': fil << "=\"B\""; break;
case 'P': fil << "=\"P\""; break;
default : fil << "!=\"\""; break;
}
update_search(F_FROMDATE, fil);
update_search(F_TODATE, fil);
@ -297,7 +298,7 @@ void TProvvisori_app::aggiungi_saldi(const TRectype& r, bool lettura)
TBill conto; conto.get(r);
TImporto importo(r.get_char(RMV_SEZIONE), r.get_real(RMV_IMPORTO));
_saldi.set_movprovv(lettura); // In lettura sono tutti provvisori
_saldi.set_movprovv(lettura); // In lettura sono tutti provvisori qui
_saldi.aggiorna(conto, importo, !lettura); // In lettura devo sottrarre l'importo
}

5
src/cg/cg2200a.uml
View File

@ -24,12 +24,13 @@ ENDPAGE
PAGE "Gestione Movimenti Provvisori" -1 -1 52 14
LIST F_PROVV 10
LIST F_PROVV 25
BEGIN
PROMPT 1 0 "@bTipo movimenti provvisori "
ITEM "P|Contabili"
ITEM " |Tutti"
ITEM "C|Cespiti"
ITEM "B|Bilancio costi/ricavi"
ITEM "C|Cespiti"
END
GROUPBOX DLG_NULL 50 3

16
src/cg/cg4600.cpp
View File

@ -728,7 +728,7 @@ void TApertura_chiusura::costi()
}
s = saldi.get_long(SLD_SOTTOCONTO);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil);
_saldo = sale.saldo();
if (_saldo.is_zero())
@ -875,7 +875,7 @@ void TApertura_chiusura::ricavi()
//numrig++;
s = saldi.get_long(SLD_SOTTOCONTO);
//sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil);
_saldo = sale.saldo();
if (_saldo.is_zero()) continue;
@ -1114,7 +1114,7 @@ void TApertura_chiusura::chiudi_attivita()
}
s = saldi.get_long(SLD_SOTTOCONTO);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil);
_saldo = sale.saldo();
const int dbkey = saldi.getkey();
saldi.setkey(1);
@ -1264,7 +1264,7 @@ void TApertura_chiusura::chiudi_passivita()
//numrig++;
s = saldi.get_long(SLD_SOTTOCONTO);
//sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil);
_saldo = sale.saldo();
if (_saldo.is_zero()) continue;
@ -1409,7 +1409,7 @@ void TApertura_chiusura::chiudi_conti_ordine()
}
s = saldi.get_long(SLD_SOTTOCONTO);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil);
_saldo = sale.saldo();
const int dbkey = saldi.getkey();
saldi.setkey(1);
@ -1606,7 +1606,7 @@ void TApertura_chiusura::apri_attivita()
//numrig++;
s = saldi.get_long(SLD_SOTTOCONTO);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1, false);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 0x1, false);
_saldo = sale.saldo();
if (_saldo == ZERO) continue;
@ -1752,7 +1752,7 @@ void TApertura_chiusura::apri_passivita()
//numrig++;
s = saldi.get_long(SLD_SOTTOCONTO);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1, false);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 0x1, false);
_saldo = sale.saldo();
if (_saldo.is_zero()) continue;
@ -1898,7 +1898,7 @@ void TApertura_chiusura::apri_conti_ordine()
//numrig++;
s = saldi.get_long(SLD_SOTTOCONTO);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1, false);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 0x1, false);
_saldo = sale.saldo();
if (_saldo == ZERO) continue;

2
src/cg/cg5500b.uml
View File

@ -313,7 +313,7 @@ END
CURRENCY S_INTERESSI 15
BEGIN
PROMPT 1 6 "Interessi "
PROMPT 1 7 "Interessi "
FLAGS "RD"
END

455
src/cg/cglib02.cpp
View File

@ -95,7 +95,7 @@ TSaldo::TSaldo() : _saldi(LF_SALDI), _saldoiniziale(ZERO), _saldo_iniziale(ZERO)
}
}
real TSaldo::saldofin_esprec(int annoes, int g, int c, long s, bool saldo_chiusura, bool provvis)
real TSaldo::saldofin_esprec(int annoes, int g, int c, long s, bool saldo_chiusura, int provv)
{
_significativo = false;
@ -107,8 +107,6 @@ real TSaldo::saldofin_esprec(int annoes, int g, int c, long s, bool saldo_chiusu
const real saldo = _saldi.get_real(SLD_SALDO);
const real pdare = _saldi.get_real(SLD_PDARE);
const real pavere = _saldi.get_real(SLD_PAVERE);
const real pdarepro = _saldi.get_real(SLD_PDAREPRO);
const real paverepro = _saldi.get_real(SLD_PAVEREPRO);
const char flagsf = _saldi.get_char(SLD_FLAGSALFIN);
const real saldosf = _saldi.get_real(SLD_SALDOFIN);
@ -125,19 +123,29 @@ real TSaldo::saldofin_esprec(int annoes, int g, int c, long s, bool saldo_chiusu
tot -= saldosf; // che e' l'unico programma ad usare la funzione
} // passandogli come flag saldo_chiusura il valore true.
if (provvis)
{
tot += pdarepro;
tot -= paverepro;
}
if (provv & 0x2)
{
tot += _saldi.get_real(SLD_PDAREPRO);
tot -= _saldi.get_real(SLD_PAVEREPRO);
}
if (provv & 0x4)
{
tot += _saldi.get_real(SLD_PDAREPROB);
tot -= _saldi.get_real(SLD_PAVEREPROB);
}
if (provv & 0x8)
{
tot += _saldi.get_real(SLD_PDAREPROC);
tot -= _saldi.get_real(SLD_PAVEREPROC);
}
_significativo = !tot.is_zero();
return tot;
}
//richiamata nel bilancio a sez.contr per data limite
//in realtà calcola il saldo finale es.prec
real TSaldo::calcola_saldo_iniziale(int g,int c,long s,int indbil, bool provvis)
real TSaldo::calcola_saldo_iniziale(int g,int c,long s,int indbil, int provv)
{
real saldoini;
_significativo = true;
@ -162,7 +170,7 @@ real TSaldo::calcola_saldo_iniziale(int g,int c,long s,int indbil, bool provvis)
if (indbil == 1 || indbil == 2 || indbil == 5)
{
_prec = true;
saldoini = saldofin_esprec(_annoes, g, c, s, false, provvis);
saldoini = saldofin_esprec(_annoes, g, c, s, false, provv);
}
_saldo_iniziale = saldoini;
}
@ -187,7 +195,7 @@ bool TSaldo::leggi_mov(long nr)
//per bilancio scalare (ovvero a sezioni contrapposte) per data limite
bool TSaldo::data_limite_bilancio(int bilancio, int g, int c, long s, const TDate& data_inf,
const TDate& data_sup, int indbil, int stp_prov, const char* filter)
const TDate& data_sup, int indbil, int provv, const char* filter)
{
_saldo_iniziale = ZERO;
_saldo = ZERO;
@ -208,8 +216,8 @@ bool TSaldo::data_limite_bilancio(int bilancio, int g, int c, long s, const TDat
cur.freeze();
// Anche se non movimentato vado a vedere il saldo
if (stp_prov != 3 && (filter == NULL || *filter == '\0'))
_saldo = calcola_saldo_iniziale(g,c,s,indbil,stp_prov == 2);
if ((provv & 0x1) && (filter == NULL || *filter == '\0'))
_saldo = calcola_saldo_iniziale(g,c,s,indbil,provv);
for (cur = 0L; cur.pos() < items; ++cur)
{
@ -234,34 +242,30 @@ bool TSaldo::data_limite_bilancio(int bilancio, int g, int c, long s, const TDat
// "Se la causale del movimento e' di chiusura,
// o di apertura il movimento non va considerato"
if (_codcaus.not_empty())
if (_codcaus.full())
{
const TString& movap = _causali_apertura.decode(_codcaus);
if (movap == "C")
continue;
}
//bilancio normale (non comprende i provvisori) ?
if (stp_prov == 1 && _provv.not_empty())
continue;
//bilancio dei soli provvisori ?
if (stp_prov == 3 && _provv.empty())
continue;
const char sezione = rmov.get_char(RMV_SEZIONE);
const real importo = rmov.get_real(RMV_IMPORTO);
// I mov. di puro riferimento (= con importo = 0) vanno scartati
if (importo.is_zero())
continue;
_movimentato = true;
if (((provv & 0x1) && _provv.blank()) ||
((provv & 0x2) && ((_provv == "P") || (_provv == "N"))) ||
((provv & 0x4) && (_provv == "B")) || ((provv & 0x8) && (_provv == "C")))
{
const char sezione = rmov.get_char(RMV_SEZIONE);
const real importo = rmov.get_real(RMV_IMPORTO);
if (sezione == 'D')
_saldo += importo;
else
_saldo -= importo;
// I mov. di puro riferimento (= con importo = 0) vanno scartati
if (importo != ZERO)
{
_movimentato = true;
if (sezione == 'D')
_saldo += importo;
else
_saldo -= importo;
}
}
}
#ifdef DBG
@ -273,11 +277,10 @@ bool TSaldo::data_limite_bilancio(int bilancio, int g, int c, long s, const TDat
//per bilancio di verifica all'ultima immissione
bool TSaldo::ultima_immissione_verifica(int annoes,int g,int c,long s,int indbil,int stp_prov)
bool TSaldo::ultima_immissione_verifica(int annoes,int g,int c,long s,int indbil, int provv)
{
//Si considerano i saldi e non piu' i movimenti
char sezione;
real pdarepro, paverepro;
bool esito = false;
_saldo_iniziale = ZERO;
@ -310,21 +313,14 @@ bool TSaldo::ultima_immissione_verifica(int annoes,int g,int c,long s,int indbil
_saldo_iniziale = _saldi.get_real(SLD_SALDO);
_prg_dare = _saldi.get_real(SLD_PDARE);
_prg_avere = _saldi.get_real(SLD_PAVERE);
pdarepro = _saldi.get_real(SLD_PDAREPRO);
paverepro = _saldi.get_real(SLD_PAVEREPRO);
sezione = _saldi.get_char(SLD_FLAGSALINI);
_sezsf = _saldi.get_char(SLD_FLAGSALFIN); // W96SALDI del 19-06-96 modifica richiesta
_saldofin = _saldi.get_real(SLD_SALDOFIN); // da PATRIZIA
if (stp_prov == 1) //bilancio normale (senza provvisori)
if (provv == 1) //bilancio normale (senza provvisori)
if (_saldo_iniziale.is_zero() && _prg_dare.is_zero() && _prg_avere.is_zero())
return esito;
// if (stp_prov == 0 && paverepro == ZERO)
if (stp_prov == 3 && paverepro.is_zero() && pdarepro.is_zero()) // Modifica del 24-09-96 errore MI0890.
{
_saldo = _prg_dare = _prg_avere = ZERO; // N.B. Non e' detto che funzioni sempre!!!!!!
return esito;
}
if (sezione == 'A')
_saldo_iniziale = -_saldo_iniziale;
if (_sezsf == 'A')
@ -333,34 +329,35 @@ bool TSaldo::ultima_immissione_verifica(int annoes,int g,int c,long s,int indbil
_saldoiniziale = _saldo_iniziale; //saldo iniziale presente sul record saldi
//non comprensivo del saldo finale es.precedente
if (_saldo_iniziale.is_zero() && stp_prov != 3)
if (_saldo_iniziale.is_zero() && !(provv & 0x1))
{
if (indbil == 1 || indbil == 2 || indbil == 5)
_saldo_iniziale += saldofin_esprec(annoes,g,c,s, false, stp_prov == 2);
_saldo_iniziale += saldofin_esprec(annoes,g,c,s, false, provv);
}
esito = true;
switch (stp_prov)
_saldo = _saldo_iniziale + _saldofin;
if (!(provv & 0x1))
{
case 1:
_saldo = _saldo_iniziale + _prg_dare - _prg_avere + _saldofin; // W96SALDI del 19-06-96
break;
case 2:
_saldo = _saldo_iniziale + _prg_dare - _prg_avere + pdarepro - paverepro + _saldofin; // W96SALDI del 19-06-96
if (pdarepro != ZERO) // Modifica del 24-09-96 errore MI0890: nel caso in cui i progressivi
_prg_dare = pdarepro; // pdarepro o paverepro sono compilati sono in presenza di un movimento
if (paverepro != ZERO) // provvisorio, dunque li trasferisco nei progressivi che poi uso nel
_prg_avere = paverepro; // CG1500 per la stampa.
break;
case 3:
_saldo = pdarepro - paverepro;
_prg_dare = pdarepro; // Idem come sopra.
_prg_avere = paverepro; // N.B. Non e' detto che funzioni sempre!!!!!!
break;
default:
break;
}
_prg_dare = ZERO;
_prg_avere = ZERO;
}
if (provv & 0x2)
{
_prg_dare += _saldi.get_real(SLD_PDAREPRO);
_prg_avere += _saldi.get_real(SLD_PAVEREPRO);
}
if (provv & 0x4)
{
_prg_dare += _saldi.get_real(SLD_PDAREPROB);
_prg_avere += _saldi.get_real(SLD_PAVEREPROB);
}
if (provv & 0x8)
{
_prg_dare += _saldi.get_real(SLD_PDAREPROC);
_prg_avere += _saldi.get_real(SLD_PAVEREPROC);
}
}
return esito;
}
@ -372,13 +369,13 @@ bool TSaldo::ultima_immissione_verifica(int annoes,int g,int c,long s,int indbil
// risulterebbero aperti); siccome alcuni programmi (esempio il bilancio IV dir. CEE) non ne
// devono tenere conto, si e' data la possibilità di usare la funzione passandogli il parametro a false.
// Modifica del 09-07-96
bool TSaldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil,int stp_prov,bool saldo_chiusura)
bool TSaldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil,int provv,bool saldo_chiusura)
{
//Si considerano i saldi e non piu' i movimenti
char sezione;
// int gruppo, conto, annoe;
// long sottoconto;
real pdarepro, paverepro;
real pdarepro, paverepro, pdareprob, pavereprob, pdareproc, pavereproc;
bool esito = false;
_saldo_iniziale = ZERO;
@ -413,21 +410,25 @@ bool TSaldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil
_saldo_iniziale = _saldi.get_real(SLD_SALDO);
_prg_dare = _saldi.get_real(SLD_PDARE);
_prg_avere = _saldi.get_real(SLD_PAVERE);
pdarepro = _saldi.get_real(SLD_PDAREPRO);
paverepro = _saldi.get_real(SLD_PAVEREPRO);
sezione = _saldi.get_char(SLD_FLAGSALINI);
pdarepro = _saldi.get_real(SLD_PDAREPRO);
paverepro = _saldi.get_real(SLD_PAVEREPRO);
pdareprob = _saldi.get_real(SLD_PDAREPROB);
pavereprob = _saldi.get_real(SLD_PAVEREPROB);
pdareproc = _saldi.get_real(SLD_PDAREPROC);
pavereproc = _saldi.get_real(SLD_PAVEREPROC);
sezione = _saldi.get_char(SLD_FLAGSALINI);
_sezsf = _saldi.get_char(SLD_FLAGSALFIN);
_saldofin = _saldi.get_real(SLD_SALDOFIN);
if (stp_prov == 1) //bilancio normale (senza provvisori)
esito = (_saldo_iniziale != ZERO || _prg_dare != ZERO || _prg_avere != ZERO);
if (stp_prov == 2) //bilancio globale (con provvisori)
esito = (_saldo_iniziale != ZERO || _prg_dare != ZERO || _prg_avere != ZERO
|| pdarepro != ZERO || paverepro != ZERO);
if (stp_prov == 3) //bilancio dei soli mov. provvisori
esito = (pdarepro != ZERO || paverepro != ZERO);
esito = false;
if (provv & 0x1)
esito |= (_saldo_iniziale != ZERO || _prg_dare != ZERO || _prg_avere != ZERO);
if (provv & 0x2) // (con provvisori manuali)
esito |= (pdarepro != ZERO || paverepro != ZERO);
if (provv & 0x4) // (con provvisori bilancio costi/ricavi)
esito |= (pdareprob != ZERO || pavereprob != ZERO);
if (provv & 0x8) // (con provvisori cespiti)
esito |= (pdareproc != ZERO || pavereproc != ZERO);
if (sezione == 'A')
_saldo_iniziale = -_saldo_iniziale;
@ -439,34 +440,30 @@ bool TSaldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil
_rec_presente_ec = esito;
}
if (_saldo_iniziale.is_zero() && stp_prov != 3)
if (_saldo_iniziale.is_zero() && (provv & 0x1))
if (indbil == 1 || indbil == 2 || indbil == 5)
{
_prec = true;
_saldo_iniziale += saldofin_esprec(annoes,g,c,s,false,stp_prov==2);
_saldo_iniziale += saldofin_esprec(annoes,g,c,s,false,provv);
}
if (stp_prov == 1)
_saldo = _saldo_iniziale + _prg_dare - _prg_avere;
if (stp_prov == 2)
_saldo = _saldo_iniziale + _prg_dare - _prg_avere + pdarepro - paverepro;
if (stp_prov == 3)
_saldo = pdarepro - paverepro;
if (saldo_chiusura) // W96SALDI modifica inserita per il discorso di inclusione oppure
_saldo = ZERO;
if (provv & 0x1)
_saldo += _saldo_iniziale + _prg_dare - _prg_avere;
if (provv & 0x2) // (con provvisori manuali)
_saldo += pdarepro - paverepro;
if (provv & 0x4) // (con provvisori bilancio costi/ricavi)
_saldo += pdareprob - pavereprob;
if (provv & 0x8) // (con provvisori cespiti)
_saldo += pdareproc - pavereproc;
if (saldo_chiusura && (provv & 0x1)) // W96SALDI modifica inserita per il discorso di inclusione oppure
_saldo += _saldofin; // no del saldo di chiusura inserita il 09-07-96
#ifdef __LONGDOUBLE__
_saldo.round(TCurrency::get_firm_dec());
#endif
return esito;
}
const real& TSaldo::saldo_periodo(int g, int c, long s, const TDate& dal, const TDate& al,
int indbil, bool provv)
int indbil, int provv)
{
_saldo_iniziale = ZERO;
@ -496,9 +493,7 @@ const real& TSaldo::saldo_periodo(int g, int c, long s, const TDate& dal, const
_prec = _saldo_iniziale.is_zero() && (indbil == 1 || indbil == 2 || indbil == 5);
if (_prec)
{
_saldo_iniziale = saldofin_esprec(codes,g,c,s);
}
else
{
if (saldo.get_char(SLD_FLAGSALINI) == 'A')
@ -542,7 +537,7 @@ const real& TSaldo::saldo_periodo(int g, int c, long s, const TDate& dal, const
leggi_mov(num_reg);
const TString& movap = _causali_apertura.decode(_codcaus);
if ((provv || _provv.empty()) && movap.blank())
if (!((provv & 0x1) || _provv.empty()) && movap.blank()) // ????
{
if (_datacomp >= dal && _datacomp <= al)
{
@ -701,8 +696,10 @@ bool TSaldo::saldo_cont_sep(int g, int c, long s, const int codes, TDate al,
_datacomp = mov.get(MOV_DATACOMP);
const TString& movap = _causali_apertura.decode(_codcaus);
if (provv > 1 || _provv.empty())
{
if (((provv & 0x1) && _provv.empty()) ||
((provv & 0x2) && (_provv == "P" || _provv == "N")) ||
(provv & 0x4) && (_provv == "B") || (provv & 0x8) && (_provv == "C"))
{
if (_datacomp >= inizio && _datacomp <= al)
{
if (movap.blank())
@ -797,7 +794,7 @@ void TTab_conti::remove(const TBill& c, int anno, bool scar)
void TTab_conti::aggiorna_conto(const TBill& tcon,
int anno_es, const TImporto& importo, tiposal movap,
bool provv, bool somma, bool movimentato, bool scaricato)
char provv, bool somma, bool movimentato, bool scaricato)
{
TContoExt* tc = (TContoExt*)find(tcon, anno_es, scaricato);
if (tc == NULL)
@ -805,40 +802,56 @@ void TTab_conti::aggiorna_conto(const TBill& tcon,
const real i(somma ? importo.valore() : -importo.valore());
if (provv)
{
if (importo.sezione() == 'D')
tc->darepro() += i;
else
tc->averepro() += i;
}
else
{
if (movap == apertura)
{
if (importo.sezione() == 'D')
tc->saldo() += i;
else
tc->saldo() -= i;
}
else
{
if (movap == chiusura)
if ((provv == 'P') || (provv == 'N'))
{
if (importo.sezione() == 'D')
tc->darepro() += i;
else
tc->averepro() += i;
}
else
if (provv == 'B')
{
if (importo.sezione() == 'D')
tc->dareprob() += i;
else
tc->avereprob() += i;
}
else
if (provv == 'C')
{
if (importo.sezione() == 'D')
tc->dareproc() += i;
else
tc->avereproc() += i;
}
else
{
if (importo.sezione() == 'D')
tc->saldofin() += i;
if (movap == apertura)
{
if (importo.sezione() == 'D')
tc->saldo() += i;
else
tc->saldo() -= i;
}
else
tc->saldofin() -= i;
{
if (movap == chiusura)
{
if (importo.sezione() == 'D')
tc->saldofin() += i;
else
tc->saldofin() -= i;
}
else
{
if (importo.sezione() == 'D')
tc->dare() += i;
else
tc->avere() += i;
}
}
}
else
{
if (importo.sezione() == 'D')
tc->dare() += i;
else
tc->avere() += i;
}
}
}
// rimuovo dalla tabella il conto se dare e avere vanno a zero
@ -945,8 +958,6 @@ void TSaldo_agg::clear_saldi(int year)
void TSaldo_agg::registra()
{
real si, r;
char flag_salini;
TDate data_ulmov;
long num_ulmov;
TLocalisamfile saldi(LF_SALDI);
@ -978,19 +989,19 @@ void TSaldo_agg::registra()
saldi.put(SLD_SOTTOCONTO, tcon.sottoconto());
saldi.put(SLD_FLSCA, tcon.scaricato());
si = tcon.saldo();
if (si < ZERO)
{ flag_salini = 'A'; si = -si; }
else
flag_salini = 'D';
const bool swap = tcon.saldo() < ZERO;
saldi.put(SLD_FLAGSALINI, flag_salini);
saldi.put(SLD_SALDO, si);
saldi.put(SLD_FLAGSALINI, swap ? "A" : "D");
saldi.put(SLD_SALDO, swap ? -tcon.saldo() : tcon.saldo());
saldi.put(SLD_PDARE, tcon.dare());
saldi.put(SLD_PAVERE, tcon.avere());
saldi.put(SLD_PDAREPRO, tcon.darepro());
saldi.put(SLD_PAVEREPRO, tcon.averepro());
saldi.put(SLD_PDAREPRO, tcon.darepro());
saldi.put(SLD_PAVEREPRO, tcon.averepro());
saldi.put(SLD_PDAREPROB, tcon.dareprob());
saldi.put(SLD_PAVEREPROB, tcon.avereprob());
saldi.put(SLD_PDAREPROC, tcon.dareproc());
saldi.put(SLD_PAVEREPROC, tcon.avereproc());
real sf = tcon.saldofin();
char flag_salfin = sf < ZERO ? 'A' : 'D';
if (flag_salfin == 'A') sf = -sf;
@ -1014,12 +1025,15 @@ void TSaldo_agg::registra()
saldi.put(SLD_NUMULTMOV, _num_ulmov);
if ((_data_ulmov.ok()) && (_data_ulmov > data_ulmov))
saldi.put(SLD_DATAULMOV, _data_ulmov);
r = tcon.saldo();
si = saldi.get_real(SLD_SALDO);
flag_salini = saldi.get_char(SLD_FLAGSALINI);
const real r = tcon.saldo();
real si = saldi.get_real(SLD_SALDO);
char flag_salini = saldi.get_char(SLD_FLAGSALINI);
if (!r.is_zero())
{
if (flag_salini == 'A')
if (flag_salini == 'A')
si = r - si;
else
si += r;
@ -1033,75 +1047,72 @@ void TSaldo_agg::registra()
saldi.put(SLD_FLAGSALINI, flag_salini);
saldi.put(SLD_SALDO, si);
}
TImporto sld('D', tcon.saldo());
TImporto old_sld(saldi.get_char(SLD_FLAGSALINI), saldi.get_real(SLD_SALDO));
sld += old_sld;
sld.normalize();
saldi.put(SLD_FLAGSALINI, sld.sezione());
saldi.put(SLD_SALDO, sld.valore());
TImporto sf('D', tcon.saldofin());
char old_flag_sf = saldi.get(SLD_FLAGSALFIN)[0];
TImporto old_sf(old_flag_sf, saldi.get_real(SLD_SALDOFIN));
TImporto old_sf(saldi.get_char(SLD_FLAGSALFIN), saldi.get_real(SLD_SALDOFIN));
sf += old_sf;
sf.normalize();
saldi.put(SLD_FLAGSALFIN, sf.sezione());
saldi.put(SLD_SALDOFIN, sf.valore());
r = saldi.get_real(SLD_PDARE);
r += tcon.dare();
saldi.put(SLD_PDARE, r);
saldi.add(SLD_PDARE, tcon.dare());
saldi.add(SLD_PAVERE, tcon.avere());
saldi.add(SLD_PDAREPRO, tcon.darepro());
saldi.add(SLD_PAVEREPRO, tcon.averepro());
saldi.add(SLD_PDAREPROB, tcon.dareprob());
saldi.add(SLD_PAVEREPROB, tcon.avereprob());
saldi.add(SLD_PDAREPROC, tcon.dareproc());
saldi.add(SLD_PAVEREPROC, tcon.avereproc());
r = saldi.get_real(SLD_PAVERE);
r += tcon.avere();
saldi.put(SLD_PAVERE, r);
r = saldi.get_real(SLD_PDAREPRO);
r += tcon.darepro();
saldi.put(SLD_PDAREPRO, r);
const int err = saldi.rewrite();
r = saldi.get_real(SLD_PAVEREPRO);
r += tcon.averepro();
saldi.put(SLD_PAVEREPRO, r);
const int err = saldi.rewrite();
if (err != NOERR)
yesnofatal_box(FR("Errore %d nell'aggiornamento del saldo %d %d %ld"),
err, tcon.gruppo(), tcon.conto(), tcon.sottoconto());
}
// Calcolo saldo finale per controllo segno in prima nota
if (si.is_zero())
{
TLocalisamfile pcon(LF_PCON);
TRectype& curr = pcon.curr();
curr.put(PCN_GRUPPO, tcon.gruppo());
curr.put(PCN_CONTO, tcon.conto());
const int err = pcon.read();
if (err == NOERR)
{
const int indbil = curr.get_int(PCN_INDBIL);
if (indbil == 1 || indbil == 2 || indbil == 5)
{
TSaldo saldo;
si = saldo.saldofin_esprec(annoes, tcon.gruppo(), tcon.conto(), tcon.sottoconto());
if (si < ZERO)
{
flag_salini = 'A';
si = -si;
}
else
flag_salini = 'D';
}
}
else
{
// Era errore fatale
}
}
TImporto sf(flag_salini, si);
const TImporto dare('D', saldi.get_real(SLD_PDARE));
const TImporto avere('A', saldi.get_real(SLD_PAVERE));
sf += dare;
sf += avere;
sf.normalize(+1); // Rendi sempre positivo
tcon.saldo_finale() = sf;
// Calcolo saldo finale per controllo segno in prima nota
if (si.is_zero())
{
TLocalisamfile pcon(LF_PCON);
TRectype& curr = pcon.curr();
curr.put(PCN_GRUPPO, tcon.gruppo());
curr.put(PCN_CONTO, tcon.conto());
if (pcon.read() == NOERR)
{
const int indbil = curr.get_int(PCN_INDBIL);
if (indbil == 1 || indbil == 2 || indbil == 5)
{
TSaldo saldo;
si = saldo.saldofin_esprec(annoes, tcon.gruppo(), tcon.conto(), tcon.sottoconto());
if (si < ZERO)
{
flag_salini = 'A';
si = -si;
}
else
flag_salini = 'D';
}
}
}
TImporto sldf(flag_salini, si);
const TImporto dare('D', saldi.get_real(SLD_PDARE));
const TImporto avere('A', saldi.get_real(SLD_PAVERE));
sldf += dare;
sldf += avere;
sldf.normalize(+1); // Rendi sempre positivo
tcon.saldo_finale() = sldf;
}
}
}
@ -1113,14 +1124,14 @@ TBalance::TBalance()
{
}
TBalance::TBalance(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis)
TBalance::TBalance(int g, int c, long s, int esercizio, bool ignora_movap, bool provv)
{
read(g, c, s, esercizio, ignora_movap, provvis);
read(g, c, s, esercizio, ignora_movap, provv);
}
TBalance::TBalance(const TBill& b, int esercizio, bool ignora_movap, bool provvis)
TBalance::TBalance(const TBill& b, int esercizio, bool ignora_movap, bool provv)
{
read(b, esercizio, ignora_movap, provvis);
read(b, esercizio, ignora_movap, provv);
}
bool TBalance::find(const TBill& b, int esercizio,
@ -1141,8 +1152,12 @@ bool TBalance::find(const TBill& b, int esercizio,
av.set('A', saldi.get_real(SLD_PAVERE));
sf.set(saldi.get_char(SLD_FLAGSALFIN), saldi.get_real(SLD_SALDOFIN));
pd.set('D', saldi.get_real(SLD_PDAREPRO));
pa.set('A', saldi.get_real(SLD_PAVEREPRO));
}
pd += TImporto('D', saldi.get_real(SLD_PDAREPROB));
pd += TImporto('D', saldi.get_real(SLD_PDAREPROC));
pa.set('A', saldi.get_real(SLD_PAVEREPRO));
pa += TImporto('A', saldi.get_real(SLD_PAVEREPROB));
pa += TImporto('A', saldi.get_real(SLD_PAVEREPROC));
}
else
{
si.set('D', ZERO);
@ -1151,10 +1166,10 @@ bool TBalance::find(const TBill& b, int esercizio,
return ok;
}
void TBalance::read(int gruppo, int conto, long sottoconto, int esercizio, bool ignora_movap, bool provvis)
void TBalance::read(int gruppo, int conto, long sottoconto, int esercizio, bool ignora_movap, bool provv) // qui
{
const TBill zio(gruppo, conto, sottoconto);
read(zio, esercizio, ignora_movap, provvis);
read(zio, esercizio, ignora_movap, provv);
}
int TBalance::indicatore_bilancio(const TBill& b) const
@ -1173,12 +1188,12 @@ int TBalance::indicatore_bilancio(const TBill& b) const
return ib;
}
void TBalance::read(const TBill& b, int esercizio, bool ignora_movap, bool provvis)
void TBalance::read(const TBill& b, int esercizio, bool ignora_movap, bool provv)
{
TImporto si, sf, pd, pa, prd, pra;
find(b, esercizio, si, pd, pa, sf, prd, pra);
if (provvis)
if (provv)
{
pd += prd;
pa += pra;
@ -1197,7 +1212,7 @@ void TBalance::read(const TBill& b, int esercizio, bool ignora_movap, bool provv
const int precedente = esercizi.pred(esercizio);
if (precedente > 0 && find(b, precedente, si, pd, pa, sf, prd, pra))
{
if (provvis)
if (provv)
{
pd += prd;
pa += pra;

46
src/cg/cglib02.h
View File

@ -17,7 +17,7 @@ class TCausale;
class TConto : public TBill
{
real _dare, _avere, _darepro, _averepro, _saldofin, _saldo;
real _dare, _avere, _darepro, _averepro, _dareprob, _avereprob, _dareproc, _avereproc, _saldofin, _saldo;
TImporto _saldo_finale;
public:
@ -38,7 +38,19 @@ public:
real& averepro() { return _averepro; }
const real& averepro() const { return _averepro; }
real& saldo() { return _saldo; }
real& dareprob() { return _dareprob; }
const real& dareprob() const { return _dareprob; }
real& avereprob() { return _avereprob; }
const real& avereprob() const { return _avereprob; }
real& dareproc() { return _dareproc; }
const real& dareproc() const { return _dareproc; }
real& avereproc() { return _avereproc; }
const real& avereproc() const { return _avereproc; }
real& saldo() { return _saldo; }
const real& saldo() const { return _saldo; }
real& saldofin() { return _saldofin; }
@ -94,7 +106,7 @@ class TSaldo : public TObject
protected:
void InFinEs(int);
bool leggi_mov(long numreg); // Leggi testata
real calcola_saldo_iniziale(int g, int c, long s, int indbil, bool provvis);
real calcola_saldo_iniziale(int g, int c, long s, int indbil, int provv = 0x1);
bool prg_saldo(int, TConto&, real&, real&, bool);
const real& iniziale() const { return _saldo_iniziale;}
void set_iniziale(const real& val) { _saldo_iniziale = val; }
@ -115,14 +127,14 @@ public:
bool causale_mov(long, const TDate&, const TDate&, TString&);
bool ultima_immissione_bilancio(int annoes, int g,int c,long s,int indbil,int prov,bool saldo_chiusura = true);
bool ultima_immissione_verifica(int annoes, int g,int c,long s,int indbil,int prov);
bool data_limite_bilancio(int annoes,int g,int c,long s,const TDate& data_inf,const TDate& data_suo,int indbil,int stp_prov, const char* filter = NULL);
const real& saldo_periodo(int g, int c, long s, const TDate& dal, const TDate& al, int indbil, bool provv);
bool saldo_cont_sep(int g, int c, long s, const int codes, TDate al, int indbil, const char * cont_sep, int provv, bool chiusura = false, bool first = true);
bool ultima_immissione_bilancio(int annoes, int g,int c,long s,int indbil,int provv = 0x1,bool saldo_chiusura = true);
bool ultima_immissione_verifica(int annoes, int g,int c,long s,int indbil,int provv = 0x1);
bool data_limite_bilancio(int annoes,int g,int c,long s,const TDate& data_inf,const TDate& data_suo,int indbil, int provv = 0x1, const char* filter = NULL);
const real& saldo_periodo(int g, int c, long s, const TDate& dal, const TDate& al, int indbil, int provv = 0x1);
bool saldo_cont_sep(int g, int c, long s, const int codes, TDate al, int indbil, const char * cont_sep, int provv = 0x1, bool chiusura = false, bool first = true);
bool ricerca_progr_prec(int, int, int, long);
real saldofin_esprec(int,int,int,long,bool saldo_chiusura = FALSE, bool provvisori = FALSE);
real saldofin_esprec(int,int,int,long,bool saldo_chiusura = FALSE, int provv = 0x1);
bool prg_attuali(int i,TConto& c, real& p1, real& p2)
{ return prg_saldo(i, c, p1, p2, FALSE); }
bool prg_mov_eliminati(int i, TConto& c, real& p1, real& p2)
@ -153,7 +165,7 @@ protected:
public:
void aggiorna_conto(const TBill& tc, int anno_es, const TImporto& importo,
tiposal movap, bool provv, bool somma, bool movimentato, bool scaricato);
tiposal movap, char provv, bool somma, bool movimentato, bool scaricato);
TConto* add(const TBill& c, int anno, bool provv = FALSE);
TConto* find(const TBill& c, int anno, bool provv = FALSE);
@ -167,7 +179,7 @@ class TSaldo_agg : public TObject
TDate _data_ulmov; // data ultimo movimento
long _num_ulmov; // numero ultimo movimento
tiposal _movap; // se e' mov. d'apertura (aggiorno SALDO e FLAGSALINI in saldi)
bool _provv;
char _provv;
TRectype* _rec; // record corrente sui saldi
bool _movimentato; // di default e' FALSE; viene usato a TRUE solo quando voglio
// che un conto sia movimentato sui saldi anche se progressivi
@ -189,8 +201,8 @@ public:
void set_tipo_saldo (tiposal movap) { _movap = movap; }
tiposal tipo_saldo() const { return _movap; }
void set_movprovv (bool p) { _provv = p; }
bool movprovv() const { return _provv; }
void set_movprovv (char p) { _provv = p; }
char movprovv() const { return _provv; }
void set_movimentato (bool movimentato) { _movimentato = movimentato; }
bool movimentato() const { return _movimentato; }
@ -223,8 +235,8 @@ protected:
int indicatore_bilancio(const TBill& b) const;
public:
void read(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis);
void read(const TBill& b, int esercizio, bool ignora_movap, bool provvis);
void read(int g, int c, long s, int esercizio, bool ignora_movap, bool provv);
void read(const TBill& b, int esercizio, bool ignora_movap, bool provv);
void reread();
const TImporto& saldo_iniziale() const;
@ -236,8 +248,8 @@ public:
TImporto saldo_finale_chiusura() const;
TBalance();
TBalance(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis);
TBalance(const TBill& b, int esercizio, bool ignora_movap, bool provvis);
TBalance(int g, int c, long s, int esercizio, bool ignora_movap, bool provv);
TBalance(const TBill& b, int esercizio, bool ignora_movap, bool provv);
virtual ~TBalance() { }
};

2
src/cg/f21.dir
View File

@ -1,3 +1,3 @@
21
0
$saldi|||143|0|Saldi|||
$saldi|||215|0|Saldi|||

6
src/cg/f21.trr
View File

@ -1,5 +1,5 @@
21
15
19
ANNOES|9|4|0|Codice esercizio
GRUPPO|2|3|0|Gruppo
CONTO|2|3|0|Conto
@ -13,6 +13,10 @@ PDARE|4|18|3|Progressivo dare
PAVERE|4|18|3|Progressivo avere
PDAREPRO|4|18|3|Progressivo dare movimenti provvisori
PAVEREPRO|4|18|3|Progressivo avere movimenti provvisori
PDAREPROB|4|18|3|Progressivo dare movimenti provvisori bilancio costi ricavi
PAVEREPROB|4|18|3|Progressivo avere movimenti provvisori bilancio costi ricavi
PDAREPROC|4|18|3|Progressivo dare movimenti provvisori cespiti
PAVEREPROC|4|18|3|Progressivo avere movimenti provvisori cespiti
DATAULMOV|5|8|0|Data ultimo movimento
NUMULTMOV|3|7|0|Numero operazione dell'ultimo movimento
3

2
src/cg/f23.dir
View File

@ -1,3 +1,3 @@
23
0
$mov|96174|96174|559|0|Movimenti di prima nota|NMOV||
$mov|||574|0|Movimenti di prima nota|NMOV||

6
src/cg/f23.trr
View File

@ -1,9 +1,10 @@
23
60
62
ANNOES|9|4|0|Codice esercizio
NUMREG|3|7|0|Numero di operazione
DATAREG|5|8|0|Data operazione
DATACOMP|5|8|0|Data competenza
DATACOMPCR|5|8|0|Data competenza costi/ricavi
DATADOC|5|8|0|Data documento
RITFATT|8|1|0|Fattura in ritardo
DATA74TER|5|8|0|Data per art. 74 ter
@ -31,7 +32,7 @@ TOTDOCVAL|4|18|3|Totale documento in valuta
RITFIS|4|18|3|Ritenute fiscali
RITSOC|4|18|3|Ritenute sociali
REVCHARGE|4|18|3|Reverse charge
PROVVIS|1|1|0|Tipo movimento (" " Normale, "P" Provvisorio cancellabile, "C" Provvisorio cespiti)
PROVVIS|1|1|0|Tipo movimento (< > Normale, Provvisorio <P> cancellabile, <C> cespiti, <B> bilancio costi/ricavi
CODVALI|1|3|0|Codice valuta intra-comunitaria
CAMBIOI|4|15|6|Cambio della valuta intra-comunitaria
CORRLIRE|4|18|3|Corrispettivo in lire intra-comunitario
@ -60,6 +61,7 @@ TFINVIO|7|1|0|Flag Invio Trasferimento Fatture
TFDATA|5|8|0|Data ultimo invio Trasferimento Fatture
IVALIQ|8|1|0|Iva per cassa liquidata completamente
KEYFPPRO|1|80|0|Chiavi dell'FPPRO [KEYPRGINVIO;KEYHEADERFATT;KEYBODYFATT]
MOVCOLL|3|7|0|Movimento collegato
4
NUMREG|
DATAREG+NUMREG|X

13
src/include/isam.h
View File

@ -212,8 +212,10 @@ public:
void put(const char* fieldname, long double val)
{ put(fieldname, real(val)); }
#endif
// @cmember Incrementa il contenuto del campo <p fieldname> in formato reale
void add(const char* fieldname, const real& val);
// @cmember Incrementa il contenuto del campo <p fieldname> in formato reale
void add(const char* fieldname, const real& val);
// @cmember Decrementa il contenuto del campo <p fieldname> in formato reale
void sub(const char* fieldname, const real& val) { add(fieldname, -val); }
// @cmember Vuota il campo puntato da <p fieldname>
virtual void zero(const char * fieldname);
@ -513,6 +515,13 @@ public:
void put(const char* fieldname, const char* val)
{ curr().put(fieldname, val);}
// @cmember Incrementa il contenuto del campo <p fieldname> di tipo real
void add(const char* fieldname, const real& val)
{ curr().add(fieldname, val); }
// @cmember Incrementa il contenuto del campo <p fieldname> di tipo real
void sub(const char* fieldname, const real& val)
{ curr().sub(fieldname, val); }
// @cmember Vuota il contenuto del campo <p fieldname> nel record corrente (vedi <mf TRectype::zero>)
void zero(const char * fieldname)
{ curr().zero(fieldname);}

1
src/include/mov.h
View File

@ -59,6 +59,7 @@
#define MOV_IVALIQ "IVALIQ"
#define MOV_KEYFPPRO "KEYFPPRO"
#define MOV_DATAELABF9 "DATAELABF9"
#define MOV_MOVCOLL "MOVCOLL"
#define NUMREG_PROVVISORIO 999999L

6
src/include/saldi.h
View File

@ -11,8 +11,12 @@
#define SLD_PAVERE "PAVERE"
#define SLD_DATAULMOV "DATAULMOV"
#define SLD_NUMULTMOV "NUMULTMOV"
#define SLD_PAVEREPRO "PAVEREPRO"
#define SLD_PDAREPRO "PDAREPRO"
#define SLD_PAVEREPRO "PAVEREPRO"
#define SLD_PDAREPROB "PDAREPROB"
#define SLD_PAVEREPROB "PAVEREPROB"
#define SLD_PDAREPROC "PDAREPROC"
#define SLD_PAVEREPROC "PAVEREPROC"
#define SLD_FLSCA "FLSCA"
#define SLD_FLAGSALFIN "FLAGSALFIN"
#define SLD_SALDOFIN "SALDOFIN"

5
src/tc/tc8200.cpp
View File

@ -184,6 +184,11 @@ long TPayLine_app::export_clifo(long codcf, TPayLine_recset& clienti, TLog_repor
row.add(TR("Fallimento"), 9); // Status legale
row.add(TR("Bloccato"), 10); // Status bloccato
}
else
{
row.add("", 9); // Status legale
row.add("", 10); // Status bloccato
}
clienti.new_rec(row);
return codcf;