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