Procedimiento Almacenado Datasnap
 

Hola gente, buen dia.
Una consulta, estoy haciendo una aplicación con sockets, ya tengo el servidor y el cliente. Del lado del servidor tengo la base de datos (firebird) los query, ibupdate y dataset provider. Del lado del cliente tengo los clientdataset y datasource. Todo anda bien, puedo insertar información etc etc. Lo que necesito ahora es poder desde el cliente invocar un procedimiento almacenado definido en la base de datos. Del lado servidor puse un ibstoredsproc apuntando al procedimiento y puse un datasetprovider y los comunico. Ahora no se como hacer del lado del cliente para poder invocarlo. Desde ya gracias y espero vuestra respuesta.:rolleyes:

Hola rruffino,

Tienes varias formas para hacerlo.

Una de ellas sería introducir en el commandText del ClientDataset la sentencia SQL directamente

Código Delphi [-]
ClientDataset1.CommandText := 'Execute procedure xxxxx

y posteriormente llamar al método "execute" del clientDataset.

Código Delphi [-]
ClientDataset1.Execute;

Para ello, tendrías que tener habilitado el parámetro "AllowCommandText" en el DatasetProvider correspondiente.

Otro método (quizás más apropiado) puede ser crear un método remoto en tu capa Intermedia (o SQL).

Para crear tu método remoto, tendrías que ir tu capa intermedia o SQL, pulsar en el menú View y en la opción Type Library.

Te aparecerá un cuadro de dialogo y tienes que buscar un botón cuyo Hint dice "New Metod".
Le pulsas y te crea un nuevo método. Le das nombre y guardar el proyecto.

Luego tienes que irte al código de tu capa intermedia y localizar un procedimiento con el nombre que has indicado en la opción anterior.
En la implementación de dicho procedimiento, introduces el código que quieras. Puedes hacer la llamada al componente "ibstoredsproc" y ejecutar tu procedimiento en base de datos.

En la parte cliente, para llamar a este método remoto, tienes que utilizar el SocketConnection así:

Código Delphi [-]
SocketConnection1.AppServer."nombre_de_tu_metodo_remoto"

Si no lo has hecho nunca, puede ser algo confuso, pero cuando lo hagas un par de veces todo se ve más sencillo.

Espero que te ayude.

Un Saludo.

Respuesta
 

Hola manuc, muchas gracias por tu respuesta. La verdad que me ha sido de mucha ayuda. Opté por la opción dos (metodo) y me funciona bien. Ahora, tengo del lado servidor el Query, el IBUpdateSQL y el DatasetProvider. Desde el lado del cliente el Datasource y el ClientDataset, mi problema es que no puedo insertar datos en esa tabla. Copio el código

Código Delphi [-]
 
    DM.ClientDataSet_cobranza.Open;
    DM.ClientDataSet_cobranza.Append;
    DM.ClientDataSet_cobranzaID_COBRANZA.Value:=77;
    DM.ClientDataSet_cobranzaRESUMEN.Value:=id_resumen;
    DM.ClientDataSet_cobranzaNUMERO.Value:=num_transaccion;
    DM.ClientDataSet_cobranzaFECHA.Value:=Date;
    fecha:=DM.ClientDataSet_cobranzaFECHA.Value;
    DM.ClientDataSet_cobranzaHORA.Value:=Time;
    hora:=DM.ClientDataSet_cobranzaHORA.Value;
    DM.ClientDataSet_cobranzaCAJA.Value:=DM.IBDataSet_configENTIDAD_OPERANTE.Value;
    DM.ClientDataSet_cobranzaMONTO.Value:=monto_a_cobrar;
    DM.ClientDataSet_cobranzaREGISTRADA_EN_SISTEMA.Value:=0;
    DM.ClientDataSet_cobranzaPROCESADA.Value:=0;
    DM.ClientDataSet_cobranza.Post;
    if (DM.ClientDataSet_cobranza.ApplyUpdates(0)>0)then
      begin
        Application.MessageBox('Se ha producido un error en el servidor de datos. Verifique su conectividad a internet y vuelva a intentarlo.','Registro de Cobranza',MB_ICONHAND);
        DM.ClientDataSet_cobranza.CancelUpdates;
      end;

El error se da cuando entra en el IF. Estoy asignandole valores a todos los campos, no veo nada raro.
Si me puedes ayudar te lo agradecere.
Saludos, Román.-

Hola Román,

¿Tienes interceptado el evento onReconcileError del clientDataset?

Si no lo tienes, puedes poner esto en el evento onReconcileError del ClientDataset:

Código Delphi [-]
showmessage(e.Message)

Y tendrás una idea más clara de porqué no se están insertando los registros.

Dimé que error te lanza y vemos a ver porqué puede ser.

