diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8df466012..ef403312f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -21693,18 +21693,18 @@ Partial Class Ventas
         End If
 
         'SALIDA GENERAL
-        CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(CveAlmacenOrigenContrato, 3, 1, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E7")
-        If CveMovimientoEntradaGeneral > 0 Then
-            If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
+        CveMovimientoSalidaGeneral = ObjInventario.AddMovimiento(CveAlmacenOrigenContrato, 3, 1, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E7")
+        If CveMovimientoSalidaGeneral > 0 Then
+            If ObjInventario.GetMovimientosDetalle(CveMovimientoEntradaGeneral, UsuarioActual.CveEmpresa) Then
                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaGeneral, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
                         Return False
                     End If
                 Next
             End If
 
             'GENERAR PREPOLIZA
-            If Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoEntradaGeneral, CveAlmacenOrigenContrato) Then
+            If Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoSalidaGeneral, CveAlmacenOrigenContrato) Then
                 Return False
             End If
         Else
@@ -23016,7 +23016,9 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
+        If DeshabilitarAplicarNotaDeCredito(LblRFC.Text) Then
+            Exit Sub
+        End If
 
         AplicaNCMasiva = False
         AplicaNC = False
@@ -27284,14 +27286,15 @@ Partial Class Ventas
         ObjVentas.Dispose()
     End Sub
 
-    Private Sub DeshabilitarAplicarNotaDeCredito(RFC As String)
-
+    Private Function DeshabilitarAplicarNotaDeCredito(RFC As String) As Boolean
+        Dim Retorno As Boolean = False
         If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") Then
             LBNotaCredito.Visible = False
             UpnTools.Update()
+            Retorno = True
         End If
-
-    End Sub
+        Return Retorno
+    End Function
 
 #Region "Auxiliar"
     Private Sub CargarSaldoAuxiliar(CveCliente As Integer)