-option explicit

Contratos/Presupuestos.aspx.vb

@@ -101,7 +101,7 @@ Partial Class Contratos_Presupuestos
     Protected Sub GvPresupuestos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPresupuestos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            Dim TipoGasto = e.Row.DBCampo("TipoGasto")
+            Dim TipoGasto As String = e.Row.DBCampo("TipoGasto")
             Select Case e.Row.DBCampo("TipoTotal").ToEntero
                 Case 1
                     e.Row.CssClass = "SubTotales"
@@ -118,14 +118,14 @@ Partial Class Contratos_Presupuestos
                     e.Row.FCTextBox("TxtImporteClasi").Visible = False
                     e.Row.FCTextBox("TxtObservacion").Visible = False
                 Case 3
-                    Dim Importe = e.Row.FCTextBox("TxtImporteClasi").Text.ToDouble
+                    Dim Importe As Double = e.Row.FCTextBox("TxtImporteClasi").Text.ToDouble
                     e.Row.FCTextBox("TxtImporteClasi").Text = Importe.FormatoNumero()
                     e.Row.FCTextBox("TxtImporteClasi").CssClass = $"form-control input-sm sumaGV txt{TipoGasto}"
                     e.Row.FCTextBox("TxtImporteClasi").Attributes.Add("onKeyUp ", $"calculaTotal();calculaTotalTipoGasto('{TipoGasto}');")
             End Select
         End If
         If e.Row.RowType = DataControlRowType.Footer Then
-            Dim Importe = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL")
+            Dim Importe As Decimal = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL")
             e.Row.FCLabel("LblTotal").Text = String.Format("{0:C}", Importe)
         End If
     End Sub
@@ -144,20 +144,20 @@ Partial Class Contratos_Presupuestos
 
                 If ObjContrato.DtResultados.Rows.Count = 1 Then
 
-                    Dim DrContrato = ObjContrato.DtResultados.Copy(0)
+                    Dim DrContrato As DataRow = ObjContrato.DtResultados.Copy(0)
                     If DrContrato IsNot Nothing Then
 
-                        Dim ImporteOriginal = DrContrato("Importe").ToString.ToDecimal
+                        Dim ImporteOriginal As Decimal = DrContrato("Importe").ToString.ToDecimal
 
                         TxtPresupuesto.Text = DrContrato("Nombre").ToString
                         TxtDescripcion.Text = DrContrato("Observacion").ToString
 
                         EstatusActual = DrContrato("Estatus").ToString.ToEntero
 
-                        Dim CveProyecto = DrContrato("CveProyecto").ToString.ToEntero
-                        Dim CveSubProyecto = DrContrato("CveSubProyecto").ToString.ToEntero
+                        Dim CveProyecto As Integer = DrContrato("CveProyecto").ToString.ToEntero
+                        Dim CveSubProyecto As Integer = DrContrato("CveSubProyecto").ToString.ToEntero
 
-                        Dim EstatusTexto = DrContrato("EstatusTexto").ToString
+                        Dim EstatusTexto As String = DrContrato("EstatusTexto").ToString
 
                         LtlEstatus.Text = EstatusTexto
 
@@ -180,18 +180,13 @@ Partial Class Contratos_Presupuestos
             If ObjContrato.GetPresupuestosRep(CvePresupuesto, -1, 1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
                                               DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, -1) Then
                 If ObjContrato.DtResultados.Rows.Count > 0 Then
-                    Dim DrRep = ObjContrato.DtResultados.Copy(0)
-                    Dim Importe = DrRep("Autorizado").ToString.ToDecimal.FormatoNumero
-                    Dim Ejercido = DrRep("Ejercido").ToString.ToDecimal.FormatoNumero
-                    Dim PorEjercer = DrRep("PorEjercer").ToString.ToDecimal.FormatoNumero
+                    Dim DrRep As DataRow = ObjContrato.DtResultados.Copy(0)
+                    Dim EjercidoPorcentaje As Integer = DrRep("EjercidoPorcentaje").ToString.ToEntero
+                    Dim PorEjercerPorcentaje As Integer = DrRep("PorEjercerPorcentaje").ToString.ToEntero
 
-
-                    Dim EjercidoPorcentaje = DrRep("EjercidoPorcentaje").ToString.ToEntero
-                    Dim PorEjercerPorcentaje = DrRep("PorEjercerPorcentaje").ToString.ToEntero
-
-                    LtlAutorizado.Text = Importe
-                    LtlEjercido.Text = Ejercido
-                    LtlPorEjercer.Text = PorEjercer
+                    LtlAutorizado.Text = DrRep("Autorizado").ToString.ToDecimal.FormatoNumero
+                    LtlEjercido.Text = DrRep("Ejercido").ToString.ToDecimal.FormatoNumero
+                    LtlPorEjercer.Text = DrRep("PorEjercer").ToString.ToDecimal.FormatoNumero
 
                     PBEjercido.Style.Remove("width")
                     PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%")
@@ -283,7 +278,7 @@ Partial Class Contratos_Presupuestos
         If ValidaDatos() Then
             If CvePresupuesto > 0 Then
                 If ActualizarPresupuesto() Then
-                    Dim Liga = $"document.location.href=""/Contratos/CatPresupuestos.aspx"""
+                    Dim Liga As String = $"document.location.href=""/Contratos/CatPresupuestos.aspx"""
 
                     Alert("El Presupuesto se actualizo correctamente.", TipoMensaje.MsgInformacion, Liga)
                 Else
@@ -301,16 +296,16 @@ Partial Class Contratos_Presupuestos
     End Sub
     Private Function ActualizarPresupuesto() As Boolean
         Dim Retorno As Boolean = False
-        Dim Nombre = TxtPresupuesto.Text.Trim
-        Dim Observacion = TxtDescripcion.Text.Trim
-        Dim CveProyecto = DdlProyecto.SelectedValue.ToEntero
-        Dim FechaI = TxtFechaI.Text.ToDate
-        Dim FechaF = TxtFechaF.Text.ToDate
-        Dim FechaIng = NowADS()
-        Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
-        Dim Archivo = ""
-        Dim Estatus = 1
-        Dim TieneError = False
+        Dim Nombre As String = TxtPresupuesto.Text.Trim
+        Dim Observacion As String = TxtDescripcion.Text.Trim
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
+        Dim FechaI As Date = TxtFechaI.Text.ToDate
+        Dim FechaF As Date = TxtFechaF.Text.ToDate
+        Dim FechaIng As DateTime = NowADS()
+        Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
+        Dim Archivo As String = ""
+        Dim Estatus As Integer = 1
+        Dim TieneError As Boolean = False
 
         Dim ObjCont As New ClsContratos
         ObjCont.IniciaTransacSQL()
@@ -319,10 +314,10 @@ Partial Class Contratos_Presupuestos
 
             For Each GvRow As GridViewRow In GvPresupuestos.Rows
                 If GvRow.RowType = DataControlRowType.DataRow Then
-                    Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero
+                    Dim CveAgrupador As Integer = GvRow.DataKey("CveAgrupador").ToEntero
                     Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero
 
-                    Dim CveTipoGasto = -1
+                    Dim CveTipoGasto As Integer = -1
                     Dim CveClasificacion As Integer = -1
                     Dim CveConceptoContableNom As Integer = -1
 
@@ -336,9 +331,9 @@ Partial Class Contratos_Presupuestos
                     End If
 
 
