#******************************************************************************
# MacVersion = 2.0
# MacDescription = Generate PQ placed by dates
# MacAuthor = clyde
# MacFileName = PlacedPQ.gsk
# MacUrl = http://gsak.net/board/index.php?showtopic=2777&view=findpost&p=32581
#******************************************************************************
# Aangepast door GeoFlowers; voor een gemengde database op b.v. "Nederland"
#******************************************************************************
# change this number as requried
$MaxCaches = 495
# save current sort sequence
$Sort = $_SortBy
# temp folder to generate HTML file
$temp = $_Install + "\temp"
# check box data to help see where we are up to
$tick = ""
# generate the HTML header info
GoSub Name=Header
# Fitler out archived
#Mfilter if=$d_archived = false
# Vorige regel afgeblokt en hier inclusief country opgenomen
Mfilter if=$d_archived = false and $d_Country="Netherlands"
Sort by=PlacedDate
$count = 0
$dateCount = 1
$From = $d_PlacedDate
$savedate = $d_PlacedDate
$ThisPQ = 0
$ThisRecord = 0
$lastcount = 0
GoTo Position=Top
While not($_Eol)
$ThisRecord = $ThisRecord + 1
$count = $count + 1
# only show status every 10 records
IF frac($ThisRecord/10) = 0
$status = "Record: " + "$ThisRecord" + " of " + "$_Count"
ShowStatus msg="$status"
Endif
If $d_placedDate <> $savedate
$gdate = $savedate
$gtotal = $count - 1
$savedate = $d_placedDate
Endif
# if too many caches, use the previous date
If $count > $MaxCaches
$ThisPQ = $ThisPQ + 1
$ThisPQStr = Right("00000" + NumToStr($ThisPQ), 2)
$out = $out + "
" + $ThisPQStr + "
" + DateFormat($from) + "
" + DateFormat($gdate) + "
$gtotal
" + "
$tick
" + $_NewLine
$from = $gdate + 1
$count = $count - $gtotal
EndIf
Goto position=Next
EndWhile
# generate last from and to if total recs not a multiple of $maxCaches
If $count > 0
$ThisPQ = $ThisPQ + 1
$ThisPQStr = Right("00000" + NumToStr($ThisPQ), 2)
$out = $out + "