[lucasarts_18]

Hola:

Código Delphi [-]
procedure TFrm_EliminarDocumento.ActualizarEstadoGuiaPendienteDetalle;
var Sp:TStoredProc;
begin
     Sp:=TStoredProc.create(self);
     Sp.DatabaseName:='DBCOMLIMA';
     Sp.StoredProcName:='SP_ActualizarCondicionGuia';
     Sp.Params.Clear;

     //Creacion de Parametros
     Sp.Params.CreateParam(ftInteger,'@guia_numero',ptInput);
     Sp.Params.CreateParam(ftString,'@tgui_tipo',ptInput);
     Sp.Params.CreateParam(ftInteger,'RETURN_VALUE',ptResult);

    //Valores que entrega el Servidor
     Sp.ParamByName('@guia_numero').AsInteger := CeldaToInt(grd_Detalle.Cells[1,lv_i]);
     Sp.ParamByName('@tgui_tipo').AsString:= 'P';
     try
        Sp.ExecProc;
     Except on E:EDataBaseError do
        MessageDlg('Procedimiento Almacenado no pudo ser ejecutado Correctamente.'+#13+
                   'Mensaje del Servidor de Datos: '+e.message,mtInformation,[mbOk], 0);
     end;
end;

Con un ejemplo debería quedar bien, cierto

Hasta Luego -