Kbase P95633: How to restore database table and field validations and validation expressions from a file created u
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
29/09/2004 |
|
Status: Unverified
GOAL:
How to restore database table and field validations and validation expressions from a file created using code of solution P95630
FIX:
The following code restores all database table and field validations and validation expressions from a file created using code of solution P95630
/* Temp table to store table validations */
DEFINE TEMP-TABLE TableValidations
FIELD cTableName LIKE _File._File-Name
FIELD cValExp LIKE _File._Valexp
FIELD cValmsg LIKE _File._Valmsg
INDEX TableName IS PRIMARY cTableName ASCENDING.
/* Temp table to store field validations */
DEFINE TEMP-TABLE FieldValidations
FIELD cTableName LIKE _File._File-Name
FIELD cFieldName LIKE _Field._Field-Name
FIELD cValExp LIKE _Field._Valexp
FIELD cValmsg LIKE _Field._Valmsg
INDEX TableName IS PRIMARY cTableName ASCENDING.
/* Populate file and field validation temp tables */
INPUT FROM fTableValdiations.dat.
REPEAT:
CREATE TableValidations.
IMPORT TableValidations.
END.
INPUT CLOSE.
INPUT FROM fFieldValdiations.dat.
REPEAT:
CREATE FieldValidations.
IMPORT FieldValidations.
END.
INPUT CLOSE.
/* Restore file and field validation from temp tables */
FOR EACH _File WHERE _Tbl-Type ="T":
FIND TableValidations WHERE TableValidations.cTableName = _File._File-Name NO-LOCK.
ASSIGN
_File._Valexp = TableValidations.cValExp
_File._Valmsg = TableValidations.cValMsg
.
FOR EACH _field OF _file:
FIND FieldValidations WHERE FieldValidations.cTableName = _File._File-Name AND FieldValidations.cFieldName = _Field._Field-Name NO-LOCK.
ASSIGN
_Field._Valexp = FieldValidations.cValExp
_Field._Valmsg = FieldValidations.cValMsg
.
END.
END.