Hello,
I have a question that probably has a simple answer. I am trying to
bring in child data from Job Entry to MES End Activity for Part
Description and Related Operation Description. My code (below) will
only return parent data. It seems fairly straight forward but I am
very new at this so any help would be appreciated.
Dim edvEnd As EpiDataView = CType(oTrans.EpiDataViews("End"),
EpiDataView)
if edvEnd.HasRow = true then
Dim jobNum As String = edvSOHed.dataView(edvSOHed.Row)("JobNum")
Dim JobAdapter As JobEntryAdapter = New JobEntryAdapter(EndActForm)
Dim connected as Boolean = JobAdapter.BOConnect()
if connected = True then
Dim Found As Boolean = JobAdapter.GetByID(JobNum)
if Found = True then
edvEnd.dataView(edvSOHed.Row)("ShortChar02") =
(JobAdapter.JobEntryData.JobAsmbl.rows(0)("Description"))
edvEnd.dataView(edvSOHed.Row)("ShortChar03") =
(JobAdapter.JobEntryData.JobAsmbl.rows(0)("RelatedOperationDesc"))
Thank-you
Miranda Parker
I have a question that probably has a simple answer. I am trying to
bring in child data from Job Entry to MES End Activity for Part
Description and Related Operation Description. My code (below) will
only return parent data. It seems fairly straight forward but I am
very new at this so any help would be appreciated.
Dim edvEnd As EpiDataView = CType(oTrans.EpiDataViews("End"),
EpiDataView)
if edvEnd.HasRow = true then
Dim jobNum As String = edvSOHed.dataView(edvSOHed.Row)("JobNum")
Dim JobAdapter As JobEntryAdapter = New JobEntryAdapter(EndActForm)
Dim connected as Boolean = JobAdapter.BOConnect()
if connected = True then
Dim Found As Boolean = JobAdapter.GetByID(JobNum)
if Found = True then
edvEnd.dataView(edvSOHed.Row)("ShortChar02") =
(JobAdapter.JobEntryData.JobAsmbl.rows(0)("Description"))
edvEnd.dataView(edvSOHed.Row)("ShortChar03") =
(JobAdapter.JobEntryData.JobAsmbl.rows(0)("RelatedOperationDesc"))
Thank-you
Miranda Parker