#include  "#SYSPATHMS4BI+\zInclude\includeChart.h" 
 Array    GeoMapRef  Occurs 40 { char StringEx1:20;CHAR stringVal :128; integer IntValEx1;} ;
float : x dec(6) := 36.706776;
 text : Province1:="Weifang";
** ************************************************************
** DISPLAY CHART  GeoMapRef
** ***********************************************************	

** ************************************************************
** DISPLAY CHART  LEAFLET
** ***********************************************************	
 Begin_Block_Rwd  :  margin_page  
  Setting :
 	Backgroundcolor : "GAINSBORO" ;
  
 begin_sw
 \n\l\n
 <``   #     MS4BI  : GEOMAP --(Leaflet map)--        #  ``>
 end_sw		; 
	 BEGIN
	Perform InsertArray(void);
 	FormLeaflet : DRAWGEOMAP ID: "mymap", 
		SetView(27.934572,116.312164), Zoom : 4.3 ,
	height :"450px",width : "650px"
	
	loadArray GeoMapRef   { field : "stringVal"  } , 
    begin_sw
     
		var influence = L.circle([39.913818,116.363625], 160000).addTo(mymap);
		var circle = L.circle([33.391376,117.557678], {
						color: 'red',
						fillColor: '#f03',
						fillOpacity: 0.5,
						radius: 150000
						}).addTo(mymap);
					circle.bindPopup("I am a circleXXXXXXXXXXXXXXXXXXX.");
		var polygon = L.polygon([
					[27.518280, 120.425766],
					[32.540447,119.243889],
					[27.934572,116.312164]
					]).addTo(mymap);

					polygon.bindPopup("I am a polygon.");

					marker.bindPopup("<b>Hello world!</b><br>I am a popup.").openPopup();

 
					var popup = L.popup()
					.setLatLng([35.8617,104.1954])
					.setContent("CHINA.")
					.openOn(mymap);
 
 
  end_sw		; 
	   
	   	position  : relative,auto,auto : 
	    <url : "https://leafletjs.com/"   
         button :    $Bts_primary_btn_lg_block, icon :$fa_check , ">link>Help  Map (Leaflet Map)">;

		END;
End_Block_Rwd ;			
 	
	
	exit ;
proc InsertArray(void)
begin_proc

** For example !
 	 Str_Format(GeoMapRef[0].stringval,"var marker = L.marker([39.913818,116.363625]).addTo(mymap).bindPopup(\"<b>Beijing</b>\");");
	Str_Format(GeoMapRef[1].stringval,"L.marker([23.020536,113.751762]).addTo(mymap).bindPopup(\"<b>Dongguan</b>\");");
	Str_Format(GeoMapRef[2].stringval,"L.marker([31.752365,104.014374]).addTo(mymap).bindPopup(\"<b>Fushun</b>\");");
	Str_Format(GeoMapRef[3].stringval,"L.marker([27.934572,116.312164]).addTo(mymap).bindPopup(\"<b>Fuzhou</b>\");");
	Str_Format(GeoMapRef[4].stringval,"L.marker([22.578737,113.081902]).addTo(mymap).bindPopup(\"<b>Jiangmen</b>\");");
	Str_Format(GeoMapRef[5].stringval,"L.marker([24.919493,102.478493]).addTo(mymap).bindPopup(\"<b>Kunming</b>\");");
	Str_Format(GeoMapRef[6].stringval,"L.marker([35.102074,118.345329]).addTo(mymap).bindPopup(\"<b>Linyi</b>\");");
	Str_Format(GeoMapRef[7].stringval,"L.marker([29.868336,121.543991]).addTo(mymap).bindPopup(\"<b>Ningbo</b>\");");
	Str_Format(GeoMapRef[8].stringval,"L.marker([31.267401,121.522179]).addTo(mymap).bindPopup(\"<b>Shanghai</b>\");");
	Str_Format(GeoMapRef[9].stringval,"L.marker([22.731857,114.255753]).addTo(mymap).bindPopup(\"<b>Shenzhen</b>\"); ");
	Str_Format(GeoMapRef[10].stringval,"L.marker([33.391376,117.557678]).addTo(mymap).bindPopup(\"<b>Suzhou</b>\");");
	Str_Format(GeoMapRef[11].stringval,"L.marker([%f,119.161758]).addTo(mymap).bindPopup(\"<b>%s</b>\"); ",x,province1);
	Str_Format(GeoMapRef[12].stringval,"L.marker([27.518280,120.425766]).addTo(mymap).bindPopup(\"<b>Wenzhou</b>\");");
	Str_Format(GeoMapRef[13].stringval,"L.marker([31.565372,120.327583]).addTo(mymap).bindPopup(\"<b>Wuxi</b>\");");
	Str_Format(GeoMapRef[14].stringval,"L.marker([24.479834,118.089424]).addTo(mymap).bindPopup(\"<b>Xiamen</b>\");");
	Str_Format(GeoMapRef[15].stringval,"L.marker([33.347317,120.163658]).addTo(mymap).bindPopup(\"<b>Yancheng</b>\");");
	Str_Format(GeoMapRef[16].stringval,"L.marker([32.540447,119.243889]).addTo(mymap).bindPopup(\"<b>Yangzhou</b>\");");
	Str_Format(GeoMapRef[17].stringval,"L.marker([41.158558,114.720085]).addTo(mymap).bindPopup(\"<b>Zhangjiakou</b>\");");
	Str_Format(GeoMapRef[18].stringval,"L.marker([22.516998,113.392723]).addTo(mymap).bindPopup(\"<b>Zhongshan</b>\");");	
end_proc