VERSION 5.00
Object = "{0F987290-56EE-11D0-9C43-00A0C90F29FC}#1.0#0"; "ActBar.ocx"
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "ss32x25.ocx"
Object = "{CDF3B183-D408-11CE-AE2C-0080C786E37D}#2.1#0"; "Edt32x20.ocx"
Begin VB.Form FCO2005 
   Caption         =   "Fantasmas"
   ClientHeight    =   8430
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11850
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "FCO2005 Aportantes por Fuera de Nomina.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   8430
   ScaleWidth      =   11850
   Begin VB.Frame fraFrame 
      Caption         =   "Otros datos"
      Height          =   1095
      Left            =   4320
      TabIndex        =   80
      Top             =   6600
      Width           =   7335
      Begin VB.CommandButton cmdActivos 
         Caption         =   "Más datos"
         Height          =   375
         Left            =   5880
         TabIndex        =   66
         Top             =   240
         Width           =   1215
      End
      Begin VB.OptionButton optPensionados 
         Caption         =   "Planilla para Pensionados"
         Height          =   210
         Left            =   3840
         TabIndex        =   65
         Top             =   720
         Width           =   2775
      End
      Begin VB.OptionButton optActivos 
         Caption         =   "Planilla de Activos"
         Height          =   210
         Left            =   3840
         TabIndex        =   64
         Top             =   360
         Value           =   -1  'True
         Width           =   1935
      End
      Begin VB.ComboBox cboMes 
         Height          =   330
         ItemData        =   "FCO2005 Aportantes por Fuera de Nomina.frx":030A
         Left            =   1440
         List            =   "FCO2005 Aportantes por Fuera de Nomina.frx":0332
         Style           =   2  'Dropdown List
         TabIndex        =   61
         Top             =   240
         Width           =   1215
      End
      Begin VB.TextBox txtAnio 
         Height          =   315
         Left            =   3000
         MaxLength       =   4
         TabIndex        =   63
         Top             =   240
         Width           =   615
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Generar hasta: "
         Height          =   210
         Index           =   1
         Left            =   240
         TabIndex        =   60
         Top             =   240
         Width           =   1140
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "de"
         Height          =   210
         Index           =   2
         Left            =   2760
         TabIndex        =   62
         Top             =   240
         Width           =   180
      End
   End
   Begin VB.Frame fraFantasmas 
      Height          =   7695
      Left            =   120
      TabIndex        =   76
      Top             =   120
      Width           =   4095
      Begin VB.TextBox txtFiltroNom 
         Height          =   315
         Left            =   1080
         MaxLength       =   10
         TabIndex        =   78
         Top             =   240
         Width           =   2895
      End
      Begin VB.TextBox txtFiltroTra 
         Height          =   315
         Left            =   120
         MaxLength       =   10
         TabIndex        =   77
         Top             =   240
         Width           =   975
      End
      Begin FPSpread.vaSpread sprDatos 
         Bindings        =   "FCO2005 Aportantes por Fuera de Nomina.frx":039B
         Height          =   6945
         Left            =   120
         TabIndex        =   79
         Top             =   600
         Width           =   3855
         _Version        =   131077
         _ExtentX        =   6800
         _ExtentY        =   12250
         _StockProps     =   64
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         MaxCols         =   1
         MaxRows         =   1
         SpreadDesigner  =   "FCO2005 Aportantes por Fuera de Nomina.frx":03B1
      End
   End
   Begin VB.Frame fraParafiscales 
      Caption         =   "Parafiscales"
      Height          =   2415
      Left            =   8040
      TabIndex        =   75
      Top             =   4200
      Width           =   3615
      Begin EditLib.fpLongInteger txtPar_ICBF 
         Height          =   315
         Left            =   2040
         TabIndex        =   59
         Top             =   2040
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":050A
      End
      Begin EditLib.fpLongInteger txtPar_SENA 
         Height          =   315
         Left            =   2040
         TabIndex        =   57
         Top             =   1680
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":0526
      End
      Begin EditLib.fpLongInteger txtPar_IBC 
         Height          =   315
         Left            =   2040
         TabIndex        =   51
         Top             =   600
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":0542
      End
      Begin EditLib.fpLongInteger txtPar_CCF 
         Height          =   315
         Left            =   2040
         TabIndex        =   55
         Top             =   1320
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":055E
      End
      Begin EditLib.fpLongInteger txtCCF_Dias 
         Height          =   315
         Left            =   2040
         TabIndex        =   53
         Top             =   960
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "30"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":057A
      End
      Begin VB.ComboBox cboCCF 
         Height          =   330
         ItemData        =   "FCO2005 Aportantes por Fuera de Nomina.frx":0596
         Left            =   720
         List            =   "FCO2005 Aportantes por Fuera de Nomina.frx":0598
         Style           =   2  'Dropdown List
         TabIndex        =   49
         Top             =   240
         Width           =   2535
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Días Cotizados"
         Height          =   210
         Index           =   35
         Left            =   120
         TabIndex        =   52
         Top             =   960
         Width           =   1080
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "CCF"
         Height          =   210
         Index           =   32
         Left            =   120
         TabIndex        =   48
         Top             =   240
         Width           =   300
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Aporte CCF"
         Height          =   210
         Index           =   31
         Left            =   120
         TabIndex        =   54
         Top             =   1320
         Width           =   840
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "IBC"
         Height          =   210
         Index           =   30
         Left            =   120
         TabIndex        =   50
         Top             =   600
         Width           =   240
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Aporte SENA"
         Height          =   210
         Index           =   29
         Left            =   120
         TabIndex        =   56
         Top             =   1680
         Width           =   960
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Aporte ICBF"
         Height          =   210
         Index           =   28
         Left            =   120
         TabIndex        =   58
         Top             =   2040
         Width           =   870
      End
   End
   Begin VB.Frame fraRiesgos 
      Caption         =   "Riesgos Profesionales"
      Height          =   2175
      Left            =   8040
      TabIndex        =   74
      Top             =   2040
      Width           =   3615
      Begin EditLib.fpLongInteger txtARP_Aporte 
         Height          =   315
         Left            =   2040
         TabIndex        =   35
         Top             =   1680
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":059A
      End
      Begin EditLib.fpLongInteger txtARP_Dias 
         Height          =   315
         Left            =   2040
         TabIndex        =   31
         Top             =   960
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "30"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":05B6
      End
      Begin EditLib.fpLongInteger txtARP_IBC 
         Height          =   315
         Left            =   2040
         TabIndex        =   29
         Top             =   600
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":05D2
      End
      Begin EditLib.fpDoubleSingle txtARP_Tarifa 
         Height          =   315
         Left            =   2040
         TabIndex        =   33
         Top             =   1320
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0.00000"
         DecimalPlaces   =   5
         DecimalPoint    =   ""
         FixedPoint      =   -1  'True
         LeadZero        =   0
         MaxValue        =   "1"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ""
         UseSeparator    =   0   'False
         IncInt          =   1
         IncDec          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":05EE
      End
      Begin VB.ComboBox cboCTR 
         Height          =   330
         ItemData        =   "FCO2005 Aportantes por Fuera de Nomina.frx":060A
         Left            =   2040
         List            =   "FCO2005 Aportantes por Fuera de Nomina.frx":060C
         Style           =   2  'Dropdown List
         TabIndex        =   27
         Top             =   240
         Width           =   1215
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Centro de Trabajo"
         Height          =   210
         Index           =   27
         Left            =   120
         TabIndex        =   26
         Top             =   240
         Width           =   1290
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Días Cotizados"
         Height          =   210
         Index           =   26
         Left            =   120
         TabIndex        =   30
         Top             =   960
         Width           =   1080
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "IBC"
         Height          =   210
         Index           =   25
         Left            =   120
         TabIndex        =   28
         Top             =   600
         Width           =   240
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Cotización Obligatoria"
         Height          =   210
         Index           =   24
         Left            =   120
         TabIndex        =   34
         Top             =   1680
         Width           =   1560
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Tarifa (%)"
         Height          =   210
         Index           =   23
         Left            =   120
         TabIndex        =   32
         Top             =   1320
         Width           =   735
      End
   End
   Begin VB.Frame fraSalud 
      Caption         =   "Salud"
      Height          =   2175
      Left            =   4320
      TabIndex        =   73
      Top             =   2040
      Width           =   3735
      Begin EditLib.fpLongInteger txtEPS_UPC 
         Height          =   315
         Left            =   2160
         TabIndex        =   25
         Top             =   1680
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":060E
      End
      Begin EditLib.fpLongInteger txtEPS_Aporte 
         Height          =   315
         Left            =   2160
         TabIndex        =   23
         Top             =   1320
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":062A
      End
      Begin EditLib.fpLongInteger txtEPS_Dias 
         Height          =   315
         Left            =   2160
         TabIndex        =   21
         Top             =   960
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "30"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":0646
      End
      Begin EditLib.fpLongInteger txtEPS_IBC 
         Height          =   315
         Left            =   2160
         TabIndex        =   19
         Top             =   600
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":0662
      End
      Begin VB.ComboBox cboEPS 
         Height          =   330
         ItemData        =   "FCO2005 Aportantes por Fuera de Nomina.frx":067E
         Left            =   840
         List            =   "FCO2005 Aportantes por Fuera de Nomina.frx":0680
         Style           =   2  'Dropdown List
         TabIndex        =   17
         Top             =   240
         Width           =   2535
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "EPS"
         Height          =   210
         Index           =   22
         Left            =   120
         TabIndex        =   16
         Top             =   240
         Width           =   285
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Días Cotizados"
         Height          =   210
         Index           =   21
         Left            =   120
         TabIndex        =   20
         Top             =   960
         Width           =   1080
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "IBC"
         Height          =   210
         Index           =   20
         Left            =   120
         TabIndex        =   18
         Top             =   600
         Width           =   240
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Cotización Obligatoria"
         Height          =   210
         Index           =   19
         Left            =   120
         TabIndex        =   22
         Top             =   1320
         Width           =   1560
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "UPC Adic."
         Height          =   210
         Index           =   18
         Left            =   120
         TabIndex        =   24
         Top             =   1680
         Width           =   720
      End
   End
   Begin VB.Frame fraPension 
      Caption         =   "Pensión"
      Height          =   2415
      Left            =   4320
      TabIndex        =   72
      Top             =   4200
      Width           =   3735
      Begin EditLib.fpLongInteger txtAFP_IBC 
         Height          =   315
         Left            =   2160
         TabIndex        =   39
         Top             =   600
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":0682
      End
      Begin EditLib.fpLongInteger txtAFP_Dias 
         Height          =   315
         Left            =   2160
         TabIndex        =   41
         Top             =   960
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "30"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":069E
      End
      Begin EditLib.fpLongInteger txtAFP_Aporte 
         Height          =   315
         Left            =   2160
         TabIndex        =   43
         Top             =   1320
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":06BA
      End
      Begin EditLib.fpLongInteger txtFSP_Sol 
         Height          =   315
         Left            =   2160
         TabIndex        =   45
         Top             =   1680
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":06D6
      End
      Begin EditLib.fpLongInteger txtFSP_Sub 
         Height          =   315
         Left            =   2160
         TabIndex        =   47
         Top             =   2040
         Width           =   1215
         _Version        =   131073
         _ExtentX        =   2143
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":06F2
      End
      Begin VB.ComboBox cboAFP 
         Height          =   330
         ItemData        =   "FCO2005 Aportantes por Fuera de Nomina.frx":070E
         Left            =   960
         List            =   "FCO2005 Aportantes por Fuera de Nomina.frx":0710
         Style           =   2  'Dropdown List
         TabIndex        =   37
         Top             =   240
         Width           =   2415
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Aporte FSP Subsistencia"
         Height          =   210
         Index           =   34
         Left            =   120
         TabIndex        =   46
         Top             =   2040
         Width           =   1800
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Aporte FSP Solidaridad"
         Height          =   210
         Index           =   17
         Left            =   120
         TabIndex        =   44
         Top             =   1680
         Width           =   1665
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Cotización Obligatoria"
         Height          =   210
         Index           =   16
         Left            =   120
         TabIndex        =   42
         Top             =   1320
         Width           =   1560
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "IBC"
         Height          =   210
         Index           =   14
         Left            =   120
         TabIndex        =   38
         Top             =   600
         Width           =   240
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Días Cotizados"
         Height          =   210
         Index           =   15
         Left            =   120
         TabIndex        =   40
         Top             =   960
         Width           =   1080
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Fondo"
         Height          =   210
         Index           =   13
         Left            =   120
         TabIndex        =   36
         Top             =   240
         Width           =   450
      End
   End
   Begin VB.Frame fraNuevo 
      Caption         =   "Nuevo Registro"
      ForeColor       =   &H00FF0000&
      Height          =   1935
      Left            =   4320
      TabIndex        =   67
      Top             =   120
      Width           =   7335
      Begin EditLib.fpLongInteger txtSalario 
         Height          =   315
         Left            =   5520
         TabIndex        =   14
         Top             =   1440
         Width           =   1095
         _Version        =   131073
         _ExtentX        =   1931
         _ExtentY        =   556
         _StockProps     =   68
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         ThreeDInsideStyle=   1
         ThreeDInsideHighlightColor=   -2147483633
         ThreeDInsideShadowColor=   -2147483642
         ThreeDInsideWidth=   1
         ThreeDOutsideStyle=   1
         ThreeDOutsideHighlightColor=   16777215
         ThreeDOutsideShadowColor=   -2147483632
         ThreeDOutsideWidth=   1
         ThreeDFrameWidth=   0
         BorderStyle     =   0
         BorderColor     =   -2147483642
         BorderWidth     =   1
         ButtonDisable   =   0   'False
         ButtonHide      =   0   'False
         ButtonIncrement =   1
         ButtonMin       =   0
         ButtonMax       =   100
         ButtonStyle     =   0
         ButtonWidth     =   0
         ButtonWrap      =   -1  'True
         ButtonDefaultAction=   -1  'True
         ThreeDText      =   0
         ThreeDTextHighlightColor=   -2147483633
         ThreeDTextShadowColor=   -2147483632
         ThreeDTextOffset=   1
         AlignTextH      =   2
         AlignTextV      =   0
         AllowNull       =   0   'False
         NoSpecialKeys   =   0
         AutoAdvance     =   0   'False
         AutoBeep        =   0   'False
         CaretInsert     =   0
         CaretOverWrite  =   3
         UserEntry       =   0
         HideSelection   =   -1  'True
         InvalidColor    =   -2147483637
         InvalidOption   =   0
         MarginLeft      =   3
         MarginTop       =   3
         MarginRight     =   3
         MarginBottom    =   3
         NullColor       =   -2147483637
         OnFocusAlignH   =   0
         OnFocusAlignV   =   0
         OnFocusNoSelect =   0   'False
         OnFocusPosition =   0
         ControlType     =   0
         Text            =   "0"
         MaxValue        =   "999999999"
         MinValue        =   "0"
         NegFormat       =   1
         NegToggle       =   0   'False
         Separator       =   ","
         UseSeparator    =   -1  'True
         IncInt          =   1
         BorderGrayAreaColor=   -2147483637
         ThreeDOnFocusInvert=   0   'False
         ThreeDFrameColor=   -2147483633
         Appearance      =   2
         BorderDropShadow=   0
         BorderDropShadowColor=   -2147483632
         BorderDropShadowWidth=   3
         MouseIcon       =   "FCO2005 Aportantes por Fuera de Nomina.frx":0712
      End
      Begin VB.ComboBox cboSucursal 
         Height          =   330
         ItemData        =   "FCO2005 Aportantes por Fuera de Nomina.frx":072E
         Left            =   960
         List            =   "FCO2005 Aportantes por Fuera de Nomina.frx":0730
         Style           =   2  'Dropdown List
         TabIndex        =   12
         Top             =   1440
         Width           =   1575
      End
      Begin VB.CommandButton cmdCalcular 
         Height          =   420
         Left            =   6720
         Picture         =   "FCO2005 Aportantes por Fuera de Nomina.frx":0732
         Style           =   1  'Graphical
         TabIndex        =   15
         ToolTipText     =   "Calcula Aportes"
         Top             =   1440
         Width           =   495
      End
      Begin VB.TextBox txtSegNom 
         Height          =   315
         Left            =   5520
         MaxLength       =   20
         TabIndex        =   10
         Top             =   960
         Width           =   1455
      End
      Begin VB.TextBox txtPriNom 
         Height          =   315
         Left            =   3960
         MaxLength       =   20
         TabIndex        =   9
         Top             =   960
         Width           =   1575
      End
      Begin VB.TextBox txtSegApe 
         Height          =   315
         Left            =   2520
         MaxLength       =   20
         TabIndex        =   8
         Top             =   960
         Width           =   1455
      End
      Begin VB.TextBox txtPriApe 
         Height          =   315
         Left            =   960
         MaxLength       =   20
         TabIndex        =   7
         Top             =   960
         Width           =   1575
      End
      Begin VB.TextBox txtNroID 
         Height          =   315
         Left            =   5760
         MaxLength       =   16
         TabIndex        =   5
         Top             =   360
         Width           =   1215
      End
      Begin VB.ComboBox cboTipoDoc 
         Height          =   330
         ItemData        =   "FCO2005 Aportantes por Fuera de Nomina.frx":0DB4
         Left            =   2760
         List            =   "FCO2005 Aportantes por Fuera de Nomina.frx":0DCD
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   360
         Width           =   2295
      End
      Begin VB.TextBox txtTrabajador 
         Height          =   315
         Left            =   1200
         MaxLength       =   10
         TabIndex        =   1
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Sucursal"
         Height          =   210
         Index           =   33
         Left            =   240
         TabIndex        =   11
         Top             =   1440
         Width           =   645
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "S&alario:"
         ForeColor       =   &H00FF0000&
         Height          =   210
         Index           =   12
         Left            =   4920
         TabIndex        =   13
         Top             =   1440
         Width           =   540
      End
      Begin VB.Label lblLabels 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Segundo Nombre"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Index           =   9
         Left            =   5520
         TabIndex        =   71
         Top             =   780
         Width           =   1425
      End
      Begin VB.Label lblLabels 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Primer Nombre"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Index           =   8
         Left            =   3960
         TabIndex        =   70
         Top             =   780
         Width           =   1545
      End
      Begin VB.Label lblLabels 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Segundo Apellido"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Index           =   7
         Left            =   2520
         TabIndex        =   69
         Top             =   780
         Width           =   1425
      End
      Begin VB.Label lblLabels 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Primer Apellido"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Index           =   6
         Left            =   960
         TabIndex        =   68
         Top             =   780
         Width           =   1545
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N&ombre"
         Height          =   210
         Index           =   5
         Left            =   240
         TabIndex        =   6
         Top             =   960
         Width           =   555
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Número"
         Height          =   210
         Index           =   4
         Left            =   5160
         TabIndex        =   4
         Top             =   360
         Width           =   555
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Doc."
         Height          =   210
         Index           =   3
         Left            =   2400
         TabIndex        =   2
         Top             =   360
         Width           =   330
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Trabajador"
         Height          =   210
         Index           =   0
         Left            =   240
         TabIndex        =   0
         Top             =   360
         Width           =   780
      End
   End
   Begin ActiveBarLibraryCtl.ActiveBar abToolbar 
      Left            =   120
      Top             =   7920
      _ExtentX        =   847
      _ExtentY        =   847
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Bands           =   "FCO2005 Aportantes por Fuera de Nomina.frx":0E83
   End
