Fixed Asset Creation and Posting

 

AxLedgerJournalTa             journalTable;

AxLedgerJournalTrans        journalTrans;

LedgerJournalTrans             ledgerJournalTrans;

LedgerJournalTable             ledgerJournalTable;

ledgerJournalCheckPost      ledgerJournalCheckPost;

NumberSeq                          NumberSeq;

LedgerJournalTrans_Asset ledgerJournalTrans_Asset;

AssetTable                          assetTable;

AssetBook                          assetBook;

AssetLedgerAccounts        assetLedgerAccounts;

DimensionDefault              offsetLedgerRecid;

LedgerDimensionDefaultAccount defaultAccount;

str AssetId = "DIPL-Mac000002";

journalTable = new AxLedgerJournalTable();

journalTrans = new AxLedgerJournalTrans();

journalTable.parmJournalName("FA17-18");

journalTable.parmJournalType(LedgerJournalType::Assets);

journalTable.save();

journalTrans.parmJournalNum(journalTable.ledgerJournalTable().JournalNum);

journalTrans.parmTransDate(today());

journalTrans.parmTxt("hihjda");

journalTrans.parmCurrencyCode("INR");

journalTrans.parmAmountCurDebit(770);

journalTrans.parmAccountType(LedgerJournalACType::FixedAssets);

journalTrans.parmDefaultDimension(AssetTable::find(AssetId).defaultDimension(AssetId));

journalTrans.parmLedgerDimension(DimensionStorage::getDynamicAccount(AssetId,LedgerJournalACType::FixedAssets));

offsetLedgerRecid = AssetLedgerAccounts::assetOffsetLedgerDimension("DIPL-Mac000002",'SL',AssetTransType::Acquisition,"ALL",true); 

journalTrans.parmOffsetLedgerDimension(journalTrans.ledgerJournalTrans().getOffsetLedgerDimensionForLedgerType(offsetLedgerRecid,journalTrans.ledgerJournalTrans().getOffsetCompany())); 

journalTrans.parmOffsetAccountType(LedgerJournalACType::Ledger);

NumberSeq =NumberSeq::newGetNumFromCode(LedgerParameters::numRefLedgerJournalizeNum().numberSequenceTable().NumberSequence);

journalTrans.parmVoucher(NumberSeq.num());

journalTrans.save();

if (journalTrans.ledgerJournalTrans().isFixedAssetsTransaction())

{

ledgerJournalTrans_Asset.clear();

ledgerJournalTrans_Asset.initValue();

ledgerJournalTrans_Asset.RefRecId = journalTrans.ledgerJournalTrans().RecId;

ledgerJournalTrans_Asset.AssetId = journalTrans.ledgerJournalTrans().getAssetId();

ledgerJournalTrans_Asset.Company = journalTrans.ledgerJournalTrans().getAssetCompany();

ledgerJournalTrans_Asset.TransType = AssetTransTypeJournal::Acquisition;

select BookId from AssetBook where AssetBook.AssetId == "DIPL-Mac000002";

ledgerJournalTrans_Asset.BookId = AssetBook.BookId; //'SL';

ledgerJournalTrans_Asset.insert();

}

info('Insert');

//Posting

ledgerJournalCheckPost = ledgerJournalCheckPost::newLedgerJournalTable(journalTable.ledgerJournalTable(),NoYes::Yes);

ledgerJournalCheckPost.run();

}

Date Field value exporting to excell

 if date value is exported with time and if the date value is null but in excell getting value use follow below to conver date to str.

str documentDate;

if(ledgerJournalTrans.DocumentDate != dateNull())
{
documentDate = date2str(ledgerJournalTrans.DocumentDate,321,DateDay::Digits2,DateSeparator::Slash,DateMonth::Digits2,DateSeparator::Slash,DateYear::Digits4);
}
if(ledgerJournalTrans.DocumentDate == dateNull())
{
documentDate = date2str(dateNull(),321,DateDay::Digits2,DateSeparator::Slash,DateMonth::Digits2,DateSeparator::Slash,DateYear::Digits4);
}
cell = cells.item(Row,30);
cell.value(documentDate);

how to find the year wise week days through X++

static void WeekofDays(Args _args)
{
int i;
date j;
;
info(strFmt("%1",dayOfMth(systemDateGet())));
info(strFmt("%1",dayOfWk(systemDateGet())));
i = dayOfWk(systemDateGet());
switch(i)
{
case WeekDays::Monday :
info("Monday");
break;
case WeekDays::Tuesday:
info("Tuesday");
break;
case WeekDays::Wednesday:
info("Wednesday");
break;
case WeekDays::Thursday:
info("Thursday");
break;
case WeekDays::Friday:
info("Friday");
break;
case WeekDays::Saturday:
info("Saturday");
break;
case WeekDays::Sunday:
info("Sunday");
break;
default:
info("Nothing");
}

for(i=7;i<=365;i+=7)
{
j = systemDateGet()+i;
info(strFmt("%1--%2",date2str(j,123,2,-1,2,-1,4),dayOfMth(j)));
}
}

Free Text invoice values Importing before posting

class BFIL_createDefaultDimension
{
}

