Here's my little review button that compares the OrderHed.ShipToNum and ShipHead.ShipToNum
Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnEpiCustom2.Click
'// ** Place Event Handling Code Here **
Dim [edvVarName3] As EpiDataView = CType(oTrans.EpiDataViews("ShipDtl"), EpiDataView)
Dim ordernum As Int32 = [edvVarName3].dataView([edvVarName3].Row)("OrderNum")
dim recselected as boolean
dim showsearch as boolean = true
dim whereclause as string = "OrderNum =" & ordernum
Dim [edvVarName2] As EpiDataView = CType(oTrans.EpiDataViews("ShipDtl"), EpiDataView)
Dim packnum As Int32 = [edvVarName2].dataView([edvVarName2].Row)("PackNum")
Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("ShipHead"), EpiDataView)
Dim packshipto As String = [edvVarName].dataView([edvVarName].Row)("ShipToNum").ToString()
dim dsSearch as Dataset = Epicor.Mfg.UI.FormFunctions.searchfunctions.listlookup(otrans,"SalesOrdHedDtlAdapter",recselected,showsearch,whereclause)
dim ordershipto as string
ordershipto = dsSearch.Tables(0).Rows(0)("ShipToNum")
if recSelected then
if (packshipto <> ordershipto) then
messagebox.Show("MISMATCH ADDRESS")
end if
End If
End Sub
Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnEpiCustom2.Click
'// ** Place Event Handling Code Here **
Dim [edvVarName3] As EpiDataView = CType(oTrans.EpiDataViews("ShipDtl"), EpiDataView)
Dim ordernum As Int32 = [edvVarName3].dataView([edvVarName3].Row)("OrderNum")
dim recselected as boolean
dim showsearch as boolean = true
dim whereclause as string = "OrderNum =" & ordernum
Dim [edvVarName2] As EpiDataView = CType(oTrans.EpiDataViews("ShipDtl"), EpiDataView)
Dim packnum As Int32 = [edvVarName2].dataView([edvVarName2].Row)("PackNum")
Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("ShipHead"), EpiDataView)
Dim packshipto As String = [edvVarName].dataView([edvVarName].Row)("ShipToNum").ToString()
dim dsSearch as Dataset = Epicor.Mfg.UI.FormFunctions.searchfunctions.listlookup(otrans,"SalesOrdHedDtlAdapter",recselected,showsearch,whereclause)
dim ordershipto as string
ordershipto = dsSearch.Tables(0).Rows(0)("ShipToNum")
if recSelected then
if (packshipto <> ordershipto) then
messagebox.Show("MISMATCH ADDRESS")
end if
End If
End Sub
--- In vantage@yahoogroups.com, "sanfranc415" <sanfranc415@...> wrote:
>
> Okay, so if I'm using an if/then statement that is queried on the click of a button, do I need to bring the the orderhed and shiphead adapters to do the search for the shiptonum?
>
>
>
> --- In vantage@yahoogroups.com, "neverunmacron" <neverunmacron@> wrote:
> >
> >
> > JP,
> >
> > when you say verify that the ship to matches the packing slip? Are you having trouble with the wrong packing slips?
> >
> > Jose
> > --- In vantage@yahoogroups.com, "sanfranc415" <sanfranc415@> wrote:
> > >
> > > In light of several errors by our shipping department, they've requested a "review button," this button would go out and verify the Sales Order Shipto and verify it matches the Packing Slip Shipto, is this something that can be don't natively in Vantage?
> > >
> > > --jp
> > >
> >
>