campo-sirio/ve/batbeld.uml

#include "batbeld.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Tabella elaborazioni differite" -1 -1 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bElaborazione"
END

STRING F_CODICE 8       
BEGIN
   PROMPT 2 2 "Codice      " 
   FLAG "U"
   FIELD CODTAB         
   CHECKTYPE REQUIRED 
   WARNING "E' necessario specificare un valore"
   USE %ELD              
   INPUT CODTAB F_CODICE        
   DISPLAY "Codice@10" CODTAB    
   DISPLAY "Descrizione@50" S0  
   OUTPUT F_CODICE CODTAB       
   OUTPUT F_DESCR S0            
   KEY 1
   HELP "Codice dell'elaborazione differita da eseguire"
END

STRING F_DESCR 50
BEGIN
   PROMPT 2 3 "Descrizione "
   FIELD S0
   CHECKTYPE REQUIRED
   WARNING "E' necessario specificare un valore"
   USE %ELD KEY 2
   INPUT S0 F_DESCR
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CODICE         
   KEY 2
END

LIST F_TIPO 50
BEGIN
   PROMPT 2 4 "Tipo        "
   ITEM "  |Altro"
   ITEM "CO|Consegna Ordini"
   ITEM "FB|Fatturazione bolle"
   ITEM "SM|Scarico magazzino"
   ITEM "TC|Trasferimento a contabilita'"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 6 "@bDocumento originale"
END

STRING F_CODNUM_I 4
BEGIN
   PROMPT 2 7 "Codice numerazione "
   FLAGS "U"
   FIELD S5
   USE %NUM
   INPUT CODTAB F_CODNUM_I
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODNUM_I CODTAB
   OUTPUT F_DOC1 S2[1,4]
   OUTPUT F_DOC2 S2[5,8]
   OUTPUT F_DOC3 S2[9,12]
   OUTPUT F_DOC4 S2[13,16]
   OUTPUT F_DOC5 S2[17,20]
   CHECKTYPE NORMAL
   WARNING "Numerazione errata"
END

STRING F_DOC1 4
BEGIN
  PROMPT 30 7 ""
  FLAGS "D"
END

STRING F_DOC2 4
BEGIN
  PROMPT 36 7 ""
  FLAGS "D"
END

STRING F_DOC3 4
BEGIN
  PROMPT 42 7 ""
  FLAGS "D"
END

STRING F_DOC4 4
BEGIN
  PROMPT 48 7 ""
  FLAGS "D"
END

STRING F_DOC5 4
BEGIN
  PROMPT 54 7 ""
  FLAGS "D"
END

STRING F_TIPODOC_I_1 4
BEGIN                        
   PROMPT 2 8 "Tipo documento     "
   FLAGS "U"
   FIELD S2[1,4]             
   USE %TIP
   INPUT CODTAB F_TIPODOC_I_1
   DISPLAY "Codice" CODTAB
   DISPLAY "Tipo documento@50" S0
   OUTPUT F_TIPODOC_I_1 CODTAB
   CHECKTYPE REQUIRED
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_STATO_I_DOC_I_1 1
BEGIN
  PROMPT 2 9 "Stato iniziale     "
  FLAGS "U"
  FIELD S7[1,1]
  WARNING "E' necessario specificare un valore"
END

STRING F_STATO_F_DOC_I 1
BEGIN
  PROMPT 2 10 "Stato finale       " 
  FLAGS "U"
  FIELD S4
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare uno stato finale"
END

STRING F_TIPODOC_I_2 4
BEGIN                        
   PROMPT 30 8 ""
   FLAGS "U"
   FIELD S2[5,8]             
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_2
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_2 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_STATO_I_DOC_I_2 1
BEGIN
  PROMPT 30 9 ""
  FLAGS "U"
  FIELD S7[2,2]
  WARNING "E' necessario specificare un valore"
END

STRING F_TIPODOC_I_3 4
BEGIN                        
   PROMPT 39 8 ""
   FLAGS "U"
   FIELD S2[9,12]             
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_3
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_3 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_STATO_I_DOC_I_3 1
BEGIN
  PROMPT 39 9 ""
  FLAGS "U"
  FIELD S7[3,3]
  WARNING "E' necessario specificare un valore"
END

STRING F_TIPODOC_I_4 4
BEGIN                        
   PROMPT 48 8 ""
   FLAGS "U"
   FIELD S2[13,15]             
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_4
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_4 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_STATO_I_DOC_I_4 1
BEGIN
  PROMPT 48 9 ""
  FLAGS "U"
  FIELD S7[4,4]
  WARNING "E' necessario specificare un valore"
END

STRING F_TIPODOC_I_5 4
BEGIN                        
   PROMPT 57 8 ""
   FLAGS "U"
   FIELD S2[16,19]             
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_4
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_4 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_STATO_I_DOC_I_5 1
BEGIN
  PROMPT 57 9 ""
  FLAGS "U"
  FIELD S7[5,5]
  WARNING "E' necessario specificare un valore"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 12 "@bDocumento finale"
END

STRING F_TIPODOC_F 4
BEGIN
   PROMPT 2 13 "Tipo documento     "
   FLAGS "U"
   FIELD S8
   CHECKTYPE REQUIRED
   WARNING "E' necessario specificare un valore"
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_F
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_F CODTAB
END

STRING F_STATO_F_DOC_F 1
BEGIN
  PROMPT 2 14 "Stato finale       "
  FLAGS "U"
  FIELD S9
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare uno stato finale"
END

STRING F_CODNUM_F 4
BEGIN
   PROMPT 2 15 "Codice numerazione "
   FLAGS "U"
   FIELD S6
   USE %NUM
   INPUT CODTAB F_CODNUM_F
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODNUM_F CODTAB
   OUTPUT F_ATTIVA_PROVVISORIO B0
   CHECKTYPE REQUIRED
   WARNING "E' necessario specificare un codice di numerazione"
END

BOOLEAN F_ATTIVA_PROVVISORIO
BEGIN
   FLAGS "HG"
   MESSAGE FALSE CLEAR,F_PROVVISORIO
   MESSAGE TRUE ENABLE,F_PROVVISORIO
END

RADIOBUTTON F_PROVVISORIO 20
BEGIN
   PROMPT 42 13 "Tipo numerazione"
   ITEM "D|Definitiva"
   ITEM "P|Provvisioria"
   FIELD S3
END

ENDPAGE

ENDMASK