public DimensionDefault  createDefaultDimension(container conAttr, container conValue)
{
    DimensionAttributeValueSetStorage       valueSetStorage = new DimensionAttributeValueSetStorage();
    DimensionDefault                        result;
    DimensionAttribute                      dimensionAttribute;
    DimensionAttributeValue                 dimensionAttributeValue;
    str                                     dimValue;
    int                                     i;
    boolean                                 _createIfNotFound = true;

    for (i = 1; i <= conLen(conAttr); i++)
    {
        dimensionAttribute = dimensionAttribute::findByName(conPeek(conAttr,i));
        if (dimensionAttribute.RecId == 0)
        {
            continue;
        }
        dimValue = conPeek(conValue,i);
        if (dimValue != "")
        {
            // The last parameter is "true". A dimensionAttributeValue record will be created if not found.
            dimensionAttributeValue = dimensionAttributeValue::findByDimensionAttributeAndValue(dimensionAttribute,dimValue,false,true);
            // Add the dimensionAttibuteValue to the default dimension
            valueSetStorage.addItem(dimensionAttributeValue);
        }
    }
    result = valueSetStorage.save();
    return result;
}






Public void run(Filename   _filename)
{
    SysExcelApplication                 application;
    SysExcelWorkbooks                   workbooks;
    SysExcelWorkbook                    workbook;
    SysExcelWorksheets                  worksheets;
    SysExcelWorksheet                   worksheet;
    SysExcelCells                       cells;
    COMVariantType                      type;
    Name                                name;
    FileName                            filename;
    LineNum                             lineNum;
    int                                 row = 1;
    CustAccount                         custAccount,precustAccount;
    TransDate                           invDate;
    Description                         invDescription;
    str                                 numberSequenceGroup,accountNo,locationId,mainAccount;
    str                                 Accountingregion,Department,Entities,Product,Purpose,Region,Vendor;// Header Financial Dimensions declaration
    str                                 Accountingregion1,Department1,Entities1,Product1,Purpose1,Region1,Vendor1; //Line Financial Dimensions declaration
    str                                 HSNRate,SACRate,itcCategory,Exempt,HSNCode,SAC,salesTaxGroup;
    str                                 invoiceDate,qty,unitPr,amt;
    Location                            companylocation,Companylocationid,customerlocation,Customerlocationid;
    InvoiceQuantity                     quantity;
    UnitPrice                           unitPrice;
    Amount                              amount;
    String10                            TDSGroup;
    Container                           account,conAttr, conValue;
    int                                 counter =0;
    RefRecId                            ledgerDimension;
    Set                                 failedCustAccount = new Set(Types::String);
    SetEnumerator                       setEnum;
    BFIL_createDefaultDimension         createDefaultDimension;
    NoYes                               noYes;
    ITCCategory_IN                      iTCCategory_IN;

    // tables
    CustTable                           custTable;
    CustInvoiceTable                    custInvoiceTable;
    CustInvoiceLine                     custInvoiceLine,custInvLine;
    ServiceAccountingCodeTable_IN       serviceAccountingCodeTable_IN;
    HSNCodeTable_IN                     hSNCodeTable_IN;
    LogisticsLocation                   logisticsLocation;
    CustInvoiceLineTaxExtensionIN       custInvoiceLineTaxExtensionIN;
    SKS_ServiceAccountingCodeTable_IN   sKS_ServiceAccountingCodeTable_IN;


    str COMVariant2Str(COMVariant _cv, int _decimals = 0,int _characters = 0,int _separator1 = 0,int _separator2 = 0)
       {
            switch(_cv.variantType())
            {
                case (COMVariantType::VT_BSTR):
                    return _cv.bStr();
                case (COMVariantType::VT_R4):
                    return num2str(_cv.float(),_characters,_decimals, _separator1,_separator2);
                case (COMVariantType::VT_R8):
                    return num2str(_cv.double(),_characters,_decimals,_separator1,_separator2);
                case (COMVariantType::VT_DECIMAL):
                    return num2str(_cv.decimal(),_characters,_decimals, _separator1, _separator2);
                case (COMVariantType::VT_DATE):
                    return date2str(_cv.date(),123,2,1,2, 1,4);
                case (COMVariantType::VT_EMPTY):
                    return "";
                default:
                    throw error(strfmt("@SYS26908",_cv.variantType()));
            }
            return "";
        }


    createDefaultDimension = new BFIL_createDefaultDimension();

    application = SysExcelApplication::construct();
    workbooks = application.workbooks();
    application.displayAlerts(false);
    filename =_filename;
    try
    {
        workbooks.open(filename);
    }
    catch (Exception::Error)
    {
    throw error("File cannot be opened.");
    }
    workbook = workbooks.item(1);
    worksheets = workbook.worksheets();
    worksheet = worksheets.itemFromNum(1);

    cells = worksheet.cells();
    cells.range('D:D').numberFormat('@');
    cells.range('E:E').numberFormat('@');
    cells.range('U:U').numberFormat('@');
    cells.range('Z:Z').numberFormat('@');

    ttsBegin;
    do
    {
        row++;

         CustAccount            = COMVariant2Str(cells.item(row, 1).value());
         numberSequenceGroup    = COMVariant2Str(cells.item(row, 2).value());
         invoiceDate            = COMVariant2Str(cells.item(row, 3).value());
         accountNo              = COMVariant2Str(cells.item(row, 4).value());
         locationId             = COMVariant2Str(cells.item(row, 5).value());
         TDSGroup               = COMVariant2Str(cells.item(row, 6).value());
         Accountingregion       = COMVariant2Str(cells.item(row, 7).value());
         Department             = COMVariant2Str(cells.item(row, 8).value());
         Entities               = COMVariant2Str(cells.item(row, 9).value());
         Product                = COMVariant2Str(cells.item(row, 10).value());
         Purpose                = COMVariant2Str(cells.item(row, 11).value());
         Region                 = COMVariant2Str(cells.item(row, 12).value());
         Vendor                 = COMVariant2Str(cells.item(row, 13).value());
         invDescription         = COMVariant2Str(cells.item(row, 14).value());
         mainAccount            = COMVariant2Str(cells.item(row, 15).value());
         HSNCode                = COMVariant2Str(cells.item(row, 16).value());
         SAC                    = COMVariant2Str(cells.item(row, 17).value());
         qty                    = COMVariant2Str(cells.item(row, 18).value());
         unitPr                 = COMVariant2Str(cells.item(row, 19).value());
         amt                    = COMVariant2Str(cells.item(row, 20).value());
         companylocation        = COMVariant2Str(cells.item(row, 21).value());
         HSNRate                = COMVariant2Str(cells.item(row, 22).value());
         SACRate                = COMVariant2Str(cells.item(row, 23).value());
         itcCategory            = COMVariant2Str(cells.item(row, 24).value());
         Exempt                 = COMVariant2Str(cells.item(row, 25).value());
         customerlocation       = COMVariant2Str(cells.item(row, 26).value());
         Accountingregion1      = COMVariant2Str(cells.item(row, 27).value());
         Department1            = COMVariant2Str(cells.item(row, 28).value());
         Entities1              = COMVariant2Str(cells.item(row, 29).value());
         Product1               = COMVariant2Str(cells.item(row, 30).value());
         Purpose1               = COMVariant2Str(cells.item(row, 31).value());
         Region1                = COMVariant2Str(cells.item(row, 32).value());
         Vendor1                = COMVariant2Str(cells.item(row, 33).value());


        account                 = [mainAccount, mainAccount];
        ledgerDimension         = AxdDimensionUtil::getLedgerAccountId(account);
        invDate                 = str2Date(invoiceDate,123);
        quantity                = str2int(qty);
        unitPrice               = any2real(unitPr);
        amount                  = quantity*unitPrice;
        if(precustAccount != CustAccount  && !failedCustAccount.in(CustAccount))
        {
            select custTable where custTable.AccountNum == CustAccount;
            custInvoiceTable.clear();
            if (custTable.RecId > 0)
            {
                custInvoiceTable.clear();
                custInvoiceTable.OrderAccount           = custTable.AccountNum;
                custInvoiceTable.modifiedField(fieldNum(CustInvoiceTable, OrderAccount));
                custInvoiceTable.DefaultDimension       = ledgerDimension;
                custInvoiceTable.InvoiceDate            = invDate;
                custInvoiceTable.SKS_BeneficiaryAccount = accountNo;
                custInvoiceTable.DeliveryLocation       = LogisticsLocation::findByLocationId(locationId).RecId;
                conAttr                                 = ["AccountingRegion","Department","Entities","Product","Purpose","Region","Vendor"];
                conValue                                = [ Accountingregion, Department, Entities,Product,Purpose,Region,Vendor];
                custInvoiceTable.DefaultDimension       = createDefaultDimension.createDefaultDimension(conAttr, conValue);
                custInvoiceTable.TDSGroup_IN            = TDSGroup;
                custInvoiceTable.insert();
                lineNum = 0;
                precustAccount = CustAccount;
            }
            else
            {
                if (!failedCustAccount.in(CustAccount))
                {
                    failedCustAccount.add(CustAccount);
                }
            }
        }
        if (custInvoiceTable.RecId > 0)
        {
            counter++;

            custInvoiceLine.clear();
            custInvoiceLine.initValue();
            custInvoiceLine.initFromCustInvoiceTable(custInvoiceTable);
            custInvoiceLine.LedgerDimension      = DimensionStorage::getDefaultAccount(MainAccount::findByMainAccountId(mainAccount).RecId);
            custInvoiceLine.DefaultDimension     = ledgerDimension;
            conAttr                              = ["AccountingRegion","Department","Entities","Product","Purpose","Region","Vendor"];
            conValue                             = [ Accountingregion1, Department1, Entities1,Product1,Purpose1,Region1,Vendor1];
            custInvoiceLine.DefaultDimension     = createDefaultDimension.createDefaultDimension(conAttr, conValue);
            custInvoiceLine.Description          = invDescription;
            custInvoiceLine.Quantity             = quantity;
            custInvoiceLine.UnitPrice            = unitPrice;
            custInvoiceLine.AmountCur            = amount;
            custInvoiceLine.ParentRecId          = custInvoiceTable.RecId;
            custInvoiceLine.InvoiceTxt           = invDescription;
            custInvoiceLine.SKS_HSNCode          = SKS_HSNCodeTable_IN::findByCode(HSNCode);

            select firstonly  sKS_ServiceAccountingCodeTable_IN
                    where sKS_ServiceAccountingCodeTable_IN.SAC == COMVariant2Str(cells.item(row, 17).value());

            custInvoiceLine.SKS_ServiceAccountingCodeTable = sKS_ServiceAccountingCodeTable_IN.RecId; //SKS_ServiceAccountingCodeTable_IN::findByServiceAccountingCode(SAC);
            custInvoiceLine.Exempt_IN            = str2enum(noYes,Exempt);
            custInvoiceLine.ITCCategory_IN       = str2enum(iTCCategory_IN,itcCategory);

            //Tax Informatiom
            custInvoiceLine.CompanyLocation_IN   = LogisticsLocation::findByLocationId(companylocation).RecId;
            custInvoiceLine.HSNCodeTable_IN      = HSNCodeTable_IN::findByCode(HSNRate);
            custInvoiceLine.ServiceCodeTable_IN  = ServiceAccountingCodeTable_IN::findByServiceAccountingCode(SACRate);
            custInvoiceLine.CustomerLocation_IN  = LogisticsLocation::findByLocationId(customerlocation).RecId;
            lineNum += 1;
            custInvoiceLine.LineNum = lineNum;
            custInvoiceLine.insert();
            //Added by sarath-->>start
            select forupdate custinvline where custinvline.recid == custinvoiceline.recid
                                              && custinvline.linenum == linenum;
            ttsbegin;
            custinvline.serviceaccountingcodetable_in = serviceaccountingcodetable_in::findbyserviceaccountingcode(SACRate);
            custinvline.update();
            ttscommit;
            //Added by sarath-->>ended
            //Specific to Indian localization, not required for other localizations
            custInvoiceLineTaxExtensionIN.CustInvoiceLine  = custInvoiceLine.RecId;
            custInvoiceLineTaxExtensionIN.TaxInformation_IN = TaxInformation_IN::findDefaultbyLocation(DirPartyTable::find(CompanyInfo::findDataArea(curext()).PartyNumber).PrimaryAddressLocation).RecId;
            custInvoiceLineTaxExtensionIN.initValue();
            custInvoiceLineTaxExtensionIN.insert();

        }
        type = cells.item(row+1, 1).value().variantType();

    }

    while (type != COMVariantType::VT_EMPTY);
    ttsCommit;
    application.workbooks().close();
    application.quit();
    application.finalize();
    application = null;

    info(strFmt("%1 - Uploaded Successfully",counter));
}

