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

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