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

28
Inventarios/RepAnomalias.aspx.vb
View File

@@ -85,10 +85,14 @@ Partial Class Inventarios_RepAnomalias
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
GvF.Columns(2).Visible = True
GvS.Columns(2).Visible = True
GvC.Columns(2).Visible = True
GvGrupos.Columns(1).Visible = True
GvF.Columns(2).Visible = True 'proveedor
GvS.Columns(2).Visible = True 'proveedor
GvC.Columns(2).Visible = True 'proveedor
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
If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
@@ -198,12 +202,10 @@ Partial Class Inventarios_RepAnomalias
End If
End If
Inventario.Dispose()
If DdlVista.SelectedValue.ToEntero = 1 Then
DVNormal.Visible = True
@@ -215,7 +217,6 @@ Partial Class Inventarios_RepAnomalias
ImgExcelProdcutosCoinciden.Visible = True
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 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)
@@ -225,20 +226,16 @@ Partial Class Inventarios_RepAnomalias
BanderaSerieLoteCad(GvS, DtS)
GvS.DataBind()
GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
BanderaSerieLoteCad(GvF, DtF)
GvF.DataBind()
Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
GvC.DataSource = DtC
BanderaSerieLoteCad(GvC, DtC)
GvC.DataBind()
If (GvF.Rows.Count > 0) Then
GvF.UseAccessibleHeader = True
GvF.HeaderRow.TableSection = TableRowSection.TableHeader
@@ -325,11 +322,7 @@ Partial Class Inventarios_RepAnomalias
If DdlGPO.SelectedValue.ToEntero = 1 Then
PSIguales()
End If
End If
UpGeneral.Update()
UPAcciones.Update()
@@ -504,7 +497,10 @@ Partial Class Inventarios_RepAnomalias
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 Region