VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{4C4440C5-5524-4C18-821F-6A599BEC95BD}#1.0#0"; "NumLetras.ocx"
Begin VB.Form Em 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Empleados"
   ClientHeight    =   8745
   ClientLeft      =   1380
   ClientTop       =   330
   ClientWidth     =   12375
   Icon            =   "Em.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8745
   ScaleWidth      =   12375
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C00000&
      Height          =   255
      Left            =   7680
      Style           =   1  'Graphical
      TabIndex        =   70
      ToolTipText     =   "Poner sueldo en cero"
      Top             =   2640
      Width           =   255
   End
   Begin VB.CheckBox Check2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "BAJO LICENCIA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   64
      Top             =   3000
      Visible         =   0   'False
      Width           =   1935
   End
   Begin NumLetras.NumLetra NumLetra1 
      Height          =   615
      Left            =   360
      Top             =   4920
      Width           =   11775
      _ExtentX        =   20770
      _ExtentY        =   1085
      BackColor       =   12648384
      ForeColor       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BorderStyle     =   1
      Alignment       =   2
      Caption         =   "NumLetra1"
      Moneda          =   6
      SexoMoneda      =   1
      SexoCentimo     =   1
   End
   Begin VB.TextBox Text15 
      BackColor       =   &H00C0FFC0&
      Height          =   285
      Left            =   8640
      TabIndex        =   11
      Top             =   3000
      Width           =   1455
   End
   Begin VB.TextBox Text14 
      BackColor       =   &H00C0FFC0&
      Height          =   285
      Left            =   8640
      TabIndex        =   10
      Top             =   2400
      Width           =   1455
   End
   Begin VB.TextBox Text13 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   5880
      TabIndex        =   8
      ToolTipText     =   "Formato ##-##-####"
      Top             =   2640
      Width           =   1695
   End
   Begin VB.TextBox Text12 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   2520
      TabIndex        =   7
      ToolTipText     =   "Formato ##-##-####"
      Top             =   2640
      Width           =   1695
   End
   Begin VB.TextBox Text11 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   10200
      TabIndex        =   15
      Top             =   3000
      Width           =   1455
   End
   Begin VB.TextBox Text10 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   10200
      TabIndex        =   14
      Top             =   2400
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.TextBox Text9 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   285
      Left            =   8640
      TabIndex        =   12
      Top             =   3600
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.TextBox Text8 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   8640
      TabIndex        =   13
      Top             =   4200
      Width           =   1455
   End
   Begin VB.TextBox Text7 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   5880
      TabIndex        =   6
      ToolTipText     =   "Formato ########.##"
      Top             =   2280
      Width           =   1695
   End
   Begin VB.TextBox Text6 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   5880
      TabIndex        =   4
      ToolTipText     =   "Formato #######.##"
      Top             =   1920
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H000000FF&
      Height          =   255
      Left            =   360
      Style           =   1  'Graphical
      TabIndex        =   16
      ToolTipText     =   "Seleccionar al empleado de la grilla"
      Top             =   4440
      Width           =   255
   End
   Begin VB.Data Data1 
      Caption         =   "Empleados"
      Connect         =   "Access 2000;"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   5040
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "Empleados"
      Top             =   8760
      Width           =   4935
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "Em.frx":693A
      Height          =   2895
      Left            =   240
      OleObjectBlob   =   "Em.frx":694E
      TabIndex        =   25
      Top             =   5640
      Width           =   12015
   End
   Begin VB.TextBox Text5 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   2520
      TabIndex        =   5
      ToolTipText     =   "Formato #######.##"
      Top             =   2280
      Width           =   1695
   End
   Begin VB.TextBox Text4 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   2520
      TabIndex        =   3
      ToolTipText     =   "Formato #######.##"
      Top             =   1920
      Width           =   1695
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   5520
      TabIndex        =   1
      Top             =   1200
      Width           =   2055
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   2520
      TabIndex        =   2
      Top             =   1560
      Width           =   5055
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   2520
      TabIndex        =   0
      Top             =   1200
      Width           =   1695
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "AFILIADO"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4320
      TabIndex        =   9
      ToolTipText     =   "Tildar si el empleado esta afiliado al CEC"
      Top             =   2880
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Caja de Control"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   1815
      Left            =   8160
      TabIndex        =   26
      Top             =   240
      Width           =   4095
      Begin VB.Label Label32 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2760
         TabIndex        =   50
         Top             =   1440
         Width           =   1215
      End
      Begin VB.Label Label31 
         BackStyle       =   0  'Transparent
         Caption         =   "Total"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   2760
         TabIndex        =   49
         Top             =   1200
         Width           =   615
      End
      Begin VB.Label Label30 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2760
         TabIndex        =   48
         Top             =   960
         Visible         =   0   'False
         Width           =   1215
      End
      Begin VB.Label Label29 
         BackStyle       =   0  'Transparent
         Caption         =   "Intereses"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   2760
         TabIndex        =   47
         Top             =   720
         Visible         =   0   'False
         Width           =   975
      End
      Begin VB.Label Label24 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1440
         TabIndex        =   42
         Top             =   960
         Width           =   1215
      End
      Begin VB.Label Label23 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1440
         TabIndex        =   41
         Top             =   480
         Width           =   1215
      End
      Begin VB.Label Label22 
         BackColor       =   &H00FFFFFF&
         Caption         =   "No Af."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   1440
         TabIndex        =   40
         Top             =   720
         Width           =   735
      End
      Begin VB.Label Label21 
         BackColor       =   &H00FFFFFF&
         Caption         =   "AF."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Index           =   0
         Left            =   1440
         TabIndex        =   39
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label20 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2760
         TabIndex        =   38
         Top             =   480
         Width           =   1215
      End
      Begin VB.Label Label19 
         BackColor       =   &H00FFFFFF&
         Caption         =   "O Conceptos"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   2760
         TabIndex        =   37
         Top             =   240
         Width           =   1215
      End
      Begin VB.Label Label18 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1440
         TabIndex        =   36
         Top             =   1440
         Width           =   1215
      End
      Begin VB.Label Label17 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Aporte 2.5%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   1440
         TabIndex        =   35
         Top             =   1200
         Width           =   1095
      End
      Begin VB.Label Label14 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   32
         Top             =   1440
         Width           =   1215
      End
      Begin VB.Label Label13 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   31
         Top             =   960
         Width           =   1215
      End
      Begin VB.Label Label12 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Aportes 2%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   120
         TabIndex        =   30
         Top             =   1200
         Width           =   1095
      End
      Begin VB.Label Label11 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Sueldos"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   120
         TabIndex        =   29
         Top             =   720
         Width           =   855
      End
      Begin VB.Label Label10 
         Alignment       =   1  'Right Justify
         BackColor       =   &H0080FF80&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   28
         Top             =   480
         Width           =   1215
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "Empleados"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   120
         TabIndex        =   27
         Top             =   240
         Width           =   975
      End
   End
   Begin VB.Label Label39 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Poner Otros Conceptos en cero"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   1
      Left            =   11280
      TabIndex        =   69
      Top             =   3960
      Width           =   1095
   End
   Begin VB.Image Image8 
      Height          =   615
      Left            =   11520
      Picture         =   "Em.frx":80AD
      Stretch         =   -1  'True
      ToolTipText     =   "Hace 0 el valor de otros conceptos para todos los empleados"
      Top             =   3360
      Width           =   615
   End
   Begin VB.Label Label26 
      BackStyle       =   0  'Transparent
      Caption         =   "Cheque Banco"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Index           =   1
      Left            =   8640
      TabIndex        =   61
      Top             =   2160
      Width           =   1455
   End
   Begin VB.Label Label38 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Importar"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   7200
      TabIndex        =   68
      Top             =   3840
      Width           =   855
   End
   Begin VB.Image Image7 
      Height          =   495
      Left            =   7320
      Picture         =   "Em.frx":9FAB
      Stretch         =   -1  'True
      ToolTipText     =   "Importa datos de un archivo TXT"
      Top             =   3360
      Width           =   615
   End
   Begin VB.Label Label36 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Borrar los Empleados"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   3840
      TabIndex        =   67
      Top             =   3840
      Width           =   1095
   End
   Begin VB.Image Image6 
      Height          =   495
      Left            =   4080
      Picture         =   "Em.frx":A3ED
      Stretch         =   -1  'True
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label42 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   10200
      TabIndex        =   66
      Top             =   3960
      Width           =   975
   End
   Begin VB.Label Label21 
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Actualmente dados de baja con fecha"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   615
      Index           =   1
      Left            =   10200
      TabIndex        =   65
      Top             =   3360
      Width           =   1335
   End
   Begin VB.Shape Shape6 
      Height          =   855
      Left            =   240
      Top             =   4800
      Width           =   12015
   End
   Begin VB.Label Label43 
      BackStyle       =   0  'Transparent
      Caption         =   "(#######.##)"
      Height          =   255
      Left            =   1320
      TabIndex        =   63
      Top             =   1920
      Width           =   1095
   End
   Begin VB.Label Label26 
      BackStyle       =   0  'Transparent
      Caption         =   "Cheque Numero"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Index           =   2
      Left            =   8640
      TabIndex        =   62
      Top             =   2760
      Width           =   1455
   End
   Begin VB.Label Label41 
      BackStyle       =   0  'Transparent
      Caption         =   "Click para seleccionar al empleado de la grilla y modificar sus datos"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   60
      Top             =   4320
      Width           =   3495
   End
   Begin VB.Label Label40 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Generar declaracion jurada"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   5160
      TabIndex        =   59
      Top             =   3840
      Width           =   1095
   End
   Begin VB.Label Label39 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Generar Boleta"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   0
      Left            =   6120
      TabIndex        =   58
      Top             =   3840
      Width           =   1095
   End
   Begin VB.Label Label38 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Recalcular"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   2760
      TabIndex        =   57
      Top             =   3960
      Width           =   975
   End
   Begin VB.Label Label37 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Borrar empleado"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      TabIndex        =   56
      Top             =   3840
      Width           =   855
   End
   Begin VB.Label Label36 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Grabar o Modificar"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   360
      TabIndex        =   55
      Top             =   3840
      Width           =   1455
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FF0000&
      Height          =   3735
      Left            =   240
      Top             =   1080
      Width           =   7815
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H00FF0000&
      Height          =   735
      Left            =   240
      Top             =   240
      Width           =   7815
   End
   Begin VB.Label Label35 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "DD-MM-AAAA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   2520
      TabIndex        =   54
      Top             =   3000
      Width           =   1575
   End
   Begin VB.Label Label35 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "DD-MM-AAAA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   5880
      TabIndex        =   53
      Top             =   3000
      Width           =   1575
   End
   Begin VB.Label Label34 
      BackStyle       =   0  'Transparent
      Caption         =   "FECHA DE BAJA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4320
      TabIndex        =   52
      Top             =   2640
      Width           =   1455
   End
   Begin VB.Image Image5 
      Height          =   495
      Left            =   5400
      Picture         =   "Em.frx":B897
      Stretch         =   -1  'True
      ToolTipText     =   "Listado de empleados"
      Top             =   3360
      Width           =   615
   End
   Begin VB.Label Label33 
      BackStyle       =   0  'Transparent
      Caption         =   "FECHA DE ALTA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   51
      Top             =   2640
      Width           =   1695
   End
   Begin VB.Label Label28 
      BackStyle       =   0  'Transparent
      Caption         =   "Fech. de Venc"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   10200
      TabIndex        =   46
      Top             =   2760
      Width           =   1575
   End
   Begin VB.Label Label27 
      BackStyle       =   0  'Transparent
      Caption         =   "Fecha de Pago"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   10200
      TabIndex        =   45
      Top             =   2160
      Visible         =   0   'False
      Width           =   1575
   End
   Begin VB.Label Label26 
      BackStyle       =   0  'Transparent
      Caption         =   "Intereses"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Index           =   0
      Left            =   8640
      TabIndex        =   44
      Top             =   3360
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label Label25 
      BackStyle       =   0  'Transparent
      Caption         =   "Periodo"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   8640
      TabIndex        =   43
      Top             =   3960
      Width           =   1695
   End
   Begin VB.Label Label16 
      BackStyle       =   0  'Transparent
      Caption         =   "APORTE 2.5%"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4320
      TabIndex        =   34
      Top             =   2280
      Width           =   1455
   End
   Begin VB.Label Label15 
      BackStyle       =   0  'Transparent
      Caption         =   "O. CONCEPTOS"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4320
      TabIndex        =   33
      Top             =   1920
      Width           =   2055
   End
   Begin VB.Image Image4 
      Height          =   495
      Left            =   3000
      Picture         =   "Em.frx":D5D5
      Stretch         =   -1  'True
      ToolTipText     =   "Generar montos"
      Top             =   3360
      Width           =   615
   End
   Begin VB.Image Image3 
      Height          =   495
      Left            =   6360
      Picture         =   "Em.frx":F509
      Stretch         =   -1  'True
      ToolTipText     =   "Emision de Boleta"
      Top             =   3360
      Width           =   555
   End
   Begin VB.Image Image2 
      Height          =   495
      Left            =   1920
      Picture         =   "Em.frx":120E5
      Stretch         =   -1  'True
      ToolTipText     =   "Borrar el empleado"
      Top             =   3360
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   495
      Left            =   720
      Picture         =   "Em.frx":14454
      Stretch         =   -1  'True
      ToolTipText     =   "Agregar"
      Top             =   3360
      Width           =   735
   End
   Begin VB.Label Label8 
      BackColor       =   &H00FFFFC0&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4320
      TabIndex        =   24
      Top             =   480
      Width           =   3015
   End
   Begin VB.Label Label7 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00FFFFC0&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2520
      TabIndex        =   23
      Top             =   480
      Width           =   1695
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "APORTE 2 %"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   22
      Top             =   2280
      Width           =   1335
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "SUELDO"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   21
      Top             =   1920
      Width           =   1095
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "CATEGORIA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4320
      TabIndex        =   20
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "APELLIDO Y NOMBRE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   19
      Top             =   1560
      Width           =   2175
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "EMPRESA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   18
      Top             =   600
      Width           =   1215
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "CUIL"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   17
      Top             =   1200
      Width           =   615
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H0080FF80&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   240
      Top             =   4320
      Width           =   4215
   End
