Module WapCustList.wo

     1Use cWmlReport.pkg
     2Use cWebBusinessProcess.pkg
     3Use DataDict.pkg
     4Use cWmlReport.pkg
     5Use Customer.DD
     6
     7Object oWapCustList is a cWebBusinessProcess
     8
     9    // This WBO, oWapCustList, is used to output a Customer WAP report and is
    10    // called by WapCustList.asp.
    11    //
    12    // This WBO was created using the WAP Entry Wizard.
    13    Set pbAllowDelete to False
    14    Set pbAllowSaveEdit to False
    15    Set pbAllowSaveNew to False
    16    Set psDescription to "Wap Customer List"
    17
    18    Object oCustomer_DD is a Customer_DataDictionary
    19        Send DefineAllExtendedFields
    20    End_Object    // oCustomer_DD
    21
    22    Set Main_DD to oCustomer_DD
    23
    24    Object oReport is a cWmlReport
    25                        
    26        Procedure OnPageTop
    27            Send WriteWML ''
    28        End_Procedure // OnPageTop
    29        
    30        Procedure OnBody
    31            String sLinkText sRowId sName
    32        
    33            Move (SerializeRowId(GetRowId(Customer.File_Number))) To sRowId
    34            Get ddValueEncode "Customer.Name" To sName
    35        
    36            Send WriteWml ('- sRowId - '">')
    37            Send WriteWml sName
    38            Send WriteWml ''
    39        End_Procedure // OnBody
    40        
    41        Procedure OnPageBottom
    42            String sIndex sLink
    43        
    44            Get psHrefName To sLink
    45            Get piOrdering To sIndex
    46            Send WriteWml '
'
    47        
    48            Send WriteWml ''
    49            Send WriteWml ('   - sLink - '?RowId=$(rowid)&Index=' - sIndex - '"/>')
    50            Send WriteWml ''
    51        End_Procedure // OnPageBottom
    52        
    53        Function RunWapCustList Integer iIndex RowId riStart Returns RowId
    54            RowId   riEnd
    55            Integer iStat
    56        
    57            Set piOrdering           To iIndex
    58            Set priStartRowId        To riStart
    59            Get DoRunReport          To iStat
    60            Get priLastRowId         To riEnd
    61            Function_Return riEnd
    62        End_Function // RunWapCustList
    63        
    64    End_Object    // oReport
    65
    66    { Published = True  }
    67    { Description = ""  }
    68    Procedure SetHRefName String sName
    69        Set psHRefname Of oReport To sName
    70    End_Procedure // SetHRefName
    71    
    72    { Published = True  }
    73    { Description = ""  }
    74    Procedure SetMaxChars String sChars
    75        Set piWmlMaxLength Of oReport To sChars
    76    End_Procedure // SetMaxChars
    77    
    78    { Published = True  }
    79    { Description = ""  }
    80    Procedure SetMaxLines String sLines
    81        Set piMaxCount Of oReport To sLines
    82    End_Procedure // SetMaxLines
    83    
    84    { Published = True  }
    85    { Description = ""  }
    86    Function RunWapCustList Integer iIndex string sStart Returns String
    87        RowId riEnd
    88        Get RunWapCustList Of oReport iIndex (DeSerializeRowId(sStart)) To riEnd
    89        Function_Return (SerializeRowId(riEnd))
    90    End_Function // RunWapCustList
    91    
    92    //  Register WBO interfaces
    93    Send RegisterStandardInterface
    94    // Send RegisterDebugInterface
    95    // Send RegisterFullErrorInterface
    96    // Send RegisterAutoEntryInterface
    97
    98End_Object    // oWapCustList
    99