diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 583e7247d..1cb7988c1 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6289,8 +6289,9 @@ Partial Class Ventas
                             ' el cliente tiene crédito disponible, no tiene bloqueo
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA"))
 
-                            If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
                             If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
+                            If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+
                             DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
 
                             TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
@@ -19106,23 +19107,23 @@ Partial Class Ventas
 
                 'COMIENZA: VENTADETALLE
                 'CUANDO SEA SALIDA VA POR LA VENTA DETALLE DE LA FACTURA DE LA REMISION - OJO!! SOLO FUNCIONA HASTA ORITA QUE SE HACE SALIDA SOLO CUANDO SE FACTURA LA REMISION
-                Dim CveVentaDetalle As Integer = -1
+                Dim CveVentaDetalle = If(ConceptoEntrada.Contiene(3, 40), TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero(), MovDet("CveVentaDetalle").ToString().ToEntero())
                 Dim CveVentaDetallePadre As Integer = -1
 
-                If ConceptoEntrada = 3 Then
-                    CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero()
-                ElseIf ConceptoEntrada = 40 Then
-                    CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero()
-                    CveVentaDetallePadre = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero()
-                    'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN
-                    If CveVentaDetallePadre < 0 Then
-                        Alert("no se encontro la venta detalle nueva. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
-                        OcurrioError = True
-                        Exit For
-                    End If
-                Else
-                    CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero()
-                End If
+                'If ConceptoEntrada = 3 Then
+                '    CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero()
+                'ElseIf ConceptoEntrada = 40 Then
+                '    CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero()
+                '    CveVentaDetallePadre = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero()
+                '    'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN
+                '    If CveVentaDetallePadre < 0 Then
+                '        Alert("no se encontro la venta detalle nueva. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
+                '        OcurrioError = True
+                '        Exit For
+                '    End If
+                'Else
+                '    CveVentaDetalle = MovDet("CveVentaDetalle").ToString().ToEntero()
+                'End If
 
                 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN
                 If CveVentaDetalle < 0 Then