End
Attribute VB_Name = "FCO2005"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Mado As ODBC.ODBCDirecto
Private MiCx As Integer 'Conexión
Private MoBitacora As New ADAMBitacora.Bitacora
Private WithEvents clsSpread As NSpread
Attribute clsSpread.VB_VarHelpID = -1
Private MsAgrAFP As String
Private MsAgrEPS As String
Private MsAgrCTR As String
Private MsAgrCCF As String
Private MsAgrSUC As String
Private MsAFP() As String
Private MsEPS() As String
Private MsCTR() As String
Private MsCCF() As String
Private MsSUC() As String
Private MsSql As String
Private MsWhereAdi As String
Private MsOrden As String
Private MbOrdenAsc As Boolean
Private MsAntOrden As String
Private Enum Matriz
    SUC
    AFP
    EPS
    CTR
    CCF
End Enum

Private Sub abToolbar_Click(ByVal Tool As ActiveBarLibraryCtl.Tool)
    Select Case LCase(Tool.Name)
        Case "tlalta": Altas
        Case "tlbaja": Bajas
        Case "tlguarda": GuardaCambios
        Case "tlordena": OrdenarDatos
        Case "tlrenueva": RenuevaDatos
        Case "tlsalida": Unload Me
    End Select
End Sub

Private Sub cboAFP_Click()
    GbHuboCambios = True
