From be8f608bce0973325c95fd51cb7f7f8857d6ec63 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 7 Feb 2024 18:56:30 -0700 Subject: [PATCH] - option explicit --- Inventarios/ResguardoMaterial.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index ae637ae02..5e5c1f007 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/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:
") @@ -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()