From 05e1e3ac7223b6250e1ca03755d9ccdce93aff06 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 17 Nov 2020 18:25:57 -0700 Subject: [PATCH 1/2] 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") From cc263e6ffb09d6874a7bbe99ada51ff6e6ca5efb Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 18 Nov 2020 09:53:40 -0700 Subject: [PATCH 2/2] Contatos obra Correciones 2020-11-18 --- Contratos/ContratoObra.aspx | 16 ++++++++++------ Contratos/ContratoObra.aspx.vb | 18 +++++++++--------- .../RepContratosObraAvancesDetalle.aspx.vb | 2 +- Contratos/RepContratosObraAvancesPartida.aspx | 8 ++++---- 4 files changed, 24 insertions(+), 20 deletions(-) diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index 040501b96..8fce91f6e 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -174,7 +174,7 @@
  • - Agregar Presupuesto Control + Agregar Presupuesto Interno
    • @@ -980,7 +980,8 @@ - + +<%-- @@ -988,7 +989,8 @@ - + --%> + <%-- @@ -1124,7 +1126,7 @@ - + <%-- @@ -1218,7 +1220,8 @@ - + + <%-- @@ -1226,7 +1229,8 @@ - + --%> + <%-- diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index da9636f7a..b183c3088 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -454,12 +454,12 @@ Partial Class Contratos_ContratoObra If CveContrato > 0 Then If UsuarioActual.TienePermisoProceso(164) Then BtnEliminar.Visible = True - Gv.Columns(9).Visible = True - GvInsumos.Columns(8).Visible = True + Gv.Columns(8).Visible = True + GvInsumos.Columns(7).Visible = True Else BtnEliminar.Visible = False - Gv.Columns(9).Visible = False - GvInsumos.Columns(8).Visible = False + Gv.Columns(8).Visible = False + GvInsumos.Columns(7).Visible = False End If 'If CveTipoContrato.Contiene(11, 25) Then 'ciclo comercial @@ -469,8 +469,8 @@ Partial Class Contratos_ContratoObra Else TabPres.Visible = False - Gv.Columns(9).Visible = True - GvInsumos.Columns(8).Visible = True + Gv.Columns(8).Visible = True + GvInsumos.Columns(7).Visible = True End If @@ -1042,7 +1042,7 @@ Partial Class Contratos_ContratoObra 'TDObservacion.Visible = True 'tdObservaciones.Visible = True TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString - Gv.Columns(4).Visible = True + Gv.Columns(3).Visible = True 'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString) End If @@ -1843,9 +1843,9 @@ Partial Class Contratos_ContratoObra Gv.DataBind() If CveTipoContrato = 25 Then ' Gv.Columns(0).Visible = False - Gv.Columns(2).Visible = False + Gv.Columns(1).Visible = False ' Gv.Columns(3).Visible = False - Gv.Columns(7).Visible = False + Gv.Columns(6).Visible = False End If 'If (Gv.Rows.Count > 0) Then ' Gv.UseAccessibleHeader = True diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx.vb b/Contratos/RepContratosObraAvancesDetalle.aspx.vb index 33736e982..0c5d28a6a 100644 --- a/Contratos/RepContratosObraAvancesDetalle.aspx.vb +++ b/Contratos/RepContratosObraAvancesDetalle.aspx.vb @@ -151,7 +151,7 @@ Partial Class RepContratosObraAvancesDetalle Dim PlantillaAnexo As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Anexo.xlsx" If Not System.IO.File.Exists(PlantillaAnexo) Then - Alert("No se encuentra la platilla de anexos.", TipoMensaje.MsgAdvertencia) + Alert("No se encuentra la plantilla de anexos.", TipoMensaje.MsgAdvertencia) Exit Sub End If diff --git a/Contratos/RepContratosObraAvancesPartida.aspx b/Contratos/RepContratosObraAvancesPartida.aspx index ec7f8299d..b577c1fb4 100644 --- a/Contratos/RepContratosObraAvancesPartida.aspx +++ b/Contratos/RepContratosObraAvancesPartida.aspx @@ -24,11 +24,11 @@
    -
    +
    -
    +
    " style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> " class="btn btn-circle btn-sm label-info"> @@ -40,9 +40,9 @@
    -
    +
    -