First of, Thank you to everyone.
This is what I ended up with:
I created a custom textbox, not binded to any field. then call the
search dialog passing the value in the textbox which will retrieve 1
or more orders based on PO. and then I can double click on the item.
If no record is found, then it just clear the screen.
Again, thank you for all your assistance,
Percy Perez
CODE:
Private Sub txtEpiCustom1_LostFocus(ByVal Sender As Object, ByVal
Args As System.EventArgs) Handles txtEpiCustom1.LostFocus
If (txtEpiCustom1.Text <> String.Empty) Then
Dim OrigPO as String = txtEpiCustom1.Text
'// Do Search (listLookup)
Dim recordSelected As Boolean
Dim showSearch As Boolean = True
Dim whereClause As String = "PONum = '" & txtEpiCustom1.Text & "'"
Dim multiRecords As Boolean = False
' oTrans.ClearDataSets()
'// Call Search Function
Dim dsSalesOrder As DataSet = SearchFunctions.listLookup
(SalesOrderTrackerForm, "SalesOrderAdapter", recordSelected,
showSearch, whereClause, multiRecords )
'// check to see if DataSet is not null and that it
'// contains at least 1 DataTable
If (recordSelected = True) Then
Dim edvOrderHed As EpiDataView = CType(oTrans.EpiDataViews
("OrderHed"), EpiDataView)
Dim pOrd as String = dsSalesOrder.Tables(0).Rows(0)("OrderNum")
Dim [pSelectedRec] As Boolean = oTrans.GetOrderData(pOrd)
txtEpiCustom1.Text = dsSalesOrder.Tables(0).Rows(0)("PONum")
Else
oTrans.ClearDataSets()
txtEpiCustom1.Text = ""
txtEpiCustom1.focus()
End If
End If
End Sub
End Module
This is what I ended up with:
I created a custom textbox, not binded to any field. then call the
search dialog passing the value in the textbox which will retrieve 1
or more orders based on PO. and then I can double click on the item.
If no record is found, then it just clear the screen.
Again, thank you for all your assistance,
Percy Perez
CODE:
Private Sub txtEpiCustom1_LostFocus(ByVal Sender As Object, ByVal
Args As System.EventArgs) Handles txtEpiCustom1.LostFocus
If (txtEpiCustom1.Text <> String.Empty) Then
Dim OrigPO as String = txtEpiCustom1.Text
'// Do Search (listLookup)
Dim recordSelected As Boolean
Dim showSearch As Boolean = True
Dim whereClause As String = "PONum = '" & txtEpiCustom1.Text & "'"
Dim multiRecords As Boolean = False
' oTrans.ClearDataSets()
'// Call Search Function
Dim dsSalesOrder As DataSet = SearchFunctions.listLookup
(SalesOrderTrackerForm, "SalesOrderAdapter", recordSelected,
showSearch, whereClause, multiRecords )
'// check to see if DataSet is not null and that it
'// contains at least 1 DataTable
If (recordSelected = True) Then
Dim edvOrderHed As EpiDataView = CType(oTrans.EpiDataViews
("OrderHed"), EpiDataView)
Dim pOrd as String = dsSalesOrder.Tables(0).Rows(0)("OrderNum")
Dim [pSelectedRec] As Boolean = oTrans.GetOrderData(pOrd)
txtEpiCustom1.Text = dsSalesOrder.Tables(0).Rows(0)("PONum")
Else
oTrans.ClearDataSets()
txtEpiCustom1.Text = ""
txtEpiCustom1.focus()
End If
End If
End Sub
End Module
--- In vantage@yahoogroups.com, "Paul V. Blais" <pblais@...> wrote:
>
> Create a named search, default it, and return 500 rows. Then go to
tools à options and auto load the search you just created.
>
>
>
> Then every time you open the form the search will pop up and you
just type in the number.
>
>
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On
Behalf Of Michael McWilliams
> Sent: Friday, July 13, 2007 11:04 AM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Re: Customizing Sales order tracker so it looks
up via PO Num
>
>
>
> What about different customers with the same PO#?
> Happens here all the time. What would your Customization do?
> --- In vantage@yahoogroups.com <mailto:vantage%
40yahoogroups.com> , "therealhackercat"
> <therealhackercat@> wrote:
> >
> > Scott,
> >
> > Thanks for the quick reply.
> >
> > My sales group is looking to minimize the number of keystrokes
and
> > mouse clicks. According to them, they have the Customer P.O.
> Number
> > available so they would like to type it immediately.
> >
> > Thanks again,
> >
> > Percy
> >
> > Percy Perez
> > --- In vantage@yahoogroups.com <mailto:vantage%
40yahoogroups.com> , "Scott Litzau" <scott.litzau@>
> > wrote:
> > >
> > > Percy,
> > >
> > > In the Basic Search of Sales Order..., in either Order Entry or
> > Order
> > > Tracker, you can change the Sort By from Sales Order to PO
> Number
> > and then
> > > in the Starting At field either put in your entire PO Number or
> the
> > First
> > > Charters you would like to search to Start At. Then you choose
> your
> > Sales
> > > Order and it retrieves the Record.
> > >
> > > Scott Litzau
> > >
> > > -----Original Message-----
> > > From: vantage@yahoogroups.com <mailto:vantage%
40yahoogroups.com> [mailto:vantage@yahoogroups.com <mailto:vantage%
40yahoogroups.com> ]
> On
> > Behalf Of
> > > therealhackercat
> > > Sent: Friday, July 13, 2007 9:21 AM
> > > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > > Subject: [Vantage] Customizing Sales order tracker so it looks
> up
> > via PO Num
> > >
> > >
> > > Hello,
> > >
> > > I am currently customizing the Sales Order Tracker. I added a
> > Custom
> > > Text Box where the user will enter the PO number, i have an
> event
> > > that it goes out and retrieves the Order number. I got this so
> > far.
> > > However, I would like to "feed" the value saved in pOrd to the
> > Order
> > > Number field, so the tracker can retrieve the remaining
> pertinent
> > > information and repaints the screen to show lines, releases,
etc.
> > >
> > > so far, I have:
> > >
> > > 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 = "PONum = '" & txtEpiCustom1.Text
> > & "'"
> > >
> > > '// Call Search Function
> > > Dim dsComments As DataSet = SearchFunctions.listLookup
> > > (SalesOrderTrackerForm, "SalesOrderAdapter", recordSelected,
> > > showSearch, whereClause)
> > >
> > > '// check to see if DataSet is not null and that it
> > > '// contains at least 1 DataTable
> > >
> > > If (recordSelected = True) Then
> > > Dim edvOrderHed As EpiDataView = CType
> (oTrans.EpiDataViews
> > > ("OrderHed"), EpiDataView)
> > > '// set the OrderComment field to value returned by
> search
> > >
> > > Dim pOrd as String = dsComments.Tables(0).Rows(0)
> ("OrderNum")
> > >
> > > End If
> > >
> > > End If
> > >
> > > End Sub
> > >
> > >
> > > End Module
> > >
> > >
> > > Any help would be greatly appreciated,
> > >
> > > Percy Perez
> > >
> > >
> > >
> > >
> > > Useful links for the Yahoo!Groups Vantage Board are: ( Note:
> You
> > must have
> > > already linked your email address to a yahoo id to enable
> access. )
> > > (1) To access the Files Section of our Yahoo!Group for Report
> > Builder and
> > > Crystal Reports and other 'goodies', please goto:
> > > http://groups.yahoo.com/group/vantage/files/.
<http://groups.yahoo.com/group/vantage/files/>
> > > (2) To search through old msg's goto:
> > > http://groups.yahoo.com/group/vantage/messages
> > > (3) To view links to Vendors that provide Vantage services goto:
> > > http://groups.yahoo.com/group/vantage/links
> > > Yahoo! Groups Links
> > >
> >
>
>
>
>
>
> [Non-text portions of this message have been removed]
>