From 67d0743929ea842e700e86e1814d1c18436edf22 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 20 Jan 2022 16:31:30 -0700 Subject: [PATCH 01/22] filtrado de usos segun tabla de mesegarantias --- Inventarios/RecepcionUsados.aspx.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 2c20baccc..11e2f6430 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2916,6 +2916,11 @@ Partial Class Inventarios_RecepcionUsados 'CvePrecioLista = CvePrecioListaPS End If + DdlTipoUso.Items.Clear() + DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca) + DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlTipoUso.DataBind() + Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString)) If MarcaPorcentaje IsNot Nothing Then Dim PorcentajeProducto As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100 From c86927a91d91967e3fd9d5cd021c64ae885e7577 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 20 Jan 2022 20:21:07 -0700 Subject: [PATCH 02/22] =?UTF-8?q?--=20cambio=20en=20ultimafluctuaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 5ae6fb294..ec1c98082 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -150,7 +150,7 @@ Public Class ClsPaginas If Application("GlobalTipoCambioUltimaFluctuacion") IsNot Nothing Then - Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha = '{0}'", Fecha)) + Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha <= '{0}'", Fecha), Orderby:="Fecha DESC") If dr IsNot Nothing Then fluctuacion.TCFluctuacion = dr("TCFluctuacion").ToString().ToDecimal() fluctuacion.FechaFluctuacion = dr("FechaFluctuacion").ToString().ToDateTime() @@ -7132,13 +7132,7 @@ Public Class ClsPaginas Dim VendedorTelefono As String = "" Dim VendedorCelular As String = "" - Dim RowVendedor As DataRow = Nothing - - Dim ObjVendedores As New ClsVtaVendedores - If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then - RowVendedor = ObjVendedores.DtResultados.FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) - End If - ObjVendedores.Dispose() + Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) If Not IsNothing(RowVendedor) Then VendedorNombre = RowVendedor("Vendedor").ToString From 8c916ba3ba270ee9f560d4f85dc084c48fb58151 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 20 Jan 2022 20:21:22 -0700 Subject: [PATCH 03/22] -- selecciona el primer dato --- Inventarios/RecepcionUsados.aspx.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 11e2f6430..37c4c7fc8 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -570,11 +570,13 @@ Partial Class Inventarios_RecepcionUsados DdlMoneda.DataSource = GlobalDTMonedas DdlMoneda.DataBind() - 'Llenar el dropdownlist de almacén - DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (22)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) + Dim dtt As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (22)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlAlmacen.SelectedValue = "-1" + 'Llenar el dropdownlist de almacén + DdlAlmacen.DataSource = dtt + + 'DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlAlmacen.SelectedValue = "-1" DdlAlmacen.DataBind() If IsNothing(Request("CveMovimiento")) Then From b302686563cd37ff890c707f917f8490429ffe46 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 Jan 2022 08:56:54 -0700 Subject: [PATCH 04/22] -- candado, para no descuento, cambios de vigencia --- Ventas/PV.aspx.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 77317f482..2b7e6d8c5 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4327,6 +4327,11 @@ Partial Class PV End If End If + ''condicion final, si es cambio de Vigencia, no aplica descuento + If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20637) Then + Descuento = 0 + End If + ObjDescuento.ImporteDescuento = Descuento ObjDescuento.CvePromocionDetalle = CvePromocionDetalle If SeAjustoPU Then From 536894806a1cf7a2ab8e9ac95f5818a7ed5fcd29 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 Jan 2022 20:32:22 -0700 Subject: [PATCH 05/22] mejora en saldar --- Bancos/RepEgresosSinComprobante.aspx.vb | 22 ++++------------------ 1 file changed, 4 insertions(+), 18 deletions(-) diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index 6b0c8d62e..517fda443 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -204,7 +204,6 @@ Partial Class Bancos_RepEgresosSinComprobante Try For Each gr As GridViewRow In GvESC.Rows If gr.FCCheckBox("Chk").Checked Then - Dim CveCuenta As Integer = 0 Dim IdCtaContable As Integer = 0 Dim TipoMovtoOtIngresos As Boolean = True Dim TipoMovtoConcepto As Boolean = False @@ -231,24 +230,18 @@ Partial Class Bancos_RepEgresosSinComprobante End If End If - If ObjConta.GetCuentaDobleConta(IdCtaContable, UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero - End If - End If - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, - ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then + ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, - ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveCuenta:=CveCuenta) Then + ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If @@ -292,7 +285,6 @@ Partial Class Bancos_RepEgresosSinComprobante Try For Each gr As GridViewRow In GvPersonal.Rows If gr.FCCheckBox("Chk").Checked Then - Dim CveCuenta As Integer = 0 Dim IdCtaContPersonal As Integer = 0 Dim CveConceptoContable As Integer Dim TipoMovtoOtIngresos As Boolean = True @@ -319,24 +311,18 @@ Partial Class Bancos_RepEgresosSinComprobante End If End If - If ObjConta.GetCuentaDobleConta(IdCtaContPersonal, UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero - End If - End If - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, - ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then + ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=-1) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, - ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then + ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=-1) Then MsgError = "Ocurrio un error al saldar el movimiento" Exit For End If From ee1ec3a792b0ec3c8b27bb6514ae4a9d187c90b8 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 24 Jan 2022 07:33:14 -0700 Subject: [PATCH 06/22] =?UTF-8?q?--=20envio=20de=20folios=20de=20garant?= =?UTF-8?q?=C3=ADa=20en=20traspasos=20a=20devoluciones=20a=20proveedor?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Acumuladores/CatFoliosGarantia.aspx | 45 ++++++-------- Acumuladores/CatFoliosGarantia.aspx.vb | 20 +++--- Inventarios/TraspasoAlmacen.aspx | 2 +- Inventarios/TraspasoAlmacen.aspx.vb | 85 +++++++++++++++++++------- 4 files changed, 98 insertions(+), 54 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index f707c911f..fa6b8bc56 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -109,15 +109,13 @@ - - +
-
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
- +
@@ -125,7 +123,7 @@ @@ -162,8 +160,12 @@   - - + + + + + + @@ -370,20 +372,12 @@
-