B4J Library [Web][ABMaterial] Framework for WebApps

Dim list1 As ABMList = page.Component("list1")

Sub tbl2_clicked(PassedRowsAndColumns As List)
    ' is the root table
    Dim tblCellInfo As ABMTableCell = PassedRowsAndColumns.Get(0)
    Dim tbl As ABMTable = page.Component(tblCellInfo.TableName)
    Dim StringSelect As String = tbl.GetString(tblCellInfo.Row, tblCellInfo.Column)
    Dim list1 As ABMList = page.Component("list1")
    list1.AddSubItem("H1", "S"&(myToastId+1), BuildSimpleItem("L1H1S"&(myToastId+1),"", StringSelect))
    list1.Refresh
    page.Refresh  

    myToastId = myToastId + 1   
    page.ShowToast("toast" & myToastId, "toastred", "Clicked " & tblCellInfo.TableName & " row " & tblCellInfo.Row & " column " & tblCellInfo.Column, 5000)
End Sub

Private Sub WebSocket_Connected (WebSocket1 As WebSocket)
   Log("Connected")
   ws = WebSocket1   
   If ABMShared.NeedsAuthorization Then
     If ws.Session.GetAttribute2("IsAuthorized", "") = "" Then
       ABMShared.NavigateToPage(ws, "../")
       Return
     End If
   End If
   ' connect our page with the websocket   
   page.SetWebSocket(ws)
   ' Prepare the page IMPORTANT!
   page.Prepare
   CaricaGriglia
   
End Sub


Sub CaricaGriglia()
    Dim list1 As ABMList = page.Component(2,1,"list1")
    Dim ll As List
    Try
        ll = ws.Session.GetAttributesNames
    Dim ii As Int
    For ii = 0 To ll.Size -1
        Dim s As String
        s = ll.Get (ii)
        If s.StartsWith("$$") Then
            Dim lstmez As List = ws.Session.GetAttribute (s)
            Dim jj As Int
            For jj = 0 To lstmez.Size -1
                Dim sl() As String
                Dim tll As String
                tll = lstmez.Get (jj)
                sl = Regex.Split ("\|",tll)
                Dim quando As String
                quando = sl(8)
                '  20151117090830
                quando = quando.SubString2 (6 ,8) & "/" &  quando.SubString2(4,6) & "/" &  quando.SubString2(0,4)& " " & quando.SubString2(8,10) & ":" &  quando.SubString2(10,12)
                list1.AddSubItem("H1",  sl(2), BuildSimpleItem( sl(3),  "","{B}" & sl(2) & "{/B} - " & quando  & "{BR}{B}T1:{/B}" & Round2( sl(4),1) & "°C"  & " - {B}T2:{/B}:" & Round2(sl(5),1) & "°C" & " - {B}T3:{/B}:" & Round2(sl(6),1) & "°C" & " - {B}T4:{/B}:" & Round2(sl(7),1) & "°C"))
                Log(sl(2))   
            Next
           
           
        End If
    Next
        list1.Refresh
        page.Refresh

    Catch
       
        Log(LastException)
    End Try
End Sub

function initMap() {
  var map = new google.maps.Map(document.getElementById('map'), {
    zoom: 8,
    center: {lat: 40.731, lng: -73.997}
  });
  var geocoder = new google.maps.Geocoder;
  var infowindow = new google.maps.InfoWindow;

  document.getElementById('submit').addEventListener('click', function() {
    geocodeLatLng(geocoder, map, infowindow);
  });
}

function geocodeLatLng(geocoder, map, infowindow) {
  var input = document.getElementById('latlng').value;
  var latlngStr = input.split(',', 2);
  var latlng = {lat: parseFloat(latlngStr[0]), lng: parseFloat(latlngStr[1])};
  geocoder.geocode({'location': latlng}, function(results, status) {
    if (status === google.maps.GeocoderStatus.OK) {
      if (results[1]) {
        map.setZoom(11);
        var marker = new google.maps.Marker({
          position: latlng,
          map: map
        });
        infowindow.setContent(results[1].formatted_address);
        infowindow.open(map, marker);
      } else {
        window.alert('No results found');
      }
    } else {
      window.alert('Geocoder failed due to: ' + status);
    }
  });
}