PurchHeader.RESET();
PurchHeader.SETRANGE("Document Type", PurchHeader."Document Type"::Quote);
PurchHeader.SETRANGE(Status, PurchHeader.Status::Released); // Only Released quotes
if PurchHeader.FINDSET() THEN BEGIN
REPEAT
if not First then
PurchNumbers += '|';
PurchNumbers += PurchHeader."No.";
First := FALSE;
PurchQuoteToOrder.RUN(PurchHeader);
UNTIL PurchHeader.NEXT() = 0;
END;
// Sleep(30000); // Not working
if PurchNumbers <> '' then begin
PurchHeader.RESET();
PurchHeader.SETRANGE("Document Type", PurchHeader."Document Type"::Order);
PurchHeader.SETRANGE("Quote No.", PurchNumbers);
// SEND MAIL - PO Numbers
if PurchHeader.FindSet() then begin //this block never executes if multiple PQs are convereted