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

Patch level : 12.0

Browse Source 
Files correlati     : fp0700.cpp fp0700a.uml

Commento:
Sistemato bug che nel programma di invio integrazioni segnalava il codice SDI mancante
Allungato il campo PIVA dello sheet in modo che accetti anche partite IVA estere
This commit is contained in:
Simoe 2022-07-14 11:30:14 +02:00
parent 639aa502b9
commit daefdb8b2d
2 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/fp/fp0700.cpp
View File

@ -247,22 +247,17 @@ void TPAR_mask::fill()
regs.set_row_cell(S_PIVA, cli.get(CLI_PAIV), r);
// non c'è ? TString cod_ind_sped = rec.get(DOC_CODINDSP).as_string();
TString rif = get_dest_sdi(rec.get_string(MOV_TIPO)[0], rec.get_long(MOV_CODCF), EMPTY_STRING);
//TString rif = get_dest_sdi(rec.get_string(MOV_TIPO)[0], rec.get_long(MOV_CODCF), EMPTY_STRING);
TString rif = ditta.coddest();
// Se è ancora vuoto potrebbe essere estero || SERVE QUESTO IF?
// Se il codice SDI della ditta è vuoto imposto quello di default 0000000
if (rif.empty())
{
// Segno la riga errata
if (first)
{
first = false;
// Abilito la colonna del codice ufficio per segnalare l'errore
regs.enable_column(regs.cid2index(S_UFFICIO));
}
regs.set_back_and_fore_color(COLOR_RED, COLOR_WHITE, rec.current_row(), regs.cid2index(S_UFFICIO));
rif = "0000000";
fat_no_cod++;
}
regs.set_row_cell(S_UFFICIO, ditta.coddest(), r);
regs.set_row_cell(S_UFFICIO, rif, r);
regs.set_row_cell(S_COFI, cli.get(CLI_COFI), r);
bool split = cli.get_bool("20." CLI_SPLITPAY);
@ -282,7 +277,7 @@ void TPAR_mask::fill()
regs.show();
if (fat_no_cod > 0)
warning_box("Sono state trovate una o più fatture senza codice destinatario né pec");
warning_box("Non e' stato possibile recuperare il codice SDI dai dati della ditta.\nE' stato quindi impostato il valore di default.");
}
void TPAR_mask::set_filter_changed()

2
src/fp/fp0700a.uml
View File

@ -265,7 +265,7 @@ BEGIN
FLAGS "D"
END
STRING S_PIVA 11
STRING S_PIVA 12
BEGIN
PROMPT 21 5 "P IVA "
FLAGS "D"