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

Browse Source
This commit is contained in:
Hector
2021-07-27 18:39:31 -07:00
parent d0c1afa9c0 ab1d89ec04
commit 4b2127db84
22 changed files with 868 additions and 370 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
OC/OC.aspx.vb
View File

@@ -7435,7 +7435,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()
@@ -7465,7 +7465,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