diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 3079f5ad9..f42619e76 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1697,6 +1697,7 @@ Partial Class Ventas
             DdlBPPS.setEsWebService(True)
             DdlBPPS.ddlWS.Attributes.Add("data-clear", "1")
             ViewState("ProcesoCorrecto") = True
+            ViewState("CargoUsado") = True
             ViewState("NuevaFactura") = -1
             ViewState("CveDevolucion") = -1
             ViewState("CvePedido") = -1
@@ -4729,6 +4730,7 @@ Partial Class Ventas
                     DivClienteMsg.Visible = True
                     LtlClienteMsg.Text = "Cálculo sin desglose de IEPS"
                 End If
+                ViewState("CargoUsado") = ObjCliente.CargoUsados
 
                 Dim dr As DataRow = Nothing
                 dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -6702,10 +6704,11 @@ Partial Class Ventas
                                 Obj2.Add(ObjFacturaDevolucion)
                             End If
                         Catch ex As Exception
-                            ErrorList.Add("No se pudo generarse la nota de crédito de amortización")
+                            OnError("Ocurrió un error al generar nota de crédito de amortización", ex)
+                            ErrorList.Add("No se pudo generar la nota de crédito de amortización")
                         End Try
                         If Obj2 Is Nothing AndAlso Obj2.Count = 0 Then
-                            ErrorList.Add("No se pudo generarse la nota de crédito de amortización")
+                            ErrorList.Add("No se pudo generar la nota de crédito de amortización")
                         End If
                     End If
                 End If
@@ -15259,7 +15262,7 @@ Partial Class Ventas
                     End If
 
                     'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR
-                    If DtMovimientos.Rows.Count > 0 AndAlso (DtMovimientosDetalles.Rows.Count > 0 AndAlso DtMovimientosDetalles.SUM("SaldoAlmacen") > 0) Then
+                    If DtMovimientos.Rows.Count > 0 Then
                         Dim GeneroMovimientoAlmacen As Boolean = False
                         For Each dr As DataRow In DtMovimientos.Rows
                             'Obtenemos los Movimientos de salida
@@ -15292,7 +15295,7 @@ Partial Class Ventas
                                                 'Le damos salida normal
                                                 If ConSalida Then
 
-                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
+                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
 
                                                     If Not GeneroMovimientoAlmacen Then
                                                         OcurrioError = True
@@ -22490,23 +22493,23 @@ Partial Class Ventas
             End If
 
             'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS')
-            'If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then
-            '    Dim SbRem As New StringBuilder
-            '    SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>")
+            If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then
+                Dim SbRem As New StringBuilder
+                SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>")
 
-            '    SbRem.Append("<b>Remisiones Surtidas:</b></br>")
-            '    For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows
-            '        SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
-            '    Next
+                SbRem.Append("<b>Remisiones Surtidas:</b></br>")
+                For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows
+                    SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
+                Next
 
-            '    SbRem.Append("<b>Remisiones No Surtidas:</b></br>")
-            '    For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows
-            '        SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
-            '    Next
+                SbRem.Append("<b>Remisiones No Surtidas:</b></br>")
+                For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows
+                    SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
+                Next
 
-            '    Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia)
-            '    Exit Sub
-            'End If
+                Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
 
             DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
             DdlMoneda.Enabled = False
@@ -23512,6 +23515,9 @@ Partial Class Ventas
 
 
         TmpDT.AcceptChanges()
+        If ViewState("CargoUsado").ToString = "False" Then
+            Exit Sub
+        End If
 
         Dim ObjProductosServicios As New ClsProductosServicios()