Export Legalentity Multiple Address

static void BFIL_LegalEntityMultipleAddress(Args _args)
{
    SysExcelApplication             application;
    SysExcelWorkbooks               workbooks;
    SysExcelWorkbook                workbook;
    SysExcelWorksheets              worksheets;
    SysExcelWorksheet               worksheet;
    SysExcelCells                   cells;
    SysExcelCell                    cell;
    SysExcelFont                    font;
    int                             row;
 
    CompanyInfo                     companyInfo;
    DirPartyTable                   dirPartyTable;
    LogisticsPostalAddress          postalAddress;
    LogisticsLocation               location;
    DirPartyLocation                PartyLocation;
   
    // intializing classes to export excel
    application = SysExcelApplication::construct();
    workbooks = application.workbooks();
    workbook = workbooks.add();
    worksheets = workbook.worksheets();
    worksheet = worksheets.itemFromNum(1);
    cells = worksheet.cells();
    cells.range('C:C').numberFormat('@');

    // Setting Header values
    cell = cells.item(1, 1);
    cell.value('LegalEntity Id');
    font = cell.font();
    font.bold(true);

    cell = cells.item(1, 2);
    cell.value('LegalEntity Name');
    font = cell.font();
    font.bold(true);
    row = 1;
     cell = cells.item(1, 3);
    cell.value('Location Id');
    font = cell.font();
    font.bold(true);

    cell = cells.item(1, 4);
    cell.value('Location Name');
    font = cell.font();
    font.bold(true);
    row = 1;

    cell = cells.item(1, 5);
    cell.value('Address');
    font = cell.font();
    font.bold(true);
    row = 1;

    cell = cells.item(1, 6);
    cell.value('State');
    font = cell.font();
    font.bold(true);

    cell = cells.item(1, 7);
    cell.value('City');
    font = cell.font();
    font.bold(true);
    row = 1;

   
   /*
// inserting the Multiple record for only one current legalentity ----
   companyInfo      = companyInfo::findDataArea(curext());
   dirPartyTable    = DirPartyTable::findRec(companyInfo.RecId);
 
   while select PartyLocation where PartyLocation.party == dirPartyTable.recid
      join location where location.recid == PartyLocation.Location
       join postalAddress where postalAddress.Location == location.RecId
                          && partyLocation.Location == postalAddress.Location

*/

// insert the all legalEntity multiple address

    while select companyInfo
    {
        dirPartyTable    = DirPartyTable::findRec(companyInfo.RecId);
        while select PartyLocation where PartyLocation.party == dirPartyTable.recid
           join location where location.recid == PartyLocation.Location
           join postalAddress where postalAddress.Location == location.RecId
                              && partyLocation.Location == postalAddress.Location
    {
       
        row++;
        cell = cells.item(row, 1);
        cell.value(companyInfo.DataArea);
        cell = cells.item(row, 2);
        cell.value(companyInfo.Name);
        cell = cells.item(row, 3);
        cell.value(location.LocationId);
        cell = cells.item(row, 4);
        cell.value(location.Description);
        cell = cells.item(row, 5);
        cell.value(postalAddress.Address);
        cell = cells.item(row, 6);
        cell.value(postalAddress.State);
        cell = cells.item(row, 7);
        cell.value(postalAddress.City);
    }
  }

    application.visible(true);
} 