End
Attribute VB_Name = "Em"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sIP As String
Dim sUsuarioFTP As String
Dim sPassFTP As String
Dim sHost As String





Private Sub Check1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Check2_Click()
Text5 = "0"
Text7 = "0"

End Sub

Private Sub Command1_Click()
On Error GoTo verlo
Call limpiar
With Data1.Recordset
    Text1 = !cuil
    Text2 = !apellidoynombre
    Text3 = !categoria
    Text4 = Str(!sueldo)
    Text6 = Str(!acuerdos)
    Text5 = Str(!aporte2)
    Text7 = Str(!aporte25)
    Text12.Text = !fechaalta
    Text13.Text = !fechabaja
    If !afiliado = 1 Then
        Check1.Value = 1
        Else
        Check1.Value = 0
    End If
End With
Exit Sub
verlo:
If Err.Number = 94 Then
    Resume Next
End If

End Sub

Private Sub Check1_Click()
a = Val(Text4) + Val(Text6)
B = a * 2 / 100
If Check1.Value Then
    c = a * 2.5 / 100
End If

Text5 = Str(Round(B, 2))
Text7 = Str(Round(c, 2))

End Sub

Private Sub Command2_Click()
Text4 = "0"
End Sub

Private Sub DBGrid1_DblClick()
Call Command1_Click
End Sub

