AX 2009 创建普通日记账

?

void createLedgerJournal(IWS_PurchSettlementDetailsTable _detailsTable)

{

    LedgerJournalName       ledgerJournalName;

    LedgerJournalTable      ledgerJournalTable;

    LedgerJournalTrans      ledgerJournalTrans;

    LedgerJournalCheckPost  ledgerJournalCheckPost;

    NumberSeq               numberseq;

    LedgerJournalNameId     ledgerJournalNameId = "GL"; //General Journal

    VendTrans               vendTrans;

    VendTransOpen           transOpen;

    IWS_VendInvoice         vendInvoice;

    LedgerJournalEngine     ledgerJournalEngine;

    VendTable               vendTable;

    Voucher                 voucher;

    CustVendOpenTransManager manager;

    //LedgerJournalTxt        journalTxt;

    ;

    ttsbegin;

 

    select firstonly ledgerJournalTable

        where ledgerJournalTable.IWS_VendSettlementId == _detailsTable.VendSettlementId;

    if(ledgerJournalTable.RecId)

    {

        throw error(strfmt("@IWS1399",_detailsTable.VendSettlementId,

                                      ledgerJournalTable.JournalNum));

    }

    //create ledgerjournalTable

    ledgerJournalTable.clear();

    ledgerJournalTable.JournalNum   = JournalTableData::newTable(ledgerJournalTable).nextJournalId();

    vendTable                       = VendTable::find(_detailsTable.VendAccount);

    ledgerJournalName               = LedgerJournalName::find(LedgerJournalNameId);

    ledgerJournalTable.JournalName  = ledgerJournalName.JournalName;

    ledgerJournalTable.initFromLedgerJournalName();

    ledgerJournalTable.Name         = "@IWS1378";

    ledgerJournalTable.IWS_VendSettlementId = _detailsTable.VendSettlementId;

    ledgerJournalTable.doInsert();

 

    //create ledgerjournalTrans

    ledgerJournalEngine = new LedgerJournalEngine();

    ledgerJournalEngine.ledgerJournalTable(ledgerJournalTable);

 

    select sum(TotalAmount) from vendInvoice

        where vendInvoice.VendSettlementId == _detailsTable.VendSettlementId;

    numberseq                               = NumberSeq::newGetVoucherFromCode(ledgerJournalName.VoucherSeries);

    voucher                                 = numberseq.voucher();

    ledgerJournalTrans.Voucher              = voucher;

    ledgerJournalTrans.initValue();

    ledgerJournalTrans.JournalNum           = ledgerJournalTable.JournalNum;

    ledgerJournalTrans.AccountType          = LedgerJournalACType::Vend;

    ledgerJournalTrans.AccountNum           = _detailsTable.VendAccount;

    ledgerJournalTrans.TransDate            = systemdateget();

    ledgerJournalTrans.OffsetAccountType    = LedgerJournalACType::Ledger;

    ledgerJournalTrans.Txt                  = "@IWS1378";

    ledgerJournalEngine.IWS_initFromVendTable(ledgerJournalTrans,vendTable);

    ledgerJournalTrans.AmountCurDebit       = decround(vendInvoice.TotalAmount,2);

    ledgerJournalTrans.SettleVoucher        = SettlementType::SelectedTransact;

    ledgerJournalTrans.DocumentNum          = _detailsTable.VendSettlementId;

    ledgerJournalTrans.insert();

    select firstonly transOpen

        join  vendTrans

        where transOpen.AccountNum  == vendTrans.AccountNum

           && transOpen.RefRecId    == vendTrans.RecId

           && vendTrans.Invoice     == _detailsTable.VendSettlementId

           && vendTrans.AccountNum  == _detailsTable.VendAccount;

    if(transOpen.RecId)

    {

        manager = CustVendOpenTransManager::construct(ledgerJournalTrans);

        /*

        manager.calcAndUpdateFine_BR(transOpen.company(),

                                     transOpen,

                                     ledgerJournalTrans.TransDate);

        manager.calcAndUpdateFinInterest_BR(transOpen.company(),

                                            transOpen,

                                            ledgerJournalTrans.TransDate);

        */

        manager.updateTransMarked(transOpen, NoYes::Yes);

    }

    else

    {

        throw error(strfmt("@IWS1403",_detailsTable.VendAccount,

                                      _detailsTable.VendSettlementId));

    }

    //create branch ledgerjournaltrans

    while select vendInvoice

        where vendInvoice.VendSettlementId == _detailsTable.VendSettlementId

    {

        ledgerJournalTrans.clear();

        ledgerJournalTrans.Voucher              = voucher;

        ledgerJournalTrans.initValue();

        ledgerJournalTrans.JournalNum           = ledgerJournalTable.JournalNum;

        ledgerJournalTrans.AccountType          = LedgerJournalACType::Vend;

 

        ledgerJournalTrans.AccountNum           = _detailsTable.VendAccount;

        ledgerJournalTrans.TransDate            = systemdateget();

        ledgerJournalTrans.OffsetAccountType    = LedgerJournalACType::Ledger;

        ledgerJournalTrans.Txt                  = "@IWS1378";

        ledgerJournalEngine.IWS_initFromVendTable(ledgerJournalTrans,vendTable);

        ledgerJournalTrans.AmountCurCredit      = decround(vendInvoice.TotalAmount,2);

        //ledgerJournalTrans.SettleVoucher        = SettlementType::SelectedTransact;

        ledgerJournalTrans.Invoice              = vendInvoice.InvoiceId;

        ledgerJournalTrans.insert();

    }

 

    //create branch ledgerjournaltrans tax

    while select vendInvoice

        where vendInvoice.VendSettlementId == _detailsTable.VendSettlementId

    {

        ledgerJournalTrans.clear();

        ledgerJournalTrans.Voucher              = voucher;

        ledgerJournalTrans.initValue();

        ledgerJournalTrans.JournalNum           = ledgerJournalTable.JournalNum;

        ledgerJournalTrans.AccountType          = LedgerJournalACType::Ledger;

 

        ledgerJournalTrans.AccountNum           = "22210101";

        ledgerJournalTrans.TransDate            = systemdateget();

        ledgerJournalTrans.OffsetAccountType    = LedgerJournalACType::Ledger;

        //ledgerJournalTrans.SettleVoucher        = SettlementType::SelectedTransact;

        ledgerJournalTrans.Txt                  = "@IWS1378";

        ledgerJournalEngine.IWS_initFromOffsetAccount(ledgerJournalTrans);

        ledgerJournalTrans.AmountCurCredit      = decround(vendInvoice.TaxAmount,2);

        ledgerJournalTrans.Invoice              = vendInvoice.InvoiceId;

        ledgerJournalTrans.TaxCode              = "C03";

        ledgerJournalTrans.insert();

    }

 

    //create branch ledgerjournaltrans all tax

    select sum(TaxAmount) from vendInvoice

        where vendInvoice.VendSettlementId == _detailsTable.VendSettlementId;

    ledgerJournalTrans.clear();

    ledgerJournalTrans.Voucher              = voucher;

    ledgerJournalTrans.initValue();

    ledgerJournalTrans.JournalNum           = ledgerJournalTable.JournalNum;

    ledgerJournalTrans.AccountType          = LedgerJournalACType::Ledger;

 

    ledgerJournalTrans.AccountNum           = "22210101";

    ledgerJournalTrans.TransDate            = systemdateget();

    ledgerJournalTrans.OffsetAccountType    = LedgerJournalACType::Ledger;

    ledgerJournalTrans.Txt                  = "@IWS1378";

    ledgerJournalEngine.IWS_initFromOffsetAccount(ledgerJournalTrans);

    ledgerJournalTrans.AmountCurCredit      = - decround(vendInvoice.TaxAmount,2);

    //ledgerJournalTrans.SettleVoucher        = SettlementType::SelectedTransact;

    ledgerJournalTrans.Invoice              = _detailsTable.VendSettlementId;

    ledgerJournalTrans.TaxCode              = "C03";

    ledgerJournalTrans.insert();

    ttscommit;

 

    info(strfmt("@IWS1379",_detailsTable.VendSettlementId,

                           ledgerJournalTable.JournalNum));

 

}