From 05e1e3ac7223b6250e1ca03755d9ccdce93aff06 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 17 Nov 2020 18:25:57 -0700 Subject: [PATCH] Contratos correcion modal --- Contratos/Contrato.aspx.vb | 36 ++++++++++++++++++++---------------- OC/OC.aspx.vb | 2 +- 2 files changed, 21 insertions(+), 17 deletions(-) diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 7e94ff778..fb51b55b5 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1125,10 +1125,14 @@ Partial Class Contratos_Default CargaPresupuesto() ' MuestraPermiteAvance() - cargarBitacora() - If LblImporte.Text.ToDecimal <= 0 Then - LblImporte.Text = ObjContratos.ImporteTotal.ToString.FormatoNumero - End If + cargarBitacora() + + 'If LblImporte.Text.ToDecimal <= 0 Then + 'LblImporte.Text = ObjContratos.ImporteTotal.ToString.FormatoNumero + + + LblImporte.Text = ObjContratos.DtResultados.Rows(0)("ImporteTotalIndicador").ToString().ToDecimal.ToString.FormatoNumero + 'End If If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo) @@ -1194,7 +1198,7 @@ Partial Class Contratos_Default LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero() LbTotalGeneralInt.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero() - LblImporte.Text = "$" & TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() + 'LblImporte.Text = "$" & TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() End If End Sub @@ -1936,7 +1940,7 @@ Partial Class Contratos_Default TxtPU.Text = "" DdlClasificacionAdd.SelectedValue = "-1" LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero - LblImporte.Text = LbTotalGeneral.Text + 'LblImporte.Text = LbTotalGeneral.Text TxtCantidad.Focus() UpGral.Update() Else @@ -1953,8 +1957,8 @@ Partial Class Contratos_Default 'If ContratosSecciones.GetContratosSecciones(-1, DdlEstatus.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, -1, -1, FechaI, FechaF) Then DtDatos = ContratosSecciones.DtResultados ' DtDatos.Rows.RemoveAt(0) - CargaGVPresupuestos(DtDatos) - LblImporte.Text = "$" & DtDatos.MAX("Total").FormatoNumero() + CargaGVPresupuestos(DtDatos) + ' LblImporte.Text = "$" & DtDatos.MAX("Total").FormatoNumero() Else Gv.DataSource = Nothing End If @@ -2092,7 +2096,7 @@ Partial Class Contratos_Default Gv.EditIndex = -1 LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero - LblImporte.Text = LbTotalGeneral.Text + 'LblImporte.Text = LbTotalGeneral.Text CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) End Sub @@ -2178,8 +2182,8 @@ Partial Class Contratos_Default TxtCantidadInsumos.Text = "" TxtPUInsumos.Text = "" DdlClasificacionAddInsumos.SelectedValue = "-1" - LbTotalGeneralInsumos.Text = (LbTotalGeneralInsumos.Text.ToDouble + TotalRow).ToString.FormatoNumero - 'LblImporte.Text = LbTotalGeneral.Text + LbTotalGeneralInsumos.Text = (LbTotalGeneralInsumos.Text.ToDouble + TotalRow).ToString.FormatoNumero + TxtCantidadInsumos.Focus() UpGral.Update() Else @@ -2273,8 +2277,8 @@ Partial Class Contratos_Default End If GvInsumos.EditIndex = -1 - LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero - 'LblImporte.Text = LbTotalGeneral.Text + LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero + CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) End Sub @@ -3423,7 +3427,7 @@ Partial Class Contratos_Default Dim ClaveInterna As String = Row("Clave Interna Cliente").ToString.Trim.ToUpper Dim OCInterna As String = Row("OC Interna").ToString.Trim.ToUpper Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper - Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble + Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.Replace("$", "").ToString.Replace(" ", "").ToDouble Dim CvePS As Integer = 0 Dim CveUM As Integer = 0 ' GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero Dim CodigoPS As Integer = 0 @@ -3492,8 +3496,8 @@ Partial Class Contratos_Default Dim TotalRow = dr("Total").ToString.ToDouble CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) - LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero - LblImporte.Text = LbTotalGeneral.Text + LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero + ' LblImporte.Text = LbTotalGeneral.Text Else Alert("Ocurrio un error al agregar el detalle", TipoMensaje.MsgError) End If diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index c123af23e..5bbe07768 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -8334,7 +8334,7 @@ Partial Class OC Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida") Dim UMAbreviatura As String = GvRow.DataKey("Abreviatura").ToString - Dim SubProyecto As Integer = GvRow.DataKey("SubProyecto") + Dim SubProyecto As String = GvRow.DataKey("SubProyecto") Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero Dim Codigo As String = "" 'GvRow.DataKey("Codigo")