Private Sub Form_Activate()
Data1.RecordSource = "select * from empleados where cuit='" & Label7.Caption & "' order by apellidoynombre asc"
Data1.Refresh
Call Image4_Click
End Sub

Private Sub Form_Load()
    Label7.Caption = EP.Text1
    Label8.Caption = EP.Text2
    Image3.Enabled = False
    Text9.Text = "0"
    
    If Month(Date) = 1 Then
    Text8.Text = Format(12, "00") + "-" + Trim(Str(Year(Date) - 1))
    Else
    Text8.Text = Format(Month(Date) - 1, "00") + "-" + Trim(Str(Year(Date)))
    End If
    
    Text10.Text = Date
    Text11.Text = "15-" + Format(Month(Date), "00") + "-" + Format(Year(Date), "0000")
    Text4 = "0"
    Text5 = "0"
    Text6 = "0"
    Text7 = "0"
    Data1.DatabaseName = camino + "\boleta.mdb"
    'Data2.DatabaseName = camino + "\presentadas.mdb"
   Em.Width = 12465
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
EP.Text1 = ""
EP.Text2 = ""
EP.Text3 = ""
EP.Text4 = ""
EP.Text5 = ""
EP.Text6 = ""
End Sub

Private Sub Image1_Click()
If Len(Trim(Text1)) = 0 Or Len(Trim(Text2)) = 0 Or Len(Trim(Text3)) = 0 Then
    Call mensaje1
    Exit Sub
