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"
   MESSAGE ENABLE, F_PROGRAMMA
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 5
BEGIN
  PROMPT 1 6 "@bDocumento originale"
END

STRING F_TIPODOC_I_1 4
BEGIN                        
   PROMPT 2 7 "Tipo documento     "
   FIELD S2[1,4]             
   CHECKTYPE REQUIRED
   WARNING "E' necessario specificare un valore"
   USE %TIP
   INPUT CODTAB F_TIPODOC_I_1
   DISPLAY "Codice" CODTAB
   DISPLAY "Tipo documento@50" S0
   OUTPUT F_TIPODOC_I_1 CODTAB
END

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

STRING F_STATO_F_DOC_I 1
BEGIN
  PROMPT 2 9 "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 7 ""
   FIELD S2[5,8]             
   WARNING "E' necessario specificare un valore"
   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
END

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

STRING F_TIPODOC_I_3 4
BEGIN                        
   PROMPT 39 7 ""
   FIELD S2[9,12]             
   WARNING "E' necessario specificare un valore"
   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
END

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

STRING F_TIPODOC_I_4 4
BEGIN                        
   PROMPT 48 7 ""
   FIELD S2[13,15]             
   WARNING "E' necessario specificare un valore"
   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
END

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

STRING F_TIPODOC_I_5 4
BEGIN                        
   PROMPT 57 7 ""
   FIELD S2[16,19]             
   WARNING "E' necessario specificare un valore"
   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
END

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

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 11 "@bDocumento finale"
END

STRING F_TIPODOC_F 4
BEGIN
   PROMPT 2 12 "Tipo documento     "
   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 13 "Stato finale       "
  FLAGS "U"
  FIELD S9
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare uno stato finale"
END

STRING F_CODNUM 4
BEGIN
   PROMPT 2 14 "Codice numerazione "
   FIELD S5
   USE NUM
   INPUT CODTAB F_CODNUM
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODNUM CODTAB
   CHECKTYPE REQUIRED
   WARNING "E' necessario specificare un codice di numerazione"
END

ENDPAGE

ENDMASK