Help & Support
Contents
Display Legacy Contents

Search:

Home > Impact Suite > Tables and Forms > Controls on Forms > Buttons and Picklists > Button [MapIt-DriveIt]

Button [MapIt-DriveIt]

The button map it drive it control will bring forward a screen when clicked to get directions between two locations.  Directions for map it drive it can be found here.




To change the default code, click the ellipses (...) button in the properties panel, change the code and click save.


The default code for the button is

'--------------------------------------------------

' Get the form the user is working on
'--------------------------------------------------
Dim EntityForm as Durkin.Common.Classes.frmSubEntityItemEditDurkin
EntityForm  = directCast(SubEntityForm, Durkin.Common.Classes.frmSubEntityItemEditDurkin)

'--------------------------------------------------

' Get the STARTING point contact
'--------------------------------------------------

'--------------------------------------------------

' My record
'--------------------------------------------------
'Dim StartContact as Act.Framework.Contacts.Contact = HostApplication.ActFramework.Contacts.GetMyRecord()

'--------------------------------------------------

' First contact atached to the record
'--------------------------------------------------
Dim StartContact as Act.Framework.Contacts.Contact = EntityForm.GetEntityItem().GetContacts(nothing)(0)

'--------------------------------------------------

' Get the FROM addresses from the STARTING CONTACT
'--------------------------------------------------
Dim fAddress As String = Contacts.GetContactFieldDescriptorByANY(HostFramework, "Address 1").GetValue(StartContact )
Dim fCity As String = Contacts.GetContactFieldDescriptorByANY(HostFramework, "TBL_CONTACT.BUSINESS_CITY").GetValue(StartContact )
Dim fState As String = Contacts.GetContactFieldDescriptorByANY(HostFramework, "TBL_CONTACT.BUSINESS_STATE").GetValue(StartContact )
Dim fPostal As String =Contacts.GetContactFieldDescriptorByANY(HostFramework, "TBL_CONTACT.BUSINESS_POSTALCODE").GetValue(StartContact )
Dim fCountry As String = Contacts.GetContactFieldDescriptorByANY(HostFramework, "TBL_CONTACT.BUSINESS_COUNTRYNAME").GetValue(StartContact )

'--------------------------------------------------

' Get the DESTINATION addresses from the current record
'--------------------------------------------------
Dim dAddress As String = CustomSubEntity.GetFieldDescriptorByANY("Destination Address", EntityForm.GetEntityManager()).GetValue(EntityForm.GetEntityItem())
Dim dCity As String = CustomSubEntity.GetFieldDescriptorByANY("Destination City", EntityForm.GetEntityManager()).GetValue(EntityForm.GetEntityItem())
Dim dState As String = CustomSubEntity.GetFieldDescriptorByANY("Destination State", EntityForm.GetEntityManager()).GetValue(EntityForm.GetEntityItem())
Dim dPostal As String = CustomSubEntity.GetFieldDescriptorByANY("Destination Postal", EntityForm.GetEntityManager()).GetValue(EntityForm.GetEntityItem())
Dim dCountry As String = CustomSubEntity.GetFieldDescriptorByANY("Destination Country", EntityForm.GetEntityManager()).GetValue(EntityForm.GetEntityItem())

'--------------------------------------------------

' Send the information to Google Maps
'--------------------------------------------------
Dim MapIt As New Durkin.Common.Views.frmMapit(fAddress , fCity , fState , fPostal , fCountry , dAddress , dCity , dState , dPostal , dCountry )
MapIt.Show()

See also



Properties
Article ID:
button__mapit-driveit_
Views: 182
Created By: jimdurkin
Modified By: [Modified By]
Created Date: 3/24/2014 12:31 PM
Last Modified: 3/24/2014 1:45 PM
Actions
Print This Article
Bookmark
Email This Article
Previous Article
Next Article