I may have created a monster here but it's needed to get the job done. I have a form with 8 shared variable and 8 variable check box thats valure are .t. or .f..
I use the variables to query a table.
I'm useing the case statement to decide with values to use. If I'm not mistake it will take 512 case statments 8x8x8 for all possible combinations.
Example
''XBasic
dim shared area as c
dim shared ar as l
dim shared da as l
dim shared dr as l
dim shared tr as l
dim shared wn as l
dim shared fe as l
dim shared ro as l
dim shared ty as l
dim shared day1 as c
dim shared driver1 as c
dim shared wnweek as c
dim shared feq1 as c
dim shared route1 as c
dim shared truck1 as c
dim shared type1 as c
dim query.description as c
dim query.order as c
dim query.filter as c
dim query.options as c
dim child as n
debug(1)
dim tnt as p
tnt=table.current(2)
query.description="lroute"
query.order=""
select
case var->ar=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.wn=.f..and.dr=.f.
use=var->area
query.filter="Area ='"+use+"'"
case var->da=.t..and.ar=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.dr=.f..and.wn=.f.
use=var->day1
query.filter="Nrday ='"+use+"'"
case var->tr=.t..and.ar=.f..and.da=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.wn=.f..and.dr=.f.
use=var->truck1
query.filter="Truck ='"+use+"'"
case var->ro=.t..and.da=.f..and.tr=.f..and.ar=.f..and.ty=.f..and.fe=.f..and.wn=.f..and.dr=.f.
use=var->route1
query.filter="Route ='"+use+"'"
case var->ty=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ar=.f..and.fe=.f..and.wn=.f..and.dr=.f.
use=var->type1
query.filter="type ='"+use+"'"
case var->fe=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.ar=.f..and.wn=.f..and.dr=.f.
use=var->feq1
query.filter="freq ='"+use+"'"
case var->dr=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.wn=.f..and.ar=.f.
use=var->driver1
query.filter="driver ='"+use+"'"
case var->wn=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.ar=.f..and.dr=.f.
use=var->wnweek
query.filter="wweek ='"+use+"'"
case var->wn=.t..and.da=.f..and.tr=.f..and.ro=.t..and.ty=.f..and.fe=.f..and.ar=.f..and.dr=.f.
use=var->wnweek
use1=var->route1
query.filter="wweek ='"+use+"'.and.route='"+use1+"'"
case else
end select
tnt.query_create()
Any Suggestion would be greatly appreciated.
nick
I use the variables to query a table.
I'm useing the case statement to decide with values to use. If I'm not mistake it will take 512 case statments 8x8x8 for all possible combinations.
Example
''XBasic
dim shared area as c
dim shared ar as l
dim shared da as l
dim shared dr as l
dim shared tr as l
dim shared wn as l
dim shared fe as l
dim shared ro as l
dim shared ty as l
dim shared day1 as c
dim shared driver1 as c
dim shared wnweek as c
dim shared feq1 as c
dim shared route1 as c
dim shared truck1 as c
dim shared type1 as c
dim query.description as c
dim query.order as c
dim query.filter as c
dim query.options as c
dim child as n
debug(1)
dim tnt as p
tnt=table.current(2)
query.description="lroute"
query.order=""
select
case var->ar=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.wn=.f..and.dr=.f.
use=var->area
query.filter="Area ='"+use+"'"
case var->da=.t..and.ar=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.dr=.f..and.wn=.f.
use=var->day1
query.filter="Nrday ='"+use+"'"
case var->tr=.t..and.ar=.f..and.da=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.wn=.f..and.dr=.f.
use=var->truck1
query.filter="Truck ='"+use+"'"
case var->ro=.t..and.da=.f..and.tr=.f..and.ar=.f..and.ty=.f..and.fe=.f..and.wn=.f..and.dr=.f.
use=var->route1
query.filter="Route ='"+use+"'"
case var->ty=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ar=.f..and.fe=.f..and.wn=.f..and.dr=.f.
use=var->type1
query.filter="type ='"+use+"'"
case var->fe=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.ar=.f..and.wn=.f..and.dr=.f.
use=var->feq1
query.filter="freq ='"+use+"'"
case var->dr=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.wn=.f..and.ar=.f.
use=var->driver1
query.filter="driver ='"+use+"'"
case var->wn=.t..and.da=.f..and.tr=.f..and.ro=.f..and.ty=.f..and.fe=.f..and.ar=.f..and.dr=.f.
use=var->wnweek
query.filter="wweek ='"+use+"'"
case var->wn=.t..and.da=.f..and.tr=.f..and.ro=.t..and.ty=.f..and.fe=.f..and.ar=.f..and.dr=.f.
use=var->wnweek
use1=var->route1
query.filter="wweek ='"+use+"'.and.route='"+use1+"'"
case else
end select
tnt.query_create()
Any Suggestion would be greatly appreciated.
nick
Comment