[BR_forum] Link search to List

General development discussion.

Moderators: Susan Smith, admin, Gabriel

Post Reply
Larry

[BR_forum] Link search to List

Post by Larry »

I am probably missing something simple.

I have a sorted list, and the search input box.

(The list has a blank column for qty entry, a column for item number,
description, price) it is sorted by item number

Nothing happens as I enter data into the searchbox.

I thought the list would change with each character.



I have been following Doug's sample code.

But I don't see how to redisplay the list.


25730 ! open new window for emf
25740 Let SR$="08" : Let SCOL$="08" : Let ER$="21" : Let EC$="60" !:
Open #EMF_WIN:=80: "Srow="&SR$&",scol="&SCOL$&",Rows="&ER$&",
Cols="&EC$&",border=S[LTB],N=[W],Caption=Select Employee, picture=,
Buttonrows=1", Display, Outin ! font.buttons=lucida console,parent=0"
25750 Print #EMF_WIN, Fields "2,1,LIST 19/59,HEADERS" : (MAT
LVEMF_HEADINGS$, MAT LVEMF_WIDTHS, MAT LVEMF_FIELDFORMS$)
25760 Print #EMF_WIN, Fields "1,2,cc 8,[N];21,2,Cc 8,,B99":
"Search","Cancel"
25770 Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
25780 Print #EMF_WIN, Fields "2,1,LIST 19/59,SORT": 2 ! sort 2nd column
of list - required to search by name w/o clicking on column header
25790 Input #EMF_WIN, Fields "1,16,SEARCH 30,U,2,1;2,1,LIST
19/59,ROWCNT,SEL" : SEARCH_ARG$,AVAIL_ROWS
25800 Input #EMF_WIN, Fields "2,1,LIST 19/59,ROWCNT,SEL,NOWAIT" :
AVAIL_ROWS
25810 Mat DATA$(2*AVAIL_ROWS)
25820 Input #EMF_WIN, Fields "2,1,LIST 19/59,ROW,SEL,NOWAIT" : MAT DATA$
25830 Let AK=FKEY
25840 If AK=ESC Then Goto CLS_EMF_WIN ! and do not select
25850 Let EMSW=Z=VAL(DATA$(1)) !:
Let ENM$=DATA$(2)
25860 CLS_EMF_WIN: Let FNCLOSEFILE(EMFFILE,"emf") : Close #EMF_WIN: !:
Let AK=0 : Let CURFLD(1) ! only cancel in this subroutine


_______________________________________________
BR_forum mailing list
BR_forum@ads.net
http://ads.net/mailman/listinfo/br_forum_ads.net
Top
John
Posts: 555
Joined: Sun Apr 26, 2009 8:27 am

[BR_forum] Link search to List

Post by John »

i believe the line:
25770     Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
redisplays the list.

-john

On Fri, May 22, 2009 at 3:56 PM, Larry <ltietz@verizon.net (ltietz@verizon.net)> wrote:
I am probably missing something simple.

I have a sorted list, and the search input box.

(The list has a blank column for qty entry, a column for item number,
description, price) it is sorted by item number

Nothing happens as I enter data into the searchbox.

I thought the list would change with each character.



I have been following Doug's sample code.

But I don't see how to redisplay the list.


25730 ! open new window for emf
25740     Let SR$="08" : Let SCOL$="08" : Let ER$="21" : Let EC$="60" !:
         Open #EMF_WIN:=80: "Srow="&SR$&",scol="&SCOL$&",Rows="&ER$&",
