AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--exportación de excel

Browse Source
This commit is contained in:
rrene
2021-11-18 07:59:57 -07:00
parent 9f8f0da5d2
commit cc4b6120d3
2 changed files with 18 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Inventarios/RepAnomalias.aspx
View File

@@ -130,18 +130,18 @@
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row"> <div class="row">
<div class="col-md-1 truncate">Ver por:</div> <div class="col-md-1 truncate">Ver por:</div>
<div class="col-md-1"> <div class="col-md-2">
<asp:DropDownList ID="DdlGPO" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%"> <asp:DropDownList ID="DdlGPO" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%">
<asp:ListItem Text="Detalle" Value="1"></asp:ListItem> <asp:ListItem Text="Detallado Serie/Lote/Cad" Value="1"></asp:ListItem>
<asp:ListItem Text="Cantidad" Value="2"></asp:ListItem> <asp:ListItem Text="Cantidad" Value="2" Selected="True"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-1 truncate">Vista de Resultados:</div> <div class="col-md-2 truncate">Vista de Resultados:</div>
<div class="col-md-1"> <div class="col-md-1">
<asp:DropDownList ID="DdlVista" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%"> <asp:DropDownList ID="DdlVista" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Width="100%">
<asp:ListItem Text="Ver por Detalle" Value="1"></asp:ListItem> <asp:ListItem Text="Detallado" Value="1"></asp:ListItem>
<asp:ListItem Text="Ver por Grupos" Value="2"></asp:ListItem> <asp:ListItem Text="Agrupado" Value="2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>

28
Inventarios/RepAnomalias.aspx.vb
View File

@@ -85,10 +85,14 @@ Partial Class Inventarios_RepAnomalias
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
GvF.Columns(2).Visible = True GvF.Columns(2).Visible = True 'proveedor
GvS.Columns(2).Visible = True GvS.Columns(2).Visible = True 'proveedor
GvC.Columns(2).Visible = True GvC.Columns(2).Visible = True 'proveedor
GvGrupos.Columns(1).Visible = True GvF.Columns(16).Visible = False 'costo
GvS.Columns(16).Visible = False 'costo
GvC.Columns(16).Visible = False 'costo
GvGrupos.Columns(1).Visible = True 'proveedor
GvGrupos.Columns(15).Visible = False 'costo
End If End If
If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
@@ -198,12 +202,10 @@ Partial Class Inventarios_RepAnomalias
End If End If
End If End If
Inventario.Dispose() Inventario.Dispose()
If DdlVista.SelectedValue.ToEntero = 1 Then If DdlVista.SelectedValue.ToEntero = 1 Then
DVNormal.Visible = True DVNormal.Visible = True
@@ -215,7 +217,6 @@ Partial Class Inventarios_RepAnomalias
ImgExcelProdcutosCoinciden.Visible = True ImgExcelProdcutosCoinciden.Visible = True
LnkDescarExcelGrupos.Visible = False LnkDescarExcelGrupos.Visible = False
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvS.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvS.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
@@ -225,20 +226,16 @@ Partial Class Inventarios_RepAnomalias
BanderaSerieLoteCad(GvS, DtS) BanderaSerieLoteCad(GvS, DtS)
GvS.DataBind() GvS.DataBind()
GvF.DataSource = dt.FiltraParametros("Diferencia > 0") GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0") Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
BanderaSerieLoteCad(GvF, DtF) BanderaSerieLoteCad(GvF, DtF)
GvF.DataBind() GvF.DataBind()
Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0") Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
GvC.DataSource = DtC GvC.DataSource = DtC
BanderaSerieLoteCad(GvC, DtC) BanderaSerieLoteCad(GvC, DtC)
GvC.DataBind() GvC.DataBind()
If (GvF.Rows.Count > 0) Then If (GvF.Rows.Count > 0) Then
GvF.UseAccessibleHeader = True GvF.UseAccessibleHeader = True
GvF.HeaderRow.TableSection = TableRowSection.TableHeader GvF.HeaderRow.TableSection = TableRowSection.TableHeader
@@ -325,11 +322,7 @@ Partial Class Inventarios_RepAnomalias
If DdlGPO.SelectedValue.ToEntero = 1 Then If DdlGPO.SelectedValue.ToEntero = 1 Then
PSIguales() PSIguales()
End If End If
End If End If
UpGeneral.Update() UpGeneral.Update()
UPAcciones.Update() UPAcciones.Update()
@@ -504,7 +497,10 @@ Partial Class Inventarios_RepAnomalias
Private Sub LnkDescarExcelGrupos_Click(sender As Object, e As EventArgs) Handles LnkDescarExcelGrupos.Click Private Sub LnkDescarExcelGrupos_Click(sender As Object, e As EventArgs) Handles LnkDescarExcelGrupos.Click
GvGrupos.ExportToExcel("Reporte de Inventario Fisico" & Now.ToShortDateString) GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "", "", "Inventario:" & lbTitulo.Text, "", 1)
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub End Sub
#End Region #End Region