How to create production order in AX 2012

Create a simple Production Order Video

Please click the below link.

https://www.youtube.com/watch?v=G0j6Q5oCGUE

X++ Code For Importing CSV file into AX Table Using RunBase Batch

Create a Class :

class ImportCsv extends Runbasebatch
{
    Filename        ItemFileName;
    Filename        filename;
    DialogField     dialogFilename;

    #define.CurrentVersion(1)
    #define.Version1(1)
    #localmacro.CurrentList
        fileName
    #endmacro
}

public Object dialog()
{
    DialogRunbase       dialog = super();
    ;

    dialogFilename   = dialog.addField(typeId(FilenameOpen));
    dialogFilename.value(filename);

    return dialog;
}

public boolean getFromDialog()
{
    ;
    fileName = dialogFileName.value();
    return super();
}

void ImportInventtable()
{
    CommaIo                 file = new commaIo(ItemFileName,’r’);
    Container               con;
    InventTable             inventTable;
    Inventtable         Inventtable;
    int                     x,y;
    ;

    file.inFieldDelimiter(‘,’);
    if (file)
    {
 ttsbegin;
 while(file.status() == IO_Status::OK)
 {
 con = file.read();
        if (con)
        {
        
         Inventtable = Inventtable::find(conpeek(con,2));
         if(Inventtable)
         {
                     Inventtable.InventTableId     =   conpeek(con,1);
                     Inventtable.ItemId            =   conpeek(con,2);
                     Inventtable.Name              =   conpeek(con,4);
                     Inventtable.validateWrite();
                     Inventtable.insert();
                     x++;
                }
                else
                {
                     y++;
                }
         }
        }
    }
    
    ttscommit;
    info(strfmt("%1 record(s) imported, %2 record(s) not found",x,y));
  }

public container pack()
{
    return [#CurrentVersion,#CurrentList];
}

public void run()
{
 this.ImportInventtable();
 super();
}

public boolean unpack(container packedClass)
{
    Version version = runbase::getVersion(packedClass);
    ;
    switch (version)
    {
        case #CurrentVersion:
           [version,#CurrentList] = packedClass;
           break;
        default:
           return false;
   }
    return true;
}

public boolean validate()
{
    if (false)
        return checkFailed("");
   return true;
}

static void main(Args _args)
{
        ImportCsv      ImportCsv ;
        FormRun formRun;
        Args    args;
        ;
        ImportCsv = new ImportCsv ();
        if (ImportCsv .prompt())
       {
        ImportCsv .run();
       }

}

X++ Code for manipulate String function in Dynamics AX

// Adding "-" between each four digit
static void RB_StringSplitFuntions1(Args _args)

{
    str AccountCode = '1234567812312';

    str inputCode,BankAccount;

    int strlength,strsplitValue,i,j;

    str output;

    ;

   strlength = strLen(AccountCode);  

   strsplitValue = strLen(AccountCode) / 4;                           

   for (i=0;i<=strsplitValue;i++)

  {

    BankAccount = subStr(AccountCode,j+1,4);     j = j+4;    

    if (BankAccount)

     inputCode += BankAccount +"-";

  }

inputCode = substr(inputCode,1,strlen(inputCode)-1);

info(strfmt("%1",inputCode));

}

How to get Table field properties through X++ Code

static void RB_TableFieldProperties(Args _args)
{
    TreeNode custFldsRoot = treeNode::findNode(@"\Data Dictionary\Tables\CustTable\Fields");
    TreeNodeIterator              custFldsIterator;
    TreeNode                         custFlds;
    NoYes                              visibleProp;
 
    ;
   custFldsIterator   =   custFldsRoot.AOTiterator();
   custFlds              =   custFldsIterator.next();
   while(custFlds)
   {
        if(custFlds.AOTgetProperty('Mandatory') == 'Yes')
        info(strfmt("field %1", custFlds.treeNodeName()));
        custFlds = custFldsIterator.next();
  }
}

How do you delete a DirParty record in Ax2012?

static void DirParty_Delete(Args _args)

{

DirPartyTable dirPartyTable;

DirPerson dirPerson;

Common partyRecord;

DirParty dirPartyClass;

DirPersonRecId personRecId;

;



select firstOnly * from dirPerson where dirPerson.name == "ABCDEFG";

personRecId = DirPerson.RecId;



//This is after the worker has been deleted on the HcmWorkerListPage form on HRM

dirPartyTable = DirPartyTable::findRec(DirPerson::find(personRecId).RecId);



if (dirPartyTable)

{

partyRecord = dirPartyTable;

dirPartyClass = new DirParty(partyRecord);



if (DirParty::canDeleteParty(dirPartyClass.getPartyRecId(),true))

{

DirParty::autoDeleteParty(dirPartyTable.RecId);

}

}

}