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

Patch level : 12.0 982

Browse Source 
Files correlati     : fp0.exe
Commento            :
- Aggiunto controllo per partite iva che iniziano per 8 o 9 per esportare correttamente solo con codice fiscale.
This commit is contained in:
Simone Palacino 2020-07-22 10:24:57 +02:00
parent 4848a8d1c6
commit 8d4ed500c4
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/fp/fplib01.cpp
View File

@ -1581,16 +1581,24 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
TTable tab_codiso("%SCE"); TTable tab_codiso("%SCE");
tab_codiso.tab(); tab_codiso.tab();
tab_codiso.put("CODTAB", stato); tab_codiso.read(); tab_codiso.put("CODTAB", stato); tab_codiso.read();
const TString &piva = cliente.partita_IVA(), TString piva = cliente.partita_IVA(),
&fisc = cliente.codice_fiscale(); fisc = cliente.codice_fiscale();
if (!stato.full()) if (!stato.full())
stato = "IT"; stato = "IT";
if(tab_codiso.get_bool("B0") || stato == "IT") // Cliente EU if(tab_codiso.get_bool("B0") || stato == "IT") // Cliente EU
{ {
if (fisc.full() && piva.len() == 11 && (fisc[0] == '8' || fisc[0] == '9'))
piva.cut(0);
else if (piva.full() && piva.len() == 11 && (piva[0] == '8' || piva[0] == '9'))
{
fisc = piva;
piva.cut(0);
}
if (piva.full()) if (piva.full())
{ {
paf0400f.set("P4_FISCIVAPAESE", stato); paf0400f.set("P4_FISCIVAPAESE", stato);
paf0400f.set("P4_FISCIVACOD", piva); paf0400f.set("P4_FISCIVACOD", piva);
} }
if(fisc.full()) if(fisc.full())
paf0400f.set("P4_CODFISC", fisc); paf0400f.set("P4_CODFISC", fisc);