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

Patch level : 12.0 1100

Browse Source 
Files correlati     :
Commento :

Implementazione TD16, TD17, TD18
This commit is contained in:
smen 2021-12-13 17:48:13 +01:00
parent d3c62c58dd
commit df41b599c6
9 changed files with 58 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/fp/fp0300.cpp
View File

@ -444,7 +444,7 @@ void TPA_mask::export_paf()
TLocalisamfile doc(LF_DOC);
static const int col_cod_sdi = sfield(F_DOCS).cid2index(S_CODSDI);
TString_array& sht = sfield(F_DOCS).rows_array();
TDoc_fp elab;
TDoc_fp elab(get_bool(F_PROVVISORIO));
//elab.set_cache_insert(true);
if (!sht.empty())

1
src/fp/fp0300a.h
View File

@ -6,6 +6,7 @@
#define F_SETCODEST 405
#define F_VALCODEST 406
#define F_SENDALLRIFS 407
#define F_PROVVISORIO 408
#define END_MASK 499

4
src/fp/fp0300a.uml
View File

@ -113,6 +113,10 @@ BEGIN
FLAG "D"
END
BOOLEAN F_PROVVISORIO
BEGIN
PROMPT 1 17 "Provvisorio"
END
ENDPAGE

6
src/fp/fp0700.cpp
View File

@ -197,7 +197,9 @@ void TPAR_mask::fill()
regs.set_row_cell(S_ANNO, rec.get_int(MOV_ANNOES), r);
regs.set_row_cell(S_NUMREG, rec.get_string(MOV_NUMREG), r);
regs.set_row_cell(S_DATAREG, rec.get(MOV_DATAREG).as_date(), r);
regs.set_row_cell(S_DATAREG, rec.get_date(MOV_DATAREG), r);
regs.set_row_cell(S_NUMDOC, rec.get_string(MOV_NUMDOC), r);
regs.set_row_cell(S_DATADOC, rec.get_date(MOV_DATADOC), r);
regs.set_row_cell(S_CLIENTE, rec.get_long(MOV_CODCF), r);
regs.set_row_cell(S_RAGSOC, cli.get(CLI_RAGSOC), r);
regs.set_row_cell(S_TIPODOC, rec.get_string(MOV_TIPODOC), r);
@ -233,8 +235,6 @@ void TPAR_mask::fill()
split = is_split_payment(mov);
}
}
regs.set_row_cell(S_SPLITPAY, split, r);
regs.set_row_cell(S_ATTACH, false, r); // verificare
if (provvisorio)
regs.set_row_cell(S_ONLYGEN, false, r);
}

14
src/fp/fp0700a.h
View File

@ -19,12 +19,12 @@
#define S_ANNO 102
#define S_NUMREG 103
#define S_DATAREG 104
#define S_CLIENTE 105
#define S_RAGSOC 106
#define S_UFFICIO 107
#define S_RIFAMM 108
#define S_COFI 109
#define S_SPLITPAY 110
#define S_ATTACH 111
#define S_NUMDOC 105
#define S_DATADOC 106
#define S_CLIENTE 107
#define S_RAGSOC 108
#define S_UFFICIO 109
#define S_RIFAMM 110
#define S_COFI 111
#define S_ONLYGEN 112
#define S_TIPODOC 113

32
src/fp/fp0700a.uml
View File

