Ud combo script

Yahoo Archive
1
Thanks lynn! I eventually did figure just what you were saying on my
own..duh! however I wish I would have had your excellent advice hours
sooner! Yet another excellent learning opportunity for a newbie
coder...



Rob Bucek

Manufacturing Engineer

PH: (715) 284-5376 ext 3111

FAX: (715)284-4084

<http://www.dsmfg.com/>

(Click the logo to view our site) <http://www.dsmfg.com/>





From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Thomas, Lynn A.
Sent: Friday, August 28, 2009 7:11 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re:ud combo script





Rob,

Garden variety syntax/typographical error. It looks like you've somehow
deleted/written over the End Sub for the 'InitializeCustomCode'
subroutine just above 'FillUD102Combo' at line 40. Insert a couple of
blank lines above line 40 [for readability], then type End Sub on line
37 or so and that error message should go away. You may see others that
were masked by that one, but that one will go away. I've used that code
example in the exact same way you're trying to, and it does work.

Lynn Thomas
Senior Engineer
SAIC
317-357-4041 X255

[Non-text portions of this message have been removed]





[Non-text portions of this message have been removed]
2
Thanks to Karl and advantage@wcoil for sending me some information to get me started. Im stuck on one particular line at this point and cannot seem to work through it. Again what I'm trying to do is have an ultracombo populate based on a value in another ultracombo. The data is coming from the UD102 parent/child table.



The error is tagged to line 40



Sub InitializeCustomCode()



UD102Adapter = New UD102Adapter(oTrans)

ud102Adapter.BOConnect()



line 40 Ã Private Sub FillUD102ACombo(Key1 as String)



Dim myHash As System.Collections.Hashtable = New System.Collections.Hashtable()

Dim whereClause As String = "Key1= '" & Key1 & "'"

'MessageBox.show(wClause)

Dim opts As SearchOptions = Epicor.Mfg.UI.Searches.SearchOptions.CreateRuntimeSearch (myHash,DataSetMode.RowsDataSet)

ud102Adapter.InvokeSearch(opts)



End Sub



Private Sub SubReasonCode_BeforeDropDown(ByVal Sender As Object, ByVal Args As System.ComponentModel.CancelEventArgs)'Handles SubReasonCode.BeforeDropDown

Dim edvUD09 As EpiDataView = CType(oTrans.EpiDataViews("UD09"),EpiDataView)

Dim Key1 As String = edvUD09.dataView(edvUD09.Row)("ShortChar02")

Fillud102acombo(Key1)



Error as follows





----------errors------------



Error: BC30289 - line 40 (210) - Statement cannot appear within a method body. End of method assumed.



** Compile Failed. **



Any ideas?



Thanks in advance!



Rob Bucek

Manufacturing Engineer

PH: (715) 284-5376 ext 3111

FAX: (715)284-4084

<http://www.dsmfg.com/>

(Click the logo to view our site) <http://www.dsmfg.com/>







[Non-text portions of this message have been removed]
3
Rob,

Garden variety syntax/typographical error. It looks like you've somehow deleted/written over the End Sub for the 'InitializeCustomCode' subroutine just above 'FillUD102Combo' at line 40. Insert a couple of blank lines above line 40 [for readability], then type End Sub on line 37 or so and that error message should go away. You may see others that were masked by that one, but that one will go away. I've used that code example in the exact same way you're trying to, and it does work.

Lynn Thomas
Senior Engineer
SAIC
317-357-4041 X255



[Non-text portions of this message have been removed]