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

-option explicit

Browse Source
This commit is contained in:
rrene
2023-11-22 11:00:45 -07:00
parent 471cc05173
commit 0b3db5ec97
1 changed files with 14 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
AC/RepSituacionFinanciera.aspx.vb
View File

@@ -181,8 +181,8 @@ Partial Class AC_SituacionFinanciera
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) Dim FechaI As String = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
Dim FechaF = FechaI.ToDate.LastDayOfMonth.ToShortDateString Dim FechaF As String = FechaI.ToDate.LastDayOfMonth.ToShortDateString
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
@@ -191,7 +191,7 @@ Partial Class AC_SituacionFinanciera
GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString
Dim IdCuentaAhorroDesahorro = 9999 Dim IdCuentaAhorroDesahorro As Integer = 9999
If UsuarioActual.CveEmpresa = 48 Then If UsuarioActual.CveEmpresa = 48 Then
IdCuentaAhorroDesahorro = 87 IdCuentaAhorroDesahorro = 87
@@ -237,7 +237,7 @@ Partial Class AC_SituacionFinanciera
If UsuarioActual.CveEmpresa = 48 Then Orden7 = "00033%" Else Orden7 = "033%" If UsuarioActual.CveEmpresa = 48 Then Orden7 = "00033%" Else Orden7 = "033%"
'ACTIVO 'ACTIVO
Dim DtActivoCirculante = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden1}' ") Dim DtActivoCirculante As DataTable = DtDatos.FiltraParametros($"Tipo in ('A','B','C') AND Orden LIKE '{Orden1}' ")
Dim DtActivoNoCirculante As DataTable Dim DtActivoNoCirculante As DataTable
@@ -298,8 +298,8 @@ Partial Class AC_SituacionFinanciera
'PASIVO 'PASIVO
Dim DtPasivoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden3}' ") Dim DtPasivoCirculante As DataTable = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden3}' ")
Dim DtPasivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden4}' ") Dim DtPasivoNoCirculante As DataTable = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden4}' ")
Row = DtPasivoCirculante.NewRow Row = DtPasivoCirculante.NewRow
If DtPasivoCirculante.Rows.Count > 0 Then If DtPasivoCirculante.Rows.Count > 0 Then
@@ -340,9 +340,9 @@ Partial Class AC_SituacionFinanciera
'PATRIMONIO 'PATRIMONIO
Dim DtPatrimonioContribuido = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden5}' ") Dim DtPatrimonioContribuido As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden5}' ")
Dim DtPatrimonioGenerado = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden6}' ") Dim DtPatrimonioGenerado As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden6}' ")
Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden7}' ") Dim DtPatrimonioActualizacion As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden7}' ")
Row = DtPatrimonioContribuido.NewRow Row = DtPatrimonioContribuido.NewRow
If DtPatrimonioContribuido.Rows.Count > 0 Then If DtPatrimonioContribuido.Rows.Count > 0 Then
@@ -421,8 +421,7 @@ Partial Class AC_SituacionFinanciera
LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero
LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero
Dim Descuadre As Boolean = False
Dim Descuadre = False
'COLOREA ROJO SI NO CUADRAN TOTALES 'COLOREA ROJO SI NO CUADRAN TOTALES
If TotalActivoActual <> TotalPasivoPatrimonioActual Then If TotalActivoActual <> TotalPasivoPatrimonioActual Then
LbTotalActivoActual.ForeColor = Drawing.Color.Red LbTotalActivoActual.ForeColor = Drawing.Color.Red
@@ -603,8 +602,8 @@ Partial Class AC_SituacionFinanciera
Private Sub ImprimirReporte(Optional Formato As String = "PDF") Private Sub ImprimirReporte(Optional Formato As String = "PDF")
Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) Dim FechaI As String = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") Dim FechaF As String = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
'nombre del archivo a generar 'nombre del archivo a generar
Dim fileName As String = "EdoSituacionFinanciera" Dim fileName As String = "EdoSituacionFinanciera"
'ubicacion del rdlc 'ubicacion del rdlc
@@ -615,13 +614,13 @@ Partial Class AC_SituacionFinanciera
If Not DtCuentasOrden.Columns.Contains("Importe") Then DtCuentasOrden.Columns.Add("Importe", GetType(String)) If Not DtCuentasOrden.Columns.Contains("Importe") Then DtCuentasOrden.Columns.Add("Importe", GetType(String))
If Not DtCuentasOrden.Columns.Contains("Nivel") Then DtCuentasOrden.Columns.Add("Nivel", GetType(String)) If Not DtCuentasOrden.Columns.Contains("Nivel") Then DtCuentasOrden.Columns.Add("Nivel", GetType(String))
Dim Dr = DtCuentasOrden.NewRow Dim Dr As DataRow = DtCuentasOrden.NewRow
Dr("Concepto") = "PRUEBA" Dr("Concepto") = "PRUEBA"
Dr("Importe") = "15236.85" Dr("Importe") = "15236.85"
Dr("Nivel") = "1" Dr("Nivel") = "1"
DtCuentasOrden.Rows.Add(Dr) DtCuentasOrden.Rows.Add(Dr)
Dim DDdr = DtCuentasOrden.NewRow Dim DDdr As DataRow = DtCuentasOrden.NewRow
DDdr("Concepto") = "PRUEBA 2" DDdr("Concepto") = "PRUEBA 2"
DDdr("Importe") = "15236.85" DDdr("Importe") = "15236.85"
DDdr("Nivel") = "2" DDdr("Nivel") = "2"