Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.91 KB | None | 0 0
  1. Documentation()
  2. ILE - OnPreDataItem()
  3.  
  4. ILE - OnAfterGetRecord()
  5. NeedShow:=FALSE;
  6. BaseQuan:=ILE.Quantity;
  7. RemainingQuan:=ILE."Remaining Quantity";
  8. MinusQuan339:=0;
  9. MinusQuan32:=0;
  10. t339.SETCURRENTKEY("Item Ledger Entry No.","Inbound Item Entry No.","Outbound Item Entry No.");
  11. t339.SETRANGE(t339."Inbound Item Entry No.",ILE."Entry No.");
  12. t339.SETFILTER(t339."Item Ledger Entry No.",'<>%1',ILE."Entry No.");
  13. IF t339.FIND('-') THEN
  14. REPEAT
  15. t32_2.GET(t339."Outbound Item Entry No.");
  16. IF t32_2."Location Code"=ILE."Location Code" THEN
  17. MinusQuan339+=t339.Quantity;
  18. // IF t32.GET(t339."Item Ledger Entry No.") THEN MinusQuan32+=t32.Quantity;
  19. UNTIL t339.NEXT=0;
  20. //IF ((BaseQuan-RemainingQuan+MinusQuan339)<>0) OR ((BaseQuan-RemainingQuan+MinusQuan32)<>0) THEN NeedShow:=TRUE;
  21. IF ((BaseQuan-RemainingQuan+MinusQuan339)<>0) THEN NeedShow:=TRUE;
  22. IF NOT NeedShow THEN CurrReport.SKIP;
  23.  
  24. ILE - OnPostDataItem()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement