How to create Movement Journal with Code X++ Sale Order

-
Sometime we need to make leftover quantity of Inventory at the time of Sale Order. I created a code to use to make a movement journal in Ax 2009.

void clicked()
{
   InventJournalTable journalTable;
   InventJournalTable InventJournalTable_;
   SalesTable SalesTable_;
InventJournalTrans journalTrans;
InventJournalTableData journalTableData;
InventJournalTransData journalTransData;
Salesline _Salesline;
//alesline Salesline;
InventDim _inventDim;
numberSeq numberSeq;
NumberSequenceReference NumberSequenceReference;
Counter cnt;
InventJournalCheckPost journalCheckPost = new InventJournalCheckPost();

;
if((SalesTable::find(Salesline.SalesId).RefJournalID) != '')
{
info(SalesTable::find(Salesline.SalesId).RefJournalID);
info('Journal is already Created');
}
else
{


select sum(RemainSalesPhysical) from _SalesLine where _SalesLine.SalesId == Salesline.SalesId;
if (_SalesLine.RemainSalesPhysical != 0)
{

select * from _SalesLine where _SalesLine.SalesId == Salesline.SalesId && _SalesLine.RemainInventPhysical != 0;

journalTableData = JournalTableData::newTable(journalTable);
journalTransData = journalTableData.journalStatic().newJournalTransData(journalTrans,journalTableData);

// Init JournalTable

journalTable.clear();

journalTable.JournalType = InventJournalType::Movement;
//ournalTable.JournalNameId = journalTableData.journalStatic().standardJournalNameId(journalTable.JournalType);
journalTable.JournalNameId = 'WVJ';
journalTableData.initFromJournalName(journalTableData.journalStatic().findJournalName(journalTable.JournalNameId));
journalTable.insert();

// Init JournalTrans
//elect firstonly purchline where purchline.PurchId == 'PO-1011-008509';

 ttsbegin;

  while (_salesLine.RecId != 0)
    {
journalTrans.clear();
//ournalTransData.create();
journalTrans.initValue();
journalTransData.initFromJournalTable();
 info(_salesLine.ItemId);
journalTrans.TransDate = today();
//journalTrans.LedgerAccountIdOffset = strRtrim(strLTrim(conpeek(line,14)));
journalTrans.JournalId = journalTable.JournalId;
journalTrans.ItemId = _salesLine.ItemId;
journalTrans.Qty = _salesLine.RemainSalesPhysical*-1;
//journalTrans.CostPrice = conpeek(line,9);
//journalTrans.CostAmount = conpeek(line,10);
journalTrans.Dimension[1] = _salesLine.Dimension[1];
journalTrans.Dimension[2] = _salesLine.Dimension[2];
journalTrans.Dimension[3] = _salesLine.Dimension[3];
JournalTrans.CatchWeightQty =0;
journalTrans.CatchWeightUnit = '';
journalTrans.LedgerAccountIdOffset  = '5-50-09-02-032';
// Dimension details
InventDim.InventSiteId = InventDim::find(_SalesLine.inventDimid).InventSiteId;
InventDim.inventLocationid = InventDim::find(_SalesLine.inventDimid).inventLocationid;
InventDim.inventBatchId = InventDim::find(_SalesLine.inventDimid).inventBatchId;
InventDim.wMSLocationId = InventDim::find(_SalesLine.inventDimid).wMSLocationId;
InventDim.InventSizeId = InventDim::find(_SalesLine.inventDimid).InventSizeId;
InventDim.InventColorId = InventDim::find(_SalesLine.inventDimid).InventColorId;
InventDim.inventSerialId = InventDim::find(_SalesLine.inventDimid).inventSerialId;

journalTrans.InventDimId = InventDim::findOrCreate(inventDim).inventDimId;
journalTransData.create();

next _salesLine;
}

 ttscommit;
 info(journalTable.JournalId);

 ttsBegin;
    select forUpdate InventJournalTable_ where InventJournalTable_.journalid == journalTable.journalid;
    InventJournalTable_.Remarks = Salesline.SalesId;
    InventJournalTable_.update();
ttsCommit;
 ttsBegin;
    select forUpdate SalesTable_ where SalesTable_.SalesID == Salesline.SalesId;
    SalesTable_.RefJournalID = journalTable.journalid;
    SalesTable_.update();
ttsCommit;
}


else

{
 info('There is no Delivery Remainder Qty, you cannot make Weight Varience Journal');
}
}
}

Comments

Post a Comment

Popular posts from this blog

How to import data in Ax2009 from a CSV file

-
In Microsoft Dynamics AX 2009, importing data from a CSV file can be done through the Data Import Export Framework (DIXF) , AIF (Application Integration Framework) , or by using X++ code to handle custom imports. Here's a step-by-step guide to importing data from a CSV file: Method 1: Using AIF (Application Integration Framework) AIF is commonly used for integrating external data in AX 2009. Here's how you can use it to import data from a CSV file. Step 1: Create an AIF Service Define an inbound port for the data import: Navigate to Basic > Application Integration Framework > Channels . Create a new channel for importing the CSV file, specifying the necessary details. Create a Data Service : Go to Basic > Application Integration Framework > Services . Add a new service or choose an existing one that handles the type of data you want to import (e.g., purchase orders, vendors). Setup File Adapter : Go to Basic > Application Integration Framework > Adapters . U...
For More Details »

July 2017 update: Form Adaptors Replaced by Type Providers

-
The July 2017 update of Microsoft Dynamics 365 for Finance and Operations, Enterprise edition includes many new features and changes. One of our new features is  type providers . Type providers are a new way to interface with forms in unit tests without a form adapter model. Previously, when a developer built or changed a form they would also have to add the adapter for the form to the same solution and rebuild the model to see the new form changes in test code. Type providers provide instant design time support, so that tests can access forms. With type providers, we have removed the need to maintain a form adapter model and the need for extra compile time to generate and compile the form adapter model. We removed the form adapter models in the July 2017 update because they are expensive to run and maintain. In general, the type provider framework requires less processing time, and is more flexible to use than the form adapter models.
For More Details »

X++ to C# Comparisons

-
Differences The following table lists X++ features that are different in C#. Feature X++ C# Comments Declarations All declarations must be at the start of the method, before any X++ statements. Declarations can occur anywhere in the method. Both languages permit multiple variables of the same type to be listed together in one declaration. Both languages allow you to assign an initial value in the declaration statement. if  and  else conditional statements The  if  statement accepts any type of expression that it can automatically convert to a Boolean. Common examples include an  int  for which 0 means false, or an object for which null means false. The  if  statement requires a Boolean expression. The syntax structure regarding curly braces and parentheses is exactly the same between X++ and C#. Literal string A literal string can be delimited by either of the following: A pair of double quotation mark (") characters. A pair of singl...
For More Details »