Econo - en traspasoalmacen. solo mostrar los almacenes del centro de costo origen.

Ventas/Ventas.aspx.vb

@@ -3463,10 +3463,14 @@ Partial Class Ventas
                 LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
                 LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
 
-                If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+                If Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
                     HplDownPDF.Visible = False
                 End If
 
+                DdlPS.Attributes.Remove("data-cvesubproyecto")
+                DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
+
+                UpPS.Update()
                 UPObservaciones.Update()
             End If
 
@@ -7893,10 +7897,10 @@ Partial Class Ventas
             End If
 
             Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue
-            If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                'cuando es empresa llantera (558) o cuando es empresa acumuladores
-                cvesubproyecto = "-1"
-            End If
+            'If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            '    'cuando es empresa llantera (558) o cuando es empresa acumuladores
+            '    cvesubproyecto = "-1"
+            'End If
 
             Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto)
             Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
@@ -17431,6 +17435,11 @@ Partial Class Ventas
         CargaVendedores()
         HabilitarRemisionesPublicoGeneral()
 
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+            DdlPS.Attributes.Remove("data-cvesubproyecto")
+            DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
+        End If
+
         UpDetalle.Update()
         UpEmitirTransitorio.Update()
     End Sub