AL-Infotech

Update: Have also a look at Geocoding - the next step: Routing with Map24 AJAX API

Inspired by Eddy De Clercq’s SDN World Map and the German Podcast Pimp My Brain where they introduced me into Google Maps I’ve tried out to combine this with our SAP CRM People Centric User Interface (PC-UI). The result is this little BSP application which uses ABAP Object Persistence Service and Simple Transformations.

During my research about geocoding in a SAP environment I found Geocoding for BW and Geocoding for Business Partners. You find more information about this topic in the SPRO customizing transaction at SAP NetWeaver -> General Settings -> Set Geocoding. Unfortunately I’ve found no documentation how to implement this standard interface and I implemented my own. External Geocoding solutions can be found in the Partner Directory Solution Search. SAP Notes regarding Geocoding can be found in the OSS Application Area BC-SRV-GEO.

There is also an SDN Article “Using Geo Services with Web Dynpro” which uses the standard interface which calls external providers using the IGS.

But now let’s start to build our solution which will result in:

Preparation

Sign up to the Google Maps API

To use Google Maps you have to Sign up for the Google Maps API. You have to provide the web site URL which must exactly match your WebAS URL including the Port. I. e. http://webas.test.com:8000/. After the sign up you get a sample HTML Source which you can save locally and play around using the API Documentation.

Create Database Table for Geocoding Data

I’ve put all development objects together in the Package ZBPGOOGLEMAP:

Here I’ve created also the DB Table ZBPGEOCODE which will contain the Geocode information for a Business Partner (BP). To detect changes on the BP I also save Street, Street No., Postal Code and City in this table.

Create Persistent class for Geocoding Data

A long time ago I’ve read Thomas Jung’s Weblog on “ABAP Persistent Classes: Coding without SQL” but never tried it on my own. But here I’ve done it and created the Class ZCL_BPGEOCODE which is from Class Type “Persistent class”. All the rest is described in detail in the mentioned Blog. Be aware that you have to use the DB Table ZBPGEOCODE.

Transform Google KML to ABAP

I did not attend the ABAP Online Meet-up on Simple Transformations but it inspired me to use this to transform the return of the Geocoding HTTP Request into an ABAP Structure. To test the Transformation I first downloaded the result of this request to my local drive:

http://maps.google.com/maps/geo?q=Neurottstr.+15a,+Walldorf,+DE&output=xml&key=…

Don’t forget to use your key which you’ve got after sign up at Google Maps. The result of the request looks like this:

<?xml version="1.0" encoding="UTF-8" ?> <kml xmlns="http://earth.google.com/kml/2.0"> <Response> <name>Neurottstr. 15a,69190 Walldorf, DE</name> <Status> <code>200</code> <request>geocode</request> </Status> <Placemark><br /> <address>Neurottstraße 15, 69190 Walldorf, Germany</address> <p> <AddressDetails xmlns="urn:oasis:names:tc:ciq:xsdschema:xAL:2.0"> <Country> <CountryNameCode>DE</CountryNameCode> <AdministrativeArea> <AdministrativeAreaName>Baden-Württemberg </AdministrativeAreaName> <SubAdministrativeArea> <SubAdministrativeAreaName>Rhein-Neckar-Kreis </SubAdministrativeAreaName> <Locality> <LocalityName>Walldorf</LocalityName> <Thoroughfare> <ThoroughfareName>Neurottstraße 15</ThoroughfareName> </Thoroughfare> <PostalCode> <PostalCodeNumber>69190</PostalCodeNumber> </PostalCode> </Locality> </SubAdministrativeArea> </AdministrativeArea> </Country> </AddressDetails> <Point> <coordinates>8.643352,49.293884,0</coordinates> </Point> </Placemark> </Response> </kml> The main problem for me was the Namespace used by the Google KML Format. To get access to the components I had to add this line to the “xsl:transform” element:

xmlns:kml=”http://earth.google.com/kml/2.0″ Also be aware that the Values which should be transferred to ABAP Variables, Structures or Tables must be Uppercase. Here is the complete XSLT which I’ve saved as ZGOOGLE_GEOCODE_TO_ABAP:

<xsl:transform xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:asx="http://www.sap.com/abapxml" xmlns:kml="http://earth.google.com/kml/2.0" version="1.0"> <xsl:template match="/">   <asx:abap version="1.0"> <asx:values> <GEOCODE> <LON> <xsl:value-of select="substring-before(kml:kml/kml:Response/kml:Placemark/kml:Point/kml:coordinates,',')"/> </LON> <LAT> <xsl:value-of select="substring-before(substring-after(kml:kml/kml:Response/kml:Placemark/kml:Point/kml:coordinates,','),',')"/> </LAT> <ALT> <xsl:value-of select="substring-after(substring-after(kml:kml/kml:Response/kml:Placemark/kml:Point/kml:coordinates,','),',')"/> </ALT> </GEOCODE> </asx:values> </asx:abap>   </xsl:template>   </xsl:transform> When you test the Transformation you should get this result:

<?xml version="1.0" encoding="utf-8" ?> <asx:abap xmlns:asx="http://www.sap.com/abapxml" xmlns:kml="http://earth.google.com/kml/2.0" version="1.0"> <asx:values> <GEOCODE> <LON>12.570170</LON> <LAT>48.057432</LAT> <ALT>0</ALT> </GEOCODE> </asx:values> </asx:abap>

Implement the BSP

Now we can put the elements together and create the BSP Application ZBPMAP with the Page default.htm. Please maintain this Page Attributes:

Attribute	Auto	Typing Method	Associated Type
address	Â	TYPE	STRING
bp	X	TYPE	BU_PARTNER
mapcenter	Â	TYPE	STRING

Here is the layout:

<%@page language="abap" %> <%@extension name="htmlb" prefix="htmlb" %> <htmlb:content design="design2003" > <htmlb:document> <htmlb:documentHead title="Business Partner in Google Map" > <% DATA: onload type string, onunload type string. if mapcenter is not initial. onload = 'load()'. onunload = 'GUnload()'. %> <htmlb:headInclude/> <script src="http://maps.google.com/maps?file=api&v=2&key=..." type="text/javascript"></script> <script type="text/javascript"> //<![CDATA[ function load() { if (GBrowserIsCompatible()) { varmap = new GMap2(document.getElementById("map")); map.addControl(new GSmallMapControl()); map.addControl(new GMapTypeControl()); map.setCenter(new GLatLng(<%= mapcenter%>), 15); var marker = new GMarker(map.getCenter()); map.addOverlay(marker); GEvent.addListener(marker, “click”, function() { marker.openInfoWindowHtml(”<%= address %>“); }); marker.openInfoWindowHtml(”<%= address %>“); } } //]]> </script> <% endif. %> </htmlb:documentHead> <htmlb:documentBody onLoad="<%= onload %>” > <htmlb:form method="GET" > <htmlb:label for = "BP" text = "Business Partner Number" /> <htmlb:inputField id = "BP" value = "<%= BP %>” /> <htmlb:button text = "Search" onClick = "myClickHandler" /> <% if mapcenter is not initial. %></p> <div id="map" style="width: 500px; height: 350px"></div> <p><% endif. %> </htmlb:form> </htmlb:documentBody> </htmlb:document> </htmlb:content> Please note that you have to insert your Key. Finally the Event Handler OnInputProcessing:

* event handler for checking and processing user input and * for defining navigation   DATA: ls_addressdata TYPE bapibus1006_address.   IF NOT bp IS INITIAL. * Get leading zeros for BP Number CALL FUNCTION ‘BAPI_BUPA_GET_NUMBERS’ EXPORTING businesspartner = bp IMPORTING businesspartnerout = bp. * Get BP’s default address CALL FUNCTION ‘BAPI_BUPA_ADDRESS_GETDETAIL’ EXPORTING businesspartner = bp IMPORTING addressdata = ls_addressdata. * Prepare the address to display in marker CONCATENATE ls_addressdata-street ls_addressdata-house_no ‘<br /> ‘ ls_addressdata-postl_cod1 ls_addressdata-city INTO address SEPARATED BY space.   * Check if Geocoding for address already exists DATA: geocode TYPE zbpgeocode.   DATA: connection TYPE REF TO zcl_bpgeocode, agent TYPE REF TO zca_bpgeocode.   DATA: exc TYPE REF TO cx_root, getgeocode TYPE flag, updategeocode TYPE flag.   agent = zca_bpgeocode=>agent.   TRY. * Get Persistence Object by Key connection = agent->get_persistent( i_partner = bp ). * Has the Address been changed? IF ls_addressdata-street = connection->get_street( ) AND ls_addressdata-house_no = connection->get_house_no( ) AND ls_addressdata-postl_cod1 = connection->get_postl_cod1( ) AND ls_addressdata-city = connection->get_city( ). geocode-lon = connection->get_lon( ). geocode-lat = connection->get_lat( ). geocode-alt = connection->get_alt( ). ELSE. * Address was changed and needs to be updated getgeocode = ‘X’. updategeocode = ‘X’. ENDIF. * Object does not exist. So we have to get the geocode CATCH cx_root INTO exc. getgeocode = ‘X’. ENDTRY.   IF getgeocode = ‘X’. * HTTP Client according to * https://weblogs.sdn.sap.com/pub/wlg/1960   DATA: client TYPE REF TO if_http_client, url TYPE string, c_xml TYPE string. * Build URL to call Googe Maps Geocoding url = ‘http://maps.google.com/maps/geo?q=’. IF NOT ls_addressdata-house_no IS INITIAL. CONCATENATE url ls_addressdata-house_no ‘+’ INTO url. ENDIF. CONCATENATE url ls_addressdata-street ‘,’ INTO url. CONCATENATE url ls_addressdata-postl_cod1 ‘,’ ls_addressdata-city ‘,’ ls_addressdata-countryiso ‘&output=xml’ ‘&key=…’ INTO url.   ****Create the HTTP client CALL METHOD cl_http_client=>create_by_url EXPORTING url = url IMPORTING client = client EXCEPTIONS OTHERS = 1.   client->send( ). client->receive( ).   ****Get the response content in Character format c_xml = client->response->get_cdata( ).   ****Transform XML to ABAP Values   CALL TRANSFORMATION zgoogle_geocode_to_abap SOURCE XML c_xml RESULT geocode = geocode.   IF NOT geocode IS INITIAL. MOVE-CORRESPONDING ls_addressdata TO geocode. geocode-partner = bp. geocode-erzet = sy-uzeit. geocode-erdat = sy-datum. IF updategeocode = ‘X’. * Update Persistent Object connection->set_erzet( geocode-erzet ). connection->set_erdat( geocode-erdat ). connection->set_lon( geocode-lon ). connection->set_lat( geocode-lat ). connection->set_alt( geocode-alt ). connection->set_street( geocode-street ). connection->set_house_no( geocode-house_no ). connection->set_postl_cod1( geocode-postl_cod1 ). connection->set_city( geocode-city ). COMMIT WORK. ELSE. * Create Persistent Object TRY. connection = agent->create_persistent( i_partner = geocode-partner i_erdat = geocode-erdat i_erzet = geocode-erzet i_lon = geocode-lon i_lat = geocode-lat i_alt = geocode-alt i_street = geocode-street i_house_no = geocode-house_no i_postl_cod1 = geocode-postl_cod1 i_city = geocode-city ). COMMIT WORK. ENDTRY. ENDIF. ENDIF. ENDIF. ENDIF. * Only fill Mapcenter if geocode is valid IF NOT geocode IS INITIAL. DATA: lat type string, lon type string. * Prepere Latitude for Javascript IF geocode-lat < 0. geocode-lat = geocode-lat * -1. lat = geocode-lat. CONCATENATE '-' lat INTO lat. ELSE. lat = geocode-lat. ENDIF. * Prepere Longitude for Javascript IF geocode-lon < 0. geocode-lon = geocode-lon * -1. lon = geocode-lon. CONCATENATE '-' lon INTO lon. ELSE. lon = geocode-lon. ENDIF. CONCATENATE lat ',' lon INTO mapcenter. ENDIF. Also here insert your own key to the generated URL. The result is this little BSP Application which provides a Map with a marker where our Business Partner is located.:

To combine this BSP with the PC-UI of CRM please have a look at my Blog: “Use CRM PCUI HTML viewer to call a custom URL”.