Código Delphi [-]procedure TNombre.IBQueryAfterPost(DataSet: TDataSet); begin If IBQueryCLAVE.AsVariant = Null then IBQuery.Delete; end;
procedure TNombre.IBQueryAfterPost(DataSet: TDataSet); begin If IBQueryCLAVE.AsVariant = Null then IBQuery.Delete; end;