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

Aggiunta validate per zerofill

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@741 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-12-07 13:41:57 +00:00
parent 40ebcac0c8
commit e45d7934ef
2 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
include/defmask.h
View File

@ -60,6 +60,8 @@
CHECK_FIELD esegue il check su di un altro campo CHECK_FIELD esegue il check su di un altro campo
campo campo
FILENAME_FUNC controlla se la stringa e' un nome di file FILENAME_FUNC controlla se la stringa e' un nome di file
ZEROFILL_FUNC riempie di zeri i numeri fino a n caratteri
n.ro di caratteri
*/ */
#define EXPR_FUNC 0 2 #define EXPR_FUNC 0 2
@ -80,7 +82,8 @@
#define STRCALC_FUNC 15 #define STRCALC_FUNC 15
#define ONEREQ_FUNC 16 #define ONEREQ_FUNC 16
#define CHECK_FIELD 17 1 #define CHECK_FIELD 17 1
#define FILENAME_FUNC 18 #define FILENAME_FUNC 18 0
#define ZEROFILL_FUNC 19 1
#define VALEXPR VALIDATE EXPR_FUNC #define VALEXPR VALIDATE EXPR_FUNC
#define NUM_EXPR VALEXPR 0 #define NUM_EXPR VALEXPR 0

21
include/validate.cpp
View File

@ -577,7 +577,23 @@ HIDDEN bool _filename_val(TEdit_field& f, KEY)
return fn.ok(); return fn.ok();
} }
#define MAX_FUNC 19 HIDDEN bool _zerofill_val(TEdit_field& f, KEY k)
{
if (f.to_check(k))
{
const int columns = atoi(get_val_param(0));
TString & val = f.get();
if (val.len() < columns && real::is_natural(val))
{
val.right_just(columns, '0');
f.set(val);
}
}
return TRUE;
}
#define MAX_FUNC 20
HIDDEN VAL_FUNC _global_val_func[MAX_FUNC] = HIDDEN VAL_FUNC _global_val_func[MAX_FUNC] =
{ {
@ -599,7 +615,8 @@ HIDDEN VAL_FUNC _global_val_func[MAX_FUNC] =
_strcalc_val, _strcalc_val,
_onereq_val, _onereq_val,
_chkfld_val, _chkfld_val,
_filename_val _filename_val,
_zerofill_val
}; };
bool validate(int fn, TEdit_field& f, KEY k, const TArray& parms) bool validate(int fn, TEdit_field& f, KEY k, const TArray& parms)