-- regenera global
This commit is contained in:
@@ -52,6 +52,7 @@ Partial Class Acumuladores_Tamaños
|
|||||||
|
|
||||||
If objAcum.TamañoGet(-1, UsuarioActual.Empresa.CveEmpresa) Then
|
If objAcum.TamañoGet(-1, UsuarioActual.Empresa.CveEmpresa) Then
|
||||||
GvTamanios.DataSource = objAcum.DtResultados
|
GvTamanios.DataSource = objAcum.DtResultados
|
||||||
|
recargaTamaños()
|
||||||
Else
|
Else
|
||||||
GvTamanios.DataSource = Nothing
|
GvTamanios.DataSource = Nothing
|
||||||
End If
|
End If
|
||||||
@@ -63,6 +64,12 @@ Partial Class Acumuladores_Tamaños
|
|||||||
|
|
||||||
CargaGvTamanioBitacora()
|
CargaGvTamanioBitacora()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Private Sub recargaTamaños()
|
||||||
|
Dim objAcum As New ClsAcumuladores
|
||||||
|
If objAcum.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = objAcum.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
|
||||||
|
objAcum.Dispose()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaGvTamanioBitacora()
|
Private Sub CargaGvTamanioBitacora()
|
||||||
|
|||||||
Reference in New Issue
Block a user