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

-- Corrección regeneracion globaldtempresas

Browse Source
This commit is contained in:
rrene
2023-03-17 14:16:30 -07:00
parent 33ba51c8fc
commit b06f2aa25a
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Sistemas/Empresa.aspx.vb
View File

@@ -655,7 +655,7 @@ Partial Class Sistemas_Empresa
'RECARGA EMPRESA
If TextoError = "" Then
If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
GlobalDTEmpresas(CveEmpresa) = ObjEmpresas.DtResultados
GlobalDTEmpresas(CveEmpresa) = Nothing
'verifico si existe la carpeta de la empresa, sino la crea
For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
@@ -665,9 +665,8 @@ Partial Class Sistemas_Empresa
Next
End If
If ObjGral.GetClasificacionPorcentaje(CveEmpresa) Then
GlobalDTClasificacionPorcentaje(CveEmpresa) = ObjGral.DtResultados
End If
GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
End If
'AGREGAR FUNCIONALIDADES