diff --git a/AC/RepSituacionFinanciera.aspx.vb b/AC/RepSituacionFinanciera.aspx.vb
index 8a1a83a5d..eff165c70 100644
--- a/AC/RepSituacionFinanciera.aspx.vb
+++ b/AC/RepSituacionFinanciera.aspx.vb
@@ -181,8 +181,8 @@ Partial Class AC_SituacionFinanciera
     Private Sub CargaDatos()
         Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        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 = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
         GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
@@ -191,7 +191,7 @@ Partial Class AC_SituacionFinanciera
         GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
         GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString
 
-        Dim IdCuentaAhorroDesahorro = 9999
+        Dim IdCuentaAhorroDesahorro As Integer = 9999
 
         If UsuarioActual.CveEmpresa = 48 Then
             IdCuentaAhorroDesahorro = 87
@@ -237,7 +237,7 @@ Partial Class AC_SituacionFinanciera
         If UsuarioActual.CveEmpresa = 48 Then Orden7 = "00033%" Else Orden7 = "033%"
 
         '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
 
@@ -298,8 +298,8 @@ Partial Class AC_SituacionFinanciera
 
 
         'PASIVO
-        Dim DtPasivoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden3}' ")
-        Dim DtPasivoNoCirculante = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden4}' ")
+        Dim DtPasivoCirculante As DataTable = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden3}' ")
+        Dim DtPasivoNoCirculante As DataTable = DtDatos.FiltraParametros($"Tipo in ('D') AND Orden LIKE '{Orden4}' ")
 
         Row = DtPasivoCirculante.NewRow
         If DtPasivoCirculante.Rows.Count > 0 Then
@@ -340,9 +340,9 @@ Partial Class AC_SituacionFinanciera
 
 
         'PATRIMONIO
-        Dim DtPatrimonioContribuido = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden5}' ")
-        Dim DtPatrimonioGenerado = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden6}' ")
-        Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden7}' ")
+        Dim DtPatrimonioContribuido As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden5}' ")
+        Dim DtPatrimonioGenerado As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden6}' ")
+        Dim DtPatrimonioActualizacion As DataTable = DtDatos.FiltraParametros($"Tipo in ('F') AND Orden LIKE '{Orden7}' ")
 
         Row = DtPatrimonioContribuido.NewRow
         If DtPatrimonioContribuido.Rows.Count > 0 Then
@@ -421,8 +421,7 @@ Partial Class AC_SituacionFinanciera
         LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero
         LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero
 
-
-        Dim Descuadre = False
+        Dim Descuadre As Boolean = False
         'COLOREA ROJO SI NO CUADRAN TOTALES
         If TotalActivoActual <> TotalPasivoPatrimonioActual Then
             LbTotalActivoActual.ForeColor = Drawing.Color.Red
@@ -603,8 +602,8 @@ Partial Class AC_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")
         'nombre del archivo a generar
         Dim fileName As String = "EdoSituacionFinanciera"
         '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("Nivel") Then DtCuentasOrden.Columns.Add("Nivel", GetType(String))
 
-        Dim Dr = DtCuentasOrden.NewRow
+        Dim Dr As DataRow = DtCuentasOrden.NewRow
         Dr("Concepto") = "PRUEBA"
         Dr("Importe") = "15236.85"
         Dr("Nivel") = "1"
         DtCuentasOrden.Rows.Add(Dr)
 
-        Dim DDdr = DtCuentasOrden.NewRow
+        Dim DDdr As DataRow = DtCuentasOrden.NewRow
         DDdr("Concepto") = "PRUEBA 2"
         DDdr("Importe") = "15236.85"
         DDdr("Nivel") = "2"