TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

Me.MSHFlexGrid2.Text = "Codigo"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 1Me.MSHFlexGrid2.Text = "Nombres"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 2Me.MSHFlexGrid2.Text = "Apellidos"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 3Me.MSHFlexGrid2.Text = "Hora Entrada"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 4Me.MSHFlexGrid2.Text = "Hora Salida"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 5Me.MSHFlexGrid2.Text = "H. Normales"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 6Me.MSHFlexGrid2.Text = "Valor/H. Normal"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 7Me.MSHFlexGrid2.Text = "H. Extras"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 8Me.MSHFlexGrid2.Text = "Valor/H. Extra"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 9Me.MSHFlexGrid2.Text = "Total Horas"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterMe.MSHFlexGrid2.Row = 0Me.MSHFlexGrid2.Col = 10Me.MSHFlexGrid2.Text = "Valor Total"Me.MSHFlexGrid2.CellAlignment = flexAlignCenterCenterDim colum As IntegerFor colum = 0 To 4Me.MSHFlexGrid2.Col = columMe.MSHFlexGrid2.ColAlignment(colum) = flexAlignLeftCenterNext columFor colum = 5 To 10Me.MSHFlexGrid2.Col = columMe.MSHFlexGrid2.ColAlignment(colum) = flexAlignCenterCenterNext colum'Me.MSHFlexGrid2.ColHeaderCaption(2, 0) = "Cod_Empleado"'Me.MSHFlexGrid2.ColHeaderCaption(0, 1) = "Nombres"'Me.MSHFlexGrid2.ColHeaderCaption(0, 2) = "Apellidos"'Me.MSHFlexGrid2.ColHeaderCaption(0, 3) = "Hora Entrada"'Me.MSHFlexGrid2.ColHeaderCaption(0, 4) = "Hora Salida"'Me.MSHFlexGrid2.ColHeaderCaption(0, 5) = "H. ORD"'Me.MSHFlexGrid2.ColHeaderCaption(0, 6) = "Valor HOR."'Me.MSHFlexGrid2.ColHeaderCaption(0, 7) = "H. Ext."'Me.MSHFlexGrid2.ColHeaderCaption(0, 8) = "Valor HEX."'Me.MSHFlexGrid2.ColHeaderCaption(0, 9) = "Total Hrs."'Me.MSHFlexGrid2.ColHeaderCaption(0, 10) = "Valor Total"While Not rs.EOFMe.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = rs.Fields("Cod_Empleado")i = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = rs.Fields("NombreEmpleado")- 183 -