B4J Tutorial [ABMaterial] ABMTable > DrillDown & Cloning Records

Hi there

The ABMTable examples provide functionality to Open/Edit and Delete functionalities of the current record. I wanted more functionality like Cloning a record and Drilling Down details of the current records based on the entry that you select (click on).

So I tweaked my table loading functionality to include two extra buttons, 1 to drill down and see payments linked to the selected record and nother to clone the active record in question...

ProcPlan.png


Code: 
Private Sub LoadProcurementPlan(fromPage As Int)
    'Lets get the component from the page.
    Dim tblProcPlan As ABMTable = page.Component("tblProcPlan")
    CurrentLabels.Initialize
    CurrentValues.Initialize
    'Define list to store the results of the query
    Dim results As List
    Dim resCnt As Int
    Dim resTot As Int
    Dim resMap As Map
    Dim sqlQry As String
    'Read arguments from LocalStorage (if any)
    Dim id As String = ABMShared.SessionStorageRead(page, "ProcurementPlanid")
    'Get the record linked to this record id
    Dim RecordJSON As String = ABMShared.SessionStorageRead(page, id)
    'Convert this record to a map from json
    Dim RecordMap As Map = ABMShared.Json2Map(RecordJSON)
    page.Pause
    'Let's define the qry string
    sqlQry = "select * from ProcurementPlan order by SeqNumber " & Filter & " " & LastSort & " LIMIT " & ((fromPage - 1) * 10) & ", 10"
    'Get connection from current pool if MySQL/MSSQL
    Dim SQL As SQL = ABMShared.SQLGet
    'Get the number of records
    Dim SQL_str As String
    SQL_str = "Select Count(id) As IDS FROM ProcurementPlan " & FilterCount
    Dim NumRecords As Int = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Null)
    'Get the records as a list of maps from the db
    results = ABMShared.SQLExecuteMaps(SQL, sqlQry, Null)
    'Close the connection to the database
    ABMShared.SQLClose(SQL)
    If results.Size = 0 And fromPage > 1 Then
        'we are on a page without any lines
        fromPage = fromPage - 1
        LoadProcurementPlan(fromPage)
        Return
    End If
    tblProcPlan.Clear
    'Loop throught each record read and process it
    resTot = results.size - 1
    For resCnt = 0 To resTot
        'Get the record map
        resMap = results.get(resCnt)
        'Update each table row
        Dim rCellValues As List
        Dim rCellThemes As List
        rCellValues.Initialize
        rCellThemes.Initialize
        Dim id As String = resMap.GetDefault("id", "")
        If id = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(id)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim SeqNumber As String = resMap.GetDefault("seqnumber", "1")
        If SeqNumber = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(SeqNumber)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim FinYear As String = resMap.GetDefault("finyear", "2016/17")
        If FinYear = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(FinYear)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Programme As String = resMap.GetDefault("programme", "")
        ABMShared.SessionStorageSave(page, "programme", Programme)
        If Programme = "" Then
            rCellValues.Add("{NBSP}")
        Else
            Dim SQL_str As String
            SQL_str = "Select Number As Outcome FROM ProgrammesSet Where Id = ?"
            Programme = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Array As String(Programme))
            rCellValues.Add(Programme)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim ClassOfGoods As String = resMap.GetDefault("classofgoods", "")
        ABMShared.SessionStorageSave(page, "classofgoods", ClassOfGoods)
        If ClassOfGoods = "" Then
            rCellValues.Add("{NBSP}")
        Else
            Dim SQL_str As String
            SQL_str = "Select Description As Outcome FROM ClassOfGoods Where id = ?"
            ClassOfGoods = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Array As String(ClassOfGoods))
            rCellValues.Add(ClassOfGoods)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Description As String = resMap.GetDefault("description", "")
        If Description = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(Description)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Resource As String = resMap.GetDefault("resource", "")
        ABMShared.SessionStorageSave(page, "resource", Resource)
        If Resource = "" Then
            rCellValues.Add("{NBSP}")
        Else
            Dim SQL_str As String
            SQL_str = "Select ResourceName As Outcome FROM Resources Where id = ?"
            Resource = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Array As String(Resource))
            rCellValues.Add(Resource)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Status As String = resMap.GetDefault("status", "")
        ABMShared.SessionStorageSave(page, "status", Status)
        If Status = "" Then
            rCellValues.Add("{NBSP}")
        Else
            Dim SQL_str As String
            SQL_str = "Select Description As Outcome FROM ProcurementStatus Where id = ?"
            Status = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Array As String(Status))
            rCellValues.Add(Status)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Budget As String = resMap.GetDefault("budget", "0.00")
        If Budget = "" Then
            rCellValues.Add("{NBSP}")
        Else
            '*** Start output format
            Budget = ABMShared.makemoney(Budget)
            '*** End output format
            rCellValues.Add(Budget)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolorr")
        Dim Expenditure As String = resMap.GetDefault("expenditure", "0.00")
        If Expenditure = "" Then
            rCellValues.Add("{NBSP}")
        Else
            '*** Start output format
            Expenditure = ABMShared.makemoney(Expenditure)
            '*** End output format
            rCellValues.Add(Expenditure)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolorr")
        Dim AdvertDate As String = resMap.GetDefault("advertdate", "DateTime.Now")
        If AdvertDate = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(AdvertDate)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim CompletionDate As String = resMap.GetDefault("completiondate", "DateTime.Now")
        If CompletionDate = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(CompletionDate)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Comment As String = resMap.GetDefault("comment", "")
        If Comment = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(Comment)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim btnEditProcurementPlan As ABMButton
        btnEditProcurementPlan.InitializeFloating(page, "btnEditProcurementPlan", "mdi-action-visibility", "")
        rCellValues.Add(btnEditProcurementPlan)
        rCellThemes.Add("openedit")
        Dim btnDetailProcurementPlan As ABMButton
        btnDetailProcurementPlan.InitializeFloating(page, "btnDetailProcurementPlan", "mdi-action-list", "")
        rCellValues.Add(btnDetailProcurementPlan)
        rCellThemes.Add("openedit")
        Dim btnCopyProcurementPlan As ABMButton
        btnCopyProcurementPlan.InitializeFloating(page, "btnCopyProcurementPlan", "mdi-content-content-copy", "")
        rCellValues.Add(btnCopyProcurementPlan)
        rCellThemes.Add("openedit")
        Dim btnDeleteProcurementPlan As ABMButton
        btnDeleteProcurementPlan.InitializeFloating(page, "btnDeleteProcurementPlan", "mdi-action-delete", "")
        rCellValues.Add(btnDeleteProcurementPlan)
        rCellThemes.Add("openedit")
        'Add the row to the table
        tblProcPlan.AddRow("id" & resCnt, rCellValues)
        tblProcPlan.SetRowThemes(rCellThemes)
    Next
    'Update the paginating component
    Dim pager As ABMPagination = page.Component("ProcurementPlanPager")
    If (NumRecords Mod MaxRows > 0) Or (NumRecords = 0) Then
        NumRecords = NumRecords/MaxRows + 1
    Else
        NumRecords = NumRecords/MaxRows
    End If
    pager.SetTotalNumberOfPages(NumRecords)
    pager.SetActivePage(fromPage)
    pager.Refresh
    tblProcPlan.Refresh
    page.Resume
