Contratos

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