Use cWebBusinessProcess.pkg
Use DataDict.pkg
Use cWebReport.pkg
Use SalesP.DD

Object oSalesP is a cWebBusinessProcess
    Set pbClearAfterSave to False
    Set psDescription to "Sales Person: Entry, Reporting, Maintenance"

    Object SalesP_DD is a Salesp_DataDictionary
        Send DefineAllExtendedFields
    End_Object    // SalesP_DD

    Set Main_DD to SalesP_DD

    Object oReport is a cWebReport

        Procedure OnPageTop
            Send WriteHtmlTableBegin 'border="0" width="99%" Class="ReportTable"'

            Send WriteHtmlRowBegin
                Send WriteHtmlCellHeader 'ID' 'Class="Header" Align="left"'
                Send WriteHtmlCellHeader 'Sales Person Name' 'Class="Header" Align="left"'
            Send WriteHtmlRowEnd
        End_Procedure // OnPageTop

        Procedure OnBody
            String sText sId sName

            Get ddValueEncode "Salesp.ID" To sId
            Get ddValueEncode "Salesp.Name" To sName
            Send WriteHtmlRowBegin
                Get AddRowIdLink sId To sText
                Send WriteHtmlCell sText 'Class="Data" Align="left"'
                Send WriteHtmlCell sName 'Class="Data" Align="left"'
            Send WriteHtmlRowEnd
        End_Procedure // OnBody

        Procedure OnPageBottom
            Send WriteHtmlTableEnd
        End_Procedure // OnPageBottom

        Function RunSalesPList Integer iIndex RowId riStart Integer iMax Returns rowId
            Rowid   riEnd
            Integer iStat

            Set piOrdering           To iIndex
            Set piMaxCount           To iMax
            Set piMaxCountBreakLevel To 0
            Set priStartRowId        To riStart
            Get DoRunReport          To iStat
            Get priLastRowId         To riEnd
            Function_Return riEnd
        End_Function // RunSalesPList

    End_Object    // oReport

    { Published = True  }
    { Description = ""  }
    Procedure SetHRefName string sName
        Set psHRefname of oReport to sName
    End_Procedure // SetHRefName

    { Published = True  }
    { Description = ""  }
    Function RunSalesPList integer iIndex string sStart integer iMax Returns String
        RowId riEnd
        Get RunSalesPList of oReport iIndex (DeserializeRowId(sStart)) iMax to riEnd
        Function_return (SerializeRowId(riEnd))
    End_Function // RunSalesPList

    //  Register WBO interfaces
    Send RegisterStandardInterface
    // Send RegisterDebugInterface
    // Send RegisterFullErrorInterface
    // Send RegisterAutoEntryInterface

End_Object    // oSalesP