End If

If Not IsNumeric(Text4) Then
    MsgBox "Debe ingresar un numero en SUELDO", vbCritical, "Error"
    Exit Sub
End If
If Not IsNumeric(Text6) Then
    MsgBox "Debe ingresar un numero en ACUERDOS", vbCritical, "Error"
    Exit Sub
End If
If Not IsNumeric(Text5) Then
    MsgBox "Debe ingresar un numero en APORTE 2%", vbCritical, "Error"
    Exit Sub
End If
If Not IsNumeric(Text7) Then
    MsgBox "Debe ingresar un numero en APORTE 2.5%", vbCritical, "Error"
    Exit Sub
End If
If Not IsDate(Text12) Then
    MsgBox "Debe ingresar la fecha de alta", vbCritical, "Error"
    Exit Sub
    
End If
If Len(Trim(Text13.Text)) <> 0 Then
If Not IsDate(Text13) Then
    MsgBox "Debe ingresar bien la fecha de baja", vbCritical, "Error"
    Exit Sub
    
End If
End If

With Data1.Recordset
    If .RecordCount > 0 Then
        .FindFirst "cuil='" & Trim(Text1) & "'"
        If .NoMatch Then
            .AddNew
            !cuil = Text1
            !cuit = Label7.Caption
            !empresa = Label8.Caption
            !apellidoynombre = Text2
            !categoria = Text3
            !sueldo = Val(Text4)
            !aporte2 = Val(Text5)
            !aporte25 = Val(Text7)
            !acuerdos = Val(Text6)
            !fechaalta = Text12.Text
            !total = !aporte2 + !aporte25
            'If Len(Trim(Text13)) > 0 Then
            !fechabaja = Text13.Text
           ' Else
            '!fechabaja = ""
            'End If
            If Check1.Value Then
                !afiliado = 1
            Else
                !afiliado = 0
            End If
            .Update
        Else
            .Edit
                !cuil = Text1
                !cuit = Label7.Caption
                !empresa = Label8.Caption
                !apellidoynombre = Text2
                !categoria = Text3
                !sueldo = Val(Text4)
            !aporte2 = Val(Text5)
            !aporte25 = Val(Text7)
                        !acuerdos = Val(Text6)
            !fechaalta = Text12.Text
                        !total = !aporte2 + !aporte25
            'If Len(Trim(Text13)) > 0 Then
            !fechabaja = Text13.Text
            'Else
            '!fechabaja = ""
            
           ' End If

            If Check1.Value Then
                !afiliado = 1
            Else
                !afiliado = 0
            End If

            .Update
        End If
    Else
        .AddNew
            !cuil = Text1
            !cuit = Label7.Caption
            !empresa = Label8.Caption
            !apellidoynombre = Text2
            !categoria = Text3
            !sueldo = Val(Text4)
            !aporte2 = Val(Text5)
            !aporte25 = Val(Text7)
            !acuerdos = Val(Text6)
            !fechaalta = Text12.Text
            !total = !aporte2 + !aporte25
            'If Len(Trim(Text13)) > 0 Then
            !fechabaja = Text13.Text
            'Else
            '!fechabaja = ""
            
            'End If

            If Check1.Value Then
                !afiliado = 1
            Else
                !afiliado = 0
            End If

        .Update
    End If
    
End With
Call Image4_Click
Call limpiar
End Sub

Private Sub Image2_Click()
estaseguro = MsgBox("Esta seguro de Borrar al empleado?", vbOKCancel, "Aviso")
    If estaseguro = 1 Then
        With Data1.Recordset
            If .RecordCount > 0 Then
            .FindFirst "cuil='" & Text1 & "'"
                If Not .NoMatch Then
                    .Delete
                End If
            End If
        End With
    Call Image4_Click
    Data1.Refresh
    End If
End Sub

Private Sub Image3_Click()
Dim mes_hoy As Integer
Dim ano_hoy As Integer
Dim mes_tecleado As Integer
Dim ano_tecleado As Integer
Dim valor_introducido As String

Dim mes_1 As Integer


valor_introducido = Trim(Text8.Text)

If Mid(valor_introducido, 3, 1) <> "-" And Mid(valor_introducido, 3, 1) <> "/" Then
    MsgBox "Mal introducido el parametro de division, es - o /"
     Exit Sub
End If
If Len(Trim(valor_introducido)) <> 7 Then
    MsgBox "Se debe introducir periodo de la forma 00-0000 Ejem. 02-2017"
     Exit Sub
End If
If Not IsNumeric(Mid(valor_introducido, 1, 2)) Then
    MsgBox "Mes mal introducido, debe ser de la forma 00 Ejem. 03 para maezo"
     Exit Sub
End If
If Not IsNumeric(Mid(valor_introducido, 4, 4)) Then
    MsgBox "Año mal introducido, debe ser de la forma 0000 Ejem. 2017"
     Exit Sub
End If

mes_tecleado = Mid(valor_introducido, 1, 2)

mes_hoy = Month(Date)
ano_hoy = Year(Date)

mes_1 = Val(mes_tecleado)

'If mes_hoy = 1 Then
'    If mes_1 <> 12 Then
'        MsgBox "No se pueder realizar la boleta de pago" + Chr(13) + "Comuniquese con el sector de fiscalizacion del Sindicato"
'         Exit Sub
'    End If
'End If

'If mes_1 <> mes_hoy - 1 Then
 '   If mes_1 <> 12 Then
  '      MsgBox "No se pueder realizar la boleta de pago" + Chr(13) + "Comuniquese con el sector de fiscalizacion del Sindicato"
   '      Exit Sub
   ' End If
'End If

