Data From Table

[canc]

Can any one help me with this code, its almost there but not quite working....

I want my Client variable to be filled with one client, when the card number matchs...... so I have my filter as the ULINK (CU)

When i run it the Client variable fills with a list of all of the clients, so I get this error :---

Errors in: event.AfterValidate code:

Amyuni Low Level Print:
Layout name: points_link@c:\company\canc\alphadat...norad_link.set
Layout type: report
Invalid report filter expression: '(between(norad->Depart_date,ctod("01/01/2009"),ctod("20/07/2009")) ) .and. (norad->Client_id = "Amsafe Bridport Ltd Amsafe Bridport Ltd Amsafe Bridport Ltd Gearbulk (UK) Ltd " )'.

This is driving me mad, please please please HELP...

Thanks

Miles







THE CODE......
fromdate = CurrentForm.Controls.From
todate = CurrentForm.Controls.to
cu = session.card_No

dim client as c
dim vFilter as C
vFilter = "(\""+cu+"\")"
client = table.external_record_content_get("[pathalias.adb_path]\users.dbf", "client_id","client_id",vfilter)




Dim global starting_date as c = currentform.controls.from.value
Dim global ending_date as c = currentform.controls.to.value

IF eval_valid("fromdate") = .f. .or. eval_valid("todate") = .f. .or. eval_valid("cu") = .f. Then
goto skipreport
end if

dim filter as c
dim order as c
Filter = "(between(norad->Depart_date,ctod(\""+fromdate+"\"),ctod(\""+todate+"\")) ) .and. (norad->Client_id = \""+client+"\" )"
Order = "norad->Depart_date"
Dim filename as c
filename = session.session_folder + "tempreport.html"
filename = report.saveas("points_link@[PathAlias.ADB_Path]\norad_link.set","html",filter,order,filename,.f.)

if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.html?" + time("hms3")
end if
skipreport:

[Stan Mathews]

Re: Data From Table

When you have an error in the table.external_record_content_get() expression filter it returns all records. You filter seems like it needs work. A filter expression must evaluate to true or false.

Try

dim vFilter as C
vFilter = "client_id =\""+cu+"\""
client = table.external_record_content_get("[pathalias.adb_path]\users.dbf", "client_id","client_id",vfilter)

[canc]

Re: Data From Table

Brilliant Thank you so much....

It makes perfect sense, i feel so silly for missing it and wasting so much time.

Can I ask, is it possible to use the same "table.external_record_content_get" command to return a sum of a numeric field in a table?

Thanks ever so for your help...

Miles

[Stan Mathews]

Re: Data From Table

is it possible to use the same "table.external_record_content_get" command to return a sum of a numeric field in a table?

It might be but dbsum() and tablesum() are designed for that purpose.
Come to think of it, you could just use

*TOTAL()

as in


*total(table.external_record_content_get("[pathalias.adb_path]\users.dbf", "numeric_field_name","",vfilter))

[canc]

Re: Data From Table

Thanks a lot, so should it look something like this?

dim vfilter as c
vfilter = ""
dim total as c
total = *total(table.external_record_content_get("[pathalias.adb_path]\norad.dbf", "award_points","",vfilter))
dim global points_total as c = total

Thanks

Miles

[Stan Mathews]

Re: Data From Table

dim vfilter as c
vfilter = ""
dim total as [COLOR="Red"][B]n[/B][/COLOR]
total = *total(table.external_record_content_get("[pathalias.adb_path]\norad.dbf", "award_points","",vfilter))
dim global points_total as [COLOR="red"][B]n[/B][/COLOR] = total

But the tablesum() should be easier

tablesum("[pathalias.adb_path]\norad.dbf",".t.","award_points")

for all records