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

globaldtcontratos y dispose

Browse Source
This commit is contained in:
rrene
2021-07-22 20:29:52 -07:00
parent 09b5c4c2fc
commit c9383dd152
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Compras/Compras.aspx.vb
View File

@@ -18103,7 +18103,7 @@ Partial Class Compras_Compras
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim Mensaje As String = "" Dim Mensaje As String = ""
Dim dttemp As DataTable = Nothing ' GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString)) Dim dttemp As DataTable = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
Dim drContrato As DataRow = dttemp.Rows(0) Dim drContrato As DataRow = dttemp.Rows(0)
If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
@@ -18136,6 +18136,7 @@ Partial Class Compras_Compras
End If End If
End If End If
ObjContratos.Dispose()
If Not TieneError Then If Not TieneError Then
Select Case Modalidad Select Case Modalidad
Case "A" 'ADD Case "A" 'ADD