Cols="&EC$&",border=S[LTB],N=[W],Caption=Select Employee, picture=,
Buttonrows=1", Display, Outin  ! font.buttons=lucida console,parent=0"
25750     Print #EMF_WIN, Fields "2,1,LIST 19/59,HEADERS" : (MAT
LVEMF_HEADINGS$, MAT LVEMF_WIDTHS, MAT LVEMF_FIELDFORMS$)
25760     Print #EMF_WIN, Fields "1,2,cc 8,[N];21,2,Cc 8,,B99":
"Search","Cancel"
25770     Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
25780     Print #EMF_WIN, Fields "2,1,LIST 19/59,SORT": 2 ! sort 2nd column
of list - required to search by name w/o clicking on column header
25790     Input #EMF_WIN, Fields "1,16,SEARCH 30,U,2,1;2,1,LIST
19/59,ROWCNT,SEL" : SEARCH_ARG$,AVAIL_ROWS
25800     Input #EMF_WIN, Fields "2,1,LIST 19/59,ROWCNT,SEL,NOWAIT" :
AVAIL_ROWS
25810     Mat DATA$(2*AVAIL_ROWS)
25820     Input #EMF_WIN, Fields "2,1,LIST 19/59,ROW,SEL,NOWAIT" : MAT DATA$
25830     Let AK=FKEY
25840     If AK=ESC Then Goto CLS_EMF_WIN ! and do not select
25850     Let EMSW=Z=VAL(DATA$(1)) !:
         Let ENM$=DATA$(2)
25860 CLS_EMF_WIN: Let FNCLOSEFILE(EMFFILE,"emf") : Close #EMF_WIN: !:
         Let AK=0 : Let CURFLD(1) ! only cancel in this subroutine


_______________________________________________
BR_forum mailing list
BR_forum@ads.net (BR_forum@ads.net)
http://ads.net/mailman/listinfo/br_forum_ads.net
John Bowman
Top
Larry

[BR_forum] Link search to List

Post by Larry »

That comes before search input. I guess I should recycle back to that line?


From: br_forum-bounces@ads.net [mailto:br_forum-bounces@ads.net] On Behalf Of John Bowman
Sent: Friday, May 22, 2009 4:10 PM
To: Business Rules Forum
Subject: Re: [BR_forum] Link search to List


i believe the line:
25770 Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
redisplays the list.

-john
On Fri, May 22, 2009 at 3:56 PM, Larry <ltietz@verizon.net (ltietz@verizon.net)> wrote:
I am probably missing something simple.

I have a sorted list, and the search input box.

(The list has a blank column for qty entry, a column for item number,
description, price) it is sorted by item number

Nothing happens as I enter data into the searchbox.

I thought the list would change with each character.



I have been following Doug's sample code.

But I don't see how to redisplay the list.


25730 ! open new window for emf
25740 Let SR$="08" : Let SCOL$="08" : Let ER$="21" : Let EC$="60" !:
Open #EMF_WIN:=80: "Srow="&SR$&",scol="&SCOL$&",Rows="&ER$&",
Cols="&EC$&",border=S[LTB],N=[W],Caption=Select Employee, picture=,
Buttonrows=1", Display, Outin ! font.buttons=lucida console,parent=0"
25750 Print #EMF_WIN, Fields "2,1,LIST 19/59,HEADERS" : (MAT
LVEMF_HEADINGS$, MAT LVEMF_WIDTHS, MAT LVEMF_FIELDFORMS$)
25760 Print #EMF_WIN, Fields "1,2,cc 8,[N];21,2,Cc 8,,B99":
"Search","Cancel"
25770 Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
25780 Print #EMF_WIN, Fields "2,1,LIST 19/59,SORT": 2 ! sort 2nd column
of list - required to search by name w/o clicking on column header
25790 Input #EMF_WIN, Fields "1,16,SEARCH 30,U,2,1;2,1,LIST
19/59,ROWCNT,SEL" : SEARCH_ARG$,AVAIL_ROWS
25800 Input #EMF_WIN, Fields "2,1,LIST 19/59,ROWCNT,SEL,NOWAIT" :
AVAIL_ROWS
25810 Mat DATA$(2*AVAIL_ROWS)
25820 Input #EMF_WIN, Fields "2,1,LIST 19/59,ROW,SEL,NOWAIT" : MAT DATA$
25830 Let AK=FKEY
25840 If AK=ESC Then Goto CLS_EMF_WIN ! and do not select
25850 Let EMSW=Z=VAL(DATA$(1)) !:
Let ENM$=DATA$(2)
25860 CLS_EMF_WIN: Let FNCLOSEFILE(EMFFILE,"emf") : Close #EMF_WIN: !:
Let AK=0 : Let CURFLD(1) ! only cancel in this subroutine


