Vantage 8.03 - PartMtl Adapter

Thanks Stephen... I had picked that up after posting.  I have tried downloading the BL Tester but am experiencing issues so waiting for Epicor to come back to me.


I have got a little further with regards to updating records so will keep trying for now!

I want to use the PartMtl table but can't seem to find the adapter - am I missing something obvious?!

>>PartMtl BO
I'm not sure there is a BO just for the PartMtl table
Epicor.Mfg.BO.BomSearch.dll  GetDatasetForTree would include PartMtl data

>>I want to use the PartMtl table
What did you have in mind?
Adding, editing or just displaying records?

I was hoping to have a checkbox against certain PartMtl records that would prompt for a character box in Kanban Receipts.  We could then carry this field to store against the Job... Ideally we would like to Lot Track but we don't have the manpower for the additional administrative functions to our current procedures.  I'd like the system to work as follows:


When entering Kanban Receipt for first sub-assy:

Character field for internal Batch number AND check as above so any required raw materials have the Supplier Reference number entered.


When entering any following parts:

Character field for internal Batch number



We know this won't allow monitoring quantity accuracy but it is an improvement on what we currently have as the alternative is keeping spreadsheets and we would prefer to get people using Vantage as much as possible!

I forgot to add, so far I have found this on previous posts but although I am getting a Message Box it has no title and shows a result of 0.


             Dim adpBOM As BOMSearchAdapter = New BOMSearchAdapter(KanbanReceiptsForm)
                adpBOM.Boconnect()
                Dim BOM As BOMSearchDataSet = adpBOM.BOMSearchData
                Dim part As String = edvKanbanView.DataView(edvKanbanView.Row)("RevisionNum")
                Dim partrev As String = edvKanbanView.DataView(edvKanbanView.Row)("PartNum")
                Dim SomethingFound as boolean = adpBOM.GetAllAlternateTrees(part,partrev,True,Date.Today,True)
 
                    If SomethingFound Then
                        MessageBox.show(BOM.Tables("PartMtl").Rows.Count.Tostring)
                    Else
                        MessageBox.show("Bad part number encountered.","Warning",messageBoxbuttons.OK,messageboxicon.Error)
                    End If

#ygrps-yiv-1161928650 P.ygrps-yiv-1161928650b1e7fd89-0279-4ffe-a16a-1f1bcba0d537 { MARGIN:0cm 0cm 0pt;} #ygrps-yiv-1161928650 LI.ygrps-yiv-1161928650b1e7fd89-0279-4ffe-a16a-1f1bcba0d537 { MARGIN:0cm 0cm 0pt;} #ygrps-yiv-1161928650 DIV.ygrps-yiv-1161928650b1e7fd89-0279-4ffe-a16a-1f1bcba0d537 { MARGIN:0cm 0cm 0pt;} #ygrps-yiv-1161928650 TABLE.ygrps-yiv-1161928650b1e7fd89-0279-4ffe-a16a-1f1bcba0d537Table { MARGIN:0cm 0cm 0pt;} #ygrps-yiv-1161928650 DIV.ygrps-yiv-1161928650Section1 { }

You code below seems to be assigning the Part variable to the RevisionNum field

And likewise for the partrev.

 

I would always recommend using the BL Tester when you want to explore the methods it is a faster discovery cycle.

 

Regards,

 

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com]
Sent: 05 May 2016 11:38
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Vantage 8.03 - PartMtl Adapter

 

 

I forgot to add, so far I have found this on previous posts but although I am getting a Message Box it has no title and shows a result of 0.

 

             Dim adpBOM As BOMSearchAdapter = New BOMSearchAdapter(KanbanReceiptsForm)
                adpBOM.Boconnect()
                Dim BOM As BOMSearchDataSet = adpBOM.BOMSearchData
                Dim part As String = edvKanbanView.DataView(edvKanbanView.Row)("RevisionNum")
                Dim partrev As String = edvKanbanView.DataView(edvKanbanView.Row)("PartNum")
                Dim SomethingFound as boolean = adpBOM.GetAllAlternateTrees(part,partrev,True,Date.Today,True)
 
                    If SomethingFound Then
                        MessageBox.show(BOM.Tables("PartMtl").Rows.Count.Tostring)
                    Else
                        MessageBox.show("Bad part number encountered.","Warning",messageBoxbuttons.OK,messageboxicon.Error)
                    End If



Stephen Edginton (Beng) | Solutions & Technical Director

Mobile:  +44 7734 858415
DDI:  +44 121 314 1179
Main:  +44 (0) 121 314 1170
Web:  www.dotnetit.co.uk

Dot Net IT Limited, One St Kenelm Court, Steel Park Road, Halesowen, B62 8HD, United Kingdom.

DotNetIT

Epicor Platinum Partner

Epicor Alliance Partner