Customizing. Blank Title 56835

Yahoo Archive
1
After compiling this code, I get the error messagE:

Error: BC30002 - line 63 (299) - Type 'SalesOrderAdapter' is not
defined.

--SF

--- In vantage@yahoogroups.com, "bw2868bond" <bwalker@...> wrote:
>
> In your txtEpiCustom1_Leave event, try this code to see if you get
> the comment from your 10000 order in the 22096 comment box.
>
> As the posts wrap quite a bit, each line of code is inbetween
> <codeline>...</codeline>
>
> <codeline>Dim ordhedAdapter as SalesOrderAdapter = New
> SalesOrderAdapter(SalesOrderForm)</codeline>
> <codeline>Dim ohaConnected As Boolean = ordhedAdapter.BOConnect()
> </codeline>
> <codeline>Dim Success As Boolean = ordhedAdapter.GetByID
> (txtEpiCustom1.Text)</codeline>
> <codeline></codeline>
> <codeline>If(Success) Then</codeline>
> <codeline> Dim edvOrderHed As EpiDataView = CType
> (oTrans.EpiDataViews("OrderHed"), EpiDataView)</codeline>
> <codeline> edvOrderHed.dataView(0)("OrderComment") =
> ordhedAdapter.SalesOrderData.Tables("OrdHed").Rows(0)
("OrderComment")
> </codeline>
> <codeline> edvOrderHed.Notify( New EpiNotifyArgs(SalesOrderForm,
> edvOrderHed.Row, edvOrderHed.Column)</codeline>
> <codeline>End If</codeline>
>
> Hope this helps to get you pointed in the right direction.
>
> Bernie.
>
> --- In vantage@yahoogroups.com, "sanfranc415" <sanfranc415@> wrote:
> >
> > What I'm trying to do is create a LostFocus that will pull up the
> > comments for an order I enter in a custom text box. So, if I'm
in
> > order 22096 and enter 10000 in my custom text box, it will copy
> those
> > comments to the 22096 comments box?
> >
> > --SF
> > --- In vantage@yahoogroups.com, "Mark Wonsil" <mark_wonsil@>
wrote:
> > >
> > > > I'd like to see how the Part Entry Screen pulls in the Part
> > Desciption
> > > > after it's entered. Does somebody have an example of how this
> code
> > > > works in the background?
> > >
> > > It's bound to the data view, so it's pulled before the screen
> > is "painted". To
> > > do the same, you'd want to add your user defined field into the
> data
> > view and
> > > then bind it to the field. You're thinking like a VB6
programmer
> and
> > not a
> > > VB.Net programmer. ;-)
> > >
> > > Mark "Who thinks the same way too" W.
> > >
> >
>
2
I'd like to see how the Part Entry Screen pulls in the Part Desciption
after it's entered. Does somebody have an example of how this code
works in the background?

Thanks,

--SF
3
> I'd like to see how the Part Entry Screen pulls in the Part Desciption
> after it's entered. Does somebody have an example of how this code
> works in the background?

It's bound to the data view, so it's pulled before the screen is "painted". To
do the same, you'd want to add your user defined field into the data view and
then bind it to the field. You're thinking like a VB6 programmer and not a
VB.Net programmer. ;-)

Mark "Who thinks the same way too" W.
4
What I'm trying to do is create a LostFocus that will pull up the
comments for an order I enter in a custom text box. So, if I'm in
order 22096 and enter 10000 in my custom text box, it will copy those
comments to the 22096 comments box?

--SF
--- In vantage@yahoogroups.com, "Mark Wonsil" <mark_wonsil@...> wrote:
>
> > I'd like to see how the Part Entry Screen pulls in the Part
Desciption
> > after it's entered. Does somebody have an example of how this code
> > works in the background?
>
> It's bound to the data view, so it's pulled before the screen
is "painted". To
> do the same, you'd want to add your user defined field into the data
view and
> then bind it to the field. You're thinking like a VB6 programmer and
not a
> VB.Net programmer. ;-)
>
> Mark "Who thinks the same way too" W.
>
5
Is there something else here that is missing? If you only want it
to go into the comments then why not just put a textbox wherever you
want it on the form, change the properties to multiline and then Tie
it to OrderHed.OrderComment then you can just type whatever in
there and not have to copy anything over.
--- In vantage@yahoogroups.com, "sanfranc415" <sanfranc415@...>
wrote:
>
> What I'm trying to do is create a LostFocus that will pull up the
> comments for an order I enter in a custom text box. So, if I'm in
> order 22096 and enter 10000 in my custom text box, it will copy
those
> comments to the 22096 comments box?
>
> --SF
> --- In vantage@yahoogroups.com, "Mark Wonsil" <mark_wonsil@> wrote:
> >
> > > I'd like to see how the Part Entry Screen pulls in the Part
> Desciption
> > > after it's entered. Does somebody have an example of how this
code
> > > works in the background?
> >
> > It's bound to the data view, so it's pulled before the screen
> is "painted". To
> > do the same, you'd want to add your user defined field into the
data
> view and
> > then bind it to the field. You're thinking like a VB6 programmer
and
> not a
> > VB.Net programmer. ;-)
> >
> > Mark "Who thinks the same way too" W.
> >
>
6
UPDATE:

Since I'm not a programmer, I've struggled for the last week to
produce a semi-working result, but here it is. This sample takes the
order number you enter into txtepicustom1 and pops up a message for
the po number, I hope this helps a beginner like myself in the future:

---------------------------------------------------------------BEGIN


Private Sub txtEpiCustom1_Leave(ByVal Sender As Object, ByVal
Args As System.EventArgs) Handles txtEpiCustom1.Leave

'// ** Place Event Handling Code Here **
If (txtEpiCustom1.Text <> String.Empty) Then

'// Do Search (listLookup)
Dim recordSelected As Boolean
Dim showSearch As Boolean = False
Dim whereClause As String = "OrderNum = '" & txtEpiCustom1.Text & "'"

'// Call Search Function
Dim dsComments As DataSet = SearchFunctions.listLookup
(SalesOrderForm, "SalesOrderAdapter", recordSelected, showSearch,
whereClause)

'// check to see if DataSet is not null and that it
'// contains at least 1 DataTable
If (recordSelected = True) Then

'// get a reference to the OrderDtl EpiDataView
Dim edvOrderDtl As EpiDataView = CType(oTrans.EpiDataViews
("OrderDtl"), EpiDataView)
'// set the OrderComment field to value returned by search
messagebox.show (dsComments.Tables(0).Rows(0)("PONum"))

'// notify bound control(s) of data change
edvOrderDtl.Notify( New EpiNotifyArgs(SalesOrderForm,
edvOrderDtl.Row, edvOrderDtl.Column))
End If
End If

'// Set Text to Empty String
txtEpiCustom1.Text = String.Empty


End Sub


-----------------------------------------------------------------END

--SF

--- In vantage@yahoogroups.com, "Michael McWilliams"
<mmcwilliams22@...> wrote:
>
> Is there something else here that is missing? If you only want it
> to go into the comments then why not just put a textbox wherever
you
> want it on the form, change the properties to multiline and then
Tie
> it to OrderHed.OrderComment then you can just type whatever in
> there and not have to copy anything over.
> --- In vantage@yahoogroups.com, "sanfranc415" <sanfranc415@>
> wrote:
> >
> > What I'm trying to do is create a LostFocus that will pull up the
> > comments for an order I enter in a custom text box. So, if I'm
in
> > order 22096 and enter 10000 in my custom text box, it will copy
> those
> > comments to the 22096 comments box?
> >
> > --SF
> > --- In vantage@yahoogroups.com, "Mark Wonsil" <mark_wonsil@>
wrote:
> > >
> > > > I'd like to see how the Part Entry Screen pulls in the Part
> > Desciption
> > > > after it's entered. Does somebody have an example of how this
> code
> > > > works in the background?
> > >
> > > It's bound to the data view, so it's pulled before the screen
> > is "painted". To
> > > do the same, you'd want to add your user defined field into the
> data
> > view and
> > > then bind it to the field. You're thinking like a VB6
programmer
> and
> > not a
> > > VB.Net programmer. ;-)
> > >
> > > Mark "Who thinks the same way too" W.
> > >
> >
>
7
In your txtEpiCustom1_Leave event, try this code to see if you get
the comment from your 10000 order in the 22096 comment box.

As the posts wrap quite a bit, each line of code is inbetween
<codeline>...</codeline>

