diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 97560784d..cc1afcc10 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4747,7 +4747,7 @@ Partial Class Ventas
     End Function
     Private Sub CargarAlmacenes()
 
-        If CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot" Then
+        If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not (UsuarioActual.CveEmpresa = 141 AndAlso EsCreaApartirDe) Then
             DivAlmacen.Visible = False
         Else
             Dim DTAlmacen As DataTable
@@ -6340,6 +6340,10 @@ Partial Class Ventas
                 e.Row.FCCheckBox("cbInv").Visible = False
             End If
 
+            If (CveVenta > 0 AndAlso EsCreaApartirDe AndAlso UsuarioActual.CveEmpresa = 141) Then
+                e.Row.FCCheckBox("cbInv").Visible = True
+            End If
+
 
         End If
     End Sub
@@ -15893,7 +15897,7 @@ Partial Class Ventas
         GvPS.DataBind()
 
         'RECARGA GV INVENTARIO
-        If Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot" Then
+        If (Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot") OrElse (UsuarioActual.CveEmpresa = 141 AndAlso EsCreaApartirDe) Then
             DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
             CargaGVInv(DtInv)
         End If
@@ -24975,6 +24979,19 @@ Partial Class Ventas
         GvPS.Columns(17).Visible = True
         GvPS.Columns(18).Visible = True
 
+        CambiaTipoDocto()
+        CambiaSucursalGeneral()
+        CargaAnticipos(CveCliente)
+        CargaRestriccionesCreditoCliente(CveVenta:=-1)
+
+        If UsuarioActual.CveEmpresa = 141 Then
+            TabAlmacen.Visible = True
+            DivAlmacen.Visible = True
+            CargaGVInv(TmpDT.FiltraParametros("CveTipoPS = 2"))
+        End If
+
+        BloqueaCondiconesPago()
+
         UpnTools.Update()
         UpCliente.Update()
         UpParametros.Update()
@@ -24985,13 +25002,8 @@ Partial Class Ventas
         UPCondicionesPago.Update()
         UpDetalle.Update()
         UpEstatus.Update()
-
-        CambiaTipoDocto()
-        CambiaSucursalGeneral()
-        CargaAnticipos(CveCliente)
-        CargaRestriccionesCreditoCliente(CveVenta:=-1)
-        BloqueaCondiconesPago()
         UpParametros.Update()
+        UpINV.Update()
 
     End Sub
 #End Region