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 5
BEGIN
  PROMPT 1 0 "@bDati Causale"
END

STRING F_COD_CAUSALE 3
BEGIN
  PROMPT 2 1 "Codice      "
  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 "alt." S4
  DISPLAY "buoni" S5
  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
  OUTPUT F_COD_CAUSCOLL S4
  FIELD CODTAB
  KEY 1
  CHECKTYPE REQUIRED 
END

STRING F_DES_CAUSALE 50
BEGIN
  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 "alt." S4
  DISPLAY "buoni" S5
  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 36 1 "Descrizione breve "
  HELP "Inserire la descrizione breve della causale." 
  CHECKTYPE NORMAL
  FIELD S3
END

STRING F_COD_CAUSCOLL 3
BEGIN
  PROMPT 2 3 "Causale alternativa "
  FLAGS "U"
  HELP "Inserire la causale altrenativa."
  COPY USE F_COD_CAUSALE
  INPUT CODTAB F_COD_CAUSCOLL
  COPY DISPLAY F_COD_CAUSALE
  OUTPUT F_COD_CAUSCOLL CODTAB
  CHECKTYPE NORMAL
  FIELD S4  
END

STRING F_COD_CAUSBUONI 3
BEGIN
  PROMPT 45 3 "Causale Consegne "
  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 "@bRitiro"
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 "@bConsegna"
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"
  MESSAGE TRUE ENABLE,R_CON@
  MESSAGE FALSE CLEAR,R_CON@
END

BOOLEAN F_MOV_CONGUAGLIO
BEGIN
  FIELD B4
  PROMPT 45 16 "Non movimentare conguaglio"  
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 17 "Conto per i rotti "
  FIELD I0
  GROUP R_CON
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 25 17 ""
  FIELD I1
  GROUP R_CON
END

NUMBER F_SOTTOC 6
BEGIN
  PROMPT 30 17 ""
  FIELD I2
  GROUP R_CON
  USE LF_PCON
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO  F_CONTO
  INPUT SOTTOCONTO F_SOTTOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_SOTTOC SOTTOCONTO
  OUTPUT F_DESCR  DESCR
  CHECKTYPE NORMAL
  WARNING "Conto assente"
  ADD RUN cg0 -0
END

STRING F_DESCR 50 37
BEGIN
  PROMPT 40 17 ""
  GROUP R_CON
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOC
  WARNING "Conto assente"
  ADD RUN cg0 -0
END

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 19 "@bFatturazione"
END

BOOLEAN F_IGNORA_ZERO
BEGIN
  PROMPT 2 20 "Non segnalare prezzo a zero sulla bolla"  
  FIELD B5
END

ENDPAGE

ENDMASK