End Sub

From above, btnDetailProcurementPlan provided functionality to drill down based on the selected record and btnCopyProcurementPlan clones the current records.

Thus, to trap these events...

Code: 
Public Sub tblProcPlan_Clicked(PassedRowsAndColumns As List)
    ABMShared.SessionStorageSave(page, "header", "")
    'Get the details of the cell being selected
    Dim tblCellInfo As ABMTableCell = PassedRowsAndColumns.Get(0)
    'Get the table being processed.
    Dim tblProcPlan As ABMTable = page.Component(tblCellInfo.TableName)
    'Read the first column in the current row and assign value to ActiveID
    ActiveID = tblProcPlan.GetString(tblCellInfo.Row, 0)
    Select Case tblCellInfo.Column
    Case 13
        'Edit a record
        ABMShared.SessionStorageSave(page, "action", "edit")
        ABMShared.SessionStorageSave(page, "ProcurementPlanid", ActiveID)
        msProcurementPlanAddEditRecord
    Case 15
        'Clone a record
        ABMShared.SessionStorageSave(page, "action", "copy")
        ABMShared.SessionStorageSave(page, "ProcurementPlanid", ActiveID)
        msProcurementPlanCopyRecord
    Case 14
        'Drill down on a record
        Dim sbHeader As StringBuilder
        sbHeader.Initialize
        Dim SeqNumber As String = tblProcPlan.GetString(tblCellInfo.Row, 1)
        sbHeader.Append(SeqNumber)
        sbHeader.Append("-")
        Dim FinYear As String = tblProcPlan.GetString(tblCellInfo.Row, 2)
        sbHeader.Append(FinYear)
        ABMShared.SessionStorageSave(page, "header", sbHeader.ToString)
        ABMShared.SessionStorageSave(page, "action", "detail")
        ABMShared.SessionStorageSave(page, "ProcurementPlanid", ActiveID)
        ABMShared.SessionStorageSave(page, "procpayid", ActiveID)
        ABMShared.NavigateToPage(ws, ABMPageId, "../frmPayments/frmPayments.html")
    Case 16
        'Delete a record
        ABMShared.ShowYesNo(page,"Are you sure that you want to delete this record? You will not be able to undo your action. Continue to delete", "DeleteProcurementPlan", "CancelDeleteRecord")
    End Select
