root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 4.0

Browse Source 
Files correlati     : mg0 batbgsa
Ricompilazione Demo : [ ]
Commento            :
corretto  controllo lunghezza formato


git-svn-id: svn://10.65.10.50/trunk@15479 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2007-07-09 14:09:11 +00:00
parent d045da4287
commit ff786f0118
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
mg/batbgsa.h
View File

@ -7,6 +7,7 @@
#define F_ROOT 197 #define F_ROOT 197
#define F_FORMAT 198 #define F_FORMAT 198
#define F_FORMATLEN 199 #define F_FORMATLEN 199
#define F_FORMATCHECK 200
#define F_CHILD1 201 #define F_CHILD1 201
#define F_FORMAT1 301 #define F_FORMAT1 301

18
mg/batbgsa.uml
View File

@ -349,16 +349,24 @@ BEGIN
STR_CALC #F_FORMLIV+#F_FORMAT1+#F_FORMAT2+#F_FORMAT3+#F_FORMAT4+#F_FORMAT5+#F_FORMAT6+#F_FORMAT7+#F_FORMAT8 STR_CALC #F_FORMLIV+#F_FORMAT1+#F_FORMAT2+#F_FORMAT3+#F_FORMAT4+#F_FORMAT5+#F_FORMAT6+#F_FORMAT7+#F_FORMAT8
END END
STRING F_FORMATLEN 3 NUMBER F_FORMATLEN 3
BEGIN BEGIN
PROMPT 1 37 "Lunghezza formato " PROMPT 60 16 "Lunghezza "
FLAGS "L" FLAGS "D"
GROUP 3 GROUP 3
DRIVENBY F_FORMAT DRIVENBY F_FORMAT
STR_EXPR STR(LEN(#F_FORMAT)<=20) STR_CALC LEN(#F_FORMAT)
WARNING "Il formato dell'articolo non puo' superare i 20 caratteri"
END END
STRING F_FORMATCHECK 3
BEGIN
PROMPT 60 60 "Test lunghezza "
FLAGS "L"
GROUP 3
DRIVENBY F_FORMATLEN
WARNING "Il formato dell'articolo non puo' superare i 20 caratteri"
NUM_EXPR #F_FORMATLEN<=20
END
ENDPAGE ENDPAGE