|
tableName :XX
Champ: xx.NFis
Propriété required=true;
j'ai essayé avec ErrorCode=9732 pour controler l'éxception 'Le champ Nfis doit avoir une valeur' comme suit :
var
iDBIError: Integer;
begin
if (E is EDBEngineError) then
begin
iDBIError := (E as EDBEngineError).Errors[0].Errorcode;
if iDBIError =9732 then
begin
MessageDlg('Remplir le champ NFis' , mtWarning, [mbOK], 0);
Abort;
end;
End;
mais il semble que ErrorCode n'est pas une erreur EDBEngineError (9732).
Je ne trouve pas la solution (errorcode exacte).
|