Patch level : 12.0 1098

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

modificato l'invio dellete lettee d'intento

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

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())

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"
+  PROMPT 1 12 "Numero di protocollo"
-  FIELD PROTDATA
+  FIELD VSPROT
-  VALIDATE REQIF_FUNC 1 F_PROTINTF
+END
-  WARNING "Data di protocollo obbligatoria"
+
+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

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