From f6203c587724d9f3513d905a1095fd5d086c33f9 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 6 Jul 2024 09:52:53 -0700 Subject: [PATCH] =?UTF-8?q?Cxc=20Impresi=C3=B3n,=20=20=20rep=20=20preasist?= =?UTF-8?q?enciachecador,=20dia=20siguienete=20marcado=20como=20retardo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/RepCxCCliente.aspx.vb | 25 +++++++----- RH/Personal.aspx | 22 +++++++---- RH/RepChecadorPreAsistencia.aspx.vb | 59 +++++++++++++++++++---------- 3 files changed, 69 insertions(+), 37 deletions(-) diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index 87d5a678c..e11bc10ef 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/Bancos/RepCxCCliente.aspx.vb @@ -7,6 +7,10 @@ Partial Class Bancos_RepCxCCliente Private Property DtDatos As DataTable Get + If ViewState("DtDatos") Is Nothing Then + ViewState("DtDatos") = New DataTable + End If + Return CType(ViewState("DtDatos"), DataTable) End Get Set(value As DataTable) @@ -51,6 +55,7 @@ Partial Class Bancos_RepCxCCliente CargaDatos() End Sub Private Sub CargaDatos() + DtDatos = New DataTable Dim Mov As New ClsMovimientos Dim FechaI, FechaF As String Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) @@ -63,6 +68,7 @@ Partial Class Bancos_RepCxCCliente If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then GvCxC.DataSource = Mov.DtResultados + DtDatos = Mov.DtResultados End If UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue @@ -137,7 +143,7 @@ Partial Class Bancos_RepCxCCliente 'OBTENEMOS LOS DATOS Dim ObjMovtos As New ClsMovimientos() - Dim DTpp As DataTable + Dim FI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) Dim FF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) Dim FechaI, FechaF As String @@ -146,13 +152,14 @@ Partial Class Bancos_RepCxCCliente If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) - If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then - DTpp = ObjMovtos.DtResultados - Else - DTpp = Nothing - End If - If DTpp.Rows.Count > 0 Then - Dim dr As DataRow = DTpp.Rows(0) + 'If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then + ' DTpp = ObjMovtos.DtResultados + 'Else + ' DTpp = Nothing + 'End If + + If DtDatos.Rows.Count > 0 Then + Dim dr As DataRow = DtDatos.Rows(0) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("FechaInicio", FI)) @@ -161,7 +168,7 @@ Partial Class Bancos_RepCxCCliente params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString)) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DTpp, params, "ReportePagoClientes") + ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DtDatos, params, "ReportePagoClientes") Else Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia) End If diff --git a/RH/Personal.aspx b/RH/Personal.aspx index b8ee1341a..410822d28 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1615,14 +1615,10 @@ -
-
-
- - - -
-
+ + + +
@@ -1630,7 +1626,17 @@
+
+
+ + + +
+
+ + +
diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb index 45d5ddce5..5db66c296 100644 --- a/RH/RepChecadorPreAsistencia.aspx.vb +++ b/RH/RepChecadorPreAsistencia.aspx.vb @@ -189,6 +189,9 @@ Partial Class RH_RepChecadorPreAsistencia If Not Page.IsPostBack Then cargaEjercicios() CargaCombos() + + + End If ' GvBind() @@ -663,7 +666,7 @@ Partial Class RH_RepChecadorPreAsistencia Dim diaSemana As Integer = Fecha.DayOfWeek Dim Asistencia As Boolean = True - Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso) + Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso, dRow("CveTurno").ToString().ToEntero) Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString()) Dim HorarioEntrada As TimeSpan = TimeSpan.Parse(Horario(0)(1).ToString()) @@ -917,7 +920,7 @@ Partial Class RH_RepChecadorPreAsistencia ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta End If - Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso) + Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso, dRow("CveTurno").ToString().ToEntero) Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString()) If Not DiaLaboral Then @@ -1523,7 +1526,7 @@ Partial Class RH_RepChecadorPreAsistencia 'End Sub - Private Function HorarioDiario(Fecha As Date, DTHorarioPersonal As DataTable, DiaDescanso As Integer) As DataTable + Private Function HorarioDiario(Fecha As Date, DTHorarioPersonal As DataTable, DiaDescanso As Integer, CveTurno As Integer) As DataTable Dim respuesta As New DataTable respuesta.Columns.Add("TRABAJO", System.Type.GetType("System.Boolean")) @@ -1533,8 +1536,24 @@ Partial Class RH_RepChecadorPreAsistencia respuesta.Columns.Add("SALIDA", System.Type.GetType("System.TimeSpan")) Dim Drow As DataRow = respuesta.NewRow Dim drp As DataRow = Nothing + + + Dim EntradaTurno As String = "" + Dim SalidaTurno As String = "" + If DTHorarioPersonal.Rows.Count > 0 Then drp = DTHorarioPersonal(0) + Else + + Dim DTTemp As DataTable = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltraParametros("CveTurno = " & CveTurno) + If DTTemp.Rows.Count > 0 Then + EntradaTurno = DTTemp.Rows(0)("HorarioDe").ToString + SalidaTurno = DTTemp.Rows(0)("HorarioA").ToString + Else + EntradaTurno = "00:00" + SalidaTurno = "09:00" + End If + End If Dim diaSemana As Integer = Fecha.DayOfWeek @@ -1545,59 +1564,59 @@ Partial Class RH_RepChecadorPreAsistencia Case 0 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Domingo").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Domingo").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("DomingoEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("DomingoSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("DomingoSalida").ToString())) Exit Select Case 1 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Lunes").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Lunes").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("LunesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("LunesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("LunesSalida").ToString())) Exit Select Case 2 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Martes").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Martes").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("MartesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("MartesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("MartesSalida").ToString())) Exit Select Case 3 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Miercoles").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Miercoles").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("MiercolesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("MiercolesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("MiercolesSalida").ToString())) Exit Select Case 4 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Jueves").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Jueves").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("JuevesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("JuevesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("JuevesSalida").ToString())) Exit Select Case 5 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Viernes").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Viernes").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("ViernesEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("ViernesSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("ViernesSalida").ToString())) Exit Select Case 6 Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Sabado").ToString())) 'Drow(0) = Boolean.Parse(If(IsNothing(drp), "False", drp("Sabado").ToString())) - Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoEntrada").ToString())) + Drow(1) = TimeSpan.Parse(If(IsNothing(drp), EntradaTurno, drp("SabadoEntrada").ToString())) Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoSalidaComida").ToString())) Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoEntradaComida").ToString())) - Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("SabadoSalida").ToString())) + Drow(4) = TimeSpan.Parse(If(IsNothing(drp), SalidaTurno, drp("SabadoSalida").ToString())) Exit Select End Select @@ -1780,7 +1799,7 @@ Partial Class RH_RepChecadorPreAsistencia Dim arrayComands As String() Dim Fecha As Date = FechaInicioPeriodo - + Dim Fecha2 As Date = New Date(2024, 7, 2) For x As Integer = 3 To 33 NombreLink = "LnkFecha" & CountFecha @@ -2710,7 +2729,7 @@ Partial Class RH_RepChecadorPreAsistencia Dim diaSemana As Integer = Fecha.DayOfWeek Dim Asistencia As Boolean = True - Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso) + Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso, dRow("CveTurno").ToString().ToEntero) Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString()) Dim HorarioEntrada As TimeSpan = TimeSpan.Parse(Horario(0)(1).ToString()) @@ -2955,7 +2974,7 @@ Partial Class RH_RepChecadorPreAsistencia ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta End If - Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso) + Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso, dRow("CveTurno").ToString().ToEntero) Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString()) If Not DiaLaboral Then