Stored Procedure ZStoredProc

Firebird

07/06/2012

Caros colegas, tenho um aplicativo que desenvolvi em delphi 7, utilizo componentes zeos + firebird 2.1.

estou com o seguinte problema, tenho uma SP para baixa de titulos, utilizo o componente zstoredproc para exeuctar essa SP. Numa maquina local ou mesmo quando aplicativo esta instalado em rede, o banco de dados num servidor e somente uma estacao utilizando o form de baixa de titulos o componente executa normalmente, mas se abrir em duas ou mais estacoes ai nao executada nada, em nenhuma.

vejam como estou fazendo para executar a SP com o zstoredproc:

   SP_Baixa.Connection.StartTransaction;
   SP_Baixa.ParamByName(NFILIAL).AsInteger        := Ado_CtaReceber.FieldByName(FILIAL).AsInteger;
   SP_Baixa.ParamByName(NCODIGO).AsInteger        := Ado_CtaReceber.FieldByName(CODIGO).AsInteger;
   SP_Baixa.ParamByName(NCLIENTE).AsString        := Ado_CtaReceber.FieldByName(CLIENTE).AsString;
   SP_Baixa.ParamByName(ACAO).AsString            := B;

   if RadioGroup.ItemIndex = 0 then
      SP_Baixa.ParamByName(TIPO).AsString := T
   else
      SP_Baixa.ParamByName(TIPO).AsString := P;


   if Chk_Banco.Checked = True then
   begin
      SP_Baixa.ParamByName(CHK_CAIXA).AsString       := N;
      SP_Baixa.ParamByName(CHK_BANCO).AsString       := S
   end
   else
   begin
      SP_Baixa.ParamByName(CHK_CAIXA).AsString       := S;
      SP_Baixa.ParamByName(CHK_BANCO).AsString       := N;
   end;
   SP_Baixa.ExecProc;
   SP_Baixa.Connection.Commit;
   Ado_CtaReceber.Refresh;

No componente de conexao com o banco de dados (zconnection), a propriedade TransactIsolationLevel esta setada tiReadCommitted e a autocommit true.

O que pode esta acontecendo, alguem poderia me ajudar

Aguardo

Iramar Junior

Curtidas 0

POSTAR