Export customer Multiple address Using X++

static void BFIL_CustomerMultipleAddressExport(Args _args)
{
    SysExcelApplication             application;
    SysExcelWorkbooks               workbooks;
    SysExcelWorkbook                workbook;
    SysExcelWorksheets              worksheets;
    SysExcelWorksheet               worksheet;
    SysExcelCells                   cells;
    SysExcelCell                    cell;
    SysExcelFont                    font;
    int                             row;
    CustTable                       custTable;
    DirPartyTable                   dirPartyTable;
    LogisticsPostalAddress          postalAddress;
    LogisticsLocation               location;
    DirPartyLocation                PartyLocation;


    // intializing classes to export excel
    application = SysExcelApplication::construct();
    workbooks = application.workbooks();
    workbook = workbooks.add();
    worksheets = workbook.worksheets();
    worksheet = worksheets.itemFromNum(1);
    cells = worksheet.cells();
    cells.range('A:A').numberFormat('@');

    // Setting Header values
    cell = cells.item(1, 1);
    cell.value('Customer Account');
    font = cell.font();
    font.bold(true);

    cell = cells.item(1, 2);
    cell.value('Customer Name');
    font = cell.font();
    font.bold(true);
    row = 1;
     cell = cells.item(1, 3);
    cell.value('Location Id');
    font = cell.font();
    font.bold(true);

    cell = cells.item(1, 4);
    cell.value('Location Name');
    font = cell.font();
    font.bold(true);
    row = 1;

    cell = cells.item(1, 6);
    cell.value('Address');
    font = cell.font();
    font.bold(true);
    row = 1;

    cell = cells.item(1, 7);
    cell.value('State');
    font = cell.font();
    font.bold(true);

    cell = cells.item(1, 8);
    cell.value('City');
    font = cell.font();
    font.bold(true);
    row = 1;



     // inserting data row wise selecting Multiple record----
     while select custTable
        where custTable.AccountNum
      join dirPartyTable
        where custTable.Party == dirPartyTable.RecId
      join PartyLocation
        where PartyLocation.party == dirPartyTable.recid
      join location
        where location.recid == PartyLocation.Location
      join postalAddress
        where postalAddress.Location == location.RecId
           && partyLocation.Location == postalAddress.Location
    {
        row++;
        cell = cells.item(row, 1);
        cell.value(custTable.AccountNum);
        cell = cells.item(row, 2);
        cell.value(dirPartyTable.Name);
        cell = cells.item(row, 3);
        cell.value(location.LocationId);
        cell = cells.item(row, 4);
        cell.value(location.Description);
        cell = cells.item(row, 5);
        cell.value(postalAddress.Address);
        cell = cells.item(row, 6);
        cell.value(postalAddress.State);
        cell = cells.item(row, 7);
        cell.value(postalAddress.City);
    }

    application.visible(true);
}

