project BLF > class Database Component > method ValidateBC

Description

Parameters

Internal usage

program code (program1/database.p)

<M-4 run CheckValidationExceptionList
   (input  no (ilValidateInputData), 
    output vlDoValidate (olDoValidation)) in database>

if vlDoValidate
then do:
    /* Copy tables from t_o<table> to t_s<table> */
    <I-1 {bFcRun
                &PARAMETERS = "output viFcReturnSuper"
                &PROCEDURE  = "gipr_GetTables"}>
    if viFcReturnSuper <> 0
    then assign oiReturnStatus = viFcReturnSuper.
    
    if oiReturnStatus >= 0
    then do:
        <M-2 run ValidateComponent (output viFcReturnSuper (oiReturnStatus)) in database>
        if viFcReturnSuper <> 0
        then assign oiReturnStatus = viFcReturnSuper.
    end.
    
    if oiReturnStatus >= 0
    then do:
        /* And copy changes to t_s<table> back to t_o<table> */
        <I-3 {bFcRun
                &PARAMETERS = "output viFcReturnSuper"
                &PROCEDURE  = "gipr_SetTables"}>
        if viFcReturnSuper <> 0
        then assign oiReturnStatus = viFcReturnSuper.
    end.
    
    assign vlFcDataValidated = (oiReturnStatus >= 0).
end.
else vlFcDataValidated = yes.