Corretta maschera causali lavanderia

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

lv/lv0100.cpp

@@ -57,12 +57,12 @@ void TLV_table_app::cambia_segni(const TMask& m, const bool ritirato)
 {
   //instanzio una TTable sulla ytabella delle causali di magazzino
   TTable cau("%CAU");
-  const TString16 causale = m.get(ritirato ? F_CAUSALE_RITIRO : F_CAUSALE_CONSEGNA);
+  const TString& causale = m.get(ritirato ? F_CAUSALE_RITIRO : F_CAUSALE_CONSEGNA);
   cau.put("CODTAB", causale);
   //se trovo la causale
   if (cau.read(_isequal, _lock) == NOERR)
   {
-    TString s2 = cau.get("S2");
+    TString80 s2 = cau.get("S2");
     TString16 sgn = "";
     int min = ritirato ? F_SGNDOTIN_R : F_SGNDOTIN_C;
     int max = ritirato ? F_SGNCONMN_R : F_SGNCONMN_C;
@@ -82,8 +82,8 @@ void TLV_table_app::cambia_segni(const TMask& m, const bool ritirato)
     
     //estraggo la sottostringa che mi interessa dalla tabella delle causali e la porto a lunghezza 10
     TString16 str = s2.mid(28,10);
-    if(str.len() < 10)
+    // if (str.len() < 10) str << " ";
-      str << " ";
+    str.left_just(10);
 
     //chiedo se volglio proprio modificare i segni della movimentazione di magazzino
     if (str != sgn && yesno_box(TR("Si desidera veramente modificare i segni delle causali?")))
@@ -103,7 +103,7 @@ int TLV_table_app::write(const TMask& m)
   const TString4 name = get_relation()->file(0).name();
   if (name == "CAU")
   {
-    if(m.get_bool(F_RITIRATO))
+    if (m.get_bool(F_RITIRATO))
       cambia_segni(m, true);
     
     if(m.get_bool(F_CONSEGNATO))

lv/lvtbcau.h

@@ -27,5 +27,6 @@
 #define F_SOTTOC							 126
 #define F_DESCR							   127
 #define F_IGNORA_ZERO          128
+#define F_COD_CAUSBUONI        129  
 
 #define R_CON										16

lv/lvtbcau.uml

@@ -6,14 +6,14 @@ ENDPAGE
 
 PAGE "Causali Lavanderie" -1 -1 80 10
 
-GROUPBOX DLG_NULL 80 4
+GROUPBOX DLG_NULL 80 5
 BEGIN
-  PROMPT 1 1 "@bDati Causale"
+  PROMPT 1 0 "@bDati Causale"
 END
 
 STRING F_COD_CAUSALE 3
 BEGIN
-  PROMPT 2 2 "Causale "
+  PROMPT 2 1 "Codice      "
   FLAGS "U"
   HELP "Inserire il codice della causale."  
   USE &CAU KEY 1
@@ -21,7 +21,8 @@ BEGIN
   DISPLAY "Codice@8" CODTAB
   DISPLAY "Descrizione@50" S0
   DISPLAY "Descr. breve@10" S3
-  DISPLAY "Caus. alt.@10" S4
+  DISPLAY "alt." S4
+  DISPLAY "buoni" S5
   DISPLAY "Ritiro@C" B0
   DISPLAY "Consegna@C" B1
   DISPLAY "Reso@C" B2
@@ -38,14 +39,15 @@ END
 
 STRING F_DES_CAUSALE 50
 BEGIN
-  PROMPT 17 2 ""
+  PROMPT 2 2 "Descrizione "
   HELP "Inserire la descrizione della causale."
   USE &CAU KEY 2
   INPUT S0 F_DES_CAUSALE
   DISPLAY "Descrizione@50" S0
   DISPLAY "Descr. breve@10" S3  
   DISPLAY "Codice@8" CODTAB
-  DISPLAY "Caus. alt.@10" S4
+  DISPLAY "alt." S4
+  DISPLAY "buoni" S5
   DISPLAY "Ritiro@C" B0
   DISPLAY "Consegna@C" B1
   DISPLAY "Reso@C" B2  
@@ -57,32 +59,38 @@ END
 
 STRING F_DES_BREVE 10
 BEGIN
-  PROMPT 2 3 "Descrizione breve "
+  PROMPT 36 1 "Descrizione breve "
   HELP "Inserire la descrizione breve della causale." 
   CHECKTYPE NORMAL
   FIELD S3
-  KEY 2
 END
 
 STRING F_COD_CAUSCOLL 3
 BEGIN
-  PROMPT 35 3 "Causale alternativa "
+  PROMPT 2 3 "Causale alternativa "
   FLAGS "U"
   HELP "Inserire la causale altrenativa."
-  USE &CAU
+  COPY USE F_COD_CAUSALE
   INPUT CODTAB F_COD_CAUSCOLL
-  DISPLAY "Codice@8" CODTAB
+  COPY DISPLAY F_COD_CAUSALE
-  DISPLAY "Descrizione@50" S0
-  DISPLAY "Descr. breve@10" S3
-  DISPLAY "Caus. alt.@10" S4  
-  DISPLAY "Ritiro@C" B0
-  DISPLAY "Consegna@C" B1
-  DISPLAY "Reso@C" B2  
   OUTPUT F_COD_CAUSCOLL CODTAB
   CHECKTYPE NORMAL
   FIELD S4  
 END
 
+STRING F_COD_CAUSBUONI 3
+BEGIN
+  PROMPT 47 3 "Causale Buoni "
+  FLAGS "U"
+  HELP "Inserire la causale per i buoni"
+  COPY USE F_COD_CAUSALE
+  INPUT CODTAB F_COD_CAUSBUONI
+  COPY DISPLAY F_COD_CAUSALE
+  OUTPUT F_COD_CAUSBUONI CODTAB
+  CHECKTYPE NORMAL
+  FIELD S5
+END
+
 GROUPBOX DLG_NULL 80 5
 BEGIN
   PROMPT 1 5 "@b Ritiro"