Aggiunta tabella unitá di misura e modificata tabella gruppi merceologici

git-svn-id: svn://10.65.10.50/trunk@1707 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
gianluca 1995-08-11 11:06:31 +00:00
parent 8a791b0304
commit 4301cf4818
4 changed files with 87 additions and 16 deletions

View File

@ -1,5 +1,6 @@
#define F_CODICE 101 #define F_CODICE1 101
#define F_TIPO 102 #define F_CODICE2 102
#define F_DESCR 103 #define F_TIPO 103
#define F_DESCR 104

View File

@ -6,21 +6,30 @@ ENDPAGE
PAGE "Gruppi merceologici " 11 60 14 PAGE "Gruppi merceologici " 11 60 14
STRING F_CODICE1 3
STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 4 "Codice merceologico " PROMPT 4 4 "Codice merceologico "
FIELD %GMC->CODTAB FIELD %GMC->CODTAB[1,3]
KEY 1
FLAG "U"
END
STRING F_CODICE2 2
BEGIN
PROMPT 32 4 ""
FIELD %GMC->CODTAB[4,5]
KEY 1 KEY 1
USE %GMC USE %GMC
FLAG "U" FLAG "UR"
FLAG "R" INPUT CODTAB[1,3] F_CODICE1
INPUT CODTAB F_CODICE INPUT CODTAB[4,5] F_CODICE2
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE1 CODTAB[1,3]
OUTPUT F_CODICE2 CODTAB[4,5]
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE NORMAL
VALIDATE AUTOEXIT_FUNC 1 F_CODICE1
END END
STRING F_DESCR 50 STRING F_DESCR 50
@ -32,12 +41,11 @@ BEGIN
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE1 CODTAB[1,3]
OUTPUT F_CODICE2 CODTAB[4,5]
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
GROUPBOX DLG_NULL 70 7 GROUPBOX DLG_NULL 70 7
BEGIN BEGIN
@ -45,8 +53,6 @@ BEGIN
FLAG "R" FLAG "R"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

4
ve/batbums.h Executable file
View File

@ -0,0 +1,4 @@
#define F_UM 101
#define F_DESCR 102
#define F_UMR 103
#define F_FC 104

60
ve/batbums.uml Executable file
View File

@ -0,0 +1,60 @@
#include "BATBUM.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Unit… di misura " 11 60 14
STRING F_UM 2
BEGIN
PROMPT 4 4 "Unit… di misura "
FIELD %UM->CODTAB
KEY 1
FLAG "U"
USE %UM
FLAG "U"
INPUT CODTAB F_UM
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 6 "Descrizione "
FIELD %UM->S0
KEY 2
USE %UM KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_UMR 2
BEGIN
PROMPT 4 10 "Unit… di riferimento "
FIELD %UM->S7
FLAG "U"
END
NUMBER F_FC 15 5
BEGIN
PROMPT 4 12 "Fattore conv. al rif. "
FIELD %UM->R0
END
GROUPBOX DLG_NULL 70 7
BEGIN
PROMPT 3 2 ""
FLAG "R"
END
ENDPAGE
ENDMASK