Import Purchase Trade agreements in Ax 2012 using CSV file

Hi,
The below job is used to import the purchase trade agreement journal lines.

//To create the purchase trade agreement lines.
//Forthis, just create the Journal header first and import the lines by using this job
 static void CreatePurchTradeAgreementLines(Args _args){CommaIO     csvFile;
container   readCon;
counter     icount,inserted;
Dialog      dialog;
DialogField dfFileName;
FileName    fileName;
itemId      itemId;
AmountCur   amount;str         strFromdate,strTodate,type;TransDate   fromDate, toDate;    
PurchUnit   purchUnitId;
PriceDiscJournalNum journalNum;
TableGroupAll TableGroupAll;
   
AxPriceDiscAdmTrans axPriceDiscAdmTrans;

PriceDiscAdmTrans   priceDiscAdmTrans;
InventDim           inventDim;
InventDimId         inventDimId;
CurrencyCode        currencyCode;
  inserted =0;
#File
dialog = new Dialog("Pick the file");

dfFileName = dialog.addField(extendedTypeStr(FileNameOpen));
dialog.filenameLookupFilter(["All files", #AllFiles]);

if(dialog.run())
{
    filename = dfFileName.value();
} 
 csvFile = new CommaIO(filename,'r');
if(csvFile)
{
 ttsbegin;
inventDim.clear();
inventDim.InventSiteId = "1";
inventDimId = inventDim::findOrCreate(inventDim).inventDimId;
currencyCode = Ledger::accountingCurrency(); //AED
while (csvFile.status() == IO_Status::OK)
{
readCon = csvFile.read(); if(readCon)
{
itemId = conPeek(readCon, 1);
amount = conPeek(readCon, 2);
strFromdate = conPeek(readCon, 3);
strTodate = conPeek(readCon, 4);
type = conPeek(readCon, 5);
purchUnitId = conPeek(readCon, 6);
journalNum = conPeek(readCon, 7);
 fromDate = dateNull();
toDate = dateNull();


if (strFromdate)
fromDate = str2Date(strFromdate,123);

if (strTodate)
toDate = str2Date(strTodate,123);
axPriceDiscAdmTrans = new AxPriceDiscAdmTrans();

axPriceDiscAdmTrans.parmAccountCode(TableGroupAll::GroupId);//5
axPriceDiscAdmTrans.parmAccountRelation("ISC");


axPriceDiscAdmTrans.parmItemCode(TableGroupAll::Table);  axPriceDiscAdmTrans.parmItemRelation(itemId); //1

axPriceDiscAdmTrans.parmAmount(amount); //2

axPriceDiscAdmTrans.parmFromDate(fromdate);//3

axPriceDiscAdmTrans.parmToDate(todate); // 4

axPriceDiscAdmTrans.parmUnitId(purchUnitId); //6

axPriceDiscAdmTrans.parmJournalNum(journalNum); //7


axPriceDiscAdmTrans.parmrelation(PriceType::PricePurch);  axPriceDiscAdmTrans.parmCurrency(currencyCode); //AED

axPriceDiscAdmTrans.parmInventDimId(inventDimId);//inventDimid for site 1;

axPriceDiscAdmTrans.save();
                icount++;

inserted++;

}

}
ttsCommit;
info(strfmt("%1 records inserted out of %2",inserted,icount));
}
 *******************
Sample File
 
0000000007,10,01/01/2015,12/01/2015,Group,TON,SEFL-00020
0000000008,5.50,01/01/2015,12/01/2015,Group,TON,SEFL-00020
0000000010,2.5,01/01/2015,,Group,TON,SEFL-00027
 

Comments

Post a Comment

Popular posts from this blog

x++ code to Generate cheque for vendor payment journal

Hi, X++ code to generate check (cheque) from Vendor payment journal (generate payments). Note: In the Method of payment field, select a method of payment that uses the Check export file format. //*********************************** /*To print check     1) PaymMode - must be filled in LedgerJournalTrans (in paymMode = export format to be check)     2) OffsetAccountType = Bank in LedgerJournalTrans     3) Generate Payment dialog, bank account = Offset Bank account in LedgerJournalTrans*/ //************************************* static void GenerateCheque_VendorPayment(Args _args) {     LedgerJournalTrans      LedgerJournalTrans = LedgerJournalTrans::findRecId(5637186584, true);     VendSumForPaym          vendSumForPaym;     boolean                 runDialog;     LedgerJournalCheckPostResults       postingResults_Client;     LedgerPostingMessage                logTxt;     ;     vendSumForPaym = CustVendSumForPaym::newLedgerJournalTrans(LedgerJournalTrans);     runDialog
Read more

Import Procurement Hierarchy / Categories with out code in ax 2012

Hi, To build the procurement category in ax 2012, we are going to use the " EcoResCategoryImportService ". This service is available in the standard ax box. In this article, interest thing is how to build the XML file from EXCEL. I love that. (It is easy to build the xml file, if we know this way) Please refer the link below for the detailed document, http://www.junctionsolutions.com/dynamicsax/loading-a-merchandising-hierarchy-with-no-programming/ Create XML from Excel. https://www.youtube.com/watch?v=9h7TW--M8BU Note: Before import, you must enable the " Execute business operations in CIL" in this path, File > Tools > Options > Development > General > Execute business operations in CIL Thanks, Vijaykarthik
Read more

Copy favorites From one user to another user - Ax 2012

Hi, The below job is used to copy the favorites from one user to another user. static void CopyFavoritesJob(Args _args) { SysPersonalization FromSysPersonalization; SysPersonalization ToSysPersonalization; UserId FromUserId= 'user01' ; UserId ToUserId= 'user03' ; ; ttsbegin ; // step 1 - delete current favorites menu from user while select forupdate ToSysPersonalization where ToSysPersonalization.ElementType==UtilElementType::UserMenu && ToSysPersonalization.UserId==ToUserId { ToSysPersonalization.doDelete(); } // step 2 - duplicate from user01 while select FromSysPersonalization where FromSysPersonalization.UserId==FromUserId && FromSysPersonalization.ElementType==UtilElementType::UserMenu { ToSysPersonalization.data(FromSysPersonalization); ToSysPersonalization.UserId=ToUserId; ToSysPersonalization.doInsert(); } ttscommit
Read more