campo-sirio/lv/lvtbcau.uml

#include "lvtbcau.h"

TOOLBAR "" 0 0 0 2
#include "relapbar.h"
ENDPAGE

PAGE "Causali Lavanderie" -1 -1 80 10

GROUPBOX DLG_NULL 80 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
  DISPLAY "Descr. breve@10" S3
  DISPLAY "Ritiro@C" B0
  DISPLAY "Consegna@C" B1
  DISPLAY "Reso@C" B2
  OUTPUT F_COD_CAUSALE CODTAB
  OUTPUT F_DES_CAUSALE S0
  OUTPUT F_DES_BREVE S3
  OUTPUT F_CAUSALE_RITIRO S1
  OUTPUT F_CAUSALE_CONSEGNA S2 
  FIELD CODTAB
  KEY 1
  CHECKTYPE REQUIRED 
END

STRING F_DES_CAUSALE 50
BEGIN
  PROMPT 17 2 ""
  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 "Ritiro@C" B0
  DISPLAY "Consegna@C" B1
  DISPLAY "Reso@C" B2  
  COPY OUTPUT F_COD_CAUSALE
  CHECKTYPE REQUIRED
  FIELD S0
  KEY 2
END

STRING F_DES_BREVE 10
BEGIN
  PROMPT 2 3 "Descrizione breve "
  HELP "Inserire la descrizione breve della causale." 
  CHECKTYPE NORMAL
  FIELD S3
  KEY 2
END

GROUPBOX DLG_NULL 80 5
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 mag. "
  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
  OUTPUT F_SGNDOTIN_R S2[29,30]
  OUTPUT F_SGNDOTOD_R S2[31,32]
  OUTPUT F_SGNDOTTM_R S2[33,34]
  OUTPUT F_SGNCONYR_R S2[35,36]
  OUTPUT F_SGNCONMN_R S2[37,38]
  CHECKTYPE REQUIRED
  WARNING "Causale ritirato obbligatoria"
  GROUP 1
  FLAGS "D"
  FIELD S1
END

STRING F_DES_CAUSALE_RITIRO 50
BEGIN
  PROMPT 27 7 ""
  USE %CAU KEY 2
  INPUT S0 F_DES_CAUSALE_RITIRO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  COPY OUTPUT F_CAUSALE_RITIRO
  GROUP 1
  FLAGS "D"
END

LISTBOX F_SGNDOTIN_R 1
BEGIN 
  PROMPT 2 8 "Dot. In."
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 1
END

LISTBOX F_SGNDOTOD_R 1
BEGIN 
  PROMPT 18 8 "Dot. Od."
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 1
END

LISTBOX F_SGNDOTTM_R 1
BEGIN 
  PROMPT 33 8 "Dot. Temp."
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 1
END

LISTBOX F_SGNCONYR_R 1
BEGIN 
  PROMPT 50 8 "Cons. Anno"
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 1
END

LISTBOX F_SGNCONMN_R 1
BEGIN 
  PROMPT 66 8 "Cons. Mese"
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 1
END

GROUPBOX DLG_NULL 80 5
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 mag. "
  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
  OUTPUT F_SGNDOTIN_C S2[29,30]
  OUTPUT F_SGNDOTOD_C S2[31,32]
  OUTPUT F_SGNDOTTM_C S2[33,34]
  OUTPUT F_SGNCONYR_C S2[35,36]
  OUTPUT F_SGNCONMN_C S2[37,38]
  FIELD S2
  CHECKTYPE REQUIRED
  WARNING "Causale consegnato obbligatoria"
  GROUP 2
  FLAGS "D"
END

STRING F_DES_CAUSALE_CONSEGNA 50
BEGIN
  PROMPT 27 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

LISTBOX F_SGNDOTIN_C 1
BEGIN 
  PROMPT 2 13 "Dot. In."
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 2
END

LISTBOX F_SGNDOTOD_C 1
BEGIN 
  PROMPT 18 13 "Dot. Od."
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 2
END

LISTBOX F_SGNDOTTM_C 1
BEGIN 
  PROMPT 33 13 "Dot. Temp."  
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 2
END

LISTBOX F_SGNCONYR_C 1
BEGIN 
  PROMPT 49 13 "Cons. Anno"
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 2
END

LISTBOX F_SGNCONMN_C 1
BEGIN 
  PROMPT 66 13 "Cons. Mese"
  ITEM "0| "
  ITEM "+1|+"
  ITEM "-1|-"
  GROUP 2
END

GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 1 15 "@bTipo Causale"
END

BOOLEAN F_CAUSALE_RESO
BEGIN
  FIELD B2
  PROMPT 2 16 "Causale di reso"
END

BOOLEAN F_CAUSALE_ROTTO
BEGIN
  FIELD B3
  PROMPT 25 16 "Causale di rotto"
END

ENDPAGE

ENDMASK