End Sub

Private Sub cboAFP_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        On Error Resume Next
        cboCCF.SetFocus
    End If
End Sub

Private Sub cboCCF_Click()
    GbHuboCambios = True
    If cboCCF.ListIndex > -1 Then
        If Trim(MsCCF(2, cboCCF.ListIndex)) <> "" Then
            GsOtrosDatos(4) = MsCCF(2, cboCCF.ListIndex)
            GsOtrosDatos(5) = MsCCF(3, cboCCF.ListIndex)
        End If
    End If
End Sub

Private Sub cboCCF_KeyPress(KeyAscii As Integer)
    GbHuboCambios = True
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        On Error Resume Next
        cboMes.SetFocus
    End If
End Sub

Private Sub cboCTR_Click()
    GbHuboCambios = True
End Sub

Private Sub cboCTR_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        On Error Resume Next
        cboAFP.SetFocus
    End If
End Sub

Private Sub cboEPS_Click()
    GbHuboCambios = True
End Sub

Private Sub cboEPS_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        On Error Resume Next
        cboCTR.SetFocus
    End If
End Sub

Private Sub cboMes_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then KeyAscii = 0: SendEnter
End Sub

Private Sub cboSucursal_Click()
    GbHuboCambios = True
End Sub

Private Sub cboSucursal_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then KeyAscii = 0: SendEnter
End Sub

