Patch level : 10.0 patch 236

Files correlati     : lv0.exe, lv0400a.msk, tracciati record
Ricompilazione Demo : [ ]
Commento            :
Ulteriori correzioni dei commit di stamattina (vedi txt)


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

lv/f168.dir

@@ -1,3 +1,3 @@
 168
 0
-$lvcondv|||175|0|Tabella testate di contratto|||
+$lvcondv|||176|0|Tabella testate di contratto|||

lv/f168.trr

@@ -1,5 +1,5 @@
 168
-43
+44
 CODCONT|3|6|0|Codice Contratto
 STATUS|1|2|0|Stato del contratto, <CH>chiuso, <CO>confermato, <DC>da confermare
 PROPOSTA|8|1|0|Proposta di contratto
@@ -22,6 +22,7 @@ ADDCAPROT|8|1|0|Addebita i capi rotti in fattura
 FORFGLOB|4|18|3|Forfati Globale
 TIPOCAN|2|1|0|Tipo canone
 CANFIX|2|1|0|Opzioni per importo canone fisso
+NOLCICTE|1|1|0|Opzioni per importo % sul valore convenzionale
 TIPOIMB|2|1|0|Tipo imballo
 SSCONS|8|1|0|Spese di spedizione alla consegna
 TIPOSTPRZ|8|1|0|Stampa prezzo in bolla

lv/lv0400.cpp

@@ -102,6 +102,9 @@ bool TContratti_msk::on_art_select()
     rowmask.set(S_UM, um);
   }
 
+  //abilito il prezzo sempre e comunque
+  rowmask.enable(S_PREZZOST);
+
   //se esiste il record su LF_CLIFOGIAC, recupero l'unità di misura dalla riga dello sheet selezionata
   //e setto i campi delle dotazioni e dei consegnati ai valori corretti riportati alla giusta unità di misura
   if (!reclav.empty())
@@ -270,6 +273,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
     }
     break;
   case F_TIPOCAN:
+  case F_NOLCICTE:
     {      
       //copio il valore del campo in questione della testata su tutte le righe se F_TIPOCAN vale
       //% su valore convenzionale per cliente, altrimente lascio quello che c'è
@@ -279,8 +283,11 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
         TSheet_field& ss = sfield(F_RIGHE);
         
         //recupero le posizioni dei campi che devo modificare
-        const int pos_tipoforf = ss.cid2index(S_TIPOFORF);        
+        const int pos_tipoforf = ss.cid2index(S_TIPOFORF);
+        const int pos_nolcic   = ss.cid2index(S_NOLCIC);
         const int pos_vcartcli = ss.cid2index(S_VCARTCLI);
+        
+        const char nolcicte = field(F_NOLCICTE).get()[0];
 
         if (tipocan == 2)
         {
@@ -288,14 +295,16 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
           {          
             TToken_string& riga = ss.row(r);
             //scrivo i valori alle posizioni corrette
-            riga.add(4, pos_tipoforf);            
+            riga.add(4, pos_tipoforf);
+            riga.add(nolcicte, pos_nolcic);
             riga.add('C', pos_vcartcli);
             //disabilito le celle interessate
             ss.disable_cell(r, pos_tipoforf);
+            ss.disable_cell(r, pos_nolcic);
             ss.disable_cell(r, pos_vcartcli);
           }          
           field(F_TIPOFORF).disable();
-          field(F_VCARTCLI).disable();
+          field(F_NOLCIC).disable();
         }
         else
         {
@@ -304,11 +313,12 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
             TToken_string& riga = ss.row(r);            
             //scrivo i valori alle posizioni corrette
             riga.add(0, pos_tipoforf);
-            ss.enable_cell(r, pos_tipoforf);            
+            ss.enable_cell(r, pos_tipoforf);
+            ss.enable_cell(r, pos_nolcic);
             ss.enable_cell(r, pos_vcartcli);
           }
-          field(F_TIPOFORF).enable();          
+          field(F_TIPOFORF).enable();
-          field(F_VCARTCLI).enable();
+          field(F_NOLCIC).enable();
         }
         ss.force_update();
         if (ss.items() >= 0)
