From a467b6b54cd875a9723f7e2b4464393c4603fe2a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 22 Sep 2023 11:40:58 -0700
Subject: [PATCH] option explicit

---
 Contabilidad2/RepSituacionFinanciera.aspx.vb | 22 ++++++++++----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/Contabilidad2/RepSituacionFinanciera.aspx.vb b/Contabilidad2/RepSituacionFinanciera.aspx.vb
index 3e2dfd059..307be617a 100644
--- a/Contabilidad2/RepSituacionFinanciera.aspx.vb
+++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb
@@ -188,8 +188,8 @@ Partial Class AC2_SituacionFinanciera
         ''Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
 
-        Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
-        Dim FechaF = FechaI.ToDate.LastDayOfMonth.ToShortDateString
+        Dim FechaI As String = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
+        Dim FechaF As String = FechaI.ToDate.LastDayOfMonth.ToShortDateString
         TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
 
         GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
@@ -223,9 +223,9 @@ Partial Class AC2_SituacionFinanciera
             DtDatos = DtDatos.FiltraParametros("Level < 3")
         End If
 
-        Dim DtActivoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND TipoCuenta=1")
-        Dim DtActivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND TipoCuenta=2 ")
-        Dim DtActivoDiferido = DtDatos.FiltraParametros("  TipoCuenta=9 ")
+        Dim DtActivoCirculante As DataTable = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND TipoCuenta=1")
+        Dim DtActivoNoCirculante As DataTable = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND TipoCuenta=2 ")
+        Dim DtActivoDiferido As DataTable = DtDatos.FiltraParametros("  TipoCuenta=9 ")
 
         '        Dim DtActivoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND Orden LIKE '%/00011%' ")
         '       Dim DtActivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND Orden LIKE '%/00012%' ")
@@ -287,8 +287,8 @@ Partial Class AC2_SituacionFinanciera
 
 
         'PASIVO
-        Dim DtPasivoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND TipoCuenta=3")
-        Dim DtPasivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND TipoCuenta=4")
+        Dim DtPasivoCirculante As DataTable = DtDatos.FiltraParametros("Tipo in ('D') AND TipoCuenta=3")
+        Dim DtPasivoNoCirculante As DataTable = DtDatos.FiltraParametros("Tipo in ('D') AND TipoCuenta=4")
 
         'Dim DtPasivoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND Orden LIKE '%/00021%' ")
         'Dim DtPasivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND Orden LIKE '%/00022%' ")
@@ -332,7 +332,7 @@ Partial Class AC2_SituacionFinanciera
 
 
         'PATRIMONIO
-        Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (5,6,8,7)")
+        Dim DtPatrimonioContribuido As DataTable = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (5,6,8,7)")
         'Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (6,8)")
         'Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=7")
         'Dim DtUtilidad = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=5")
@@ -418,7 +418,7 @@ Partial Class AC2_SituacionFinanciera
         LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero
 
 
-        Dim Descuadre = False
+        Dim Descuadre As Boolean = False
         'COLOREA ROJO SI NO CUADRAN TOTALES
         If Math.Round(TotalActivoActual, 2) <> Math.Round(TotalPasivoPatrimonioActual, 2) Then
             LbTotalActivoActual.ForeColor = Drawing.Color.Red
@@ -591,8 +591,8 @@ Partial Class AC2_SituacionFinanciera
 
 
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
-        Dim FechaI = 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 FechaI As String = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
+        Dim FechaF As String = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
 
         Dim fileName As String = "EdoSituacionFinanciera"
         Dim reportpath As String = "Contabilidad2/Reportes/RepSituacionFinanciera.rdlc"