From 71d8e44773d0a098e2702ae98ad38de72e42fb1f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 28 Aug 2023 06:58:52 -0700
Subject: [PATCH] -- option strict on

---
 Finanzas/RepRazonesFinancieras.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Finanzas/RepRazonesFinancieras.aspx.vb b/Finanzas/RepRazonesFinancieras.aspx.vb
index c60ee1df3..aee1513bd 100644
--- a/Finanzas/RepRazonesFinancieras.aspx.vb
+++ b/Finanzas/RepRazonesFinancieras.aspx.vb
@@ -217,7 +217,7 @@ Partial Class Finanzas_RepRazonesFinancieras
                     If i = index Then
                         serie.name = row(i).ToString()
                     Else
-                        Dim actual = row(i).ToString().ToDouble
+                        Dim actual As Double = row(i).ToString.ToDouble
                         serie.data.Add(actual)
                         anterior = actual
                         'If Not G1 OrElse (actual >= anterior) Then
@@ -415,7 +415,7 @@ Partial Class Finanzas_RepRazonesFinancieras
     End Sub
     Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
-            For i = 1 To e.Row.Cells.Count - 1
+            For i As Integer = 1 To e.Row.Cells.Count - 1
                 'Mind that i used i=1 not 0 because the width of cells(0) has already been set
                 Dim cell2 As TableCell = e.Row.Cells(i)
                 cell2.CssClass = "ceros"