Patch level :10.0 808

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Riporto dalla 11.0:
_contabilizzazione contratti premio
_tabcom necessarie per la contab...premio
_collegamento del contratto contabilizzato alla prima nota
_configurazione hardy abbastanza avanti


git-svn-id: svn://10.65.10.50/branches/R_10_00@20883 c028cbd2-c16b-5b4b-a496-9718f37d4682

ha/ha0200a.uml

@@ -167,24 +167,24 @@ END
 STRING F_CO_POST_NUM 4
 BEGIN
   PROMPT 20 10 "Numerazione "
-  /*USE %NUM
+  USE %NUM
   INPUT CODTAB F_CO_POST_NUM
   DISPLAY "Codice@8" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CO_POST_NUM CODTAB
-  CHECKTYPE REQUIRED*/
+  CHECKTYPE REQUIRED
   FIELD CoPostNum
 END
 
 STRING F_CO_POST_TIP 4
 BEGIN
   PROMPT 42 10 "Tipo "
-  /*USE %TIP
+  USE %TIP
   INPUT CODTAB F_CO_POST_TIP
   DISPLAY "Codice@8" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CO_POST_TIP CODTAB
-  CHECKTYPE REQUIRED*/
+  CHECKTYPE REQUIRED
   FIELD CoPostTip
 END
 
@@ -244,24 +244,24 @@ END
 STRING F_CO_RIFA_NUM 4
 BEGIN
   PROMPT 20 14 "Numerazione "
-  /*USE %NUM
+  USE %NUM
   INPUT CODTAB F_CO_RIFA_NUM
   DISPLAY "Codice@8" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CO_RIFA_NUM CODTAB
-  CHECKTYPE REQUIRED*/
+  CHECKTYPE REQUIRED
   FIELD CoRifaNum
 END
 
 STRING F_CO_RIFA_TIP 4
 BEGIN
   PROMPT 42 14 "Tipo "
-  /*USE %TIP
+  USE %TIP
   INPUT CODTAB F_CO_RIFA_TIP
   DISPLAY "Codice@8" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CO_RIFA_TIP CODTAB
-  CHECKTYPE REQUIRED*/
+  CHECKTYPE REQUIRED
   FIELD CoRifaTip
 END
 

ha/ha0300.cpp

@@ -2,6 +2,7 @@
 #include <recarray.h>
 #include <relapp.h>
 
+#include <mov.h>
 #include <cfven.h>
 #include <doc.h>
 #include <rdoc.h>
@@ -23,6 +24,7 @@ class TDocumenti_premio_msk : public TAutomask
 protected:
   bool find_prezzo_articolo(const TString& codart, real& prezzo, TString& um) const;
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
+  virtual bool on_key(KEY key);
 
 public:
   TDocumenti_premio_msk();
@@ -33,6 +35,17 @@ TDocumenti_premio_msk::TDocumenti_premio_msk() : TAutomask("ha0300a")
 {
 }
 
+//metodo standard per far funzionare il shift+f12 in modo da poter cambiare lo stato
+bool TDocumenti_premio_msk::on_key(KEY key)
+{
+  if (key == K_SHIFT + K_F12)
+  {
+    enable(F_STATO);
+    return true;
+  }
+  return TAutomask::on_key(key);
+}
+
 bool TDocumenti_premio_msk::find_prezzo_articolo(const TString& codart, real& prezzo, TString& um) const
 {
   //1) contratto
@@ -156,6 +169,18 @@ bool TDocumenti_premio_msk::on_field_event(TOperable_field& o, TField_event e, l
       }
     }
     break;
+  case F_COLLEGA:
+    if (e == fe_button)
+    {
+      const long numreg_cg = get_long(F_NUMREG);
+      if (numreg_cg > 0)
+      {
+        TRectype mov(LF_MOV);
+        mov.put(MOV_NUMREG, numreg_cg);
+        mov.edit();
+      }
+    }
+    break;
   default:
     break;
   };
@@ -320,6 +345,11 @@ void TDocumenti_premio::write_rows(const TMask& m)
     rec.put(RDOC_TIPORIGA, HARDY_TIPORIGA_MERCE);
   }
   //salva la riga di tipo somme anticipate/rimborsate (H02) che in realtà è in testata
