diff --git a/AC/CatOGClasificaciones.aspx.vb b/AC/CatOGClasificaciones.aspx.vb index 97caaed70..c5739c56d 100644 --- a/AC/CatOGClasificaciones.aspx.vb +++ b/AC/CatOGClasificaciones.aspx.vb @@ -50,6 +50,7 @@ Partial Class AC_CatOGClasificaciones If ObjClasificaciones.GetClasificaciones() Then ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo") GlobalDTClasificaciones = ObjClasificaciones.DtResultados + GlobalDTACClasificadorObjetoGasto = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ") Else Me.GvDatos.DataSource = Nothing End If @@ -65,6 +66,7 @@ Partial Class AC_CatOGClasificaciones Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Dim ObjClasificaciones As New ClsClasificaciones + If LbAgregar.Text = "Agregar" Then If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then TxtOGClasificacion.Text = "" @@ -90,6 +92,10 @@ Partial Class AC_CatOGClasificaciones End If RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal")) ObjClasificaciones.Dispose() + + + CargaDatos() + End Sub #Region "G V D A T O S" @@ -278,4 +284,7 @@ Partial Class AC_CatOGClasificaciones #End Region + + + End Class diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index d004923ae..b8b20b068 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -85,7 +85,7 @@
  • - Agregar PS Interno + Agregar PS Presupuesto de Control
    • @@ -94,7 +94,7 @@
  • - Agregar Presupuesto Interno + Agregar Presupuesto de Control
    • @@ -139,7 +139,7 @@
    -
    +
    @@ -171,7 +171,7 @@
    -
    +
    @@ -225,7 +225,7 @@
    -
    +
    @@ -233,7 +233,7 @@
    - Interno + Presupuesto de Control

    @@ -478,6 +478,9 @@
    + + +
    @@ -561,6 +564,108 @@
    + + +
    + +
    + + +
    + +
    + + + + + + +
    +
    +
    + +
    +
    Centros de Costo
    +
    + + +
    + + + + + + + + + + + + + + + + +
    Centro de costos + + + + + + Porcentaje + + + + + + + + Agregar
    + + + + + + + + + + + + +     +     + + + +
    + + +
    + + + + + + + + + + + +
    + + + +
    + + + + + +
    @@ -866,7 +971,7 @@ - + <%-- @@ -1063,8 +1168,8 @@ - - Interno + + Presupuesto de Control @@ -1329,7 +1434,7 @@ - + @@ -1535,7 +1640,7 @@
    - @@ -1797,6 +1902,135 @@ + + + + + + + + +
    + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    ContratadoAvanceFaltantePresupuesto de ControlSaldos
    ConceptoU.M.CantidadPUImporteCantidadImporteCantidadImportePresupuestoAvanceFaltanteContrato Vs Pto ControlPto Vs RealFactor Faltante
    Pavimentación tramo 1pieza$500.00$500.00$250,000.00$3.00$1,500.00$497.00$248,500.00$198,580.00$30,000.00$168,580.00$51,420.00$51,420.000.68
    Riego de liga tramo 1pieza$500.00$100.00$50,000.00$3.00$300.00$497.00$49,700.00$10,000.00$10,000.00$0.00$40,000.00$40,000.000
    Servicio de Aguapieza$5.00$100.00$500.00$0.00$0.00$5.00$500.00$100.00$100.00$0.00$400.00$400.000
    INDIRECTOS + $90,150.00$200,000.00-$109,850.00-$90,150.00-$200,000.000
    Netos$1,670.00-$108,180.00
    + + + +
    + +
    + + +     +     + + + @@ -3160,5 +3394,23 @@ } + function muestraCentrocosto(txt) { + + if ($('#TxtPorcentajeGastosIndirectos').val().length > 0) { + + $("#porCentrocosto").show(); + + } else { + $("#porCentrocosto").hide(); + } + + + + + + } + + + diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 7f2e52877..9cff21ef1 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -480,6 +480,9 @@ Partial Class Contratos_ContratoObra 'CargaDatosEncabezado() + CargaDLLCargaGVCentrosConsto() + tabalCentrosdecotso() + End If @@ -4970,7 +4973,7 @@ Partial Class Contratos_ContratoObra If ObjContratos.GetContratosObragGastosVeiculos(CveContrato, UsuarioActual.CveEmpresa) Then GvGastosVeiculos.DataSource = ObjContratos.DtResultados - GastosVeiculos = ObjContratos.DtResultados.SUM("Importe") + GastosVeiculos = ObjContratos.DtResultados.SUM("Importe", " CveContratoGasto > 0 ") Else GvGastosVeiculos.DataSource = Nothing @@ -5279,6 +5282,84 @@ Partial Class Contratos_ContratoObra End Sub + + Property DTCentrosCostoGB As DataTable + + Get + If ViewState("DTCentrosCosto") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTCentrosCosto"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DTCentrosCosto") = value + End Set + + End Property + + + Private Sub tabalCentrosdecotso() + + Dim DTCentrosCosto As New DataTable + DTCentrosCosto.Columns.Add("CveSubProyecto", GetType(Integer)) + DTCentrosCosto.Columns.Add("SubProyecto", GetType(String)) + DTCentrosCosto.Columns.Add("Porcentaje", GetType(Decimal)) + DTCentrosCostoGB = DTCentrosCosto + + End Sub + + + Private Sub AddtabalCentrosdecotso(CveSubProyecto As Integer, SubProyecto As String, porcentaje As Decimal) + + Dim drow As DataRow = DTCentrosCostoGB.NewRow + + drow("CveSubProyecto") = CveSubProyecto + drow("SubProyecto") = SubProyecto + drow("Porcentaje") = porcentaje + + DTCentrosCostoGB.Rows.Add(drow) + + + + TxtCentroCostosPorcentaje.Text = "" + + CargaGVCentrosConsto() + + End Sub + Private Sub RemovetabalCentrosdecotso(Indice As Integer) + + + + CargaGVCentrosConsto() + End Sub + + + + + Private Sub CargaGVCentrosConsto() + + GVCentrosConsto.DataSource = DTCentrosCostoGB + GVCentrosConsto.DataBind() + UpGVCentrosConsto.Update() + + End Sub + + + Private Sub CargaDLLCargaGVCentrosConsto() + + DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) + DdlCentroCostos.DataBind() + DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + End Sub + + + Protected Sub LnkAgregarCentroCostosPorcentaj_Click(sender As Object, e As EventArgs) + + AddtabalCentrosdecotso(DdlCentroCostos.SelectedValue.ToEntero, DdlCentroCostos.SelectedItem.Text, TxtCentroCostosPorcentaje.Text.ToDecimal) + + End Sub End Class