'aevaluar = Trim(Text8)
'mes1 = Mid(aevaluar, 1, 2)
'ano1 = Mid(aevaluar, 4, 4)
'separador1 = Mid(aevaluar, 3, 1)

'If separador1 <> "-" Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If

'If Len(ano1) < 4 Or Len(ano1) > 4 Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If

'If Not IsNumeric(ano1) Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If

'If Len(mes1) < 2 Or Len(mes1) > 2 Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If

'If Not IsNumeric(mes1) Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If






bancocheque = Trim(Text14)
numerocheque = Trim(Text15)
With Data1.Recordset
    If .RecordCount = 0 Then
        MsgBox "No puede imprimir la boleta sin empleados ingresados"
        Exit Sub
    End If

End With


If Not IsNumeric(Text9.Text) Then
    MsgBox "Ingrese bien los INTERESES", vbCritical, "Error"
    Exit Sub
End If
dedo = Trim(Text8.Text)
dedo = Trim(Text8.Text)
If Mid(dedo, 3, 1) <> "-" Then
    If Mid(dedo, 3, 1) <> "/" Then
        MsgBox "Mal ingresado el PERIODO mm-aaaa", vbCritical, "Error"
        Exit Sub
    End If
End If

dedo = Trim(Text8)
    If Val(Mid(dedo, 1, 2)) > 12 Or Val(Mid(dedo, 1, 2)) < 1 Then
         MsgBox "Mal ingresado el PERIODO mm-aaaa", vbCritical, "Error"
         Exit Sub
    End If
If Not IsDate(Text11.Text) Then
    MsgBox "Mal ingresada la fecha de Vencimiento dd-mm-aaaa", vbCritical, "Error"
    Exit Sub
End If
If Not IsDate(Text10.Text) Then
    MsgBox "Mal ingresada la fecha de Pago dd-mm-aaaa", vbCritical, "Error"
    Exit Sub
End If



' Calculo del total
totales = Val(Label14.Caption) + Val(Label18.Caption) + Val(Text9.Text)

'Empresa
elcuit1 = Mid(Trim(Label7.Caption), 1, 2)
elcuit3 = Mid(Trim(Label7.Caption), Len(Trim(Label7.Caption)), 1)
elcuit2 = Mid(Trim(Label7.Caption), 3, Len(Trim(Label7.Caption)) - 3)
'+ "-" + Mid(Trim(Label7.Caption), 3, Len(Trim(Label7.Caption) - 1)) + "-" + Mid(Label7.Caption, Len(Trim(Label7.Caption)), 1)
elcuit = elcuit1 + "-" + elcuit2 + "-" + elcuit3
'MsgBox elcuit
'ActiveReport1.Label3.Caption = elcuit
ActiveReport1.Label75.Caption = elcuit
ActiveReport1.Label87.Caption = elcuit

'Cuit
'ActiveReport1.Label5.Caption = Label8.Caption
ActiveReport1.Label74.Caption = Label8.Caption
ActiveReport1.Label86.Caption = Label8.Caption

'Periodo
'ActiveReport1.Label7.Caption = Text8
ActiveReport1.Label76.Caption = Text8
ActiveReport1.Label88.Caption = Text8

'Fecha de Pago
'ActiveReport1.Label9.Caption = Text10
'ActiveReport1.Label78.Caption = Text10
'ActiveReport1.Label90.Caption = Text10

'Fecha de Vencimiento
'ActiveReport1.Label11.Caption = Text11
ActiveReport1.Label77.Caption = Text11
ActiveReport1.Label89.Caption = Text11

'Aportes 2%
'ActiveReport1.Label16.Caption = Label14.Caption
ActiveReport1.Label81.Caption = Label14.Caption
ActiveReport1.Label93.Caption = Label14.Caption

'Acuerdos
'ActiveReport1.Label25.Caption = Label20.Caption
ActiveReport1.Label83.Caption = Label20.Caption
ActiveReport1.Label95.Caption = Label20.Caption

'Aportes 2.5%
'ActiveReport1.Label17.Caption = Label18.Caption
ActiveReport1.Label82.Caption = Label18.Caption
ActiveReport1.Label94.Caption = Label18.Caption

'Intereses
'ActiveReport1.Label18.Caption = Text9
'ActiveReport1.Label84.Caption = Text9
'ActiveReport1.Label96.Caption = Text9

'Totales
'ActiveReport1.Label19.Caption = Label32.Caption
ActiveReport1.Label85.Caption = Label32.Caption
ActiveReport1.Label97.Caption = Label32.Caption

'Afiliados
'´ActiveReport1.Label101.Caption = Label23.Caption
'´ActiveReport1.Label80.Caption = Label23.Caption
' ActiveReport1.Label92.Caption = Label23.Caption

'No Afiliados
'ActiveReport1.Label102.Caption = Label24.Caption
'ActiveReport1.Label79.Caption = Label24.Caption
'ActiveReport1.Label91.Caption = Label24.Caption

'Empleados
'ActiveReport1.Label103.Caption = Label10.Caption
'Numerosdel barcode
'ActiveReport1.Label1.Caption = lacadena

'sueldos

'ActiveReport1.Label107.Caption = Label13.Caption
ActiveReport1.Label109.Caption = Label13.Caption
ActiveReport1.Label111.Caption = Label13.Caption


'ActiveReport1.Label113.Caption = numero1
'ActiveReport1.Label115.Caption = domicilio1
ActiveReport1.Label156.Caption = numero1
ActiveReport1.Label157.Caption = domicilio1
ActiveReport1.Label158.Caption = numero1
ActiveReport1.Label159.Caption = domicilio1
'ActiveReport1.Label189.Caption = ciudad1
ActiveReport1.Label191.Caption = ciudad1
ActiveReport1.Label193.Caption = ciudad1