_______________________________________________
BR_forum mailing list
BR_forum@ads.net (BR_forum@ads.net)
http://ads.net/mailman/listinfo/br_forum_ads.net
Top
John
Posts: 555
Joined: Sun Apr 26, 2009 8:27 am

[BR_forum] Link search to List

Post by John »

if you are just searching and not filtering than you don't need to redisplay, just re-sort, so maybe try just going back to:

25780     Print #EMF_WIN, Fields "2,1,LIST 19/59,SORT": 2 ! sort 2nd column
of list - required to search by name w/o clicking on column header

-john

On Fri, May 22, 2009 at 4:16 PM, Larry <ltietz@verizon.net (ltietz@verizon.net)> wrote:

That comes before search input. I guess I should recycle back to that line?
 

From: br_forum-bounces@ads.net (br_forum-bounces@ads.net) [mailto:br_forum-bounces@ads.net (br_forum-bounces@ads.net)] On Behalf Of John Bowman
Sent: Friday, May 22, 2009 4:10 PM
To: Business Rules Forum
Subject: Re: [BR_forum] Link search to List


 
i believe the line:
25770     Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
redisplays the list.

-john
On Fri, May 22, 2009 at 3:56 PM, Larry <ltietz@verizon.net (ltietz@verizon.net)> wrote:
I am probably missing something simple.

I have a sorted list, and the search input box.

(The list has a blank column for qty entry, a column for item number,
description, price) it is sorted by item number

Nothing happens as I enter data into the searchbox.

I thought the list would change with each character.



I have been following Doug's sample code.

But I don't see how to redisplay the list.


25730 ! open new window for emf
25740     Let SR$="08" : Let SCOL$="08" : Let ER$="21" : Let EC$="60" !:
         Open #EMF_WIN:=80: "Srow="&SR$&",scol="&SCOL$&",Rows="&ER$&",
Cols="&EC$&",border=S[LTB],N=[W],Caption=Select Employee, picture=,
Buttonrows=1", Display, Outin  ! font.buttons=lucida console,parent=0"
25750     Print #EMF_WIN, Fields "2,1,LIST 19/59,HEADERS" : (MAT
LVEMF_HEADINGS$, MAT LVEMF_WIDTHS, MAT LVEMF_FIELDFORMS$)
25760     Print #EMF_WIN, Fields "1,2,cc 8,[N];21,2,Cc 8,,B99":
"Search","Cancel"
25770     Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
25780     Print #EMF_WIN, Fields "2,1,LIST 19/59,SORT": 2 ! sort 2nd column
of list - required to search by name w/o clicking on column header
25790     Input #EMF_WIN, Fields "1,16,SEARCH 30,U,2,1;2,1,LIST
19/59,ROWCNT,SEL" : SEARCH_ARG$,AVAIL_ROWS
25800     Input #EMF_WIN, Fields "2,1,LIST 19/59,ROWCNT,SEL,NOWAIT" :
AVAIL_ROWS
25810     Mat DATA$(2*AVAIL_ROWS)
25820     Input #EMF_WIN, Fields "2,1,LIST 19/59,ROW,SEL,NOWAIT" : MAT DATA$
25830     Let AK=FKEY
25840     If AK=ESC Then Goto CLS_EMF_WIN ! and do not select
25850     Let EMSW=Z=VAL(DATA$(1)) !:
         Let ENM$=DATA$(2)
25860 CLS_EMF_WIN: Let FNCLOSEFILE(EMFFILE,"emf") : Close #EMF_WIN: !:
         Let AK=0 : Let CURFLD(1) ! only cancel in this subroutine


_______________________________________________
BR_forum mailing list
BR_forum@ads.net (BR_forum@ads.net)
http://ads.net/mailman/listinfo/br_forum_ads.net

 




_______________________________________________
BR_forum mailing list
BR_forum@ads.net (BR_forum@ads.net)
http://ads.net/mailman/listinfo/br_forum_ads.net
John Bowman
Top
Doug Meenen

