diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6746f54e3..c4d1062b7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2732,6 +2732,14 @@ Partial Class Ventas
 
                 End Using
 
+                If TmpDT IsNot Nothing Then
+                    DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
+                    TabAlmacen.Visible = True
+                    DivAlmacen.Visible = True
+                    CargaGVInv(DtInv)
+                End If
+
+
                 If AplicaComercioExterior Then
                     CargaGvComercioExterior()
                 End If