option explicit

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -86,7 +86,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
             '    Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx")
             'End If
 
-            Dim ErrorParametros = True
+            Dim ErrorParametros As Boolean = True
 
             CargaTipoCuentas()
             'TxtCuenta.Enabled = False
@@ -226,8 +226,8 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
 #End Region
 
     Private Sub InsertaTotales()
-        Dim i = 0
-        Dim Aumento = 0
+        Dim i As Integer = 0
+        Dim Aumento As Integer = 0
         Dim Row As DataRow
         Dim Row2 As DataRow
 
@@ -260,7 +260,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
             End If
 
             If dr("CtaMayor").ToString = "2" Then
-                For index = dr("Clasificacion").ToString.ToEntero + Aumento To DtDatos.Rows.Count
+                For index As Integer = dr("Clasificacion").ToString.ToEntero + Aumento To DtDatos.Rows.Count
                     If DtDatos.Rows(index)("Nombre").ToString <> dr("Nombre").ToString Then
                         i = index
                         Exit For