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()
    '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