Un saludo.

Manuel.

Respuesta
 

Manuel, gracias por tu rapida respuesta. El error que me tira dice:
SQL Parse Error
Parameter name expected.

Me mató porque no tengo nada parametrizado, lo he verificado, salvo que el campo id_cobranza tenga algo que ver con el hecho de que usa un generador que tiene trigger y procedimiento almacenado en la base

Gracias, Román.-

Hola Román,

La verdad es que no sabría decirte claramente el motivo de este error.
Me huele a que puede estar relacionado con la configuración de tu IBUpdateSQL, en la capa intermedia.

Utilizando Query, puede ser que no necesites (no estoy seguro de esto, tendría que probarlo) el IBUpdateSQL, ya que el DatasetProvider genera la sentencia SQL que se ejecutará directamente en el Query (insert, updates, etc). Digamos que el DatasetProvider, no hace un .edit sobre el Query, sino, que envía una sentencia Update con la acualización de campos y su sentencia Where correspondiente.

Yo probaría a revisar la configuración del ProviderDataset, del Query y del IBUpdateSQL.

Cuéntame cómo te fue.

Un saludo.

Manuel.

otra opcion
 

Hola, aqui les dejo un ejemplo de como manejo los Procedimientos Almacenados, en DataSnap, espero les sea de utilidad. :cool:

Código Delphi [-]
procedure TfrCapTiendas.btnGuardarClick(Sender: TObject);
begin
Screen.Cursor:=crHourGlass;
with frDatos.cdsspCentral do
  begin
    try
      Close;
      Params.Clear;
      CommandText:='SPTIENDAS';
      Params.CreateParam(ftInteger, 'idtienda', ptInput).Value      := dbedidTienda.Text;
      Params.CreateParam(ftInteger, 'tienda', ptInput).Value        := dbedTienda.Text;
      Params.CreateParam(ftString, 'nombre', ptInput).Value         := dbedNombre.Text;
      Params.CreateParam(ftString, 'nick', ptInput).Value           := dbedNick.Text;
      Params.CreateParam(ftString, 'direccion', ptInput).Value      := dbedDireccion.Text;
          Params.CreateParam(ftString, 'tipo', ptInput).Value           := dbedTipo.Text;
      Execute;
      MessageDlg(Caption+' finalizó corretamente!', mtInformation,[mbOk],0);
      Screen.Cursor:=crDefault;
    Except
      on E: Exception do
        begin
          MessageDlg('Error: '+E.Message, mtError,[mbOk],0);
          Screen.Cursor:=crDefault;
        end;
    end;
  end;
end;

Esto es en el cliente, creando los parametro y al mismo tiempo asignandole valores, si utilizas consultas, puedes utilizar FetchParams para recuperar los parametros, pero en los procedimientos almacenados no los recupera, por eso hay que crearlos 'a patín'.

Ya que utilizas Firebird te comento, yo me tope con el problema de que agregaba los registros hasta que cerraba mi aplicacion, entonces para que guarde al instante utilicé la siguiente solucion.

En el evento AfterExecute del DatasetProvider que se encarga de 'publicar' el IBstoredProc del servidor puse esto.

Código Delphi [-]
 try
    tC.Commit;
  Except
    on E: Exception do
      Log('Error en servidor: '+E.Message);
  end;

Espero le sirva a alguien, Saludos desde México.

Felicitaciones a los compañeros españoles por el triunfo de su seleccion!!! :D
___________________
"El futbol Refleja el crecimiento de un pais"

Hola manuc, tengo delphi 2010 Enterprise y esa opción dentro del menú view esta bloqueada como cuando pones " enabled= false". Estuve mirando las opciones en Tools, Options para ver que no sea algo configurable pero no encontré nada que me de esos indicios. Sabes como puedo liberar esa opción para usarla?

desde ya muchas gracias!

Slds.

Por favor, Jere_84, esa pregunta no tiene nada que ver con el título de lo que se trata en este hilo, si tienes una pregunta que hacer, crea un nuevo hilo, no mezclemos las cosas, gracias.
Guía de estilo

Hola,

Casimiro Notevi, espero que no te moleste que conteste. Creo que en cierto modo sí está relacionado con el contexto inicial del hilo. :o

Jere_84, Esto suele ocurrir porque el proyecto que tienes activo no es la capa intermedia (en el caso que hablábamos en el hilo se refería a un Remote Data Module) ¿Puede ser que tengas activo el proyecto exe cliente?

Espero que te ayude y que no moleste a nadie :-)

Un saludo.

Gracias!
 

Creo que esta muy relacionada con el contexto de este hilo trata de la 2º opción explicada en este hilo :) Con respecto a lo del proyecto activo de entrada me fije en que la capa intermedia estuviera activa..

Gracias =