Could you please provide me a sample plugin code for the following V6 "Manufacturing Requistions - Save Request" breakout.
Dim SerialNo
Dim TotalReqdQty
Dim oLine
Dim LineKey
If BatchObject.BillProduction <> 1 Then
SerialNo = VBFormObject.txtreference.text
LineKey = VBFormObject.grdSerialBill.Text("LineKey",1)
TotalReqdQty = VBFormObject.grdbase.text("QTY",1)
If LineKey = "" Then
LineKey = BatchObject.m_Lines.Item(1).m_oBoMs.Item(1).m_oLineDetails.AddNoObject()
End If
Set oLine = BatchObject.m_Lines.Item(1).m_oBoMs.Item(1).m_oLineDetails.Item(LineKey)
oLine.QtyTaken = TotalReqdQty
oLine.QtyIntoStock = TotalReqdQty
oLine.SerialNo = SerialNo
End If
End Sub
Regards
Dimuthu