Contratos correcion modal

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

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")