se acomodo un layout de reporte de repAlmacen y en portal proveedor se agrego una columna y un filtro sobre las sucursales

PortalProveedor/PortalProveedor.aspx.vb

@@ -250,6 +250,7 @@ Partial Class Portal_PortalProveedor
 
         If Not IsPostBack Then
             CveProveedor = UsuarioActual.CveProveedor
+            CargarSucursalesProveedor()
             Session("FileUpload") = ""
             ViewState("Orden") = ""
 
@@ -355,7 +356,7 @@ Partial Class Portal_PortalProveedor
     Private Sub CargaCxP()
         Dim ObjMovtos As New ClsMovimientos()
 
-        If ObjMovtos.GetCxPProveedor(CveProveedor, "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1) Then
+        If ObjMovtos.GetCxPProveedor(CveProveedor, "-1", "-1", -1, -1, -1, -1, -1, -1, DdlProveedorSucursalCxCSucursal.SelectedValue.ToEntero, -1) Then
 
             GvCxP.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda,OrdenVencimiento, FechaVencimiento")
 
@@ -1813,9 +1814,34 @@ Partial Class Portal_PortalProveedor
 
         CargaDocumentacion()
         objDocumentos.Dispose()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+#Region "Sucursales del proveedor"
+    Private Sub CargarSucursalesProveedor()
+        Dim ObjProveedores As New ClsCompProveedores()
+        If ObjProveedores.GetSucursales(CveProveedor, UsuarioActual.CveEmpresa) Then
+            If ObjProveedores.DtResultados.Rows.Count > 0 Then
+                DdlProveedorSucursalCxCSucursal.DataSource = ObjProveedores.DtResultados
+                'DdlProveedorSucursalPHistorial.DataSource = ObjProveedores.DtResultados
+            Else
+                DivSucursalCxC.Visible = False
+                DivSearch.Attributes("style") = "width:100%"
+                'DivProveedorSucursalHistorial.Visible = False
+            End If
+        End If
+        ObjProveedores.Dispose()
+        DdlProveedorSucursalCxCSucursal.DataBind()
+        'DdlProveedorSucursalPHistorial.DataBind()
+        DdlProveedorSucursalCxCSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
+        'DdlProveedorSucursalPHistorial.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
+    Protected Sub DdlProveedorSucursalCxCSucursal_Changed(sender As Object, e As EventArgs)
+        CargaCxP()
+    End Sub
+#End Region
+
+
 End Class