object Qw: TIBQuery
    Database = dbIDK
    Transaction = trWrite
    AutoStartTransaction = True
    AutoCommit = True
    AutoTrim = True
    BufferChunks = 1000
    CachedUpdates = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    Params = <>
    Left = 240
    Top = 16
end

create or alter procedure SP_UPD_PHYSEX (
    PID integer,
    PHYSEX_DATE date)
returns (
    PHYSEX_ID integer)
as
begin
  update or insert  into t_physex
  (personnel_id, physex_date)
  values (:pid,  :physex_date)
  matching (personnel_id, physex_date)
  returning physex_id into :physex_id;
end

if qw.Active then qw.Close;
qw.AutoCommit := false;
qw.Transaction := fdsTr;
qw.SQL.Clear;
qw.SQL.Add('EXECUTE PROCEDURE SP_UPD_PHYSEX (:PID, :PHYSEX_DATE)');
qw.Prepare;
qw.ParamByName('PID').AsInteger := P_ID;
qw.ParamByName('PHYSEX_DATE').AsDate := dtpMEx.Date;
qw.ExecSQL;
fdsPersonalPHYSEX_ID.AsInteger := qw.OutParamByName('PHYSEX_ID').AsInteger;
fdsPersonal.Post;
fdsTr.Commit;

create or alter procedure SP_UPD_RBEV (
    PID integer,
    RBEV_DATE date)
returns (
    RBEV_ID integer)
as
begin
  update or insert  into t_rbev
  (personnel_id, rbev_date)
  values (:pid,  :rbev_date)
  matching (personnel_id, rbev_date)
  returning rbev_id into :rbev_id;
end

if qw.Active then qw.Close;
qw.AutoCommit := false;
qw.Transaction := fdsTr;
qw.SQL.Clear;
qw.SQL.Add('EXECUTE PROCEDURE SP_UPD_RBEV (:PID, :RBEV_DATE)');
qw.Prepare;
qw.ParamByName('PID').AsInteger := P_ID;
qw.ParamByName('RBEV_DATE').AsDate := dtpRbEx.Date;
qw.ExecSQL;
fdsPersonalRBEV_ID.AsInteger := qw.OutParamByName('RBEV_ID').AsInteger;
fdsPersonal.Post;
fdsTr.Commit;