diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 3258098dc..9d519cff9 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -511,7 +511,7 @@
                                         <asp:ListItem Text="Costo Indirecto" Value="4"></asp:ListItem>
                                         <asp:ListItem Text="Importación" Value="5"></asp:ListItem>
                                         <asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
-                                        <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
+                                        <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem> 
                                         <asp:ListItem Text="NC Por Devolución" Value="11"></asp:ListItem>
 
                                         <%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem> Ocuoado usado en Garantía--%> 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 244905f30..33ca7e62f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2121,7 +2121,10 @@ Partial Class Compras_Compras
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
                             DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
                             DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
-                            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
+                            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
+                                DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
+                            End If
                         Case "E"
                             DdlTipoComprobante.SelectedValue = "NC"
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
@@ -2808,6 +2811,9 @@ Partial Class Compras_Compras
                 ViewState("CveProveedor") = CveProveedor
                 ImgBtnBuscarOC.OnClientClick = String.Format("AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={0}&T={1}&Masterimpoup=true',1000,600,'S'); return false;", CveProveedor, DdlTipoComprobante.SelectedValue)
 
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                    If dr("TipoDocto").ToString = "Fac" Then DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
+                End If
 
                 Dim ObjBancos As New ClsBancos()
 
@@ -2817,13 +2823,11 @@ Partial Class Compras_Compras
                     GvCreditosRelacionados.DataBind()
                     GvCreditos.Visible = False
                     GvCreditosRelacionados.Visible = True
-
                     PnlContadoCreditos.Visible = True
                 Else
                     GvCreditosRelacionados.DataSource = Nothing
                     GvCreditosRelacionados.Visible = False
                     GvCreditosRelacionados.DataBind()
-
                 End If
                 UpGvCreditos.Update()
                 LblImporteCreditos.Visible = True
@@ -2847,7 +2851,6 @@ Partial Class Compras_Compras
                 If ChkEsNoDeducible.Checked Then AplicarNoDeducible()
                 LblMetodoPago.Text = dr("MetodoPagoSAT").ToString
                 CveConceptoContableAlmacen = dr("CveConceptoContableAlmacen").ToString.ToEntero
-
                 If UsuarioActual.Empresa.UsaAC Then
                     CambiaEjercicioAC(False)
                 End If
@@ -5867,6 +5870,15 @@ Partial Class Compras_Compras
                                                                     ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 68, ObjInventario.Folio.ToString, ObjInventario.Folio.ToString, CveMovimientoAlmacen:=CveMovimientoInventario)
                                                                 End If
 
+                                                                If Not ErrorMovInv Then
+                                                                    'REPLICAR MOVTO GENERADO
+                                                                    If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoInventario > 0 Then
+                                                                        If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoInventario) Then
+                                                                            ErrorMovInv = True
+                                                                        End If
+                                                                    End If
+                                                                End If
+
                                                             End If
                                                         Next
                                                     End If
@@ -7498,11 +7510,29 @@ Partial Class Compras_Compras
                                                 End If
                                                 '5, 305, 306, 311
                                                 If importeMovimiento <> 0 Or (CveConceptoOriginal = 5 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
+
                                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN.RoundSQL, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
                                                         ErrorPrepoliza = True
                                                         Exit For
                                                     End If
 
+                                                    '''Empresas VSH 
+                                                    If (Not ErrorPrepoliza) AndAlso ConceptoContable = 14 AndAlso UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso RBLPago.SelectedValue.ToEntero = 3 AndAlso RBLContado.SelectedValue.ToEntero.Contiene(6, 2) Then
+
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, False, True), importeMovimiento, importeMN.RoundSQL, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
+                                                            ErrorPrepoliza = True
+                                                            Exit For
+                                                        End If
+
+                                                        If Not ErrorPrepoliza Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, True, False), importeMovimiento, importeMN.RoundSQL, 19, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
+                                                                ErrorPrepoliza = True
+                                                                Exit For
+                                                            End If
+                                                        End If
+
+                                                    End If
+
                                                 End If
                                             Next
 
@@ -13875,6 +13905,15 @@ Partial Class Compras_Compras
                         End If
                     Next
                 End If
+
+                If Not ErrorMovInv Then
+                    'REPLICAR MOVTO GENERADO
+                    If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
+                        If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                End If
             Else
                 ErrorMovInv = True
                 Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
@@ -14554,6 +14593,15 @@ Partial Class Compras_Compras
                         End If
 
                     End If
+
+                    If Not ErrorCancelar Then
+                        'REPLICAR MOVTO GENERADO
+                        If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
+                            If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
+                                ErrorCancelar = True
+                            End If
+                        End If
+                    End If
                 Next
 
             End If
@@ -19380,6 +19428,15 @@ Partial Class Compras_Compras
                 Respuesta = False
             End If
 
+            If Not Respuesta Then
+                'REPLICAR MOVTO GENERADO
+                If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalida > 0 Then
+                    If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalida) Then
+                        Respuesta = False
+                    End If
+                End If
+            End If
+
         End If
 
         If Respuesta Then