#**************************************************************************
# Export naar TomTom Poi files, gesorteerd op cache type  
# Idee van een macro op het Forum door; "De Roode Lantaarn"
#**************************************************************************
# Verder uitgewerkt door GeoFlowers:
# TomTom SD-card kan nu worden opgezocht, 
# filters worden nu in de macro aangemaakt
#
# *.bmp bestanden aanmaken met icoontjes.txt macro
#
# Je kan natuurlijk ook de macro's tomtompoi.txt en icoontjes.txt 
# onder één macroknop samenvoegen!
#**************************************************************************
# gegevens van de default map waar SD-card is te vinden in macro aanpassen
#**************************************************************************

# zet hier de "eigen" defaultmap voor de POI's
INPUT Msg="Selecteer de Poi-map (TomTom kaart-map)" Default="P:\BE_NL_and_LU_plus_major_roads_of_WE" Browse=Folder

# Instellingen voor het Export TomTom Poi Files venster
# Alleen wijzigen als je weet "hoe, wat en waarom"
<data> VarName=$TomTom
[TfmTomTom]
chkDefault.Checked=False
chkChild.Checked=False
edtMax.Text=
edtWaypoint.Text=%Name by %By (%Dif/%Ter)
edtMaxGps.Text=30
IconFile.Filename=
chkOnlyChild.Checked=False
rbtAllChildren.Checked=False
rbtOnlyFlagged.Checked=False
rbtOnlyUnFlagged.Checked=False
<enddata>

MacroSet Dialog=TomTom VarName=$TomTom

##### De verschillende filters aanmaken en via een Sub routine de bijbehorende POI #####


#FILTER -- Traditional --
$PoiName = "\GC Traditional.poi"
MFILTER Expression=not($d_Found) and $d_CacheType='T' and not($d_TempDisabled) and not($d_Archived)
GoSub Name=MaakPoi

#FILTER -- MultiCache --
$PoiName = "\GC Multi.poi"
MFILTER Expression=not($d_Found) and $d_CacheType='M' and not($d_TempDisabled) and not($d_Archived)
GoSub Name=MaakPoi

#FILTER -- Mystery --
$PoiName = "\GC Mystery.poi"
MFILTER Expression=not($d_Found) and $d_CacheType='U' and not($d_TempDisabled) and not($d_Archived)
GoSub Name=MaakPoi

#FILTER -- WebcamCache --
$PoiName = "\GC Webcam.poi"
MFILTER Expression=not($d_Found) and $d_CacheType='W' and not($d_TempDisabled) and not($d_Archived)
GoSub Name=MaakPoi

#FILTER -- VirtualCache --
$PoiName = "\GC Virtual.poi"
MFILTER Expression=not($d_Found) and $d_CacheType='V' and not($d_TempDisabled) and not($d_Archived)
GoSub Name=MaakPoi

#FILTER -- LetterboxCache --
$PoiName = "\GC Letterbox.poi"
MFILTER Expression=not($d_Found) and $d_CacheType='B' and not($d_TempDisabled) and not($d_Archived)
GoSub Name=MaakPoi

#FILTER -- WherigoCache --
$PoiName = "\GC Wherigo.poi"
MFILTER Expression=not($d_Found) and $d_CacheType='I' and not($d_TempDisabled) and not($d_Archived)
GoSub Name=MaakPoi

######### Filters voor door mij niet gebruikte POI's  #########
##FILTER Name="TraditionalNA"
#MFILTER Expression=not($d_Found) and $d_CacheType='T' and ($d_TempDisabled or $d_Archived)
##FILTER Name="MultiCacheNA"
#MFILTER Expression=not($d_Found) and $d_CacheType='M' and ($d_TempDisabled or $d_Archived)
##FILTER Name="MysteryNA"
#MFILTER Expression=not($d_Found) and $d_CacheType='U' and ($d_TempDisabled or $d_Archived)
##FILTER Name="WebcamCacheNA"
#MFILTER Expression=not($d_Found) and $d_CacheType='W' and ($d_TempDisabled or $d_Archived)
##FILTER Name="VirtualCacheNA"
#MFILTER Expression=not($d_Found) and $d_CacheType='V' and ($d_TempDisabled or $d_Archived)
##FILTER Name="LetterboxCacheNA"
#MFILTER Expression=not($d_Found) and $d_CacheType='B' and ($d_TempDisabled or $d_Archived)
##FILTER Name="FoundCache"
#MFILTER Expression=$d_Found
##FILTER Name="FoundCacheNA"
#MFILTER Expression=$d_Found and ($d_TempDisabled or $d_Archived)

PAUSE Msg="Macro is afgelopen"

BeginSub Name=MaakPoi
  IF $_FilterCount > 0
    Set $FileName = $Result + $PoiName
    EXPORT Type=POI Settings=<macro> File="$FileName"
  ELSE
    PAUSE Msg="Geen records voor dit filter gevonden. Continue voor normaal vervolg skip is het beste!"
  ENDIF
EndSub