<codeline>Dim ordhedAdapter as SalesOrderAdapter = New
SalesOrderAdapter(SalesOrderForm)</codeline>
<codeline>Dim ohaConnected As Boolean = ordhedAdapter.BOConnect()
</codeline>
<codeline>Dim Success As Boolean = ordhedAdapter.GetByID
(txtEpiCustom1.Text)</codeline>
<codeline></codeline>
<codeline>If(Success) Then</codeline>
<codeline> Dim edvOrderHed As EpiDataView = CType
(oTrans.EpiDataViews("OrderHed"), EpiDataView)</codeline>
<codeline> edvOrderHed.dataView(0)("OrderComment") =
ordhedAdapter.SalesOrderData.Tables("OrdHed").Rows(0)("OrderComment")
</codeline>
<codeline> edvOrderHed.Notify( New EpiNotifyArgs(SalesOrderForm,
edvOrderHed.Row, edvOrderHed.Column)</codeline>
<codeline>End If</codeline>

Hope this helps to get you pointed in the right direction.

Bernie.

--- In vantage@yahoogroups.com, "sanfranc415" <sanfranc415@...> wrote:
>
> What I'm trying to do is create a LostFocus that will pull up the
> comments for an order I enter in a custom text box. So, if I'm in
> order 22096 and enter 10000 in my custom text box, it will copy
those
> comments to the 22096 comments box?
>
> --SF
> --- In vantage@yahoogroups.com, "Mark Wonsil" <mark_wonsil@> wrote:
> >
> > > I'd like to see how the Part Entry Screen pulls in the Part
> Desciption
> > > after it's entered. Does somebody have an example of how this
code
> > > works in the background?
> >
> > It's bound to the data view, so it's pulled before the screen
> is "painted". To
> > do the same, you'd want to add your user defined field into the
data
> view and
> > then bind it to the field. You're thinking like a VB6 programmer
and
> not a
> > VB.Net programmer. ;-)
> >
> > Mark "Who thinks the same way too" W.
> >
>
8
Thanks for the reply. I've entered your code, but get an error
message:

Error: BC30002 - line 62 (202) - Type 'SalesOrderAdapter' is not
defined.

Well, I think my code will work, but need to know where
the "OpMasterList" table is located?

Thanks,

--SF

--- In vantage@yahoogroups.com, "bw2868bond" <bwalker@...> wrote:
>
> In your txtEpiCustom1_Leave event, try this code to see if you get
> the comment from your 10000 order in the 22096 comment box.
>
> As the posts wrap quite a bit, each line of code is inbetween
> <codeline>...</codeline>
>
> <codeline>Dim ordhedAdapter as SalesOrderAdapter = New
> SalesOrderAdapter(SalesOrderForm)</codeline>
> <codeline>Dim ohaConnected As Boolean = ordhedAdapter.BOConnect()
> </codeline>
> <codeline>Dim Success As Boolean = ordhedAdapter.GetByID
> (txtEpiCustom1.Text)</codeline>
> <codeline></codeline>
> <codeline>If(Success) Then</codeline>
> <codeline> Dim edvOrderHed As EpiDataView = CType
> (oTrans.EpiDataViews("OrderHed"), EpiDataView)</codeline>
> <codeline> edvOrderHed.dataView(0)("OrderComment") =
> ordhedAdapter.SalesOrderData.Tables("OrdHed").Rows(0)
("OrderComment")
> </codeline>
> <codeline> edvOrderHed.Notify( New EpiNotifyArgs(SalesOrderForm,
> edvOrderHed.Row, edvOrderHed.Column)</codeline>
> <codeline>End If</codeline>
>
> Hope this helps to get you pointed in the right direction.
>
> Bernie.
>
> --- In vantage@yahoogroups.com, "sanfranc415" <sanfranc415@> wrote:
> >
> > What I'm trying to do is create a LostFocus that will pull up the
> > comments for an order I enter in a custom text box. So, if I'm
in
> > order 22096 and enter 10000 in my custom text box, it will copy
> those
> > comments to the 22096 comments box?
> >
> > --SF
> > --- In vantage@yahoogroups.com, "Mark Wonsil" <mark_wonsil@>
wrote:
> > >
> > > > I'd like to see how the Part Entry Screen pulls in the Part
> > Desciption
> > > > after it's entered. Does somebody have an example of how this
> code
> > > > works in the background?
> > >
> > > It's bound to the data view, so it's pulled before the screen
> > is "painted". To
> > > do the same, you'd want to add your user defined field into the
> data
> > view and
> > > then bind it to the field. You're thinking like a VB6
programmer
> and
> > not a
> > > VB.Net programmer. ;-)
> > >
> > > Mark "Who thinks the same way too" W.
> > >
> >
>