Enable/Disable Recall button in workflow details form

Goto Class ----->WorkflowStatusForm ------>OnActive method

write below logic

//Added by sarath for recall button will enable only for admin ...>>start
str              curUser;
curUser     = curUserId();
if(curUser == "axadmin" && statusTable.DocumentType == "Q&Q receipt header")
{
terminateButton.enabled(workflowStatusTreeInfo.parmStatus() ==WorkflowTrackingStatus::Pending || workflowStatusTreeInfo.parmStatus() == WorkflowTrackingStatus::Faulted);
}
else if (curUser != "axadmin" && statusTable.DocumentType == "Q&Q receipt header")
{
terminateButton.enabled(false);
}
//Added by sarath for recall button will enable only for admin ...>>end

Geting Deleted NumberSequences

Override the form datasource delete method write .logic in that method it will also workfor table delete method also.

public void delete()
{
 NumberSequenceTable numSeqTable;
 ProjOnAccTransId    ProjOnAccTransId;

  ProjOnAccTransId   = ProjOnAccTrans.TransId;
 numSeqTable        = NumberSequenceTable::find(projparameters::numRefProjTransIdBase().NumberSequenceId);

 super();

if (numSeqTable.Continuous)
    {
        numSeqTable = NumberSequenceTable::find(projparameters::numRefProjTransIdBase().NumberSequenceId);
        NumberSeq::release(numSeqTable.NumberSequence, ProjOnAccTransId);
    }
    else
    {
        if (NumberSeq::numInsertFormat(numSeqTable.NextRec - 1, numSeqTable.Format) == ProjOnAccTransId)
        {
            ttsbegin;
            numSeqTable = NumberSequenceTable::find(projparameters::numRefProjTransIdBase().NumberSequenceId, true);
            numSeqTable.NextRec--;
            numSeqTable.doUpdate();
            ttscommit;
        }
    }
}

