diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0ca49f970..4d8bf7e6e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6949,10 +6949,10 @@ Partial Class Ventas
                                 Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
                                 Vta.Dispose()
                                 If Opcion > 0 Then
-                                    If Opcion = 1 Then
-                                        BtnEmitirImprimir.Visible = False
-                                        BtnsFacturar.Visible = False
-                                    End If
+                                    'If Opcion = 1 Then
+                                    '    BtnEmitirImprimir.Visible = False
+                                    '    BtnsFacturar.Visible = False
+                                    'End If
                                     If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                                 Else
                                     If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
@@ -6978,6 +6978,7 @@ Partial Class Ventas
                                 LnkPedido2SinFacturar.Visible = False
                                 LnkCotizaciones.Visible = False
                                 LnkOCs.Visible = False
+
                             Else
                                 'VERIFICAR LIMITE DE CREDITO
                                 If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 AndAlso RBLPago.SelectedValue = "1" Then
@@ -19858,7 +19859,7 @@ Partial Class Ventas
                                                 AplicaMovimientoDetalleEntrada = True
                                             Else
                                                 'Le damos salida de apartado por traspaso
-                                                CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada)
+                                                CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, ObjConta:=ObjConta)
 
                                                 If Not CveMovimientoSalidaPorTraspaso > 0 Then
                                                     OcurrioError = True
@@ -19867,7 +19868,7 @@ Partial Class Ventas
 
                                                 'Le damos entrada al general por traspaso
                                                 If Not OcurrioError Then
-                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada) > 0
+                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, ObjConta:=ObjConta) > 0
 
                                                     If Not GeneroMovimientoAlmacen Then
                                                         OcurrioError = True
@@ -20155,6 +20156,13 @@ Partial Class Ventas
                         Dim Cont As Integer = 1
                         Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
 
+                        Dim TipoMovto69 As Boolean = False
+
+                        'SI ES MOVIMIENTO DE ENTRADA CAMBIAR LA NATURALEZA DEL MOVIMIENTO
+                        If ConceptoEntrada.Contiene(9) Then
+                            TipoMovto69 = True
+                        End If
+
                         For Each RowInv As DataRow In DtCostosDistinct.Rows
                             ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
                             IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
@@ -20167,13 +20175,14 @@ Partial Class Ventas
 
                             Try
                                 'If ValorInventario <> 0 Then
-                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ValorInventario, 69, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto69, ValorInventario, ValorInventario, 69, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
                                     OcurrioError = True
                                     Exit For
                                 End If
                                 'End If
                             Catch ex As Exception
                                 OcurrioError = True
+                                ModExtensiones.GuardaLog("Error inesperado (15147)." + ex.ToString())
                                 Alert("Error inesperado (15147). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
                             End Try
                             Cont += 1
@@ -20181,7 +20190,7 @@ Partial Class Ventas
 
                         If Not OcurrioError Then
                             IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero()
-                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, TotalCosto, 68, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovto69, TotalCosto, TotalCosto, 68, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
                                 OcurrioError = True
                             End If
                         End If