End Sub

So the msProcurementPlanCopyRecord method reads the record from the database and creates a copy of it taking into consideration other functionalities that need to be executed, like incrementing a particular field in the table and updating particular tables using a foreign key with 'live' totals based on current database records.

Code: 
Public Sub msProcurementPlanCopyRecord()
    'Show progress dialog...
    Dim ProcurementPlanid As String
    'Read the ID from localstorage...
    ProcurementPlanid = ABMShared.SessionStorageRead(page, "ProcurementPlanid")
    'read the record from the database.
    Dim SQL As SQL = ABMShared.SQLGet
    Dim m As Map
    m = ABMShared.SQLRecordRead(SQL,"ProcurementPlan", "id", ProcurementPlanid)
    'remove the primary key column
    m.Remove("id")
    Dim AutoQrySeqNumber As String = "SELECT MAX(SeqNumber) FROM ProcurementPlan"
    Dim AutoSeqNumber As Long = ABMShared.SQLSelectSingleResult(SQL, AutoQrySeqNumber, Null)
    AutoSeqNumber = AutoSeqNumber + 1
    m.put("seqnumber",AutoSeqNumber)
    'save the record to the database and get new primary key value
    ProcurementPlanid = ABMShared.SQLRecordInsert(SQL, "ProcurementPlan", m)
    ' the new key has been added
    Dim xProgramme As String = ABMShared.SessionStorageRead(page, "programme")
    Dim fProgramme As String
    Dim QryProgramme As String
    QryProgramme = "SELECT SUM(Budget) FROM ProcurementPlan WHERE Programme = ?"
    fProgramme = ABMShared.SQLSelectSingleResult(SQL, QryProgramme, Array As String(xProgramme))
    'update the foreign table
    QryProgramme = "UPDATE ProgrammesSet SET ppBudget = " & fProgramme & " WHERE Id = " & xProgramme
    SQL.ExecNonQuery(QryProgramme)
    Dim xProgramme As String = ABMShared.SessionStorageRead(page, "programme")
    Dim fProgramme As String
    Dim QryProgramme As String
    QryProgramme = "SELECT SUM(Expenditure) FROM ProcurementPlan WHERE Programme = ?"
    fProgramme = ABMShared.SQLSelectSingleResult(SQL, QryProgramme, Array As String(xProgramme))
    'update the foreign table
    QryProgramme = "UPDATE ProgrammesSet SET ppExpenditure = " & fProgramme & " WHERE Id = " & xProgramme
    SQL.ExecNonQuery(QryProgramme)
    'Close the database connection...
    ABMShared.SQLClose(SQL)
    If ProcurementPlanid > 0 Then
        ABMShared.SessionStorageSave(page, "action", "edit")
        ABMShared.SessionStorageSave(page, "ProcurementPlanid", ProcurementPlanid)
        myToastId = myToastId + 1
        page.ShowToast("toast" & myToastId, "toastgreen", "Record copied successfully.", 3000)
        ' open the record for editing
        msProcurementPlanAddEditRecord
    Else
        myToastId = myToastId + 1
        page.ShowToast("toast" & myToastId, "toastred", "Record could not be copied, please try again.", 3000)
    End If
End Sub

Then the drilldown methods, from the selected record, a header is defined for the ABMNavigation bar and navigation to the payments screen ensured, showing payments that are related to the previsouly selected record only. As you have noted, the expenditure for 5 is 30K, drilling down on this will provide payments in relation to that amount as depicted below.

