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

Patch level : 12.00 1382

Browse Source 
Files correlati     : 777.exe 777200a.msk 777200c.msk

Bug                 :

Commento:
Certificazione Unica 2025 - Invio forfettari e minimi - invio per email
This commit is contained in:
Alessandro Bonazzi 2025-02-20 12:11:23 +01:00
parent 8f6d8c51f7
commit 0ef9b47f44
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/m770/777200.cpp
View File

@ -930,7 +930,10 @@ bool TTrasferimentoCU::split(const char* path)
{ {
TRecordCU rec; TRecordCU rec;
rec.tipo_record('A'); // Compila record di testata A rec.tipo_record('A'); // Compila record di testata A
rec.set(3, "CUR24"); // Codice fornitura 2023 TString forn("CUR");
forn << THIS_YEARN % 100;
rec.set(3, forn); // Codice fornitura
rec.set(4, 1); // Tipo fornitore: 01=Soggetto che invia la propria dichiarazione; 10=CAF rec.set(4, 1); // Tipo fornitore: 01=Soggetto che invia la propria dichiarazione; 10=CAF
rec.set(5, _codfis_int.full() ? _codfis_int : cod_fis_dic()); // Codice fiscale del fornitore rec.set(5, _codfis_int.full() ? _codfis_int : cod_fis_dic()); // Codice fiscale del fornitore
outfile << rec; // Scrive record testata outfile << rec; // Scrive record testata

2
src/m770/777201.cpp
View File

@ -977,7 +977,7 @@ void send_cu(TISAM_recordset& perc, int quality, bool syntetic, int anno, const
message << "Spett. "; message << "Spett. ";
else else
message << "Gent.mo/a "; message << "Gent.mo/a ";
message << ragsoc << '(' << email << ")\\n"; message << ragsoc << " (" << email << ") " << '\n';
if (msg.full()) if (msg.full())
message << msg << ' '; message << msg << ' ';
else else