From 1dc5056b1d03427f7c7f46db14bb498f4ce5d2eb Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Sat, 17 Oct 2020 09:58:44 -0700
Subject: [PATCH] se acomodo un layout de reporte de repAlmacen y en portal
 proveedor se agrego una columna y un filtro sobre las sucursales

---
 Inventarios/RepAlmacen.aspx             | 12 ++-------
 Inventarios/RepAlmacen.aspx.vb          | 10 ++++---
 PortalProveedor/PortalProveedor.aspx    | 30 ++++++++++++++++-----
 PortalProveedor/PortalProveedor.aspx.vb | 36 +++++++++++++++++++++----
 4 files changed, 63 insertions(+), 25 deletions(-)

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 @@
                             <asp:Label ID="LtlAlmacen" runat="server" Text='<%# Eval("TipoAlmacen")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Existencia" ItemStyle-HorizontalAlign="Right">
-                        <ItemTemplate>
-                            <asp:Label ID="LtlExist" runat="server" Text='<%# Eval("Existencia", "{0:#,###.##}")%>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
-                        <ItemTemplate>
-                            <asp:Label ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:#,##0.00}")%>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
+                    <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
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  <i class='fa fa-print'></i>"
-    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 @@
                                     <asp:LinkButton ID="BtnPDFHistorial" OnClick="LbPDFHistorial_Click" runat="server" ToolTip="Imprime PDF del Historial" Style="float: right;"><i class="fa fa-print" style="margin-right: 10px;"></i></asp:LinkButton>
                                     <asp:LinkButton ID="BtnExcelHistorial" OnClick="BtnExcelHistorial_Click" runat="server" ToolTip="Descarga Excel del Historial" Style="float: right;"><i style="margin-right: 10px;" class='fa fa-download'></i></asp:LinkButton>
                                 </legend>
-                                <div class="text-right" style="margin-top: -5px!important">
-                                    <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvCxP.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                    <a href="javascript:;" onclick="FiltrarTabla('TxtBusqueda1','C_Tab_TabCxP_GvCxPPanelItem')" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                <div style="width:100%" class="row">
+                                    <div class="col-md-1 text-left" style="margin-top: -5px!important;width:50%">
+                                        <div class="row" runat="server" id="DivSucursalCxC">
+                                            <asp:Label runat="server" ID="lblSucursal" Text="Sucursal:" class="col-sm-1" Style="Width:85px" />
+                                            <asp:DropDownList ID="DdlProveedorSucursalCxCSucursal" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" AutoPostBack="true" runat="server" OnSelectedIndexChanged="DdlProveedorSucursalCxCSucursal_Changed" CssClass="col-md-1 form-control input-sm input-small" />
+                                        </div>
+                                    </div>
+                                    <div class="col-md-1 text-right" style="margin-top: -5px!important;width:50%" runat="server" id="DivSearch">
+                                        <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvCxP.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                        <a href="javascript:;" onclick="FiltrarTabla('TxtBusqueda1','C_Tab_TabCxP_GvCxPPanelItem')" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                    </div>
                                 </div>
                                 <asp:UpdatePanel ID="UPPCxP" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
@@ -185,6 +193,7 @@
                                                 <asp:BoundField DataField="PorPagado" DataFormatString="{0:N2}%" HeaderText="% Abonado" />
                                                 <asp:BoundField DataField="Saldo" DataFormatString="{0:N2}" HeaderText="Saldo" />
                                                 <asp:BoundField DataField="PorXPagar" DataFormatString="{0:N2}%" HeaderText="% A Cobrar" ItemStyle-HorizontalAlign="Center" />
+                                                <asp:BoundField DataField="AplicaNC" HeaderText="Aplica NC" ItemStyle-Width="10%" />
 
                                             </Columns>
                                         </asp:GridView>
@@ -205,9 +214,17 @@
                                     <asp:LinkButton ID="BtnPDFPagadas" OnClick="LbPDFPagadas_Click" runat="server" ToolTip="Imprime PDF del Historial" Style="float: right;"><i class="fa fa-print" style="margin-right: 10px;"></i></asp:LinkButton>
                                     <asp:LinkButton ID="BtnExcelPagadas" OnClick="BtnExcelPagadas_Click" runat="server" ToolTip="Descarga Excel del Historial" Style="float: right;"><i style="margin-right: 10px;" class='fa fa-download'></i></asp:LinkButton>
                                 </legend>
-                                <div class="text-right">
-                                    <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvCxPHistorial.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvCxPHistorial.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                <div style="width:100%" class="row">
+                                    <div class="col-md-1 text-left" style="margin-top: -5px!important;width:50%">
+                                        <%--<div class="row" runat="server" id="DivProveedorSucursalHistorial">
+                                            <asp:Label runat="server" ID="lblProveedorSucursalHistorial" Text="Sucursal: " class="col-md-1" Style="Width:85px" />
+                                            <asp:DropDownList ID="DdlProveedorSucursalPHistorial" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" runat="server" CssClass="col-md-1 form-control input-sm input-small" />
+                                        </div>--%>
+                                    </div>
+                                    <div class="col-md-1 text-right" style="width:100%">
+                                        <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvCxPHistorial.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvCxPHistorial.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                    </div>
                                 </div>
                                 <asp:UpdatePanel ID="UPGvCxPHistorial" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
@@ -223,6 +240,7 @@
                                                 <asp:BoundField DataField="PorPagado" DataFormatString="{0:N2}%" HeaderText="% Abonado" />
                                                 <asp:BoundField DataField="FolioPago" DataFormatString="{0:N2}" HeaderText="Cheque" />
                                                 <asp:BoundField DataField="PorXPagar" DataFormatString="{0:N2}%" HeaderText="% A Cobrar" />
+                                                <asp:BoundField DataField="AplicaNC" HeaderText="Aplica NC" ItemStyle-Width="10%"/>
 
                                             </Columns>
                                         </asp:GridView>
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