root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretta maschera causali lavanderia

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22804 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-02-12 16:52:57 +00:00
parent 0a34205cad
commit e9250397b0
3 changed files with 31 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lv/lv0100.cpp
View File

@ -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))

1
lv/lvtbcau.h
View File

@ -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

42
lv/lvtbcau.uml
View File

@ -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"