Private Sub cboTipoDoc_Click()
    GbHuboCambios = True
End Sub

Private Sub cboTipoDoc_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then KeyAscii = 0: SendEnter
End Sub

Private Sub cmdActivos_Click()
    If Trim(txtTrabajador) <> "" Then
        GsDatoAux = Replace(Trim(txtPriApe) & " " & Trim(txtSegApe) & " " & Trim(txtPriNom) & " " & Trim(txtSegNom), "  ", " ")
        Screen.MousePointer = vbHourglass
        FCO2005T.Show 1
    End If
End Sub

Private Sub cmdCalcular_Click()
    Screen.MousePointer = vbHourglass
    'If Val(txtAFP_IBC.Value) = 0 And Val(txtEPS_IBC.Value) = 0 Then
        txtAFP_IBC.Value = txtSalario.Value
        txtEPS_IBC.Value = txtSalario.Value
        txtARP_IBC.Value = txtSalario.Value
        txtPar_IBC.Value = txtSalario.Value
        txtAFP_Dias.Value = 30
        txtEPS_Dias.Value = 30
        txtARP_Dias.Value = 30
        txtCCF_Dias.Value = 30
        txtARP_Tarifa.Value = 0.00522
    'End If
    CalculaAportes
    On Error Resume Next
    cboEPS.SetFocus
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF3: Unload Me
        Case vbKeyF5: RenuevaDatos
        Case vbKeyF6: Altas
        Case vbKeyF7
            Screen.MousePointer = vbHourglass
            MoBitacora.mBorra
            Screen.MousePointer = vbDefault
    End Select
End Sub

Private Sub Form_Load()
    GbAError = False
    Me.Tag = GiVenMax%
    Gven(Val(Me.Tag)).icx = Gicx%
    MiCx = Gven(Val(Me.Tag)).icx
    Set Mado = Gtc(MiCx).Ado
    
    'Checa nivel de seguridad
    Gven(Val(Me.Tag)).iNivSeguridad = iObtenNivSeguridad(GsOper, GsUid, MiCx)
    If Gven(Val(Me.Tag)).iNivSeguridad = 0 Then
        Screen.MousePointer = vbDefault
        Me.Top = -10000
        GbAError = True
        Exit Sub
    End If
        
    Set clsSpread = New NSpread
    GAdam.ObtieneColores
        
    'Tamaño de la forma
    If WindowState = 0 Then
        Width = 11970
        Height = 8805
    End If
            
    If Not MDIChild Then
        WindowState = 0
        Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
        Screen.MousePointer = vbDefault
    End If
            
    Caption = GsDsn & " / " & GsCveCia & " - Aportantes por Fuera de Nómina"
    AsignaIconos abToolbar, 3, LALTA, LBAJA, LORDENA, LRENUEVA, LGUARDA, LSALIDA
    ToolInicioGrupo abToolbar, 3, True, 2, 4, 5
    
    RecuperarParametros
    LlenarCombos
    
    MsSql = "SELECT trabajador, nombre FROM vw_fco_fantasmas WHERE compania = '" & GsCveCia & "'"
    MsWhereAdi = ""
    MsOrden = "ORDER BY 1"
    RenuevaDatos
    
    sprDatos.ShadowColor = GAdam.GLSPREADINACTIVO
    sprDatos.ShadowText = GAdam.GLTEXTOINACTIVO
    abToolbar.Bands(0).Tools(1).Enabled = False
    
    GsOtrosDatos(1) = "N"
    GsOtrosDatos(2) = "N"
    GsOtrosDatos(3) = ""
    GsOtrosDatos(4) = ""
    GsOtrosDatos(5) = "0"
    
    CreaBitacora
    
    GbHuboCambios = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If GbHuboCambios Then
        Select Case clsMsgbox.Mensaje("¿Desea guardar los cambios?", mSiNoCancelar, minforma, GsTitMsg)
            Case vbYes: GuardaCambios
            Case vbCancel: Cancel = 1
        End Select
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set Mado = Nothing
    Set MoBitacora = Nothing
    Set clsSpread = Nothing
    Gtc(MiCx).ihijas = Gtc(MiCx).ihijas - 1
    Set FCO2005 = Nothing
