From 4e880913a294c258582a946048d0e79a099ef69b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 11 May 2023 12:33:06 -0700 Subject: [PATCH 01/31] =?UTF-8?q?--=20quitar=20alineaci=C3=B3n=20a=20la=20?= =?UTF-8?q?derecha=20en=20observaciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index e66bfc7f7..bf150f70b 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -901,15 +901,12 @@ - - - - + - - + + From fcee8fcdd602e2ee0b09bd5b44b2390c8e8dbb48 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 11 May 2023 12:39:43 -0700 Subject: [PATCH 02/31] -- cambios visuales por acomodo de filtros --- RH/Asistencias.aspx | 110 ++++++++++++++++------------------------- RH/Asistencias.aspx.vb | 32 +++--------- 2 files changed, 48 insertions(+), 94 deletions(-) diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index 98ae354cd..114706a68 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -25,103 +25,77 @@ - -
-
+
+
- "><%--class="expand"--%> - +
-
- Cliente: -
- -
-
- -
- Proyecto: -
+ + Cliente: +
+ +
+ Proyecto: +
-
-
- -
- SubProyecto: - -
+
+ SubProyecto: +
-
-
-
- Turno: -
- - - - -
-
- -
- -
- - - - - -
-
- - -
- F. Asistencia: -
+
+ F. Asistencia: +
- - + -
-
-
- - - +
+ +
+
+ + + + + +
+
-
-
> +
+ +
+
- - - - - - - diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 613a70fcd..e6ccc247a 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -13,7 +13,11 @@ Partial Class RH_Asistencias CargaSuperioresOrganigrama() CargaProyecto() CargaTurnos() - TxtFechaAsistencia.Text = Now.ToShortDateString + If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola + divCliente.Visible = False + LblCliente.Visible = False + End If + txtFechaAsistencia.Text = Now.ToShortDateString If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then PnlMasivo.Visible = True CargaTiposPeriodo() @@ -44,36 +48,13 @@ Partial Class RH_Asistencias End Sub #End Region - 'Private Sub CargaClientes() - ' Dim ObjClientes As New ClsClientes - ' If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then - ' DdlCliente.DataSource = ObjClientes.DtResultados - ' Else - ' DdlCliente.DataSource = Nothing - ' End If - ' ObjClientes.Dispose() - ' 'Application("GlobalDTResponsable") - ' DdlCliente.DataBind() - 'End Sub - 'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click - ' 'CargaClientes() - ' 'DdlCliente.Attributes.Remove("onclick") - 'End Sub Private Sub CargaProyecto() - 'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"}) - 'DdlProyecto.DataBind() - CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado) - DivProyectosAsignado1.Visible = LblProyectoAsignado.Visible - DivProyectosAsignado2.Visible = LblProyectoAsignado.Visible + CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado, divProyecto:=DivProyectosAsignado1) - - DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargaSubProyecto() @@ -103,7 +84,6 @@ Partial Class RH_Asistencias dt = dt.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero())) ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then dt = dt.FiltraParametros("CvePersonalPadre IS NULL") - Else End If From 5c3c57288f5617854e31292cf2a3dc847b225edb Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 11 May 2023 13:39:51 -0700 Subject: [PATCH 03/31] - --- RH/Asistencias.aspx | 4 ++-- RH/Asistencias.aspx.vb | 15 ++------------- 2 files changed, 4 insertions(+), 15 deletions(-) diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index 114706a68..c22c41f78 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -41,13 +41,13 @@ Proyecto:
- +
SubProyecto:
- +
diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index e6ccc247a..decb15779 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -29,15 +29,7 @@ Partial Class RH_Asistencias #Region " ORGANIGRAMA " Private Sub CargaSuperioresOrganigrama() - 'Dim ObjRH As New ClsRH - 'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then - ' DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados - 'Else - ' DdlSupervisorOrganigrama.DataSource = Nothing - ' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos") - 'End If - 'ObjRH.Dispose() Using objbase As New ClsRH() If (objbase.SupervisorOrganigramaGet(UsuarioActual.CveEmpresa)) Then DdlSupervisorOrganigrama.DataSource = objbase.DtResultados @@ -45,21 +37,18 @@ Partial Class RH_Asistencias End If End Using - End Sub #End Region - - Private Sub CargaProyecto() - CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado, divProyecto:=DivProyectosAsignado1) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoAsignado, LblSubProyectoAsignado, divProyecto:=DivProyectosAsignado1) End Sub Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub From b2f2f1e389a7bd83354fd5ff1e23be314dcfd5e5 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 12 May 2023 00:25:57 -0700 Subject: [PATCH 04/31] --- App_Code/LogicNominas.vb | 42 ++++++++++++++++++++++++++++------------ Nomina/Nomina.aspx | 3 +++ Nomina/Nomina.aspx.cs | 5 +++++ 3 files changed, 38 insertions(+), 12 deletions(-) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 7033ba0c5..a6894c55c 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -97,7 +97,7 @@ Public Class LogicNominas Dim DtDeducciones As Data.DataTable = Nothing Dim DtOtrosPagos As Data.DataTable = Nothing - Dim DtHorasExtras As Data.DataTable = Nothing + 'Dim DtHorasExtras As Data.DataTable = Nothing Dim TotalPercepciones As Decimal = 0 Dim TotalDeducciones As Decimal = 0 Dim TotalOtrosPagos As Decimal = 0 @@ -253,13 +253,13 @@ Public Class LogicNominas continuar = False End If If Not TimbreIndemnizacion Then - If continuar AndAlso objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then - DtHorasExtras = objNomina.DtResultados - Else - continuar = False - End If + 'If continuar AndAlso objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then + ' DtHorasExtras = objNomina.DtResultados + 'Else + ' continuar = False + 'End If Else - DtHorasExtras = New DataTable() + 'DtHorasExtras = New DataTable() End If If continuar AndAlso objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) AndAlso objNomina.DtResultados.Rows().Count > 0 Then Dim DrPeriodo As DataRow = objNomina.DtResultados.Rows(0) @@ -350,14 +350,32 @@ Public Class LogicNominas .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()}) End If 'RMF, falta poner el numero de horas pagadas - If Row("SATCveConcepto").ToString().ToEntero() = 19 AndAlso DtHorasExtras IsNot Nothing Then 'cuando son horas extras + If Row("SATCveConcepto").ToString().ToEntero() = 19 Then 'cuando son horas extras 'Obtengo el desglose de horas extras - Dim dr As DataRow = DtHorasExtras.FiltroPrimero("") - If dr IsNot Nothing Then - If dr("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) - If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) + 'Dim dr As DataRow = DtHorasExtras.FiltroPrimero("") + 'If dr IsNot Nothing Then + ' If dr("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then + ' ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), + ' .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal()}) + ' End If + ' If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then + ' ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), + ' .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) + ' End If + 'End If + Dim horasextra As Integer = If(Row("ImporteValor").ToString().Replace("-", "").ToEntero() > 0, Row("ImporteValor").ToString().Replace("-", "").ToEntero(), 1) + + Dim diasextra As Integer = (horasextra / 3).ToString().ToEntero() + If Row("CveSistema").ToString().ToEntero() = 12 Then + ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = diasextra.ToString(), + .TipoHoras = "01", .HorasExtra = horasextra, .ImportePagado = Row("Importe").ToString().ToDecimal()}) End If + If Row("CveSistema").ToString().ToEntero() = 13 Then + ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = diasextra.ToString(), + .TipoHoras = "02", .HorasExtra = horasextra, .ImportePagado = Row("Importe").ToString().ToDecimal}) + End If + End If 'subsidio al empleo If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 736b74e64..2fb2225db 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -774,6 +774,9 @@
+
+
+
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index e68a5393f..ec6bea2a6 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -7082,6 +7082,11 @@ public partial class Nomina_Nomina2 : ClsPaginas } } + + if (chkAistenciaRecalcular.Checked) + { + cargaDatos(true); + } } protected void btnasis_Click(object sender, EventArgs e) From 4e0bf2629ff66bf23aa4a20c0eab40292af219fc Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 12 May 2023 19:41:31 -0700 Subject: [PATCH 05/31] -- parametro empresa para indidencias --- App_Code/ClsRH.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index ee95fedd3..03d71dc26 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -314,11 +314,13 @@ Public Class ClsRH #End Region #Region "ClsRHAsistenciasInasistencias" - Public Function GetAsistenciasInasistencias() As Boolean + Public Function GetAsistenciasInasistencias(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_AsistenciasInasistenciasGet") - + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True From 8663069c8549b661b5592009542080f37dba5a87 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 12 May 2023 19:43:21 -0700 Subject: [PATCH 06/31] =?UTF-8?q?--=20recepc=C3=B3n=20-=20columnas=20obser?= =?UTF-8?q?vaciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TraspasoAlmacen.aspx | 42 +++++++++-------------------- Inventarios/TraspasoAlmacen.aspx.vb | 11 +++----- 2 files changed, 17 insertions(+), 36 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 74565624e..4943e8b9c 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -615,30 +615,17 @@
- - - + - - -
- + +
    -
