After receipt process

- change Batch Status

- print report

Userevent materialmangement.receipt, workordermanagement.receipt

 

 

 

BSL: BatchNumber

Userevent materialmanagement.receiptend  , workordermangement.receiptend

 

// only if item Group 9 is defined with "N", we change the Batch status to 0

function ReceiptEnd 
instance bsl b
destroy dtw
declare dtw=ue_datastorevalues
dtw=(v2)select  "IBT1"."ItemCode","IBT1"."BatchNum","OBTN"."SysNumber","IBT1"."Quantity" &
   from "IBT1"  &
   inner join "OBTN" on "OBTN"."ItemCode"="IBT1"."ItemCode" and "OBTN"."DistNumber"="IBT1"."BatchNum"  &
   inner join "OITM" on "OITM"."ItemCode"="IBT1"."ItemCode"  and "OITM"."QryGroup9" <>'Y' &
   where "IBT1"."BaseType"=59 and "IBT1"."BaseEntry"=<e_ReceiptDocEntry> ;
for=loop=1=<dtw.rowcount>
   b.put=BatchNumber("<dtw.itemcode>",<dtw.SystemNumber>)<tab>{"Status":"0"}
   if <b.ret_code> <> 1 then
       messagebox=error$$<b.ret_text>
   end if
next
destroy=dtw
end function

 

Example Notes