Ver Mensaje Individual
  #1  
Antiguo 23-06-2018
ASAPLTDA ASAPLTDA is offline
Miembro
 
Registrado: jun 2003
Ubicación: COLOMBIA-CALI
Posts: 639
Reputación: 22
ASAPLTDA Va por buen camino
Ejecutar Procedimiento MS SQL server con fDstoreProcedure

Hola quiero ejecutar e siguiente procemiento de sqlserver, pero no me funciona podria alguien indicarme como hacerlo Gracias

Código SQL [-]
ALTER Procedure [dbo].[sp_rever]
@p_rowid_docto    int = 0,
@p_rowid_movto    int,     
@p_error int output,
@p_cadena_error varchar(500) output,
@p_ind_ubi_lote  smallint = 0
as
begin
 -- set  @p_error=0
 --   set @p_cadena_error = 'respuesta de este procedimiento:'  +  cast(@p_rowid_docto as char(1))
 --  set @p_cadena_error = 'respuesta de este procedimiento:' + CAST( @p_rowid_docto as varchar); 

End

y quiero saber como definir y leer las variables de salida del procedimiento


Código Delphi [-]
Function TFPedidosCierresAplazarEntrega.Cancelar_conpromiso(p_rowid_docto,p_rowid_movto:integer; var p_cadena_error:string ):Boolean ;
var
  W_p_error :string;

begin
   d.sp_inv_comprom_auto_rever.Params.ParamByName('@p_rowid_docto').AsInteger:=  p_rowid_docto ;
    d.sp_inv_comprom_auto_rever.Params.ParamByName('@p_rowid_movto').AsInteger:=  p_rowid_movto ;
    d.sp_inv_comprom_auto_rever.ExecProc;

    G_ERROR    :=  d.sp_inv_comprom_auto_rever.Params.ParamByName('@p_error').AsString;
    G_MSGERROR :=  d.sp_inv_comprom_auto_rever.Params.ParamByName('@p_cadena_error').asString ;
    g_RETURN_VALUE:=     d.sp_inv_comprom_auto_rever.Params.ParamByName('@RETURN_VALUE').asString ;
Responder Con Cita