Friend Sub LineFillAfterOriginal(sender As Object, e As EventArgs)
Try
'look into the POP PO Rct Apply Temp table and get the Receipt that we're matching to
Dim strPopRecipt As String = Dynamics.Forms.PopInvoiceMatching.Tables.PopPoRcptApplyTemp.PopReceiptNumber.Value
Dim intPopReceiptLine As Int32 = Dynamics.Forms.PopInvoiceMatching.Tables.PopPoRcptApplyTemp.ReceiptLineNumber.Value
'data access object to retrieve data from POP30310 (POP Rct Line Hist)
Dim oPOP30310 As New DynData.POP30310(strPopRecipt, intPopReceiptLine, App.Database)
If Not oPOP30310.isPopulated Then
Exit Sub
End If
'update a field that has been added to the LineScroll
DynamicsModified.Forms.PopInvoiceMatching.PopInvoiceMatching.LineScroll.LocalBol.Value = oPOP30310.BOLPRONUMBER
Catch ex As Exception
Throw ex
End Try
End Sub