Unsaved Record also regenerated by overriding the form method close and call the datasource  delete method

public void close()
{
    if( ProjOnAccTrans.TransId && !ProjOnAccTrans.recid)
     ProjOnAccTrans_ds.delete();
    super();
}

To get the number sequence based on the date selection financial year.

 For that requirement in project parameters fom created new field

added field in numbersequencereference  tables and make relation with numbersequence table for that table

Code:

    TransDate               fiscalStartdate;
    FiscalCalendarPeriod    fiscalCalendarPeriod;
    RecId                   calendarRecId;
    RefRecId                oldNumberSeq;
    NumberSequenceTable     numberSequenceTable;
    numberSeqFormHandler    numberSeqFormHandler;

calendarRecId = Ledger::fiscalCalendar(CompanyInfo::current());

    fiscalCalendarPeriod = FiscalCalendars::findPeriodByPeriodCodeDate(calendarRecId, today(),                                                FiscalPeriodType::Operating);

    fiscalStartdate = fiscalCalendarPeriod.StartDate;

    if (ProjectOnAccount_TransDate.dateValue() <= fiscalStartDate )

    {

    numberSeqFormHandler = numberSeqFormHandler::newForm(projparameters::numRefProjTransIdBase().NumberSequenceId,element,ProjOnAccTrans_DS,fieldNum(ProjOnAccTrans,TransId));

        numberSeqFormHandler.formMethodDataSourceCreate();

    }

    else if (ProjectOnAccount_TransDate.dateValue() >= fiscalStartDate )

    {

        numberSeqFormHandler = numberSeqFormHandler::newForm(projparameters::numRefProjTransIdBase().NewNumberSequenceId,element,ProjOnAccTrans_DS,fieldNum(ProjOnAccTrans,TransId));

        numberSeqFormHandler.formMethodDataSourceCreate();

    }

CIL generation: Object reference not set to an instance of an object.

"CIL generation: Object reference not set to an instance of an object." Err:351

Run full CIL generation using the following steps.

1. Stop the AOS
2. Delete the contents of the bin\XppIL [C:\Program Files\Microsoft Dynamics AX\60\Server\MicrosoftDynamicsAX\bin\XppIL] folder on the AOS server (with backup in place) [not the folders, just the files which are outside the folders - 2003 files in total]
3. Restart the AOS
4. Open AX

5. In AOT, Navigate to Build -> Generate Full CIL

After doing these, if you still get any errors, 

1. Navigate to the individual objects in AOT which are throwing the errors

2. Compile them one after the other.

3. Full Compile Again [Build -> Generate Full CIL]

reference :https://community.dynamics.com/ax/b/dynamicsaxinsideout/archive/2015/11/10/error-in-cil-generation-quot-cil-generation-object-reference-not-set-to-an-instance-of-an-object-quot

Table methods

public void modifiedField(FieldId _fieldId)
{
    super(_fieldId);

    switch (_fieldId)
    {
        case fieldNum(CICInternalRequisitionTable,Product):
           this.ProductName =InventTable::find(this.product).itemName();
           this.Description = InventTable::find(this.product).itemDescriptionOrName();
        break;

    }

    if (fieldNum(CICInternalRequisitionTable,unitcost) || fieldNum(CICInternalRequisitionTable,QuantityIssued))
       this.TotalCost = this.UnitCost * this.QuantityIssued;
}


public boolean validateDelete()
{
    boolean                         ret;

    ret = super();

    if (this.FinalStatus != CICInternalRequisitionWorkflowStatus::Draft)
    {
        ret = checkFailed(strFmt("@CIC387",this.FinalStatus));
    }

    return ret;
}


public boolean validateField(FieldId _fieldIdToCheck)
{
    boolean ret;

    ret = super(_fieldIdToCheck);

    if (this.QuantityIssued > this.QtyOrderd)
    {
        ret = checkFailed("@CIC181");
    }

    return ret;
}

public boolean canSubmitToWorkflow(str _workflowType = '')
{
    boolean ret = false;

    if (this.FinalStatus == CICInternalRequisitionWorkflowStatus::draft || this.FinalStatus == CICInternalRequisitionWorkflowStatus::NotSubmitted)
    {
        ret = true;
    }

    return ret;
}

Find & Exist Method

public static CICInternalRequisitionTable find(CICRequisitionId   _requisitionId,
                      boolean       _forUpdate = false)
{
    CICInternalRequisitionTable  internalRequisitionTable;

    if (_requisitionId)
    {
        if (_forUpdate)
        {
            internalRequisitionTable.selectForUpdate(_forUpdate);
        }

        select firstonly internalRequisitionTable
            index hint RequisitionIdIdx
            where internalRequisitionTable.requisitionid == _requisitionId;
    }
    return internalRequisitionTable;
}


public static boolean exist(CICRequisitionId   _requisitionId)
{
    return _requisitionId && (select firstonly RecId from CICInternalRequisitionTable
                                index hint RequisitionIdIdx
                                where CICInternalRequisitionTable.RequisitionId == _requisitionId).RecId != 0;
}

