Basedate date1;
;
info(strfmt('ToDay :%1', ,systemdateget());
info(strfmt('Year:%1', ,year(systemdateget()));
info(strfmt('Day :%1', ,dayofmth(systemdateget()));
info(strfmt("%1",mthofyr(systemdateget()));
date1= mkdate(dayofmth(systemdateget()),mthofyr(systemdateget()),year(systemdateget())));
info(strfmt("%1",date1));
Below Code to get customer Primary Address in Ax 2012. CustTable custTable_P; DirPartyTable dirPartyTable_P; DirPartyLocation dirPartyLocation_P; DirPartyLocationRole dirPartyLocationRole_P; LogisticsLocation logisticsLocation_P; LogisticsLocationRole logisticsLocationRole_P; LogisticsPostalAddress logisticsPostalAddress_P; LogisticsPostalAddress primaryAddress_P; while select custTable_P where custTable_P.AccountNum =='ED_01029' join dirPartyTable_P where dirPartyTable_P.RecId == custTable_P.Party join dirPartyLocation_P where dirPartyLocation_P.Party == custTable_P.Party && dirPartyLocation_P.IsPrimary==NoYes::Yes join dirPartyLocationRole_P where dirPartyLocationRole_P.PartyLocation == dirPartyLocation_P.RecId join logisticsLocationRole_P where logisticsLocationRole_P.RecId == dirPartyLocationRole...