Dynamic Ax Kings

Transfer Journals

2011-09-26T03:49:00.000-07:00

Transfer Journals
Transfer the journals from one warehouse to another warehouse.

static void CreateTransferJournal(Args _args)

{

InventJournalTable inventJournalTable;

InventJournalTrans inventJournalTrans;

InventJournalCheckPost inventJournalCheckPost;

NumberSeq num;

boolean _throwserror=true;

boolean _showinforesult=true;

InventDim frominventDim,ToinventDim;

;

ttsbegin;

inventJournalTable.clear();

num = new NumberSeq();

num = NumberSeq::newGetNum(InventParameters::numRefTransferId());

inventJournalTable.initFromInventJournalName(InventJournalName::find(InventParameters::find().TransferJournalNameId));

inventJournalTable.Description = "Inventory Transfer Journal";

inventJournalTable.SystemBlocked = true;

inventJournalTable.insert();

info("Entry Inserted");

info(strfmt("The Voucher generated is %1",inventJournalTable.JournalId));

inventJournalTrans.clear();

inventJournalTrans.initFromInventJournalTable(inventJournalTable);

inventJournalTrans.ItemId = "1101";

frominventDim.InventLocationId="21";

//frominventDim.configId = "02";

frominventDim.inventSiteId ="2";

ToinventDim.InventLocationId = "34";

ToinventDim.InventSiteId = "3";

// ToinventDim.configId = "02";

ToinventDim = InventDim::findOrCreate(ToinventDim);

frominventDim = InventDim::findOrCreate(frominventDim);

inventJournalTrans.InventDimId = frominventDim.inventDimId;

inventJournalTrans.initFromInventTable(InventTable::find("1101"));

inventJournalTrans.Qty = 10;

inventJournalTrans.ToInventDimId = ToinventDim.inventDimId;

inventJournalTrans.TransDate = SystemDateget();

inventJournalTrans.insert();

inventJournalCheckPost = InventJournalCheckPost::newJournalCheckPost(JournalCheckpostType::Post,inventJournalTable);

inventJournalCheckPost.parmThrowCheckFailed(_throwserror);

inventJournalCheckPost.parmShowInfoResult(_showinforesult);

inventJournalCheckPost.run();

inventJournalTable.SystemBlocked = false;

inventJournalTable.update();

ttscommit;

}

Journals posting

2011-09-26T03:46:00.000-07:00

Posting Journals
static void Journal_Kis(Args _args)
{
    InventJournalTable      journalTable;
    InventJournalTrans      journalTrans;
    InventJournalTableData journalTableData;
    InventJournalTransData journalTransData;
    InventTable             inventTable;
    InventDim               inventDim;
    Counter                 cnt;
    InventJournalCheckPost journalCheckPost = new InventJournalCheckPost();
    ;

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

    journalTable.clear();

    journalTable.JournalId = journalTableData.nextJournalId();
    journalTable.JournalType = InventJournalType::LossProfit;//Movement;
    journalTable.JournalNameId =    journalTableData.journalStatic().standardJournalNameId(journalTable.JournalType);

    journalTableData.initFromJournalName(journalTableData.journalStatic().findJournalName(journalTable.JournalNameId));

    // Init JournalTrans
    select firstonly inventTable where inventTable.ItemId == 'item12';
//   for(cnt=1;cnt<10;cnt++)
//   {
        journalTrans.clear();
        journalTransData.initFromJournalTable();

        journalTrans.TransDate = systemdateget() + 1 div 2;
        journalTrans.ItemId = inventTable.ItemId;
        journalTrans.Qty = 100;

        journalTrans.CostAmount = 100;

        // Dimension details

        inventDim.InventLocationId = '11';
        inventDim.InventSiteId   = '1';
        journalTrans.InventDimId = InventDim::findOrCreate(inventDim).inventDimId;

        journalTransData.create();

// }

    journalTable.insert();

    // Call the static method to post the journal
    if(InventJournalCheckPost::newPostJournal(journalTable).validate())
    InventJournalCheckPost::newPostJournal(journalTable).run();

}

Data Showed all companies

2011-08-26T03:11:00.000-07:00

To disable table properties SaveDataPerCompany :No

Port Numbers in ax

2011-08-22T21:48:00.000-07:00

AOS port numbers are essentially TCP/IP port numbers. TCP/IP port numbers have a range from 1024 to 49151. So in theory, you should be able to use port numbers from this range.

Another type of Ax Application Backup

2011-08-22T21:45:00.000-07:00

