diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9282f899e..56ee46d7e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16051,8 +16051,8 @@ Partial Class Ventas
                                         importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
                                         TC = TipoCambioFluctuacion
                                     ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                        importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento
+                                        importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
+                                        importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
                                         TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     End If
                                     importeMovimiento = importeMovimiento.RoundSQL
@@ -16064,7 +16064,7 @@ Partial Class Ventas
                                         Pago.Fecha = TxtFechaAnticipoCliente.Text.ToDate
                                         Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
                                         Pago.ImportePagoVenta = importeMovimiento
-                                        Pago.ImportePago = importeMovimiento
+                                        Pago.ImportePago = importeMN
                                         Pago.CveIE = CveIEAnticipo
                                         Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
                                         Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal
@@ -16072,7 +16072,6 @@ Partial Class Ventas
                                         Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
                                         Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
                                         Pago.Referencia = gvr.DataKey("Folio")
-                                        'Pago.CveConceptoPago = 251
 
                                         ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
                                     End If
@@ -19737,7 +19736,7 @@ Partial Class Ventas
                     If DtMovimientos.Rows.Count > 0 Then
                         Dim GeneroMovimientoAlmacen As Boolean = False
 
-                        TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=29") > 0
+                        TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen IN (29,4)") > 0
 
                         TieneMovimientosSinCosto = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=26") > 0
 
@@ -19766,7 +19765,7 @@ Partial Class Ventas
                                     If (CveAlmacenEntrada > 0 AndAlso CveTipoAlmacen <> 1) Or RemisionesLista.Count = 0 Then 'Con remisiones parciales ignoramos las surtidas ya realizadas
 
                                         Dim MovDetalle As New DataTable
-                                        Dim AplicaMovimientoDetalleEntrada As Boolean = False
+                                        Dim AplicaMovimientoDetalleEntrada As Boolean = True
 
                                         If RemisionesLista.Count > 0 Then
                                             AplicaMovimientoDetalleEntrada = True
@@ -19786,35 +19785,9 @@ Partial Class Ventas
 
                                         If ErrorList.Count = 0 AndAlso MovDetalle.Rows.Count > 0 Then
                                             Dim CveMovimientoSalidaPorTraspaso As Integer = -1
-                                            Dim CveConceptoSalidaAlmacen As Integer = 3
-                                            Dim CveAlmacenParaSalida As Integer = CveAlmacenEntrada
+                                            Dim CveConceptoSalidaAlmacen As Integer = 40 'SALIDA DEFINITIVA DEL SISTEMA
+                                            Dim CveAlmacenParaSalida As Integer = CveAlmacenSalida
 
-                                            'SALIDA DEFINITIVA DEL SISTEMA
-                                            If UsuarioActual.Empresa.Funcionalidad(575) = "1" Then
-                                                CveConceptoSalidaAlmacen = 40
-                                                CveAlmacenParaSalida = CveAlmacenSalida
-                                                AplicaMovimientoDetalleEntrada = True
-                                            Else
-                                                'Le damos salida de apartado por traspaso
-                                                CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, ObjConta:=ObjConta)
-
-                                                If Not CveMovimientoSalidaPorTraspaso > 0 Then
-                                                    OcurrioError = True
-                                                    Exit For
-                                                End If
-
-                                                'Le damos entrada al general por traspaso
-                                                If Not OcurrioError Then
-                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, ObjConta:=ObjConta) > 0
-
-                                                    If Not GeneroMovimientoAlmacen Then
-                                                        OcurrioError = True
-                                                        Exit For
-                                                    End If
-                                                End If
-
-
-                                            End If
                                             'Le damos salida normal
                                             If ConSalida AndAlso Not OcurrioError Then
 
@@ -19976,7 +19949,7 @@ Partial Class Ventas
                     If DtMovimientos.Rows.Count > 0 Then
                         Dim GeneroMovimientoAlmacen As Boolean = False
 
-                        TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=29") > 0
+                        TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen IN (29,4)") > 0
 
                         TieneMovimientosSinCosto = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=26") > 0
 
@@ -36393,10 +36366,10 @@ Partial Class Ventas
 
             Dim CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePSDetalle, 1, -1, -1, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, Archivo:="")
 
-            If CveOsDetalle > 0 Then
-                MensajeAlert.AppendFormat(String.Format("<br/>La  Orden de Servicio: <b>{0}</b>  se generó correctamente.<br/>", ObjOrdenServicio.Folio))
-                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
-            Else
+            If Not CveOsDetalle > 0 Then
+                '    MensajeAlert.AppendFormat(String.Format("<br/>La  Orden de Servicio: <b>{0}</b>  se generó correctamente.<br/>", ObjOrdenServicio.Folio))
+                '    MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
+                'Else
                 errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.")
                 Errores = True
             End If