AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-option explicit

Browse Source
This commit is contained in:
rrene
2023-12-23 08:28:18 -07:00
parent 566eb06a62
commit cdc1bb0f96
1 changed files with 47 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
Contratos/Presupuestos.aspx.vb
View File

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