#==========================================================================# 
# MacDescription = Filter caches per provincie en uitvoer naar HTML mappen
# MacAuthor = GeoFlowers
# MacFileName = ProvHtml.gsk
# MacUrl = http://www.wandelverhalen.com/gps/uitleg/provhtml.gsk
# Bronnen o.a. uit GSAK macro's en Forum
#==========================================================================#
# check to see if macro can run on this version
  $RequiredVersion = "7.6.2.45"
  Gosub name=VersionCheck
# Is er een filter actief, even bewaren  
$SavedFilter = SaveFilter()
#==========================================================================#
# Provincie keuze-formulier
#==========================================================================#
While True
  $FormExit = form($form,"")
  BeginCase
    Case $FormExit = "Gr"
       MacroSet Dialog=Filter VarName=$Groningen
       Filter Name=<macro>
       break
    Case $FormExit = "Frl"
       MacroSet Dialog=Filter VarName=$Friesland
       Filter Name=<macro>
       break
    Case $FormExit = "Dr"
       MacroSet Dialog=Filter VarName=$Drenthe
       Filter Name=<macro>
       break
    Case $FormExit = "Ovr"
       MacroSet Dialog=Filter VarName=$Overijssel
       Filter Name=<macro>
       break
    Case $FormExit = "Flevo"
       MacroSet Dialog=Filter VarName=$Flevoland
       Filter Name=<macro>
       break
    Case $FormExit = "Gld"
       MacroSet Dialog=Filter VarName=$Gelderland
       Filter Name=<macro>
       break
    Case $FormExit = "Utr"
       MacroSet Dialog=Filter VarName=$Utrecht
       Filter Name=<macro>
       break
    Case $FormExit = "NH"
       MacroSet Dialog=Filter VarName=$Nholland
       Filter Name=<macro>
       break
    Case $FormExit = "ZH"
       MacroSet Dialog=Filter VarName=$Zholland
       Filter Name=<macro>
       break
    Case $FormExit = "Z"
       MacroSet Dialog=Filter VarName=$Zeeland
       Filter Name=<macro>
       break
    Case $FormExit = "NB"
       MacroSet Dialog=Filter VarName=$Nbrabant
       Filter Name=<macro>
       break
    Case $FormExit = "L"
       MacroSet Dialog=Filter VarName=$Limburg
       Filter Name=<macro>
       break
    Case $FormExit = "Stop"
      MsgOk msg="Form exit from the cancel button"
      break
  EndCase
EndWhile

#********************************************************
# Waar moet de output geplaatst worden ($result)
#********************************************************
$OutFile = $_Install  
INPUT Msg=$Message Default=$OutFile  Browse=Folder
<data> VarName=$Message
 Deze macro maakt een HTML output van de geselecteerde provincie
 Op het aangegeven adres wordt een folder \prov\ aangemaakt 
 De HTML output wordt in een submap "provincienaam"
<enddata>

#********************************************************
# aanmaken en controle van de output folder/file
#********************************************************
Set $FolderName = $Result + "\prov\" + $FormExit
IF Not(FolderExists($FolderName))
  $BatFile = $_Install + "\babel.bat"
  $result = PutFile($BatFile, "MD " + quote($FolderName))
  FileOpen File="$BatFile" Wait=yes
ENDIF

#********************************************************
# Exporteren HTML output 
#********************************************************
MacroSet Dialog=HTML VarName=$HTML
EXPORT Type=HTML Settings=<macro> File="$FolderName"
IF RestoreFilter($SavedFilter,True) = 0
  Pause Msg="No records match your restored filter. Filter has been canceled."
ENDIF
# program ready *****************************************

#********************************************************
# instellingen provincie formulier
#********************************************************
<Data> VarName=$form
Name = Form1
  Type = Form
  Caption = Cache filter op provincie
  Color = 12632256
  Height = 305
  Width = 400

Name = Gr
  Type = Button
  Height = 25
  Left = 24
  Top = 63
  Width = 75
  Taborder = 8
  Caption = Groningen

Name = Frl
  Type = Button
  Height = 25
  Left = 24
  Top = 103
  Width = 75
  Taborder = 9
  Caption = Friesland

Name = Dr
  Type = Button
  Height = 25
  Left = 24
  Top = 143
  Width = 75
  Taborder = 10
  Caption = Drenthe

Name = Ovr
  Type = Button
  Height = 25
  Left = 24
  Top = 182
  Width = 75
  Taborder = 11
  Caption = Overijssel

Name = Flevo
  Type = Button
  Height = 25
  Left = 160
  Top = 63
  Width = 75
  Taborder = 12
  Caption = Flevoland

Name = Gld
  Type = Button
  Height = 25
  Left = 160
  Top = 103
  Width = 75
  Taborder = 13
  Caption = Gelderland

