From f43cf9b38b3f78a36fc00b0d0d5d8ac09c5de24a Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Thu, 5 Jun 2025 12:40:38 -0700
Subject: [PATCH] --FIX solicitud de autorizaciones

---
 Ventas/PVCobranza.aspx.vb | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index ffd4f05de..9b02686b4 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -2390,8 +2390,16 @@ Partial Class Ventas_PVCobranza
             Next
         End If
 
-        Dim CveVenta As Integer = gvr.DataKey("CveVenta").ToEntero()
-        Dim CveIE As Integer = gvr.DataKey("CveIE").ToEntero()
+        Dim CveVenta As Integer = -1
+        Dim CveIE As Integer = -1
+
+        If gvr.DataKey("Tipo").Contiene("NC", "Ant") Then
+            CveVenta = gvr.DataKey("CveVenta").ToEntero()
+        End If
+
+        If gvr.DataKey("Tipo").Contiene("IxC") Then
+            CveIE = gvr.DataKey("CveIE").ToEntero()
+        End If
 
         Dim ObjVta As New ClsVentas
         If ObjVta.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, Saldo, CveEstatus:=0, CveUsuario:=UsuarioActual.CveUsuario, TipoAutorizacion:=1, TipoDocumento:="Ant", DiasVencidos:=1, CveVenta:=CveVenta, CveIE:=CveIE) Then