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

Patch level : 12.0 nopatch

Browse Source 
Files correlati     : 777200.cpp 777lib.cpp

Commento:
CU 20222
Aggiornato record B e D
This commit is contained in:
Alessandro Bonazzi 2022-02-18 02:06:33 +01:00
parent d4d74b5543
commit a243b65d8c
2 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/m770/777200.cpp
View File

@ -549,13 +549,18 @@ bool TTrasferimentoCU::append_record_b()
rec.set(10, _tipo_operazione == 'A');
rec.set(11, _tipo_operazione == 'S');
_casi_part_dich = _tipo_operazione == 'A' || _tipo_operazione == 'S';
if (_tipoa_dic == 'F')
{
rec.set(12, _ragsoc_dic.left(24));
rec.set(13, _ragsoc_dic.mid(30,20));
}
else
rec.set(14, _ragsoc_dic);
else
{
rec.set(14, _ragsoc_dic);
_casi_part_dich &= atoi(cache().get(LF_ANAGGIU, _codan_dic, ANG_STATOSOC)) == 4 && _codfis_int.full();
}
const TRectype& rec_nditte = cache().get(LF_NDITTE, _cod_ditta);
rec.set(15, rec_nditte.get(NDT_MAIL));
@ -581,7 +586,7 @@ bool TTrasferimentoCU::append_record_b()
rec.set(19, rec_nditte.get(NDT_CARRAPP));
rec.set(20, rapp.cognome().left(24));
rec.set(21, rapp.nome());
rec.set(22, _codfis_dic);
rec.set(22, _codfis_dic);
}
else
{
@ -666,7 +671,9 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
rec.np_put("DA001008", get_telephone(rec_nditte, NDT_PTEL, NDT_TEL));
rec.np_put("DA001009", rec_nditte.get(NDT_MAIL));
rec.np_put("DA001010", _codatt_dic);
// rec.np_put("DA001011", "1"); // Codice Sede ???
rec.np_put("DA001011", "001"); // Codice Sede ???
if (_casi_part_dich)
rec.np_put("DA001012", _codfis_dic);
rec.np_put("DA002001", perc.codice_fiscale());
if (perc.fisica())
@ -690,7 +697,7 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
rec.np_put("DA002008", anag.get(ANA_CATPAR));
const TString4 evecc = anag.get("EVECC");
if (evecc == "1" || evecc == "3") // EDIT 2020: Non piu' valori 1, 5 ma 1, 3
if (evecc == "1" || evecc == "3" || || evecc == "99") // EDIT 2020: Non piu' valori 1, 5 ma 1, 3
rec.np_put("DA002009", evecc);
long int da2010 = anag.get_long(ANA_ESCPRECOMP);
// Tolla 2017: Aggiunto questo controllo in quanto noi non gestiamo nessuno dei quadri che richiedono il valore 2
@ -825,17 +832,17 @@ bool TTrasferimentoCU::append_record_h(const TRectype& qla, int modulo, TLog_rep
altre_somme = ZERO;
}
if (altre_somme.is_zero() &&
((codice == 7) || (codice == 12) || (codice == 13)))
((codice == 21) || (codice == 24) || (codice == 13)))
{
altre_somme = imponibile;
imponibile = ZERO;
}
if (!altre_somme.is_zero())
{
if (codice <= 0) codice = 7; // Regime minimi
if (codice <= 0) codice = 21; // Regime minimi
if (codice == 2)
message_box("Anagrafica %c &ld : Il codice 2 somme non soggette è stato eliminato", tipoanag, codanagr);
rec.np_put("AU001006", codice); // 1, 5, 6, 7 // EDIT 2020: aggiunti 8, 9, 10, 11 //Edit 2021 aggiunti 12,13
rec.np_put("AU001006", codice); // 1, 5, 6, 7 // EDIT 2020: aggiunti 8, 9, 10, 11 //Edit 2021 aggiunti 12,13 // Edit 2022 aggiunti 7-->21,8-->22, 12---> 24
rec.np_put("AU001007", altre_somme);
}
rec.np_put("AU001008", imponibile); // 004 - 005 - 007

1
src/m770/777200.h
View File

@ -26,6 +26,7 @@ class TTrasferimentoCU : public TRecordset
TDate _data_tra; // Data trasmissione
long _certificazione; // Sempre > 0
char _tipo_operazione; // Annullamento o sostituzione
bool _casi_part_dich;
TString _identificativo; // solo per ann. o sost.
TRecnotype _cur_pos;