Hi
Try the below code.
Dim oProductionOrderNo As SAPbobsCOM.ProductionOrders = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oProductionOrders)
If oProductionOrderNo.GetByKey("ProductionOrderEntry") = True Then
oProductionOrderNo.ProductionOrderStatus = SAPbobsCOM.BoProductionOrderStatusEnum.boposClosed
oProductionOrderNo.Update()
End If
Regards
Kartheek