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()