From 59563998736c24533b36b2fb1dafff9f078ab9df Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 9 Jul 2020 17:05:44 -0700 Subject: [PATCH 01/11] corrigiendo el reporte de devoluciones --- Compras/PopUpVerFactura.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 3b343b278..b55948612 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2335,16 +2335,16 @@ Partial Class PopUpVerFactura Dim ObjCompra As New ClsCompras() If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) - Dim FechaCompra As Date = dr("Fecha").ToString.ToDate + Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString)) params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString)) params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString)) - params.Add(New ReportParameter("Folio", Folio.ToString)) + 'params.Add(New ReportParameter("Folio", Folio.ToString)) params.Add(New ReportParameter("Serie", dr("Serie").ToString)) 'params.Add(New ReportParameter("NumeroOrden", dr("OCVinculada").ToString)) - 'params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString)) + params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString)) params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString)) params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString)) params.Add(New ReportParameter("CiudadProveedor", " ")) From b63d9b3c7899dd692bc19c06c88df02ce7fd3ecc Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Jul 2020 17:07:46 -0700 Subject: [PATCH 02/11] --almacenesusaurios --- App_Code/Modelos.vb | 2 +- Ashx/SIGFacturacion.ashx | 56 ++++++++++++++++++++++++----------- GPS/FacturacionMasiva.aspx.vb | 2 +- Ventas/CatMesas.aspx | 4 +-- Ventas/CatMesas.aspx.vb | 4 +-- 5 files changed, 44 insertions(+), 24 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 5d28a3a5a..5e08bcb3a 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1344,7 +1344,7 @@ Namespace Modelos Public Sub GuardarVenta(ByRef factura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNotaCredito As Boolean = False, Optional ObjAcum As ClsAcumuladores = Nothing) Dim Msgok As New StringBuilder - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVentaM", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardarVentaM", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index c1e46ead0..06a0be6c8 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -2275,24 +2275,44 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState HttpContext.Current.Application("GlobalDTAlmacen") = value End Set End Property - Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable - Get - If CveEmpresa <> -1 Then - Dim Str As New StringBuilder - Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) - If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) - - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) - GlobalDTAlmacenUsuarios = Dv.ToTable - Dv.Dispose() - Else - GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable) - End If - - End Get - Set(value As DataTable) - HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value - End Set + Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + 'sino existe, recarga los datos + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjUsr As New ClsSisUsuarios + If ObjUsr.GetAlmacen(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados + ObjUsr.Dispose() + End If + Dim Str As New StringBuilder + Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) + If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) + + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTAlmacenUsuarios = Dv.ToTable + Dv.Dispose() + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + HttpContext.Current.Application(AppNombre) = value + End Set + 'Get + ' If CveEmpresa <> -1 Then + ' Dim Str As New StringBuilder + ' Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) + ' If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) + + ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + ' GlobalDTAlmacenUsuarios = Dv.ToTable + ' Dv.Dispose() + ' Else + ' GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable) + ' End If + + 'End Get + 'Set(value As DataTable) + ' HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value + 'End Set End Property Property GlobalDTNom_Periodos() As DataTable Get diff --git a/GPS/FacturacionMasiva.aspx.vb b/GPS/FacturacionMasiva.aspx.vb index 8981e2c45..9a43ef120 100644 --- a/GPS/FacturacionMasiva.aspx.vb +++ b/GPS/FacturacionMasiva.aspx.vb @@ -611,7 +611,7 @@ Partial Class Contratos_FacturacionMasiva Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("FacMas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, diff --git a/Ventas/CatMesas.aspx b/Ventas/CatMesas.aspx index fbf0e7315..0946e9ee4 100644 --- a/Ventas/CatMesas.aspx +++ b/Ventas/CatMesas.aspx @@ -60,7 +60,7 @@ - + @@ -88,7 +88,7 @@ - + diff --git a/Ventas/CatMesas.aspx.vb b/Ventas/CatMesas.aspx.vb index 7fc7d531b..e60baeaff 100644 --- a/Ventas/CatMesas.aspx.vb +++ b/Ventas/CatMesas.aspx.vb @@ -42,7 +42,7 @@ Partial Class Ventas_CatMesas End Sub Public Sub CargaSucursales() - ddlSucursal.DataSource = GlobalDTSucursales().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + ddlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) ddlSucursal.DataBind() ddlSucursal.Items.Insert(0, New ListItem("Todas", "-1")) End Sub @@ -106,7 +106,7 @@ Partial Class Ventas_CatMesas e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("ddlSucursal").DataSource = GlobalDTSucursales().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + e.Row.FCDropDownList("ddlSucursal").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlSucursal").DataBind() e.Row.FCDropDownList("ddlSucursal").SelectedValue = e.Row.DBCampo("CveSucursal") End If From 400e68a53e656921cb55ba8332f49c5931f5a1ee Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Jul 2020 17:08:13 -0700 Subject: [PATCH 03/11] globaldtsucursales --- OC/RepOCSinFactura.aspx | 2 +- OC/RepOCSinFactura.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/OC/RepOCSinFactura.aspx b/OC/RepOCSinFactura.aspx index 57d821e26..026109788 100644 --- a/OC/RepOCSinFactura.aspx +++ b/OC/RepOCSinFactura.aspx @@ -26,7 +26,7 @@
- +
diff --git a/OC/RepOCSinFactura.aspx.vb b/OC/RepOCSinFactura.aspx.vb index cd6dcd538..ef5494c07 100644 --- a/OC/RepOCSinFactura.aspx.vb +++ b/OC/RepOCSinFactura.aspx.vb @@ -17,7 +17,7 @@ Partial Class OC_RepOCSinFactura Private Sub CargaCombos() 'CargaSucursales - DdlSucursal.DataSource = GlobalDTSucursales.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSucursal.DataBind() 'Vendedor From f537b87a682d1ad9ea219e022c8d1c534a8a5bb8 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Jul 2020 17:08:46 -0700 Subject: [PATCH 04/11] -- modulo en prepolizasdetalle --- Inventarios/Remanufactura.aspx.vb | 2 +- PortalCliente/PortalCliente.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/Remanufactura.aspx.vb b/Inventarios/Remanufactura.aspx.vb index d64eaa79a..52f88843e 100644 --- a/Inventarios/Remanufactura.aspx.vb +++ b/Inventarios/Remanufactura.aspx.vb @@ -674,7 +674,7 @@ Partial Class Inventarios_Remanufactura Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("Reman/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index cf9b3414e..d17ec4cc3 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -2978,7 +2978,7 @@ Partial Class Ventas_PortalCliente Dim EsDevolucionVenta = -1 Dim TotalImpuestoLocal As Double = 0 - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("PortalC/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, From 0c0810580d702ca4afaa520839647bf29755703d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Jul 2020 17:09:01 -0700 Subject: [PATCH 05/11] serielote --- Contratos/RepPedidosDevolucionesXContrato.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx b/Contratos/RepPedidosDevolucionesXContrato.aspx index 39f3f78d6..834e5f7d5 100644 --- a/Contratos/RepPedidosDevolucionesXContrato.aspx +++ b/Contratos/RepPedidosDevolucionesXContrato.aspx @@ -140,7 +140,7 @@ - +
@@ -180,7 +180,7 @@ - + From da661ce6a67f8a6b09b997e783405bbd272a008e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Jul 2020 17:09:32 -0700 Subject: [PATCH 06/11] -- multiplicador y oc vinculadas --- Ventas/Ventas.aspx | 8 ++++---- Ventas/Ventas.aspx.vb | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3efab29bb..268ad368d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1300,11 +1300,11 @@ -