Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Documentation()
- ILE - OnPreDataItem()
- ILE - OnAfterGetRecord()
- NeedShow:=FALSE;
- BaseQuan:=ILE.Quantity;
- RemainingQuan:=ILE."Remaining Quantity";
- MinusQuan339:=0;
- MinusQuan32:=0;
- t339.SETCURRENTKEY("Item Ledger Entry No.","Inbound Item Entry No.","Outbound Item Entry No.");
- t339.SETRANGE(t339."Inbound Item Entry No.",ILE."Entry No.");
- t339.SETFILTER(t339."Item Ledger Entry No.",'<>%1',ILE."Entry No.");
- IF t339.FIND('-') THEN
- REPEAT
- t32_2.GET(t339."Outbound Item Entry No.");
- IF t32_2."Location Code"=ILE."Location Code" THEN
- MinusQuan339+=t339.Quantity;
- // IF t32.GET(t339."Item Ledger Entry No.") THEN MinusQuan32+=t32.Quantity;
- UNTIL t339.NEXT=0;
- //IF ((BaseQuan-RemainingQuan+MinusQuan339)<>0) OR ((BaseQuan-RemainingQuan+MinusQuan32)<>0) THEN NeedShow:=TRUE;
- IF ((BaseQuan-RemainingQuan+MinusQuan339)<>0) THEN NeedShow:=TRUE;
- IF NOT NeedShow THEN CurrReport.SKIP;
- ILE - OnPostDataItem()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement