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

parametro de empresa y grupo, en contratos detalle

Browse Source
This commit is contained in:
rrene
2021-07-24 11:51:23 -07:00
parent 66f1f908b8
commit f2a4f5f9d1
8 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
OC/OC.aspx.vb
View File

@@ -2101,7 +2101,7 @@ Partial Class OC
Dim dttemp As DataTable = Nothing 'GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
Dim drContrato As DataRow = dttemp.Rows(0)
If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
Dim dtContratodetalle As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlP2.SelectedValue.ToString))
If dtContratodetalle IsNot Nothing AndAlso dtContratodetalle.Rows.Count > 0 Then
Dim drContratoDetalle As DataRow = dtContratodetalle(0)
@@ -7449,7 +7449,7 @@ Partial Class OC
Private Sub CargaContratos()
Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero) Then
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvContratos.DataSource = ObjContratos.DtResultados
End If
ObjContratos.Dispose()
@@ -7479,7 +7479,7 @@ Partial Class OC
Private Sub DdlContratos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContratos.SelectedIndexChanged
Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero) Then
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvContratos.DataSource = ObjContratos.DtResultados
GvContratos.DataBind()
End If