I have the following code which I'm using to create new part lots, based on values picked up from a customised version of table UD10:
Private sub createBox
dim newLotPanel as boolean
_orderNum = txtJobNum.text
if _orderNum <> "" then
_lotID = "Box:" & _orderNum
_lotDesc = "Box lot for SO " & _orderNum
_partNum = txtPartNum.text
partLotAdapter = New LotSelectUpdateAdapter(UD10Form)
Try
partLotAdapter.boConnect()
newLotPanel = partLotAdapter.InvokeNewLotDialog(_partNum, _lotID)
if newLotPanel then
dim lotsDataSet as Data.Dataset = partLotAdapter.GetData(_partNum, _lotID)
'lotsDataSet.PartLot(0).PartLotDescription = _lotDesc
end if
Catch ex as exception
messagebox.show(ex.message,"Exception",messageboxbuttons.OK, messageboxicon.error)
End try
else
Messagebox.show("No job number selected","Error",messageboxbuttons.OK, messageboxicon.error)
exit sub
End if
End sub
This works inasmuch as a new part lot is created for the correct part but I have a question
:
The above code produces a dialog box on screen where I can enter a description for the new lot and also potentially alter the lot ID.
If I attempt to enter a description into this box as soon as I touch a key it throws an exception.
Is there a way of creating the new lot without having to go through this dialog box ?
Thanks
B
Private sub createBox
dim newLotPanel as boolean
_orderNum = txtJobNum.text
if _orderNum <> "" then
_lotID = "Box:" & _orderNum
_lotDesc = "Box lot for SO " & _orderNum
_partNum = txtPartNum.text
partLotAdapter = New LotSelectUpdateAdapter(UD10Form)
Try
partLotAdapter.boConnect()
newLotPanel = partLotAdapter.InvokeNewLotDialog(_partNum, _lotID)
if newLotPanel then
dim lotsDataSet as Data.Dataset = partLotAdapter.GetData(_partNum, _lotID)
'lotsDataSet.PartLot(0).PartLotDescription = _lotDesc
end if
Catch ex as exception
messagebox.show(ex.message,"Exception",messageboxbuttons.OK, messageboxicon.error)
End try
else
Messagebox.show("No job number selected","Error",messageboxbuttons.OK, messageboxicon.error)
exit sub
End if
End sub
This works inasmuch as a new part lot is created for the correct part but I have a question
:
The above code produces a dialog box on screen where I can enter a description for the new lot and also potentially alter the lot ID.
If I attempt to enter a description into this box as soon as I touch a key it throws an exception.
Is there a way of creating the new lot without having to go through this dialog box ?
Thanks
B