From 3cb862b8227524e1b50d32ca8977b332a8f90ab8 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 18 Apr 2024 18:25:14 -0700
Subject: [PATCH 1/2] --FIX Folios de refacturacion

---
 Ventas/Ventas.aspx.vb | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 486b8be33..097e8aec3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7214,10 +7214,14 @@ Partial Class Ventas
                 If Opcion = "Cot" Then
                     DdlTipoComprobante.SelectedValueExist("Cot")
                 Else
-                    If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
-                        DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
-                        DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing)
+                    'SI ES REFACTURACION NO DEBE CAMBIAR EL TIPÖ DOCTO
+                    If Not (Request("NuevaFactura") IsNot Nothing AndAlso Request("NuevaFactura").ToString() = "1") Then
+                        If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
+                            DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                            DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing)
+                        End If
                     End If
+
                 End If
             End If
         End If

From 0b7b21c1f4e2a285b2abf2935b4602da2f516c85 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 18 Apr 2024 19:16:33 -0700
Subject: [PATCH 2/2] --FIX no cambiar a credito al seleccionar remisiones
 desde facturacion de remisiones

---
 Ventas/Ventas.aspx.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 097e8aec3..0706e5dba 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -32178,8 +32178,12 @@ Partial Class Ventas
                 HdnIVAOriginal.Value = TxtIVA.Text
             End If
 
-            RBLPago.Items(0).Enabled = True 'sino está activo lo activamos porque las remisiones pueden ser a crédito
-            RBLPago.SelectedValue = "1"
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                RBLPago.SelectedValuesIfExist(dtSeleccionadas.FiltroPrimeroValor("CondicionesPago"))
+            Else
+                RBLPago.Items(0).Enabled = True 'sino está activo lo activamos porque las remisiones pueden ser a crédito
+                RBLPago.SelectedValue = "1"
+            End If
 
             RemisionesLista.Clear()