VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmUpdt 
   Caption         =   "Sincronización"
   ClientHeight    =   5265
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6975
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5265
   ScaleWidth      =   6975
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame2 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   855
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   6975
      Begin VB.PictureBox Picture1 
         BackColor       =   &H80000009&
         BorderStyle     =   0  'None
         Height          =   615
         Left            =   6120
         Picture         =   "frmUpdt.frx":0000
         ScaleHeight     =   615
         ScaleWidth      =   615
         TabIndex        =   7
         Top             =   120
         Width           =   615
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackColor       =   &H80000009&
         Caption         =   "Sincronización en progreso"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   18
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   240
         TabIndex        =   6
         Top             =   180
         Width           =   4410
      End
   End
   Begin VB.Frame Frame1 
      Height          =   40
      Left            =   420
      TabIndex        =   3
      Top             =   4650
      Width           =   6135
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "&Cerrar"
      Height          =   340
      Left            =   5115
      TabIndex        =   2
      Top             =   4840
      Width           =   1455
   End
   Begin VB.ListBox lstLog 
      Height          =   2595
      Left            =   420
      TabIndex        =   1
      Top             =   1920
      Width           =   6135
   End
   Begin MSComctlLib.ProgressBar prgBar 
      Height          =   375
      Left            =   420
      TabIndex        =   0
      Top             =   1440
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   661
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.Label lblEtiqueta 
      AutoSize        =   -1  'True
      Caption         =   "Por favor espere a que la sincronización termine..."
      Height          =   195
      Left            =   420
      TabIndex        =   4
      Top             =   1005
      Width           =   3525
   End
End
Attribute VB_Name = "frmUpdt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
    Unload Me
End Sub
Private Sub Form_Load()
  cmdClose.Enabled = False
  Me.lstLog.Clear
  Me.lblEtiqueta.Caption = "Por favor espere a que la sincronización termine..."
  prgBar.Value = 0
  frmUpdt.Refresh
End Sub

Public Sub InsertaLinea(strLinea As String)
    Me.lstLog.AddItem strLinea
End Sub

Public Sub AumentaBarra(intValor As Integer)
     If prgBar.Value < 100 Then
        prgBar.Value = prgBar.Value + intValor
     End If
End Sub

Public Sub Refrescar()
  
  Dim intContador As Integer
  
  intContador = 0
  
  If Me.lstLog.ListCount > 0 Then
    For i = 1 To Me.lstLog.ListCount
        If Not Left(Me.lstLog.List(i), 1) = "N" Then
            intContador = intContador + 1
        End If
    Next
  End If
  
  lblEtiqueta = "Se Sincronizaron " & intContador & " registros." & vbCrLf & "Hubieron " & Me.lstLog.ListCount - intContador & " errores."
  cmdClose.Enabled = True
  frmUpdt.Refresh
End Sub
