--option explicit

OC/OC.aspx.vb

@@ -2071,7 +2071,7 @@ Partial Class OC_OC
 
         Dim Gvr As GridViewRow = CType(CType(sender, DropDownList).BindingContainer, GridViewRow)
         'Dim filtro As String = ""
-        Dim CveClasificacion = DirectCast(sender, DropDownList).SelectedValue.ToEntero
+        Dim CveClasificacion As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero
 
         ' filtro = String.Format("CveClasificacion={0}", CveClasificacion)
 
@@ -2085,7 +2085,7 @@ Partial Class OC_OC
 
         Dim Gvr As GridViewRow = CType(CType(sender, DropDownList).BindingContainer, GridViewRow)
         Dim filtro As String = ""
-        Dim Cvepsgvd = DirectCast(sender, DropDownList).SelectedValue.ToEntero
+        Dim Cvepsgvd As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero
         If Cvepsgvd > 0 Then
             Dim CboUM As DropDownList = Gvr.FCDropDownList("CboUnidadMedidaEdit")
             Dim TxtPU As TextBox = Gvr.FCTextBox("TxtImporteEdit")
@@ -5216,7 +5216,7 @@ Partial Class OC_OC
         UPEventoBitacora.Update()
     End Sub
     Private Function GuardaBitacoraTemporal(ObjEventoBitacora As ClsOIEventos) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         Dim Archivo As System.IO.FileInfo = Nothing
 
         For Each Dr As DataRow In DtBitacora.Rows
@@ -5848,7 +5848,7 @@ Partial Class OC_OC
 
             'CORREO MODIFICADA
             If EsNuevo = False And DtHistorial IsNot Nothing Then
-                Dim Bitacora = DtHistorial.FiltraParametros("CveConceptoHistorialBitacora <> 1").Rows.Count
+                Dim Bitacora As Integer = DtHistorial.FiltraParametros("CveConceptoHistorialBitacora <> 1").Rows.Count
                 Dim ObjGral As New ClsGenerales
                 If ObjGral.GetHistorialBitacora(-1, CveOrdenCompra, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
                     DtHistorial = ObjGral.DtResultados.FiltraParametros("CveConceptoHistorialBitacora <> 1")
@@ -5862,7 +5862,7 @@ Partial Class OC_OC
 
             'CORREO PROVEEDOR - SE GENERO OC
             If CveOCGeneradas.Count > 0 Then
-                For i = 0 To CveOCGeneradas.Count - 1
+                For i As Integer = 0 To CveOCGeneradas.Count - 1
                     EnviarCorreoOrdenCompra(CveOCGeneradas(i))
                 Next
 
@@ -6053,7 +6053,7 @@ Partial Class OC_OC
         Dim OCsGeneradas As New StringBuilder
         If FolioOCGeneradas.Count > 0 Then
             OCsGeneradas.Append("Se generaron la(s) siguiente(s) orden(es) de compra: ")
-            For Each FolioOC In FolioOCGeneradas
+            For Each FolioOC As Integer In FolioOCGeneradas
                 OCsGeneradas.Append($" #<b>{FolioOC}</b> ")
             Next
         End If
@@ -6507,7 +6507,7 @@ Partial Class OC_OC
 
         Dim dt As New DataTable
         dt = ReadExcelFile(Ruta + FileName, True)
-        Dim ErrorArchivo = False
+        Dim ErrorArchivo As Boolean = False
 
         'Dim Conexion As Odbc.OdbcConnection = Nothing
         'Try
@@ -6640,7 +6640,7 @@ Partial Class OC_OC
                     'Agregar PS
                     If DtDetalle IsNot Nothing Then
                         Dim dr As DataRow = DtDetalle.NewRow
-                        Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("")
+                        Dim DrPS As DataRow = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("")
                         If DrPS Is Nothing Then
                             Alert("Ocurrió un error al cargar la información de los productos del archivo. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                             Continue For
@@ -6660,7 +6660,7 @@ Partial Class OC_OC
                         Dim IEPSPSIVA As Decimal = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0)
                         Dim CveClasificacion As Integer = DrPS("CveClasificacion").ToString.ToEntero
                         Dim Clasificacion As String = DrPS("Clasificacion").ToString
-                        Dim CveActivoFijo = HdnCveActivoFijo.Value.ToEntero
+                        Dim CveActivoFijo As Integer = HdnCveActivoFijo.Value.ToEntero
                         Dim IdCuentaPorEjercer As Integer = If(HdnCveCuentaPorEjercer.Value = String.Empty, -1, HdnCveCuentaPorEjercer.Value.ToEntero)
                         Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero)
                         Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
@@ -6672,7 +6672,6 @@ Partial Class OC_OC
                     End If
                 Next
 
-
                 'Cargo el GridView
                 GvD.DataSource = DtDetalle
                 GvD.DataBind()