[BR_forum] Link search to List

Post by Doug Meenen »

Larry,
In the example code I submitted after you select which item or (employee), I pass the Employee #, Employee name back to another section of code that reads all of the data from the employee master file with
25850 Let EMSW=Z=VAL(DATA$(1)) !:
Let ENM$=DATA$(2)

What you are attempting I believe is a little different.
Like John said line 25770 will redisplay the list.

What exactly are you trying to do?

Doug Meenen




--- On Fri, 5/22/09, Larry <ltietz@verizon.net> wrote:
From: Larry <ltietz@verizon.net>
Subject: Re: [BR_forum] Link search to List
To: "'Business Rules Forum'" <br_forum@ads.net>
Date: Friday, May 22, 2009, 3:16 PM


That comes before search input. I guess I should recycle back to that line?


From: br_forum-bounces@ads.net [mailto:br_forum-bounces@ads.net] On Behalf Of John Bowman
Sent: Friday, May 22, 2009 4:10 PM
To: Business Rules Forum
Subject: Re: [BR_forum] Link search to List


i believe the line:
25770 Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
redisplays the list.

-john
On Fri, May 22, 2009 at 3:56 PM , Larry <ltietz@verizon.net> wrote:
I am probably missing something simple.

I have a sorted list, and the search input box.

(The list has a blank column for qty entry, a column for item number,
description, price) it is sorted by item number

Nothing happens as I enter data into the searchbox.

I thought the list would change with each character.



I have been following Doug's sample code.

But I don't see how to redisplay the list.


25730 ! open new window for emf
25740 Let SR$="08" : Let SCOL$="08" : Let ER$="21" : Let EC$="60" !:
Open #EMF_WIN:=80: "Srow="&SR$&",scol="&SCOL$&",Rows="&ER$&",
Cols="&EC$&",border=S[LTB],N=[W],Caption=Select Employee, picture=,
Buttonrows=1", Display, Outin ! font.buttons=lucida console,parent=0"
25750 Print #EMF_WIN, Fields "2,1,LIST 19/59,HEADERS" : (MAT
LVEMF_HEADINGS$, MAT LVEMF_WIDTHS, MAT LVEMF_FIELDFORMS$)
25760 Print #EMF_WIN, Fields "1,2,cc 8,[N];21,2,Cc 8,,B99":
"Search","Cancel"
25770 Print #EMF_WIN, Fields "2,1,LIST 19/59,=" : (MAT LVEMF_CODE$, MAT
LVEMF_NAME$)
25780 Print #EMF_WIN, Fields "2,1,LIST 19/59,SORT": 2 ! sort 2nd column
of list - required to search by name w/o clicking on column header
25790 Input #EMF_WIN, Fields "1,16,SEARCH 30,U,2,1;2,1,LIST
19/59,ROWCNT,SEL" : SEARCH_ARG$,AVAIL_ROWS
25800 Input #EMF_WIN, Fields "2,1,LIST 19/59,ROWCNT,SEL,NOWAIT" :
AVAIL_ROWS
25810 Mat DATA$(2*AVAIL_ROWS)
25820 Input #EMF_WIN, Fields "2,1,LIST 19/59,ROW,SEL,NOWAIT" : MAT DATA$
25830 Let AK=FKEY
25840 If AK=ESC Then Goto CLS_EMF_WIN ! and do not select
25850 Let EMSW=Z=VAL(DATA$(1)) !:
Let ENM$=DATA$(2)
25860 CLS_EMF_WIN: Let FNCLOSEFILE(EMFFILE,"emf") : Close #EMF_WIN: !:
Let AK=0 : Let CURFLD(1) ! only cancel in this subroutine


_______________________________________________
BR_forum mailing list
BR_forum@ads.net
http://ads.net/mailman/listinfo/br_forum_ads.net




-----Inline Attachment Follows-----

_______________________________________________
BR_forum mailing list
BR_forum@ads.net
http://ads.net/mailman/listinfo/br_forum_ads.net
Top
Post Reply

Return to “General Development”