string ls_password
int li_comparacion
ls_password = ( sle_2.Text)
Select PWDCOMPARE( :ls_password,v_password_usu)
Into :li_comparacion
From assusuario
Where c_codigo_usu = :gs_usuario ;
If SqlCa.SqlCode <> 0 Then
gs_usuario = ''
MessageBox( Title, 'Identificador de usuario o password incorrecto.', Exclamation!)
sle_1.SetFocus()
Return
End If
if li_comparacion <>1 then
MessageBox( Title, 'password incorrecto.', Exclamation!)
sle_1.SetFocus()
Return
End If
//--------------------------------------TERMINA CAMBIO
/* Se verifica si est'a dentro del minuto ultimo de coneccion del dia */
ld_hoy = DateTime( Today( ) )
gs_hini = String( Now( ), 'hhmm' )
ll_count = 0
ls_pcname = f_GetPcName( )
Select Count(*)
Into :ll_count
From assusuariosistemamenu
Where c_codigo_usu = :gs_usuario
And c_codigo_sis = :gs_codsis ;
If f_SqlError( SqlCa, 'No se pudo obtener información de la tabla assusuariosistemamenu (Count)') = -1 Then
gs_usuario = ''
Return
End If
/* Determina si es administrator */
Select c_admin_usu
Into :ls_admin
From assusuario
Where c_codigo_usu = :gs_usuario ;
If f_SqlError( SqlCa, 'No se pudo obtener información de la tabla assusuario.' ) = -1 Then
Return
End If
ls_admin = f_Trim(ls_admin)
If Not ls_admin = '1' Then
/* Si no administrador se verifica si puede entrar al sistema */
If f_Zero( ll_count ) = 0 Then
MessageBox( Parent.Title, 'No tiene acceso a este sistema', Exclamation! )
Halt Close
End If
End If
ll_count = 0
Select Count(*)
Into :ll_count
From assusuariosesion
Where c_codigo_usu = :gs_usuario
And c_codigo_sis = :gs_codsis
And d_acceso_use = :ld_hoy
And c_horini_use = :gs_hini ;
If f_SqlError( SqlCa, 'No se pudo obtener información de la tabla assusuariosesion (Count)') = -1 Then
gs_usuario = ''
Return
End If
If f_Zero( ll_count ) = 0 Then
/* Actualiza la fecha y hora de ingreso al sistema */
Insert Into assusuariosesion
( c_codigo_usu, c_codigo_sis, d_acceso_use, c_horini_use, v_estacion_use )
Values
( :gs_usuario, :gs_codsis, :ld_hoy, :gs_hini, :ls_pcname ) ;
If f_SqlError( SqlCa, 'No se pudo insertar en la tabla assusuariosesion.') = -1 Then
gs_usuario = ''
Return
End If
End If
Commit Using SqlCa ;
SetProfileString( gs_ini, 'System', 'CerrarModoPrevio', f_GetParmValue('25') )
gb_connect = True
CloseWithReturn( Parent, '1' )