ActiveReport1.Label209.Caption = NumLetra1.Caption
ActiveReport1.Label212.Caption = NumLetra1.Caption


'ActiveReport1.Barcode1.Caption = lacadena
'ActiveReport1.Barcode2.Caption = lacadena
'ActiveReport1.Barcode3.Caption = lacadena

'ActiveReport1.Barcode4.Caption = numero1
'ActiveReport1.Label154.Caption = Trim(numero1)

'ActiveReport1.Label194.Caption = lacadena
'ActiveReport1.Label195.Caption = lacadena
'ActiveReport1.Label196.Caption = lacadena

'Cheque y Banco
'ActiveReport1.Label199.Caption = bancocheque
'ActiveReport1.Label200.Caption = numerocheque
ActiveReport1.Label203.Caption = bancocheque
ActiveReport1.Label204.Caption = numerocheque
ActiveReport1.Label207.Caption = bancocheque
ActiveReport1.Label208.Caption = numerocheque
ActiveReport1.StrokeScribe1.Text = Trim(lacadena)
ActiveReport1.StrokeScribe2.Text = Trim(lacadena)


ActiveReport1.Show
'ActiveReport2.PrintReport False
Image3.Enabled = False
End Sub

Private Sub Image4_Click()
Dim q, w, x, y, f, g, totales As Double
Dim bajados As Double
With Data1.Recordset
   If .RecordCount > 0 Then
        Label10.Caption = Str(.RecordCount)
        .MoveFirst
        q = 0
        w = 0
        x = 0
        y = 0
        f = 0
        g = 0
            While Not .EOF
                q = q + !sueldo
                w = w + !aporte2
                x = x + !aporte25
                y = y + !acuerdos
               
               If Len(Trim(!fechabaja)) <> 0 Then
                    bajados = bajados + 1
                
                End If
                
                If !afiliado = 1 Then
                    If Len(Trim(!fechabaja)) = 0 Then
                        f = f + 1
                       
                    End If
                End If
                
                If !afiliado <> 1 Then
                    If Len(Trim(!fechabaja)) = 0 Then
                        g = g + 1
                    End If
                End If
                
                .MoveNext
            Wend
        Label13.Caption = Format((Round(q, 2)), "###0.00")
        Label14.Caption = Format((Round(w, 2)), "###0.00")
        Label18.Caption = Format((Round(x, 2)), "###0.00")
        Label20.Caption = Format((Round(y, 2)), "###0.00")
        Label23.Caption = Format((Round(f, 2)), "###0")
        Label24.Caption = Format((Round(g, 2)), "###0")
        Label42.Caption = Format((Round(bajados, 2)), "###0")

      Else
      Exit Sub
    End If
End With
'lacadena = "32762791084233" & Trim(elcuit) & Trim(elperiodo) & Trim(cadenadepago)
totales = w + x + y
'+ Val(Text9.Text)
Label32.Caption = Format((Round(totales, 3)), "####0.00")

NumLetra1.Convertir Trim(Label32.Caption)

cadena = "55062791084233"
If Len(Trim(Label32.Caption)) > 0 Then
For i = 1 To Len(Trim(Label32.Caption))
If Mid(Label32.Caption, i, 1) = "." Or Mid(Label32.Caption, i, 1) = "," Then
    t = i
End If
Next i

periodo = Mid(Text8, 1, 2) + Mid(Text8, 4, 4)
montonuevo = Format(Mid(Label32.Caption, 1, t - 1) + Mid(Label32.Caption, t + 1), "000000000")
'MsgBox montonuevo
End If
'BarCodeWiz1.Barcode = cadena & Trim(Label7.Caption) & Trim(periodo) & Trim(montonuevo)
lacadena = "55062791084233" & Trim(Label7.Caption) & Trim(periodo) & Trim(montonuevo)

m2 = Format((Round(q, 2)), "#####0.00")
'Str(Label13.Caption)
juntar = ""
For i = 1 To Len(m2)
    If Mid(m2, i, 1) <> "." And Mid(m2, i, 1) <> "," Then
        juntar = juntar + Mid(m2, i, 1)
    End If
Next i
largo = Len(juntar)
m2 = Trim(String(11 - largo, "0")) & Trim(juntar)

m3 = Format((Round(y, 2)), "######0.00")
'Trim (Str(Label20.Caption))
juntar = ""
For i = 1 To Len(m3)
    If Mid(m3, i, 1) <> "." And Mid(m3, i, 1) <> "," Then
        juntar = juntar + Mid(m3, i, 1)
    End If
Next i
largo = Len(juntar)
m3 = Trim(String(8 - largo, "0")) & Trim(juntar)

m4 = Format((Round(w, 2)), "######0.00")
'Trim (Str(Label14.Caption))
juntar = ""
For i = 1 To Len(m4)
    If Mid(m4, i, 1) <> "." And Mid(m4, i, 1) <> "," Then
        juntar = juntar + Mid(m4, i, 1)
    End If
Next i
largo = Len(juntar)
m4 = Trim(String(8 - largo, "0")) & Trim(juntar)

'm5 = Format((Round(x, 2)), "00000.00")
'MsgBox m5
m5 = Format((Round(x, 2)), "######0.00")
'Trim (Str(Label18.Caption))
juntar = ""
For i = 1 To Len(m5)
    If Mid(m5, i, 1) <> "." And Mid(m5, i, 1) <> "," Then
        juntar = juntar + Mid(m5, i, 1)
    End If
Next i
largo = Len(juntar)
m5 = Trim(String(8 - largo, "0")) & Trim(juntar)

v1 = Trim(Label10.Caption)
v2 = Trim(Label23.Caption)
v3 = Trim(Label24.Caption)
v1 = Trim(String(4 - Len(v1), "0")) & Trim(v1)
v2 = Trim(String(4 - Len(v2), "0")) & Trim(v2)
v3 = Trim(String(4 - Len(v3), "0")) & Trim(v3)
vt = v1 & v2 & v3



