Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Drawer.Initialize(Me, "Drawer", Root, 200dip)
Drawer.CenterPanel.LoadLayout("paylink")
Drawer.LeftPanel.LoadLayout("menu")
HamburgerIcon = xui.LoadBitmapResize(File.DirAssets, "hamburger.png", 32dip, 32dip, True)
Dim bb As BarButton
bb.InitializeBitmap(HamburgerIcon, "hamburger")
B4XPages.GetNativeParent(Me).TopLeftButtons = Array(bb)
B4XPages.GetNativeParent(Me).TopRightButtons = Array(misc.CreateFABarImg("refresh.png", "REFRESH"),misc.CreateFABarImg("new.png", "NEW"))
paylinkTable.Initialize(paylinkTable,"paylinkTable")
paylinkTable.HeaderFont = xui.CreateDefaultBoldFont(12)
paylinkTable.HeadersHeight = 25dip
paylinkTable.AddColumn("Business", paylinkTable.COLUMN_TYPE_TEXT)
paylinkTable.AddColumn("Created", paylinkTable.COLUMN_TYPE_TEXT)
paylinkTable.AddColumn("Name", paylinkTable.COLUMN_TYPE_TEXT)
paylinkTable.AddColumn("Description", paylinkTable.COLUMN_TYPE_TEXT)
paylinkTable.AddColumn("Amount", paylinkTable.COLUMN_TYPE_TEXT)
paylinkTable.AddColumn("Status", paylinkTable.COLUMN_TYPE_TEXT)
paylinkTable.AddColumn("ID", paylinkTable.COLUMN_TYPE_TEXT)
paylinkTable.AddColumn("GUID", paylinkTable.COLUMN_TYPE_TEXT)
paylinkTable.AddColumn("URL", paylinkTable.COLUMN_TYPE_TEXT)
Log("Cols: "&paylinkTable.Columns.Size)
paylinkTable.VisibleColumns.RemoveAt(8)
paylinkTable.VisibleColumns.RemoveAt(7)
paylinkTable.VisibleColumns.RemoveAt(6)
showPaylinks
End Sub
Sub showPaylinks()
Dim getPaylink As HttpJob 'ignore
getPaylink.Initialize("getPaylink", Me)
Log("https://samoapayments.com/api/paylink/"&Main.clientID)
getPaylink.PostString("https://samoapayments.com/api/paylink/"&Main.clientID,"test")
getPaylink.GetRequest.SetHeader("Authorization","Bearer "&Main.token )
Wait For (getPaylink) JobDone (Job As HttpJob)
If Job.Success Then
Log("getPaylink Job.GetString:"&Job.GetString)
If Job.GetString <> "NO RECORDS" Then
Dim parser As JSONParser
parser.Initialize(Job.GetString)
Dim rawData As List = parser.NextArray
Dim formattedList As List
formattedList.Initialize
For Each colroot As Map In rawData
Dim sBusiness As String = colroot.Get("Business")
Dim sCreated As String = colroot.Get("Created")
Dim sName As String = colroot.Get("Name")
Dim sDesc As String = colroot.Get("Description")
Dim sAmount As String = colroot.Get("Amount")
Dim sStatus As String = colroot.Get("Status")
Dim sID As String = colroot.Get("ID")
Dim sGUID As String = colroot.Get("GUID")
Dim sURL As String = colroot.Get("URL")
formattedList.Add(Array As String(sBusiness, sCreated, sName, sDesc, sAmount, sStatus, sID, sGUID, sURL))
Next
Log(formattedList.Size)
paylinkTable.SetData(formattedList)
End If
End If
Job.Release
End Sub
