From cdc1bb0f96c748f265d10e79b44f3a46bec8fb1a Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 23 Dec 2023 08:28:18 -0700 Subject: [PATCH] -option explicit --- Contratos/Presupuestos.aspx.vb | 101 +++++++++++++++------------------ 1 file changed, 47 insertions(+), 54 deletions(-) diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index ef8d30620..1b9b9280f 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/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