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;