End Sub

Private Sub optActivos_Click()
    cmdActivos.Enabled = True
End Sub

Private Sub optActivos_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then cmdActivos.SetFocus
End Sub

Private Sub optPensionados_Click()
    cmdActivos.Enabled = False
    GsOtrosDatos(1) = ""
    GsOtrosDatos(2) = ""
    GsOtrosDatos(3) = ""
    GsOtrosDatos(4) = ""
    GsOtrosDatos(5) = ""
End Sub

Private Sub sprDatos_Click(ByVal Col As Long, ByVal Row As Long)
    If Row > 0 Then
        With sprDatos
            .Col = -1
            .Row = -1
            .BackColor = vbWhite
            .Row = Row
            .BackColor = vbCyan
        End With
        RecuperarDatos Row
    End If
End Sub

Private Sub sprDatos_GotFocus()
    sprDatos.ShadowColor = GAdam.GLSPREADACTIVO
    sprDatos.ShadowText = GAdam.GLTEXTOACTIVO
    abToolbar.Bands(0).Tools(1).Enabled = True
End Sub

Private Sub sprDatos_LostFocus()
    sprDatos.ShadowColor = GAdam.GLSPREADINACTIVO
    sprDatos.ShadowText = GAdam.GLTEXTOINACTIVO
    abToolbar.Bands(0).Tools(1).Enabled = False
End Sub

Private Sub txtAFP_Aporte_Change()
    GbHuboCambios = True
End Sub

Private Sub txtAFP_Dias_Change()
    GbHuboCambios = True
End Sub

Private Sub txtAFP_IBC_Change()
    GbHuboCambios = True
    If Val(txtAFP_IBC.Value) = 0 Then
        txtAFP_Dias.Value = 0
        txtAFP_Aporte.Value = 0
        txtFSP_Sol.Value = 0
        txtFSP_Sub.Value = 0
    End If
End Sub

Private Sub txtAnio_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendEnter
    Else
        KeyAscii = iValidarDato(KeyAscii, "0123456789", True, True)
    End If
End Sub

Private Sub txtARP_Aporte_Change()
    GbHuboCambios = True
End Sub

Private Sub txtARP_Dias_Change()
    GbHuboCambios = True
End Sub

Private Sub txtARP_IBC_Change()
    GbHuboCambios = True
    If Val(txtARP_IBC.Value) = 0 Then
        txtARP_Dias.Value = 0
        txtARP_Aporte.Value = 0
    End If
End Sub

Private Sub txtARP_Tarifa_Change()
    GbHuboCambios = True
End Sub

Private Sub txtCCF_Dias_Change()
    GbHuboCambios = True
End Sub

Private Sub txtEPS_Aporte_Change()
    GbHuboCambios = True
End Sub

Private Sub txtEPS_Dias_Change()
    GbHuboCambios = True
End Sub

Private Sub txtEPS_IBC_Change()
    GbHuboCambios = True
    If Val(txtEPS_IBC.Value) = 0 Then
        txtEPS_Dias.Value = 0
        txtEPS_Aporte.Value = 0
        txtEPS_UPC.Value = 0
    End If
End Sub

Private Sub txtEPS_UPC_Change()
    GbHuboCambios = True
End Sub

Private Sub txtFiltroNom_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then AplicaFiltros: RenuevaDatos
End Sub

Private Sub txtFiltroTra_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then AplicaFiltros: RenuevaDatos
End Sub

Private Sub txtFSP_Sol_Change()
    GbHuboCambios = True
End Sub

Private Sub txtFSP_Sub_Change()
    GbHuboCambios = True
End Sub

Private Sub txtNroID_Change()
    GbHuboCambios = True
End Sub

Private Sub txtNroID_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then KeyAscii = 0: SendEnter
End Sub

Private Sub txtPar_CCF_Change()
    GbHuboCambios = True
End Sub

Private Sub txtPar_IBC_Change()
    GbHuboCambios = True
    If Val(txtPar_IBC.Value) = 0 Then
        txtPar_CCF.Value = 0
        txtPar_SENA.Value = 0
        txtPar_ICBF.Value = 0
    End If
End Sub

Private Sub txtPar_ICBF_Change()
    GbHuboCambios = True
End Sub

Private Sub txtPar_SENA_Change()
    GbHuboCambios = True
End Sub

Private Sub txtPriApe_Change()
    GbHuboCambios = True
End Sub

Private Sub txtPriApe_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendEnter
    Else
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

Private Sub txtPriNom_Change()
    GbHuboCambios = True
End Sub

Private Sub txtPriNom_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendEnter
    Else
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

Private Sub txtSalario_Change()
    GbHuboCambios = True
End Sub

Private Sub txtSalario_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        cmdCalcular_Click
    End If
End Sub

Private Sub txtSegApe_Change()
    GbHuboCambios = True
End Sub

Private Sub txtSegApe_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendEnter
    Else
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

Private Sub txtSegNom_Change()
    GbHuboCambios = True
End Sub

Private Sub txtSegNom_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendEnter
    Else
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

Private Sub txtTrabajador_Change()
    txtNroID = txtTrabajador
    GbHuboCambios = True
End Sub

