Разноска накладной

[ZVV]

О том как в этом случае делать я приводил ссылку в самом начале этого же топика.
Разноска накладной

[kalex_a]

Цитата:

Сообщение от ZVV

О том как в этом случае делать я приводил ссылку в самом начале этого же топика.
Разноска накладной

И так как там описано, тоже делал, все равно не разносит

   select * from purchTable
    join purchLine
        where purchTable.PurchId == rDeferralsJournalTrans.PurchId &&
              (purchLine.PurchId == rDeferralsJournalTrans.PurchId);
    purchLine = PurchLine::findRecId(purchLine.RecId,true);
    purchLine.PurchReceivedNow = rDeferralsJournalTrans.Qty;
    purchLine.InventReceivedNow = rDeferralsJournalTrans.Qty;
    purchLine.Dimension = rDeferralsJournalTrans.Dimension;
    purchLine.update();
    purchFormLetter = PurchFormLetter::construct(DocumentStatus::Invoice);
    purchFormLetter.specQty(PurchUpdate::ReceiveNow);
    
    purchParmTable.clear();
    purchFormLetter.createParmTable(purchParmTable,purchTable);
    purchParmTable.TransDate = systemDateGet();
    purchParmTable.DocumentDate = systemDateGet();
    purchParmTable.insert();
 
    purchFormLetter.createParmLine(purchLine);
    purchParmLine.LineAmount=rDeferralsJournalTrans.AmountCur;
    purchParmLine.insert();
    
    purchFormLetter.createParmUpdate();
    purchParmUpdate = purchFormLetter.purchParmUpdate();
    purchFormLetter.purchParmUpdate(purchParmUpdate);
    
 
    purchFormLetter.initParameters(purchParmUpdate,PrintOut::Current,NoYes::No,NoYes::No,NoYes::No);
    purchFormLetter.run();

[ZVV]

    purchFormLetter.createParmLine(purchLine);
    purchParmLine.LineAmount=lineAmount;
    purchParmLine.insert();

А что это за такой прикольный код?
Созданный purchParmLine надо ещё достать, и проапдэйтить.

[kalex_a]

Цитата:

Сообщение от ZVV

    purchFormLetter.createParmLine(purchLine);
    purchParmLine.LineAmount=lineAmount;
    purchParmLine.insert();

А что это за такой прикольный код?
Созданный purchParmLine надо ещё достать, и проапдэйтить.

ttsbegin;
    select forupdate * from purchParmLine
        where purchParmLine.OrigPurchId==rDeferralsJournalTrans.PurchId &&
              purchParmLine.ParmId==purchFormLetter.parmId();

    purchParmLine.initFromPurchLine(purchLine);
    purchParmLine.initFromParmTable(purchParmTable);
    purchParmLine.LineAmount=rDeferralsJournalTrans.AmountCur;
    purchParmLine.update();
    ttscommit;

так что ли?

[ZVV]

Ну не обязательно так радикально.
Я вообще-то предполагал достать созданную в purchFormLetter.createParmLine(purchLine); запись и её проапдэйтить.