fecd62abff
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
144 lines
2.5 KiB
Plaintext
Executable File
144 lines
2.5 KiB
Plaintext
Executable File
#include "lvtbcau.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include "relapbar.h"
|
|
ENDPAGE
|
|
|
|
PAGE "Causali Lavanderie" -1 -1 78 10
|
|
|
|
GROUPBOX DLG_NULL 90 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bDati Causale"
|
|
END
|
|
|
|
STRING F_COD_CAUSALE 3
|
|
BEGIN
|
|
PROMPT 2 2 "Causale "
|
|
FLAGS "U"
|
|
HELP "Inserire il codice della causale."
|
|
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
|
|
END
|
|
|
|
STRING F_DES_CAUSALE 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
HELP "Inserire la descrizione della causale."
|
|
USE &CAU KEY 2
|
|
INPUT S0 F_DES_CAUSALE
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@8" CODTAB
|
|
COPY OUTPUT F_COD_CAUSALE
|
|
CHECKTYPE REQUIRED
|
|
FIELD S0
|
|
KEY 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 90 4
|
|
BEGIN
|
|
PROMPT 1 5 "@b Ritiro"
|
|
END
|
|
|
|
BOOLEAN F_RITIRATO
|
|
BEGIN
|
|
FIELD B0
|
|
PROMPT 2 6 "Ritirato"
|
|
MESSAGE FALSE CLEAR,1@
|
|
MESSAGE TRUE ENABLE,1@
|
|
END
|
|
|
|
STRING F_CAUSALE_RITIRO 5
|
|
BEGIN
|
|
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
|
|
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 30 7 " "
|
|
USE %CAU KEY 2
|
|
INPUT S0 F_DES_CAUSALE_RITIRO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT F_DES_CAUSALE_RITIRO S0
|
|
OUTPUT F_CAUSALE_RITIRO CODTAB
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 90 4
|
|
BEGIN
|
|
PROMPT 1 10 "@b Consegna"
|
|
END
|
|
|
|
BOOLEAN F_CONSEGNATO
|
|
BEGIN
|
|
FIELD B1
|
|
PROMPT 2 11 "Consegnato"
|
|
MESSAGE FALSE CLEAR,2@
|
|
MESSAGE TRUE ENABLE,2@
|
|
END
|
|
|
|
STRING F_CAUSALE_CONSEGNA 5
|
|
BEGIN
|
|
PROMPT 2 12 "Causale di magazzino"
|
|
USE %CAU KEY 1
|
|
INPUT CODTAB F_CAUSALE_CONSEGNA
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CAUSALE_CONSEGNA CODTAB
|
|
OUTPUT F_DES_CAUSALE_CONSEGNA S0
|
|
FIELD S2
|
|
VALIDATE REQIF_FUNC TRUE F_CONSEGNATO
|
|
WARNING "Causale consegnato obbligatoria"
|
|
GROUP 2
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DES_CAUSALE_CONSEGNA 50
|
|
BEGIN
|
|
PROMPT 30 12 " "
|
|
USE %CAU KEY 2
|
|
INPUT S0 F_DES_CAUSALE_CONSEGNA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione @50" S0
|
|
COPY OUTPUT F_CAUSALE_CONSEGNA
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 90 4
|
|
BEGIN
|
|
PROMPT 1 14 ""
|
|
END
|
|
|
|
BOOLEAN F_CAUSALE_RESO
|
|
BEGIN
|
|
FIELD B2
|
|
PROMPT 2 15 "Causale di reso"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|