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

Patch level : 12.00 1396

Browse Source 
Files correlati     : ve0.exe fp0.exe fp0300a.msk cg2.exe cg5.exe
Commento                :
Se non è attiva l'analitica non mostra la pagina relativa
IL ripristino funziona anche senza la data di ultima stampa
Pulsante per segnare fatture come inviate
This commit is contained in:
Alessandro Bonazzi 2025-07-22 08:53:53 +02:00
parent c0d9254186
commit 0fd977c80d
2 changed files with 43 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/fp/fp0300.cpp
View File

@ -31,6 +31,7 @@ protected:
void set_filter_changed();
void set_pronto();
void set_inviate();
void connect_keys();
void export_paf();
bool on_field_event(TOperable_field& o, TField_event e, long jolly) override;
@ -322,6 +323,34 @@ void TPA_mask::set_pronto()
force_reload_sheet();
}
void TPA_mask::set_inviate()
{
TString_array& sht = sfield(F_DOCS).rows_array();
TProgress_monitor pi(sht.items(), "Impostazione Fatture");
FOR_EACH_ARRAY_ROW(sht, r, riga)
{
if (!pi.add_status())
break;
if (!riga->starts_with("X"))
continue;
static TString campo_hfatt, campo_bfatt, query;
TDocumento doc('D', riga->get_int(xvtil_cid2index(S_ANNO)), riga->get(xvtil_cid2index(S_CODNUM)), riga->get_long(xvtil_cid2index(S_NDOC)));
if (chiave_paf_doc(doc, campo_hfatt, campo_bfatt))
{
// Come prima cosa controllo che effettivamente la chiave di questo doc sia in giro per il mondo
query.cut(0) << "UPDATE PAF0100F SET P1_GESTIONE = 'N' WHERE P1_KEYHEADERFATT = '" << campo_hfatt << "' AND P1_KEYBODYFATT = '" << campo_bfatt << "'";
fp_db().sq_set_exec(query);
}
}
// Committo tutto
fp_db().sq_commit();
force_reload_sheet();
}
void TPA_mask::connect_keys()
{
TString_array& sht = sfield(F_DOCS).rows_array();
@ -558,10 +587,15 @@ bool TPA_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
}
break;
case DLG_FINDREC:
{
{
if (e == fe_button)
set_pronto();
}
}
case DLG_EDIT:
{
if (e == fe_button)
set_inviate();
}
break;
case DLG_PRINT:
{

8
src/fp/fp0300a.uml
View File

@ -35,6 +35,12 @@ BEGIN
FLAGS "D"
END
BUTTON DLG_EDIT 2 2
BEGIN
PROMPT 1 1 "Segna inviata"
PICTURE TOOL_EDIT
END
BUTTON DLG_PRINT 2 2
BEGIN
PROMPT 1 1 "Correggi chiavi"
@ -65,7 +71,7 @@ END
RADIOBUTTON F_FATTSEL 3 80
BEGIN
PROMPT 1 2 "Fatture da visualizzare"
ITEM "|Da inviare"
ITEM " |Da inviare"
ITEM "X|XML Generato"
ITEM "N|Notificato"
ITEM "E|In errore"