Code: Select all
* go through the list and make Phone Icon Visible if a mobile device.
For Each(#Item) In(#List.Items)
Get_Entry Number(#Item.Entry) From_List(#List)
#PhoneIcon.CurrentItem.Visible := (#Sys_Web.Device = Mobile)
EndforCode: Select all
* go through the list and make Phone Icon Visible if a mobile device.
For Each(#Item) In(#List.Items)
Get_Entry Number(#Item.Entry) From_List(#List)
#PhoneIcon.CurrentItem.Visible := (#Sys_Web.Device = Mobile)
EndforCode: Select all
Define Field(#sTemp) Reffld(#OC18_EmailHTML)
#CarriageReturn := (13).AsUnicodeString /* Hex 0D */
#LineFeed := (10).AsUnicodeString /* Hex 0A */
#sTemp := #ebNote
#OC18_EmailHTML := #sTemp.ReplaceAll( #LineFeed '<br>' )