Private Sub Crear_Grid()
Dim Col_text As DataGridViewTextBoxColumn
Dim Col_Check As DataGridViewCheckBoxColumn
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Nomina"
Col_text.HeaderText = "Nomina"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Nombre"
Col_text.HeaderText = "Nombre"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Puesto"
Col_text.HeaderText = "Puesto"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Departamento"
Col_text.HeaderText = "Departamento"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Categoria"
Col_text.HeaderText = "Categoria"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Mcat"
Col_text.HeaderText = "Monto"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "SAccidente"
Col_text.HeaderText = "Accidente"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "SNeglijencia"
Col_text.HeaderText = "Negligencia"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Qinterna"
Col_text.HeaderText = "Queja Interna"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Qexterna"
Col_text.HeaderText = "Queja Externa"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_Check = New DataGridViewCheckBoxColumn
Col_Check.Name = "Entregas"
Col_Check.HeaderText = "Entregas"
Grid1.Columns.Add(Col_Check)
Col_Check.ReadOnly = True
Col_Check = New DataGridViewCheckBoxColumn
Col_Check.Name = "costos"
Col_Check.HeaderText = "Costos"
Grid1.Columns.Add(Col_Check)
Col_Check.ReadOnly = True
Col_Check = New DataGridViewCheckBoxColumn
Col_Check.Name = "lpa"
Col_Check.HeaderText = "LPA"
Grid1.Columns.Add(Col_Check)
Col_Check.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Fi"
Col_text.HeaderText = "Falta injustificada"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Fj"
Col_text.HeaderText = "Falta justuficada"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Retardo"
Col_text.HeaderText = "Retardo"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "permiso"
Col_text.HeaderText = "Permiso"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "acta"
Col_text.HeaderText = "Acta"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Facta"
Col_text.HeaderText = "Fecha del Acta"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "dias"
Col_text.HeaderText = "Dias pagados"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "bono"
Col_text.HeaderText = "% del Bono"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "semana"
Col_text.HeaderText = "Semana"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
Col_Check = New DataGridViewCheckBoxColumn
Col_Check.Name = "activo"
Col_Check.HeaderText = "Activo"
Grid1.Columns.Add(Col_Check)
Col_Check.ReadOnly = True
Col_text = New DataGridViewTextBoxColumn
Col_text.Name = "Persivido"
Col_text.HeaderText = "Total a Pagar"
Grid1.Columns.Add(Col_text)
Col_text.ReadOnly = True
End Sub