@ -112,13 +112,13 @@ BEGIN
ITEM "Anno"
ITEM "Num.\nReg.@7"
ITEM "Data\nReg.@10"
ITEM "Num.\nDoc.@7"
ITEM "Data\nDoc.@10"
ITEM "Cliente"
ITEM "Ragione Sociale@50"
ITEM "Codice destinatario@20"
ITEM "Riferimento\nAmministrazione@20"
ITEM "Codice Fiscale@16"
ITEM "Scissione\nPagamenti@9"
ITEM "Allegati"
ITEM "Solo generazione"
END
@ -208,13 +208,25 @@ END
NUMBER S_NUMREG 7
BEGIN
PROMPT 21 2 "Numerazione "
PROMPT 21 2 "Numero Reg."
FLAGS "D"
END
DATE S_DATAREG
BEGIN
PROMPT 21 3 "Data "
PROMPT 50 2 "Data Reg."
FLAGS "D"
END
STRING S_NUMDOC 7
BEGIN
PROMPT 21 2 "Numero Doc. "
FLAGS "D"
END
DATE S_DATADOC
BEGIN
PROMPT 50 3 "Data Doc."
FLAGS "D"
END
@ -248,18 +260,6 @@ BEGIN
FLAGS "D"
END
BOOLEAN S_SPLITPAY
BEGIN
PROMPT 1 7 "Soggetto a scissione pagamenti art.17 ter DPR 633/72"
FLAGS "D"
END
BOOLEAN S_ATTACH
BEGIN
PROMPT 1 8 "Documenti in allegato"
FLAGS "D"
END
BOOLEAN S_ONLYGEN
BEGIN
PROMPT 20 8 "Solo generazione"

4
src/fp/fplib.h
View File

@ -504,6 +504,7 @@ private:
TPaf_container _paf_container;
int _count_r_conai;
bool _nascondi_sconti_righe_fatt;
bool _provvisorio;
TFP_nota_piede_f _riga_npf;
bool _has_cust;
bool _tracciati_2021;
@ -555,6 +556,7 @@ protected:
bool get_bank_appoggio(const TDocumento& doc, TString& iban, TString& abi, TString& cab, TString& istituto) const;
const TString& descrizione(const TRiga_documento& rdoc);
const TRectype& cco(const TRectype& doc) const; // Contratto/Convenzione/Offerta
const char * stato_paf() const { return _provvisorio ? " " : "D"; }
const TString & natura(const char* codiva) const;
@ -592,7 +594,7 @@ public:
void set_cache_insert(const bool v) { _cache_insert = v; }
bool tracciati_2021() const { return _tracciati_2021; }
TDoc_fp();
TDoc_fp(bool provvisorio);
~TDoc_fp();
};

38
src/fp/fplib01.cpp
View File

