From 8fe371c7e2db057bf8b71df9b30c4235fe0bbf40 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 25 May 2024 13:35:15 -0700
Subject: [PATCH] --FIX. Generar remision desde autorizacion

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

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f9d5dd7f5..df3d41948 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -33537,6 +33537,13 @@ Partial Class Ventas
             End If
 
             Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
+
+            If TipoDoctoViejo = "PA" AndAlso TipoDoctoNuevo.Contiene("Rem") Then
+                If DdlTipoComprobante.Items.FindByValue("Rem") Is Nothing Then
+                    DdlTipoComprobante.Items.Add(New ListItem("Remisión", "Rem"))
+                End If
+            End If
+
             DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
             If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then
                 TxtFecha.Text = NowADS().ToString()