B4J Tutorial [BANanoVuetifyAD3] Create Professional Looking Vuetify WebSites & WebApps with BANano

about.SetWatch("date1", True, True, Me, "detectdate", Null)

Sub detectdate            'ignoreDeadCode
    VTextField1.FormatDate(about)
End Sub

'FIREBASE
    BANano.Header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-app.js")
    BANano.header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-analytics.js")
    BANano.header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-auth.js")
    BANano.header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-firestore.js")
    BANano.header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-messaging.js")
    BANano.header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-storage.js")
    BANano.header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-performance.js")
    BANano.header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-database.js")
    BANano.header.AddJavaScriptfile("https://www.gstatic.com/firebasejs/8.6.8/firebase-functions.js")

BANano.Header.AddJavascriptFile("firesql.umd.js")

Sub addmenu            'ignoreDeadCode

#DesignerProperty: Key: PreDisplay, DisplayName: Before Display (JSON), FieldType: String, DefaultValue: , Description: For each column specified run this callback before displaying
#DesignerProperty: Key: ConditionalClass, DisplayName: Conditional Class (JSON), FieldType: String, DefaultValue: , Description: For each column specified apply class from callback
#DesignerProperty: Key: ConditionalColor, DisplayName: Conditional Color (JSON), FieldType: String, DefaultValue: , Description: For each column specified apply the color from the callback
#DesignerProperty: Key: ConditionalStyle, DisplayName: Conditional Style (JSON), FieldType: String, DefaultValue: , Description: For each column specified apply the style from the callback

weight:getcolor; height:gettextcolor

Sub getColor(item as Map) as String
do whatever
return whatever
End sub

dateofbirth:nicedate

Sub HiddenXSOnly
    AddClass("hidden-xs-only")
End Sub

Sub HiddenSMOnly
    AddClass("hidden-sm-only")
End Sub
    
Sub HiddenMDOnly
    AddClass("hidden-md-only")
End Sub
    
Sub HiddenLGOnly
    AddClass("hidden-lg-only")
End Sub
    
Sub HiddenXLOnly
    AddClass("hidden-xl-only")
End Sub
'
Sub HiddenXSAndDown
    AddClass("hidden-xs-and-down")
End Sub

Sub HiddenSMAndDown
    AddClass("hidden-sm-and-down")
End Sub
    
Sub HiddenMDAndDown
    AddClass("hidden-md-and-down")
End Sub
    
Sub HiddenLGAndDown
    AddClass("hidden-lg-and-down")
End Sub
    
Sub HiddenXLAndDown
    AddClass("hidden-xl-and-down")
End Sub
'
Sub HiddenXSAndUp
    AddClass("hidden-xs-and-up")
End Sub

Sub HiddenSMAndUp
    AddClass("hidden-sm-and-up")
End Sub
    
Sub HiddenMDAndUp
    AddClass("hidden-md-and-up")
End Sub
    
Sub HiddenLGAndUp
    AddClass("hidden-lg-and-up")
End Sub
    
Sub HiddenXLAndUp
    AddClass("hidden-xl-and-up")
End Sub    

Sub HideOnAll
    AddClass("d-none")
End Sub

Sub HideOnlyOnXS
    AddClass("d-none d-sm-flex")
End Sub

Sub HideOnlyOnSM
    AddClass("d-sm-none d-md-flex")
End Sub

Sub HideOnlyOnMD
    AddClass("d-md-none d-lg-flex")
End Sub

Sub HideOnlyOnLG
    AddClass("d-lg-none d-xl-flex")
End Sub

Sub HideOnlyOnXL
    AddClass("d-xl-none")
End Sub

Sub VisibleOnAll
    AddClass("d-flex")
End Sub

Sub VisibleOnlyOnXS
    AddClass("d-flex d-sm-none")
End Sub

Sub VisibleOnlyOnSM
    AddClass("d-none d-sm-flex d-md-none")
End Sub

Sub VisibleOnlyOnMD
    AddClass("d-none d-md-flex d-lg-none")
End Sub

Sub VisibleOnlyOnLG
    AddClass("d-none d-lg-flex d-xl-none")
End Sub

Sub VisibleOnlyOnXL
    AddClass("d-none d-xl-flex")
End Sub

Sub getrequesteditem(item As Map) As String            'ignoreDeadCode
    Dim srequesttype As String = item.Get("requesttype")
    Dim srequestitem As String = item.Get("requestitem")
    Select Case srequesttype
    Case "Hardware"
        Dim harditem As Map = hardware.Get(srequestitem)
        Dim shardwarename As String = harditem.Get("hardwarename")
        Return shardwarename
    Case "Software"        
        Dim softitem As Map = software.Get(srequestitem)
        Dim sname As String = softitem.Get("name")
        Return sname
    Case Else
        Return srequestitem
    End Select
End Sub

Private Sub vendorTable_ContextMenuRow(e As BANanoEvent, other As Map)
    'IMPORTANT
    e.PreventDefault
    Log("right click....")
    Dim item As Map = vendorTable.GetItem(other)
    Log(item)
End Sub
'
Private Sub vendorTable_DblClickRow (e As BANanoEvent, other As Map)
    Log("double click...")
    Dim item As Map = vendorTable.GetItem(other)
    Log(item)
End Sub

''will also fire if there is a double click event
Private Sub vendorTable_ClickRow (item As Map, other As Map)
    Log("click row")
    Log(item)
End Sub

'we start with hardware status report
    Dim hardwareStatusS As String = $"SELECT hardwarestatus.description, hardwarestatus.color, COUNT(hardware.hardwareid) AS records FROM hardware LEFT OUTER JOIN hardwarestatus ON hardware.statusid = hardwarestatus.statusid GROUP BY hardwarestatus.description, hardwarestatus.color"$
    '
    dashboardDS.CustomQuery = hardwareStatusS
    dashboardDS.CUSTOM("hardware_status")

Private Sub dashboardDS_Done (Action As String, Success As Boolean, Response As String, Error As String, affectedRows As Int, Result As List)
    If Success Then
        Select Case Action
        Case "hardware_status"
            ShowHardWareStatus(Result)
        End Select
    Else
        vuetify.ShowSwalError("The query could not be executed successfully!")    
    End If
End Sub