Procedimiento Almacenado Datasnap

[manuc]

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.

[erickahr]

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

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!!!
___________________
"El futbol Refleja el crecimiento de un pais"