As per me you can not do this with production order. you can do the same with issue for production if you dont have the stock.
may be below can help for you.
------------------------You can not issue more then planned------------------
IF (@object_type = '60' AND @transaction_type= 'A')
and (Select top 1 i.BaseType from IGE1 i
Where i.DocEntry = @list_of_cols_val_tab_del)=202
BEGIN
if exists
(Select p.DocEntry
From WOR1 p
Where
p.DocEntry=(select top 1 i.BaseEntry from IGE1 i where i.DocEntry = @list_of_cols_val_tab_del)
and p.PlannedQty<p.IssuedQty)
Begin
set @error =1
set @error_message = 'You can not issue more then planned !'
End
END