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
    inventDim_From.clear();
    inventDim_From.InventLocationId     = '01';
    inventDim_From.modifiedField(fieldNum(InventDim,InventLocationId));
    inventDim_From                      = InventDim::findOrCreate(inventDim_From);

    inventDim_To.clear();
    inventDim_To.InventLocationId  = '02';
    inventDim_To.modifiedField(fieldNum(InventDim,InventLocationId));
    inventDim_To                   = InventDim::findOrCreate(inventDim_To);


    inventJournalTrans.clear();
    inventJournalTrans.initFromInventJournalTable(inventJournalTable);
    inventJournalTrans.TransDate        = systemDateGet();
    inventJournalTrans.ItemId           = '';
    inventJournalTrans.initFromInventTable(InventTable::find(inventJournalTrans.ItemId));
    inventJournalTrans.Qty              = -1;
    inventJournalTrans.InventDimId      = inventDim_From.inventDimId;
    inventJournalTrans.ToInventDimId    = inventDim_To.inventDimId;
    inventJournalTrans.CostAmount       = inventJournalTrans.calcCostAmount();
    inventJournalTrans.insert();

     //Post
     journalCheckPost = InventJournalCheckPost::newPostJournal(inventJournalTable);
     journalCheckPost.run();
}

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                         iLoop;              for (iLoop=0 ; iLoop < SysDictEnum.values(); iLoop++)     {         info(SysDictEnum.index2Label(iLoop));     }
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                           qty;     dialog = new Dialog("Read data from csv file");     dfFileName = dialog.addField(extendedTypeStr("FilenameOpen"));     dialog.filenameLookupFilter(['csv','*.csv']);     if (dialog.run())     {         csvFile = new CommaTextIo(dfFileName.value(), 'r');         csvFile.inFieldDelimiter(',');         readCon = csvFile.read();         ttsBegin;         while(csvFile.status() == IO_Status::OK)         {             readCon = csvFile.read();    
Read more