llamar a un Store Procedure

[[Lepe]]

Código Delphi [-]
     With IBSP_Edit Do
     Begin
     StoredProcName := 'AGREGAR_CARGO';
     Prepare;
     For i:=0 to Asig_Costos.Costos_Paso.RowCount -1 Do
     Begin
          Params[0].AsString := IntToStr(IBQ_Select['ORD_NUM']);
          Params[1].AsString := Asig_Costos.Costos_Paso.Cells[0,i];
          Params[2].AsFloat  := StrToFloat(Asig_Costos.Costos_Paso.Cells[2,i]);
          Params[3].AsString := Asig_Costos.Costos_Paso.Cells[3,i];
          ExecProc;
     End
     End;
     IBT_SPEdit.Commit;

En principio debe funcionar. Aunque no sé el tema de transacciones, ya que solo veo el Commit pero no el inicio de transacción.

Saludos

[[BlueSteel]]

hasta el momento me da un error de 'List index out of bound (0)',, y no es un numero decimal válido..


esta es la SP que fue creada en IBExpert y cuando la ejecuta desde allí no tiene problemas.... (eso por que me muestra un formulario donde ingreso las variables... ).. quizas el error sea el de traspasar los datos en el formulario...

Código Delphi [-]
SET TERM ^ ;
CREATE PROCEDURE AGREGAR_CARGO (
    VORD_NUMERO VARCHAR(5) CHARACTER SET NONE,
    VCEN_CODIGO VARCHAR(4) CHARACTER SET NONE,
    VCAR_MONTO FLOAT,
    VCAR_OBSERVACION BLOB SUB_TYPE 0 SEGMENT SIZE 80)
AS
begin
   begin
        Insert into "Cargos" ("Ord_Numero", "Cen_Codigo", "Car_Monto", "Car_Observacion")
        values (:vord_numero, :vcen_codigo, :vcar_monto, :vcar_observacion);
        when sqlcode -530 Do
             Exception no_cargos_new;
   end
   suspend;
end
^
SET TERM ; ^
GRANT INSERT ON "Cargos" TO PROCEDURE AGREGAR_CARGO;
GRANT EXECUTE ON PROCEDURE AGREGAR_CARGO TO ROOT;