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

Editar IE CArgar Tipos de transacciones se gun naturaleza de la transacción

Browse Source
This commit is contained in:
rakcsle
2022-03-10 12:29:50 -07:00
parent a020d99579
commit acbfc081bf
5 changed files with 33 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/RepOrigenAplicacion.aspx
View File

@@ -235,7 +235,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveCuenta">
<Columns>
<asp:TemplateField HeaderText="Concepto">
<ItemTemplate>
@@ -246,14 +246,14 @@
<asp:TemplateField HeaderText="" Visible="false">
<ItemTemplate>
<asp:Label ID="LblImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>' ></asp:Label>
<asp:HyperLink ID="HLlImporteBase" runat="server" Text='<%# Eval("ImporteBase", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="100" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="" Visible="false">
<ItemTemplate>
<asp:Label ID="ImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' ></asp:Label>
<asp:HyperLink ID="HLImporteActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank" ></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="100" HorizontalAlign="Right" />
</asp:TemplateField>

19
Contabilidad/RepOrigenAplicacion.aspx.vb
View File

@@ -82,7 +82,7 @@ Partial Class Contabilidad_RepOrigenAplicacion
TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
If UsuarioActual.Empresa.UsaContabilidadSIG Then
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
TabMensual.Enabled = False
TabAnual.Enabled = False
@@ -156,7 +156,7 @@ Partial Class Contabilidad_RepOrigenAplicacion
If UsuarioActual.Empresa.UsaContabilidadSIG Then
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim AnioActual As Integer = TxtFechaAl.Text.ToDate.Year
Dim AnioAnteior As Integer = AnioActual - 1
@@ -234,6 +234,21 @@ Partial Class Contabilidad_RepOrigenAplicacion
e.Row.FCLabel("LbNombre").Text = "TOTAL"
End If
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
'Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta=55274&FF=31/12/2021
Dim FechaFinBase As Date = New Date(TxtFechaAl.Text.ToDate.Year - 1, 12, 31)
If e.Row.DataKey("CveCuenta").ToEntero > 0 Then
e.Row.FCHyperLink("HLlImporteBase").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={FechaFinBase.ToString("dd/MM/yyyy")}"
e.Row.FCHyperLink("HLImporteActual").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
e.Row.FCHyperLink("HLOrigen").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
e.Row.FCHyperLink("HLAplicacion").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}"
End If
End If
End If
End Sub
#End Region