There is no auto backup of application option in Dynamics AX.
In the past, I used DOS command script to do the following in the mid night when it was acceptable for AOS to be unavailable -
1) Stop the AOS
2) Delete .aoi file
3) Used Robocopy script to backup the application layer.
4) Restart AOS.
The beauty with Robocopy is - it is intelligent enough so that only those files which had its timestamp changed would be backed up.

Upgrading Ax4.0 to Ax2009 Bom error

2011-08-22T21:42:00.000-07:00

I upgrade ax 4.0 to ax 2009.I saw item master ItemType field shows only Item,Service.But i saw in base enums itemType shows Item,Bom,Service.what should i do visible BOM on itemType lookup in item master?
Soloved This Problem
Manufacturing is a generic term for all production elements. Actually having opened it the BOM configuration is under logistics. If this is selected you should be able to see the BOM option on the item master and in inventory management. If it is selected and you still cannot see it you would need to trouble shoot the upgrade procedure as this is where the issue will lie.

Sending Mail Through X++

2011-08-22T21:37:00.001-07:00

static void Email(Args _args)
{
    CustTable                   custTable;
    System.Text.StringBuilder   htmlTable;
    SysMailer                   mailer;
    ;

    htmlTable   = new System.Text.StringBuilder();
    htmlTable.Append(@"<Caption>Blue Company Customers");
    htmlTable.Append(@"</Caption></br>");
    htmlTable.Append("<TableBorder = 1>");

    while select custTable where custTable.CustGroup == '10'
    {
        htmlTable.Append("<TR ALIGN='CENTER'>");
        htmlTable.Append("<TD>");
        htmlTable.Append(custTable.AccountNum);
        htmlTable.Append("</TD>");
        htmlTable.Append("<TD>");
        htmlTable.Append(custTable.NameAlias);
        htmlTable.Append("</TD>");
        htmlTable.Append("</TR>");
    }

    htmlTable.Append("</TABLE>");

    mailer = new SysMailer();
    mailer.htmlBody(htmlTable.ToString());
    mailer.subject("Automated Mail - Customers");
    mailer.fromAddress("kishorem@b2bsoftech.local");
    mailer.tos().appendAddress("chakradhar@b2bsoftech.local");
    mailer.SMTPRelayServer("192.168.4.67",87,"AXMail","1234",false);
    mailer.sendMail();
}

Excel creation through x++ 1

2011-08-03T01:54:00.000-07:00

static void nestingExcel(Args _args)
{
    SysExcelStyles          styles;
    SysExcelStyle           style;
    SysExcelFont            font;
    #AviFiles
    SysOperationProgress    progress = new SysOperationProgress();
    SysExcelApplication     sysExcelApplication;
    SysExcelWorkbooks       sysExcelWorkBooks;
    SysExcelWorkbook        sysExcelWorkBook;
    SysExcelWorkSheets      sysExcelWorkSheets;
    SysExcelWorkSheet       sysExcelWorkSheet;
    TvItemscrTable          scrTable;
    TvItemScrapLInes        scrLines;
    TvProdProfiles          prodProfiles;
    int                     j,k;
    int                     len[];
    ;
    sysExcelApplication     = SysExcelApplication::construct();
    sysExcelWorkBooks       = sysExcelApplication.workbooks();
    sysExcelWorkBook        = sysExcelWorkBooks.add();
    styles                  = sysExcelWorkBook.styles();
    style                   = styles.add("Header");
    font                    = style.font();
    font.bold(true);
    font.color(255);
    sysExcelWorkSheets      = sysExcelWorkbook.worksheets();
    sysExcelWorkSheet       = sysExcelWorkSheets.add(null,null,1);
    sysExcelWorkSheet       = sysExcelWorkSheets.add();
    sysExcelWorkSheet.name('PayRegister');
    sysExcelWorksheet.cells().item(1,1).value('ItemId');
    sysExcelWorksheet.cells().item(1,2).value('NoOfPieces');
    sysExcelWorksheet.cells().item(1,3).value('scrap%');
    sysExcelWorksheet.cells().item(1,4).value('combination');
    sysExcelWorksheet.cells().item(1,5).value('selected');
    sysExcelWorksheet.cells().item(1,6).value('Generated');
    j=7;
    while select prodProfiles order by ItemLength where prodProfiles.salesid == 'SO-100402'
                            &&   prodProfiles.ItemId == 'MSA05005'
    {
        sysExcelWorksheet.cells().item(1,j).value(prodProfiles.ItemLength);
        len[prodProfiles.ItemLength] = j;
        j++;
    }
    sysExcelWorksheet.rows().item(1).style("Header");
    sysExcelWorksheet.columns().autoFit();
    sysExcelApplication.displayAlerts(false);
    sysExcelApplication.visible(true);
    k =2;
    while select scrTable order by LineNum where scrTable.ItemId   == 'MSA05005'
                        &&   scrTable.SalesId == 'SO-100402'
                        &&   scrTable.Selected == noyes::Yes
    {
        sysExcelWorksheet.cells().item(k,1).value(scrTable.ItemId);
        sysExcelWorksheet.cells().item(k,2).value(scrTable.NoOfPieces);
        sysExcelWorksheet.cells().item(k,3).value(scrTable.ScrapPercent);
        sysExcelWorksheet.cells().item(k,4).value(scrTable.NoOfCombinations);
        sysExcelWorksheet.cells().item(k,5).value(enum2str(scrTable.Selected));
        sysExcelWorksheet.cells().item(k,6).value(enum2str(scrTable.Generated));
        while select scrLines where scrLines.ItemId   == 'MSA05005'
        &&   scrLines.SalesId == 'SO-100402'
        && scrLines.RefLineNum == scrTable.LineNum
        {

            sysExcelWorksheet.cells().item(k,len[scrLines.Length]).value(scrLines.NoOfPieces);
        }
        k++;
    }
}

