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

- incluir método y forma de pago en detalle, y personalizado

Browse Source
This commit is contained in:
rrene
2024-06-26 06:38:46 -07:00
parent cf5387566f
commit 7018f4bb42
3 changed files with 19 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
CxC/RepCxC.aspx
View File

@@ -756,7 +756,7 @@
<asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
<asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
<asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
<asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Venta" Value="2"></asp:ListItem>
<asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
</asp:RadioButtonList>

10
CxC/RepCxCDetalle.aspx
View File

@@ -537,6 +537,8 @@
<asp:BoundField HeaderText="Fecha Ejecución" DataField="FechaEjecucion" DataFormatString="{0:d}" Visible="false" />
<asp:BoundField HeaderText="Linea Adicional" DataField="LineaAdicional" Visible="false" />
<asp:BoundField HeaderText="Descripción" DataField="DescripcionVenta" Visible="false" />
<asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" Visible="false" />
<asp:BoundField HeaderText="Forma Pago" DataField="FormaPago" Visible="false" />
<asp:BoundField HeaderText="Contrato" DataField="NumeroContrato" Visible="false" />
<asp:BoundField HeaderText="SubTotal Pend" DataField="SubTotalPendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" Visible="false" />
<asp:BoundField HeaderText="IVA Pend" DataField="IVAPendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" Visible="false" />
@@ -675,7 +677,8 @@
<asp:CheckBox ID="ChkMostrarDescripcionVenta" runat="server" Text="&nbsp;Descripción Venta" Checked="false" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkContrato" runat="server" Text="&nbsp;Contrato" Checked="false" /></td>
<td style="text-align: left;"></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkMetodoPago" runat="server" Text="&nbsp;Método Pago" /></td>
</tr>
<tr>
@@ -684,8 +687,9 @@
<td style="text-align: left;">
<asp:CheckBox ID="ChkIVAPend" runat="server" Text="&nbsp;IVA Pendiente" Checked="false" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkIEPSPend" runat="server" Text="&nbsp;IEPS Pendiente" Checked="false" /></td>
<td style="text-align: left;"></td>
<asp:CheckBox ID="ChkIEPSPend" runat="server" Text="&nbsp;IEPS Pendiente" Checked="false" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFormaPago" runat="server" Text="&nbsp;Forma Pago" /></td>
</tr>
<tr runat="server" id="trEnquebranto" visible="false">
<td style="text-align: left;">

23
CxC/RepCxCDetalle.aspx.vb
View File

@@ -627,13 +627,15 @@ Partial Class RepCxCDetalle
ActivaColumna(44, ChkFechaEjecucion.Checked)
ActivaColumna(45, ChkMostrarLineaAdicional.Checked)
ActivaColumna(46, ChkMostrarDescripcionVenta.Checked)
ActivaColumna(47, ChkContrato.Checked)
ActivaColumna(48, ChkSubTotalPend.Checked)
ActivaColumna(49, ChkIVAPend.Checked)
ActivaColumna(50, ChkIEPSPend.Checked)
ActivaColumna(51, ChkEnQuebranto.Checked)
ActivaColumna(52, ChkEnDemanda.Checked)
ActivaColumna(53, ChkRegistroFirmas.Checked)
ActivaColumna(47, ChkMetodoPago.Checked)
ActivaColumna(48, ChkFormaPago.Checked)
ActivaColumna(49, ChkContrato.Checked)
ActivaColumna(50, ChkSubTotalPend.Checked)
ActivaColumna(51, ChkIVAPend.Checked)
ActivaColumna(52, ChkIEPSPend.Checked)
ActivaColumna(53, ChkEnQuebranto.Checked)
ActivaColumna(54, ChkEnDemanda.Checked)
ActivaColumna(55, ChkRegistroFirmas.Checked)
If SePersonalizo = 1 Then
ImgExcelPersonalizado.Visible = True
@@ -641,18 +643,15 @@ Partial Class RepCxCDetalle
ImgExcelPersonalizado.Visible = False
End If
CargaDatos()
RegistraScript("$('#DivPersonalizar').modal('hide');")
End Sub
Private Sub ActivaColumna(Indice As Integer, Activo As Boolean)
If Activo Then
GvDatos.Columns(Indice).Visible = True
If GvDatos.Columns(Indice).Visible <> Activo Then
GvDatos.Columns(Indice).Visible = Activo
SePersonalizo = 1
'Else
' SePersonalizo = 0
End If
End Sub