From 166282953ee118bb140072868194a57b80f54fde Mon Sep 17 00:00:00 2001
From: luca83 <luca83@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 8 Feb 2011 15:57:14 +0000
Subject: [PATCH] Patch level         : Files correlati     : Ricompilazione
 Demo : [ ] Commento            : Segnalazioni Tassan 08/02

git-svn-id: svn://10.65.10.50/branches/R_10_00@21598 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ps/pl0002100.cpp | 26 +++++++++++++++++++++++---
 1 file changed, 23 insertions(+), 3 deletions(-)

diff --git a/ps/pl0002100.cpp b/ps/pl0002100.cpp
index d327fd5f4..46223c5f5 100755
--- a/ps/pl0002100.cpp
+++ b/ps/pl0002100.cpp
@@ -13,6 +13,7 @@
 #include <clifo.h>
 #include <..\lv\lvcondv.h>
 #include <..\lv\lvrcondv.h>
+#include <..\mg\clifogiac.h>
 #include <..\ve\condv.h>
 #include <..\ve\rcondv.h>
 
@@ -167,7 +168,7 @@ bool TLif_clifo_ca_anagrafiche::trasferisci()
       rec.put(CLI_CODCF, codcf);
       rec.put(CLI_STATOCF, stato);
       rec.put(CLI_RAGSOC, ragsoc);
-      rec.put(CLI_TIPOPERS, tpper == '0' ? false : true);
+      rec.put(CLI_TIPOPERS, tpper == '0' ? true : false);
       rec.put(CLI_COFI, cofi);
       rec.put(CLI_PAIV, paiv);
       rec.put(CLI_MAIL, mail);
@@ -207,10 +208,16 @@ bool TLif_contratti::trasferisci()
 	ini.list_variables(lista_campi, true, "CONTRATTI", true);
   TSystemisamfile condv(LF_LVCONDV);
   TSystemisamfile rcondv(LF_LVRCONDV);
+  TSystemisamfile clifogiac(LF_CLIFOGIAC);
   condv.open(_lock);
   rcondv.open(_lock);
+  clifogiac.open(_lock);
   TRectype& trec = condv.curr();
   TRectype& rrec = rcondv.curr();
+  TRectype& grec = clifogiac.curr();
+
+  const int anno = TDate(TODAY).year();
+
   TLif_iterator hi(this);
 
   TAssoc_array contratti;
@@ -234,12 +241,25 @@ bool TLif_contratti::trasferisci()
     }
     
     rrec.zero();
+    grec.zero();
     rrec.put(LVRCONDV_CODCF, codcf);
     rrec.put(LVRCONDV_CODCONT, 1);
-    //real dotin(get_str("qta_iniziale"));
-    //real dotod(get_str("qta_attuale"));
 
+    real dotin(get_str("qta_iniziale"));
+    real dotod(get_str("qta_attuale"));
     TString80 codart = get_str("cod_art");
+
+    grec.put(CLIFOGIAC_ANNOES, anno);
+    grec.put(CLIFOGIAC_TIPOCF, 'C');
+    grec.put(CLIFOGIAC_CODCF, codcf);
+    grec.put(CLIFOGIAC_INDSPED, 0);
+    grec.put(CLIFOGIAC_CODART, codart);
+    grec.put(CLIFOGIAC_NRIGA, 1);
+    grec.put(CLIFOGIAC_DOTIN, dotin);
+    grec.put(CLIFOGIAC_DOTOD, dotod);
+
+    test_write(clifogiac);
+    
     real prezzo(get_str("prezzo_inuso"));
     real mincic(get_str("qta_minimociclaggio"));
     real valcon(get_str("valore_convenzionale"));