Debugar uma procedure

Question

Tenho um servidor de aplica��o, que tem uma procedure onde do cliente via parametros, eu executo essa procedure no servidor. Como est� dando erro em um parametro, gostaria de capturar o sql que est� s...

Paulo · Answer

N�o sei como debugar, mas descobri o que est� acontecendo. Quando estava dando insert direto da aplica��o(antes era assim), eu passava o valor dos atributos Numericos com um ponto para separar o decimal, j� que a virgula confundia o Sql como separador de atributos. Como estamos mudando tudo para SA, n�o vou passar CommandText pela rede ou remoto, logo executo a query no server, com o Client passando os parametros dos Insert�s. Logo, mudei de ponto para virgula e n�o deu mais o erro, mas agora o Oracle n�o aceita, dando o seguinte erro:

ORA-01858: A non-numeric character was found where a numeric was expected

Como eu contorno isso?

Paulo · Answer

J� tentei de tudo. Ser� poss�vel pegar pelo AppServer do Socket? Se for poss�vel, como fa�o isso?...

Paulo · Answer

Se fizer assim, funciona, mas eu n�o quero passar CommandText via Rede ou Remoto(Principalmente)

CommandText := �INSERT INTO TB_MFD_CAPEADOR_REDUCAO VALUES(� + nLoja + �,� + sNu_Cx + �,� + dMov + �,� + nCoo + �,� + nContReiOp + �,� + nGeOpNFiscal + �,� + sComprovCreDeb + �,� + nGerOpNFiscalCanc + �,� + sGerRelGeren + �,� + nContCCF + �,� + nCCFCanc + �,� + nContFitaDet + �,� + nTotGeral + �,� + nVendBrut + �,� + sCancICMS + �,� + nDescICMS + �,� + nTotISSQN + �,� + sCancISSQN + �,� + nDescISSQN + �,� + nVendLiq + �,� + nAcreICMS + �,� + nAcreISSQN + �,� + sF1 + �,� + sI1 + �,� + sN1 + �,� + sFS1 + �,� + sIS1 + �,� + sNS1 + �,� + sCompNEmitido + �,� + sTempoEmit + �,� + sTempoOper + �,� + sMFD + �,� + nNumRedRest + �,� + sEquipamento + �,� + sVersaoECF + �,� + nNumECF + �,� + sParamECF + �,� + sRel + �,� + nBaseCalc + �,� + nTotImposto + �,� + nTotFormaPagReducao + �)�; Execute;

Emerson Nascimento · Answer

seu servidor de aplica��o � um exe ou COM+ ?...

Paulo · Answer

Emerson escreveu[quote:e0e5a25b6f]seu servidor de aplica��o � um exe ou COM+ ?[/quote:e0e5a25b6f]exe...

Emerson Nascimento · Answer

se � um exe, vc debuga normalmente.abra o projeto do aplicativo servidor no Delphi, pressione F9. depois abra o aplicativo cliente �por fora�. no momento que a procedure for requisitada, ela ser� interceptada pelo �debuguer� do Delphi....

Paulo · Answer

N�o � isso n�o emerson. Veja abaixo a minha procedure CriaComponente:

CriaComponente(4,�TB_MFD_CAPEADOR_REDUCAO�,�INSERT INTO TB_MFD_CAPEADOR_REDUCAO VALUES(� + �:PLoja,:PNu_Cx,:PDtMov,:PCoo,:PContReiOp,:PGeOpNFiscal,:PComprovCreDeb,� + �:PGerOpNFiscalCanc,:PGerRelGeren,:PContCCF,:PCCFCanc,:PContFitaDet,:PTotGeral,:PVendBrut,� + �:PCancICMS,:PDescICMS,:PTotISSQN,:PCancISSQN,:PDescISSQN,:PVendLiq,� + �:PAcreICMS,:PAcreISSQN,:PF1,:PI1,:PN1,:PFS1,:PIS1,:PNS1,:PCompNEmitido,� + �:PTempoEmit,:PTempoOper,:PMFD,:PNumRedRest,:PEquipamento,:PVersaoECF,� + �:PNumECF,:PParamECF,:PRel,:PBaseCalc,:PTotImposto,:PTotFormaPagReducao)�);

Ela tem tres par�metros. O terceiro � uma Instru��o SQL que os �par�metros� do Sql(n�o da procedure), v�m do cliente. � isso que eu quero pegar, saber o que est� passando por ele. Como est� dando um erro, gostaria de pegar esse SQL e rodar dentro do TOAD para ver onde est� o erro. Se eu passar os mesmos par�mtero, mas como um CommandText do Cliente, n�o d� esse erro. E isso que eu quero debugar, e n�o uma procedure do delphi.

Emerson Nascimento · Answer

ah, agora entendi...se voc� estiver utilizando provider, pegue os valores no evento BeforeExecute....

Paulo · Answer

Como fa�o? Meus providers s�o criados dinamicamente pela procedure CriaComponente. Como fa�o ent�o?...

Emerson Nascimento · Answer

crie um procedimento com o cabe�alho padr�o do evento BeforeExecute e associe seus providers a esse evento.

por exemplo:

procedure TDM.ProviderBeforeExecute(Sender: TObject;
  var OwnerData: OleVariant);
var
  i: integer;
  lista: string;
begin
  lista := ��;

  with TSQLDataset(TDataSetProvider(Sender).DataSet) do
    if Params.Count > 0 then
      for i := 0 to Params.Count -1 do
      begin
        if lista <> �� then lista := lista + #13;
        lista := lista + Params[i].Name + � = � + Params[i].AsString;
      end;

  if lista <> �� then
    ShowMessage(lista);
end;

da�, quando voc� criar seus providers, associe o evento BeforeExecute � esse procedimento.
dsp := TDatasetProvider.Create(X);
dsp.BeforeExecute := ProviderBeforeExecute;
etc...

(note que da forma que eu te passei, ser� exibida uma mensagem pelo aplicativo servidor)

F�rum Debugar uma procedure #362288