Private Sub txtTrabajador_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendEnter
    Else
        KeyAscii = iValidarDato(KeyAscii, "0123456789", True, True)
    End If
End Sub

Private Sub Altas()
    With sprDatos
        .Col = -1
        .Row = -1
        .BackColor = vbWhite
    End With
    LimpiarCampos
    txtTrabajador.Enabled = True
    fraNuevo.Caption = "Nuevo Registro"
    On Error Resume Next
    txtTrabajador.SetFocus
End Sub

Private Sub AplicaFiltros()
    MsWhereAdi = ""
                    
    If Trim(txtFiltroTra) <> "" Then
        MsWhereAdi = " AND trabajador LIKE '%" & txtFiltroTra & "%'"
    End If
    
    If Trim(txtFiltroNom) <> "" Then
        MsWhereAdi = MsWhereAdi & " AND nombre LIKE '%" & txtFiltroNom & "%'"
    End If
End Sub

Private Sub Bajas()
    If sprDatos.VirtualMaxRows <= 0 Then Exit Sub
    MoBitacora.mBorra
    With sprDatos
        .Col = -1
        .Row = -1
        .BackColor = vbWhite
    End With
End Sub

Private Sub CalculaAportes()
    Dim iRandom As Integer
    
    Randomize
    iRandom = Int((32000 * Rnd) + 1)
    
    Mado.Sql = "sp_fco_calcula_aportes " & iRandom & "," & _
    "'" & GsCveCia & "'," & _
    Val(txtAFP_IBC.Value) & "," & _
    Val(txtAFP_Dias.Value) & "," & _
    Val(txtEPS_IBC.Value) & "," & _
    Val(txtEPS_Dias.Value) & "," & _
    Val(txtARP_IBC.Value) & "," & _
    Val(txtARP_Dias.Value) & "," & _
    Val(txtARP_Tarifa.Value) & "," & _
    Val(txtPar_IBC.Value) & "," & _
    Val(txtCCF_Dias.Value)
    Mado.ExecSQL
    
    Mado.Sql = _
    " SELECT AFP_Aporte, FSP_Aporte_Sol, FSP_Aporte_Sub, EPS_Aporte, ARP_Aporte, CCF_Aporte, SENA_Aporte, ICBF_Aporte" & _
    " FROM fco_fantasmas_aux WHERE random = " & iRandom
    Mado.SendSQL
    If Not Mado.EOF Then
        txtAFP_Aporte.Value = Mado.GetField(1)
        txtFSP_Sol.Value = Mado.GetField(2)
        txtFSP_Sub.Value = Mado.GetField(3)
        txtEPS_Aporte.Value = Mado.GetField(4)
        txtARP_Aporte.Value = Mado.GetField(5)
        txtPar_CCF.Value = Mado.GetField(6)
        txtPar_SENA.Value = Mado.GetField(7)
        txtPar_ICBF.Value = Mado.GetField(8)
    End If
    
    Mado.Sql = "DELETE fco_fantasmas_aux WHERE random = " & iRandom
    Mado.SendSQL
End Sub

Private Sub CreaBitacora()
   MoBitacora.mCreaBitacora sprDatos, Mado.lhEnv, Mado.lhDbc, Mado.lhstmt, Mado
   MoBitacora.p_ConfirmaBaja = True
   MoBitacora.mTablaSPInfo 1, "sp_fco_baja_fantasmas", "'" & GsCveCia & "'", 1
End Sub

Private Sub GuardaCambios()
    Dim sSUC As String
    Dim sAFP As String
    Dim sEPS As String
    Dim sCTR As String
    Dim sCCF As String
    Dim sTID As String
    Dim sSP As String

    If Trim(txtTrabajador) = "" Then
        clsMsgbox.Mensaje "El código del trabajador es indispensable", mAceptar, mAdvierte, GsTitMsg
        Exit Sub
    End If

    Screen.MousePointer = vbHourglass
    
    sSUC = "": sAFP = "": sEPS = "": sCTR = "": sCCF = "": sTID = "CC"
    If cboSucursal.ListIndex > -1 Then sSUC = MsSUC(cboSucursal.ListIndex)
    If cboAFP.ListIndex > -1 Then sAFP = MsAFP(cboAFP.ListIndex)
    If cboEPS.ListIndex > -1 Then sEPS = MsEPS(cboEPS.ListIndex)
    If cboCCF.ListIndex > -1 Then sCCF = MsCCF(1, cboCCF.ListIndex)
    'If cboCTR.ListIndex > -1 Then sCTR = MsCTR(cboCTR.ListIndex)
    sCTR = cboCTR.Text
    If cboTipoDoc.ListIndex > -1 Then sTID = Left(cboTipoDoc.Text, 2)
    
    If txtTrabajador.Enabled Then
        sSP = "sp_fco_alta_fantasmas"
    Else
        sSP = "sp_fco_cambio_fantasmas"
    End If
    Mado.Sql = sSP & _
    " '" & GsCveCia & "'," & _
    "'" & txtTrabajador & "'," & _
    Val(txtAnio) & "," & (cboMes.ListIndex + 1) & "," & _
    "'" & sSUC & "','" & sTID & "','" & txtNroID & "'," & Val(GsOtrosDatos(1)) & "," & _
    "'" & txtPriApe & "','" & txtSegApe & "','" & txtPriNom & "','" & txtSegNom & "'," & _
    "'" & sAFP & "','" & sEPS & "','" & sCCF & "','" & sCTR & "'," & _
    Val(txtAFP_Dias.Value) & "," & Val(txtEPS_Dias.Value) & "," & _
    Val(txtARP_Dias.Value) & "," & Val(txtCCF_Dias.Value) & "," & Val(txtSalario.Value) & "," & _
    Val(txtAFP_IBC.Value) & "," & Val(txtEPS_IBC.Value) & "," & _
    Val(txtARP_IBC.Value) & "," & Val(txtPar_IBC.Value) & "," & _
    Val(txtAFP_Aporte.Value) & "," & Val(txtFSP_Sol.Value) & "," & Val(txtFSP_Sub.Value) & "," & _
    Val(txtEPS_Aporte.Value) & "," & _
    Val(txtEPS_UPC.Value) & "," & Val(txtARP_Tarifa.Value) & "," & _
    Val(txtARP_Aporte.Value) & "," & Val(txtPar_CCF.Value) & "," & _
    Val(txtPar_SENA.Value) & "," & Val(txtPar_ICBF.Value) & "," & _
    "0,0,'" & GsOtrosDatos(2) & "','" & GsOtrosDatos(3) & "','" & GsOtrosDatos(4) & "'," & _
    "'" & GsOtrosDatos(5) & "'," & IIf(optPensionados.Value, "1", "0")
    Mado.ExecSQL
    
    GbRen = MoBitacora.mActualizaBD
    
    LimpiarCampos
    RenuevaDatos
    GbHuboCambios = False
    
    Screen.MousePointer = vbDefault
