diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx
index f347f623e..f9839c246 100644
--- a/Inventarios/RepAlmacen.aspx
+++ b/Inventarios/RepAlmacen.aspx
@@ -171,16 +171,8 @@
-
-
-
-
-
-
-
-
-
-
+
+
diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb
index 9f7fd0836..e3608d3e7 100644
--- a/Inventarios/RepAlmacen.aspx.vb
+++ b/Inventarios/RepAlmacen.aspx.vb
@@ -4,6 +4,8 @@ Option Explicit On
Imports Extensiones
Imports System.Data
Imports Microsoft.Reporting.WebForms
+Imports GemBox.Spreadsheet
+Imports System.IO
Partial Class Inventarios_RepAlmacen
Inherits ClsPaginas
@@ -76,10 +78,10 @@ Partial Class Inventarios_RepAlmacen
End Sub
#Region "I M P R I M I R "
- Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
- 'GVAlmacen.ExportToExcel("RepFacturas_" & Now.ToShortDateString())
- GenerarPDF("EXCEL")
-
+ Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+ GenerarPDF("EXCEL")
+
End Sub
Private Sub GenerarPDF(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
diff --git a/PortalProveedor/PortalProveedor.aspx b/PortalProveedor/PortalProveedor.aspx
index 16c1ca692..c4114baf4 100644
--- a/PortalProveedor/PortalProveedor.aspx
+++ b/PortalProveedor/PortalProveedor.aspx
@@ -167,9 +167,17 @@
-
@@ -223,6 +240,7 @@
+
diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb
index 4b1f46663..370954255 100644
--- a/PortalProveedor/PortalProveedor.aspx.vb
+++ b/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
\ No newline at end of file