campo-sirio/lv/lvtbcau.uml

#include "lvtbcau.h"

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

PAGE "Causali Lavanderie" -1 -1 78 10

GROUPBOX DLG_NULL 100 4
BEGIN
  PROMPT 1 1 "@bDati Causale"
END

STRING F_COD_CAUSALE 7
BEGIN
  PROMPT 2 2 "Causale     "
  FLAGS "U"
  HELP "Inserire il codice della causale."  
  USE &CAU
  INPUT CODTAB F_COD_CAUSALE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_CAUSALE CODTAB
  OUTPUT F_DES_CAUSALE S0
  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 100 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
  FIELD S1
  VALIDATE REQIF_FUNC TRUE F_RITIRATO
  WARNING "Causale ritirato obbligatoria"
  GROUP 1
  FLAGS "D"
END

STRING F_DES_CAUSALE_RITIRO 50
BEGIN
  PROMPT 35 7 "Descrizione"
  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

GROUPBOX DLG_NULL 100 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 35 12 "Descrizione"
  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 100 4
BEGIN
  PROMPT 1 14 ""
END

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


ENDPAGE

ENDMASK