Sub BuildFixedFooterSheet() As ABMModalSheet
Dim myModal As ABMModalSheet
myModal.Initialize(page, "fixedsheet", True, False, "")
myModal.Size = ABM.MODALSHEET_SIZE_LARGE
myModal.Content.UseTheme("modalcontent")
myModal.Footer.UseTheme("modalfooter")
myModal.IsDismissible = False
myModal.Content.AddRows(1,True, "").AddCells12(1,"centre")
' myModal.Content.AddRows(1,True, "").AddCellsOS(2,0,0,0,6,6,6,"")
' myModal.Content.AddRows(5,True, "").AddCells12(1,"")
myModal.Content.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
' create the grid for the footer
' we add a row without the default 20px padding so we need to use AddRowsM().
myModal.Footer.AddRowsM(1,True,0,0, "").AddCellsOS(1,6,6,6,3,3,3,"").AddCellsOS(1,0,0,0,3,3,3, "")
myModal.Footer.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
'crear la tabla con los datos de los repartidores.
rep.Initialize(page,"rep",True,False,True,"")
rep.SetColumnWidths(Array As Int(75, 200))
rep.IsScrollable = True
'repartidores.InitializeScrollable(page, "repartidores", True, False, True, Array As Int(75, 300,200,150), "tbl1theme")
rep.SetHeaders(Array As String("ID","Nombre"))',"Cant. Repartos"))
rep.SetColumnDataFields(Array As String("idrepartidor", "nombre"))
myModal.Content.Cell(1,1).AddComponent(rep)
' create the buttons for the footer
Dim btn_aceptar As ABMButton
btn_aceptar.InitializeFlat(page, "btn_aceptar", "", "", "Aceptar", "transparent")
btn_aceptar.Tag = "aceptar"
Dim btn_cancelar As ABMButton
btn_cancelar.InitializeFlat(page, "btn_cancelar", "", "", "Cancelar", "transparent")
myModal.Footer.Cell(1,2).AddComponent(btn_cancelar)
myModal.Footer.Cell(1,1).AddComponent(btn_aceptar)
Return myModal
End Sub