'lacadena2 = Trim(Label7.Caption) & "*" & Trim(periodo) & "*" & Trim(m2) & "*" & Trim(Str(Label20.Caption)) & "*" & Trim(Str(Label14.Caption)) & "*" & Trim(Str(Label18.Caption))
lacadena2 = Trim(Label7.Caption) & Trim(periodo) & Trim(m2) & Trim(m3) & Trim(m4) & Trim(m5)
'BarCodeWiz1.Barcode = lacadena

'StrokeScribe1.Text = Trim(lacadena)
End Sub

Private Sub Option1_Click()
a = Val(Text4) + Val(Text6)
B = a * 2 / 100
If Option1.Value = True Then
    c = a * 2.5 / 100
End If

Text5 = Str(Round(B, 2))
Text7 = Str(Round(c, 2))

End Sub

Private Sub Image5_Click()

Dim mes_hoy As Integer
Dim ano_hoy As Integer
Dim mes_tecleado As Integer
Dim ano_tecleado As Integer
Dim valor_introducido As String

Dim mes_1 As Integer


valor_introducido = Trim(Text8.Text)

If Mid(valor_introducido, 3, 1) <> "-" And Mid(valor_introducido, 3, 1) <> "/" Then
    MsgBox "Mal introducido el parametro de division, es - o /"
    Exit Sub
End If
If Len(Trim(valor_introducido)) <> 7 Then
    MsgBox "Se debe introducir periodo de la forma 00-0000 Ejem. 02-2017"
     Exit Sub
End If
If Not IsNumeric(Mid(valor_introducido, 1, 2)) Then
    MsgBox "Mes mal introducido, debe ser de la forma 00 Ejem. 03 para maezo"
     Exit Sub
End If
If Not IsNumeric(Mid(valor_introducido, 4, 4)) Then
    MsgBox "Año mal introducido, debe ser de la forma 0000 Ejem. 2017"
     Exit Sub
End If

mes_tecleado = Mid(valor_introducido, 1, 2)

mes_hoy = Month(Date)
ano_hoy = Year(Date)

mes_1 = Val(mes_tecleado)

'If mes_hoy = 1 Then
'    If mes_1 <> 12 Or mes_1 <> 11 Or mes_1 <> 10 Or mes_1 <> 9 Then
'        MsgBox "No se pueder realizar la boleta de pago" + Chr(13) + "Comuniquese con el sector de fiscalizacion del Sindicato"
'         Exit Sub
'    End If
'End If

'If mes_1 <> mes_hoy - 1 And mes_1 <> mes_hoy - 2 And mes_1 <> mes_hoy - 3 And mes_1 <> mes_hoy - 4 Then
'    If mes_1 <> 12 Then
 '       MsgBox "No se pueder realizar la boleta de pago" + Chr(13) + "Comuniquese con el sector de fiscalizacion del Sindicato"
'         Exit Sub
'    End If
'End If




'aevaluar = Trim(Text8)
'mes1 = Mid(aevaluar, 1, 2)
'ano1 = Mid(aevaluar, 4, 4)
'separador1 = Mid(aevaluar, 3, 1)

'If separador1 <> "-" Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If

'If Len(ano1) < 4 Or Len(ano1) > 4 Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If

'If Not IsNumeric(ano1) Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If

'If Len(mes1) < 2 Or Len(mes1) > 2 Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If

'If Not IsNumeric(mes1) Then
'    MsgBox "El periodo debe ser de la forma mm-aaaa Ejem. 06-2014", vbCritical, "Aviso"
'    Exit Sub
'End If


'With Data1.Recordset
'    If .RecordCount = 0 Then
'        MsgBox "No puede imprimir la boleta sin empleados ingresados"
'        Exit Sub
'    End If

'End With



If Not IsNumeric(Text9.Text) Then
    MsgBox "Ingrese bien los INTERESES", vbCritical, "Error"
    Exit Sub
End If
dedo = Trim(Text8.Text)
If Mid(dedo, 3, 1) <> "-" Then
    If Mid(dedo, 3, 1) <> "/" Then
        MsgBox "Mal ingresado el PERIODO mm-aaaa", vbCritical, "Error"
        Exit Sub
    End If
End If

dedo = Trim(Text8)
    If Val(Mid(dedo, 1, 2)) > 12 Or Val(Mid(dedo, 1, 2)) < 1 Then
         MsgBox "Mal ingresado el PERIODO mm-aaaa", vbCritical, "Error"
         Exit Sub
    End If
    

If Not IsDate(Text11.Text) Then
    MsgBox "Mal ingresada la fecha de Vencimiento dd-mm-aaaa", vbCritical, "Error"
    Exit Sub
End If
If Not IsDate(Text10.Text) Then
    MsgBox "Mal ingresada la fecha de Pago dd-mm-aaaa", vbCritical, "Error"
    Exit Sub
