From 7ef74d3513c7d36955a180196e3685db721f1bf5 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 Mar 2020 09:35:47 -0700 Subject: [PATCH 1/5] - cambios global- - cambios descuento adicionales --- App_Code/Modelos.vb | 14 +++++++------- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 113c3243f..fe9532a54 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -6175,7 +6175,7 @@ Namespace Modelos Public ReadOnly Property GlobalDTProductosServiciosEquivalencias(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa) If CvePS <> -1 OrElse CveUM <> -1 Then @@ -6599,7 +6599,7 @@ Namespace Modelos Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa) 'sino existe, recarga los datos If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then Dim P As New ClsSubProyectos @@ -6631,7 +6631,7 @@ Namespace Modelos End Get Set(ByVal value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa) HttpContext.Current.Application(AppNombre) = value End Set End Property @@ -6995,7 +6995,7 @@ Namespace Modelos 'Cliente Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa) 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjClientes As New ClsClientes @@ -7019,7 +7019,7 @@ Namespace Modelos End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa) HttpContext.Current.Application(AppNombre) = value 'Dim ObjClientes As New ClsClientes 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados @@ -7028,7 +7028,7 @@ Namespace Modelos End Property Property GlobalDTClienteClasificaciones(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa) 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjClientes As New ClsClientes @@ -7045,7 +7045,7 @@ Namespace Modelos End If End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa) HttpContext.Current.Application(AppNombre) = value 'Dim ObjClientes As New ClsClientes 'If ObjClientes.GetClienteClasificacion(CveEmpresa) Then Application(AppNombre) = ObjClientes.DtResultados diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f0fabce52..3b53188d5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14858,7 +14858,7 @@ Partial Class Ventas DrPoliza("PorcentajeIEPS") = DrPSAdicional("IEPSPorcentaje") DrPoliza("ImporteIEPS") = Math.Round(DrPSAdicional("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) DrPoliza("IEPS") = DrPoliza("ImporteIEPS") - DrPoliza("Descuento") = Descuento + DrPoliza("Descuento") = 0 ' Descuento DrPoliza("TipoDescuento") = HdnTipoDescuento.Value DrPoliza("Total") = (DrPoliza("Cantidad").ToString.ToDecimal * PU) DrPoliza("TotalImporte") = Math.Round(DrPoliza("Cantidad").ToString.ToDecimal * PU, NumeroDecimales) From ba93485a22b85ac11be113505051401289ba19dd Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 Mar 2020 10:23:29 -0700 Subject: [PATCH 2/5] -parametro subproyecto --- General/SaldosIniciales.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 3fd0cc6f6..790b3e837 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1432,7 +1432,7 @@ Partial Class General_SaldosIniciales End If CveVenta = ObjVentas.CveVenta - If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, -1, 0, PorcentajeIVA:=PorcentajeIVA) Then + If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero, 0, PorcentajeIVA:=PorcentajeIVA) Then ErrorVentas = True Exit For End If From 6b95f18abc8312642b6dba99a3e86915e956ec6c Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 Mar 2020 10:49:31 -0700 Subject: [PATCH 3/5] - --- General/SaldosIniciales.aspx.vb | 2 +- Sistemas/UsuarioDetalle.aspx | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 790b3e837..d2f4a0026 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1453,7 +1453,7 @@ Partial Class General_SaldosIniciales 'PrePólizaDetalle If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero) Then ErrorVentas = True : Exit For If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString, ConceptoContable, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then ErrorVentas = True : Exit For - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA) Then ErrorVentas = True : Exit For + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA, PorcentajeImpuesto:=PorcentajeIVA) Then ErrorVentas = True : Exit For 'If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio.ToString, 38, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) Then ErrorVentas = True : Exit For diff --git a/Sistemas/UsuarioDetalle.aspx b/Sistemas/UsuarioDetalle.aspx index a4a6a10d2..065bfcd50 100644 --- a/Sistemas/UsuarioDetalle.aspx +++ b/Sistemas/UsuarioDetalle.aspx @@ -2470,7 +2470,7 @@
IP:
-
+
@@ -2478,11 +2478,11 @@
Mac:
-
+
- Vincular + Vincular
From f60f84653ad79ba6348919456c126d9a7fce562e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 30 Mar 2020 11:46:41 -0700 Subject: [PATCH 4/5] Correcion de aparecer el alert al registrar --- Compras/Compras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 8af09f525..378766459 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8040,7 +8040,7 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.UsaAC Then MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza) Else - MsgAccionAceptar = "If (window.opener){window.opener.location.href = window.opener.location.href; window.close();}" + MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}" End If Else MsgAccionAceptar = "location.href =""Compras.aspx""" From 102feb4887b2654b5c14f6d18240d5d27a61cd39 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 30 Mar 2020 13:44:54 -0700 Subject: [PATCH 5/5] Descuento de NC en costo indirecto --- Compras/Compras.aspx | 4 ++-- Compras/Compras.aspx.vb | 8 ++++++++ Inventarios/Fletes.aspx | 1 + 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 1b9b7f52a..b0c19e93b 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4937,8 +4937,8 @@
- Productos - Gastos + <%-- Productos + Gastos--%>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 378766459..f2811f6ab 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -19089,6 +19089,7 @@ Partial Class Compras_Compras Private Sub CargaCombosFletesImportaciones() DdlFletes.Items.Clear() DdlImportaciones.Items.Clear() + RblFleteImportacionOpcion.Items.Clear() Dim ObjCompras As New ClsCompras If ObjCompras.GetImportaciones(-1, -1, -1, "-1", "-1", UsuarioActual.CveEmpresa) Then @@ -19107,6 +19108,13 @@ Partial Class Compras_Compras DdlImportaciones.DataBind() DdlFletes.DataBind() + If DdlTipoComprobante.SelectedValue = "NC" Then + RblFleteImportacionOpcion.Items.Insert(0, New ListItem("Gastos", "2")) + Else + RblFleteImportacionOpcion.Items.Insert(0, New ListItem("Productos", "1")) + RblFleteImportacionOpcion.Items.Insert(1, New ListItem("Gastos", "2")) + End If + End Sub Private Sub LnkFletesImportaciones_Click(sender As Object, e As EventArgs) Handles LnkFletesImportaciones.Click diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx index eae300818..ca81061e9 100644 --- a/Inventarios/Fletes.aspx +++ b/Inventarios/Fletes.aspx @@ -140,6 +140,7 @@ +