- - - - -
- - - - +
+ - - + @@ -679,25 +666,22 @@ - - <%-- - - --%> + - + - - - - - <%----%> + + + + + diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 11e1f5e05..716fcf3c0 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1491,16 +1491,14 @@ Partial Class Inventarios_TraspasoAlmacen End If CveAlmacenDestino = DdlAlmacenRecepcion.SelectedValue.ToEntero - 'CveUsuarioResponsable = DdlResponsableRecepcion.SelectedValue.ToEntero - GvDatosRecepcion.DataSource = Dtt GvDatosRecepcion.DataBind() 'GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> "" - GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("AplicaSerie") = "True" - GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> "" - GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha - GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0 + GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaSerie") = "True" + GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> "" + GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha + GvDatosRecepcion.Columns(10).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0 'Dt.Dispose() End If @@ -1517,7 +1515,6 @@ Partial Class Inventarios_TraspasoAlmacen DivRealizarDevolucion.Visible = True End If - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then HplImprimirRecepcion.Visible = True HplImprimirRecepcion.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=Alm&CveMovimiento={CveMovimientoTraspaso}&EsTransitorio=True&CveAlmacenRecepcion={DdlAlmacenRecepcion.SelectedValue.ToEntero}&CveAlmacenTransitorioRecepcion={DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero}&FolioBusquedaTrasitorio={FolioBusqueda}")}" From 69b2a7af7471609263f5dce971a12c15e6d374e9 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 13 May 2023 12:46:37 -0700 Subject: [PATCH 07/31] -- cambio en globaldtAsistencias, parametro cveempresa --- App_Code/ClsPaginas.vb | 15 +++-- RH/Asistencias.aspx | 79 ++++++++++++-------------- RH/Asistencias.aspx.vb | 23 ++++---- RH/CatAsistenciasInasistencias.aspx.vb | 11 ++-- RH/ListaAsistenciaRH.aspx.vb | 4 +- RH/RepChecadorPreAsistencia.aspx | 2 +- RH/RepChecadorPreAsistencia.aspx.vb | 18 +++--- 7 files changed, 71 insertions(+), 81 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 908445a59..4816e439d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3537,19 +3537,18 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTAsistenciasInasistencias() As DataTable + Property GlobalDTAsistenciasInasistencias(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTAsistenciasInasistencias" - 'sino existe, recarga los datos + Dim AppNombre As String = $"GlobalDTAsistenciasInasistencias-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetAsistenciasInasistencias() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetAsistenciasInasistencias(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTAsistenciasInasistencias = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTAsistenciasInasistencias" + Dim AppNombre As String = $"GlobalDTAsistenciasInasistencias-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -8231,12 +8230,12 @@ Public Class ClsPaginas If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 295, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 295, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index c22c41f78..4aae019e5 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -98,70 +98,65 @@ -
- - - - -
+ - + - + N° - + Personal - - + Cliente - + - - - + Asistencia - + - + % de Pago - + Hrs Dobles - + Hrs Triples - + Motivo H. Extras - + Obs. - + @@ -171,35 +166,31 @@
+ + + + + + + + + + + + + + + + + + + +
# Notación
1  Sin registrar asistencia
2  Se registró asistencia
3  Se registró asistencia y fue modificada
 - 		- - - - - - - - - - - - - - - - - - - -
# Notación
1  Sin registrar asistencia
2  Se registró asistencia
3  Se registró asistencia y fue modificada
-
+