- option explicit

Inventarios/ResguardoMaterial.aspx.vb

@@ -625,7 +625,7 @@ Partial Class Inventarios_ResguardoMaterial
 
     Protected Sub GvMLiberacion_RowCreated(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
-            Dim Index = e.Row.RowIndex
+            Dim Index As Integer = e.Row.RowIndex
             e.Row.FCTextBox("TxtCantidad").Attributes.Add("onKeyUp", String.Format("ValidarCantidad({0});", Index))
         End If
     End Sub
@@ -792,7 +792,7 @@ Partial Class Inventarios_ResguardoMaterial
 
         'VALIDA LA EXISTENCIA DEL ALMACEN
         Dim ObjInventario As New ClsInventarios
-        Dim ErrorExistencia = False
+        Dim ErrorExistencia As Boolean = False
         Dim TextoExistencia As StringBuilder = New StringBuilder
         Dim Existencia As Double
         TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:<br/>")
@@ -1079,7 +1079,7 @@ Partial Class Inventarios_ResguardoMaterial
 
     Private Function AgregarAgenda(ByRef ObjEventos As ClsOIEventos, FolioEntrada As Integer, FolioSalida As Integer) As Boolean
         Dim TieneError As Boolean = False
-        Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1", CveAgendaTipo = 4, Prioridad = 3, CveTipoEvento = 2, Importe = -1
+        Dim RecurrenciaTipo As Integer = 0, Frecuencia As Integer = -1, DiasSemana As String = "-1", Dias As Integer = -1, Mes As Integer = -1, RecurrenciaFin As String = "-1", CveAgendaTipo As Integer = 4, Prioridad As Integer = 3, CveTipoEvento As Integer = 2, Importe As Integer = -1
 
         Dim Asunto As String = $"Vencimiento de Resguardo de Material. FolioEntrada:{FolioEntrada}, FolioSalida:{FolioSalida}"
         Dim Descripcion As String = TxtObservaciones.Text.Trim()