Quintiq file version 2.0
#parent: GISComponent
Response OnDetermineObjectCharacteristics (
  StockingPoint_MP object
) id:Response_GISComponent_OnDetermineObjectCharacteristics
{
  #keys: '[110880.6.659185520]'
  Body:
  [*
    // Show stocking point (GIS 2.0 )
    // MODELING HANDLE to switch to PTV: Change the srsMap variable to create a SRS of PTV map
    selected := guard( object.GIS_StockingPointAddress().GIS_StockingPointGeocodeResult().Selected(), null( LibGIS_GeocodedAddress ) );
    
    if( not isnull( selected ) )
    {
      // Unable to retrieve SRS from GIS Component as this response is triggered before the SRS value of GIS Component has a value.
      // Presumably the SRS value is set after this response is called. Therefore the SRS value has to be hard-coded.
      //srsMap   := SpatialReferenceSystem::CreateFromWKT( GISComponentOSMMap.SpatialReferenceSystemWKT() );
      srsMap   := SpatialReferenceSystem::CreateFromEPSG( 3857 );
      srsLoc   := SpatialReferenceSystem::CreateFromWKT( selected.SRS() );
      coor     := GIS2DCoordinate::Create( selected.X(), selected.Y() );
      mapCoor  := GIS2DCoordinateConverter::Convert( srsLoc, coor, srsMap );
    
      point := creator.AddPoint( mapCoor.X(), mapCoor.Y() );
    
      point.Shape( "Circle" );
      point.BorderWidth( 1 )
      point.BackgroundColor( Color::Blue() )
      point.Diameter( 8 );
    }
  *]
  CanBindMultiple: false
  DefinitionID: 'Responsedef_GISComponent_OnDetermineObjectCharacteristics'
}
