From 40cf9b81723ff1d46769598fc67fce5444706b78 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Jul 2023 16:25:53 -0700 Subject: [PATCH] =?UTF-8?q?visualizaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contratos/Presupuestos.aspx | 27 ++++++--------- Contratos/Presupuestos.aspx.vb | 56 +++++-------------------------- Contratos/RepPresupuestos.aspx | 8 ++--- Contratos/RepPresupuestos.aspx.vb | 4 +-- 4 files changed, 25 insertions(+), 70 deletions(-) diff --git a/Contratos/Presupuestos.aspx b/Contratos/Presupuestos.aspx index 073d6cec2..fbebd008b 100644 --- a/Contratos/Presupuestos.aspx +++ b/Contratos/Presupuestos.aspx @@ -34,7 +34,7 @@
-
+
Datos Generales @@ -72,7 +72,7 @@
-
+
Configuración @@ -109,8 +109,8 @@
-
- +
+ @@ -130,8 +130,8 @@
-
- +
+ @@ -252,7 +252,7 @@
-
+
Presupuestos @@ -271,10 +271,10 @@ DataKeyNames="CvePresupuestoDetalle,CveAgrupador,CveTipoGasto,Tipo"> - + - + @@ -337,14 +337,7 @@
- +
diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index 15b704ed9..4573c51e7 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/Contratos/Presupuestos.aspx.vb @@ -147,16 +147,8 @@ Partial Class Contratos_Presupuestos Dim DrContrato = ObjContrato.DtResultados.Copy(0) If DrContrato IsNot Nothing Then - Dim ImporteOriginal = DrContrato("Importe").ToString.ToDecimal - 'Dim ImporteVigente = DrContrato("ImporteVigente").ToString.ToDecimal - 'Dim CveMoneda = DrContrato("CveMoneda").ToString.ToEntero - - 'DdlMoneda.SelectedValueExist(CveMoneda) - - 'HdnTotal.Value = ImporteVigente.FormatoNumero - - - 'LblTotal.Text = String.Format("{0:C}", ImporteVigente) + Dim ImporteOriginal = DrContrato("Importe").ToString.ToDecimal + TxtPresupuesto.Text = DrContrato("Nombre").ToString TxtDescripcion.Text = DrContrato("Observacion").ToString @@ -471,34 +463,8 @@ Partial Class Contratos_Presupuestos ObjPres.IniciaTransacSQL() Dim TieneError As Boolean = False - TieneError = Not ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal) - 'If ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal) Then - ' If ObjPres.GetPresupuestosDetalle(CvePresupuesto, -1, UsuarioActual.CveEmpresa) Then - ' DtClasificaciones = ObjPres.DtResultados - ' End If - - ' If DtClasificaciones IsNot Nothing Then - ' Dim DtDetalle = DtClasificaciones.FiltraParametros("CvePresupuestoDetalle > 0", DistinctColumns:={"CvePresupuestoDetalle", "ImporteVigente"}) - ' If DtDetalle.Rows.Count > 0 Then - - ' For Each Dr As DataRow In DtDetalle.Rows - ' Dim CvePresupuestoDetalle As Integer = Dr("CvePresupuestoDetalle").ToString.ToEntero - ' Dim Importe As Decimal = Dr("ImporteVigente").ToString.ToDecimal - ' Dim Fecha = Now - ' Dim Tipo = 1 - ' Dim CveCompra As Integer = -1 - ' Dim Justificacion = "-1" - ' TieneError = Not ObjPres.AddPresupuestoMovimiento(CvePresupuesto, CveCompra, Tipo, Importe, Fecha, Justificacion) - ' If TieneError Then - ' Exit For - ' End If - ' Next - ' End If - ' End If - 'Else - ' TieneError = True - 'End If - + TieneError = Not ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal) + If TieneError Then ObjPres.RollBack() Alert("Ocurrió un error al autorizar el presupuesto.", TipoMensaje.MsgError) @@ -552,7 +518,6 @@ Partial Class Contratos_Presupuestos Dim DTExcel As New DataTable Dim ErrorArchivo = False Dim ErrorExcel = False - DTExcel = ReadExcelFile(Ruta + FileName, True) If Not ErrorArchivo Then @@ -574,16 +539,13 @@ Partial Class Contratos_Presupuestos End If End If - Try - Dim txtImporte As TextBox = Nothing - Dim txtObservacion As TextBox = Nothing + Try + Dim i As Integer = 0 For Each row As GridViewRow In GvPresupuestos.Rows - If (i < DTExcel.Rows.Count) Then - txtImporte = row.FCTextBox("TxtImporteClasi") - txtObservacion = row.FCTextBox("TxtObservacion") - txtImporte.Text = DTExcel.Rows(i).Field(Of String)(1).ToString - txtObservacion.Text = DTExcel.Rows(i).Field(Of String)(2).ToString + If (i < DTExcel.Rows.Count) Then + If DTExcel.Rows(i)("Importe").ToString.Trim <> "" Then row.FCTextBox("TxtImporteClasi").Text = DTExcel.Rows(i)("Importe").ToString.FormatoNumero + row.FCTextBox("TxtObservacion").Text = DTExcel.Rows(i)("Observaciones").ToString i += 1 End If Next diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index 500e6ef34..e62242dae 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -180,9 +180,9 @@
Fecha Inicio:
-
+
- + @@ -193,9 +193,9 @@
Fecha Fin:
-
+
- + diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 4800f3850..990a416df 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -30,8 +30,8 @@ Partial Class Contratos_RepPresupuestos #Region " INICIALIZA VALORES " Private Sub InicializaValores() - TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}" - TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}" + TxtFiltrosFechaInicio.Text = $"01/08/{Now.Year - 1}" + TxtFiltrosFechaFin.Text = $"31/07/{Now.Year}" DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind()