Get item's id, brand, size and category in ax 2012

static void FilterRecord(Args _args)
{
    EcoResProductCategory   ecoResProductCategory;
    EcoResProduct           ecoResProduct;
    InventTable             inventTable;
    InventTableModule       inventTableModule;
    EcoResCategory          ecoResCategory;
    S3_ItemMasterPurchase   S3_ItemMasterPurchaseloc,S3_ItemMasterPurchaselocal;
    int                     a;
    int64                   ecoresrecid,ecoresprodrecid;
    real                    mrp;
    boolean                 ret;


      while select ecoResProduct
        join inventTable where inventTable.Product == ecoResProduct.RecId //&& inventTable.PrimaryVendorId == "<Vendor Name>"
        join ecoResProductCategory where ecoResProductCategory.Product == ecoResProduct.RecId
        join ecoResCategory where ecoResCategory.RecId == ecoResProductCategory.Category
    {

        if(/*inventTable.StandardInventSizeId == "200x300" && inventTable.StandardConfigId == "BASIC"  &&*/ ecoResCategory.Name == "Durashield"/* && inventTable.PrimaryVendorId == "SOBER CERAMICS"*/)
       // {
            // ecoresrecid = ecoResCategory.RecId;
            info(strFmt("%1,%2",inventtable.ItemId,inventtable.StandardConfigId));
           }
   }
}
         

Get amount in words in ax 2012

Get amount in words in ax 2012

static void amount2words(Args _args)
{
    real amount = 1011.05;
    int numOfPennies = frac(amount)*100 mod 100;
    int test = real2int(round(amount,0));
    int paise;
    int numOfTenths;
    str 20 ones[19], tenths[9], hundreds, thousands, lakhs, crores, millions, billions;
    str 40 textpaise;
    int tmpnumofpennies;
    int temp;
    str 200 returntxt;

    int checkPower(int _test, int _power)
    {
    int numOfPower;

    if (_test >= _power)
    {
    numOfPower = _test DIV _power;
    if (numOfPower >= 100)
    {
    temp = numOfPower DIV 100;
    returntxt = returntxt + ' ' + ones[temp] + ' ' + hundreds;
    numOfPower = numOfPower MOD 100;
    }
    if (numOfPower >= 20)
    {
    temp = numOfPower DIV 10;
    returntxt = returntxt + ' ' + tenths[temp];
    numOfPower = numOfPower MOD 10;
    }
    if (numOfPower >= 1)
    {
    returntxt = returntxt + ' ' + ones[numOfPower];
    numOfPower = numOfPower MOD 10;
    }
    switch(_power)
    {
    case 1000000000 :
    {
    returntxt = returntxt + ' ' + billions;
    _test = _test MOD 1000000000;
    break;
    }
    case 10000000 :
    {
    returntxt = returntxt + ' ' + crores;
    _test = _test MOD 10000000;
    break;
    }
    case 100000 :
    {
    returntxt = returntxt + ' ' + lakhs;
    _test = _test MOD 100000;
    break;
    }
    case 1000 :
    {
    returntxt = returntxt + ' ' + thousands;
    _test = _test MOD 1000;
    break;
    }
    case 100 :
    {
    returntxt = returntxt + ' ' + hundreds;
    _test = _test MOD 100;
    break;
    }
    }
    }
    return _test;
    }

    ones[1] = "@SYS26620";
    ones[2] = "@SYS26621";
    ones[3] = "@SYS26622";
    ones[4] = "@SYS26626";
    ones[5] = "@SYS26627";
    ones[6] = "@SYS26628";
    ones[7] = "@SYS26629";
    ones[8] = "@SYS26630";
    ones[9] = "@SYS26631";
    ones[10] = "@SYS26632";
    ones[11] = "@SYS26633";
    ones[12] = "@SYS26634";
    ones[13] = "@SYS26635";
    ones[14] = "@SYS26636";
    ones[15] = "@SYS26637";
    ones[16] = "@SYS26638";
    ones[17] = "@SYS26639";
    ones[18] = "@SYS26640";
    ones[19] = "@SYS26641";

    tenths[1] = 'Not used';
    tenths[2] = "@SYS26643";
    tenths[3] = "@SYS26644";
    tenths[4] = "@SYS26645";
    tenths[5] = "@SYS26646";
    tenths[6] = "@SYS26647";
    tenths[7] = "@SYS26648";
    tenths[8] = "@SYS26649";
    tenths[9] = "@SYS26650";

    hundreds = "@SYS26651";
    thousands = "@SYS26652";
    lakhs = "Lakh";
    crores = "Crore";
    millions = "@SYS26653";
    billions = "@SYS26654";
    test = checkPower(test, 1000000000);
    test = checkPower(test, 10000000);
    test = checkPower(test, 100000);
    test = checkPower(test, 1000);
    test = checkPower(test, 100);

    if (test >= 20)
    {
    numOfTenths = test DIV 10;
    returntxt = returntxt + ' ' + tenths[numofTenths];
    numOfTenths = numOfTenths MOD 10;
    test = test MOD 10;
    }
    if (test >= 1)
    {
    numOfTenths = test;
    returntxt = returntxt + ' ' + ones[numOfTenths];
    }
    if (numOfPennies)
    {
    returntxt = returntxt + ' ' + "@SYS5534" +"\n\n";
    }
    paise=numofPennies;
    if(paise)
    {
    if(paise >=20)
    {
    numofTenths= paise DIV 10;
    returntxt=returntxt + ' '+tenths[numofTenths];
    numofTenths = numofTenths MOD 10;
    paise=paise MOD 10;
    }
    if(paise >=1)
    {
    numOfTenths=paise;
    returntxt=returntxt+ ' '+ones[numOfTenths];
    }
    returntxt=returntxt+" Paise";
    }

    info(strFmt("%1",returntxt + " Only"));
}

Get Vendor Id based on Vender's Name in ax 2012

static void VendorId(Args _args)
{
    VendTable       VendTableloc;
    DirPartyTable   DirPartyTableloc;
    str a;

    select DirPartyTableloc join VendTableloc where DirPartyTableloc.Name == "Test" && VendTableloc.Party == DirPartyTableloc.RecId;

    a = VendTableloc.AccountNum;

   info(strfmt("%1",a));
}

How to track item's address in ax 2012

static void S3_TrackItemsAddress(Args _args)
{
    VendTable               vendTable;
    str                     description, address, city;
    InventTable             inventTable;
    DirPartyTable           DirPartyTableloc;
    ;

select inventTable where inventTable.ItemId == salesline.ItemId;
        select DirPartyTableloc
        join vendTable where DirPartyTableloc.Name == inventTable.PrimaryVendorId &&
             vendTable.Party == DirPartyTableloc.RecId;

        vendTable   = VendTable::find(vendTable.AccountNum);
        description = DirParty::primaryPostalAddress(vendTable.Party).displayLocationDescription();
     
        address     = DirParty::primaryPostalAddress(vendTable.Party).Address;

        city        = DirParty::primaryPostalAddress(vendTable.Party).City;

    info(strFmt("%1,%2, %3", description,city, address));
}

Importing a General Journal using Data Import/Export Framework in AX 2012 R3

Importing a General Journal using Data Import/Export Framework in AX 2012 R3

Here is a tutorial on how to configure Dynamics AX 2012 to import a general journal from a CSV file. The steps below are using Contoso demo data.

1. Create a new folder on the root of the C: Drive and name it “DIEF”:
   
2. Navigate to Data import export framework | Setup | Data import export framework parameters. Click “Browse” next to “Shared working directory” and select the “DIEF” folder we created. Once selected, click “Validate”.
   
3. Close the “Data import export framework parameters” form.
4. Go to Data import export framework | Setup | Source data formats. Enter “GLJOURNAL” for the “Source name” and “Type” = “File. In the parameters on the right side, enter “File format” = “Delimited”, “First row header” = TRUE, “Row delimiter” = “{CR}{LF}”, “Column delimiter” = “Comma {,}”, “Text Qualifier” = “*”, and “Role separator” = “;”. Click “Application”, and then select “CostCenter”, “Department”, and “ExpensePurpose”. Enter “CostCenter-Department-ExpensePurpose” for the “Dimension format” value.
   
   
5. Go to Data import export framework | Setup | Target entities. Click “New” and enter “Entity type” = “Entity”, “Entity” = “Custom”, “Entity name” = “GLJOURNAL”, “Staging table” = “DMFLedgerJournalEntity”, “Entity class” = “DMFLedgerBalanceEntityClass”, and “Target entity” = “DMFLedgerJournalTransEntity”. Close the “Target entites” form.
   
6. Go to Data import export framework | Common | Processing group. Type “GLJOURNAL” for the “Group name”, Ctrl+S to save, and click “Entities”. 
   
7. On the “Select entities for processing group” form, enter “GLJOURNAL” for both the “Entity name” and the “Source data format”. Click “Generate source file”.
   
8. On the “Wizard” form, click “Next”. For the “Display data” fields, select the following and put them in the following sequence: JournalName, JournalNum, LineNum, CurrencyCode, TransDate, Voucher, AccountType, LedgerDimension, AmountCurDebit, AmountCurCredit, OffsetAccountType, OffsetLedgerDimension. Click “Generate sample file”.
   
9. A .txt file should open, and save it to the root of the C: drive.
   
10. Click “Finish” on the “Wizard” form. Close the “Select entities for processing group” form. Close the “Processing group” form.
11. Go to General ledger | Setup | General ledger parameters. Click “Number sequences”. Right-click “Gene_10” next to “Journal batch number” and click “View details”.
    
12. Click “Edit”, copy the format. To copy click the “General” fast tab and note the “Next” value, in my case format is “INMF-00441”.
    
    
13. Close the “Number sequences” form and the “General ledger parameters” form.
14. Navigate to General ledger | Setup | Journals | Journal names. Select “GenJn” and right-click the “Acco_18” next to “Voucher series”, and then click “View details”.
15. On the “Number sequences” form, click “Edit”. copy the number sequence format as copied earlier. In my case format is, “VN00000038”.
    
16. Close all forms.
17. Open Excel. Click File | Open. Navigate to the C: drive and select the “GLJOURNAL.txt” file (You may need to change the drop menu to “All Files (*.*)”)
18. On the “Text Import Wizard” form, click “Delimited” and click “Next”. Check the box for “Comma” and click “Finish”.
19. In line 2, enter the following values for each header:

1. JournalName = GenJn
2. JournalNum = INMF-00441(Value from step 12)
3. LineNum = 1
4. CurrencyCode = USD
5. TransDate = 01/01/2015
6. Voucher = VN00000038 (Value from step 16)
7. AccountType = Ledger
8. LedgerDimension = 110180-OU_1-OU_3566-Training "Or" 110110-022-001
9. AmountCurDebit = 10
10. OffsetAccountType = Ledger
11. OffsetLedgerDimension = 110101-OU_1-OU_3566-Training "Or" 110120-022-001

• Click File | Save As. Click “CSV (Comma delimited)” for the “Save as type” drop-menu.
  
• Close Excel.
• Go to Data import export framework | Common | Processing group. Select the line for “GLJOURNAL” and click “Entities”.
  
• Click the folder icon next to “Sample file path”, and select the .csv file from step 20. Click “Generate source mapping”. Close the infolog.
  
• Close the “Select entities for processing group” form.
• On the “Processing group” form, select the line for “GLJOURNAL” and click “Get staging data”.
  
• A form for “Create a job ID for the staging data job” should open and populate with a “Job ID”. Click “OK”.
• On the “Staging data execution” form, click “Preview”. Verify the columns are correct, and then click “Run”.
  
• Close the infolog.
  
• On the “Processing group” form, click “Copy data to target”. Select the “Job ID” created earlier, and click “OK”. On the “Target data execution” form, click “Run”, then click “OK”.
  
• Close the Infolog.
  
• Go to General ledger | Journals | General journal. Locate the imported journal, and click “Lines”.
• Notice the values imported properly, and click Post | Post. The journal posts successfully.

reference: https://community.dynamics.com/ax/b/axsupport/archive/2014/07/17/importing-a-general-journal-using-data-import-export-framework-ax-2012.aspx

How to get DateNull in in ax 2012

One of my co new bie developer with the Dot net background had really hard time in figuring out the dateNull in x++ due to two reasons

1. X++ does not have intellisense like Dot net which could help the newbie like my colleague
2. The null value in  x++ debugger is shown as “Zero (0)”. So lots of new bie take the null value for date time as 0 and go in wrong direction

So i just thought to do a simple post on it. I know for a senior or the developer at mid level may find this simple and irrelevant to be posted at the blog, however i think this may help the new developer who are at the edge of starting new career in x++.
So here it goes

DateNull for the date can be checked by two ways

1. Global::DateNull()
2. or like this
   if (endDate != mkdate(1,1,1900)

The minimum value for the date in x++ is 1/1/1900 and max value is 12/31/2154

If you have utcDateTime here is how you can set dateNull and maximum value

todayDate = DateTimeUtil::minValue();
maximumDate =  DateTimeUtil::maxValue();
blankUtcDate = utcDateTimeNull();

reference:: https://dynamicsaxposed.wordpress.com/2010/07/06/how-to-get-datenull-in-axapta-x/

Some Useful date functions in AX 2012

There are a lot of functions in dynamics Ax for dates. Followings are some date time functions I used extensively.

Some times we need to get month, year form date we can get these with the use of following functions in Dynamics ax

int _Months;
int _Years;

//Get day from date
_DayOfMonth =dayOfMth(systemdateget());;
// Get month from date
_Months = dayOfMth(systemdateget());

//Get month from date
//mthOfYr(systemdateget())

//Get year from date
_Years =year(systemdateget());

Mkdate.

This functions help you create date from input values.  For example if you have input for month and year, and want to create date for first of selected month of selected year, you can create it as.

Date _CustomDate;

Date _LastDateOf Month;

Int month_number;

Int years_numbers;

Int day_number;

;

Day_number=1;

Month_number=4 ; // say April

Years_Number=2012;

_customDate =mkdate(Day_number, Month_number, Years_Number);

Info _customDate;

 Endmth;

This method returns the last date of month what ever the date we given to it. for example if we give the above created  date then it will return the last date of april

_LastDateOfMonth = endmth(_customDate);

Usually we need loop through next month, next year , nextQtr,prevQtr, pervious month, pervious year.

 We are use them as

Date _nextDate;

_NextDate = nextMth(today);

_NextDate=prevMth(today);

_NextDate=nextYr(today);

_NextDate =preYr(today);

_NextDate=prevQtr(today);

_NextDate=nextQtr(today);

 Usually we have to convert date to UTCDateTime. That is usally case when we have to query on createdatetime filed of very table, which filled when new row is created.

We for this purpose we have to create use DateTimeUtil::newDateTime function. This function takes two values one for date, and second for time. So time values will be range beween 0 and 86400. It means when value time is 00:00:00 value will be 0 and when time is 23:59:59 then value will be 86400. Consider following code which creates start and end date for same date.

Date _Currentdate;

utcDateTime _UtcStartPeriod;

utcDateTime _UtcEndPeriod;

 ;

 _currentdate=today();

_UtcCurrentPeriod =  DateTimeUtil::newDateTime(_currentdate,0);

_UtcEndPeriod = DateTimeUtil::newDateTime(_UtcEndPeriod,86400);

reference::https://community.dynamics.com/ax/b/alirazatechblog/archive/2012/09/03/some-useful-date-functions-in-dynamics-ax-x.aspx