Name = Utr
  Type = Button
  Height = 25
  Left = 160
  Top = 143
  Width = 75
  Taborder = 14
  Caption = Utrecht

Name = NH
  Type = Button
  Height = 25
  Left = 160
  Top = 182
  Width = 75
  Taborder = 15
  Caption = N Holland

Name = ZH
  Type = Button
  Height = 25
  Left = 288
  Top = 63
  Width = 75
  Taborder = 16
  Caption = Z Holland

Name = Z
  Type = Button
  Height = 25
  Left = 288
  Top = 103
  Width = 75
  Taborder = 17
  Caption = Zeeland

Name = NB
  Type = Button
  Height = 25
  Left = 288
  Top = 143
  Width = 75
  Taborder = 18
  Caption = N Brabant
  
Name = L
  Type = Button
  Height = 25
  Left = 288
  Top = 182
  Width = 75
  Taborder = 19
  Caption = Limburg

Name = Omschrijving
  Type = Label
  Color = 255
  Font = Arial
  Height = 23
  Left = 19
  Size = 14
  Style = bold;italic
  Top = 12
  Width = 345
  Caption = Maak een filter; klik op een provincie

Name = Stop
  Type = Button
  Height = 25
  Left = 24
  Top = 224
  Width = 75
  Taborder = 20
  Caption = Cancel
<enddata>

#********************************************************
# instellingen provincie
#********************************************************
<data> VarName=$Groningen
edtState=Groningen
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Friesland
edtState=Friesland
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Drenthe
edtState=Drenthe
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Overijssel
edtState=Overijssel
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Flevoland
edtState=Flevoland
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Gelderland
edtState=Gelderland
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Utrecht
edtState=Utrecht
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Nholland
edtState=Noord-Holland
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Zholland
edtState=Zuid-Holland
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Zeeland
edtState=Zeeland
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Nbrabant
edtState=noord-brabant
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

<data> VarName=$Limburg
edtState=Limburg
chkFound=False
chkNotFound=True
chkExclude=True
chkAvailable=True
chkArchivedOnly=False
chkTempUnavailable=True
<enddata>

#********************************************************
# instellingen HTML output
#********************************************************
<data> VarName=$HTML
[TfmHtml]
cbxHtmlFound.Checked=True
cbxHtmlPlaced.Checked=True
cbxIndex.Checked=True
cbxLimit.Text=5
cbxLogLimit.Text=No Limit
cbxMakeZip.Checked=False
cbxUseOwnerId.Checked=True
chkBearing.Checked=True
chkBugs.Checked=True
chkCode.Checked=True
chkCustomUrl.Checked=True
chkCvtFile.Checked=True
chkDefaultGeneral.Checked=True
chkDefaultAdvanced.Checked=False
chkDensity.Checked=True
chkDistance.Checked=True
chkFound.Checked=True
chkFoundByMe.Checked=True
chkName.Checked=True
chkPlacedBy.Checked=True
chkRemovePictures.Checked=False
chkSpecial.Checked=False
chkStrip.Checked=False
chkTopOfPage.Checked=False
chkUnfound.Checked=True
edtCode.Text=%code
edtDensity.Text=5
edtDisGroup.Text=15
edtMax.Text=40
edtSpecial.Text=
cbxFormat.Text=GSAK Default
chkDecodeHints.Checked=True
chkGrab.Checked=False
chkGrabFirst.Checked=False
chkGoogleMap.Checked=False
chkAddCache.Checked=False
rbtHtml.Checked=False
rbtHtm.Checked=True
<enddata>

#********************************************************
# Sub GSAK versioncheck
#********************************************************
Beginsub name=VersionCheck
  # Get required version as a number we can compare
  $work = extract($RequiredVersion,".",1)
  $RequiredNumber = Val($work) * 10000
  $work = extract($RequiredVersion,".",2)
  $RequiredNumber = $RequiredNumber + (Val($work) * 1000)
  $work = extract($RequiredVersion,".",3)
  $RequiredNumber = $RequiredNumber + (Val($work) * 100)
  $work = extract($RequiredVersion,".",4)
  $RequiredNumber = $RequiredNumber + Val($work)
  # Get current version as a number we can compare
  $work = extract($_Version,".",1)
  $CurrentNumber = Val($work) * 10000
  $work = extract($_Version,".",2)
  $CurrentNumber = $CurrentNumber + (Val($work) * 1000)
  $work = extract($_Version,".",3)
  $CurrentNumber = $CurrentNumber + (Val($work) * 100)
  $work = extract($_Version,".",4)
  $CurrentNumber = $CurrentNumber + Val($work)
  If $RequiredNumber > $CurrentNumber
    $msg = "*Error* - This macro requires version $RequiredVersion or Higher." + $_NewLine + $_NewLine
    $msg = $msg + "You are currently running GSAK version: $_Version"
    pause msg=$msg
    Cancel
  EndIf
EndSub