'Checklist Activity
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("TabDescripciones")
TabStrip1.LoadLayout("TabGenerales", Chr(0xF0CA) & " Generales " )
TabStrip1.LoadLayout("TabEspecificas", Chr(0xF0CB) & " " & Starter.SiteActual.TipoInstalacion)
Activity.AddMenuItem("Subir a FTP", "Upload")
Activity.AddMenuItem("Ver/Ocultar Fotos", "Visualizar_Fotos")
Activity.AddMenuItem("Leer Fotos", "Leer_Fotos")
'Initialize Dialogs
Base = Activity
Dialog.Initialize (Base)
ResumenSubida.Initialize 'As B4XLongTextTemplate
Activity.Title = Starter.SiteActual.Site & " " & Starter.SiteActual.Tecnologia & " " & Starter.SiteActual.TipoInstalacion
For Each lbl As Label In GetAllTabLabels(TabStrip1)
lbl.Width = 50%x
lbl.Typeface = Typeface.FONTAWESOME
Next
Starter.csvGeneral = Starter.csv.LoadCSV(File.DirAssets, "Generales.csv", ",")
Starter.csvEspecifico = Starter.csv.LoadCSV(File.DirAssets, Starter.SiteActual.TipoInstalacion & ".csv",",")
For Each Row() As String In Starter.csvGeneral
Starter.MapGeneral.Put(Row(0), Row(1))
Next
For Each Row() As String In Starter.csvEspecifico
Starter.MapEspecifico.Put(Row(0), Row(1))
Next
End Sub