Date Calculation

2011-07-19T03:21:00.000-07:00

Date Calculation :

static void DateCalcu(Args _args)
{
    TransDate   fromDate,toDate;
    int         reqDays;
    ;

    fromDate    = mkdate(01,07,2011);
    toDate      = mkdate(19,06,2011);

    if(fromDate && (toDate > fromdate))
    {
        reqDays = todate - fromDate;
    }
    else
    {
        throw error(strfmt("To-date %1 must be greater than from-date %2",todate,fromdate));
    }
    info(strfmt("%1",reqDays));
}

to filtering form by the enum values(which is n't shown in form)

2011-07-14T00:15:00.000-07:00

suppose they are 3 field in enum one value is shown in form and another form is used in another form .we put the filter in datasource-->init method write the following code.
this.query().dataSourceTable(tablenum(inventtable)).addRange(fieldnum(inventtable,lltype)).value(enum2str(lltype::Both));

find and exit methods in tables

2011-07-14T00:09:00.000-07:00

Exist Method:
static boolean exist(ItemId itemId)--->this is key which is primary
{
    return itemId && (select RecId from inventTable -->table name
                index hint ItemIdx--->index name in table
                where inventTable.ItemId == itemId
                ).RecId != 0;
}
Find Method:
static InventTable find(ItemId      itemId,
                        boolean    update = false--->to define how many primarykeys in table )
{
    InventTable inventTable;
    ;
    inventTable.selectForUpdate(update);
    if (itemId)
    {
        select firstonly inventTable-->table name
            index hint ItemIdx-->index name
            where inventTable.ItemId == itemId;
    }
    return inventTable;
}

display records from different company accounts in one form

2011-07-06T04:06:00.000-07:00

display records from different company accounts in one form

One of the previous posts on this blog discussed getting records from different company accounts with one select statement. For this, the crossCompany keyword is used.
Now we'll do something similar, but this time we'll display the records in a form. And the good news is, it's really easy. All ya have to do, is set a property on the datasource of the form.

You can use the crossCompanyAutoQuery property, located on the forms datasource. Standard value is 'No', so set it to 'Yes'

control:: enum on forms

2011-07-06T01:38:00.000-07:00

control:: enum on forms

A somewhat non-intuitive way of accessing controls on a form is using a built in enum named ‘control’. This enum automatically contains all controls of you form (tabs, buttons, etc), and you can reference them by name.

So, if for example your button is called ‘ButtonFunctions’, you can set the property ‘enabled’ to false like this:

element.control (Control::ButtonFunctions).enabled (false);

The main advantage here is that you don’t have to set the property autodeclaration to yes

Rename an AX company on SQL

2011-07-06T01:37:00.000-07:00

Rename an AX company on SQL

A while ago, I talked about deleting an AX company on SQL, but of course, you can also use the sp_MSforeachtable stored procedure to rename a company (= change the DataAreaId of a company).

In the next example, I rename CEE to CEA:

exec sp_MSforeachtable ‘update? set DataAreaID = "CEA" where? DataAreaID = "CEE"'

UPDATE DataArea SET ID = 'CEA' WHERE DataArea.ID = 'CEE'
UPDATE CompanyDomainList SET CompanyID = 'CEA' WHERE CompanyID = 'CEE'

Ax Application File Extence

2011-07-06T01:35:00.000-07:00

Application file extensions

Dynamics AX uses a lot of file extensions, but luckily, there is logic to them, so you can easily identify their purpose.

Most of these files are located in the application folder (AX 2009):
C:\Program Files\Microsoft Dynamics AX\50\Application\Appl\ [your_application]

The extensions have 3 characters:
The first character indicates the owner of the file:

a: application
k: kernel

The second character indicates the content of the file:

l: label
o: object
t: text
d: developer documentation
h: help

And the third character indicates the type of file:

d: data
i: index
c: cache
t: temporary

Using this logic, we can easily name all file extensions, and understand their purpose.

In the application folder:
ALD extension: Application Label Data files
These files contain the labels and label comments for a specific language of a label file.

ALC extension: Application Label Cache files.
These files contain the application label cache. These files can be deleted when the AOS is stopped.

ALI extension: Application Label Index files.
The .ali files contain an index to the .ald files. These files can be deleted when the AOS is stopped.

ALT extension: Application Label Temporary files.
These files contain new labels before they are committed to the .ald file.

AOI extension: Application Object Index file
The AOI file contains an index to the AOD files. You can delete this file when the AOS is stopped. Be sure to delete this when you have copied layers from one AX installation to another.

ADD extension: Application Developer Documentation Data files.
These files contain the documentation that is found under the Application Developer Documentation node. These files are localized, just like label files.

ADI extension: Application Developer Documentation Index files.
This is the index to the ADD file.

AHD extension: Application Help Data files
The AHD file contains the documentation aimed at the end user. In the AOT, this is found in the “Application Documentation” node.

AHI extension: Application Help Index files.
This is the index to the AHD file.

AOD extension: Application Object Data file.
This is the ‘AX layer file’; each of these files represents one layer.

KHD extension: Kernel Help Documentation files.
These files contain the kernel help documentation you can find in the AOT in the tree node System Documentation.

KHI extension: Kernel Help Index files

The KHI file is the index to the Kernel Help file.

Located in Server/bin:
KTD extension: Kernel Text Data file.
This file contains system text strings. These are used in the interface of AX and for system messages.

KTI extension: Kernel Text Index file.
This is the index to the KTD file.

Filter On lookups using relations & method

2011-07-06T01:32:00.000-07:00

Filter lookup based on enums using relations :

Method: 1

Method: 2

Remove the EDT on ItemId it filters automatically based on ItemType

PerformLookup:

Write this method in Table:

Static FormRun itemRecruitingIdLookup(FormRun lookupFormRun, FormControl _ctrl)

{

FormDataSource formDataSource;

Query formquery;

;

formDataSource = lookupFormRun.objectSet();

formquery = formDataSource.query();

formquery.dataSourceNo (1).addRange (fieldnum (InventTable, ItemType)).value (queryValue (ItemType::BOM));

return lookupFormRun;

}

In form datasource field method write the following code:

public void performFormLookup(FormRun _p1, FormControl _formControl)

{

Super (HRMApplication::hrmRecruitingIdLookup (_p1), _formControl);

}

Ax Number Sequence Code

2011-07-06T01:26:00.000-07:00

Ax Number Sequence:

ClassDeclaration:

NumberSeqFormHandler numberSeqFormHandler;

Close:

void close()

{

if (numberSeqFormHandler)

{

numberSeqFormHandler.formMethodClose();

}

super();

}

numberSeqFormHandler:

NumberSeqFormHandler numberSeqFormHandler()

{

if (!numberSeqFormHandler)

{

numberSeqFormHandler = numberSeqFormHandler::newForm(HPRPARAMETERS::numRefLeaveId().NumberSequence,

element,

HPRLEAVEAPPLTABLE_ds,

fieldnum(HPRLEAVEAPPLTABLE,LeaveId));

}

return numberSeqFormHandler;

}

ValidateWrite: At DataSource Level

public boolean validateWrite()

{

Boolean ret;

ret = super();

if (ret && !element.numberSeqFormHandler().formMethodDataSourceValidateWrite())

{

ret = false;

}

return ret;

}

LinkActive: At DataSource Level

public void linkActive()

{

element.numberSeqFormHandler().formMethodDataSourceLinkActive();

super();

}

Write: At DataSource Level

void write()

{

;

ttsbegin;

element.numberSeqFormHandler().formMethodDataSourceWrite();

super();

ttscommit;

}

Delete: : At DataSource Level

void delete()

{

ttsbegin;

element.numberSeqFormHandler().formMethodDataSourceDelete();

super();

ttscommit;

}

Create: At DataSource Level

void create(boolean append = false,

boolean extern = false) // If created externally

{;

super(append);

if (!extern)

{

element.numberSeqFormHandler().formMethodDataSourceCreate();

}

Open NumberSeqReference_Production class and go to load module

numRef.dataTypeId = typeId2ExtendedTypeId(typeid(ProdId));

numRef.referenceHelp = literalstr("@SYS53760");

numRef.wizardContinuous = true;

numRef.wizardManual = NoYes::No;

numRef.wizardAllowChangeDown = NoYes::No;

numRef.wizardAllowChangeUp = NoYes::No;

numRef.sortField = 1;

this.create(numRef);

Go to ProdParameters and add following method

static client server NumberSequenceReference numRefNum()

{

return NumberSeqReference::findReference(typeId2ExtendedTypeId(typeid(ProdId)));

}

AX Finance Module Vedios

2011-07-06T01:23:00.000-07:00

see this link

http://www.4shared.com/dir/W-Aitz4u/Axapta_Video.html

Difference Between Array and Container

2011-07-05T23:47:00.000-07:00

Difference Between Array and Container :
Array : 1.In this array are single dimension.
2.You can define array in only single data type.
Containers:1.To avoid single dimension to use Containers.
2.To define in containers use multiple datatypes.

Excel creation through x++

2011-07-05T21:30:00.000-07:00

Excel Creation Through X++
static void ExportingFields4mCustTable(Args _args)
{
CustTable CustTableLocal;
SysExcelApplication excelApp;
SysExcelWorkSheet excelWorksheet;
SysExcelRange excelRange;
SysExcelCells excelCells;
SysExcelCell excelCell;
ComVariant cellValue;
Int i=1;
;
excelApp = SysExcelApplication::construct();
cellValue = new ComVariant() ;
excelApp.workbooks().add();
excelWorksheet = excelApp.worksheets().itemFromNum( 1 );
excelCells = excelWorksheet.cells();
while select * from CustTableLocal
{
excelCells.item(i+4,4).value(cellValue.bStr(CustTableLocal.AccountNum));
excelCells.item(i+4,5).value(cellValue.bStr(CustTableLocal.Name));
i++;
}
excelApp.visible(true);

}

To Leave On First Record In Table

2011-07-03T21:41:00.001-07:00

To Leave On First Record In Table :
static void Job5(Args _args)
{
    InventTable inventTable, inventTable2;
    ;
    select firstonly inventTable2;
    while select inventTable
        where   inventTable.RecId != inventTable2.RecId
    {
        info(strfmt('Item No. = %1',inventTable.ItemName));
    }

}

Pack & UnPack

2011-06-30T21:05:00.000-07:00

Pack and unpack

Pack
this method is a standard method inherited from RunBase. It is used to save
the values that the user selects and store them until the next time the user executes
the class.
Public container pack ()
{
return [#CurrentVersion, #CurrentList];
}

===
unpack
Standard method inherited from RunBase and used to fetch the values that the user
selected the previous time he executed the class.
public boolean unpack(container packed Class)
{
Version version = RunBase::getVersion(packedClass);
;
switch (version)
{
case #CurrentVersion:
[version, #CurrentList] = packedClass;
break;
default:
return false;
}
return true;
}

Indexes

2011-06-30T20:48:00.000-07:00

Indexes:

In unique index u put in 2 or more fields it validates 2 fields and 2 rows are same it shows error otherwise if one filed allows duplicate values.

Delete Actions

2011-06-30T20:46:00.000-07:00

Delete Actions:

1. Cascade.

2. Restricted.

3. Cascade + Restricted.

1. Cascade:

If you delete the record in parent table the relating records in the child table will automatically deletes.

2. Restricted:

If u deletes the records in parent table there is an error shown. There is a dependent in the child table.

3. Cascade + Restricted:

Setting the Delete Action property to Cascade + Restricted extends the functionality of the table's validate Delete and delete methods.

As a result, super (), in validate Delete, ascertains whether records exist on related tables. Whether deleting records from forms or X++, if validate Delete returns false, the primary record isn't deleted and the cascading delete isn't performed. You should first delete the records in the related table before deleting the primary record.

Filters

2011-06-30T02:35:00.001-07:00

If u want filter the fields based on ID’s in the grid level

GoàForm’s init method àpaste the following code below super

TVPurchRequirmentSheet_DS.query().dataSourceTable(tablenum(TVPurchRequirmentSheet)).addRange(fieldnum(TVPurchRequirmentSheet,SalesId))

.value(QueryValue(nestingTable.SalesId));