Cita:
Empezado por Al González
Como cualquier tipo de query, haces una simple consulta sobre el SP:
Código SQL [-]Select * From MiSP (:Parametro1, :Par2, :Par3, ...)
¿Qué error aparece en tu pantalla? Me tendrás que perdonar, pues mi vista es mala y desde aquí no logro ver más allá del canal de Panamá. 
Por otro lado, no entiendo la relación que haces entre campos persistentes y llamar al método Next de un conjunto de datos, ¿podrías explicarlo?
Saludos.  |
Cuando hago en un TSQLQuery: Select * From pSJFondoDesem( :Param, :Param1 ....
Al hacer active = true me muestra
El nombre de objeto 'pSJFondoDesemCursor' no es válido.
Como que no es valido llamar un SP de esta manera, porque lo que busca la consulta es una Tabla, capaz que en otras BD funcione pero en SQL Server creo que no por lo visto.
Probe con el ClientDataSet si intento hacer un OPEN me aparece:
TDBXError with message 'Remote error: SQLStoredProc: Cursor not returned from Query'.
Al usar ClientDataSet.Execute, no da error pero solo devuelve dos parámetros con valores de los 11 y tambien los deveulve para el ultimo registro, si intento hacer algo como esto:
Código Delphi
[-] vdSJInforFondoDesem.ClientDataSetInforNoved.Execute;
with vdSJInforFondoDesem do
begin
ClientDataSetInforNoved.Open;
ClientDataSetInforNoved.First;
while not ClientDataSetInforNoved.Eof do
begin
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@CodigEmple').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@DescrEmple').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@CuilEmple').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@CuentFondoDesem').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@LibreFondoDesem').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@Calle').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@Numer').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@CodigCiuda').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@DescrCiuda').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@Porce').AsString);
ShowMessage(ClientDataSetInforNoved.Params.ParamByName('@ImporFinal').AsString);
ClientDataSetInforNoved.Next;
end;
end;
Me da el sig error en el OPEN:
TDBXError with message 'Remote error: Could not convert variant of type (OleStr) into type (Date)'.
Voy a buscar mas acerca de esto error quizás sea solucionable y pueda funcionar.