@@ -398,7 +408,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
           }
           else            
             warning_box("Non esiste questo articolo sul listino; "
-                        "come prezzo verrà proposto il valore convenzionale dell'articolo");
+                        "come prezzo verrà proposto il prezzo standard dell'articolo");
         }
         else
           trvlst = false; //probabilmente istruzione inutile
@@ -407,8 +417,11 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
         //propongo come prezzo il valore convenzionale
         if (!trvlst)
         {
-           const TRectype& anamag = cache().get(LF_ANAMAG, codart);
+          key.cut(0);
-           m.set(S_PREZZOST, anamag.get_real(ANAMAG_COSTSTD));
+          key.add(codart);
+          key.add(1);
+          const TRectype& umart = cache().get(LF_UMART, key);
+          m.set(S_PREZZOST, umart.get_real(UMART_PREZZO));         
         }
 
         //se ho scritto un articolo diverso da quello che esisteva prima

lv/lv0400.h

@@ -42,6 +42,8 @@
 #define F_IMPFIX          240
 #define F_CANFIX          241
 #define F_RAGART          242
+#define F_NOLCICTE        246
+
 
 // Campi del dettalio sotto lo spreadsheet 
 

lv/lv0400a.uml

@@ -142,7 +142,7 @@ BEGIN
   ITEM "Fatturazione\na kg"
   ITEM "Arrotond."
   ITEM "UM@3"
-  ITEM "Pezzi per\nConf."
+  ITEM "Pezzi per\nPacco"
 END
 
 STRING F_CODART 6
@@ -223,8 +223,7 @@ END
 CURRENCY F_VALCONV 15 
 BEGIN
    PROMPT 30 15 "Val.Conven. "
-   FLAGS "U"
+   FLAGS "U"   
-   GROUP 3
 END
 
 NUMBER F_MINCIC 4 2
@@ -320,7 +319,7 @@ ENDPAGE
 
 PAGE "Dati Testata" 0 2 0 0
 
-GROUPBOX DLG_NULL 79 12
+GROUPBOX DLG_NULL 80 12
 BEGIN
 	PROMPT 1 0 "@b Fatturazione"
 END
@@ -406,20 +405,29 @@ LISTBOX F_TIPOCAN 1 29
 BEGIN
   PROMPT 2 7 "Tipo canone"
   ITEM "0|Nessuno" 
-  MESSAGE ENABLE,F_RAGART|DISABLE,F_IMPFIX|DISABLE,F_CANFIX
+  MESSAGE ENABLE,F_RAGART|DISABLE,F_IMPFIX|HIDE,F_CANFIX|HIDE,F_NOLCICTE
   ITEM "1|Importo fisso" 
-  MESSAGE DISABLE,F_RAGART|ENABLE,F_IMPFIX|ENABLE,F_CANFIX
+  MESSAGE DISABLE,F_RAGART|ENABLE,F_IMPFIX|SHOW,F_CANFIX|HIDE,F_NOLCICTE
-  ITEM "2|% sul val. conv. per cliente" 
+  ITEM "2|% sul val. conv. per cli." 
-  MESSAGE DISABLE,F_RAGART|DISABLE,F_IMPFIX|DISABLE,F_CANFIX
+  MESSAGE DISABLE,F_RAGART|DISABLE,F_IMPFIX|HIDE,F_CANFIX|SHOW,F_NOLCICTE
   FIELD TIPOCAN
 END
 
-LISTBOX F_CANFIX 27
+LISTBOX F_NOLCICTE 1 20
 BEGIN
-  PROMPT 46 7 "Con " 
+   PROMPT 45 7 "In base a "
+   ITEM "I|Dot. iniziale" 
+   ITEM "O|Dot. odierna"
+   FIELD NOLCICTE
+   GROUP 1
+END
+
+LISTBOX F_CANFIX 1 22
+BEGIN
+  PROMPT 45 7 "Con       " 
   ITEM "0|Nessun elenco" 
-  ITEM "1|Elenco articoli con qtà." 
+  ITEM "1|Elenco art. con qtà." 
-  ITEM "2|Elenco articoli senza qtà." 
+  ITEM "2|Elenco art. senza qtà." 
   FIELD CANFIX
 END
 
@@ -778,7 +786,6 @@ BEGIN
    PROMPT 30 11 "Val.Conven."
    FLAGS "U"
    FIELD VALCONV
-   GROUP 3
 END
 
 NUMBER S_MINCIC 4 2