Программная разноска накладной со строками из нескольких заказов

[Ace of Database]

Получилось!

static void Job1(Args _args)
{
    SalesFormLetter letter=SalesFormLetter::construct(DocumentStatus::Invoice);
    SalesParmLine   parmLine;
    salesLine       salesLine;
    SalesParmTable  SalesParmTable;
    salesParmUpdate salesParmUpdate;
;
    ttsBegin;
    letter.transDate(systemDateGet());
    letter.multiForm(true);
    letter.specQty(SalesUpdate::All);
    letter.printFormLetter    (true);

    letter.createParmUpdate();
    select forupdate firstonly salesParmUpdate where
        salesParmUpdate.RecId == letter.salesParmUpdate().RecId;
    salesParmUpdate.SumBy = AccountOrder::Account;
    salesParmUpdate.update();
    letter.salesParmUpdate(salesParmUpdate);

    letter.initParameters(letter.salesParmUpdate(),
                        PrintOut::Current);  // Printout

    //1-й заказ
    letter.createParmTable(SalesParmTable, SalesTable::find("000151482"));
    SalesParmTable.DocumentDate = SalesTable::find("000151482").DeliveryDate;
    SalesParmTable.Transdate = SalesTable::find("000151482").DeliveryDate;
    SalesParmTable.insert();

    //2-й заказ
    SalesParmTable.clear();
    letter.createParmTable(SalesParmTable, SalesTable::find("000151483"));
    SalesParmTable.DocumentDate = SalesTable::find("000151482").DeliveryDate;
    SalesParmTable.Transdate = SalesTable::find("000151482").DeliveryDate;
    SalesParmTable.insert();

    //строка 1-го заказа
    select firstonly salesLine where salesLine.SalesId == "000151482" && salesLine.ItemId == "114014010";
    letter.createParmLine(salesLine);
    //строка 2-го заказа
    select firstonly salesLine where salesLine.SalesId == "000151483" && salesLine.ItemId == "11401401004";
    letter.createParmLine(salesLine);

    letter.run();
    ttscommit;
}