End If
f = Trim(Mid(Date, 1, 2)) + Trim(Mid(Date, 4, 2)) + Trim(Mid(Date, 7)) + Trim(Mid(Time, 1, 2)) + Trim(Mid(Time, 4, 2))
'archivos = Trim(Label7.Caption) + f + ".txt"
'Preparo para mandar por ftp
'Open "c:\BOLETACEC\" + archivos For Output As #1
'With Data1.Recordset
'    .MoveFirst
'    Print #1, Label7.Caption + " " + Label8.Caption
'    Print #1, "========================================================================================="
'    Print #1, "Cuil | Ap Nom | Sueldo | Acuerdos | Aporte 2% | Aporte 2.5% | Afiliado | Fecha de Alta"
'    Print #1, "========================================================================================="
'    While Not .EOF
'    Print #1, Trim(!cuil); ";"; Trim(!apellidoynombre); ";"; Trim(Str(!sueldo)); ";"; Trim(Str(!acuerdos)); ";"; Trim(Str(!aporte2)); ";"; Trim(Str(!aporte25)); ";"; Trim(Str(!afiliado)); ";"; Trim(!fechaalta)
'    .MoveNext
'    Wend
'    Print #1, "========================================================================================="
'    Print #1, "Total Sueldos : " + Str(Label13.Caption)
'    Print #1, "Total Acuerdos: " + Str(Label20.Caption)
'    Print #1, "Total 2%      : " + Str(Label14.Caption)
'    Print #1, "Total 2.5%    : " + Str(Label18.Caption)
'    Print #1, "Total         : " + Str(Label32.Caption)
'    Print #1, "========================================================================================="
'    Print #1, "Periodo " + Text8.Text
    
'End With
'Close #1
Data1.Recordset.MoveFirst
'a = SubirFTP(camino + "\" + Trim(Label7.Caption) + ".txt", "/public_html/sigebo/" + Trim(Label7.Caption) + ".txt")
'archivos = Trim(Label7.Caption) + f + ".txt"
'a = UploadFile("ftp.cecgroca.com.ar", "cecroca", "061090", camino + "\" + archivos, "/public_html/dj/" + archivos)


ActiveReport2.Label231.Caption = Trim(Label7.Caption) + f




ActiveReport2.Label3.Caption = Label8.Caption
ActiveReport2.Label5.Caption = Text8


elcuit = Trim(Label7.Caption)



ActiveReport2.Label7.Caption = elcuit
ActiveReport2.Label24 = domicilio1
ActiveReport2.Label25 = ciudad1
ActiveReport2.Label227 = telefono1
ActiveReport2.Barcode4.Caption = vt
'
'
ActiveReport2.Label113.Caption = numero1
ActiveReport2.Label107.Caption = Label13.Caption
ActiveReport2.Label207.Caption = Text11
ActiveReport2.Label199.Caption = Text14
ActiveReport2.Label200.Caption = Text15
ActiveReport2.Label211.Caption = Label14.Caption
ActiveReport2.Label212.Caption = Label18.Caption
ActiveReport2.Label215.Caption = Label20.Caption
ActiveReport2.Label213.Caption = Label32.Caption
ActiveReport2.Label217.Caption = Label10.Caption
ActiveReport2.Label219.Caption = Label23.Caption
ActiveReport2.Label221.Caption = Label24.Caption
ActiveReport2.Label229.Caption = Label42.Caption
ActiveReport2.Label227.Caption = EP.Text3

ActiveReport2.Label225.Caption = NumLetra1.Caption
ActiveReport2.StrokeScribe1.Text = Trim(lacadena)
ActiveReport2.StrokeScribe2.Text = Trim(lacadena2)
ActiveReport2.Show

Image3.Enabled = True

End Sub

Private Sub Image6_Click()
estaok = MsgBox("Esta seguro de Borrar todos los empleados?", vbOKCancel, "Aviso")
If estaok = 1 Then
    Data1.Database.Execute "delete * from empleados where cuit='" & Trim(Label7.Caption) & "'"
    Data1.Refresh
End If
End Sub

Private Sub Image7_Click()
Importar.Show 1
End Sub

Private Sub Image8_Click()
With Data1.Recordset
    If .RecordCount > 0 Then
    .MoveFirst
        While Not .EOF
                .Edit
                    !acuerdos = 0
                .Update
            .MoveNext
        Wend
    End If
End With
Call Image4_Click

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text10_Change()
Text11.Text = Text10
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text4_Change()
yyy = Len(Trim(Text4))
If yyy = 0 Then
Exit Sub
End If
If Mid(Trim(Text4), yyy, 1) = "," Then
    Text4 = Mid(Trim(Text4), 1, yyy - 1) + "."
End If

t1 = Val(Text4.Text)
t2 = Val(Text6.Text)

a = t1
'+ t2
B = a * 2 / 100
If Check1.Value Then
    c = a * 2.5 / 100
End If

Text5 = Str(Round(B, 2))
Text7 = Str(Round(c, 2))
End Sub

Public Sub mensaje1()
    MsgBox "Ingrese datos", vbCritical, "Error"
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text6_Change()
t1 = Val(Text4.Text)
t2 = Val(Text6.Text)

a = t1 + t2
B = a * 2 / 100
If Check1.Value Then
    c = a * 2.5 / 100
End If

Text5 = Str(Round(B, 2))
Text7 = Str(Round(c, 2))

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub

Private Sub Text9_Change()
'Label30.Caption = Text9.Text
End Sub



Public Sub limpiar()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = "0"
Text5 = "0"
Text6 = "0"
Text7 = "0"
Text12 = ""
Text13 = ""
End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{TAB}"
End If

End Sub







Function UploadFile(ByVal HostName As String, _
    ByVal UserName As String, _
    ByVal Password As String, _
    ByVal LocalFileName As String, _
    ByVal RemoteFileName As String) As Boolean

   On Error GoTo havelo
   
    With Inet1
        .URL = "ftp://ftp.cecgroca.com.ar"
        .Protocol = icFTP
        .RemoteHost = HostName
        .UserName = UserName
        .Password = Password
        .Execute .URL, "put " + LocalFileName + " " + RemoteFileName
        Do While .StillExecuting
            DoEvents
        Loop
        Dim texto As String
        UploadFile = (.ResponseCode = 0)
        .Execute , "quit"                   'Logoff
    End With
    Set FTP = Nothing
            'Unload en_proceso
linea:
    Exit Function
havelo:
    Resume linea
End Function
