From e0a648477387cf243675a5bad20afa245269be4a Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Wed, 8 Jan 2020 12:24:57 -0700
Subject: [PATCH 1/2] -error correcion

---
 Ventas/ClientesAbonar.aspx.vb |  2 +-
 Ventas/Ventas.aspx.vb         | 14 +++++++++-----
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index e91c73d26..680aee283 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -459,7 +459,7 @@ Partial Class Ventas_ClientesAbonar
         TxtImporte.Text = ""
         TxtObservaciones.Text = ""
         If SumDescuentoProntoPago > 0.0 Then
-            GvCxC.Columns("DescuentoProntoPago").Visible = True
+            GvCxC.Columns(15).Visible = True
         End If
 
         Mov.Dispose()
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0748e7778..857f74619 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10259,7 +10259,9 @@ Partial Class Ventas
                                         If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                         'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
                                         If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
-                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
+                                            Dim CampoCuenta As String = "IdCuentaGasto"
+                                            If UsuarioActual.CveEmpresa.Contiene(80, 72, 146) Then CampoCuenta = "IdCuentaDescuento"
+                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor(CampoCuenta, String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
                                         Else
                                             IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
                                         End If
@@ -13827,10 +13829,12 @@ Partial Class Ventas
 
             If DtPromociones.Rows.Count > 0 And DtPromociones IsNot Nothing Then
                 Dim dr As DataRow = DtPromociones.FiltroPrimero($"CvePS = {CvePS}")
-                TipoPromo = dr("TipoPromocion").ToString.ToEntero
-                TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
-                PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
-                CantMinima = dr("CantidadMinima").ToString.ToEntero
+                If dr IsNot Nothing Then
+                    TipoPromo = dr("TipoPromocion").ToString.ToEntero
+                    TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
+                    PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
+                    CantMinima = dr("CantidadMinima").ToString.ToEntero
+                End If
             End If
 
             If TipoPromo = 1 Then 'Promocion por Importe $

From ff3194d6205341b4759f8dfce6c34afae69232de Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Wed, 8 Jan 2020 13:42:32 -0700
Subject: [PATCH 2/2] -global

---
 Bancos/ProveedoresAbonar.aspx.vb |  2 +-
 Ventas/CatVendedores.aspx.vb     | 11 ++++++-----
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index c86542405..1ab731944 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -827,7 +827,7 @@ Partial Class Bancos_ProveedoresAbonar
 
 
                 'cheque
-                If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero
+                If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(13, 83) Then FolioFijo = TxtFolio.Text.ToEntero
 
                 CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProveedoresAbonar", 2, ImporteSeleccionado, ImporteSeleccionado, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
 
diff --git a/Ventas/CatVendedores.aspx.vb b/Ventas/CatVendedores.aspx.vb
index 0de634028..0b9743043 100644
--- a/Ventas/CatVendedores.aspx.vb
+++ b/Ventas/CatVendedores.aspx.vb
@@ -137,11 +137,12 @@ Partial Class Ventas_CatVendedores
 
 #Region "CARGA GLOBAL"
     Private Sub CargaGlobal()
-        Dim ObjVendedores As New ClsVtaVendedores
-        If ObjVendedores.GetVendedores(-1) Then
-            GlobalDTVendedores(-1) = ObjVendedores.DtResultados
-        End If
-        ObjVendedores.Dispose()
+        GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjVendedores As New ClsVtaVendedores
+        'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
+        '    GlobalDTVendedores(-1) = ObjVendedores.DtResultados
+        'End If
+        'ObjVendedores.Dispose()
     End Sub
 #End Region