From 20bda493391f3e2e884241599ea75320ba43e7ea Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 29 Apr 2020 15:24:12 -0700
Subject: [PATCH] - columna cvetiporetencion

---
 Ventas/ClientesAbonar.aspx    | 2 +-
 Ventas/ClientesAbonar.aspx.vb | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx
index dc0660c9d..754f34600 100644
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -261,7 +261,7 @@
     <asp:UpdatePanel ID="UPVentas" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Cobrar Pendientes"
-                DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago"
+                DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion"
                 CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 3292966a3..8c1a2c8d0 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -905,7 +905,7 @@ Partial Class Ventas_ClientesAbonar
 
                                         Case 8 'Ret IVA x Trasladar
                                             If EsAnticipoEspecial Then Exit Select
-                                            If ObjFactura IsNot Nothing AndAlso ObjFactura.CveTipoRetencion = 4 Then
+                                            If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then
                                                 Exit Select
                                             End If
                                             If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
@@ -954,7 +954,7 @@ Partial Class Ventas_ClientesAbonar
 
                                         Case 313 'Ret Iva Servicios
                                             If EsAnticipoEspecial Then Exit Select
-                                            If ObjFactura IsNot Nothing AndAlso ObjFactura.CveTipoRetencion = 4 Then
+                                            If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then
                                                 If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                     ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                     importeMX = ImporteMovimiento
@@ -1069,7 +1069,7 @@ Partial Class Ventas_ClientesAbonar
                                             If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
                                         Case 62 'Ret IVA Trasladado
                                             If EsAnticipoEspecial Then Exit Select
-                                            If ObjFactura IsNot Nothing AndAlso ObjFactura.CveTipoRetencion = 4 Then
+                                            If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then
                                                 Exit Select
                                             End If
                                             If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
@@ -1119,7 +1119,7 @@ Partial Class Ventas_ClientesAbonar
 
                                         Case 314 'Ret Iva Servicios Traslado
                                             If EsAnticipoEspecial Then Exit Select
-                                            If ObjFactura IsNot Nothing AndAlso ObjFactura.CveTipoRetencion = 4 Then
+                                            If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then
                                                 If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                     ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                     importeMX = ImporteMovimiento