-                    Dim CvePresupuestoDetalle = GvRow.DataKey("CvePresupuestoDetalle").ToEntero
-                    Dim Importe = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal
-                    Dim Obs = GvRow.FCTextBox("TxtObservacion").Text.Trim
+                    Dim CvePresupuestoDetalle As Integer = GvRow.DataKey("CvePresupuestoDetalle").ToEntero
+                    Dim Importe As Decimal = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal
+                    Dim Obs As String = GvRow.FCTextBox("TxtObservacion").Text.Trim
 
                     'ACTUALIZA EL REGISTRO EXISTENTE
                     If CvePresupuestoDetalle > 0 Then
@@ -373,27 +368,27 @@ Partial Class Contratos_Presupuestos
         Return Retorno
     End Function
     Private Sub AgregarPresupuesto()
-        Dim Nombre = TxtPresupuesto.Text.Trim
-        Dim Observacion = TxtDescripcion.Text.Trim
-        Dim CveProyecto = DdlProyecto.SelectedValue.ToEntero
-        Dim FechaI = TxtFechaI.Text.ToDate
-        Dim FechaF = TxtFechaF.Text.ToDate
-        Dim FechaIng = NowADS()
-        Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
-        Dim Archivo = ""
-        Dim TieneError = False
-        Dim Estatus = 1
+        Dim Nombre As String = TxtPresupuesto.Text.Trim
+        Dim Observacion As String = TxtDescripcion.Text.Trim
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
+        Dim FechaI As Date = TxtFechaI.Text.ToDate
+        Dim FechaF As Date = TxtFechaF.Text.ToDate
+        Dim FechaIng As DateTime = NowADS()
+        Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
+        Dim Archivo As String = ""
+        Dim TieneError As Boolean = False
+        Dim Estatus As Integer = 1
 
         Dim ObjCont As New ClsContratos
         ObjCont.IniciaTransacSQL()
 
         If ObjCont.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
 
-            Dim CvePresupuestoNuevo = ObjCont.AddPresupuesto(Nombre, Observacion, CveSubProyecto, FechaI, FechaF, Estatus, Archivo, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            Dim CvePresupuestoNuevo As Integer = ObjCont.AddPresupuesto(Nombre, Observacion, CveSubProyecto, FechaI, FechaF, Estatus, Archivo, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             If CvePresupuestoNuevo > 0 Then
-                Dim ImporteClasi = 0.0D
-                Dim ObsDetalle = ""
+                Dim ImporteClasi As Decimal = 0
+                Dim ObsDetalle As String = ""
 
                 For Each GvRow As GridViewRow In GvPresupuestos.Rows
                     If GvRow.RowType = DataControlRowType.DataRow Then
@@ -401,7 +396,7 @@ Partial Class Contratos_Presupuestos
 
                         ObsDetalle = GvRow.FCTextBox("TxtObservacion").Text.Trim
 
-                        Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero
+                        Dim CveAgrupador As Integer = GvRow.DataKey("CveAgrupador").ToEntero
                         Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero
 
                         Dim CveClasificacion As Integer = -1
@@ -445,7 +440,7 @@ Partial Class Contratos_Presupuestos
         Else
             ObjCont.Commit()
             ObjCont.Dispose()
-            Dim Liga = $"document.location.href=""/Contratos/CatPresupuestos.aspx"""
+            Dim Liga As String = $"document.location.href=""/Contratos/CatPresupuestos.aspx"""
 
             Alert("Se agregó el presupuesto correctamente.", TipoMensaje.MsgInformacion, Liga)
         End If
@@ -453,8 +448,6 @@ Partial Class Contratos_Presupuestos
     End Sub
 #End Region
 
-
-
     Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) Handles LnkAutorizar.Click
         If ValidaDatos() Then
             If ActualizarPresupuesto() Then
@@ -516,8 +509,8 @@ Partial Class Contratos_Presupuestos
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
 
         Dim DTExcel As New DataTable
-        Dim ErrorArchivo = False
-        Dim ErrorExcel = False
+        Dim ErrorArchivo As Boolean = False
+        Dim ErrorExcel As Boolean = False
         DTExcel = ReadExcelFile(Ruta + FileName, True)
 
         If Not ErrorArchivo Then