Payments.png


That's all folks..
 
Click to expand...
The data entry screen modal sheet is defined like...

SinglePayment.png


Code: 
Private Sub BuildModalSheetmsProcurementPlan() As ABMModalSheet
    Dim msProcurementPlan As ABMModalSheet
    msProcurementPlan.Initialize(page, "msProcurementPlan", True, ABM.MODALSHEET_TYPE_NORMAL, "")
    msProcurementPlan.Size = ABM.MODALSHEET_SIZE_FULL
    msProcurementPlan.IsDismissible = False
    msProcurementPlan.IsTextSelectable = True
    msProcurementPlan.Footer.AddRowsM(1, True, 0, 0, "").AddCellsOS(1, 0, 0, 0, 12, 12, 12, "")
    msProcurementPlan.Header.AddRowsM(1, True, 0, 0, "").AddCellsOS(1, 0, 0, 0, 12, 12, 12, "")
    msProcurementPlan.Content.AddRowsM(1, True, 0, 0, "").AddCellsOS(1, 0, 0, 0, 12, 12, 12, "")
    msProcurementPlan.Content.AddRowsM(2, True, 0, 0, "").AddCellsOS(1, 0, 0, 0, 6, 6, 6, "").AddCellsOS(1, 0, 0, 0, 6, 6, 6, "")
    msProcurementPlan.Content.AddRowsM(1, True, 0, 0, "").AddCellsOS(1, 0, 0, 0, 12, 12, 12, "")
    msProcurementPlan.Content.AddRowsM(3, True, 0, 0, "").AddCellsOS(1, 0, 0, 0, 6, 6, 6, "").AddCellsOS(1, 0, 0, 0, 6, 6, 6, "")
    msProcurementPlan.Content.AddRowsM(1, True, 0, 0, "").AddCellsOS(1, 0, 0, 0, 12, 12, 12, "")
    msProcurementPlan.Header.BuildGrid  'IMPORTANT once you loaded the complete grid AND before you start adding components
    msProcurementPlan.Content.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
    msProcurementPlan.Footer.BuildGrid  'IMPORTANT once you loaded the complete grid AND before you start adding components
    'Add components to ModalSheet
    Dim lblProcurementPlan As ABMLabel
    lblProcurementPlan.Initialize(page, "lblProcurementPlan", "{NBSP}Add / Edit Procurement Plan", ABM.SIZE_H5, False, "whitefc")
    msProcurementPlan.Header.Cell(1,1).AddComponent(lblProcurementPlan)
    Dim txtProcurementPlanSeqNumber As ABMInput
    txtProcurementPlanSeqNumber.Initialize(page, "txtProcurementPlanSeqNumber", ABM.INPUT_TEL, "Seq Number", False, "")
    txtProcurementPlanSeqNumber.Text = "1"
    msProcurementPlan.Content.Cell(2,1).AddComponent(txtProcurementPlanSeqNumber)
    Dim txtProcurementPlanFinYear As ABMInput
    txtProcurementPlanFinYear.Initialize(page, "txtProcurementPlanFinYear", ABM.INPUT_TEXT, "Fin Year", False, "")
    txtProcurementPlanFinYear.Text = "2016/17"
    msProcurementPlan.Content.Cell(2,2).AddComponent(txtProcurementPlanFinYear)
    Dim cboProcurementPlanProgramme As ABMCombo
    cboProcurementPlanProgramme.Initialize(page, "cboProcurementPlanProgramme", "Programme", 650, "")
    cboProcurementPlanProgramme.DataBelow = ABM.COMBO_DATA_BELOWINPUT
    cboProcurementPlanProgramme.IsValid = ABM.VALID_TRUE
    msProcurementPlan.Content.Cell(3,1).AddComponent(cboProcurementPlanProgramme)
    Dim cboProcurementPlanClassOfGoods As ABMCombo
    cboProcurementPlanClassOfGoods.Initialize(page, "cboProcurementPlanClassOfGoods", "Class", 650, "")
    cboProcurementPlanClassOfGoods.DataBelow = ABM.COMBO_DATA_BELOWINPUT
    cboProcurementPlanClassOfGoods.IsValid = ABM.VALID_TRUE
    msProcurementPlan.Content.Cell(3,2).AddComponent(cboProcurementPlanClassOfGoods)
    Dim txtProcurementPlanDescription As ABMInput
    txtProcurementPlanDescription.Initialize(page, "txtProcurementPlanDescription", ABM.INPUT_TEXT, "Project", False, "")
    msProcurementPlan.Content.Cell(4,1).AddComponent(txtProcurementPlanDescription)
    Dim cboProcurementPlanResource As ABMCombo
    cboProcurementPlanResource.Initialize(page, "cboProcurementPlanResource", "Resource", 650, "")
    cboProcurementPlanResource.DataBelow = ABM.COMBO_DATA_BELOWINPUT
    cboProcurementPlanResource.IsValid = ABM.VALID_TRUE
    msProcurementPlan.Content.Cell(5,1).AddComponent(cboProcurementPlanResource)
    Dim cboProcurementPlanStatus As ABMCombo
    cboProcurementPlanStatus.Initialize(page, "cboProcurementPlanStatus", "Status", 650, "")
    cboProcurementPlanStatus.DataBelow = ABM.COMBO_DATA_BELOWINPUT
    cboProcurementPlanStatus.IsValid = ABM.VALID_TRUE
    msProcurementPlan.Content.Cell(5,2).AddComponent(cboProcurementPlanStatus)
    Dim txtProcurementPlanBudget As ABMInput
    txtProcurementPlanBudget.Initialize(page, "txtProcurementPlanBudget", ABM.INPUT_TEL, "Budget", False, "")
    txtProcurementPlanBudget.Text = "0.00"
    msProcurementPlan.Content.Cell(6,1).AddComponent(txtProcurementPlanBudget)
    Dim txtProcurementPlanExpenditure As ABMInput
    txtProcurementPlanExpenditure.Initialize(page, "txtProcurementPlanExpenditure", ABM.INPUT_TEL, "Expenditure", False, "")
    txtProcurementPlanExpenditure.Text = "0.00"
    msProcurementPlan.Content.Cell(6,2).AddComponent(txtProcurementPlanExpenditure)
    Dim dpProcurementPlanAdvertDate As ABMDateTimePicker
    Dim dpProcurementPlanAdvertDateDate As Long = DateTime.Now
    dpProcurementPlanAdvertDate.Initialize(page, "dpProcurementPlanAdvertDate", ABM.DATETIMEPICKER_TYPE_DATE, dpProcurementPlanAdvertDateDate, "Advert Date", "")
    dpProcurementPlanAdvertDate.WeekText = "Week"
    dpProcurementPlanAdvertDate.TodayText = "Today"
    dpProcurementPlanAdvertDate.ReturnDateFormat = "YYYY-MM-DD"
    dpProcurementPlanAdvertDate.ReturnTimeFormat = ""
    dpProcurementPlanAdvertDate.Language = "en"
    dpProcurementPlanAdvertDate.FirstDayOfWeek = ABM.FIRSTDAYOFWEEK_SUNDAY
    dpProcurementPlanAdvertDate.PickText = "OK"
    dpProcurementPlanAdvertDate.CancelText = "Back"
    msProcurementPlan.Content.Cell(7,1).AddComponent(dpProcurementPlanAdvertDate)
    Dim dpProcurementPlanCompletionDate As ABMDateTimePicker
    Dim dpProcurementPlanCompletionDateDate As Long = DateTime.Now
    dpProcurementPlanCompletionDate.Initialize(page, "dpProcurementPlanCompletionDate", ABM.DATETIMEPICKER_TYPE_DATE, dpProcurementPlanCompletionDateDate, "Completion Date", "")
    dpProcurementPlanCompletionDate.WeekText = "Week"
    dpProcurementPlanCompletionDate.TodayText = "Today"
    dpProcurementPlanCompletionDate.ReturnDateFormat = "YYYY-MM-DD"
    dpProcurementPlanCompletionDate.ReturnTimeFormat = ""
    dpProcurementPlanCompletionDate.Language = "en"
    dpProcurementPlanCompletionDate.FirstDayOfWeek = ABM.FIRSTDAYOFWEEK_SUNDAY
    dpProcurementPlanCompletionDate.PickText = "OK"
    dpProcurementPlanCompletionDate.CancelText = "Back"
    msProcurementPlan.Content.Cell(7,2).AddComponent(dpProcurementPlanCompletionDate)
    Dim txtProcurementPlanComment As ABMInput
    txtProcurementPlanComment.Initialize(page, "txtProcurementPlanComment", ABM.INPUT_TEXT, "Comment", True, "")
    msProcurementPlan.Content.Cell(8,1).AddComponent(txtProcurementPlanComment)
    Dim btnApplyProcurementPlan As ABMButton
    btnApplyProcurementPlan.InitializeFlat(page, "btnApplyProcurementPlan", "", "", "Save", "transparent")
    btnApplyProcurementPlan.Size = ABM.BUTTONSIZE_NORMAL
    msProcurementPlan.Footer.Cell(1,1).AddComponent(btnApplyProcurementPlan)
    Dim btnCancelProcurementPlan As ABMButton
    btnCancelProcurementPlan.InitializeFlat(page, "btnCancelProcurementPlan", "", "", "Cancel", "transparent")
    btnCancelProcurementPlan.Size = ABM.BUTTONSIZE_NORMAL
    msProcurementPlan.Footer.Cell(1,1).AddComponent(btnCancelProcurementPlan)
    Return msProcurementPlan
