From c8dba82c1fa5ddbc2ff461b2dafe79ac23b1cd6f Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 12 Apr 2022 12:36:16 -0700 Subject: [PATCH 01/13] =?UTF-8?q?--=20para=20ver=20importes,=20se=20activ?= =?UTF-8?q?=C3=B3=20un=20chk,=20para=20que=20sea=20a=20petici=C3=B3n,=20y?= =?UTF-8?q?=20no=20en=20autom=C3=A1tico?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepRemisiones.aspx | 5 +++ Ventas/RepRemisiones.aspx.vb | 9 +++-- Ventas/RepRemisionesDetalle.aspx | 8 +++-- Ventas/RepRemisionesDetalle.aspx.vb | 52 ++++++++++++++--------------- 4 files changed, 44 insertions(+), 30 deletions(-) diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx index 926acd14c..d765228b8 100644 --- a/Ventas/RepRemisiones.aspx +++ b/Ventas/RepRemisiones.aspx @@ -190,6 +190,11 @@ + +
+ + <%----%> +
diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb index 2d67f4de7..3789ff521 100644 --- a/Ventas/RepRemisiones.aspx.vb +++ b/Ventas/RepRemisiones.aspx.vb @@ -91,7 +91,7 @@ Partial Class RepRemisiones Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString Dim ObjVentas As New ClsVentas - If ObjVentas.GetRepRemisionesSinFacturar(FechaI, FechaF, FechaV, Sucursales, CveCliente, CveContrato, Vendedores, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=UsuarioActual.TienePermisoProceso(201)) Then + If ObjVentas.GetRepRemisionesSinFacturar(FechaI, FechaF, FechaV, Sucursales, CveCliente, CveContrato, Vendedores, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=chkInv.Checked) Then DtVentas = ObjVentas.DtResultados.Copy() GvDatos.DataSource = DtVentas End If @@ -100,7 +100,7 @@ Partial Class RepRemisiones GvDatos.Columns(7).Visible = DtVentas.SUMD("Descuento") > 0 End If - GvDatos.Columns(10).Visible = UsuarioActual.TienePermisoProceso(201) + GvDatos.Columns(10).Visible = chkInv.Checked 'solo se visualiza si está selccionada ObjVentas.Dispose() GvDatos.DataBind() @@ -148,6 +148,11 @@ Partial Class RepRemisiones 'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) 'End If + If UsuarioActual.TienePermisoProceso(201) Then + divVerInv.Visible = True + End If + + End Sub Private Sub CargaSucursales() diff --git a/Ventas/RepRemisionesDetalle.aspx b/Ventas/RepRemisionesDetalle.aspx index f40f707ca..f8896d644 100644 --- a/Ventas/RepRemisionesDetalle.aspx +++ b/Ventas/RepRemisionesDetalle.aspx @@ -130,11 +130,11 @@
- + <%--
-
+ --%> @@ -187,6 +187,10 @@ +
+ + <%----%> +
<%--
diff --git a/Ventas/RepRemisionesDetalle.aspx.vb b/Ventas/RepRemisionesDetalle.aspx.vb index 9863874e9..190ae7986 100644 --- a/Ventas/RepRemisionesDetalle.aspx.vb +++ b/Ventas/RepRemisionesDetalle.aspx.vb @@ -114,7 +114,7 @@ Partial Class RepRemisionesDetalle If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then CveCliente = Request("CveCliente").ToEntero - Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("NombreComercial", $"CveCliente ={CveCliente}") + Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "") If Cliente <> "" Then DdlClientes.SelectedValue = CveCliente.ToString DdlClientes.SelectedText = Cliente @@ -122,14 +122,14 @@ Partial Class RepRemisionesDetalle Else CveCliente = -1 - End If - - If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 Then - CveContrato = Request("CveContrato").ToEntero - DdlContrato.SelectedValueExist(CveContrato) - Else - CveContrato = -1 - End If + End If + + 'If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 Then + ' CveContrato = Request("CveContrato").ToEntero + ' DdlContrato.SelectedValueExist(CveContrato) + 'Else + CveContrato = -1 + 'End If If Request("CveSubProyecto") IsNot Nothing Then CveSubProyecto = Request("CveSubProyecto").ToString DdlSubProyectos.SelectedValuesIfExistM(CveSubProyecto) @@ -155,10 +155,10 @@ Partial Class RepRemisionesDetalle FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") FechaV = If(IsDate(TxtFechaVencimiento.Text.Trim()), TxtFechaVencimiento.Text.Trim(), "-1") CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) - CveContrato = If(DdlContrato.SelectedValue.ToEntero > 0, DdlContrato.SelectedValue.ToEntero, -1) + 'CveContrato = If(DdlContrato.SelectedValue.ToEntero > 0, DdlContrato.SelectedValue.ToEntero, -1) CveSubProyecto = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString - If ObjVentas.GetRepRemisionesSinFacturarDetalle(FechaI, FechaF, FechaV, CveCliente, CveContrato, CveVenta, UsuarioActual.CveEmpresa, CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=UsuarioActual.TienePermisoProceso(201)) Then + If ObjVentas.GetRepRemisionesSinFacturarDetalle(FechaI, FechaF, FechaV, CveCliente, CveContrato, CveVenta, UsuarioActual.CveEmpresa, CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=chkInv.Checked) Then If CveMoneda = 1 Or CveMoneda = 2 Then DtVentas = ObjVentas.DtResultados.FiltraParametros($"CveMoneda = {CveMoneda}") Else @@ -169,13 +169,13 @@ Partial Class RepRemisionesDetalle ObjVentas.Dispose() GvDatos.DataBind() - GvDatos.Columns(8).Visible = UsuarioActual.TienePermisoProceso(201) + GvDatos.Columns(8).Visible = chkInv.Checked UPDatos.Update() End Sub Public Sub CargaCombos() CargaCliente() - CargaContrato() + 'CargaContrato() CargaSucursales() End Sub Private Sub CargaCliente() @@ -191,20 +191,20 @@ Partial Class RepRemisionesDetalle End If End Sub - Private Sub CargaContrato() - Dim ObjContratos As New ClsContratos - DdlContrato.Items.Clear() - If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, -1) Then - If ObjContratos.DtResultados.Rows.Count > 0 Then - DdlContrato.DataSource = ObjContratos.DtResultados - DdlContrato.DataBind() - End If + 'Private Sub CargaContrato() + ' Dim ObjContratos As New ClsContratos + ' DdlContrato.Items.Clear() + ' If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, -1) Then + ' If ObjContratos.DtResultados.Rows.Count > 0 Then + ' DdlContrato.DataSource = ObjContratos.DtResultados + ' DdlContrato.DataBind() + ' End If - End If + ' End If - ObjContratos.Dispose() - DdlContrato.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub + ' ObjContratos.Dispose() + ' DdlContrato.Items.Insert(0, New ListItem("Todos", "-1")) + 'End Sub Private Sub CargaSucursales() DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyectos.DataBind() @@ -233,7 +233,7 @@ Partial Class RepRemisionesDetalle If DdlSubProyectos.GetSelectedText <> "" Then StrFiltro.AppendFormat(" Sucursal: {0}", DdlSubProyectos.GetSelectedText) If DdlClientes.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat(" Cliente: {0}", DdlClientes.SelectedText) - If DdlContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Contrato: {0}", DdlContrato.SelectedItem.Text) + 'If DdlContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Contrato: {0}", DdlContrato.SelectedItem.Text) If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate.ToShortDateString) If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) From 01b82be96470e48d2b589fca262489e69066b843 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 13 Apr 2022 08:23:01 -0700 Subject: [PATCH 02/13] --- Contabilidad/RegPrePolizaS.aspx | 591 ++++++++++++++++---------------- Nomina/Nomina.aspx | 6 +- RH/CatPersonal.aspx.vb | 16 + SAT/SolicitudesNominaSat.aspx | 7 +- vwd.webinfo | 2 + 5 files changed, 325 insertions(+), 297 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index f53ec254c..4a679b342 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -1,9 +1,13 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePolizaS.aspx.vb" Inherits="ContabilidadC_RegPrePolizaS" EnableEventValidation="false" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePolizaS.aspx.vb" Inherits="ContabilidadC_RegPrePolizaS" EnableEventValidation="false" %> diff --git a/vwd.webinfo b/vwd.webinfo index 973bfdedd..accb5b476 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -466,6 +466,8 @@ + + From 7b3037d87566a2777607d63063dc0635230c8458 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 13 Apr 2022 10:42:06 -0700 Subject: [PATCH 03/13] =?UTF-8?q?--=20SE=20AGREG=C3=93=20E=20LFILTRO=20POR?= =?UTF-8?q?=20CENTRO=20DE=20COSTO?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 3 ++- Bancos/RepCortes.aspx.vb | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 5ba4bc54a..36bf075da 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3297,13 +3297,14 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetCortesDetalleVentasResumen(CveCorte As Integer, CveEmpresa As Integer) As Boolean + Public Function GetCortesDetalleVentasResumen(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_CortesDetalleVentasResumenGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCorte", SqlDbType.Int).Value = CveCorte + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 3109668a4..7011c1ad2 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -151,11 +151,11 @@ Partial Class Bancos_RepCortes Nombre = gvr.DataKey("Nombre").ToString Dim Vent As New ClsPuntoVenta Dim Vn As New ClsVentas - If Vn.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then + If Vn.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then GvP.DataSource = Vn.DtResultados DtCortesVentasResumen = Vn.DtResultados End If - If Vent.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then + If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then GvD.DataSource = Vent.DtResultados DtCortesVentas = Vent.DtResultados divDetalle.Visible = True From bebacfd376e7a3031faee40d95c0f0bb526acbc0 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 13 Apr 2022 10:42:17 -0700 Subject: [PATCH 04/13] filtro por subproyecto --- App_Code/ClsInventarios.vb | 4 ++-- Inventarios/RepAlmacenCompras.aspx | 12 ++++++++++-- Inventarios/RepAlmacenCompras.aspx.vb | 6 ++++-- 3 files changed, 16 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index d33475899..f941a3f69 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1855,15 +1855,15 @@ Public Class ClsInventarios Return Retorno End Function - Public Function RepAlmacenCompras(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Public Function RepAlmacenCompras(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepAlmacenCompras") - With SqlAdapter.SelectCommand.Parameters .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/Inventarios/RepAlmacenCompras.aspx b/Inventarios/RepAlmacenCompras.aspx index cf906aac8..f4bf3cd07 100644 --- a/Inventarios/RepAlmacenCompras.aspx +++ b/Inventarios/RepAlmacenCompras.aspx @@ -33,10 +33,18 @@