diff --git a/lv/lv0100.cpp b/lv/lv0100.cpp index 3a53aee43..d52d5154a 100755 --- a/lv/lv0100.cpp +++ b/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) - str << " "; + // if (str.len() < 10) 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)) diff --git a/lv/lvtbcau.h b/lv/lvtbcau.h index 272d1b34c..f60ef39ac 100755 --- a/lv/lvtbcau.h +++ b/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 diff --git a/lv/lvtbcau.uml b/lv/lvtbcau.uml index 601e50113..af386f0f3 100755 --- a/lv/lvtbcau.uml +++ b/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 - 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 + COPY DISPLAY F_COD_CAUSALE 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"