TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

i = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = rs.Fields("ApellidoEmpleado")i = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = rs.Fields("FechaEntrada")i = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = rs.Fields("FechaSalida")HOR = (Hour(rs.Fields("FechaSalida") - rs.Fields("FechaEntrada")) + ((Minute(rs.Fields("FechaSalida") - rs.Fields("FechaEntrada"))) / 60)) - 1'tiempo de almuerzo'HOR = Minute(rs.Fields("FechaSalida") - rs.Fields("FechaEntrada"))TotHorEmp = HORTotalHoras = TotalHoras + TotHorEmpSalHora = rs.Fields("Salario") / 30 / 8If HOR > 8 Then'Horas Normalesi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format(8, "standard")'Valor por horas normalesi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format(8 * SalHora, "currency")ValorHorEmp = ValorHorEmp + (8 * SalHora)'Horas Extrasi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format((HOR - 8), "standard")'Valor por horas extrasi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format((HOR - 8) * SalHora * 2, "currency")ValorHorEmp = ValorHorEmp + ((HOR - 8) * SalHora * 2)Else'Horas normalesi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format(HOR, "standard")'valor por horas normalesi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format(HOR * SalHora, "currency")ValorHorEmp = ValorHorEmp + (HOR * SalHora)'Horas Extrasi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format((0), "standard")'Valor por horas extrasi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format((0) * SalHora * 2, "currency")ValorHorEmp = ValorHorEmp + ((0) * SalHora * 2)End Ifi = i + 1Me.MSHFlexGrid2.Col = iMe.MSHFlexGrid2.Row = jMe.MSHFlexGrid2.Text = Format(TotHorEmp, "standard")- 184 -