-- regenera global

Acumuladores/Tamaños.aspx.vb

@@ -52,6 +52,7 @@ Partial Class Acumuladores_Tamaños
 
         If objAcum.TamañoGet(-1, UsuarioActual.Empresa.CveEmpresa) Then
             GvTamanios.DataSource = objAcum.DtResultados
+            recargaTamaños()
         Else
             GvTamanios.DataSource = Nothing
         End If
@@ -63,6 +64,12 @@ Partial Class Acumuladores_Tamaños
 
         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
 
     Private Sub CargaGvTamanioBitacora()