This commit is contained in:
Antonio Gonzalez
2020-03-10 15:38:21 -07:00
2 changed files with 110 additions and 34 deletions

View File

@@ -260,6 +260,42 @@
<asp:HyperLink ID="HplFolio" runat="server" Text='<%# Eval("SerieFolio")%>' CssClass="Texto"></asp:HyperLink>
</ItemTemplate>
</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>
<HeaderTemplate>
Total
@@ -350,7 +386,7 @@
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
<ContentTemplate>
<div id="" style="width: 340px">
<div id="" style="width: 100%">
<table>
<tr>
<td colspan="2">
@@ -360,25 +396,35 @@
<asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td>
<td style="text-align: left;">
<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;">
<asp:CheckBox ID="ChkProveedor" runat="server" Text="Proveedor" Checked="true" /></td>
</tr>
<tr>
<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;">
<asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" Checked="false" /></td></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;">
<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>
</td>
</tr>

View File

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