Patch level : 12.0 1098

Files correlati     : li0.exe fp0.exe ve1.exe
Commento        :

Aggiunta la data di protocollo dell'Agenzia delle Entrate sulle lettere d'intento.
This commit is contained in:
Alessandro Bonazzi 2021-11-30 10:01:04 +01:00
parent 6cecf68dc8
commit 80f97452f0
3 changed files with 18 additions and 4 deletions

View File

@ -67,7 +67,12 @@ bool TLetint_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
}
}
break;
case F_PROTINTF:
if (e == fe_close && get_int(F_ANNO) > 2020 && (insert_mode() || edit_mode()))
{
if (!o.get().full())
return error_box(TR("Dal 2021 il protocollo di invio è obbligatorio"));
}
case F_DATAREG:
if (e == fe_close && insert_mode())
{
@ -238,6 +243,8 @@ void TLetint::init_modify_mode(TMask& m) //evita la registrazione di un record m
xvtil_statbar_set(msg);
}
m.disable(F_UTILIZZATO);
if (m.get(F_PROTDATA).blank() && m.get(F_PROTINTF).full())
m.set(F_PROTDATA, m.get(F_VSDATA));
}

View File

@ -196,13 +196,15 @@ DATE F_VSDATA
BEGIN
PROMPT 35 11 "Data di emissione"
FIELD VSDATA
CHECKTYPE REQUIRED
VALIDATE REQIF_FUNC 1 F_VSPROT
WARNING "Data di emissione obbligatoria"
END
STRING F_PROTINTF 17
BEGIN
PROMPT 1 12 "Numero di protocollo di invio:"
FIELD PROTINTF
WARNING "Numero di protocollo obbligatorio"
//CHECKTYPE REQUIRED
END
@ -210,13 +212,16 @@ STRING F_PROTINTS 6
BEGIN
PROMPT 50 12 "-"
FIELD PROTINTS
//CHECKTYPE REQUIRED
VALIDATE REQIF_FUNC 1 F_PROTINTF
WARNING "Numero di protocollo obbligatorio"
END
DATE F_PROTDATA
BEGIN
PROMPT 60 12 ""
PROMPT 60 12 "Data"
FIELD PROTDATA
VALIDATE REQIF_FUNC 1 F_PROTINTF
WARNING "Data di protocollo obbligatoria"
END
STRING F_TIPOES 6

View File

@ -443,6 +443,8 @@ int TLi_manager::get_plafond_row(const TDocumento & d, TString & protinf, TStrin
protinf = reclint.get(LETINT_PROTINTF);
protins = reclint.get(LETINT_PROTINTS);
dataprot = reclint.get_date(LETINT_PROTDATA);
if (!dataprot.ok())
dataprot = reclint.get_date(LETINT_VSDATA);
if (type.full() && rectype.full())
{
field = rectype.get("S4");