Capturar SQL que es pasada como parámetro

[[coso]]

Hola, deberias poner el codigo fuente de CriaComponent. Ten en cuenta que si cria component es un procedure, entonces nunca te devolvera una string, tal como parece que estas esperando. Deberias hacer, entonces,

Código Delphi [-]
function CriaComponente(qtdCampoChave: Integer; nmTabela, SQL: string) : string;
begin

     ...
     CriaComponente := SQL;
end;

o bien hacer

Código Delphi [-]
procedure CriaComponente(qtdCampoChave : integer; nmTabela : string; var SQL string);
begin
   ...
   // modificar variable SQL
   ...
end;

var
   s : string;
begin
   CriaComponente(1,'test',s);
   ShowMessage(s); // s se ha modificado
end;

como digo, si pones el codigo fuente, nos entenderemos mejor un saludo

[[coso]]

tambien puedes pasar un objeto query y una vez ejecutada la funcion, ver los resultados que tiene.

Código Delphi [-]
function CriaComponente(q : TAdoQuery; sql : string)
begin   
            ...
            q.Active := false;
            q.SQL.Text := sql
            if Pos('select',lowercase(sql)) <> 0 then 
              q.Active := true
            else
              q.ExecSQL;
end;

...

        CriaComponente(query1_a_consultar,...)
        showmessage(query1_a_consultar.FieldByName('total').asstring);
... // por ejemplo.

[Paulao]

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)');

Este es el fuente. Necesito saber el valor de SQL. Los valores de parametros de SQL viene del Client. Solo necesito saber lo que estas pasando por el.

[[coso]]

pero...criacomponent de donde sale? no la has programado tu?

[[coso]]

igualmente, si criacomponent modifica una query a la que tengas acceso, le deberian quedar los valores dentro del query una vez pasada la funcion.

[Paulao]

Perdon, me olvide de poner el fuente corecto. Este es el fuente de CriaComponente. Estas en mi servidor de aplicaccion.

procedure TRDM_Consulta.CriaComponente(qtdCampoChave: Integer; nmTabela,
SQL: string);
var
qry: TSQLQuery;
dsp: TDataSetProvider;
begin
qry := TSQLQuery.Create(Self);
dsp := TDataSetProvider.Create(Self);
qry.Name := 'qry' + nmTabela;
dsp.Name := 'dsp' + nmTabela;
qry.SQLConnection := qryGeral.SQLConnection;
qry.SQL.Text := SQL;
dsp.DataSet := qry;
dsp.Exported := True;
dsp.UpdateMode := upWhereKeyOnly;
dsp.Options := dsp.Options + [poAllowCommandText];

case qtdCampoChave of
1: qry.AfterOpen := qryAfterOpen1Key;
2: qry.AfterOpen := qryAfterOpen2Key;
3: qry.AfterOpen := qryAfterOpen3Key;
4: qry.AfterOpen := qryAfterOpen4Key;
5: qry.AfterOpen := qryAfterOpen5Key;
6: qry.AfterOpen := qryAfterOpen6Key;
7: qry.AfterOpen := qryAfterOpen7Key;
8: qry.AfterOpen := qryAfterOpen8Key;
end;

dsp.OnDataRequest := dspDataRequestParam;
end;

Em mi client yo paso los valores del Sql:

if (dMov <> '') and (nCoo <> '') and (sCompNEmitido <> '') then
begin
DM_Create.ConectaMatriz;
with DM_Create.CDS_CapeReducao do
begin
Close;
Params[00].AsString := nLoja;
Params[01].AsString := sNu_Cx;
Params[02].AsString := dMov;
Params[03].AsString := nCoo;
Params[04].AsString := nContReiOp;
Params[05].AsString := nGeOpNFiscal;
Params[06].AsString := sComprovCreDeb;
Params[07].AsString := nGerOpNFiscalCanc;
Params[08].AsString := sGerRelGeren;
Params[09].AsString := nContCCF;
Params[10].AsString := nCCFCanc;
Params[11].AsString := nContFitaDet;
Params[12].AsString := nTotGeral;
Params[13].AsString := nVendBrut;
Params[14].AsString := sCancICMS;
Params[15].AsString := nDescICMS;
Params[16].AsString := nTotISSQN;
Params[17].AsString := sCancISSQN;
Params[18].AsString := nDescISSQN;
Params[19].AsString := nVendLiq;
Params[20].AsString := nAcreICMS;
Params[21].AsString := nAcreISSQN;
Params[22].AsString := sF1;
Params[23].AsString := sI1;
Params[24].AsString := sN1;
Params[25].AsString := sFS1;
Params[26].AsString := sIS1;
Params[27].AsString := sNS1;
Params[28].AsString := sCompNEmitido;
Params[29].AsString := sTempoEmit;
Params[30].AsString := sTempoOper;
Params[31].AsString := sMFD;
Params[32].AsString := nNumRedRest;
Params[33].AsString := sEquipamento;
Params[34].AsString := sVersaoECF;
Params[35].AsString := nNumECF;
Params[36].AsString := sParamECF;
Params[37].AsString := sRel;
Params[38].AsString := nBaseCalc;
Params[39].AsString := nTotImposto;
Params[40].AsString := nTotFormaPagReducao;

Execute;
......

Cambie todos por String, pero el eror es el mismo. Si yo paso directo CommandText, con los mismos valores, funciona. Pero por parametro y el CommandText en el Servidor de Aplicacion, entonces no funciona.

[[coso]]

No le veo solucion aparte de las que ya te he comentado: pasarle un query tambien como parametro,

Código Delphi [-]
procedure TRDM_Consulta.CriaComponente(qtdCampoChave: Integer;nmTabela, SQL: string; qry : TSQLquery);
var
dsp: TDataSetProvider;
begin
   dsp := TDataSetProvider.Create(Self);
...
  dsp.DataSet := qry;
  dsp.Exported := True;
  dsp.UpdateMode := upWhereKeyOnly;
  dsp.Options := dsp.Options + [poAllowCommandText];
...

o bien que te devuelva un query

Código Delphi [-]
function TRDM_Consulta.CriaComponente(qtdCampoChave: Integer;nmTabela, SQL: string) : TSQLquery;
var
  qry: TSQLQuery;
  dsp: TDataSetProvider;
begin
  qry := TSQLQuery.Create(Self);
  dsp := TDataSetProvider.Create(Self);
  qry.Name := 'qry' + nmTabela;
  dsp.Name := 'dsp' + nmTabela
...
  dsp.OnDataRequest := dspDataRequestParam;
  CriaComponente := qry;
end;

ten en cuenta que en tu funcion no liberas qry ni dsp, por lo que la estas creando incontables veces.