How to create payment with post dated check in Dynamics AX 2012 Through X++

-

How to create payment with post dated check in Dynamics AX 2012 Through X++

static void createPayment(Args _args)
{
    AxLedgerJournalTable                journalTable;
    AxLedgerJournalTrans                journalTrans;

    LedgerJournalTable                  ledgerJournalTable;
    LedgerJournalTrans                  ledgerJournalTrans;
    NumberSeq                               numberseq;
    MainAccountNum                    offsetAccount;


    // create journal table
    journalTable = new AxLedgerJournalTable();
    journalTable.parmJournalName('Payment Journal Name');
    journalTable.parmJournalType(LedgerJournalType::CustPayment);
    journalTable.save();

    ledgerJournalTable = journalTable.ledgerJournalTable();

    //create journal line
    journalTrans = AxLedgerJournalTrans::construct();
    journalTrans.parmJournalNum(ledgerJournalTable.JournalNum);


    numberseq = NumberSeq::NewGetVoucherFromCode(NumberSequenceTable::find(ledgerJournalTable.ledgerJournalName().NumberSequenceTable).NumberSequence);
    journalTrans.parmVoucher(numberseq.voucher());
    journalTrans.parmTransDate(systemDateGet());
    journalTrans.parmCurrencyCode(Ledger::accountingCurrency());
    journalTrans.parmApproved(NoYes::Yes);

    journalTrans.parmAccountType(LedgerJournalACType::Cust);

    journalTrans.parmLedgerDimension(DimensionStorage::getDynamicAccount('Customer account',LedgerJournalACType::Cust)) ;
    journalTrans.parmDefaultDimension(CustTable::find('Customer account').DefaultDimension);

    journalTrans.parmAmountCurDebit(0);
    journalTrans.parmAmountCurCredit(1000);
    journalTrans.parmTxt(strFmt('paymenet description'));
    journalTrans.parmPaymMode('Method of payment');


    JournalTrans.parmOffsetAccountType(LedgerJournalACType::Ledger);
    journalTrans.clearField(fieldNum(LedgerJournalTrans,OffsetLedgerDimension),false);

    offsetAccount = '1000000';
    journalTrans.parmOffsetLedgerDimension(AxdDimensionUtil::getLedgerAccountId([offsetAccount,offsetAccount,0])) ;


    journalTrans.save();
    ledgerJournalTrans = journalTrans.ledgerJournalTrans();

    custVendPDCRegister.initValue();
    custVendPDCRegister.LedgerJournalTrans      = ledgerJournalTrans.RecId;
    custVendPDCRegister.CheckNumber             = '10001';
    custVendPDCRegister.BankName                = 'Bank name';
    custVendPDCRegister.BankBranch              = 'Bank branch';
    custVendPDCRegister.MaturityDate            = 1\5\2016;
    custVendPDCRegister.insert();
}

Comments

Post a Comment

Popular posts from this blog

How to loop through enum in dynamics ax 2012 using x++

-
    Method 1:     SysDictEnum                 sysDictEnum = new SysDictEnum(enumnum(InventTransType));     InventTransType             currentElement;              currentElement= sysDictEnum.firstValue();     do     {         info(strFmt("%1",currentElement));                  currentElement= sysDictEnum.nextValue(currentElement);              } while (currentElement != sysDictEnum.firstValue()); Method 2:     SysDictEnum                 sysDictEnum = new SysDictEnum(enumnum(InventTransType));     InventTransType             currentElement;     int                  ...
Read more

How to read from csv file in Dynamics AX 2012 Through X++

-
How to read from csv file in Dynamics AX 2012 Through X++ static void readFromCSV(Args _args) {     #File     CommaTextIO          csvFile;     container                   readCon;     Dialog                       dialog;     DialogField               dfFileName;     FileName                  fileName;     int                              row;     CustAccount            custAccount;     ItemId                      itemId;     Qty                    ...
Read more

How to Create Transfer Journal in Dynamics AX 2012 Through X++

-
How to Create Transfer Journal in Dynamics AX 2012 Through X++ static void createTransfer(Args _args) {     InventJournalTable              inventJournalTable;     InventJournalNameId          inventJournalName   = 'Journal Name';     InventJournalTrans              inventJournalTrans;     InventDim                            inventDim_From,inventDim_To;     InventJournalCheckPost      journalCheckPost;     //header     inventJournalTable.clear();     inventJournalTable.JournalType  = InventJournalType::Transfer;     inventJournalTable.initFromInventJournalName(InventJournalName::find(inventJournalName));     inventJournalTable.insert();     //lines     inven...
Read more