Lookup for Product varients

public void lookup()
{
    Query                  query ;
    QueryBuildDataSource   qbdsInventdim,qbdsInventDimCombination;
    QueryBuildRange        qbr;
    SysTableLookup         sysTableLookup;


    sysTableLookup  = sysTableLookup::newParameters(tableNum(InventDim),this);
    sysTableLookup.addLookupfield(fieldNum(InventDim,InventSizeId));

    query           = new Query();
    qbdsInventdim    = query.addDataSource(tableNum(InventDim));
    qbdsInventDimCombination = qbdsInventdim.addDataSource(tableNum(InventDimCombination));
    qbdsInventDimCombination.addLink(fieldNum(inventDim,InventDimId),fieldnum(InventDimCombination,InventDimId));
    qbr = qbdsInventDimCombination.addRange(fieldNum(inventDim,InventDimId));
    qbr.value(CICInternalRequisitionTable_Product.valueStr());


    sysTableLookup.parmQuery(query);
    sysTableLookup.performFormLookup();
}

Lookup for custom financial dimensions

public void lookup()
{
    SysTableLookup                      sysTableLookup;
    Query                               query;
    QueryBuildDataSource                qbdsDimensionFinancialTag;
    QueryBuildRange                     qbrFinancialTagCategory;

    #define.MyCustomFinancialDimension('ProfitCenter') //name of custom dimension

    query = new Query();
    qbdsDimensionFinancialTag = query.addDataSource(tableNum(DimensionFinancialTag));
    qbrFinancialTagCategory = qbdsDimensionFinancialTag.addRange(fieldNum(DimensionFinancialTag, FinancialTagCategory));
    qbrFinancialTagCategory.value(strFmt('%1', DimensionAttribute::findByName(#MyCustomFinancialDimension, false).financialTagCategory()));

    sysTableLookup = sysTableLookup::newParameters(tableNum(DimensionFinancialTag), this);
    sysTableLookup.addLookupfield(fieldNum(DimensionFinancialTag, Value), true);
    sysTableLookup.addLookupfield(fieldNum(DimensionFinancialTag, Description));
    sysTableLookup.addSelectionField(fieldNum(DimensionFinancialTag, FinancialTagCategory));
    sysTableLookup.parmQuery(query);

    sysTableLookup.performFormLookup();

}

Lookup for financial dimension "Department"

public void lookup()
{
    Query                   query  = new Query();
    QueryBuildDataSource    qbds;
    SysTableLookup          sysTableLookup;


    sysTableLookup = sysTableLookup::newParameters(tableNum(OMOperatingUnit),this);
    sysTableLookup.addLookupfield(fieldNum(OMOperatingUnit,OMOperatingUnitNumber));
    sysTableLookup.addLookupfield(fieldNum(OMOperatingUnit,Name));
    sysTableLookup.addLookupfield(fieldNum(OMOperatingUnit,OMOperatingUnitType));
    sysTableLookup.addSelectionField(fieldNum(OMOperatingUnit,Name));

    qbds = query.addDataSource(tableNum(OMOperatingUnit));
    qbds.addSortField(fieldNum(OMOperatingUnit,OMOperatingUnitNumber));
    qbds.addRange(fieldNum(OMOperatingUnit,OMOperatingUnitType)).value(enum2str(OMOperatingUnitType::OMDepartment));

    sysTableLookup.parmQuery(query);
    sysTableLookup.performFormLookup();
}

Relation Between HcmWorker and HcmPosition.

select PersonnelNumber,Recid from hcmWorker
          where hcmWorker.PersonnelNumber == '000006'
      join Position,worker from hcmPositionWorkerAssignment
          where hcmPositionWorkerAssignment.Worker == hcmWorker.Recid
      join PositionId,RecId from hcmPosition
          where hcmPosition.RecId == hcmPositionWorkerAssignment.Position;

    info(strFmt("%1,%2",hcmWorker.PersonnelNumber,hcmPosition.PositionId));

Get Worker Information

static void GetWorkerInfo(Args _args)
{
HcmWorker Worker;
;
Worker = HcmWorker::findByPersonnelNumber(“000006”);
info(strFmt(“Name : %1”, Worker.name()));
info(strFmt(“Telepon : %1”, Worker.phone()));
info(strFmt(“Email : %1”, Worker.email()));
info(strFmt(“Departemen : %1”, Worker.primaryDepartmentName()));
info(strFmt(“Position : %1”, Worker.primaryPositionId()));
info(strFmt(“Address : %1”, Worker.primaryAddress()));
}

Get particular day based on today date.

Public void getFridayDate()
{

             date  sysdate ,getDate;
             str   dyname   ;

    sysdate = today();
    dyname   = dayName(dayOfWk(sysdate));
    switch (dyname)
    {
        case  "Monday":
                getDate = sysdate+4;
                break;
        case  "Tuesday":
                getDate = sysdate+3;
                break;
        case  "Wednesday":
                getDate = sysdate+2;
                break;
        case  "Thursday":
                getDate = sysdate+1;
                break;
        case  "Friday":
                getDate = sysdate;
                break;
        case  "Saturday":
                getDate = sysdate+6;
                break;
        case  "sunady":
                getDate = sysdate+5;
                break;
    }

Time And Attendance

Time And Attendance in Hr Module -----> see below link is usefull

https://dyntips.com/ax2012ta/

Welcome Message Before open the ax

When open the ax client to display the welcome message 

follow the two different ways 

One:

 

Goto--> Info Class-->StartupPost method

write what to want to display as a welcome message

void startupPost()

{

   Box::info("welcome to dhanush","DHANUSH","test");

}

                    

                         

Note: it works only for client not for server.

Another Way:: Do the the configuration to Create a configuration file.

Got-->;    Microsoft Dyanamics 2012 configuration--> manage right click--> create configuration                        file-->  in general tab seen startup message in that control write welcome message .

                after creation of configuration file export the file to your pc.

Vendor Merging

static void vendorsMerge(Args _args)
{
    VendTable                                   vendTable;
    VendTable                                   vendTableDelete;
    PurchJournalAutoSummary                     journalSummary;
    RetailVendTable                             retailVendTable;

    DimensionAttributeValue                     dimensionAttributeValue;
    DimensionAttributeLevelValue                dimensionAttributeLevelValue;
    DimensionAttributeValueGroup                dimensionAttributeValueGroup;
    DimensionAttributeValueCombination          dimensionAttributeValueCombination;
    DimensionAttributeValueGroupCombination     dimensionAttributeValueGroupCombination;

    #define.vend('1003')
    #define.vendDelete('US_TX_003')

    ttsbegin;
    delete_from journalSummary
        where journalSummary.VendAccount ==  #vendDelete;
    delete_from retailVendTable
        where retailVendTable.AccountNum == #vend;

    select firstonly forupdate vendTableDelete
        where vendTableDelete.AccountNum == #vendDelete;

    select firstonly forupdate vendTable
        where vendTable.AccountNum == #vend;

    select firstonly forupdate dimensionAttributeValueGroup
        join dimensionAttributeLevelValue
            where dimensionAttributeValueGroup.RecId == dimensionAttributeLevelValue.DimensionAttributeValueGroup
               && dimensionAttributeLevelValue.DisplayValue == #vendDelete;
    dimensionAttributeValueGroup.delete();

    select firstonly forupdate dimensionAttributeValue
        join dimensionAttributeLevelValue
            where dimensionAttributeValue.RecId == dimensionAttributeLevelValue.dimensionAttributeValue
               && dimensionAttributeLevelValue.DisplayValue == #vendDelete;
    dimensionAttributeValue.delete();

    select firstonly forupdate dimensionAttributeLevelValue
        where dimensionAttributeLevelValue.DisplayValue == #vendDelete;
    dimensionAttributeLevelValue.delete();

    select firstonly forupdate dimensionAttributeValueGroupCombination
        join dimensionAttributeValueCombination
            where dimensionAttributeValueCombination.RecId == dimensionAttributeValueGroupCombination.DimensionAttributeValueCombination
               && dimensionAttributeValueCombination.DisplayValue == #vendDelete;
    dimensionAttributeValueGroupCombination.delete();

    select firstonly forupdate dimensionAttributeValueCombination
        where dimensionAttributeValueCombination.DisplayValue == #vendDelete;
    dimensionAttributeValueCombination.delete();

    vendTableDelete.merge(vendTable);
    vendTable.doUpdate();
    vendTableDelete.doDelete();
    ttscommit;
    info("Vendor merging successfull");
}

Calling menu item button of form in a class

I want to call a menu item button of the form, from my class.

In a class follow below procedure

// MyFormControllerClass classDeclaration
public class MyFormControllerClass
{
FormFunctionButtonControl formButton;
}
public FormFunctionButtonControl parmFormButton(FormFunctionButtonControl _formButton = formButton)
{
formButton = _formButton;
return formButton;
}
protected void someEventHandler()
{
if (formButton)
{
formButton.clicked();
}
}


To call above class in form init method

// form classDeclaration
public class FormRun extends ObjectRun
{
MyFormControllerClass formController;
}
// form init
public void init()
{
super();
formController = new MyFormControllerClass();
// pass the button reference
formController.parmFormButton(MyFormButtonWithAutoDeclarationYes);
}


Ex: see the class ->  LedgerJournalFormTable.

scenario:: In LedgerJournalTable form i want to disable the post button for perticular user group                           persons.

  Go to LedgerJournalFormTable class in enableButtonsActive method write following code.
 

           while select userGroupList

                     where userGroupList.groupId == "Post Group"

                             && userGroupList.userId == curUserId()

                          {

                              ctrlPostJournalMenu.enabled(false);

                           }

Based on security roles to enable or disable the buttons in a form

static void Dipl_securityrole(Args _args)
 {
      securityrole           role;
      securityuserrole    userrole;
 
       while select * from role
                 join userrole where role.recid == userrole.securityrole

                                       && role.name== 'Dipl_purchtable'

        {
           if(userrole.recid)
           {
              if(curuserid()==userrole.user)
                {
                    //attachments.enabled(false); //attachment is a form button name
                }
 
           }
           else
         {
               // attachments.enabled(true);
            }
           info(strfmt("%1,%2", role.Name,userrole.User));
        }
}