--FIX. Generar remision desde autorizacion

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