AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

parametro empresa

Browse Source
This commit is contained in:
rrene
2021-10-05 22:32:24 -07:00
parent e61a37993e
commit b602675604
2 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsContratos.vb
View File

@@ -2267,12 +2267,13 @@ Public Class ClsContratos
#Region "C O N T R A T O S G A S T O S" #Region "C O N T R A T O S G A S T O S"
Public Function GetContratoGastos(CveContrato As Integer) As Boolean Public Function GetContratoGastos(CveContrato As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Con_ContratosGastosGet") DataAdapter("PA_Con_ContratosGastosGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -698,7 +698,7 @@ Partial Class PopUpVerFactura
End If End If
End If End If
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If ObjContratos.GetContratoGastos(CveContrato) Then If ObjContratos.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then
dt = ObjContratos.DtResultados.FiltraParametros($"CveContratoGasto = {CveContratoGasto}") dt = ObjContratos.DtResultados.FiltraParametros($"CveContratoGasto = {CveContratoGasto}")
SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL") SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")
End If End If