End Sub

Private Function iBuscarDatoEnCombo2(Combo As ComboBox, Texto As String, NumCar As Long) As Integer
    Dim i As Integer
    Dim bEncontrado As Boolean
    
    i = 0
    bEncontrado = False
    Do Until i = Combo.ListCount Or bEncontrado
        If Left(Combo.List(i), NumCar) = Texto Then
            bEncontrado = True
        Else
            i = i + 1
        End If
    Loop
    If Not bEncontrado Then i = -1
    iBuscarDatoEnCombo2 = i
End Function

Private Function iBuscarEnMatriz(Matriz As Matriz, Texto As String) As Integer
    Dim i As Integer
    Dim bEncontrado As Boolean
    Dim iTope As Long
    Dim sDato As String
    
    Select Case Matriz
        Case SUC: iTope = cboSucursal.ListCount
        Case AFP: iTope = cboAFP.ListCount
        Case EPS: iTope = cboEPS.ListCount
        Case CCF: iTope = cboCCF.ListCount
        Case CTR: iTope = cboCTR.ListCount
    End Select
    
    i = 0
    bEncontrado = False
    Do Until i = iTope Or bEncontrado
        Select Case Matriz
            Case SUC: sDato = MsSUC(i)
            Case AFP: sDato = MsAFP(i)
            Case EPS: sDato = MsEPS(i)
            Case CCF: sDato = MsCCF(1, i)
            Case CTR: sDato = MsCTR(i)
        End Select
    
        If sDato = Texto Then
            bEncontrado = True
        Else
            i = i + 1
        End If
    Loop
    If Not bEncontrado Then i = -1
    iBuscarEnMatriz = i
End Function

Private Sub LlenarCombos()
    'Fondo de Pensiones
    cboAFP.AddItem ""
    Mado.Sql = "SELECT dato, descripcion FROM datos_agr_trab WHERE agrupacion = '" & MsAgrAFP & "' ORDER BY 2"
    Mado.SendSQL
    Do Until Mado.EOF
        cboAFP.AddItem Mado.GetField(2)
        ReDim Preserve MsAFP(cboAFP.NewIndex)
        MsAFP(cboAFP.NewIndex) = Mado.GetField(1)
        Mado.Mnext
    Loop
    
    'EPS
    cboEPS.AddItem ""
    Mado.Sql = "SELECT dato, descripcion FROM datos_agr_trab WHERE agrupacion = '" & MsAgrEPS & "' ORDER BY 2"
    Mado.SendSQL
    Do Until Mado.EOF
        cboEPS.AddItem Mado.GetField(2)
        ReDim Preserve MsEPS(cboEPS.NewIndex)
        MsEPS(cboEPS.NewIndex) = Mado.GetField(1)
        Mado.Mnext
    Loop
    
    'Centro de Trabajo
    cboCTR.AddItem ""
    Mado.Sql = "SELECT dato, descripcion FROM datos_agr_trab WHERE agrupacion = '" & MsAgrCTR & "' ORDER BY 1"
    Mado.SendSQL
    Do Until Mado.EOF
        cboCTR.AddItem Mado.GetField(1)
        ReDim Preserve MsCTR(cboCTR.NewIndex)
        MsCTR(cboCTR.NewIndex) = Mado.GetField(1)
        Mado.Mnext
    Loop
    
    'Caja de Compensación Familiar
    cboCCF.AddItem ""
    Mado.Sql = "SELECT codigo, descripcion, departamento, municipio FROM vw_fco_administradoras WHERE compania = '" & GsCveCia & "' AND tipo = 'CCF'"
    Mado.SendSQL
    Do Until Mado.EOF
        cboCCF.AddItem Mado.GetField(2)
        ReDim Preserve MsCCF(1 To 3, cboCCF.NewIndex)
        MsCCF(1, cboCCF.NewIndex) = Mado.GetField(1)
        MsCCF(2, cboCCF.NewIndex) = Mado.GetField(3)
        MsCCF(3, cboCCF.NewIndex) = Mado.GetField(4)
        Mado.Mnext
    Loop
    
    'Sucursal
    Mado.Sql = "SELECT dato, descripcion FROM datos_agr_trab WHERE agrupacion = '" & MsAgrSUC & "' ORDER BY 2"
    Mado.SendSQL
    Do Until Mado.EOF
        cboSucursal.AddItem Mado.GetField(2)
        ReDim Preserve MsSUC(cboSucursal.NewIndex)
        MsSUC(cboSucursal.NewIndex) = Mado.GetField(1)
        Mado.Mnext
    Loop
End Sub

Private Sub LimpiarCampos()
    txtTrabajador = ""
    cboMes.ListIndex = -1
    txtAnio = ""
    cboTipoDoc.ListIndex = -1
    txtNroID = ""
    txtPriApe = ""
    txtSegApe = ""
    txtPriNom = ""
    txtSegNom = ""
    cboSucursal.ListIndex = -1
    txtSalario = ""
    cboAFP.ListIndex = -1
    txtAFP_IBC.Value = 0
    txtAFP_Dias.Value = 0
    txtFSP_Sol.Value = 0
    txtFSP_Sub.Value = 0
    cboEPS.ListIndex = -1
    txtEPS_IBC.Value = 0
    txtEPS_Dias.Value = 0
    txtEPS_Aporte.Value = 0
    txtEPS_UPC.Value = 0
    cboCTR.ListIndex = -1
    txtARP_IBC.Value = 0
    txtARP_Dias.Value = 0
    txtARP_Tarifa.Value = 0
    txtARP_Aporte.Value = 0
    cboCCF.ListIndex = -1
    txtPar_IBC.Value = 0
    txtCCF_Dias.Value = 0
    txtPar_CCF.Value = 0
    txtPar_SENA.Value = 0
    txtPar_ICBF.Value = 0
    GsOtrosDatos(1) = "1"
    GsOtrosDatos(2) = "N"
    GsOtrosDatos(3) = "N"
    GsOtrosDatos(4) = ""
    GsOtrosDatos(5) = ""
    GbHuboCambios = False
