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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Portato il codice causale lavanderia a 3 caratteri


git-svn-id: svn://10.65.10.50/trunk@17562 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
sperego 2008-11-05 16:25:34 +00:00
parent 06206a968d
commit fecd62abff
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lv/lvtbcau.uml
View File

@ -6,22 +6,24 @@ ENDPAGE
PAGE "Causali Lavanderie" -1 -1 78 10
GROUPBOX DLG_NULL 100 4
GROUPBOX DLG_NULL 90 4
BEGIN
PROMPT 1 1 "@bDati Causale"
END
STRING F_COD_CAUSALE 7
STRING F_COD_CAUSALE 3
BEGIN
PROMPT 2 2 "Causale "
FLAGS "U"
HELP "Inserire il codice della causale."
USE &CAU
USE &CAU KEY 1
INPUT CODTAB F_COD_CAUSALE
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_CAUSALE CODTAB
OUTPUT F_DES_CAUSALE S0
OUTPUT F_CAUSALE_RITIRO S1
OUTPUT F_CAUSALE_CONSEGNA S2
FIELD CODTAB
KEY 1
CHECKTYPE REQUIRED
@ -41,7 +43,7 @@ BEGIN
KEY 2
END
GROUPBOX DLG_NULL 100 4
GROUPBOX DLG_NULL 90 4
BEGIN
PROMPT 1 5 "@b Ritiro"
END
@ -56,33 +58,34 @@ END
STRING F_CAUSALE_RITIRO 5
BEGIN
PROMPT 2 7 "Causale di magazzino "
PROMPT 2 7 "Causale di magazzino"
USE %CAU KEY 1
INPUT CODTAB F_CAUSALE_RITIRO
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CAUSALE_RITIRO CODTAB
OUTPUT F_DES_CAUSALE_RITIRO S0
FIELD S1
VALIDATE REQIF_FUNC TRUE F_RITIRATO
WARNING "Causale ritirato obbligatoria"
GROUP 1
FLAGS "D"
FIELD S1
END
STRING F_DES_CAUSALE_RITIRO 50
BEGIN
PROMPT 35 7 "Descrizione"
PROMPT 30 7 " "
USE %CAU KEY 2
INPUT S0 F_DES_CAUSALE_RITIRO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
COPY OUTPUT F_CAUSALE_RITIRO
OUTPUT F_DES_CAUSALE_RITIRO S0
OUTPUT F_CAUSALE_RITIRO CODTAB
GROUP 1
FLAGS "D"
END
GROUPBOX DLG_NULL 100 4
GROUPBOX DLG_NULL 90 4
BEGIN
PROMPT 1 10 "@b Consegna"
END
@ -97,7 +100,7 @@ END
STRING F_CAUSALE_CONSEGNA 5
BEGIN
PROMPT 2 12 "Causale di magazzino "
PROMPT 2 12 "Causale di magazzino"
USE %CAU KEY 1
INPUT CODTAB F_CAUSALE_CONSEGNA
DISPLAY "Codice@8" CODTAB
@ -113,7 +116,7 @@ END
STRING F_DES_CAUSALE_CONSEGNA 50
BEGIN
PROMPT 35 12 "Descrizione"
PROMPT 30 12 " "
USE %CAU KEY 2
INPUT S0 F_DES_CAUSALE_CONSEGNA
DISPLAY "Codice" CODTAB
@ -123,7 +126,7 @@ BEGIN
GROUP 2
END
GROUPBOX DLG_NULL 100 4
GROUPBOX DLG_NULL 90 4
BEGIN
PROMPT 1 14 ""
END