End Sub
 
Last edited:
Hi,
When you have lots of button in the table. How did you detect which button has clicked ?
 
jinyistudio said:
Hi,
When you have lots of button in the table. How did you detect which button has clicked ?
Click to expand...
Each column is linked to an index and assuming that you have buttons in different columns, you can detect which button using the index. It's the index that is passed in the RC of that row. The method below detects when the table is clicked, there is a button at column 13 to 15

Code: 
Public Sub tblProcPlan_Clicked(PassedRowsAndColumns As List)
    ABMShared.SessionStorageSave(page, "header", "")
    'Get the details of the cell being selected
    Dim tblCellInfo As ABMTableCell = PassedRowsAndColumns.Get(0)
    'Get the table being processed.
    Dim tblProcPlan As ABMTable = page.Component(tblCellInfo.TableName)
    'Read the first column in the current row and assign value to ActiveID
    ActiveID = tblProcPlan.GetString(tblCellInfo.Row, 0)
    Select Case tblCellInfo.Column
    Case 13
        'Edit a record
        ABMShared.SessionStorageSave(page, "action", "edit")
        ABMShared.SessionStorageSave(page, "ProcurementPlanid", ActiveID)
        msProcurementPlanAddEditRecord
    Case 15
        'Clone a record
        ABMShared.SessionStorageSave(page, "action", "copy")
        ABMShared.SessionStorageSave(page, "ProcurementPlanid", ActiveID)
        msProcurementPlanCopyRecord
    Case 14
        'Drill down on a record
        Dim sbHeader As StringBuilder
        sbHeader.Initialize
        Dim SeqNumber As String = tblProcPlan.GetString(tblCellInfo.Row, 1)
        sbHeader.Append(SeqNumber)
        sbHeader.Append("-")
        Dim FinYear As String = tblProcPlan.GetString(tblCellInfo.Row, 2)
        sbHeader.Append(FinYear)
        ABMShared.SessionStorageSave(page, "header", sbHeader.ToString)
        ABMShared.SessionStorageSave(page, "action", "detail")
        ABMShared.SessionStorageSave(page, "ProcurementPlanid", ActiveID)
        ABMShared.SessionStorageSave(page, "procpayid", ActiveID)
        ABMShared.NavigateToPage(ws, ABMPageId, "../frmPayments/frmPayments.html")
    Case 16
        'Delete a record
        ABMShared.ShowYesNo(page,"Are you sure that you want to delete this record? You will not be able to undo your action. Continue to delete", "DeleteProcurementPlan", "CancelDeleteRecord")
    End Select
End Sub

I hope this helps. Where there are multiple buttons in the same RC then I don't have a clue yet.
 
You must log in or register to reply here.

Similar Threads

fredo
Games [x2][solved] Help needed regarding creating object clones
Replies
2
Views
5K
fredo
fredo
fredo
Games [x2][solved] Help needed regarding Object Movement
Replies
10
Views
9K
fredo
fredo
Mashiane
  • Article Article
Share My Creation TableView: Magical Inline Editing
Replies
11
Views
9K
Mashiane
Mashiane
Mashiane
  • Article Article
B4J Tutorial [ABMaterial] Dashboard Creation with JustGage
Replies
6
Views
6K
incendio
incendio
alwaysbusy
  • Sticky
  • Article Article
B4J Library [Web][ABMaterial] Framework for WebApps
38 39 40
Replies
780
Views
443K
Cableguy
Cableguy
Back
Top