//Procedure = SalesLineCombinationExist
TempSalesLine.SetFilter("No.", SalesLine."No.");
TempSalesLine.SetFilter("SCH Style Name", SalesLine."SCH Style Name");
TempSalesLine.SetFilter("SCH Color Name", SalesLine."SCH Color Name");
TempSalesLine.SetFilter("SCH Construction Code", SalesLine."SCH Construction Code");
if not TempSalesLine.FindSet() then
repeat
TempSalesLine.Init();
TempSalesLine."No." := SalesLine."No.";
TempSalesLine."Document Type" := SalesLine."Document Type";
TempSalesLine."Document No." := SalesLine."No.";
TempSalesLine."SCH Style Name" := SalesLine."SCH Style Name";
TempSalesLine."SCH Color Name" := SalesLine."SCH Color Name";
TempSalesLine."SCH Construction Code" := SalesLine."SCH Construction Code";
TempSalesLine.Insert();
exit(true);
until (TempSalesLine.Next() = 0)
else
exit(false)
-------------------------------------------------------------------------------------------------------------------------------------------------------------
//Procedure that calls SalesLineCombinationExist
SalesLine: Record "Sales Line";
PurchHeader: Record "Purchase Header";
CreateDropShipPO: Codeunit "Purch.-Get Drop Shpt.";
SalesLine.SetCurrentKey("SCH Style Name");
SalesLine.SetRange("Document Type", SalesHeader."Document Type");
SalesLine.SetRange("Document No.", SalesHeader."No.");
SalesLine.SetFilter("SCH Style Name", '<>%1', '');
while SalesLine.Next() <> 0 do
if SalesLineCombinationExist(SalesLine) then begin
PurchHeader := CreatePurchHeader(SalesLine, SalesHeader);
Clear(CreateDropShipPO);
Run(PurchHeader);
SCH_UpdateNewDropShipPurchLine(PurchHeader, SalesLine);
end;