Excude many records from a report

[den1s]

Hi,

I am trying to place some functionality within a dialog which displays a report but excludes one or many records. Each unique record is identified by the 'issues_id'.

The field in the dialog where you enter the excluded issues_id's is called vISSNOS and is a character field. An multiple entry in this field could be like this....e.g. SE00001, SE00236, SE00239

The filter i have which doesn't work is:-

If alltrim(vISSNOS) = ""
filter = filter
else
ISSNOS = crlf_to_comma(vISSNOS.dump())
filter = filter+" .and. issues_id <> \""+ISSNOS+"\""
end if

The error message is

Errors in: event.AfterValidate code:
Not found
vISSNOS.dump method not found.

If however, i do not enter any text in the ISSNO field, the report shows up fine, but not filtered.

Can anyone help?

Thanks,

Denis

[Pat Bremkamp]

Re: Excude many records from a report

Denis,

Here's a couple things you can try.

First, your character variable contains a comma separated list. To use most of the list processing fuctions (look in help under list processing), you need to convert that to a CR-LF delimited list using comma_to_crlf()

Your filter is only creating one filter element, but you need one for each entry. So, you can use the *for_each() to iterate through them to create the filter, something like:

 
vFilter = vCo_InList.dump()
if vFilter=""
 end 
end if
vFilter = *for_each(x,"Co_Id = " + quote(x),vFilter)
vFilter = strtran(alltrim(vFilter), crlf()," .or. ")

[den1s]

Re: Excude many records from a report

Hi Pat,

I converted your code for my app;

dim vFilter as C
vFilter = vISSNOS.dump()
if vFilter=""
 end 
end if
vFilter = *for_each(x,"issues_id = " + quote(x),vFilter)
vFilter = strtran(alltrim(vFilter), crlf()," .or. ")

I got this error.

Errors in: event.AfterValidate code:
Not found
vISSNOS.dump method not found.

The input field (vISSNOS) is a text box in a dialog, for users to enter the unique issue id's they want to excluse from a report.

Did i do this right?

Denis

[den1s]

Re: Excude many records from a report

Bump!

[den1s]

Re: Excude many records from a report

I have now attempted to use a MULTISELECT DROPDOWN to select the records to exclude. This works for one selection, but when i select 2 or more it does not work.

'EXCLUDE RECORDS SELECTED FROM A DROPDOWN
dim filter as C
dim appnum as C
appnum = exclude_records.dump()
appnum = remove_blank_lines(appnum)
appnum = *for_each(x,"Rail_id <> " + quote(x),appnum)
filter = stritran(alltrim(appnum), crlf()," .or. ")

What have i missed?

Denis

[den1s]

Re: Excude many records from a report

OK. I tried everything with my limited knowledge. I dropped the dropdown idea and have reverted back to a textbox.

dim aid as C
dim vFilter as C
vFilter = "Rail_ID <> \""+comma_to_crlf(Exclude_Rec)+"\""
aid = Exclude_Rec.dump()
aid = *for_each(x,"Rail_Id = " + quote(x),aid)
filter = strtran(alltrim(aid), crlf()," .or. ")

This is what I think i need to do, to get it working with a textbox generating the string. e.g. se00001,se00002,se00003

I cannot seem to get this to work.

Can anyone offer me some help with this?

Denis.

[Pat Bremkamp]

Re: Excude many records from a report

Denis,

I'm partial to dropdown lists myself, since I'm not that good a speller.

Here's a simple component to show and hide events in an event manager...it's just two multiselect dropdown boxes and two advanced buttons.

Here, the "shown events" dropdown box is named "vShowList". The multiselect dropdown control creates an array, and always seems to create at least the first element. The array is named the same as the list, in this case, vShowList[]. Here's the script I use for the hide button.:

 
'**** Hide Button script ****
'==== If nothing was selected, do nothing
if alltrim(vShowList[1])=""
 end
end if
'==== build a filter based on the events selected
Dim vFilter as C
Dim tbl as P
Dim Indx as P
vFilter = vShowList.dump()
vFilter = *for_each(x,"Ev_Id = " + quote(x),vFilter)
vFilter  = strtran(alltrim(vFilter), crlf()," .or. ")
'==== inactivate the events
tbl=table.open("[PathAlias.ADB_Path]\events")
Indx=tbl.order("Ev_Id",vFilter)
tbl.fetch_first()
while .not. tbl.fetch_eof()
 tbl.change_begin()
 tbl.Ev_Active = .f.
 tbl.change_end(.t.)
 tbl.fetch_next()
end while
tbl.close()
currentForm.RedirectTarget = "Ev_ShowHide.a5w"

[den1s]

Re: Excude many records from a report

Pat,

Again, thank you for your reply.

With the best will in the world, cannot convert this method to work with my app. I was hoping i could have selected the records i did not want to appear in the report, then hit SUBMIT and report displayed excluding selections made.

I think i may have to give up on this feature.

Thanks,

Denis

[Tom Cone Jr]

Re: Excude many records from a report

http://msgboard.alphasoftware.com/al...ad.php?t=70406

[den1s]

Re: Excude many records from a report

I am writing a Web app and an associated desktop app. Please dont confuse the two.

[Tom Cone Jr]

Re: Excude many records from a report

Ok. The techniques illustrated in the other forum would be pertinent here. Sorry I bothered. Goodbye.

[den1s]

Re: Excude many records from a report

Tom,

I hope you were not offended by my previous post. 'None intended'. As i understand, certain desktop functions do not work on the web and visa versa. I just didnt want anyone confused. Just in case!!.

I appreciate your assistance and feedback.

Friends?

Denis