码迷,mamicode.com
首页 > 其他好文 > 详细

过账采购发票

时间:2017-06-13 00:11:28      阅读:291      评论:0      收藏:0      [点我收藏+]

标签:account   change   end   div   form   letter   upd   tran   insert   

大多数场景下,开票前一般都会跟供应商进行收货单的对账,准确无误后,根据协商的金额将所对账的采购订单开一个发票。
在PurchFormLetter中增加一个方法用于根据对账单明细生成对应的Parm表记录(AX2009)。

public void ERM_CreateParmByStatement(ERM_VendStatementTable _statementTable)
{
    ERM_PurchTableInvoice           purchTableInvoice;
    ERM_PurchInvoice                purchInvoice;
    PurchLine                       purchLineLocal;
    ;

    ttsbegin;

    select firstonly purchTableInvoice
    where purchTableInvoice.StatementId == _statementTable.StatementId;

    select firstonly purchInvoice
    where purchInvoice.StatementId == _statementTable.StatementId;

    this.createParmUpdate();

    purchParmUpdate.SpecQty     = PurchUpdate::ReceiveNow;
    purchParmUpdate.SumBy       = AccountOrder::Order;
    purchParmUpdate.SumNum      = _statementTable.StatementId;
    purchParmUpdate.SumPurchId  = purchTableInvoice.PurchId;
    purchParmUpdate.update();

    while select purchTableInvoice
    where purchTableInvoice.StatementId == _statementTable.StatementId
    {
        //info(purchTableInvoice.PurchId);
        purchParmTable.clear();
        purchParmTable.ParmId       = purchParmUpdate.ParmId;
        purchParmTable.PurchId      = purchTableInvoice.PurchId;
        purchParmTable.initFromPurchTable(PurchTable::find(purchParmTable.PurchId));
        purchParmTable.Approved     = NoYes::Yes;
        purchParmTable.Num          = _statementTable.StatementId;
        purchParmTable.TransDate    = purchInvoice.InvoiceDate;
        purchParmTable.insert();

        while select purchLineLocal
        where purchLineLocal.PurchId == purchTableInvoice.PurchId
        {
            if(purchLineLocal.receivedInTotalServer())
            {
                purchParmLine.clear();
                purchParmLine.ParmId = purchParmTable.ParmId;
                purchParmLine.TableRefId    = purchParmTable.TableRefId;
                purchParmLine.initFromPurchLine(purchLineLocal);
                purchParmLine.ReceiveNow = purchLineLocal.receivedInTotalServer();
                purchParmLine.InventNow  = purchLineLocal.receivedInventInTotal();
                purchParmLine.RemainAfter   = 0;
                purchParmLine.RemainAfterInvent = 0;
                purchParmLine.RemainBefore = purchParmLine.ReceiveNow;
                purchParmLine.RemainBeforeInvent    = purchParmLine.InventNow;
                purchParmLine.LineAmount = purchParmLine.calcLineAmountForced();

                purchParmLine.insert();

            }
        }
    }

    this.initParameters();

    this.editLinesChanged(false);
    this.reArrangeNow(true);

    this.validateAll(false);
    this.reArrange(true);
    this.validateAll(true);

    ttscommit;


}

放在这里做备份。

过账采购发票

标签:account   change   end   div   form   letter   upd   tran   insert   

原文地址:http://www.cnblogs.com/Farseer1215/p/6995116.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!