Aggiunta tabella classe doganale.

git-svn-id: svn://10.65.10.50/trunk@3096 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-06-27 09:17:17 +00:00
parent 44092c2ad2
commit 386d354864
2 changed files with 53 additions and 0 deletions

3
ve/batbcld.h Executable file
View File

@ -0,0 +1,3 @@
#define F_CLASSDOG 101
#define F_CLASSDOG1 102

50
ve/batbcld.uml Executable file
View File

@ -0,0 +1,50 @@
#include "batbcld.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella classe doganale " 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAG "R"
END
STRING F_CLASSDOG 10
BEGIN
PROMPT 2 2 "Codice classe doganale "
FIELD %CLD->CODTAB
KEY 1
FLAG "UZ"
USE %CLD
INPUT CODTAB F_CLASSDOG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CLASSDOG CODTAB
OUTPUT F_CLASSDOG1 S0
CHECKTYPE REQUIRED
END
STRING F_CLASSDOG1 20
BEGIN
PROMPT 2 4 "Descrizione "
FIELD %CLD->S0
KEY 2
USE %CLD
INPUT CODTAB F_CLASSDOG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CLASSDOG CODTAB
OUTPUT F_CLASSDOG1 S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK