Merge branch 'R_10_00' of http://10.65.20.17:7990/scm/campo/campo into R_10_00
This commit is contained in:
commit
2ce1d2274b
4
cd/test/770698.txt
Normal file
4
cd/test/770698.txt
Normal file
@ -0,0 +1,4 @@
|
||||
77tbca7.msk
|
||||
777.exe
|
||||
|
||||
Certificazione unica (CU) 2019
|
32
cd/test/770698a.ini
Normal file
32
cd/test/770698a.ini
Normal file
@ -0,0 +1,32 @@
|
||||
[Main]
|
||||
Demo=0
|
||||
|
||||
[771]
|
||||
File(121) = 77tbca7.msk|X
|
||||
Patch = 698
|
||||
Versione = 21511200
|
||||
|
||||
[777]
|
||||
File(134) = 777.exe|X
|
||||
Patch = 698
|
||||
Versione = 21511200
|
||||
|
||||
[7799]
|
||||
Kill(0) = batbca7.msk|x
|
||||
Kill(1) = batbcaf.msk|x
|
||||
Kill(2) = batbent.msk|x
|
||||
|
||||
[77]
|
||||
Data = 06-06-2016
|
||||
Descrizione = Percipienti (Mod.770)
|
||||
Dischi = 1
|
||||
Edit_4 = 770 -3
|
||||
Moduli = ba
|
||||
OEM =
|
||||
Patch = 698
|
||||
PostProcess =
|
||||
PreProcess =
|
||||
Prezzo(1) =
|
||||
Prezzo(2) =
|
||||
Versione = 21511200
|
||||
|
BIN
cd/test/770698a1.zip
Normal file
BIN
cd/test/770698a1.zip
Normal file
Binary file not shown.
3
cd/test/ba0698.txt
Normal file
3
cd/test/ba0698.txt
Normal file
@ -0,0 +1,3 @@
|
||||
ba8.exe
|
||||
|
||||
Modificata esportazione in excel
|
34
cd/test/ba0698a.ini
Normal file
34
cd/test/ba0698a.ini
Normal file
@ -0,0 +1,34 @@
|
||||
[Main]
|
||||
Demo=0
|
||||
|
||||
[ba1]
|
||||
Edit_4 = ba3 -0
|
||||
Edit_5 = ba3 -0
|
||||
Edit_6 = ba4 -1
|
||||
File(76) = ba8.exe|X
|
||||
Patch = 698
|
||||
Versione = 21511200
|
||||
|
||||
[ba99]
|
||||
Kill(0) = wxmsw240.dll|x
|
||||
Kill(1) = batbsce.txt|x
|
||||
Kill(2) = bastfsc.rep|x
|
||||
Kill(3) = bastfsc.msk|x
|
||||
Kill(4) = bastcms.msk|x
|
||||
Kill(5) = bastcms.rep|x
|
||||
Kill(6) = bastuue.rep|x
|
||||
Kill(7) = bastuue.msk|x
|
||||
|
||||
[ba]
|
||||
Data = 24-05-2018
|
||||
Descrizione = Base
|
||||
Dischi = 1
|
||||
Moduli = sy
|
||||
OEM =
|
||||
Patch = 698
|
||||
PostProcess = bainst -0 BA
|
||||
PreProcess =
|
||||
Prezzo(1) =
|
||||
Prezzo(2) =
|
||||
Versione = 21511200
|
||||
|
BIN
cd/test/ba0698a1.zip
Normal file
BIN
cd/test/ba0698a1.zip
Normal file
Binary file not shown.
4
cd/test/ba0699.txt
Normal file
4
cd/test/ba0699.txt
Normal file
@ -0,0 +1,4 @@
|
||||
ba4200b.msk
|
||||
ba4200c.msk
|
||||
|
||||
Certificazione unica (CU) 2019
|
35
cd/test/ba0699a.ini
Normal file
35
cd/test/ba0699a.ini
Normal file
@ -0,0 +1,35 @@
|
||||
[Main]
|
||||
Demo=0
|
||||
|
||||
[ba1]
|
||||
Edit_4 = ba3 -0
|
||||
Edit_5 = ba3 -0
|
||||
Edit_6 = ba4 -1
|
||||
File(54) = ba4200b.msk|X
|
||||
File(55) = ba4200c.msk|X
|
||||
Patch = 699
|
||||
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 = 12-05-2017
|
||||
Descrizione = Base
|
||||
Dischi = 1
|
||||
Moduli = sy
|
||||
OEM =
|
||||
Patch = 699
|
||||
PostProcess = bainst -0 BA
|
||||
PreProcess =
|
||||
Prezzo(1) =
|
||||
Prezzo(2) =
|
||||
Versione = 21511200
|
||||
|
BIN
cd/test/ba0699a1.zip
Normal file
BIN
cd/test/ba0699a1.zip
Normal file
Binary file not shown.
3
cd/test/cg0698.txt
Normal file
3
cd/test/cg0698.txt
Normal file
@ -0,0 +1,3 @@
|
||||
cg4.exe
|
||||
|
||||
Le righe IVA di tipo non soggetto e con competenza precedente non venivano incluse in liquidazione
|
94
cd/test/cg0698a.ini
Normal file
94
cd/test/cg0698a.ini
Normal file
@ -0,0 +1,94 @@
|
||||
[Main]
|
||||
Demo=0
|
||||
|
||||
[cg1]
|
||||
Edit_23 = cg2 -0
|
||||
File(39) = cg4.exe|X
|
||||
Patch = 698
|
||||
Versione = 21511200
|
||||
|
||||
[cg99]
|
||||
Kill(0) = bastntb.msk|x
|
||||
Kill(1) = batbntb.msk|x
|
||||
Kill(2) = batbpdb.msk|x
|
||||
Kill(3) = batbivd.msk|x
|
||||
Kill(4) = batbmsp.msk|x
|
||||
Kill(5) = batbvet.msk|x
|
||||
Kill(6) = batbcve.msk|x
|
||||
Kill(7) = batbndo.msk|x
|
||||
Kill(8) = bastcve.rep|x
|
||||
Kill(9) = batbtit.msk|x
|
||||
Kill(10) = bastver.rep|x
|
||||
Kill(11) = bastpor.rep|x
|
||||
Kill(12) = batbarb.msk|x
|
||||
Kill(13) = batbind.msk|x
|
||||
Kill(14) = bastcve.msk|x
|
||||
Kill(15) = bastarb.msk|x
|
||||
Kill(16) = batbleg.msk|x
|
||||
Kill(17) = bastscc.rep|x
|
||||
Kill(18) = bastscc.msk|x
|
||||
Kill(19) = cgtbcon.msk|x
|
||||
Kill(20) = bastcco.msk|x
|
||||
Kill(21) = bastver.msk|x
|
||||
Kill(22) = batbpor.msk|x
|
||||
Kill(23) = bastvet.rep|x
|
||||
Kill(24) = batbcfi.msk|x
|
||||
Kill(25) = batbdpn.msk|x
|
||||
Kill(26) = batbscc.msk|x
|
||||
Kill(27) = bastntb.rep|x
|
||||
Kill(28) = bastarb.rep|x
|
||||
Kill(29) = batbesc.msk|x
|
||||
Kill(30) = bastivd.msk|x
|
||||
Kill(31) = bastzon.rep|x
|
||||
Kill(32) = bastcco.rep|x
|
||||
Kill(33) = bastmsp.msk|x
|
||||
Kill(34) = batbzon.msk|x
|
||||
Kill(35) = bastesc.rep|x
|
||||
Kill(36) = bastdpn.msk|x
|
||||
Kill(37) = batbcco.msk|x
|
||||
Kill(38) = bastzon.msk|x
|
||||
Kill(39) = bastleg.msk|x
|
||||
Kill(40) = batblia.msk|x
|
||||
Kill(41) = bastleg.rep|x
|
||||
Kill(42) = bastdpn.rep|x
|
||||
Kill(43) = bastndo.rep|x
|
||||
Kill(44) = batbinl.msk|x
|
||||
Kill(45) = batbtra.msk|x
|
||||
Kill(46) = bastreg.msk|x
|
||||
Kill(47) = batbreg.msk|x
|
||||
Kill(48) = bastvet.msk|x
|
||||
Kill(49) = bastcam.msk|x
|
||||
Kill(50) = batbins.msk|x
|
||||
Kill(51) = bastivd.rep|x
|
||||
Kill(52) = batbnot.msk|x
|
||||
Kill(53) = bastpdb.msk|x
|
||||
Kill(54) = bastnot.msk|x
|
||||
Kill(55) = bastcfi.rep|x
|
||||
Kill(56) = bastnot.rep|x
|
||||
Kill(57) = bastpdb.rep|x
|
||||
Kill(58) = bastndo.msk|x
|
||||
Kill(59) = bastesc.msk|x
|
||||
Kill(60) = bastpor.msk|x
|
||||
Kill(61) = batbver.msk|x
|
||||
Kill(62) = batblia.msk|x
|
||||
Kill(63) = batbdel.msk|x
|
||||
Kill(64) = bastcam.rep|x
|
||||
Kill(65) = bastcfi.msk|x
|
||||
Kill(66) = batbcam.msk|x
|
||||
Kill(67) = batblbu.msk|x
|
||||
Kill(68) = bastmsp.rep|x
|
||||
Kill(69) = bastreg.rep|x
|
||||
|
||||
[cg]
|
||||
Data = 06-06-2016
|
||||
Descrizione = Contabilita' Generale
|
||||
Dischi = 1
|
||||
Moduli = ba,pr9
|
||||
OEM =
|
||||
Patch = 698
|
||||
PostProcess = bainst -0 CG
|
||||
PreProcess =
|
||||
Prezzo(1) =
|
||||
Prezzo(2) =
|
||||
Versione = 21511200
|
||||
|
BIN
cd/test/cg0698a1.zip
Normal file
BIN
cd/test/cg0698a1.zip
Normal file
Binary file not shown.
3
cd/test/ve0698.txt
Normal file
3
cd/test/ve0698.txt
Normal file
@ -0,0 +1,3 @@
|
||||
ve0200d.msk
|
||||
|
||||
Ricompilata la maschera ve0200d
|
134
cd/test/ve0698a.ini
Normal file
134
cd/test/ve0698a.ini
Normal file
@ -0,0 +1,134 @@
|
||||
[Main]
|
||||
Demo=0
|
||||
|
||||
[ve9]
|
||||
Edit_163 = ve0 -4
|
||||
Edit_33 = ve0 -0
|
||||
Edit_4 = ve0 -4
|
||||
Edit_47 = ve2 -3
|
||||
Edit_5 = ve0 -4
|
||||
File(147) = ve0200d.msk|X
|
||||
Patch = 0698
|
||||
Versione = 21511200
|
||||
|
||||
[ve99]
|
||||
Kill(0) = batbcld.msk|x
|
||||
Kill(1) = bastspp.rep|x
|
||||
Kill(2) = batbgmc.msk|x
|
||||
Kill(3) = bastbnp.rep|x
|
||||
Kill(4) = bastasf.rep|x
|
||||
Kill(5) = bastabe.msk|x
|
||||
Kill(6) = bastprs.msk|x
|
||||
Kill(7) = batbcra.msk|x
|
||||
Kill(8) = ve7300a.msk|x
|
||||
Kill(9) = bastcra.rep|x
|
||||
Kill(10) = batbfid.msk|x
|
||||
Kill(11) = bastctr.rep|x
|
||||
Kill(12) = ve7200a.frm|x
|
||||
Kill(13) = batbgsa.msk|x
|
||||
Kill(14) = batbgcg.msk|x
|
||||
Kill(15) = batbrfa.msk|x
|
||||
Kill(16) = eftbbnp.msk|x
|
||||
Kill(17) = bastbnp.msk|x
|
||||
Kill(18) = bastimb.rep|x
|
||||
Kill(19) = batbfrr.msk|x
|
||||
Kill(20) = ve7701a.ini|x
|
||||
Kill(21) = batbcau.msk|x
|
||||
Kill(22) = batbasf.msk|x
|
||||
Kill(23) = bastgcg.msk|x
|
||||
Kill(24) = basteld.rep|x
|
||||
Kill(25) = bastgca.rep|x
|
||||
Kill(26) = bastprs.rep|x
|
||||
Kill(27) = bastfrd.rep|x
|
||||
Kill(28) = batbfrm.msk|x
|
||||
Kill(29) = bastnum.rep|x
|
||||
Kill(30) = bastctr.msk|x
|
||||
Kill(31) = bastfrr.msk|x
|
||||
Kill(32) = basteld.msk|x
|
||||
Kill(33) = bastcaa.rep|x
|
||||
Kill(34) = bastfrd.msk|x
|
||||
Kill(35) = bastcau.msk|x
|
||||
Kill(36) = baststd.rep|x
|
||||
Kill(37) = ve7.exe|x
|
||||
Kill(38) = ve7500a.msk|x
|
||||
Kill(39) = batbctr.msk|x
|
||||
Kill(40) = bastcra.msk|x
|
||||
Kill(41) = batbnum.msk|x
|
||||
Kill(42) = baststd.msk|x
|
||||
Kill(43) = batbgca.msk|x
|
||||
Kill(44) = bastrfa.msk|x
|
||||
Kill(45) = bastimb.msk|x
|
||||
Kill(46) = basttip.rep|x
|
||||
Kill(47) = bastrfc.rep|x
|
||||
Kill(48) = ve7600a.msk|x
|
||||
Kill(49) = batbtip.msk|x
|
||||
Kill(50) = batbstd.msk|x
|
||||
Kill(51) = batbfsa.msk|x
|
||||
Kill(52) = bastgmc.msk|x
|
||||
Kill(53) = ve7300a.frm|x
|
||||
Kill(54) = bastums.msk|x
|
||||
Kill(55) = bastfrr.rep|x
|
||||
Kill(56) = batbcaa.msk|x
|
||||
Kill(57) = bastfrm.rep|x
|
||||
Kill(58) = bastspp.msk|x
|
||||
Kill(59) = basttag.rep|x
|
||||
Kill(60) = bastrfc.msk|x
|
||||
Kill(61) = batbspp.msk|x
|
||||
Kill(62) = ve7100a.msk|x
|
||||
Kill(63) = ve7400conf.ini|x
|
||||
Kill(64) = bastcau.rep|x
|
||||
Kill(65) = efstbnp.rep|x
|
||||
Kill(66) = basttag.msk|x
|
||||
Kill(67) = batbprs.msk|x
|
||||
Kill(68) = batbtag.msk|x
|
||||
Kill(69) = bastabe.rep|x
|
||||
Kill(70) = bastcaa.msk|x
|
||||
Kill(71) = bastubi.rep|x
|
||||
Kill(72) = batbubi.msk|x
|
||||
Kill(73) = bastubi.msk|x
|
||||
Kill(74) = bastgca.msk|x
|
||||
Kill(75) = batbfca.msk|x
|
||||
Kill(76) = basttri.msk|x
|
||||
Kill(77) = ve7700a.msk|x
|
||||
Kill(78) = batbrfc.msk|x
|
||||
Kill(79) = ve7200a.msk|x
|
||||
Kill(80) = batbums.msk|x
|
||||
Kill(81) = bastfca.msk|x
|
||||
Kill(82) = batbmre.msk|x
|
||||
Kill(83) = ve7400a.ini|x
|
||||
Kill(84) = bastasf.msk|x
|
||||
Kill(85) = batbabe.msk|x
|
||||
Kill(86) = basttri.rep|x
|
||||
Kill(87) = bastfca.rep|x
|
||||
Kill(88) = batbprv.msk|x
|
||||
Kill(89) = bastfrm.msk|x
|
||||
Kill(90) = batbbnp.msk|x
|
||||
Kill(91) = efstbnp.msk|x
|
||||
Kill(92) = bastums.rep|x
|
||||
Kill(93) = bastnum.msk|x
|
||||
Kill(94) = batbfrd.msk|x
|
||||
Kill(95) = bastgmc.rep|x
|
||||
Kill(96) = basttip.msk|x
|
||||
Kill(97) = bastrfa.rep|x
|
||||
Kill(98) = batbacr.msk|x
|
||||
Kill(99) = batbimb.msk|x
|
||||
Kill(100) = ve7400a.msk|x
|
||||
Kill(101) = batbtri.msk|x
|
||||
Kill(102) = batbeld.msk|x
|
||||
Kill(103) = batbspt.msk|x
|
||||
Kill(104) = bastgcg.rep|x
|
||||
Kill(105) = batbpro.msk|x
|
||||
|
||||
[ve]
|
||||
Data = 06-06-2016
|
||||
Descrizione = Vendite
|
||||
Dischi = 1
|
||||
Moduli = ba,cg9,pr9,mg9,sv9,in9,ef9
|
||||
OEM =
|
||||
Patch = 0698
|
||||
PostProcess = bainst -0 VE
|
||||
PreProcess =
|
||||
Prezzo(1) =
|
||||
Prezzo(2) =
|
||||
Versione = 21511200
|
||||
|
BIN
cd/test/ve0698a1.zip
Normal file
BIN
cd/test/ve0698a1.zip
Normal file
Binary file not shown.
1079
exe/install.ini
1079
exe/install.ini
File diff suppressed because it is too large
Load Diff
@ -586,15 +586,10 @@ bool TLiquidazione_app::ch_year_handler(TMask_field& f, KEY key)
|
||||
(wht)f.mask().get_int(CG43_RDB_VERS) : all);
|
||||
TMask& msk = f.mask();
|
||||
const int vers = msk.get_int(CG43_RDB_VERS);
|
||||
int m = (vers == 3) ? msk.get_int(CG43_LST_TRIM) : msk.get_int(CG43_LST_MESE);
|
||||
|
||||
app()._is_liq_acconto = (m == 20);
|
||||
if (app()._is_liq_acconto)
|
||||
m = 12;
|
||||
|
||||
const int m = (vers == 3) ? msk.get_int(CG43_LST_TRIM) : msk.get_int(CG43_LST_MESE);
|
||||
const TRectype & lim = app().get_lim(m);
|
||||
const bool def = lim.get_bool("B1");
|
||||
const bool calc = app()._is_liq_acconto || (!def && (lim.empty() || lim.get_bool("B0")));
|
||||
const bool calc = !def && (lim.empty() || lim.get_bool("B0"));
|
||||
|
||||
msk.set(CG43_CHK_CALCULATE, app()._lim_cleared && calc, 0x3);
|
||||
msk.set(CG43_CHK_FINAL, app()._lim_cleared && def, 0x3);
|
||||
@ -695,11 +690,6 @@ bool TLiquidazione_app::what_freq_handler(TMask_field& f, KEY key)
|
||||
if (key == K_SPACE)
|
||||
{
|
||||
int month = f.mask().get_int(CG43_LST_MESE);
|
||||
|
||||
app()._is_liq_acconto = (month == 20);
|
||||
if (app()._is_liq_acconto)
|
||||
month = 12;
|
||||
|
||||
if (f.get()[0] == '3') // trimestre intelligente
|
||||
{
|
||||
if (month > 3)
|
||||
@ -788,11 +778,7 @@ bool TLiquidazione_app::chk_calculate_handler(TMask_field& f, KEY key)
|
||||
TMask& m = f.mask();
|
||||
// Abilita solo se il mese di ricalcolo e' != 13 (annuale) e non e' checkkato il campo
|
||||
const int vers = m.get_int(CG43_RDB_VERS);
|
||||
int mese = vers == 3 ? m.get_int(CG43_LST_TRIM) : m.get_int(CG43_LST_MESE);
|
||||
|
||||
app()._is_liq_acconto = (mese == 20);
|
||||
if (app()._is_liq_acconto)
|
||||
mese = 12;
|
||||
const int mese = vers == 3 ? m.get_int(CG43_LST_TRIM) : m.get_int(CG43_LST_MESE);
|
||||
const bool abilita = m.get_bool(CG43_CHK_CALCULATE) && mese != 13;
|
||||
m.enable(CG43_LST_CALC, abilita);
|
||||
}
|
||||
@ -907,19 +893,10 @@ bool TLiquidazione_app::set_liquidazione()
|
||||
// handlers have set everything
|
||||
_month = _what == trimestre ? m.get_int(CG43_LST_TRIM) : m.get_int(CG43_LST_MESE);
|
||||
|
||||
app()._is_liq_acconto = (_month == 20);
|
||||
if (app()._is_liq_acconto)
|
||||
{
|
||||
_month = 12;
|
||||
_recalc = one;
|
||||
}
|
||||
else
|
||||
_recalc = m.get_bool(CG43_CHK_CALCULATE) ? one : never;
|
||||
|
||||
|
||||
_year = m.get(CG43_FLD_ANNO);
|
||||
_date = m.get(CG43_FLD_DATA);
|
||||
_isprint = m.get_bool(CG43_CHK_STAMPA);
|
||||
_recalc = m.get_bool(CG43_CHK_CALCULATE) ? one : never;
|
||||
_printonly = !m.get_bool(CG43_CHK_CALCULATE);
|
||||
_definitiva = m.get_bool(CG43_CHK_FINAL);
|
||||
|
||||
|
@ -304,7 +304,6 @@ class TLiquidazione_app : public TPrint_application
|
||||
int _monthinatt; // mese inizio attivita' (serve per differita)
|
||||
bool _lim_cleared;
|
||||
bool _definitiva;
|
||||
bool _is_liq_acconto;
|
||||
bool _end_cassa;
|
||||
|
||||
real _diff_ven_ap, _diff_ven_ap_iva, _diff_acq_ap, _diff_acq_ap_iva;
|
||||
|
@ -27,16 +27,15 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LIST CG43_LST_MESE 20
|
||||
LIST CG43_LST_MESE 15
|
||||
BEGIN
|
||||
PROMPT 28 3 "Periodo "
|
||||
HELP "Mese per cui effettuare il calcolo liquidazione"
|
||||
ITEM "13|13a liquid."
|
||||
ITEM "20|Acconto Dicembre"
|
||||
FLAGS "MP"
|
||||
END
|
||||
|
||||
LIST CG43_LST_TRIM 20
|
||||
LIST CG43_LST_TRIM 15
|
||||
BEGIN
|
||||
PROMPT 28 3 "Periodo "
|
||||
HELP "Trimestre di cui effettuare il calcolo liquidazione"
|
||||
@ -45,7 +44,6 @@ BEGIN
|
||||
ITEM "9|3 Trimestre "
|
||||
ITEM "12|4 Trimestre"
|
||||
ITEM "13|13a liquid."
|
||||
ITEM "20|Acconto Dicembre"
|
||||
END
|
||||
|
||||
BOOLEAN CG43_CHK_CALCULATE
|
||||
|
@ -57,8 +57,7 @@ bool TLiquidazione_app::is_month_ok(int x, int mtocalc) const
|
||||
{
|
||||
// per l'annuale ritorna true per tutti i mesi da liquidare
|
||||
ret = x <= 13;
|
||||
}
|
||||
|
||||
}
|
||||
return ret;
|
||||
}
|
||||
|
||||
@ -139,12 +138,7 @@ bool TLiquidazione_app::is_date_ok(const TDate& d, int month, int liqmonth, int
|
||||
else // Nuova selezione dal 1998 in poi
|
||||
{
|
||||
if (month <= 12)
|
||||
{
|
||||
if (_is_liq_acconto)
|
||||
return (regyear == year) && ((regmonth == month && liqmonth == 0) || (liqmonth == month)) && (d.day() <= _ver->giorno_acc());
|
||||
else
|
||||
return (regyear == year) && ((regmonth == month && liqmonth == 0) || (liqmonth == month));
|
||||
}
|
||||
return (regyear == year) && ((regmonth == month && liqmonth == 0) || (liqmonth == month));
|
||||
else // Annuale, month == 13
|
||||
return (regyear == year && liqmonth != 12) || (regyear == year + 1 && liqmonth == 12);
|
||||
}
|
||||
|
@ -1439,9 +1439,6 @@ void TLiquidazione_app::set_firm(_DescrItem& d)
|
||||
if (d._s2 == "T")
|
||||
tim_title << format(FR(" del %d° Trimestre %s"), d._f1/3, (const char*) _year);
|
||||
else
|
||||
if (_is_liq_acconto)
|
||||
tim_title << format(FR(" al %d %s %s"), _ver->giorno_acc(), itom(d._f1), (const char*)_year);
|
||||
else
|
||||
tim_title << format(FR(" del mese di %s %s"), itom(d._f1), (const char*)_year);
|
||||
}
|
||||
|
||||
@ -1503,9 +1500,6 @@ void TLiquidazione_app::set_att(_DescrItem& d)
|
||||
if (d._s4 == "T")
|
||||
tim_title << format(FR(" del %d° Trimestre %s"), d._f1 / 3, (const char*)_year);
|
||||
else
|
||||
if (_is_liq_acconto)
|
||||
tim_title << format(FR(" al %d %s %s"), _ver->giorno_acc(), itom(d._f1), (const char*)_year);
|
||||
else
|
||||
tim_title << format(FR(" del mese di %s %s"), itom(d._f1), (const char*)_year);
|
||||
}
|
||||
|
||||
|
@ -457,14 +457,7 @@ bool TStampa_registri_app::mask_mese (TMask_field& f, KEY k)
|
||||
if (id == MESE) //Per stampa su libro unico
|
||||
mese = f.mask().get_int(MESE);
|
||||
if (id == FINO_A_MESE)
|
||||
{
|
||||
mese = m.get_int(FINO_A_MESE); //Per stampa su bollato
|
||||
if (mese == 20)
|
||||
mese = 12;
|
||||
if (mese == 12)
|
||||
m.show(TIPO_RIEPILOGATIVO);
|
||||
else m.hide(TIPO_RIEPILOGATIVO);
|
||||
}
|
||||
if (id == MESE)
|
||||
{
|
||||
if (mese == 12)
|
||||
@ -477,10 +470,13 @@ bool TStampa_registri_app::mask_mese (TMask_field& f, KEY k)
|
||||
m.hide (TIPO_RIEPILOGATIVO);
|
||||
m.hide (RIF_VID);
|
||||
}
|
||||
mese = m.get_int(FINO_A_MESE); //Per stampa su bollato
|
||||
if (mese == 20)
|
||||
mese = 12;
|
||||
}
|
||||
if (id == FINO_A_MESE)
|
||||
{
|
||||
if (mese == 12)
|
||||
m.show (TIPO_RIEPILOGATIVO);
|
||||
else m.hide (TIPO_RIEPILOGATIVO);
|
||||
}
|
||||
}
|
||||
if (k==K_TAB && f.mask().is_running())
|
||||
{
|
||||
@ -605,11 +601,6 @@ bool TStampa_registri_app::mask_libun (TMask_field& f, KEY k)
|
||||
|
||||
const TString& cod = f.mask().get(CODICE_LIBRO_IVA);
|
||||
int fino_a_mese = f.mask().get_int(MESE);
|
||||
|
||||
if (fino_a_mese == 12)
|
||||
f.mask().show(TIPO_RIEPILOGATIVO);
|
||||
else f.mask().hide(TIPO_RIEPILOGATIVO);
|
||||
|
||||
int anno = f.mask().get_int(ANNO);
|
||||
bool ok = false;
|
||||
int last_mese = 13;
|
||||
@ -1642,10 +1633,8 @@ void TStampa_registri_app::set_page_tot_reg()
|
||||
} // for
|
||||
}
|
||||
if (printed)
|
||||
{
|
||||
flush();
|
||||
fine_mese();
|
||||
}
|
||||
if (_stampa_plafonds)
|
||||
stampa_plafonds(rr);
|
||||
}
|
||||
@ -2127,7 +2116,7 @@ bool TStampa_registri_app::print_IVAxCassa(int da_month, int a_month)
|
||||
return false; // Ho stampato qualcosa?
|
||||
}
|
||||
|
||||
int flags = 0x06;
|
||||
int flags = 0x0;
|
||||
FOR_EACH_ARRAY_ITEM(_riga_prospettoXcassa, r, obj)
|
||||
{
|
||||
const TRiga& ri = *(const TRiga*)obj;
|
||||
@ -3764,14 +3753,9 @@ bool TStampa_registri_app::set_print(int n)
|
||||
}
|
||||
else //stampe definitive
|
||||
{
|
||||
_fino_a_mese = m.get_int(FINO_A_MESE);
|
||||
_stampa_acconto = (_fino_a_mese == 20);
|
||||
|
||||
if (_stampa_acconto)
|
||||
_fino_a_mese = 12;
|
||||
if (_tipo_stampa == bollato || _tipo_stampa == rif_giornale)
|
||||
{
|
||||
|
||||
_fino_a_mese = m.get_int(FINO_A_MESE);
|
||||
_data_da = TDate(1, 1, _annoIVA); // Meglio cosi'
|
||||
}
|
||||
else //stampa su libro unico
|
||||
@ -3787,12 +3771,6 @@ bool TStampa_registri_app::set_print(int n)
|
||||
int giorni_del_mese = 31;
|
||||
if (_fino_a_mese == 12)
|
||||
{
|
||||
TInteressi_IVA_table i; i.read(_annoIVA, _fino_a_mese);
|
||||
|
||||
giorni_del_mese = i.get_int("I0");
|
||||
if (giorni_del_mese == 0)
|
||||
giorni_del_mese = 20;
|
||||
if (!_stampa_acconto)
|
||||
giorni_del_mese = 31;
|
||||
_tipo_riepilogativo = m.get(TIPO_RIEPILOGATIVO)[0];
|
||||
}
|
||||
|
@ -57,7 +57,6 @@ class TStampa_registri_app : public TPrintapp
|
||||
long _u_stampata, _primast, __firm, _uprotivap, _ditta;
|
||||
long _numini, _pagine_stampate;
|
||||
int _fino_a_mese, _cod_un_loc;
|
||||
bool _stampa_acconto;
|
||||
int _annoIVA, _r, _stampa_width, _mese_ultima_liq, _mese_credito;
|
||||
int _stampa_len, _stampa_mese, _size_header;
|
||||
real _totale_doc, _credito;
|
||||
@ -121,7 +120,7 @@ public:
|
||||
bool ricalcola(int);
|
||||
bool stampa_riepilogo(int);
|
||||
void stampa_prospetto_riepilogo(tiporeg, const TString&, const TString&, const bool);
|
||||
void stampa_progressivi(TRiga_array&, TRigaiva_array&, tiporeg, const int);
|
||||
void stampa_progressivi(TRiga_array&, TRigaiva_array&, tiporeg, const bool);
|
||||
void set_choice_limits(TMask&);
|
||||
void build_ditte_sheet(int flags);
|
||||
tiporeg cerca_reg(const TString&);
|
||||
|
@ -158,20 +158,18 @@ BEGIN
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
LISTBOX FINO_A_MESE 20
|
||||
LISTBOX FINO_A_MESE 10
|
||||
BEGIN
|
||||
PROMPT 3 9 "Fino al mese "
|
||||
HELP "Mese fino al quale eseguire la stampa"
|
||||
ITEM "20|Acconto di dicembre"
|
||||
FLAGS "M"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTBOX MESE 20
|
||||
LISTBOX MESE 10
|
||||
BEGIN
|
||||
PROMPT 3 9 "Mese "
|
||||
HELP "Mese di cui eseguire la stampa"
|
||||
ITEM "20|Acconto di dicembre"
|
||||
FLAGS "M"
|
||||
GROUP 2
|
||||
END
|
||||
|
@ -607,10 +607,6 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
|
||||
const char tipoanag = qla.get_char("TIPOA");
|
||||
const long codanagr = qla.get_long("CODANAGR");
|
||||
|
||||
#ifdef DBG
|
||||
if (tipoanag == 'F' && codanagr == 1705)
|
||||
bool tolla = true;
|
||||
#endif
|
||||
if (tipoanag < 'F' || codanagr <= 0)
|
||||
{
|
||||
TString msg; msg.format(FR("Scartato percipiente non valido %c/%ld"), tipoanag, codanagr);
|
||||
@ -667,8 +663,6 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
|
||||
rec.np_put("DA001010", _codatt_dic);
|
||||
// rec.np_put("DA001011", "1"); // Codice Sede ???
|
||||
|
||||
if (perc.codice_fiscale() == "BRTTMS98M18832Z")
|
||||
int i = 1;
|
||||
rec.np_put("DA002001", perc.codice_fiscale());
|
||||
if (perc.fisica())
|
||||
{
|
||||
|
@ -514,7 +514,7 @@ TReport_field& TCU_report::add_big_text(TReport_section& sec, int row, int col,
|
||||
txt->set_type('T');
|
||||
txt->set_picture(label);
|
||||
txt->set_pos(CU_FORM_BORDER+col*100, row*100);
|
||||
txt->set_size(strlen(label)*300, 200);
|
||||
txt->set_size(strlen(label)*300, 300);
|
||||
txt->set_pattern(PAT_HOLLOW);
|
||||
txt->set_back_color(COLOR_INVALID);
|
||||
txt->set_text_color(rgb);
|
||||
@ -593,7 +593,7 @@ void TCU_report::create_logo(TReport_section& header)
|
||||
TReport_field* txt = new TReport_field(&header);
|
||||
txt->set_type('I');
|
||||
txt->set("res/AgenziaEntrate.gif");
|
||||
txt->set_pos(CU_FORM_BORDER, 800);
|
||||
txt->set_pos(CU_FORM_BORDER, 900);
|
||||
txt->set_size(1200, 200);
|
||||
header.add(txt);
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user