From 8813429e3d75b4bc0b1699942b87f77256f78b03 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 11:07:29 -0700 Subject: [PATCH 01/13] globaldtsubp --- Inventarios/TrasladoSolicitudOld.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/TrasladoSolicitudOld.aspx.vb b/Inventarios/TrasladoSolicitudOld.aspx.vb index f3870501b..6c0e39898 100644 --- a/Inventarios/TrasladoSolicitudOld.aspx.vb +++ b/Inventarios/TrasladoSolicitudOld.aspx.vb @@ -1153,7 +1153,7 @@ Partial Class Inventarios_TrasladoSolicitudOld Dim SB As New StringBuilder - Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim + Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita, UsuarioActual.CveEmpresa)(0)("Correo").ToString.Trim If CorreoDestino.Length > 0 Then @@ -1193,7 +1193,7 @@ Partial Class Inventarios_TrasladoSolicitudOld Dim SB As New StringBuilder - Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim + Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza, UsuarioActual.CveEmpresa)(0)("Correo").ToString.Trim If CorreoDestino.Length > 0 Then From 30e0decf3efe5b1d3d642e0d19b1fb405ca304f6 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 11:08:02 -0700 Subject: [PATCH 02/13] =?UTF-8?q?--=20aqui=20aplica=20el=20GlobalDTUsuario?= =?UTF-8?q?s(-1,=20-1)=20,=20=C3=BAnico=20lugar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/PopUpSeleccionarEmpresa.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb index 7a25e1e90..fd4dd7351 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb @@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa End Sub Private Sub GetEmpresas() - GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing - Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + GlobalDTUsuarios(-1, -1) = Nothing + Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, -1) If Dt IsNot Nothing Then If Dt.Rows.Count > 0 Then From 934d00e2352b9181b832a51d2e5bf24b4f46243d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 15:50:25 -0700 Subject: [PATCH 03/13] -- cambios GlobalDTSubPr --- App_Code/ClsOC.vb | 5 +++-- App_Code/ClsPaginas.vb | 16 +++++----------- Bancos/RepProgramarRecursos.aspx.vb | 2 +- Compras/Compras.aspx.vb | 19 ++++++++++++------- Contratos/Contrato.vb | 2 +- Contratos/ContratoObra.aspx.vb | 10 +--------- OC/OC.aspx.vb | 4 ++-- OC/OC2.aspx.vb | 2 +- OC/PopUpBuscarReq.aspx.vb | 2 +- OC/RepRequisiciones.aspx.vb | 2 +- OS/OrdenesServicios.aspx.vb | 9 --------- RH/AsistenciaDetalle.aspx.vb | 2 +- RH/CatPersonalRequerido.aspx.vb | 2 +- Transportes/RepContratos.aspx.vb | 27 ++++++++++++++------------- 14 files changed, 44 insertions(+), 60 deletions(-) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index aca7aa3b2..3fb0c1389 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1143,13 +1143,14 @@ Public Class ClsOC Return Retorno End Function - Public Function GetOrdenesDetalle(pCveOrdenCompra As Integer) As Boolean + Public Function GetOrdenesDetalle(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraDetalleGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4691356e8..3f05b8931 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1331,7 +1331,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable + Public Shared Property GlobalDTUnidadesMedida(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTUnidadesMedida-{CveEmpresa}" 'sino existe, recarga los datos @@ -1347,7 +1347,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTUnidadesMedidaAlias(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTUnidadesMedidaAlias-{CveEmpresa}" 'sino existe, recarga los datos @@ -2411,7 +2411,7 @@ Public Class ClsPaginas End Set End Property - Property GlobalDTTipoVenta(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTTipoVenta(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTTipoVenta-{CveEmpresa}" 'sino existe, recarga los datos @@ -4426,7 +4426,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTVtaCondicionesEntrega(Optional CveEmpresa As Integer = -1) As DataTable + Public Shared Property GlobalDTVtaCondicionesEntrega(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTVtaCondicionesEntrega-{CveEmpresa}" 'sino existe, recarga los datos @@ -7725,7 +7725,7 @@ Public Class ClsPaginas End If ObjEmpresa.Dispose() Dim dtOC As DataTable = ObjOC.DtResultados - If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra) Then 'Obtenemos el Detalle de la Oorden de Compra + If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra, ObjOC.CveEmpresa) Then 'Obtenemos el Detalle de la Oorden de Compra DtDetalle = ObjOC.DtResultados End If @@ -7795,15 +7795,9 @@ Public Class ClsPaginas params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir)) End If - End If - - End If - - - Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC) diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 9d85caa3c..dfdd7142d 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -191,7 +191,7 @@ Partial Class Bancos_RepProgramarRecursos Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero DdlSubProyecto.SelectedValue = CveSubProyecto.ToString - DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, UsuarioActual.CveEmpresa, -1, 1) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProy) DdlSubProyecto.DataBind() End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e178be666..837b97bbf 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10669,7 +10669,7 @@ Partial Class Compras_Compras 'RegistraScript(String.Format("$get('TxtOC').value = '{0}';tb_remove;", OC.Folio)) RegistraScript("tb_remove();") - If OC.GetOrdenesDetalle(CveOC) Then + If OC.GetOrdenesDetalle(CveOC, UsuarioActual.CveEmpresa) Then dt = OC.DtResultados End If End If @@ -11087,7 +11087,7 @@ Partial Class Compras_Compras Dim CveProyecto As Integer = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1) gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Clear() If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then - gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) End If gvRow.FCDropDownList("DdlSubProyectoPersonal").DataBind() gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -11143,7 +11143,7 @@ Partial Class Compras_Compras e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, e.Row.DBCampo("CveProyecto").ToEntero, UsuarioActual.CveEmpresa, -1, 1), - GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=e.Row.DBCampo("CveProyecto").ToEntero)) End If e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind() @@ -14341,7 +14341,7 @@ Partial Class Compras_Compras Dim StrPromos As New StringBuilder For Each CveOCItem As String In ArrayCveOC.Distinct - If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then + If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then If IsNothing(DTOCTemp) Then DTOCTemp = ObjOC.DtResultados.Copy Else @@ -14583,9 +14583,14 @@ Partial Class Compras_Compras TmpDT = TmpDT.FiltraParametros("", "PU") - GvOC2.DataSource = TmpDT GvOC2.DataBind() + 'condicion temporal rmf + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + GvOC1.Columns(6).Visible = False + GvOC2.Columns(4).Visible = False + End If + UpGvOC2.Update() End Sub Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound @@ -17195,7 +17200,7 @@ Partial Class Compras_Compras CveProyecto = -1 End If - DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -17924,7 +17929,7 @@ Partial Class Compras_Compras Private Sub CargaSubProyectoAsignado() DdlAsignaSubProyecto.Items.Clear() If DdlAsignarProyecto.SelectedValue.ToEntero > 0 Then - DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlAsignarProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlAsignarProyecto.SelectedValue.ToEntero)) End If DdlAsignaSubProyecto.DataBind() DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/Contratos/Contrato.vb b/Contratos/Contrato.vb index 9e0faaffb..382d550c6 100644 --- a/Contratos/Contrato.vb +++ b/Contratos/Contrato.vb @@ -835,7 +835,7 @@ Partial Class Contratos_Default End Sub Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) DdlSubProyectoContrato.Items.Clear() - DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) + DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) DdlSubProyectoContrato.DataBind() DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) End Sub diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index d0deb8ccf..ac3ae3950 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1263,15 +1263,7 @@ Partial Class Contratos_ContratoObra ' DdlProyecto.DataBind() 'End If End Sub - 'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged - ' CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) - 'End Sub - 'Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) - ' DdlSubProyectoContrato.Items.Clear() - ' DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) - ' DdlSubProyectoContrato.DataBind() - ' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) - 'End Sub + Private Sub CargaContratista() DdlContratista.setEsWebService(True) DdlContratista.Attributes.Add("data-metodo", "getproveedores") diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fe1dae599..269cc9922 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1686,7 +1686,7 @@ Partial Class OC_OC CboE.DataBind() End If - If objOC.GetOrdenesDetalle(pCveOrdenCompra) Then + If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.cveempresa) Then DtDetalle = objOC.DtResultados End If @@ -2043,7 +2043,7 @@ Partial Class OC_OC End Sub Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer) DdlSP.Items.Clear() - DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit) + DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) DdlSP.DataBind() DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub diff --git a/OC/OC2.aspx.vb b/OC/OC2.aspx.vb index e680ffd60..c6224001d 100644 --- a/OC/OC2.aspx.vb +++ b/OC/OC2.aspx.vb @@ -795,7 +795,7 @@ Partial Class OC End Sub Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer) DdlSP.Items.Clear() - DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit) + DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) DdlSP.DataBind() DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb index 2fbbf1989..23ef40fde 100644 --- a/OC/PopUpBuscarReq.aspx.vb +++ b/OC/PopUpBuscarReq.aspx.vb @@ -129,7 +129,7 @@ Partial Class OC_PopUpBuscarReq Private Sub CargaSubProyectos(CveProyecto As Integer) DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), - GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb index cfbbd1ffd..e980329db 100644 --- a/OC/RepRequisiciones.aspx.vb +++ b/OC/RepRequisiciones.aspx.vb @@ -80,7 +80,7 @@ Partial Class OC_RepRequisiciones DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) Else - DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, Estatus:=1) + DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) DdlSubProyecto.DataBind() End If diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 2454d6adb..34a55b6bd 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -500,16 +500,7 @@ Partial Class OS_OrdenesServicios End If UpDetalleOS.Update() End Sub - 'Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs) - ' Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow) - ' Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue - ' gvr.FCDropDownList("DDlSubProyecto").Items.Clear() - ' gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero) - ' gvr.FCDropDownList("DDlSubProyecto").DataBind() - ' gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) - - 'End Sub Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs) Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList) Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero diff --git a/RH/AsistenciaDetalle.aspx.vb b/RH/AsistenciaDetalle.aspx.vb index 465da36b1..605a96f0a 100644 --- a/RH/AsistenciaDetalle.aspx.vb +++ b/RH/AsistenciaDetalle.aspx.vb @@ -200,7 +200,7 @@ Partial Class RH_AsistenciaDetalle Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").Items.Clear() - GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"}) + GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"}) GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataBind() End Sub diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index b60a418ae..883413cdf 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -87,7 +87,7 @@ Partial Class RH_CatPersonalRequerido SubProyectoDdl.Items.Clear() SubProyectoDdl.SelectedValue = Nothing If CveProyecto > 0 Then - SubProyectoDdl.DataSource = GlobalDTSubProyectos(CveProyecto) + SubProyectoDdl.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto) End If SubProyectoDdl.DataBind() SubProyectoDdl.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1")) diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index aac3a871c..7c80c0c08 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -166,22 +166,23 @@ Partial Class ListadoContratos End If Anexo.Text = "" - If ErrorProceso = False Then + 'If ErrorProceso = False Then - Dim Respuesta As New RespuestaFacturacion() - Dim CvePS As Integer = 907783 - Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL) + ' Dim Respuesta As New RespuestaFacturacion() + ' Dim CvePS As Integer = 907783 + ' Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL) - If Respuesta.CveVenta > 0 Then - CveVentaRemision = Respuesta.CveVenta - SerieFolioRemision = Respuesta.SerieFolio - ErrorProceso = False - Else - ErrorProceso = True - Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) - End If + ' If Respuesta.CveVenta > 0 Then + ' CveVentaRemision = Respuesta.CveVenta + ' SerieFolioRemision = Respuesta.SerieFolio + ' ErrorProceso = False + ' Else + ' ErrorProceso = True + ' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) + ' End If + + 'End If - End If Else ErrorProceso = True From 6f054204c04e354b5b615a8c5d4e38811b527af5 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 15:50:54 -0700 Subject: [PATCH 04/13] - --- asmx/WSSIGApp.asmx | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx index ef72b62e9..f17a9af4c 100644 --- a/asmx/WSSIGApp.asmx +++ b/asmx/WSSIGApp.asmx @@ -2449,7 +2449,7 @@ Public Class WSSIGApp If CveEstatusFinalOK > 0 AndAlso CveEstatusFinalOK = Ent.CveEstatus Then Dim IDPolizaPresupuestal = ObjOC.IdPoliza - If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then + If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then DtDetalle = ObjOC.DtResultados.Copy Dim ObjConta As ClsContPAQi = Nothing Retorno = Not GeneraOrdenes(FolioOCGeneradas, ObjConta, ObjOC, DtOC.Rows(0), DtDetalle, Ent.CveUsuario, Ent.CveEmpresa, IDPolizaPresupuestal, UsaAC, DtPresupuestos) @@ -2679,7 +2679,7 @@ Public Class WSSIGApp Dim jarray As JArray = JArray.Parse(ObjOC.DtResultados.ToJson) Dim json As JObject = jarray.Children(Of JObject).FirstOrDefault() If json IsNot Nothing Then - If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then + If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then json.Add(New JProperty("Detalle", JArray.Parse(ObjOC.DtResultados.ToJson))) End If Retorno = Encripta(json.ToString) @@ -2700,13 +2700,14 @@ Public Class WSSIGApp Dim Estructura = New With { Key .[CveOrdenCompra] = -1, + Key .[CveEmpresa] = -1, Key .[Ticks] = "" } Dim JsonRequest As String = Decripta(Cadena) Dim Entrada = JsonConvert.DeserializeAnonymousType(JsonRequest, Estructura) If IsCurrentDate(Entrada.Ticks) Then Dim ObjOC As New ClsOC - If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then + If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then Dim JsonRetorno = ObjOC.DtResultados.ToJson retorno = Encripta(JsonRetorno) End If @@ -2871,7 +2872,7 @@ Public Class WSSIGApp If ObjOC.AddCotizacion(Ent.CveOrdenCompra, Ent.CveProveedor, Ent.CveColectiva, "-1", "-1", "", 1, 0, 0) Then CveCotizacion = ObjOC.CveCotizacion 'Cargar los detalles de la cotizacion - If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then + If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then 'Agrega CveCotizacion a la lista For Each RowCD As DataRow In ObjOC.DtResultados.Rows @@ -3221,7 +3222,7 @@ Public Class WSSIGApp Dim dtConceptos As DataTable = Nothing Dim ObjOCdb As New ClsOC - If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra) Then + If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra, CveEmpresa) Then dtConceptos = ObjOCdb.DtResultados End If @@ -3320,7 +3321,7 @@ Public Class WSSIGApp 'verifico los permisos según el estatus - If objOC.GetOrdenesDetalle(CveOrdenCompra) Then + If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then For Each dr As DataRow In objOC.DtResultados.Rows strBody.AppendFormat("{0}{1}{2}
{3}{4}{5}
{6}{7}{8}{9}", dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), "")) From 0a938008e7a392e622f0cc20f8f26ccbe9275e7c Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 19:44:30 -0700 Subject: [PATCH 05/13] -- mejora --- Compras/Compras.aspx | 8 +++--- Compras/Compras.aspx.vb | 62 ++++++++++++++++++++++------------------- 2 files changed, 37 insertions(+), 33 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index b7975235e..8a87f6cbb 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1885,10 +1885,10 @@
- + - - + + @@ -1896,7 +1896,7 @@
- + Clasificación diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 837b97bbf..73fb13dfd 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1647,15 +1647,10 @@ Partial Class Compras_Compras DdlTipoComprobante.SelectedValueExist("DEV") End If - - If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then - - ConfiguraseleccionRemisionNotaCredito() - End If End If @@ -7693,7 +7688,6 @@ Partial Class Compras_Compras End If End If - If Not TieneError Then ObjCompras.Commit() If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() @@ -7735,7 +7729,7 @@ Partial Class Compras_Compras Else ObjCompras.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() - Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError) + Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError) End If @@ -13491,7 +13485,7 @@ Partial Class Compras_Compras CargaGVsAF() CargaTipoCentroCostoOC() - GvOC1.DataSource = DTOCTemp + GvOC1.DataSource = DTOCTemp.FiltraParametros("", "CodigoPS") Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"}) If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then @@ -13502,7 +13496,7 @@ Partial Class Compras_Compras GvOC1.DataBind() ' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT) - GvOC2.DataSource = TmpDT + GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS") GvOC2.DataBind() UpGvOC1.Update() @@ -14547,24 +14541,10 @@ Partial Class Compras_Compras CargaTipoCentroCostoOC() - GvOC1.DataSource = DTOCGV + GvOC1.DataSource = DTOCGV.FiltraParametros("", "CveOrdenCompra, CodigoPS") GvOC1.DataBind() - 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO - If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then - For Each Gvr As GridViewRow In GvOC1.Rows - Dim Change As Boolean = False - For Each Dr2 As DataRow In TmpDT.Rows - If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then - Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString - Change = True - End If - Next - If Not Change Then - Gvr.FCTextBox("TxtCantidad").Text = "0" - End If - Next - End If + Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"}) If DTCVEOGV.Rows.Count > 1 Then @@ -14578,15 +14558,39 @@ Partial Class Compras_Compras RegistraScript($"CalculaTotalOCEdit('{ gvr.DataKey("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ") }', {gvr.DataKey("Cantidad").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}") Cont += 1 Next - UpGvOC1.Update() - - TmpDT = TmpDT.FiltraParametros("", "PU") + TmpDT = TmpDT.FiltraParametros("", "CodigoPS") GvOC2.DataSource = TmpDT GvOC2.DataBind() - 'condicion temporal rmf + + 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + For Each Gvr As GridViewRow In GvOC1.Rows + Dim Change As Boolean = False + For Each Dr2 As DataRow In TmpDT.Rows + If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then + Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString + Change = True + End If + Next + If Not Change Then + Gvr.FCTextBox("TxtCantidad").Text = "" + End If + Next + 'detectar los ps que no están en la OC, códigos que no están en la OC + 'mostrar los ps que no están en la oc + Dim strMsg As New StringBuilder + For Each Gvr As GridViewRow In GvOC2.Rows + Dim i As Integer = DTOCGV.FiltraParametros($"CvePS = '{Gvr.DataKey("CvePS")}'").Rows.Count + If i = 0 Then + strMsg.AppendFormat("- {0}
", Gvr.DataKey("CodigoPS")) + Gvr.BackColor = Drawing.Color.Red + End If + Next + If strMsg.Length > 0 Then Alert("Los siguientes productos facturados no están en la Orden de compra
" & strMsg.ToString, TipoMensaje.MsgAdvertencia) + + 'condicion temporal rmf GvOC1.Columns(6).Visible = False GvOC2.Columns(4).Visible = False End If From 19aba02fb621e4ce7715448e2bdca4a4934fce7f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 19:44:55 -0700 Subject: [PATCH 06/13] -- mejoras de GlobalDT --- Inventarios/Equivalencia.aspx.vb | 4 ++-- OC/CotizacionEnvio.aspx.vb | 4 ++-- OC/OC.aspx | 16 ++++++---------- OC/OC.aspx.vb | 19 ++++++++++++------- OC/RepCotizacionesDetalle.aspx.vb | 2 +- OS/OrdenesServicios.aspx.vb | 2 +- OS/PopUpMateriales.aspx.vb | 2 +- Planeacion/CatSubProyectos.aspx.vb | 2 +- Presupuestos/GenerarPresupuestos.aspx.vb | 6 +++--- Sistemas/CatSesiones.aspx.vb | 2 +- Ventas/ProductosServicios.aspx.vb | 2 +- 11 files changed, 31 insertions(+), 30 deletions(-) diff --git a/Inventarios/Equivalencia.aspx.vb b/Inventarios/Equivalencia.aspx.vb index c357c49f5..9844c5684 100644 --- a/Inventarios/Equivalencia.aspx.vb +++ b/Inventarios/Equivalencia.aspx.vb @@ -29,7 +29,7 @@ Partial Class Inventarios_Equivalencia Private Sub InicializarListas() 'Llenar el dropdownlist de unidad de medida - ddlUnidad.DataSource = GlobalDTUnidadesMedida() + ddlUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlUnidad.DataBind() @@ -245,7 +245,7 @@ Partial Class Inventarios_Equivalencia Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida() + e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida") e.Row.FCDropDownList("ddlEUnidad").DataBind() End If diff --git a/OC/CotizacionEnvio.aspx.vb b/OC/CotizacionEnvio.aspx.vb index 8fc084c94..2636302f6 100644 --- a/OC/CotizacionEnvio.aspx.vb +++ b/OC/CotizacionEnvio.aspx.vb @@ -230,7 +230,7 @@ Partial Class OC_CotizacionEnvio If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, CveColectiva, "-1", "-1", "", 1, 0, 0) Then 'Cargar los detalles de la cotizacion - If objCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then + If objCotizacion.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then 'Agrega CveCotizacion a la lista OrdenCotizacion.Add(objCotizacion.CveCotizacion) For Each RowCD As DataRow In objCotizacion.DtResultados.Rows @@ -397,7 +397,7 @@ Partial Class OC_CotizacionEnvio 'verifico los permisos según el estatus Dim dtConceptos As DataTable = Nothing - If objOC.GetOrdenesDetalle(CveOrdenCompra) Then + If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then dtConceptos = objOC.DtResultados End If diff --git a/OC/OC.aspx b/OC/OC.aspx index dd6c99ce1..88f22bc33 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -212,7 +212,8 @@ - + +
@@ -220,6 +221,9 @@ + + +
@@ -446,15 +450,7 @@ - - - Sucursal: - - - - - - +
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 269cc9922..419e71f4c 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -728,7 +728,7 @@ Partial Class OC_OC 'temporal If UsuarioActual.CveEmpresa = 189 Then 'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) - DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto") + DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"}) DdlSubProyectoGral.DataBind() DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto) End If @@ -957,8 +957,11 @@ Partial Class OC_OC End If End If - If UsuarioActual.CveRol = 1 Then + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then chkSubProyectoEntrega.Visible = True + LblPrioridad.Text = "Sucursal" + DdlPrioridad.Visible = False + DdlSubProyectoGral.Visible = True End If End If @@ -4956,7 +4959,7 @@ Partial Class OC_OC End If End Sub Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click - Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim) + Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim, UsuarioActual.CveEmpresa) RegistraScript("hideDivEC();") End Sub #End Region @@ -6428,7 +6431,7 @@ Partial Class OC_OC 'verifico los permisos según el estatus - If objOC.GetOrdenesDetalle(CveOrdenCompra) Then + If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then For Each dr As DataRow In objOC.DtResultados.Rows strBody.AppendFormat("{0}{1}{2}
{3}{4}{5}
{6}{7}{8}{9}", dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), "")) @@ -6470,7 +6473,7 @@ Partial Class OC_OC objOC.GetOC(CveOrdenCompra, CveEmpresaActual) CveProveedor = objOC.CveProveedor Dim DttDetalle As DataTable = Nothing - If objOC.GetOrdenesDetalle(CveOrdenCompra) Then + If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then DttDetalle = objOC.DtResultados End If @@ -6567,7 +6570,7 @@ Partial Class OC_OC #End Region #Region "Correo Eliminar Cotización" - Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String) As String + Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String, CveEmpresaActual As Integer) As String Dim ObjCotizacion As New ClsOC ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion) Dim strBody As New StringBuilder @@ -6650,7 +6653,7 @@ Partial Class OC_OC strBody.Append(" ") Dim dtConceptos As DataTable = Nothing - If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then + If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then dtConceptos = ObjCotizacion.DtResultados End If @@ -9282,6 +9285,8 @@ Partial Class OC_OC End Sub Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs) + DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue) + UPPDetalle.Update() CargaFolios() End Sub End Class diff --git a/OC/RepCotizacionesDetalle.aspx.vb b/OC/RepCotizacionesDetalle.aspx.vb index 29e725848..c4598de88 100644 --- a/OC/RepCotizacionesDetalle.aspx.vb +++ b/OC/RepCotizacionesDetalle.aspx.vb @@ -131,7 +131,7 @@ Partial Class PopOCCotizacionesDetalle Private Sub CargaOCDetalle(pCveOrden As Integer) Dim objOC As New ClsOC - If objOC.GetOrdenesDetalle(pCveOrden) Then + If objOC.GetOrdenesDetalle(pCveOrden, UsuarioActual.CveEmpresa) Then DtDetalle = objOC.DtResultados End If diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 34a55b6bd..5fba840c0 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -474,7 +474,7 @@ Partial Class OS_OrdenesServicios End Sub Private Sub CargaTiposVenta() - DdlTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ") + DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlTipoVenta.DataBind() End Sub diff --git a/OS/PopUpMateriales.aspx.vb b/OS/PopUpMateriales.aspx.vb index c2ea18ead..003610457 100644 --- a/OS/PopUpMateriales.aspx.vb +++ b/OS/PopUpMateriales.aspx.vb @@ -127,7 +127,7 @@ Partial Class OS_PopUpMateriales Dim RowPS As DataRow = DTPS.FiltraParametros("CvePS = " & Material("CvePS").ToString).Rows(0) Dim PS As String = RowPS("PS").ToString Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero - Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString + Dim UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index 296551dc9..f6d48d7ac 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -102,7 +102,7 @@ Partial Class CatSubProyectos Private Sub RecargaGlobal() GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing - GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing End Sub diff --git a/Presupuestos/GenerarPresupuestos.aspx.vb b/Presupuestos/GenerarPresupuestos.aspx.vb index 0b60ba2bd..2aa6266d6 100644 --- a/Presupuestos/GenerarPresupuestos.aspx.vb +++ b/Presupuestos/GenerarPresupuestos.aspx.vb @@ -202,7 +202,7 @@ Partial Class Presupuestos_GenerarPresupuestos ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1")) ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1")) - ddlPUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) + ddlPUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlPUM.DataBind() Dim ObjClientes As New ClsClientes @@ -506,7 +506,7 @@ Partial Class Presupuestos_GenerarPresupuestos Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble tbPrecioMO.Text = PU.ToString - ddlMOUnidad.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) + ddlMOUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlMOUnidad.DataBind() End If @@ -550,7 +550,7 @@ Partial Class Presupuestos_GenerarPresupuestos If ddlPS.SelectedIndex > 0 Then Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble tbPrecio.Text = PU.ToString - ddlUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) + ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlUM.DataBind() End If End Sub diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index e2e34b308..2d0ad96bd 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -591,7 +591,7 @@ Partial Class Sistemas_CatSesiones Case "" dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) Case Else - dt = DirectCast(Application(DdlVariable.SelectedValue & UsuarioActual.CveEmpresa), DataTable) + dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable) End Select Gv.DataSource = dt diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 2266011ad..b3a35cb8a 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1319,7 +1319,7 @@ Partial Class ProductosyServicios #Region "GV PAQUETE DETALLE" Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida() + e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida") e.Row.FCDropDownList("ddlEUnidad").DataBind() End If From 8a7723f586d1e1355aa76020a351060f5567dbd6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 1 Aug 2024 20:26:23 -0700 Subject: [PATCH 07/13] Solicitudes de traspaso de Almacen validar entre usuarios, enviar a praspaso --- Inventarios/TrasladoSolicitud.aspx | 60 +++++++++++++++++++-------- Inventarios/TrasladoSolicitud.aspx.vb | 37 ++++++++++++++--- Inventarios/TraspasoAlmacen.aspx.vb | 17 ++++++++ 3 files changed, 90 insertions(+), 24 deletions(-) diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 6b3d73883..86527b08b 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -77,16 +77,15 @@ - + DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMomientoEntrada" > - - - - - - <%----%> + + + + + @@ -96,11 +95,33 @@ - + <%-- - +
+
+ +
+
+ +
+
- + --%> + + +
+
+ +
+
+ +
+
+
+ + + + @@ -145,31 +166,34 @@ ErrorMessage="ERROR:
El campo ''Almacén Destino'' es necesario, por favor ingréselo." ValidationGroup="GrpGeneraSolictud">
- +
-
+
-
+
+
+ +
-
+ <%--
- <%----%> - + +
-
+
--%>
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 763e669aa..58021989a 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -83,7 +83,7 @@ Partial Class Inventarios_TrasladoSolicitud Private Sub CargaAlmacenes() 'Cargo los almacenes - DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado + DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado 'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) @@ -111,11 +111,11 @@ Partial Class Inventarios_TrasladoSolicitud End Sub Private Sub CargaCombos() - DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") + DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") DdlAlmacenOrigenFiltro.DataBind() DdlAlmacenOrigenFiltro.Items.Insert(0, New ListItem("Todos", "-1")) - DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") + DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") DdlAlmacenDestinoFiltro.DataBind() DdlAlmacenDestinoFiltro.Items.Insert(0, New ListItem("Todos", "-1")) @@ -357,6 +357,9 @@ Partial Class Inventarios_TrasladoSolicitud Protected Sub LnkAgregarSolicitud_Click(sender As Object, e As EventArgs) + GvSolicitudes.DataSource = Nothing + GvSolicitudes.DataBind() + UpModalSolicitudes.Update() RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd")) End Sub @@ -397,7 +400,7 @@ Partial Class Inventarios_TrasladoSolicitud Protected Sub BtnAceptarSolicitud_Click(sender As Object, e As EventArgs) - Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero + Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 3").FiltroPrimeroValor("CveAlmacen").ToEntero 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero If Not CveAlmacenTransictorio > 0 Then Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia) @@ -674,15 +677,37 @@ Partial Class Inventarios_TrasladoSolicitud If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False) + Dim PermisoOrigen As Boolean = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False) + Dim PermisoDestino As Boolean = If(e.Row.DataKey("PermisoDestino").ToEntero = 1, True, False) + + Dim CveMovimientoAlmacen As Integer = e.Row.DataKey("CveMovimientoAlmacen").ToEntero + Dim FolioMovimiento As Integer = e.Row.DataKey("FolioMovimiento").ToEntero + Dim CveAlmacenDestino As Integer = e.Row.DataKey("CveAlmacenDestino").ToEntero + Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero + Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero + + Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso + + e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue" e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info" + e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = PermisoOrigen + Else If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green" + + e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green" + + If CveMovimientoAlmacen > 0 AndAlso PermisoDestino AndAlso CveMomientoEntrada <= 0 Then + e.Row.FCHyperLink("HypRecibeTraspaso").Visible = True + e.Row.FCHyperLink("HypRecibeTraspaso").NavigateUrl = $"~/Inventarios/TraspasoAlmacen.aspx?CveAlmacenTransitorioR={CveAlmacenTransitorio}&FolioR={FolioMovimiento}&CveAlmacenDestinoR={CveAlmacenDestino}" + End If + + Else e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red" @@ -702,7 +727,7 @@ Partial Class Inventarios_TrasladoSolicitud DdlAlmacenDestino.SelectedValue = Nothing DdlAlmacenDestino.Items.Clear() - DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}") + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen = 1 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}") DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) UpPS.Update() diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 852727307..097f0c324 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -236,6 +236,10 @@ Partial Class Inventarios_TraspasoAlmacen ImgFechaRecepcion.Visible = False End If + If Request("CveAlmacenTransitorioR") IsNot Nothing Then + CargaRecepcionTraspaso() + End If + Else If ChkTransitorio.Checked Then RegistraScript(" $('#DivGastoIndirecto').show(0); ") @@ -245,6 +249,19 @@ Partial Class Inventarios_TraspasoAlmacen End If End Sub + Private Sub CargaRecepcionTraspaso() + Tab.ActiveTabIndex = 1 + Dim CveAlmacenTransitorioR = If(Request("CveAlmacenTransitorioR") IsNot Nothing AndAlso Request("CveAlmacenTransitorioR").ToEntero > 0, Request("CveAlmacenTransitorioR").ToEntero, -1) + Dim FolioR = If(Request("FolioR") IsNot Nothing AndAlso Request("FolioR").ToEntero > 0, Request("FolioR").ToEntero, -1) + Dim CveAlmacenDestinoR = If(Request("CveAlmacenDestinoR") IsNot Nothing AndAlso Request("CveAlmacenDestinoR").ToEntero > 0, Request("CveAlmacenDestinoR").ToEntero, -1) + + DdlAlmacenRecepcion.SelectedValueExist(CveAlmacenDestinoR) + DdlAlmacenTransitorioRecepcion.SelectedValueExist(CveAlmacenTransitorioR) + TxtFolioRecepcion.Text = FolioR.ToString + + CargaRecepcion() + End Sub + #Region "CARGA DATOS" Protected Sub CreaDT() Dim dt As New DataTable From 942d9f2b8930503ca3356452564572fa314f9b16 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 2 Aug 2024 02:18:01 -0700 Subject: [PATCH 08/13] --- App_Code/ClsNominas.vb | 6 +- App_Code/ClsPaginas.vb | 15 + App_Code/modExtensiones.vb | 15 + Nomina/Nomina.aspx | 568 ++++++++------------ Nomina/Nomina.aspx.cs | 316 ++++++++--- Ventas/RepProductosServiciosDetalle.aspx | 15 +- Ventas/RepProductosServiciosDetalle.aspx.vb | 4 +- 7 files changed, 517 insertions(+), 422 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 767eee53e..1271c926b 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3305,7 +3305,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer + Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1, Optional EsAcumulado As Integer = 0) As Integer Dim retorno As Integer = 0 DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) @@ -3321,6 +3321,7 @@ Public Class ClsNominas .Add("@estatus", SqlDbType.Bit).Value = (estatus) .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta) .Add("@CveIE", SqlDbType.Int).Value = (CveIE) + .Add("@EsAcumulado", SqlDbType.Int).Value = (EsAcumulado) .Add("@CveMovtoPermanente", SqlDbType.Int).Direction = ParameterDirection.Output End With Try @@ -3335,7 +3336,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer) As Boolean + Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional EsAcumulado As Integer = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters @@ -3350,6 +3351,7 @@ Public Class ClsNominas .Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion) .Add("@estatus", SqlDbType.Bit).Value = (estatus) .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta) + .Add("@EsAcumulado", SqlDbType.Int).Value = (EsAcumulado) End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c1ae046c4..c85797b27 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8141,6 +8141,7 @@ Public Class ClsPaginas Return Nothing End If Dim CveNomina As Integer = ObjNomina.CveNomina + Dim RFCPackCertifica As String = "" Dim DTPercepciones As Data.DataTable Dim DTDeducciones As Data.DataTable Dim DTDeducciones2 As New Data.DataTable @@ -8171,8 +8172,18 @@ Public Class ClsPaginas If System.IO.File.Exists(PathXML) Then Dim XmlDoc As New System.Xml.XmlDocument 'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml") + + Dim timbreFiscal = (XDocument.Load(PathXML)).Descendants(). + Where(Function(e) e.Name.LocalName = "TimbreFiscalDigital"). + FirstOrDefault() + + If timbreFiscal IsNot Nothing Then + RFCPackCertifica = timbreFiscal.Attribute("RfcProvCertif")?.Value + Else + End If XmlDoc.Load(PathXML) + If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText @@ -8414,6 +8425,10 @@ Public Class ClsPaginas Dim Archivo As New System.IO.FileInfo(RutaFormato) If Not TieneError Then If Archivo.Exists Then + If Extensiones.ModExtensiones.HasReportParameter(RutaFormato, "RFCPackCertifica") Then + RptParametro.Add(New ReportParameter("RFCPackCertifica", RFCPackCertifica)) + + End If Retorno = StreamPDF(RutaFormato, LSRds, RptParametro, ObjNomina.SerieFolio, "PDF", MR:=Nothing) Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\\{1}.pdf", RutaEmpresa, ObjNomina.SerieFolio)) If Not ArchivoPDF.Exists Then diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 10d354956..4e5d0a0fb 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -30,6 +30,7 @@ Namespace Extensiones #Region "E X T E N S I O N E S" Public Module ModExtensiones + Public ReadOnly Property foreign_characters As Dictionary(Of String, String) Get Dim fgk As Dictionary(Of String, String) = New Dictionary(Of String, String) From { @@ -3771,6 +3772,20 @@ Namespace Extensiones text = str.Replace("&", "&") Return text + End Function + + + Function HasReportParameter(reportPath As String, parameterName As String) As Boolean + ' Leer el archivo .rdlc como XML + Dim rdlcDoc As XDocument = XDocument.Load(reportPath) + + ' Buscar el parámetro en el XML + Dim parameters = From e In rdlcDoc.Descendants() + Where e.Name.LocalName = "ReportParameter" + Select e.Attribute("Name").Value + + ' Verificar si existe el parámetro RFCPackCertifica + Return parameters.Contains(parameterName) End Function End Module #End Region diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 4b3d3ab11..49396092f 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -794,6 +794,8 @@
+
+
@@ -814,11 +816,7 @@
- - - Guardar - - + Guardar
@@ -1390,7 +1388,7 @@ + DataKeyNames="CveMovtoPermanente,CveConcepto,CveCuenta,CvePersonal,Descripcion,MontoLimiteV,TipoDescuento,Valor,VecesAplicar,MontoLimite,EsAcumulado,FechaInicioAplicacion,Estatus,FechaRegistro"> @@ -1419,7 +1417,7 @@ + CssClass="lnkMovotPermanente" runat="server" Text='<%# Eval("MontoLimiteV","{0:###,###.##}")%>'> @@ -1444,6 +1442,8 @@
+ + @@ -2182,6 +2182,207 @@ + + <%----%> @@ -4359,132 +4560,7 @@ - <%-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - showResult - - --%> + @@ -5101,7 +5177,7 @@ - + -
+
-
+
@@ -5130,24 +5206,24 @@
- +
-
- +
+
- - - - + + + + - +
- +
-
+
@@ -5156,7 +5232,7 @@ --%> - +
@@ -5166,7 +5242,7 @@ DataTextField="Columna" DataValueField="ColumnaDB" ValidationGroup="GrpGuardarOrder"> - +
@@ -5205,202 +5281,6 @@
- diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 89721786b..678a3bca4 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -40,7 +40,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } set { ViewState["DtNomOcultarMostrar"] = value; } } - + private DataTable DtNomPersonalizarxls { get @@ -2642,10 +2642,92 @@ public partial class Nomina_Nomina2 : ClsPaginas }//ImgDelete protected void LnkReenviarCorreoSobreRecibo_Click(object sender, EventArgs e) { + + //string msggral = ""; + int CvePeriodo = 0; + ClsSisMail Mail = new ClsSisMail(); + DataTable dtpersonal = new DataTable(); + DataRow drow; + using (ClsRH objrh = new ClsRH()) + { + objrh.GetPersonal(-1, UsuarioActual.CveEmpresa); + dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "Correo", "NombreCompleto" }); + } + using (ClsRH objrh = new ClsRH()) + using (ClsNominas ObjNomina = new ClsNominas()) + { + foreach (GridViewRow gvRow in GvNominas.Rows) + { + CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero(); + int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero(); + int CveNomina = gvRow.DataKey("CveNomina").ToEntero(); + int SeTimbro = (gvRow.DataKey("SeTimbro").ToUpper() == "TRUE" ? 1 : gvRow.DataKey("SeTimbro").ToEntero()); + LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar"); + string Correo = string.Empty; + string NombreCompleto = string.Empty; + if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null) + { + Correo = drow["Correo"].ToString(); + NombreCompleto = drow["NombreCompleto"].ToString(); + } + if (CvePersonal == SRCvePersonal && SeTimbro == 1) + { + + if (Correo.Trim().Length > 0) + { + byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); + if (pdf != null) + { + List objarch = new List(); + + if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa)) + { + string Ruta = ""; + string PathXML = ""; + string PathXMLF = ""; + string Xmlname = ""; + string XmlnameF = ""; + //string empleado = ""; + Ruta = UsuarioActual.Empresa.Ruta; + PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml"; + PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + Xmlname = $"{ObjNomina.SerieFolio}.xml"; + XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" }); + //this.GuardaLog(PathXML); + if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML)) + { + objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname }); + } + if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF)) + { + objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF }); + } + } + + Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); + // Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch); + + objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); + + } + } + + + } + } + } + Alert("se reenvió el recibos timbrados"); } protected void LnkCancelarSobreRecibo_Click(object sender, EventArgs e) { - showhideaccionesSR(true); + DataRow dr = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal)); + CveNominaCancelar = dr["CveNomina"].ToString().ToEntero(); + DdlMotivoCancelacion.DataSource = get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)"); + DdlMotivoCancelacion.DataBind(); + UpCancelarDocumento.Update(); + RegistraScript("$('#ModalCancelarDocumento').modal()"); + //showhideaccionesSR(true); } public void showhideaccionesSR(bool cargadatos = false) { @@ -4836,7 +4918,7 @@ public partial class Nomina_Nomina2 : ClsPaginas DataTable dtColumnas = GetTablaColumnasConceptos(); DdlMOPXColumna.DataSource = dtColumnas; DdlMOPXColumna.DataBind(); - + { addcoltopersonalizar("Codigo", "0", "Codigo", ""); @@ -4859,7 +4941,7 @@ public partial class Nomina_Nomina2 : ClsPaginas foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0").Rows)// - { + { if (!(dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0)) { addcoltopersonalizar(row["Concepto"].ToString(), "1", string.Format("[V_{0}]", row["CveConcepto"].ToString()), row["Codigo"].ToString()); @@ -4944,11 +5026,67 @@ public partial class Nomina_Nomina2 : ClsPaginas UpPersonalizarxls.Update(); } + private void Titlecell(ClosedXML.Excel.IXLWorksheet libro, object Valor, int fi, int ff, bool topBorder = true, bool bottomBorder = true, ClosedXML.Excel.XLColor borderColor = null) + { + ClosedXML.Excel.IXLCell celda = libro.Cell(fi, ff); + celda.Value = Valor; + if (borderColor != null) + { + if (topBorder) + { + celda.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.TopBorderColor = borderColor; + + } + celda.Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.LeftBorderColor = borderColor; + celda.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.RightBorderColor = borderColor; + + if (bottomBorder) + { + celda.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.BottomBorderColor = borderColor; + } + + } + } + //IXLRange + private void TitleRange(ClosedXML.Excel.IXLWorksheet libro, object Valor, int fi, int ff, int fi2, int ff2, bool topBorder = true, bool bottomBorder = true, ClosedXML.Excel.XLColor borderColor = null) + { + ClosedXML.Excel.IXLRange celda = libro.Range(fi, ff, fi2, ff2).Merge(); + celda.Value = Valor; + if (borderColor != null) + { + if (topBorder) + { + celda.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.TopBorderColor = borderColor; + + } + celda.Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.LeftBorderColor = borderColor; + celda.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.RightBorderColor = borderColor; + + if (bottomBorder) + { + celda.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.BottomBorderColor = borderColor; + } + + } + } protected void LnkFormatoPersonalizado_Click(object sender, EventArgs e) { try { ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook(); + var PercborderColor = ClosedXML.Excel.XLColor.FromArgb(0, 102, 0); + var dedcborderColor = ClosedXML.Excel.XLColor.FromArgb(99, 37, 35); + ClosedXML.Excel.XLColor colorperp = ClosedXML.Excel.XLColor.FromArgb(51, 153, 102); + ClosedXML.Excel.XLColor colorded = ClosedXML.Excel.XLColor.FromArgb(150, 54, 52); + ClosedXML.Excel.IXLCell celda; var libro = wb.AddWorksheet("Nomina"); int column = 1; int filainicio = 3; @@ -4968,71 +5106,88 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Range(2, 2, 2, 4).Merge().Value = periodo; int iniciotipe = column; - + int incioConceptos = iniciotipe + 1; column++; - libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Mensual"; - libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Sueldo"; + Titlecell(libro, "Mensual", filainicio + 2, column, true, false, PercborderColor); + Titlecell(libro, "Sueldo", filainicio + 3, column, false, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); libro.Column(column).Width = 15; column++; - libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Sueldo"; - libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "diario"; + Titlecell(libro, "Sueldo", filainicio + 2, column, true, false, PercborderColor); + Titlecell(libro, "diario", filainicio + 3, column, false, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); libro.Column(column).Width = 15; column++; - libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "dias Pen"; - libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Pago"; + Titlecell(libro, "dias Pen", filainicio + 2, column, true, false, PercborderColor); + Titlecell(libro, "Pago", filainicio + 3, column, false, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); libro.Column(column).Width = 15; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 AND SoloVisible =0").Rows) { - column++; - libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString(); - libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString(); - libro.Column(column).Width = 15; if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0)) { libro.Column(column).Hide(); } + else + { + Titlecell(libro, row["Concepto"].ToString(), filainicio + 2, column, true, false, PercborderColor); + Titlecell(libro, row["Codigo"].ToString(), filainicio + 3, column, false, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); + libro.Column(column).Width = 15; + } + } + column++; + + TitleRange(libro, "Percepciones", filainicio + 2, column, filainicio + 3, column, true, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); + libro.Column(column).Width = 15; + if (iniciotipe < column) + { + libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; + TitleRange(libro, "Percepciones", filainicio + 1, iniciotipe + 1, filainicio + 1, column, true, true, PercborderColor); + libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones"; } - //column++; - //libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Percepciones"; - //libro.Column(column).Width = 15; - //if (iniciotipe < column) - //{ - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones"; - //} iniciotipe = column; + int finPercepciones = iniciotipe; column++; - libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Incapacidad"; - libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Perm. Faltas"; + TitleRange(libro, "Incapacidad", filainicio + 2, column, filainicio + 2, column, true, false, dedcborderColor); + TitleRange(libro, "Perm. Faltas", filainicio + 3, column, filainicio + 3, column, false, true, dedcborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor); libro.Column(column).Width = 15; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0").Rows) { column++; - libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString(); - libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString(); - libro.Column(column).Width = 15; if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0)) { libro.Column(column).Hide(); } + else + { + Titlecell(libro, row["Concepto"].ToString(), filainicio + 2, column, true, false, dedcborderColor); + Titlecell(libro, row["Codigo"].ToString(), filainicio + 3, column, false, true, dedcborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor); + libro.Column(column).Width = 15; + } } - //column++; - //libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Deducciones"; - //libro.Column(column).Width = 15; - - //if (iniciotipe < column) - //{ - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Deducciones"; - //} + column++; + TitleRange(libro, "Deducciones", filainicio + 2, column, filainicio + 3, column, true, true, dedcborderColor); + libro.Column(column).Width = 15; + if (iniciotipe < column) + { + libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; + TitleRange(libro, "Deducciones", filainicio + 1, iniciotipe + 1, filainicio + 1, column, true, true, dedcborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor); + } + + int findeducciones = column; //column++; //libro.Cell(filainicio + 1, column).Value = " "; @@ -5043,23 +5198,14 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Total"; libro.Column(column).Width = 15; iniciotipe = column; - - //if (iniciotipe < column) - //{ - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Obligaciones"; - //} - //libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - //libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - //libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - //libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199)); - //libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - //libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - //libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); int maxnocolumn = column; + libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(filainicio + 1, incioConceptos, filainicio + 4, finPercepciones).Style.Fill.SetBackgroundColor(colorperp); + libro.Range(filainicio + 1, finPercepciones + 1, filainicio + 4, findeducciones).Style.Fill.SetBackgroundColor(colorded); int Fila = filainicio + 3; int cveSupProyecto = -5; @@ -5068,7 +5214,7 @@ public partial class Nomina_Nomina2 : ClsPaginas int oldcveSupProyecto = -5; bool newsubproyecto = false; bool newsubproyectoTitulo = false; - List filasborrar= new List(); + List filasborrar = new List(); DataTable dtsr = dtempleados.FiltraParametros("", "CveSubProyecto"); dtsr.Rows.Add(dtsr.NewRow()); foreach (DataRow erow in dtsr.Rows) @@ -5107,6 +5253,7 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; libro.Cell(Fila, column).Value = erow["SalarioDiario"]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; column++; libro.Cell(Fila, column).Value = ""; @@ -5115,22 +5262,32 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; string Concepto = string.Format("V_{0}", row["CveConcepto"]); libro.Cell(Fila, column).Value = erow[Concepto]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + libro.Cell(Fila -3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; } } - //column++; - //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); - //libro.Cell(Fila, column).Value = erow["SumaPercepciones"]; - //if (newsubproyecto) - //{ - // libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); - //} + column++; + libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(colorperp); + Titlecell(libro, erow["SumaPercepciones"], Fila, column, false, false, PercborderColor); + libro.Cell(Fila, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; + if (newsubproyecto) + { + libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorperp); + Titlecell(libro,"", Fila - 2, column, false, false, PercborderColor); + libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorperp); + libro.Cell(Fila - 3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; + Titlecell(libro, dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)), Fila - 3, column, true, true, PercborderColor); + //libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + } column++; @@ -5140,20 +5297,30 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; string Concepto = string.Format("V_{0}", row["CveConcepto"]); libro.Cell(Fila, column).Value = erow[Concepto]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; } } - //column++; - //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); - //libro.Cell(Fila, column).Value = erow["SumaDeducciones"]; - //if (newsubproyecto) - //{ - // libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); - //} + column++; + libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(colorded); + Titlecell(libro, erow["SumaDeducciones"], Fila, column, false, false, dedcborderColor); + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; + libro.Cell(Fila, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + if (newsubproyecto) + { + libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorded); + Titlecell(libro, "", Fila - 2, column, false, false, dedcborderColor); + libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorded); + libro.Cell(Fila -3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; + Titlecell(libro, dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)), Fila - 3, column, true, true, dedcborderColor); + //libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + } //column++; //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); //libro.Cell(Fila, column).Value = erow["SumaEspecie"]; @@ -5164,8 +5331,12 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); libro.Cell(Fila, column).Value = erow["Total"]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; if (newsubproyecto) { + libro.Cell(Fila-2, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); + libro.Cell(Fila-3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); + libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; libro.Cell(Fila - 3, column).Value = dtempleados.SUM("Total", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); } @@ -5190,9 +5361,8 @@ public partial class Nomina_Nomina2 : ClsPaginas //} } + libro.Rows(Fila-2, Fila).Delete(); - libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); { var columnsToDelete = new List(); foreach (var columnx in libro.Columns()) @@ -5211,11 +5381,14 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Column(columnNumber).Delete(); } } + int primera = filasborrar.First(); + filasborrar.Remove(primera); filasborrar.Reverse(); foreach (int rownumber in filasborrar) { - libro.Rows(rownumber, rownumber).Delete(); + libro.Rows(rownumber-1, rownumber).Delete(); } + libro.Rows(primera, primera).Delete(); System.IO.Stream fs = new System.IO.MemoryStream(); wb.SaveAs(fs); fs.Position = 0; @@ -10525,7 +10698,7 @@ public partial class Nomina_Nomina2 : ClsPaginas StringBuilder SbErrores = new StringBuilder(); bool ErroresValidaciones = false; int modalidadnomina = 1; - if (UsuarioActual.CveEmpresa.Contiene(189,193,195,196,197)) modalidadnomina = 2; + if (UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197)) modalidadnomina = 2; SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout:
"); @@ -11994,4 +12167,9 @@ public partial class Nomina_Nomina2 : ClsPaginas UpDatos.Update(); } + + protected void ddltipoPersonalizar_SelectedIndexChanged(object sender, EventArgs e) + { + + } } \ No newline at end of file diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx index 2e0d473fb..a12a4bf8b 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx +++ b/Ventas/RepProductosServiciosDetalle.aspx @@ -433,9 +433,11 @@ <%--20--%> <%--21--%> - + <%--22--%> - + + <%--23--%> + @@ -477,7 +479,7 @@ - + @@ -493,11 +495,12 @@ - - + + + - + diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 24d16b38d..5dea10230 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -73,7 +73,8 @@ Partial Class Ventas_RepProductosServiciosDetalle Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - + DivMostrarCgame.Visible = (UsuarioActual.CveEmpresa = 172) + DivMostrarCgame2.Visible = (UsuarioActual.CveEmpresa = 172) If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") SetValues() CargaParametrosDetalle() @@ -558,6 +559,7 @@ Partial Class Ventas_RepProductosServiciosDetalle GvDatos.Columns(20).Visible = ChkOC_noOrden.Checked GvDatos.Columns(21).Visible = ChkOC_Kilogramos.Checked GvDatos.Columns(22).Visible = ChkOC_Cantidad.Checked + GvDatos.Columns(23).Visible = ChkNoManifiesto.Checked From e32c5e2c504b5267d620b4fe73f66a181d6bfb25 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 2 Aug 2024 06:33:55 -0700 Subject: [PATCH 09/13] --- App_Code/ClsNominas.vb | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 1271c926b..57b45d695 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3266,6 +3266,25 @@ Public Class ClsNominas #End Region #Region "MovtosPermanentes" + Public Function GetMovtoPermanenteRep(CveEmpresa As Int32, CvePersonal As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GetMovtoPermanenteRep", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function GetMovtoPermanente(CveEmpresa As Int32, CvePersonal As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_GetMovtoPermanente", CommandType.StoredProcedure) From 676c716558a059c7563f17fe89a3097d06014f84 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 2 Aug 2024 07:16:20 -0700 Subject: [PATCH 10/13] -- mejora visual recorrido --- Bancos/IE.aspx | 19 +++++++++---------- Ventas/PVCobranza.aspx | 6 +++--- Ventas/PVCobranza.aspx.vb | 2 +- 3 files changed, 13 insertions(+), 14 deletions(-) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 16ab112f6..37fce5bfc 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -250,15 +250,7 @@
- -
- - -
+
@@ -377,7 +369,14 @@
- +
+ + +
diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 080d75df6..a69e53fd1 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -431,13 +431,13 @@
- +
- +
- +
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index b27d08721..8cbfdf484 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -382,7 +382,7 @@ Partial Class Ventas_PVCobranza 'validaciones Dim Pagado As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal If Pagado = 0 Then - Alert("Favor de especificar importe", TipoMensaje.MsgAdvertencia) + Alert("Favor de especificar importe", TipoMensaje.ToastAdventencia) Exit Sub End If From 0dc37b6be45de535e07053f1cfe2d487aca501f9 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 2 Aug 2024 07:16:43 -0700 Subject: [PATCH 11/13] -- mejora visual en recorrido --- Inventarios/TrasladoSolicitud.aspx | 98 +++++++++++++-------------- Inventarios/TrasladoSolicitud.aspx.vb | 13 ++-- Inventarios/TraspasoAlmacen.aspx.vb | 8 +-- 3 files changed, 57 insertions(+), 62 deletions(-) diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 86527b08b..16da8dd39 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -24,53 +24,58 @@ -
-
-
- - "> - -
-
-
-
Origen
-
- -
+ + -
Destino
-
- +
+
+
+ + "> +
-
Fecha Inicio
-
-
- - - - +
+
+
Origen
+
+ +
+ +
Destino
+
+ +
+
Fecha Inicio
+
+
+ + + + +
+ + +
+
Fecha Fin
+
+
+ + + + +
+ + +
- - -
-
Fecha Fin
-
-
- - - - -
- -
-
-
-
> +
> -
-
+
+
+ +
@@ -79,7 +84,7 @@ + DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMomientoEntrada,CveMovimientoRelacionado" > @@ -124,18 +129,11 @@ - - - - - +
-
- -