Private Sub Text1_GotFocus()
Si el usuario tiene un nivel superior entonces salir del evento
If RsvUserlevel.Caption = "Administrador" Or RsvUserlevel.Caption = "Supervisor" Then
   Exit Sub
End If
Si el registro todava se va a guardar entonces salir del evento
If Reg_Saved = True Then
   Exit Sub
Else
Si el registro ya ha sido guardado pedir autorizacin
   Cesp = MsgBox("Solicite autorizacin con el Supervisor", vbYesNo + vbCritical, "Cambiar No. de Cupn...")
   If resp = vbYes Then
      'Solicitar Autorizacion
      '
      CuponUser.Text = ""
      CuponClave.Text = ""
      CuponChanged.Text = ""
      FrameCupon.Visible = True
      CuponUser.SetFocus
   Else
      SendKeys Chr(9)
   End If
End If
End Sub
