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

Patch level : 12.0 1098

Browse Source 
Files correlati     : li0.exe fp0.exe ve1.exe li0400a.msk
Commento        :

modificato l'invio dellete lettee d'intento
This commit is contained in:
Alessandro Bonazzi 2021-12-02 01:03:44 +01:00
parent f588e01498
commit 394ace407c
4 changed files with 17 additions and 50 deletions

2
src/li/f154.trr

@ -17,7 +17,7 @@ STAMPATO|8|1|0|Stampato
INVIATO|8|1|0|Inviato
PROTINTF|1|17|0|Numero di protocollo passato dall agenzia delle entrate (prima parte)
PROTINTS|1|6|0|Numero di protocollo passato dall agenzia delle entrate (seconda parte)
PROTDATA|5|8|0|Data di protocollo passata dall agenzia delle entrate
PROTDATA|5|8|0|Data di protocollo passata dall agenzia delle entrate (non usato si usa VSDATA)
CHIUSA|8|1|0|Indica se una lettera di intento è chiusa
CODTPE|1|3|0|Tipo di esenzione
2

4
src/li/li0400.cpp

@ -68,10 +68,10 @@ 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 (e == fe_close && get_int(F_ANNO) > 2021 && (insert_mode() || edit_mode()))
{
if (!o.get().full())
return error_box(TR("Dal 2021 il protocollo di invio è obbligatorio"));
return error_box(TR("Dal 2022 il protocollo di invio è obbligatorio"));
}
case F_DATAREG:
if (e == fe_close && insert_mode())

57
src/li/li0400a.uml

@ -163,46 +163,9 @@ BEGIN
FLAGS "D"
END
/*
NUMBER F_UFFIVA 3
BEGIN
PROMPT 1 11 "Ufficio IVA "
USE %UIV
INPUT CODTAB F_UFFIVA
DISPLAY "Ufficio" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_UFFIVA CODTAB
OUTPUT F_DENUFFIVA S0
CHECKTYPE REQUIRED
WARNING "Ufficio IVA assente"
FLAGS "Z"
FIELD UFFIVA
END
STRING F_DENUFFIVA 50
BEGIN
PROMPT 22 11 ""
FLAGS "D"
END
*/
STRING F_VSPROT 7
BEGIN
PROMPT 1 11 "Numero di protocollo"
FIELD VSPROT
END
DATE F_VSDATA
BEGIN
PROMPT 35 11 "Data di emissione"
FIELD VSDATA
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:"
PROMPT 1 11 "Numero di protocollo di invio:"
FIELD PROTINTF
WARNING "Numero di protocollo obbligatorio"
//CHECKTYPE REQUIRED
@ -210,18 +173,24 @@ END
STRING F_PROTINTS 6
BEGIN
PROMPT 50 12 "-"
PROMPT 50 11 "-"
FIELD PROTINTS
VALIDATE REQIF_FUNC 1 F_PROTINTF
WARNING "Numero di protocollo obbligatorio"
END
DATE F_PROTDATA
STRING F_VSPROT 7
BEGIN
PROMPT 60 12 "Data"
FIELD PROTDATA
VALIDATE REQIF_FUNC 1 F_PROTINTF
WARNING "Data di protocollo obbligatoria"
PROMPT 1 12 "Numero di protocollo"
FIELD VSPROT
END
DATE F_VSDATA
BEGIN
PROMPT 35 12 "Data di emissione"
FIELD VSDATA
VALIDATE REQIF_FUNC 2 F_PROTINTF F_VSPROT
WARNING "Data di emissione obbligatoria"
END
STRING F_TIPOES 6

4
src/li/lilib01.cpp

@ -442,9 +442,7 @@ 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);
dataprot = reclint.get_date(LETINT_VSDATA);
if (type.full() && rectype.full())
{
field = rectype.get("S4");