Thanks Mike
THe key I was missing was that the variable HAD to be defined in an ON
BEFORE START EEP - I thought defining it in the calling program would do the
trick.
Thanks!
David
David Blocker
[EMAIL PROTECTED]
781-784-1919
Fax: 781-784-1860
Cell: 339-206-0261
----- Original Message -----
From: "MikeB" <[EMAIL PROTECTED]>
To: "RBG7-L Mailing List" <[EMAIL PROTECTED]>
Sent: Thursday, December 02, 2004 4:43 PM
Subject: [RBG7-L] - Re: ListBox Properties
> In Concomp create a test form with One User Defined Variable ListBox based
?
> dummy or formtable or whatever your edit table.
>
> In the BeforeStart EEP:
>
> Set var eInvNum text = null
> ret
>
> In the OnAfterStart EEP:
>
> CLS
> SET SELMARGIN 1
> SET VAR ebl = (CHAR(160))
> SET LINES 0
> SET HEADINGS OFF
> OUTPUT dupinv.lff
> SELECT +
> (LJS((CTXT(transid)),8))=8, .ebl=1,(LJS((CTXT(transdate)),10))=10, .ebl=1,
+
> (RJS((CTXT(netamount)),9))=9 +
> FROM transmaster
> --SELECT +
> --(LJS(InvNum,20))=20, .eBL=1, (LJS(CTXT(ImpDOIN),14))=14, .eBL=1, +
> --(LJS(CTXT(ExistDOIN),14))=14 +
> --FROM InDupPik +
> --WHERE ImportID = .fImportID +
> --ORDER BY InvNum
> OUTPUT SCREEN
> PROPERTY DupPikListBox listitemsclear 'TRUE'
> PROPERTY DupPikListBox load_from_file 'DupInv.lff'
> SET HEADINGS ON
> SET LINES 22
> RETURN
>
>
> Set the ComponentID of the ListBox to DupPikListBox
> set the variable to eInvNum
>
> Set the ListBox OnClick EEP to:
>
> Set var eInvNum text = (Strim((ssub(.eInvNum,-1))))
> pause 2 using .einvnum
> return
>
>
> The Pause will have the TransID in it. From this you should be able to
> construct yours...The variabel eInvNum has to be initialized in the
> onBeforeStart EEP for this to be successful.
>
> Also David, if you want to return a value you don't want to display, put
the
> value in the Far right of the string in the Listbox out of display range
and
> use an SGET to retrieve that value....
>
>
> ----- Original Message -----
> From: "David M. Blocker" <[EMAIL PROTECTED]>
> To: "RBG7-L Mailing List" <[EMAIL PROTECTED]>
> Sent: Thursday, December 02, 2004 12:43 PM
> Subject: [RBG7-L] - Re: ListBox Properties
>
>
> > Mike and others
> >
> > THanks for all the listings about sample list boxes, etc.
> >
> > But ya gotta walk before you can run and I'm clearly not getting
something.
> >
> > My form has a variable user defined list box
> >
> > An on after start eep populates the list box from a SELECT:
> >
> > CLS
> > SET SELMARGIN 1
> > SET VAR eBL = (CHAR(160))
> > SET HEADINGS OFF
> > OUTPUT DupInv.lff
> > SELECT +
> > (LJS(InvNum,20))=20, .eBL=1, (LJS(CTXT(ImpDOIN),14))=14, .eBL=1, +
> > (LJS(CTXT(ExistDOIN),14))=14 +
> > FROM InDupPik +
> > WHERE ImportID = .fImportID +
> > ORDER BY InvNum
> > OUTPUT SCREEN
> > PROPERTY DupPikListBox listitemsclear 'TRUE'
> > PROPERTY DupPikListBox load_from_file 'DupInv.lff'
> > SET HEADINGS ON
> >
> > OK, now I don't understand what's next looking at the samples. I want
the
> > user to be able to click on ONE item in the list (yes, just one), have
that
> > item highlighted, and have the code return the unique ID (column InvNum)
of
> > the item selected into variable eInvNum.
> >
> > With just the above in place, I can't even click on an item and have it
> > highlighted! Nice list, but no clicking has no result
> >
> > The variable assigned to the list box is eInvInfo
> >
> > What do I do? An after click eep?
> >
> > Please treat me as in the middle of a big DUHHH and clarify what to do -
and
> > if you use any of the new property or getproperty commands, please
specify
> > what they do. I'm still confused!
> >
> > David Blocker
> > [EMAIL PROTECTED]
> > 781-784-1919
> > Fax: 781-784-1860
> > Cell: 339-206-0261
> > ----- Original Message -----
> > From: "MikeB" <[EMAIL PROTECTED]>
> > To: "RBG7-L Mailing List" <[EMAIL PROTECTED]>
> > Sent: Wednesday, December 01, 2004 6:37 PM
> > Subject: [RBG7-L] - Re: ListBox Properties
> >
> >
> > >
> > > >Is there a property command that will move entries up and down in a
> > > >listbox?
> > >
> > > copy this code, click on the demo form and select paste, then run the
form
> > and
> > > test it. It moves 1 or more items up 1 in the list...
> > >
> > > object EnhancedSpeedButton2: TEnhancedSpeedButton
> > > Left = 220
> > > Top = 310
> > > Width = 77
> > > Height = 42
> > > Caption = 'Move 1 Selected Item Up the List'
> > > HotTrackFont.Charset = DEFAULT_CHARSET
> > > HotTrackFont.Color = clWindowText
> > > HotTrackFont.Height = -11
> > > HotTrackFont.Name = 'MS Sans Serif'
> > > HotTrackFont.Style = [fsUnderline]
> > > NumGlyphs = 1
> > > WordWrap = True
> > > EEPNum = -1
> > > CustomEEP.Strings = (
> > > 'SET VAR vcnt = NULL'
> > > 'SET VAR vtext TEXT = NULL'
> > > 'GetProperty lbcompany listcount '#39'vcnt'#39
> > > 'SET VAR vindex TEXT = '#39'0'#39
> > > 'SET VAR vtmpidx TEXT = '#39'0'#39
> > > 'WHILE (INT(.vindex)) <> (INT(.vcnt)) THEN'
> > > ' SET VAR vchk = (INT(.vindex))'
> > > ' PROPERTY lbcompany checkindex .vchk'
> > > ' GETPROPERTY lbcompany selectedstate '#39'vsel'#39
> > > ' IF vsel = '#39'TRUE'#39' THEN'
> > > ' IF vchk <> 0 THEN'
> > > ' PROPERTY lbcompany unselect .vchk'
> > > ' SET VAR vtmpidx = (ctxt(((INT(.vindex)) - 1)))'
> > > ' -- get the value of the current'
> > > ' PROPERTY lbcompany itemindex .vchk'
> > > ' GetProperty lbcompany selection '#39'vItem'#39
> > > ' -- get the value of the item preceeding'
> > > ' PROPERTY lbcompany itemindex .vtmpidx'
> > > ' GetProperty lbcompany selection '#39'vText'#39
> > > ' -- swap the values'
> > > ' PROPERTY lbcompany itemindex .vchk'
> > > ' PROPERTY lbcompany selection .vtext'
> > > ' PROPERTY lbcompany itemindex .vtmpidx'
> > > ' PROPERTY lbcompany selection .vitem'
> > > ' ENDIF'
> > > ' ENDIF'
> > > ' SET VAR vindex = (CTXT((INT(.vindex)) + 1 ))'
> > > 'ENDWHILE'
> > > 'Getproperty lbcompany listcount '#39'vcnt'#39
> > > 'SET VAR vtext = ('#39'ListBox "A" has'#39' & .vcnt &
> > '#39'Items'#39')'
> > > 'PROPERTY stxlb1 CAPTION .vtext'
> > > ''
> > > 'Getproperty lbother listcount '#39'vcnt'#39
> > > 'SET VAR vtext = ('#39'ListBox "A" has'#39' & .vcnt &
> > '#39'Items'#39')'
> > > 'PROPERTY stxlb2 CAPTION .vtext'
> > > 'RETURN')
> > > end
> > >
> > >
> >
>
