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

Personalizar columnas en reporte de cxp detalle

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-03-10 12:58:31 -07:00
parent 65aca22883
commit 2d29d4d337
2 changed files with 110 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
Compras/RepCxPDetalle.aspx
View File

@@ -260,6 +260,42 @@
<asp:HyperLink ID="HplFolio" runat="server" Text='<%# Eval("SerieFolio")%>' CssClass="Texto"></asp:HyperLink> <asp:HyperLink ID="HplFolio" runat="server" Text='<%# Eval("SerieFolio")%>' CssClass="Texto"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
SubTotal
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSubTotal" runat="server" Text='<%# Eval("SubTotal", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
IVA
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
IEPS
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Descuento
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlDescuento" runat="server" Text='<%# Eval("Descuentos", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
Total Total
@@ -350,7 +386,7 @@
<div class="modal-body"> <div class="modal-body">
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div id="" style="width: 340px"> <div id="" style="width: 100%">
<table> <table>
<tr> <tr>
<td colspan="2"> <td colspan="2">
@@ -360,25 +396,35 @@
<asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td> <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td> <asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaVencimiento" runat="server" Text="Fecha Venc." Checked="true" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkDiasVencidos" runat="server" Text="Dias Vencidos" Checked="true" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkProveedor" runat="server" Text="Proveedor" Checked="true" /></td> <asp:CheckBox ID="ChkProveedor" runat="server" Text="Proveedor" Checked="true" /></td>
</tr> </tr>
<tr> <tr>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkCuenta" runat="server" Text="Cuenta" Checked="true" /></td> <asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="false" /></td>
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" Checked="false" /></td></td> <asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" Checked="false" /></td></td>
</tr> </tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkDiasVencidos" runat="server" Text="Dias Vencidos" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="false" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkCuenta" runat="server" Text="Cuenta" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" Checked="false" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaVencimiento" runat="server" Text="Fecha Venc." Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="false" /></td>
</tr>
</table> </table>
</td> </td>
</tr> </tr>

74
Compras/RepCxPDetalle.aspx.vb
View File

@@ -223,14 +223,15 @@ Partial Class RepCxPDetalle
Personalizo = 0 Personalizo = 0
ViewState("Opcion") = IfNull(Request("Op"), "S") ViewState("Opcion") = IfNull(Request("Op"), "S")
MostrarOcultarColumnas()
CargaCombos() CargaCombos()
If Request("Op") IsNot Nothing Then If Request("Op") IsNot Nothing Then
CargaDatos() CargaDatos()
End If End If
'ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") 'ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
End If End If
End Sub End Sub
#Region "CARGAS" #Region "CARGAS"
Private Sub CargaCombos() Private Sub CargaCombos()
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -321,7 +322,6 @@ Partial Class RepCxPDetalle
End Sub End Sub
Private Function CargaCuentasContables(DT As DataTable) As DataTable Private Function CargaCuentasContables(DT As DataTable) As DataTable
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
@@ -441,10 +441,10 @@ Partial Class RepCxPDetalle
'Dim ObjEmpresa As New ClsEmpresas() 'Dim ObjEmpresa As New ClsEmpresas()
'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then 'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
If Opcion <> "S" Then 'If Opcion <> "S" Then
If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False ' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False ' If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
End If 'End If
'End If 'End If
'ObjEmpresa.Dispose() 'ObjEmpresa.Dispose()
End Sub End Sub
@@ -516,14 +516,13 @@ Partial Class RepCxPDetalle
End If End If
End If End If
End Sub End Sub
#End Region #End Region
#Region "PERSONALIZAR" #Region "PERSONALIZAR"
Protected Sub MostrarOcultarColumnas()
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
If ChkFolio.Checked Then If ChkFolio.Checked Then
GvDatos.Columns(1).Visible = True GvDatos.Columns(1).Visible = True
Else Else
@@ -536,42 +535,72 @@ Partial Class RepCxPDetalle
GvDatos.Columns(2).Visible = False GvDatos.Columns(2).Visible = False
End If End If
If ChkSaldo.Checked Then If ChkIVA.Checked Then
GvDatos.Columns(3).Visible = True GvDatos.Columns(3).Visible = True
Else Else
GvDatos.Columns(3).Visible = False GvDatos.Columns(3).Visible = False
End If End If
If ChkFechaVencimiento.Checked Then If ChkIEPS.Checked Then
GvDatos.Columns(4).Visible = True GvDatos.Columns(4).Visible = True
Else Else
GvDatos.Columns(4).Visible = False GvDatos.Columns(4).Visible = False
End If End If
If ChkDiasVencidos.Checked Then If ChkDescuento.Checked Then
GvDatos.Columns(5).Visible = True GvDatos.Columns(5).Visible = True
Else Else
GvDatos.Columns(5).Visible = False GvDatos.Columns(5).Visible = False
End If End If
If ChkProveedor.Checked Then If ChkTotal.Checked Then
GvDatos.Columns(6).Visible = True GvDatos.Columns(6).Visible = True
Else Else
GvDatos.Columns(6).Visible = False GvDatos.Columns(6).Visible = False
End If End If
If ChkCuenta.Checked Then If ChkSaldo.Checked Then
GvDatos.Columns(7).Visible = True GvDatos.Columns(7).Visible = True
Else Else
GvDatos.Columns(7).Visible = False GvDatos.Columns(7).Visible = False
End If End If
If ChkObservaciones.Checked Then If ChkFechaVencimiento.Checked Then
GvDatos.Columns(8).Visible = True GvDatos.Columns(8).Visible = True
Else Else
GvDatos.Columns(8).Visible = False GvDatos.Columns(8).Visible = False
End If End If
If ChkDiasVencidos.Checked Then
GvDatos.Columns(9).Visible = True
Else
GvDatos.Columns(9).Visible = False
End If
If ChkProveedor.Checked Then
GvDatos.Columns(10).Visible = True
Else
GvDatos.Columns(10).Visible = False
End If
If ChkCuenta.Checked Then
GvDatos.Columns(11).Visible = True
Else
GvDatos.Columns(11).Visible = False
End If
If ChkObservaciones.Checked Then
GvDatos.Columns(12).Visible = True
Else
GvDatos.Columns(12).Visible = False
End If
If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
GvDatos.Columns(13).Visible = True
Else
GvDatos.Columns(13).Visible = False
End If
Personalizo = 1 Personalizo = 1
If Personalizo = 1 Then If Personalizo = 1 Then
ImgExcelPersonalizado.Visible = True ImgExcelPersonalizado.Visible = True
@@ -579,9 +608,10 @@ Partial Class RepCxPDetalle
ImgExcelPersonalizado.Visible = False ImgExcelPersonalizado.Visible = False
End If End If
UPDatos.Update()
UPDatos.Update() End Sub
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
MostrarOcultarColumnas()
RegistraScript("$('#DivPersonalizar').modal('hide');") RegistraScript("$('#DivPersonalizar').modal('hide');")
End Sub End Sub