Visualizzazione deleghe in dettaglio mese visualizz.

git-svn-id: svn://10.65.10.50/trunk@969 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg4302.cpp

@@ -482,7 +482,8 @@ real TLiquidazione_app::versamenti_IVA(int month, const char* types, bool intr)
   {                      
     int tp = typ.get_int(i);
     if (look_del(month,tp)) 
-      if (_del->get_bool("B0"))   // solo se stampata
+      if (_del->get_bool("B0") || _is_visliq)   // solo se stampata, a meno
+                                                // che non sia per visliq
       {
         ret += _del->get_real("R0"); 
         if (intr) ret += _del->get_real("R1");   

cg/cg4304.cpp

@@ -587,7 +587,6 @@ void TLiquidazione_app::describe_liq(int month, const char* codatts,
   d->_r5  = _lim->get_real("R5");
   d->_r6  = _lim->get_real("R6");
   d->_r7  = _lim->get_real("R11");
-  d->_r8  = _lim->get_real("R8");
   d->_r9  = _lim->get_real("R9");
   d->_r10 = _lim->get_real("R7"); // totale conguaglio prorata
   d->_s0  = _lim->get("S2");
@@ -596,6 +595,18 @@ void TLiquidazione_app::describe_liq(int month, const char* codatts,
   d->_s3  = _lim->get("S5");
   d->_r11 = (const char*)_lim->get("R10");   // tasso di interesse
 
+  if (_is_visliq)                                    
+  {
+    // tutti i versamenti, sempre e comunque
+    d->_r8 = versamenti_IVA(_month, "1", TRUE); 
+    // nessuno li ha scritti in LIM
+    d->_r0 -= d->_r8;
+  }
+  else
+    // rispettiamo tutte le casistiche per i versamenti
+    d->_r8  = _lim->get_real("R8");
+
+
   // aggiunge eventuale satellite per rimborso infraannuale
   if (di != NULL) d->_arr.add(di);
 
@@ -1017,18 +1028,25 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
 
   set_row(rw++,"%s@11gRettifiche IVA a credito@58g%r", 
           _is_visliq ? "$[r]" : "", &rett_cred);
-
+  
-  // versamenti effettuati
+  if (_is_visliq)
-  if (!versamenti.is_zero())
+  {
-  {        
+    // stampa ad uso visualizzazione liquidazione IVA
-    set_row(rw++,"@11gVersamenti effettuati@58g%r", &versamenti);
+    set_row(rw++,"@11g$[r]Versamenti effettuati@58g%r", &versamenti);
+  } 
+  else
+  {
+    // versamenti effettuati
+    if (!versamenti.is_zero())
+    {        
+      set_row(rw++,"@11gVersamenti effettuati@58g%r", &versamenti);
+    }
+    // versamenti integrativi
+    if (!vers_int.is_zero())
+    {        
+      set_row(rw++,"@11gVersamenti integrativi@58g%r", &vers_int);
+    }  
   }
-  // versamenti integrativi
-  if (!vers_int.is_zero())
-  {        
-    set_row(rw++,"@11gVersamenti integrativi@58g%r", &vers_int);
-  }
-
   if (conguaglio.sign() < 0) 
   {                                                            
     real cg = conguaglio;

cg/cg5500.cpp

@@ -221,7 +221,9 @@ const char* Visliq_app::link_handler(TMask& m,
   else if (st.find("debito") != -1 || st.find("credito") != -1)
   { group = -2;  firstfoc = F_RETTIFICA; }
   else if (st.find("acconto") != -1)
-  { group = -3;  firstfoc = F_ACCONTO;   }                  
+  { group = -3;  firstfoc = F_ACCONTO;   } 
+  else if (st.find("Versamenti") != -1)                 
+  { group = -4;  firstfoc = F_DELDATE;   } 
   
   m.show(group);        
   m.enable(group);  
@@ -340,10 +342,10 @@ bool Visliq_app::sel_mese_sh2 (TMask_field& f, KEY k)
 void Visliq_app::update_sheet_row(TToken_string& t)
 {
   t.add(abs(_lim->get_real("R0")).string(),2);  
-  t.add((_lim->get_real("R0")).sign() > 0 ? "D" : "C", 3);
+  t.add((_lim->get_real("R0")).sign() >= 0 ? "D" : "C", 3);
   t.add((_lim->get_real("R1")).string(),4);
   t.add(abs(_lim->get_real("R5")).string(),5);
-  t.add((_lim->get_real("R5")).sign() > 0 ? "D" : "C", 6);
+  t.add((_lim->get_real("R5")).sign() >= 0 ? "D" : "C", 6);
 }
 
 bool Visliq_app::vis_liq()
@@ -705,6 +707,7 @@ bool Visliq_app::vis_one(int m)
   long ll, ll2, lvers = -1; int x; 
 
   int  isdebt = risultato.sign();
+  long lrivr  = vsw->search("Versamenti effettuati",x,line,TRUE);
   long lrisd  = vsw->search("RISULTATO", x, line, TRUE);     // RISULTATO a debito
   long lrisc  = vsw->search("RISULTATO", x, lrisd+1l, TRUE); //             credito
   if (risultato.sign())
@@ -716,10 +719,31 @@ bool Visliq_app::vis_one(int m)
   real risc(real::ita2eng(brw.get_text(lrisc,58,15)));                         
   real risd(real::ita2eng(brw.get_text(lrisd,75,15)));
   
+  real vers = 0.0; 
+  TDate date(TODAY);             
+  TString cab(5), abi(5), con(5);   
+  
+  bool is_delega = FALSE;
+  
+  if (is_delega = look_del(m,1))
+  {
+    vers = _del->get_real("R0") + _del->get_real("R1");
+    date = _del->get_date("D0");
+    abi  = _del->get("S7");
+    cab  = _del->get("S8");
+    con  = _del->get("S9");
+  }
+  
+  msk.field(F_DELDATE).set(date.string());
+  msk.field(F_DELIMP).set(vers.string());
+  msk.field(F_DELABI).set(abi);
+  msk.field(F_DELCAB).set(cab);
+  msk.field(F_DELCON).set(con);
+  
   if (lrisd == -1l || lrisc == -1l) return FALSE;                       
   if (lvers == -1l) lvers = lrisc+1l;
 
-  bool write_lia = FALSE, write_lim = FALSE;
+  bool write_lia = FALSE, write_lim = FALSE, write_del = FALSE;
   end_wait();
   
   for(;;)
@@ -731,6 +755,7 @@ bool Visliq_app::vis_one(int m)
       real    n_acconto  (msk.get(F_ACCONTO));
       real    n_rimborso (msk.get(F_RIMBORSO));
       real    n_rettifica(msk.get(F_RETTIFICA));
+      real    n_delimp(msk.get(F_DELIMP));
       TString n_desc1 (msk.get(F_DESCR1));
       TString n_desc2 (msk.get(F_DESCR2));
 
@@ -823,13 +848,81 @@ bool Visliq_app::vis_one(int m)
         _lim->put("S0", n_desc1);
         write_lim = TRUE;
       }
-      if (msk.field(F_DESCR1).dirty())
+      if (msk.field(F_DESCR2).dirty())
       {
         _lim->put("S1", n_desc2);
         write_lim = TRUE;
-      }      
+      }                     
+      
+      // delegations
+      if (msk.field(F_DELDATE).dirty())
+      {
+        if (!is_delega) 
+        {
+          look_del(m,1,TRUE);
+          is_delega = TRUE;
+        }                  
+        _del->put("D0",msk.get(F_DELDATE));
+        write_del = TRUE;
+      }        
+      
+      if (msk.field(F_DELIMP).dirty())
+      {        
+        if (!is_delega) 
+        {
+          look_del(m,1,TRUE);
+          is_delega = TRUE;
+        }                  
+        if (lrivr != -1)
+          vsw->replace(lrivr, n_delimp.string("###.###.###.###"), 58);
+        risultato += vers;
+        risultato -= n_delimp;    
+        risc      -= vers;
+        risc      += n_delimp;
+        vsw->replace(lrisc, risc.string("###.###.###.###"), 58);                    
+        set_risultato(vsw, lvers, risultato);
+
+        _del->put("R0", n_delimp);
+        _del->put("R1", "");
+        write_del = TRUE;
+      }
+      if (msk.field(F_DELABI).dirty())
+      {
+        if (!is_delega) 
+        {
+          look_del(m,1,TRUE);
+          is_delega = TRUE;
+        }                  
+        _del->put("S7",msk.get(F_DELABI));
+        write_del = TRUE;
+      }
+      if (msk.field(F_DELCAB).dirty())
+      {
+        if (!is_delega) 
+        {
+          look_del(m,1,TRUE);
+          is_delega = TRUE;
+        }                  
+        _del->put("S8",msk.get(F_DELCAB));
+        write_del = TRUE;
+      }
+      if (msk.field(F_DELCON).dirty())
+      {
+        if (!is_delega) 
+        {
+          look_del(m,1,TRUE);
+          is_delega = TRUE;
+        }                  
+        _del->put("S9",msk.get(F_DELCON));
+        write_del = TRUE;
+      }
+      // end delegations
+      
       if (write_lia && k == K_SAVE)
-        _lia->rewrite();   
+        _lia->rewrite();    
+      
+      if (write_del && k == K_SAVE)
+        _del->rewrite();
 
       if ((write_lim || write_lia) && k == K_SAVE)
       {

cg/cg5500a.h

@@ -14,6 +14,11 @@
 #define F_DESCR2    114
 #define F_DEBCRE    115
 #define F_SELECT    116
+#define F_DELDATE   117
+#define F_DELIMP    118
+#define F_DELABI    119
+#define F_DELCAB    120
+#define F_DELCON    121
 
 #define F_CODDITTA2 201  
 #define F_RAGSOC2   202

cg/cg5500d.uml

@@ -88,6 +88,64 @@ BEGIN
     PICTURE "."
 END                         
 
+/* gruppo 4: edit delega */
+
+DATE F_DELDATE
+BEGIN
+	PROMPT 3 15 "Data       "
+	GROUP 4
+	FLAGS "H"
+END
+
+NUMBER F_DELIMP 15 0
+BEGIN 
+	PROMPT 26 15 "Importo versato "
+	GROUP 4
+	PICTURE "."
+	FLAGS "HR"
+END
+
+NUMBER F_DELABI 5
+BEGIN
+  PROMPT 3 16 "Codice ABI "
+  HELP "Codice ABI banca di appoggio"
+  FIELD S7
+  FLAGS "RZH" 
+  GROUP 4
+  USE %BAN
+  INPUT CODTAB[1,5] F_DELABI
+  INPUT CODTAB[6,10] F_DELCAB
+  DISPLAY "Codice ABI" CODTAB[1,5]
+  DISPLAY "Codice CAB" CODTAB[6,10]
+  DISPLAY "Descrizione @50" S0
+  OUTPUT F_DELABI CODTAB[1,5]
+  OUTPUT F_DELCAB CODTAB[6,10]
+  CHECKTYPE NORMAL
+END
+
+
+NUMBER F_DELCAB 5
+BEGIN
+  PROMPT 26 16 "Codice CAB      "
+  HELP "Codice CAB banca di appoggio"
+  FIELD S8
+  FLAGS "RZH"
+  GROUP 4
+  COPY ALL F_DELABI
+  CHECKTYPE NORMAL
+  WARNING "Banca assente"
+END
+
+
+NUMBER F_DELCON 3
+BEGIN
+  PROMPT 51 16 "Concessione "  
+  HELP "Codice Concessione del Comune di residenza fiscale"
+  FLAGS "RZH" 
+  GROUP 4
+END
+
+
 GROUPBOX DLG_NULL 80 5
 BEGIN
 	PROMPT 1 14 ""