9. September 2010 20:48
10. September 2010 01:01
10. September 2010 08:37
MCBDEVendorListREC.DELETEALL;
PurchaseLineREC.SETFILTER(PurchaseLineREC."No.",'>0');
IF PurchaseLineREC.FINDSET THEN REPEAT;
MCBDEVendorListREC.SETFILTER(MCBDEVendorListREC."Buy-from Vendor No.",PurchaseLineREC."Buy-from Vendor No.");
IF NOT(MCBDEVendorListREC.FINDFIRST) THEN BEGIN
IF PurchaseLineREC."Outstanding Quantity"<>0 THEN BEGIN
MCBDEVendorListREC."Buy-from Vendor No.":=PurchaseLineREC."Buy-from Vendor No.";
VendorREC.SETFILTER(VendorREC."No.",PurchaseLineREC."Buy-from Vendor No.");
VendorREC.FINDFIRST;
MCBDEVendorListREC.Name:=VendorREC.Name;
MCBDEVendorListREC.INSERT;
END;
END;
UNTIL(PurchaseLineREC.NEXT=0);
10. September 2010 08:59