diff --git a/ba/batbage.uml b/ba/batbage.uml index 1d6dd01f7..d22a406ab 100755 --- a/ba/batbage.uml +++ b/ba/batbage.uml @@ -1,44 +1,44 @@ -#include - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Codici Agenti" -1 -1 78 8 - -STRING F_CODICE 5 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %AGE -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %AGE KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - +#include "batbage.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Codici Agenti" -1 -1 78 8 + +STRING F_CODICE 5 +BEGIN +PROMPT 4 2 "Codice " +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %AGE +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @30" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN +PROMPT 4 4 "Descrizione " +FIELD LF_TABCOM->S0 +KEY 2 +USE %AGE KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @30" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK + + diff --git a/ba/batbcsp.uml b/ba/batbcsp.uml index d62d17aa3..f068b175b 100755 --- a/ba/batbcsp.uml +++ b/ba/batbcsp.uml @@ -1,44 +1,44 @@ -#include - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Spedizionieri" -1 -1 78 8 - -STRING F_CODICE 5 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %CSP -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %CSP KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - +#include "batbcsp.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Spedizionieri" -1 -1 78 8 + +STRING F_CODICE 5 +BEGIN +PROMPT 4 2 "Codice " +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %CSP +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @30" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN +PROMPT 4 4 "Descrizione " +FIELD LF_TABCOM->S0 +KEY 2 +USE %CSP KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @30" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK + +