[[poliburro]]

Código Delphi [-]
//Crea los parámetros para ejecutar el procedimiento almacenado
Function TDmDatos.CreaParametros(PsNombProc: String): String;
Begin
  Result := 'Nada';
  Try
    If PsNombProc = 'SPADM_SNAVUSUARIOS' Then
      With AdsDatos.Parameters Do
        Begin
          Clear;
          CreateParameter('PI_NId',ftInteger,pdInput,0,0);
          CreateParameter('PI_VClave',ftString,pdInput,200,'');
          CreateParameter('PI_VNOMBRE',ftString,pdInput,200,'');
          CreateParameter('PI_VMenu',ftString,pdInput,200,'');
          CreateParameter('PI_VPASSW',ftString,pdInput,200,'');
          CreateParameter('PO_VMsgError',ftString,pdOutput,200,'');
        End;
End;



Function TDmDatos.ManejaUsuario(PsAccion: String; PsNombre: String; PCSexo: Char;
         PsPuesto: String; PsFecNac: String; PsClave: String; PsPass: String;
         PCEstatus: Char; PsUsuario: String): String;

Begin
  Result := 'Nada';
  Try
    AdsDatos.Close;
    AdsDatos.ProcedureName := 'SPADM_IUDMANUSUARIOS';
    Result := CreaParametros(AdsDatos.ProcedureName);
    If Result = 'Nada' Then
      Begin
        With AdsDatos.Parameters Do Begin
          ParamByName('PI_VClave').Value := PsClave;
          ParamByName('PI_VNOMBRE').Value := PsNombre;
          ParamByName('PI_VSexo').Value := PCSexo;
          ParamByName('PI_VPASSW').Value := PsPass;
          ParamByName('PI_VPUESTO').Value := PsPuesto;
          ParamByName('PI_VFECNAC').Value := PsFecNac;
          ParamByName('PI_VESTATUS').Value := PCEstatus;
          ParamByName('PI_VUSUARIO').Value := PsUsuario;
          ParamByName('PI_VMenu').Value := PsAccion;
        End;
        AdsDatos.ExecProc;
        Result := AdsDatos.Parameters.ParamByName('PO_VMsgError').Value;
      End;
  Except
    On Error: Exception Do
      Result := 'Ocurrió un error al ejecutar la operación. Error: ' +
        Error.Message;
  End;
End;