End Sub

Private Sub OrdenarDatos()
    Screen.MousePointer = vbHourglass
    If MsAntOrden = CStr(sprDatos.ActiveCol) Then
        MbOrdenAsc = Not (MbOrdenAsc)
    Else
        MbOrdenAsc = True
    End If
    MsOrden = " Order By " & CStr(sprDatos.ActiveCol) & IIf(MbOrdenAsc, "", "DESC")
    MsAntOrden = CStr(sprDatos.ActiveCol)
    RenuevaDatos
    Screen.MousePointer = vbDefault
End Sub

Private Sub RecuperarDatos(Row As Long)
    Dim vAux As Variant

    LimpiarCampos
    fraNuevo.Caption = "Edición de Registro"
    sprDatos.GetText 1, Row, vAux
    
    If Trim(vAux) <> "" Then
        txtTrabajador = vAux
        txtTrabajador.Enabled = False
        Mado.Sql = "SELECT '', anio, mes, sucursal, tipo_id, nro_id, tipo_cotizante, primer_apellido, segundo_apellido," & _
        " primer_nombre, segundo_nombre, AFP, EPS, CCF, CTR, dias_AFP, dias_EPS, dias_ARP, dias_CCF, salario, IBC_AFP, IBC_EPS," & _
        " IBC_ARP, IBC_CCF, aporte_AFP, aporte_FSP_sol, aporte_FSP_sub, aporte_EPS, UPC_adicional, tarifa_ARP, aporte_ARP," & _
        " aporte_CCF, aporte_SENA, aporte_ICBF, aporte_ESAP, aporte_MEdu, extranjero, residente_exterior, departamento, municipio, planilla_pens" & _
        " FROM fco_fantasmas" & _
        " WHERE compania = '" & GsCveCia & "' AND RTRIM(LTRIM(trabajador)) = '" & Trim(txtTrabajador) & "'"
        Mado.SendSQL
        If Not Mado.EOF Then
            txtAnio = Mado.GetField(2)
            If Mado.GetFieldInt(3) > 0 And Mado.GetField(3) < 13 Then
                cboMes.ListIndex = Mado.GetField(3) - 1
            End If
            cboSucursal.ListIndex = iBuscarEnMatriz(SUC, Mado.GetField(4))
            cboTipoDoc.ListIndex = iBuscarDatoEnCombo2(cboTipoDoc, Mado.GetField(5), 2)
            txtNroID = Mado.GetField(6)
            GsOtrosDatos(1) = Mado.GetField(7)
            txtPriApe = Mado.GetField(8)
            txtSegApe = Mado.GetField(9)
            txtPriNom = Mado.GetField(10)
            txtSegNom = Mado.GetField(11)
            cboAFP.ListIndex = iBuscarEnMatriz(AFP, Mado.GetField(12))
            cboEPS.ListIndex = iBuscarEnMatriz(EPS, Mado.GetField(13))
            cboCCF.ListIndex = iBuscarEnMatriz(CCF, Mado.GetField(14))
            cboCTR.ListIndex = iBuscarDatoEnCombo(cboCTR, Mado.GetField(15))
            txtAFP_Dias.Value = Val(Mado.GetField(16))
            txtEPS_Dias.Value = Val(Mado.GetField(17))
            txtARP_Dias.Value = Val(Mado.GetField(18))
            txtCCF_Dias.Value = Val(Mado.GetField(19))
            txtSalario = Mado.GetField(20)
            txtAFP_IBC.Value = Mado.GetField(21)
            txtEPS_IBC.Value = Mado.GetField(22)
            txtARP_IBC.Value = Mado.GetField(23)
            txtPar_IBC.Value = Mado.GetField(24)
            txtAFP_Aporte.Value = Mado.GetField(25)
            txtFSP_Sol.Value = Mado.GetField(26)
            txtFSP_Sub.Value = Mado.GetField(27)
            txtEPS_Aporte.Value = Mado.GetField(28)
            txtEPS_UPC.Value = Mado.GetField(29)
            txtARP_Tarifa.Value = Mado.GetField(30)
            txtARP_Aporte.Value = Mado.GetField(31)
            txtPar_CCF.Value = Mado.GetField(32)
            txtPar_SENA.Value = Mado.GetField(33)
            txtPar_ICBF.Value = Mado.GetField(34)
            GsOtrosDatos(2) = Mado.GetField(37)
            GsOtrosDatos(3) = Mado.GetField(38)
            GsOtrosDatos(4) = Mado.GetField(39)
            GsOtrosDatos(5) = Mado.GetField(40)
            optPensionados.Value = Val(Mado.GetField(41)) = 1
        End If
    End If
End Sub

Private Sub RecuperarParametros()
    MsAgrEPS = sParametroFDT(Mado, "autoliq", "COL", 21)
    MsAgrAFP = sParametroFDT(Mado, "autoliq", "COL", 22)
    MsAgrSUC = sParametroFDT(Mado, "autoliq", "COL", 23)
    MsAgrCTR = sParametroFDT(Mado, "autoliq", "COL", 24)
    MsAgrCCF = sParametroFDT(Mado, "parafiscal", "COL", 1)
End Sub

Private Sub RenuevaDatos()
    Screen.MousePointer = vbHourglass

    sprDatos.VisibleCols = 2
    With sprDatos
        .Visible = False
        .Action = 28
        GAdam.ConfiguracionSpread sprDatos
        .Row = 0
        .Col = 1: .Text = "Trabajador"
        .Col = 2: .Text = "Nombre"
        ConfiguraSpreadJCL sprDatos
        .UserResizeCol = 2
    End With
    
    AplicaFiltros
    Mado.Sql = MsSql & MsWhereAdi & MsOrden
    If Not Mado.SendSQL Then Exit Sub
    clsSpread.LlenaSpread 0, sprDatos, Mado, Mado.lhDbc, Mado.lhstmt
    
    With sprDatos
        .ColWidth(1) = 8
        .ColWidth(2) = 25
        .Col = 1: .Row = -1: .Lock = True
        .Col = 2: .Row = -1: .Lock = True
    End With
    GAdam.AjustaSpread sprDatos, 2
    sprDatos.Visible = True
    
    Screen.MousePointer = vbDefault
End Sub

