Procedimiento Almacenado Datasnap

[rruffino]

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.-