@ -1396,7 +1396,7 @@ bool TDoc_fp::add_riepilogo_iva(TPaf_record& paf2200f, const TCodiceIVA& cod_iva
paf2200f.set("PL_RIFNORMATIVO", "Scissione pagamenti art.17-ter DPR 633/72");
else
paf2200f.set("PL_RIFNORMATIVO", cod_iva.descrizione());
paf2200f.set("PL_GESTIONE", "D");
paf2200f.set("PL_GESTIONE", stato_paf());
// Elimino l'oggetto
_riepilogo_agg.erase(cod_aliquota);
@ -1530,7 +1530,7 @@ bool TDoc_fp::export_paf0100f()
tel << get_firm().get(NDT_PTEL) << get_firm().get(NDT_TEL);
paf0100f.set("P1_TELEFONO", tel);
paf0100f.set("P1_MAIL", get_firm().get(NDT_MAIL));
paf0100f.set("P1_GESTIONE", "D");
paf0100f.set("P1_GESTIONE", stato_paf());
paf0100f.set("P1_ERRINT", "");
// </DatiTrassmissione>
return insert(paf0100f);
@ -1622,7 +1622,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf0200f.set("P2_SEDECOMUNE", _ditta.comune_residenza());
paf0200f.set("P2_SEDEPROV", _ditta.provincia_residenza());
paf0200f.set("P2_SEDENAZ", _paese);
paf0200f.set("P2_GESTIONE", "D");
paf0200f.set("P2_GESTIONE", stato_paf());
TString rifamm = cco(doc).get("S4");
if (rifamm.blank())
@ -1741,7 +1741,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
{
paf0400f.set("P4_ANATITOLO", cache().get("TIT", _rec_clifo.vendite().get(CFV_TITOLO), "S0"));
}
paf0400f.set("P4_GESTIONE", "D");
paf0400f.set("P4_GESTIONE", stato_paf());
ok &= insert(paf0400f);
// </CessionarioCommittente>
// <DatiGenerali>
@ -1750,7 +1750,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf0700f.set("P7_DIVISA", "EUR"); // Fisso su euro in quanto effettuiamo il cambio
paf0700f.set("P7_DATA", doc.data());
paf0700f.set("P7_NUMERO", complete_num_fp(doc.codice_numerazione(), doc.numero()));
paf0700f.set("P7_GESTIONE", "D");
paf0700f.set("P7_GESTIONE", stato_paf());
// <DatiBollo>
if (doc.bolli_esenti_dovuti())
{
@ -1794,7 +1794,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf2700f.set("PQ_CAUSALE", causale);
}
// paf2700f.set("PQ_ART73", true);
paf2700f.set("PQ_GESTIONE", "D");
paf2700f.set("PQ_GESTIONE", stato_paf());
ok &= insert(paf2700f);
// <DatiOrdineAcquisto>
if ((doc.is_nota_credito() || get_send_all_rifs()) && doc.get(DOC_NUMDOCRIF).full())
@ -1856,7 +1856,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1000f.set("P0_COMMESSACONV", com);
paf1000f.set("P0_CODCUP", cup);
paf1000f.set("P0_CODCIG", cig);
paf1000f.set("P0_GESTIONE", "D");
paf1000f.set("P0_GESTIONE", stato_paf());
ok &= insert(paf1000f);
}
else
@ -1868,7 +1868,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1100f.set("PA_COMMCONVENZ", com);
paf1100f.set("PA_CODCUP", cup);
paf1100f.set("PA_CODCIG", cig);
paf1100f.set("PA_GESTIONE", "D");
paf1100f.set("PA_GESTIONE", stato_paf());
ok &= insert(paf1100f);
}
else
@ -1879,7 +1879,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1200f.set("PB_COMMCONVENZ", com);
paf1200f.set("PB_CODCUP", cup);
paf1200f.set("PB_CODCIG", cig);
paf1200f.set("PB_GESTIONE", "D");
paf1200f.set("PB_GESTIONE", stato_paf());
ok &= insert(paf1200f);
}
}
@ -1939,7 +1939,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
TDate dataddt(atoi(temp.left(2)), atoi(temp.mid(3, 2)), atoi(temp.right(2)));
paf1600f.set("PF_DATADDT", dataddt);
paf1600f.set("PF_GESTIONE", "D");
paf1600f.set("PF_GESTIONE", stato_paf());
paf1600f.set("PF_RIFNUMLINEA", numlinea++);
ok &= insert(paf1600f); // </DatiDDT>
}
@ -2026,7 +2026,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1600f.set("PF_RIFNUMLINEA", static_cast<long>(r));
paf1600f.set("PF_NUMDDDT", a._numdoc);
paf1600f.set("PF_DATADDT", a._datadoc);
paf1600f.set("PF_GESTIONE", "D");
paf1600f.set("PF_GESTIONE", stato_paf());
ok &= insert(paf1600f);
// </DatiDDT>
}
@ -2041,7 +2041,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1000f.set("P0_COMMESSACONV", com);
paf1000f.set("P0_CODCUP", cup);
paf1000f.set("P0_CODCIG", cig);
paf1000f.set("P0_GESTIONE", "D");
paf1000f.set("P0_GESTIONE", stato_paf());
ok &= insert(paf1000f);
// </DatiOrdineAcquisto>
}
@ -2157,7 +2157,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
// Applico uno sconto del 100% portando l'importo a zero
paf2000f.set("PJ_PERCSCONTO", CENTO);
paf1800f.set("PI_PRZTOTALE", ZERO);
paf2000f.set("PJ_GESTIONE", "D");
paf2000f.set("PJ_GESTIONE", stato_paf());
ok &= insert(paf2000f);
}
ok &= insert(paf2100f);
@ -2189,7 +2189,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf2000f.set("PJ_TIPOSCONTO", "MG");
paf2000f.set("PJ_PERCSCONTO", -perc);
}
paf2000f.set("PJ_GESTIONE", "D");
paf2000f.set("PJ_GESTIONE", stato_paf());
ok &= insert(paf2000f);
}
}
@ -2202,7 +2202,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
cached_custom_fp().get_custom(doc).load_adg_paf(paf2100f, *rdoc, *this, riga);
}
paf1800f.set("PI_GESTIONE", "D");
paf1800f.set("PI_GESTIONE", stato_paf());
ok &= insert(paf1800f) && insert(paf3000f);
riga++;
}
@ -2229,7 +2229,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1600f.set("PF_NUMDDDT", buono->_numdoc);
paf1600f.set("PF_DATADDT", buono->_datadoc);
paf1600f.set("PF_RIFNUMLINEA", rifnumlinea++);
paf1600f.set("PF_GESTIONE", "D");
paf1600f.set("PF_GESTIONE", stato_paf());
ok &= insert(paf1600f);
}
}
@ -2467,7 +2467,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
const char* rateazione = pag.cond_pag_sdi(); // A rate (TP01) o una soluzione(TP02)?
paf2400f.set("PN_RIGA", ZERO); // Al momento non gestiamo pi tipologie di pagamento per documento
paf2400f.set("PN_CONDPAGAMENTO", rateazione);
paf2400f.set("PN_GESTIONE", "D");
paf2400f.set("PN_GESTIONE", stato_paf());
ok &= insert(paf2400f);
TPaf_record& paf2500f = _paf_container.get_paf("PAF2500F");
// Imposto i campi uguali per tutte le rate
@ -2500,7 +2500,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
TToken_string& riga_scadenze = scad.row(nr); // Data|Importo
paf2500f.set("PO_DATASCADENZA", TDate(riga_scadenze.get(0))); // Data scadenza
paf2500f.set("PO_IMPORTO", converti_prezzo(real(riga_scadenze.get()))); // Importo rata
paf2500f.set("PO_GESTIONE", "D");
paf2500f.set("PO_GESTIONE", stato_paf());
ok &= insert(paf2500f);
}
// </DatiPagamento>
@ -2650,7 +2650,7 @@ TRectype& TDoc_fp::key_to_doc(const TDoc_key& key)
_doc_rec->put(DOC_NDOC, key.ndoc());
return *_doc_rec;
}
TDoc_fp::TDoc_fp() : _doc_rec(nullptr), _log(nullptr), _cache_insert(false)
TDoc_fp::TDoc_fp(bool provvisorio) : _doc_rec(nullptr), _log(nullptr), _cache_insert(false) , _provvisorio(provvisorio)
{
_ditta.init(LF_NDITTE, prefix().get_codditta());
_cofi = get_cofi_tras();

15
src/fp/fpmenu.men
View File

@ -5,11 +5,10 @@ Module = fp
Flags = ""
Item_01 = "Manutenzione modulo", [FPMENU_003]
Item_02 = "Invio fatture", "fp0 -2", ""
Item_03 = "Monitor Fatture Passive", "fp0 -3", ""
Item_04 = "Archiviazione Sostitutiva", [FPMENU_004]
Item_05 = "Stampe", [FPMENU_002]
Item_05 = "Regolarizzazione Contabile", [FPMENU_005]
Item_03 = "Invio Regolarizzazioni", "fp0 -6", ""
Item_04 = "Monitor Fatture Passive", "fp0 -3", ""
Item_05 = "Archiviazione Sostitutiva", [FPMENU_004]
Item_06 = "Stampe", [FPMENU_002]
[FPMENU_002]
Caption = "Stampe"
@ -37,10 +36,4 @@ Item_01 = "Estrazioni", "f90 -0", ""
Item_02 = "Categorie documentali", "f90 -1", ""
Item_03 = "Gestione file doc. cartacei", "f90 -2", ""
[FPMENU_005]
Caption = "Regolarizzazione Contabile"
Picture = <cg01>
Module = f9
Flags = ""
Item_01 = "Invio Regolarizzazioni", "fp0 -6", ""