VERSION 5.00
Begin VB.Form frmPlazPagSis 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Zigma S.A"
   ClientHeight    =   4305
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6330
   Icon            =   "frmPlazPagSis.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4305
   ScaleWidth      =   6330
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdConti 
      Caption         =   "Continuar >>"
      Default         =   -1  'True
      Height          =   375
      Left            =   4714
      TabIndex        =   4
      Top             =   3795
      Width           =   1335
   End
   Begin VB.CommandButton cmdRegClave 
      Caption         =   "Registrar"
      Height          =   375
      Left            =   4954
      TabIndex        =   3
      Top             =   2895
      Width           =   1095
   End
   Begin VB.TextBox txtClaveAcceso 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   3296
      TabIndex        =   1
      Top             =   2895
      Width           =   1575
   End
   Begin VB.Image imgIcon 
      Height          =   480
      Index           =   0
      Left            =   274
      Picture         =   "frmPlazPagSis.frx":030A
      Top             =   308
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgIcon 
      Height          =   480
      Index           =   3
      Left            =   274
      Picture         =   "frmPlazPagSis.frx":074C
      Top             =   308
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgIcon 
      Height          =   480
      Index           =   1
      Left            =   274
      Picture         =   "frmPlazPagSis.frx":0B8E
      Top             =   308
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgIcon 
      Height          =   480
      Index           =   2
      Left            =   274
      Picture         =   "frmPlazPagSis.frx":0FD0
      Top             =   308
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Label lblclave 
      AutoSize        =   -1  'True
      Caption         =   "Clave de Registro de Pago"
      Height          =   195
      Left            =   281
      TabIndex        =   2
      Top             =   2985
      Width           =   2895
      WordWrap        =   -1  'True
   End
   Begin VB.Label lblMsg 
      Caption         =   "Label1"
      Height          =   2415
      Left            =   1121
      TabIndex        =   0
      Top             =   135
      Width           =   4935
   End
End
Attribute VB_Name = "frmPlazPagSis"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdConti_Click()
    Unload Me
End Sub


Private Sub cmdRegClave_Click()
'inahilbilitado por causar errores de co,pilacion a exe
'    'Enviando actualizacion de ingreso y confimacion de clave de acceso
'    Dim clave As String
'    Dim ConfirmClave As String
'    clave = "777AMETSIS"                'Primera clave
'    ConfirmClave = "777ELBITSUBMOC"     'Confirmacion clave
'    If clavereg = 0 Then                'Si aun no ha registraso la clave
'        If Trim(UCase(txtClaveAcceso)) = clave Then
'            MsgBox "La clave de Registro de Pago es correcta." + Chr(13) + _
'                       "El sistema se cerrara, vuelva a ejecutarlo a continuacion.", vbInformation, "Advertencia"
'            Call RegistrarClaveCFPS(1)  'Registra clave por primera vez
'            End
'        Else
'            MsgBox "La clave de Registro de Pago es incorrecta.", vbExclamation, "Advertencia"
'        End If
'    ElseIf clavereg = 1 Then            'Se registro clave (pero aun no se ha confirmado)
'        If Trim(UCase(txtClaveAcceso)) = ConfirmClave Then
'            MsgBox "La confirmacion de la clave de Registro de Pago es correcta." + Chr(13) + _
'                "El sistema se cerrara, vuelva a ejecutarlo a continuacion.", vbInformation, "Advertencia"
'            Call RegistrarClaveCFPS(2)  'Regitra la confirmacion de la clave de registro
'            End
'        Else
'            MsgBox "La confirmacion de la clave de Registro de Pago es incorrecta.", vbExclamation, "Advertencia"
'        End If
'    End If
End Sub


Private Sub Form_Load()
If clavereg = 1 Then 'Ya se registro la clave de registro solo falta la confirmacion de la clave
   lblclave.Caption = "Confirme la clave de registro de pago"
End If
End Sub


