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

Patch level : 12.0 548

Browse Source 
Files correlati     : m770
Commento            : Sistemata esportazione percipienti esteri

git-svn-id: svn://10.65.10.50/branches/R_10_00@24416 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2018-03-06 14:35:54 +00:00
parent ff5a6973d7
commit 7eedd37a8c
1 changed files with 64 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/m770/777200.cpp
View File

@ -603,6 +603,11 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
{ {
const char tipoanag = qla.get_char("TIPOA"); const char tipoanag = qla.get_char("TIPOA");
const long codanagr = qla.get_long("CODANAGR"); const long codanagr = qla.get_long("CODANAGR");
#ifdef DBG
if (tipoanag == 'F' && codanagr == 1705)
bool tolla = true;
#endif
if (tipoanag < 'F' || codanagr <= 0) if (tipoanag < 'F' || codanagr <= 0)
{ {
TString msg; msg.format(FR("Scartato percipiente non valido %c/%ld"), tipoanag, codanagr); TString msg; msg.format(FR("Scartato percipiente non valido %c/%ld"), tipoanag, codanagr);
@ -666,9 +671,12 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
rec.np_put("DA002003", perc.nome()); rec.np_put("DA002003", perc.nome());
rec.np_put("DA002004", perc.sesso()); rec.np_put("DA002004", perc.sesso());
rec.np_put("DA002005", perc.data_nascita()); rec.np_put("DA002005", perc.data_nascita());
if (perc.italiano())
{
rec.np_put("DA002006", perc.comune_nascita()); rec.np_put("DA002006", perc.comune_nascita());
rec.np_put("DA002007", perc.provincia_nascita()); rec.np_put("DA002007", perc.provincia_nascita());
} }
}
else else
{ {
rec.np_put("DA002002", perc.ragione_sociale()); rec.np_put("DA002002", perc.ragione_sociale());
@ -683,7 +691,8 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
rec.np_put("DA002010", da2010); rec.np_put("DA002010", da2010);
const TString& causale = qla.get("CAUSALE"); const TString& causale = qla.get("CAUSALE");
if (perc.stato_residenza_ISO() == "IT")
{
TString4 cod_com, cod_fus = perc.codice_comune_residenza(); TString4 cod_com, cod_fus = perc.codice_comune_residenza();
rec.np_put("DA002020", perc.comune_residenza()); rec.np_put("DA002020", perc.comune_residenza());
rec.np_put("DA002021", perc.provincia_residenza()); rec.np_put("DA002021", perc.provincia_residenza());
@ -731,18 +740,20 @@ bool TTrasferimentoCU::append_record_d(const TRectype& qla, TLog_report& log)
} }
rec.np_put("DA002022", cod_com); rec.np_put("DA002022", cod_com);
rec.np_put("DA002023", cod_fus); rec.np_put("DA002023", cod_fus);
}
// rec.np_put("DA002030", ""); // Codice fiscale del rappresentante un incapace // rec.np_put("DA002030", ""); // Codice fiscale del rappresentante un incapace
if (perc.estero()) if (perc.estero())
{ {
rec.np_put("DA002040", perc.partita_IVA()); rec.np_put("DA002040", perc.codice_fiscale_estero());
rec.np_put("DA002041", perc.comune_residenza()); rec.np_put("DA002041", perc.comune_residenza());
rec.np_put("DA002042", perc.indirizzo_residenza()); rec.np_put("DA002042", perc.indirizzo_residenza());
// 2015 // 2015
//rec.np_put("DA002043", perc.stato_estero_UNICO()); //rec.np_put("DA002043", perc.stato_estero_UNICO());
// 2017 // 2017
rec.np_put("DA002044", perc.stato_estero_UNICO()); TString esteroUnico = perc.stato_estero_UNICO();
esteroUnico.lpad(16, ' ');
rec.np_put("DA002044", esteroUnico);
} }
rec.np_put("DA003001", _data_tra); rec.np_put("DA003001", _data_tra);