** END HEADER -- do not remove this line
//
// Generated on 2016/05/24
//
parameter bModal
local f
f = new test_emailForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class test_emailForm of FORM
with (this)
onOpen = class::FORM_ONOPEN
height = 24.3182
left = 5.0
top = 0.5
width = 170.7143
text = ""
endwith
this.NAZDAZ_DATA1 = new DATABASE(this)
with (this.NAZDAZ_DATA1)
left = 60.0
databaseName = "NAZDAZ_DATA"
active = true
endwith
this.NAZDAZ1 = new QUERY(this)
with (this.NAZDAZ1)
left = 75.0
database = form.nazdaz_data1
sql = "Select l_name,f_name,email,count(sdate) as c1 "
sql +="From nazdaz "
sql +="where sdate between :d1 and :d2 and not (email is null or email = ' ') "
sql +="group by l_name,f_name,email order by l_name,f_name"
params["d1"] = new date(1900,0,1)
params["d2"] = new date(2200,0,1)
active = true
endwith
this.RADIOBUTTON1 = new RADIOBUTTON(this)
with (this.RADIOBUTTON1)
onChange = class::RADIOBUTTON_ONCHANGE
height = 1.0909
left = 4.0
top = 3.3182
width = 43.0
text = "Customers with orders in last 7 days"
group = true
endwith
this.RADIOBUTTON2 = new RADIOBUTTON(this)
with (this.RADIOBUTTON2)
onChange = class::RADIOBUTTON_ONCHANGE
height = 1.0909
left = 4.0
top = 5.6364
width = 43.0
text = "Customers with orders in last 30 days"
endwith
this.RADIOBUTTON3 = new RADIOBUTTON(this)
with (this.RADIOBUTTON3)
onChange = class::RADIOBUTTON_ONCHANGE
height = 1.0909
left = 4.0
top = 7.9545
width = 43.0
text = "Customers with orders in last 90 days"
endwith
this.RADIOBUTTON4 = new RADIOBUTTON(this)
with (this.RADIOBUTTON4)
onChange = class::RADIOBUTTON_ONCHANGE
height = 1.0909
left = 4.0
top = 10.2727
width = 43.0
text = "Customers with orders in past year"
endwith
this.RADIOBUTTON5 = new RADIOBUTTON(this)
with (this.RADIOBUTTON5)
onChange = class::RADIOBUTTON_ONCHANGE
height = 1.0909
left = 4.0
top = 12.5909
width = 43.0
text = "Customers with orders in past 2 years"
endwith
this.RADIOBUTTON6 = new RADIOBUTTON(this)
with (this.RADIOBUTTON6)
onChange = class::RADIOBUTTON_ONCHANGE
height = 1.0909
left = 4.0
top = 14.9091
width = 43.0
text = "Loyal customers (more than 10 orders in 2 years)"
endwith
this.RADIOBUTTON7 = new RADIOBUTTON(this)
with (this.RADIOBUTTON7)
onChange = class::RADIOBUTTON_ONCHANGE
height = 1.0909
left = 4.0
top = 17.2273
width = 44.0
text = "All customers"
value = true
endwith
this.ENTRYFIELD1 = new ENTRYFIELD(this)
with (this.ENTRYFIELD1)
height = 1.0
left = 67.0
top = 22.0
width = 8.0
value = 0
endwith
this.TEXTLABEL1 = new TEXTLABEL(this)
with (this.TEXTLABEL1)
height = 1.0
left = 77.0
top = 22.0
width = 17.0
text = "Records selected"
endwith
this.GRID1 = new GRID(this)
with (this.GRID1)
dataLink = form.nazdaz1.rowset
allowEditing = false
height = 16.0
left = 53.0
top = 4.0
width = 110.0
endwith
this.rowset = this.nazdaz1.rowset
function RADIOBUTTON_onChange()
if form.radiobutton1.value =true
form.nazdaz1.params["d1"] = form.endDate - 7
form.nazdaz1.params["d2"] = form.endDate
form.nazdaz1.rowset.filter = 'c1 > 0'
elseif form.radiobutton2.value = true
form.nazdaz1.params["d1"] = form.endDate - 30
form.nazdaz1.params["d2"] = form.endDate
form.nazdaz1.rowset.filter = 'c1 > 0'
elseif form.radiobutton3.value = true
form.nazdaz1.params["d1"] = form.endDate - 90
form.nazdaz1.params["d2"] = form.endDate
form.nazdaz1.rowset.filter = 'c1 > 0'
elseif form.radiobutton4.value = true
form.nazdaz1.params["d1"] = form.endDate - 365
form.nazdaz1.params["d2"] = form.endDate
form.nazdaz1.rowset.filter = 'c1 > 0'
elseif form.radiobutton5.value = true
form.nazdaz1.params["d1"] = form.endDate - 730
form.nazdaz1.params["d2"] = form.endDate
form.nazdaz1.rowset.filter = 'c1 > 0'
elseif form.radiobutton6.value = true
form.nazdaz1.params["d1"] = form.endDate - 730
form.nazdaz1.params["d2"] = form.endDate
form.nazdaz1.rowset.filter = 'c1 > 10'
elseif form.radiobutton7.value = true
form.nazdaz1.params["d1"] = form.endDate - 100000
form.nazdaz1.params["d2"] = form.endDate
form.nazdaz1.rowset.filter = 'c1 > 0'
endif
form.nazdaz1.requery()
form.entryfield1.value = form.nazdaz1.rowset.count()
return
function form_onOpen()
form.endDate = new date()
form.nazdaz1.params["d1"] = form.enddate - 100000
form.nazdaz1.params["d2"] = form.endDate
form.nazdaz1.requery()
form.entryfield1.value = form.nazdaz1.rowset.count()
return
endclass
/*
If the form is opened in the designer the sQL statement will be output as a long line.
This cop is for easy reference.
sql = "Select l_name,f_name,email,count(sdate) as c1 "
sql +="From nazdaz "
sql +="where sdate between :d1 and :d2 and not (email is null or email = ' ') "
sql +="group by l_name,f_name,email order by l_name,f_name"
params["d1"] = new date(1900,0,1)
params["d2"] = new date(2200,0,1)
*/
Warning: Unknown: write failed: No space left on device (28) in Unknown on line 0
Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in Unknown on line 0