+  //questo vale solo per i contratti di Anticip/Rifatturazione
+  TConfig config(CONFIG_DITTA, "ha");
+  const char tipo_contr = m.get(F_TIPOCONTR)[0];
+  if (tipo_contr == 'A' || tipo_contr == 'R')
+  {
     const int righedoc_items = righedoc.rows();
     TRectype& last_rec = righedoc.row(righedoc_items + 1, true);
     const real anticipato = m.get_real(F_ANTICIPATO);
@@ -331,8 +361,6 @@ void TDocumenti_premio::write_rows(const TMask& m)
 
     //panegirico sul codice iva (che ci va sennò col cavolo che si riesce a contabilizzare il contratto)
     TString80 codspp;
-  TConfig config(CONFIG_DITTA, "ha");
-  const char tipo_contr = m.get(F_TIPOCONTR)[0];
     switch (tipo_contr)
     {
     case 'A': codspp = config.get("CoAntSpe");  break;
@@ -348,7 +376,7 @@ void TDocumenti_premio::write_rows(const TMask& m)
     if (!codiva.full())
       codiva = cache().get("SPP", codspp, "S3");
     last_rec.put(RDOC_CODIVA, codiva);
-
+  }
   //e alla fine della fiera scrive tutto ufficialmente
   righedoc.rewrite();
 }
@@ -356,6 +384,7 @@ void TDocumenti_premio::write_rows(const TMask& m)
 
 void TDocumenti_premio::init_query_mode(TMask& m)
 {
+  m.disable(F_STATO);
 }
 
 void TDocumenti_premio::init_insert_mode(TMask& m)

ha/ha0300a.h

@@ -25,8 +25,10 @@
 #define F_TIPOCONTR   224
 #define F_DATACOMP    225
 #define F_DATAFCOMP   226
-#define F_ANTICIPATO  227
+#define F_NUMREG      227
-#define F_RESTITUITO  228
+#define F_COLLEGA     228
+#define F_ANTICIPATO  229
+#define F_RESTITUITO  230
 
 #define F_RIGHE       500   //questo va messo 500 sennò ve0 si incazza e non funziona più
 

ha/ha0300a.uml

@@ -257,19 +257,40 @@ BEGIN
   ADD RUN ba3 -6
 END
 
+TEXT DLG_NULL
+BEGIN
+  PROMPT 2 9 "Validita':"
+END
+
 DATE F_DATACOMP
 BEGIN
-  PROMPT 2 9 "Inizio validita' "
+  PROMPT 13 9 "Inizio "
   FIELD DATACOMP
   CHECKTYPE REQUIRED
 END
 
 DATE F_DATAFCOMP
 BEGIN
-  PROMPT 35 9 "Fine validita' "
+  PROMPT 33 9 "Fine "
   FIELD DATAFCOMP
 END
 
+NUMBER F_NUMREG 7
+BEGIN
+  PROMPT 54 9 "N.reg.CG "
+  FIELD NUMREG
+  FLAGS "DUG"
+  MESSAGE EMPTY DISABLE,F_COLLEGA
+  MESSAGE ENABLE,F_COLLEGA
+END
+
+BUTTON F_COLLEGA 2 1
+BEGIN
+  PROMPT 74 9 "CG mov."
+  PICTURE BMP_DARROWR
+  FLAGS "D"
+END
+
 GROUPBOX DLG_NULL 76 3
 BEGIN
   PROMPT 2 10 "@bSomme anticipate/restituite"

ha/hamenu.men

@@ -5,6 +5,6 @@ Module  = 46
 Flags   = "F"
 Item_01 = "Configurazione Hardy", "ha0 -1", ""
 Item_02 = "Gestione contratti premio", "ha0 -2", ""
-Item_03 = "Contabilizzazione contratti premio", "ha0 -3", ""
+Item_03 = "Contabilizzazione contratti premio", "ve6 -1", "F"
 Item_04 = "Generazione NAC", "ha0 -4", ""
 Item_05 = "Gestione listini", "ve2 -4", ""

ha/hatabcom.txt

@@ -12,7 +12,10 @@ Fields=B6,1|B7,1|B8,1|B9,1|B10,1|B11,1|B12,1|B13,1|B14,1|B15,1
 Fields=FPC,1
 
 [Data]
-NUM|HCO|Contratto||HCA HCP||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||X|||||||||||||||
+ELD|HACON|Contabilizzazione contratti premio Hardy||HCA HCR||5|HCO|HCO|22|HCA|5|||3|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
-TIP|HCO|Contratto Hardy||1259||hacontr|hacontr||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+NUM|HCO|Contratto premio||HCA HCP HCR||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||X|||X|| || | | | | | | 
+TIP|HCA|Contratto premio cliente ANTICIPATO||1255     1                   1                   1||pippo|hacontr|PAN|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+TIP|HCR|Contratto premio cliente RIFATTURAZIONE||1255     1                   1                   1||pippo|hacontr|PAN|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+TIP|HCP|Contratto premio cliente POSTICIPATO||||pippo|hacontr|PPO|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 TRI|H01|Merce|||||||M||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 TRI|H02|Somma anticipata|||||||S||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||