#*******************************************
# MacDescription = Find caches by placed date that are not current found
# MacFileName = ByPlacedDate.gsk
# MacAuthor = Chris Moewes
# MacVersion=1.1
#*******************************************


While True # Infinite loop to redisplay form as required
  $FormExit = form($form,"")
  BeginCase
    Case $FormExit = "DelayExit"
      break
    Case $FormExit = "SystemExit"
      break
    Case $FormExit = "btnCancel"
      break
    Case $FormExit = "Button1"
      # msgOk msg=Finding the missing found dates for $Combobox1
      # perform OK calcs here, then because we do not have a BREAK the form will redisplay
      #MFILTER Expression=$d_Difficulty||"-"||$d_Terrain not in (select $d_Difficulty||"-"||$d_Terrain from caches where Found=1)
      MFILTER Expression=strftime('%m-%d', $d_PlacedDate) not in ( select strftime('%m-%d', $d_PlacedDate ) from caches where $d_Found = 1)
      MFILTER Expression=NOT($d_Found OR $d_TempDisabled OR $d_Archived OR IsOwner()) Join=and

      IF NOT ($Combobox1 = "All")
	      MFILTER Expression=strftime('%m', $d_PlacedDate) = "$Combobox1" Join=and 
      ENDIF

      IF ($Checkbox1)
	MFILTER Expression=$d_CacheType in('T') Join=and
      ENDIF

	break
  EndCase
EndWhile

 






<Data> VarName=$form
#********************************************************************
# Form generated by GSAK form designer on Sun 30-Oct-2011 20:59:50
#********************************************************************

Name = Form1
  Type = Form
  Caption = Select Date
  Height = 300
  Width = 200

Name = Combobox1
  Type = Combobox
  Height = 21
  Left = 24
  Top = 64
  Values = All;01;02;03;04;05;06;07;08;09;10;11;12
  Visible = Yes
  Width = 145
  Taborder = 10

Name = Button1
  Type = Button
  Height = 25
  Left = 48
  Top = 184
  Width = 75
  Taborder = 11
  Caption = Go

Name = Checkbox1
  Type = Checkbox
  Height = 20
  Left = 48
  Top = 128
  Width = 98
  Taborder = 12
  Caption = Traditional

<enddata>