-

Inventarios/TraspasoAlmacen.aspx.vb

@@ -500,7 +500,7 @@ Partial Class Inventarios_TraspasoAlmacen
         '    DdlProducto.Visible = False
         'End If
 
-        CargaPS()
+        FiltraPS()
 
         'Folio
         SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
@@ -508,6 +508,17 @@ Partial Class Inventarios_TraspasoAlmacen
         'DdlProducto.DataBind()
         CargarCamiones()
     End Sub
+    Private Sub FiltraPS()
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlAlmacenOrigen.SelectedValue.ToEntero() > 0 Then
+            Dim DtAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero())
+            If DtAlmacen IsNot Nothing Then
+                Dim CveSubProyecto As Integer = DtAlmacen.FiltroPrimeroValor("CveSubProyecto").ToEntero()
+                CargaPS(CveSubProyecto)
+            End If
+        Else
+            CargaPS(-1)
+        End If
+    End Sub
     Private Sub CargaAlmacenOrigen()
         DdlAlmacenOrigen.Enabled = True
         DdlAlmacenOrigen.Items.Clear()
@@ -517,7 +528,7 @@ Partial Class Inventarios_TraspasoAlmacen
         DdlAlmacenOrigen.DataBind()
         DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
     End Sub
-    Private Sub CargaPS()
+    Private Sub CargaPS(CveSubProyecto As Integer)
 
         Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         DdlProducto2.setEsWebService(EsWS)
@@ -526,8 +537,8 @@ Partial Class Inventarios_TraspasoAlmacen
             'DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
             If UsuarioActual.Empresa.Funcionalidad(141) = "1" Then
                 DdlProducto2.ddlWS.Attributes.Add("data-pagina", "inv/traspaso")
+                DdlProducto2.ddlWS.Attributes.Add("data-cvesubproyecto", CveSubProyecto.ToString())
                 DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes")
-                CargaExistenciasSucursal()
                 DdlAlmacenOrigen.AutoPostBack = True
             End If
         Else
@@ -538,8 +549,8 @@ Partial Class Inventarios_TraspasoAlmacen
     End Sub
 
     Private Sub CargaExistenciasSucursal()
-        DdlProducto2.Attributes.Remove("Data-cvesubproyecto")
-        DdlProducto2.Attributes.Add("Data-cvesubproyecto", GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}"))
+        DdlProducto2.Attributes.Clear()
+        FiltraPS()
     End Sub
     Private Sub SiguienteFolio(CveConcepto As Integer)
         'Dim Inv As New ClsInventarios
@@ -2991,8 +3002,8 @@ Partial Class Inventarios_TraspasoAlmacen
                                 ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
                             End If
 
-                            Else
-                                RowsNoCargados = RowsNoCargados + 1
+                        Else
+                            RowsNoCargados = RowsNoCargados + 1
                             ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
                         End If
                     End If