Fórum Lock conflit on no wait transaction, firebird 1.5 #283073

procedure IncluiReg(DataSource: TDataSource; EditCampo: TEdit);
begin
  with Screen.ActiveForm do
  begin
//    try

//      (((DataSource as TDataSource).DataSet as TIBDataSet).Transaction as TIBTransaction).StartTransaction;

      if not ((DataSource as TDatasource).DataSet as TIBDataset).Active then
        ((DataSource as TDatasource).DataSet as TIBDataset).Open;

      ((DataSource as TDatasource).DataSet as TIBDataset).Append;

      (FindComponent(´LblStatus´) as TLabel).Caption := ´Inserindo . . .´;
      (FindComponent(´PnlCabecalho´) as TPanel).Enabled := False;
      (DataSource as TDatasource).Enabled := True;
      (FindComponent(´BtnIncluir´) as TBitBtn).Enabled := False;
      (FindComponent(´BtnAlterar´) as TBitBtn).Enabled := False;
      (FindComponent(´BtnGravar´) as TBitBtn).Enabled := True;
      (FindComponent(´BtnCancelar´) as TBitBtn).Enabled := True;
      (FindComponent(´BtnExcluir´) as TBitBtn).Enabled := False;
      (FindComponent(´BtnLocalizar´) as TBitBtn).Enabled := False;
{    except
      Application.MessageBox(´Não foi possível inserir um registro.´ + #10 + ´´ + 10 + ´Por favor, entre em contato com o Administrador.´, ´ConFlex´, MB_OK + MB_ICONHAND + MB_DEFBUTTON1 + MB_APPLMODAL);
    end;}
  end;
end;

  IncluiReg(DsCliente, EdCliente);

procedure GravaReg(DataSource: TDataSource);
begin
  with Screen.ActiveForm do
  begin
 //   try

    ((DataSource as TDatasource).DataSet as TIBDataset).Post;
    if ((DataSource as TDatasource).DataSet as TIBDataset).CachedUpdates then
      ((DataSource as TDatasource).DataSet as TIBDataset).ApplyUpdates;
    ((DataSource as TDatasource).DataSet as TIBDataset).Close;
         {Se Tag do transaction for <> 0 não commita}
    if (((DataSource as TDataSource).DataSet as TIBDataSet).Transaction as TIBTransaction).Tag = 0 then
      (((DataSource as TDataSource).DataSet as TIBDataSet).Transaction as TIBTransaction).Commit;

    (FindComponent(´LblStatus´) as TLabel).Caption := ´´;
    (FindComponent(´PnlCabecalho´) as TPanel).Enabled := True;
    (DataSource as TDatasource).Enabled := False;
    (FindComponent(´BtnIncluir´) as TBitBtn).Enabled := True;
    (FindComponent(´BtnAlterar´) as TBitBtn).Enabled := False;
    (FindComponent(´BtnGravar´) as TBitBtn).Enabled := False;
    (FindComponent(´BtnCancelar´) as TBitBtn).Enabled := False;
    (FindComponent(´BtnExcluir´) as TBitBtn).Enabled := False;
    (FindComponent(´BtnLocalizar´) as TBitBtn).Enabled := True;

    (FindComponent(´PnlCabecalho´) as TPanel).SetFocus;
{    except
      Application.MessageBox(´Não foi possível gravar este registro.´ + #10 + ´´ + 10 + ´Por favor, entre em contato com o Administrador.´, ´ConFlex´, MB_OK + MB_ICONHAND + MB_DEFBUTTON1 + MB_APPLMODAL);
    end;}
  end;
end;

GravaReg(DSCliente);