--merge SIGWEB

2021-12-21 19:20:46 -07:00
parent 26752b51e3 243fdc8168
commit 06a5884aa6
103 changed files with 10727 additions and 3941 deletions
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -2808,7 +2808,7 @@ Partial Class Contratos_ContratoObra

    Private Sub CargaGVGastos()
        Dim objContrato As New ClsContratos
-        If objContrato.GetContratoGastos(CveContrato) Then
+        If objContrato.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then
            DtGastos = objContrato.DtResultados
            GvContratosGastos.DataSource = DtGastos
            SumaGasto = objContrato.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")