Patch level : 12.00 1416

Files correlati     : m770.exe 770100a.msk 770100f.msk
Commento
Riprostinata la commessa precedente se l'attuale è chiusa
Ricerca sulle schede nella scheda percipienti
Proposto cod10 = C per causali esenti

src/m770/770100.cpp

@@ -674,7 +674,7 @@ bool TSchedaPercipienti::user_create()
                               HR("@1|Data@11|Compenso@16|Ritenuta@16|"),
                               0, NULL_WIN, 5);
 
-  set_search_field(F_CODANAGRPERC);
+  set_search_field(H_NPROG);
 
 //  simulo una chiamata da contabilità  (lo lascio per eventuali prove)
 /*  real totdocla = 1000000;
@@ -1764,11 +1764,11 @@ Pag_struct& TSchedaPercipienti::from_sheet_to_struct(TToken_string& t, Pag_struc
   if ((pos = token_pos("COD10")) != -1)
     s.cod10 = t.get(pos); 
 
-  // set imorti restituiti al netto della ritenuta
+  // set importi restituiti al netto della ritenuta
   if ((pos = token_pos("SPESERIMB")) != -1)
 	  s.speserimb = t.get_real(pos);
 
-  // set imorti restituiti al netto della ritenuta
+  // set importi restituiti al netto della ritenuta
   if ((pos = token_pos("RITRIMB")) != -1)
 	  s.ritrimb = t.get_real(pos);
 

src/m770/770100a.h

@@ -6,6 +6,7 @@
 #define F_TIPOA         151  
 #define F_CODANAGR      152  
 #define F_NPROG         153  
+#define H_NPROG         154  
 
 // m70100a
 #define F_RAGDITTA      200

src/m770/770100a.uml

@@ -171,7 +171,6 @@ BEGIN
   GROUP 1
 END
 
-
 NUMBER F_NPROG 6
 BEGIN
   PROMPT 1 11 "@bScheda numero  "  
@@ -199,6 +198,37 @@ BEGIN
   OUTPUT F_NPROG    NPROG
 END
 
+NUMBER H_NPROG 6
+BEGIN
+  PROMPT 30 11 "  "  
+  CHECKTYPE NORMAL
+	FLAGS "DG"
+  USE LF_SCPERC 
+	JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR 
+  JOIN %CA7 INTO CODTAB=CODCAUS
+  INPUT CODDITTA F_CODDITTA
+  INPUT TIPOA    F_TIPOA
+  INPUT CODANAGR F_CODANAGR
+  INPUT NPROG    H_NPROG
+	DISPLAY "Tipo" TIPOA
+  DISPLAY "Codice" CODANAGR
+  DISPLAY "Denominazione@50" LF_ANAG->RAGSOC
+  DISPLAY "Numero@7" NPROG
+  DISPLAY "Data\nDocumento@10" DATADOC
+  DISPLAY "Numero\nDocumento@8" NUMDOC
+  DISPLAY "Causale" CODCAUS
+  DISPLAY "Quadro" %CA7->S1   
+  DISPLAY "Causale\nQuadro@6" CAUSQUA
+  DISPLAY "Ritenute\noperate@15V" RITOPE
+  DISPLAY "Ritenute\nversate@15V" RITVER
+  DISPLAY "Compenso@15V" COMPENSO
+
+  OUTPUT F_TIPOA    TIPOA
+  OUTPUT F_CODANAGR CODANAGR
+  OUTPUT H_NPROG    NPROG
+	OUTPUT F_NPROG    NPROG
+END
+
 BUTTON F_GESTPERC 28 2
 BEGIN
   PROMPT -12 -1 "Fatture da ricevere"

src/m770/770100f.uml

@@ -136,8 +136,8 @@ BEGIN
   ITEM "B|redditi assoggettati in parte al contributo 10%"
   ITEM "C|redditi non assoggettati al contributo 10%"
   OUTPUT 111
-  FIELD LF_RPAG->COD10  
+//  FIELD LF_RPAG->COD10  
-  VALIDATE REQIF_FUNC 3 101 102 103 
+//  VALIDATE REQIF_FUNC 3 101 102 103 
   WARNING "Il codice contributo Inps deve essere indicato"
 END          
 

src/m770/770102.cpp

@@ -1,7 +1,8 @@
 #include "770100a.h"
 #include "770101.h"
 #include "770102.h"
-#include <tabutil.h>
+#include <tabutil.h> 
+#include <recarray.h>
 
 void TSchedaPercipienti::init_mask(TMask& m, bool inserimento)
 {
@@ -117,23 +118,37 @@ bool TSchedaPercipienti::vers_notify(TSheet_field& s, int r, KEY k)
 
 bool TSchedaPercipienti::pags_notify(TSheet_field& s, int r, KEY k)
 {
-  switch(k)
+	switch (k)
-  {                         
+	{
-       
-    // Inserimento riga      
-    case K_INS:
-      // Impedisce inserimento di nuove righe
-      return FALSE;     
 
-    // Inizio modifica riga     
+		// Inserimento riga      
-    case K_SPACE:
+	case K_INS:
-    {
+		// Impedisce inserimento di nuove righe
-      break;                        
+		return FALSE;
-    }
 
-    // Fine modifica di una riga  
+		// Inizio modifica riga     
-    case K_ENTER:
+	case K_SPACE:
-      break;                                  
+	{
+		break;
+	}
+
+	// Fine modifica di una riga  
+	case K_ENTER:
+		{
+			TEdit_field & fld = s.mask().efield(F_CODCAUS);
+			TMask & row_mask = s.sheet_mask();
+			const TRectype & ca7 = cache().get("%CA7", fld.get());
+
+			if (ca7.get_bool("B4") == false  && row_mask.get(111).blank())
+			{
+				row_mask.set(111, "C");
+				s.set_row_cell(111, "C", s.selected());
+			}
+			if (row_mask.get(101).full() && (row_mask.get(102).full() || row_mask.get(111).blank()) &&
+				row_mask.get(111).blank())
+				return error_box("Il codice contributo Inps deve essere indicato");
+		}
+    break;                                  
 
     default:
       break;