Archive for the ‘ Dynamics AX ’ Category

Transforming X++ into a General Web-Based Application Development Platform.

Microsoft Dynamics 365 F&SCM/FO/AX/Axapta was originally developed in collaboration between IBM and the Danish company Damgaard Data, with the first version released as IBM Axapta in March 1998. Axapta included its own development system, a combination of MorphX and the X++ programming language. MorphX and X++ had went through a significant evolution after Microsoft acquired the product in 2002. Initially, it was only designed to support enterprise resource planning processes, but today, with the support of Microsoft’s vision and technologies, X++ has become a powerful web development platform, but is still only available within Dynamics 365 F&SCM.

Along with its rapid development capabilities, strong database integration, high performance, object-oriented programming and the ability to efficiently manage business rules, X++ is able to provide fast and excellent solutions to the complexity of the business world. Currently, thousands of additional solutions developed with X++ are successfully used in ERP. However, the dependency of these solutions on Dynamics 365 F&SCM infrastructure limits their potential customer base.

In this article, we will discover the benefits of X++ becoming a mainstream web development platform and the opportunities this transformation can create for business, Microsoft and the X++ ecosystem. With detailed analysis and examples, we will evaluate how this transformation can be realized, the implications and challenges it may bring. Finally, we will try to create a platform for the entire ecosystem to discuss this transformation.

Why should this transformation be essential, and what benefits will it bring when completed?

  • There are currently thousands of modules and functions are written by X++. While these are currently dependent on Dynamics 365 F&SCM, many of them can be productized and sold independently. Developing these products with a different language that lacks of an  infrastructure similar to X++ is both costly and challenging. Leveraging these existing products through AppSource or independent sales could create numerous opportunities for Dynamics 365.
  • X++ allows for the rapid and easy development of many corporate web products, providing opportunities for both the X++ and Dynamics 365 ecosystems. Additionally, product and solution diversity will will support to growing Dynamics 365′s competitive position. Producing products with X++ is faster and more reliable than other languages.
  • This transformation will expand X++ ecosystem. The interaction of different resources working with X++ will allow for solutions to emerge in unexpected areas. Moreover, the growth of this ecosystem will positively impact the growth of Dynamics 365 F&SCM, enhancing its visibility.
  • Making X++ a new and easily accessible language for training resources will increase its appeal, especially for individuals at the beginning of their careers. Additionally, there will be no need for virtual machines or lengthy installations for training, making X++ development easily experiencable for many.
  • Open-source logic can be applied to X++ projects, resulting in the development of more powerful products. Furthermore, aligning with Microsoft‘s vision, this transformation will accelerate the development of X++.
  • The existing X++ ecosystem simplifies the widespread adoption and training of this new structure. Numerous X++ trainers and creators are already exists and more can be quickly added.
  • Along with these new products and ecosystem, cross-sell and co-sell opportunities will be increased.
  • The current structure of the X++ development environment is already suitable for this transformation. I believe that this transformation can be accomplished with a relatively uncomplicated project. With the contribution of volunteers from the X++ ecosystem, an initial version for training purposes could be released. In this version, the ability to create new objects would be sufficient.
  • Given that products developed with X++ can be easily integrated into the Microsoft ecosystem and provides cost advantages, they will be preferable.
  • X++ can be a language and platform for education, particularly for foundational software training in schools, especially in Object-Oriented Programming and Database Management courses. To support this, educational content can be prepared.
  • X++ language and development framework are enable the easy, fast, and reliable development of products. Particularly, the simplicity in database transactions, the structure of EDT and Enum, the security architecture, and the organized nature of Events provide for well-organized code and the creation of straightforward solutions for complex needs. Applications hosting large volumes of data can be developed easily.
  • It’s noteworthy that within the current X++ environment, developers already possess the capability to write code in C# and make use of .NET libraries seamlessly. This inherent flexibility allows for a powerful synergy between the robust features of X++ and the extensive functionalities offered by C# and the broader .NET ecosystem. Leveraging this advantage, the transformation of X++ into a comprehensive web-based development platform gains an extra layer of versatility. Developers, familiar with C# syntax and accustomed to working with .NET libraries, can seamlessly transition their skills to enhance X++ applications. This not only streamlines the development process but also extends the potential areas of application, making X++ an even more adaptable and developer-friendly platform.
  • While Microsoft currently offers Power Pages for citizen developers as a web development tool, there is no such tool for core developers. X++ can quickly fill this gap. This transformation will not only avoid competition with Microsoft‘s other products,it will also increase the usage of Power Platform and Dynamics 365. On the Azure side, it is anticipated to have an even greater impact.
  • Especially in corporate web solutions where data processing is crucial and complex code is required, X++ can be quickly and easily put into operation, making it a highly preferred tool.

How can X++ be transformed into a general web development platform?

  • The most important step towards X++‘s goal of becoming a general software development language starts with having a structure that can be easily developed locally like C#. At this point, the current state is very close to this goal, but the size of the system complicates this transformation. A language that gets rid of this complexity can realize this evolution much more smoothly.
  • X++ should be come with a framework that simplifies development, not just the language itself. When I refer to X++, I mean the development structure that comes with the framework. This structure is the main goal we want to achieve. Thus, while there will be an Application Object Tree (AOT), almost no standard objects will be present initially. When developing a new application, we should be able to include different modules in our project if we wish.

Structures that can be optionally added include:

  1. User management
  2. Standard EDTs and Enums
  3. Security infrastructure
  4. Workflow management
  5. Address management
  6. Company structure
  7. Data Management Framework (DMF)
  8. SQL Server Reporting Services (SSRS)
  9. Office integration
  10. Batch jobs
  11. Web service structure
  12. Power platform integration
  13. Power BI
  14. Model package management
  • Servers for a product developed with X++ can be made ready on Azure. These offers make advantage of Azure consumption.. However, this should not be a requirement and alternative options should be available.
  • It should be compatible with different versions of SQL Server. It can be done in the future to enhance its ability to work with various databases, expanding integration opportunities with different databases.
  • The initial version can start in a simpler form, leaving out structures that could complicate matters initially, such as Map, Extension, Table Extension, etc.
  • The standard Dynamics 365 F&SCM structure can remain the same. This should be released as a new product.

In Conclusion:

Throughout this article, we have examined many advantages of transforming X++ into a general web development platform. X++ is known as a language that stands out with its robust database management, rapid development capabilities, object-oriented programming features, and effective business rule management. However, using these powerful features in the context of general web development will open up access to a wider user base and offer potential solutions in various projects.

The evolution of X++ into a general web development platform not only creates new opportunities but also allows for the modernization of existing projects. Developers can produce more efficient, faster, and powerful projects with this transformation. This feature will gives companies a competitive advantage and allowing the language to create a richer ecosystem with a broader developer base.

However, achieving these goals requires not only technical challenges but also community support, educational resources and developer collaboration. Get through these challenges and leveraging the potential of X++ can provide benefits to developers and to the business world.

In conclusion, the transformation of X++ into a general web development platform allows for a wider perspective on the language. This transformation will carry out the foundations of the language into general web applications, providing more effective and competitive solutions in future projects.The X++ community, the developer team, and Microsoft can contribute together to ensure the success of this journey. I can’t wait to see what the future holds!

Happy Daxing!

Fatih Demirci

2024

Dynamics 365 Finance and Operations: Ürün reçetesi günlüğü oluşturma ve nakletme.

Bu yazıda Dynamics 365 Finance and Operations içinde kodla ürün reçetesi günlüğü oluşturup deftere nakletmek için basit bir örnek vereceğim.

Bu günlükler ara yüzden de girilebilir. Ancak birçok durumda bizim otomatik oluşturmamız istenir.

Gelelim örnek kodumuzu. Bu örnek kod tek satırlı ve miktarı 1 olan basit bir günlük oluşturuyor ve deftere naklediyor. Burada bir madde kodundan diğerine aktarım yapıyoruz gibi düşünebilirsiniz.  Siz ihtiyacınıza göre değiştirebilirsiniz.

class DmrCreateBomJournal

{

public static void main(Args _args)

{

InventJournalTableData  journalTableData;

InventJournalTrans      inventJournalTrans;

InventJournalTrans      InventJournalTransOld;

JournalCheckPost        journalCheckPost;

InventJournalTable      journalTable;

InventDim               FromInventDim,toInventDim;

ItemId                  ItemId      = “I0002″;

ItemId                  toItemId    = “I0003″;

inventDimId             inventDimId = “D0003″;

InventJournalNameId     TransferJournalNameId;

InventTable             inventTable;

InventBatch             InventBatchNew;

InventDim               InventDim;

InventDim               inventDimFrom;

int i;

;

ttsbegin;

inventTable = inventTable::find(ItemId);

InventDim   = InventDim::find(inventDimId);

TransferJournalNameId = “S0944″;

journalTable.clear();

journalTable.JournalNameId  = TransferJournalNameId;

journalTable.initFromInventJournalName(InventJournalName::find(TransferJournalNameId));

journalTableData            = JournalTableData::newTable(journalTable);

journalTable.JournalId      = journalTableData.nextJournalId();

journalTable.JournalType    = InventJournalType::BOM;

journalTableData.initFromJournalName(journalTableData.JournalStatic().findJournalName(journalTable.journalNameId));

journalTable.Description    = “Bom journal”;

journalTable.insert();

i++;

inventDimFrom.clear();

inventDimFrom.initValue();

inventDimFrom.InventSiteId      = InventDim.InventSiteId;

inventDimFrom.InventLocationId  = InventDim.InventLocationId;

inventDimFrom.InventSizeId      = InventDim.InventSizeId;

inventDimFrom.inventBatchId     = InventDim.inventBatchId;

inventDimFrom = inventDim::findOrCreate(inventDimFrom);

InventJournalTransOld.clear();

InventJournalTransOld.ItemId           = ItemId;

InventJournalTransOld.InventDimId      = inventDimFrom.InventDimId;

InventJournalTransOld.JournalId        = journalTable.JournalId;

InventJournalTransOld.TransDate        = today();

InventJournalTransOld.BOMLine          = NoYes::Yes;

InventJournalTransOld.Qty              = -1;

InventJournalTransOld.JournalType      = InventJournalType::BOM;

InventJournalTransOld.LineNum = i;

InventJournalTransOld.insert();

i++;

InventJournalTrans.clear();

InventJournalTrans.ItemId              = toItemId;

if(!InventBatch::find(InventDim.inventBatchId ,toItemId) )

{

InventBatchNew.clear();

InventBatchNew.itemId = toItemId;

InventBatchNew.inventBatchId = InventDim.inventBatchId;

InventBatchNew.insert();

}

InventJournalTrans.InventDimId         = inventDimFrom.InventDimId;

InventJournalTrans.ItemId              = toItemId;

InventJournalTrans.Qty                 = 1;

InventJournalTrans.JournalId           = journalTable.JournalId;

InventJournalTrans.JournalType         = InventJournalType::BOM;

InventJournalTrans.TransDate           = today();

inventJournalTrans.LineNum = i;

InventJournalTrans.insert();

InventJournalTransold.InventTransIdFather = InventJournalTrans.InventTransId;

InventJournalTransOld.update();

journalCheckPost = InventJournalCheckPost::newPostJournal(journalTable);

if(journalCheckPost.validate())

{

journalCheckPost.run();

}

info(strFmt(“%1 journal created.”, journalTable.JournalId));

ttscommit;

}

}

Bu yazıda ürün reçetesi günlüğü oluşturma örneği paylaştım. Umarım faydalı olur.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, InventJournal, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, X++

Dynamics 365 Finance and Operations Form DataSource Metotlarında Extension Kullanımı.

Bu yazıda Dynamics 365 Finance and Operations içinde standart bir formun DataSource metotlarına Extension ile nasıl ekleme yapabiliriz anlatmaya çalışacağım. Eski versiyonlarda bu işlem çok kolay ve hızlı yapılabiliyordu. Artık direk müdahale edemediğimiz için Extension mantığıyla ulaşmak zorundayız.

Bir örnek kodla DataSource metotlarına nasıl ulaştığımızı görelim. Bu örnekte CustInvoiceJournal formuna E-Fatura havuzuna gönderilenler ilk açılırken gelmesin diye bir filtre eklemek istiyorum. Bunun için CustInvoiceJour veri kaynağının init() metoduna ulaşıp bir join yapmam gerekiyor.  Yeni bir class oluşturuyorum.

[ExtensionOf(formDataSourceStr(CustInvoiceJournal,CustInvoiceJour))] // Bu satır asıl işi yapan hangi DataSource ise onu seçiyorum.

final class CustInvoiceJournalDS_FD_Extension // final eklemeyi unutmayın.

{

public void init()

{

FormDataSource          formDS = this; // DataSource metodunda olduğum için This direk DataSource u veriyor.

QueryBuildDataSource    custInvoiceJourDS;

QueryBuildDataSource    eInvoicePoolTableDS;

#IsoCountryRegionCodes

next init();  // asıl metodu çağıran kısım.

if (SysCountryRegionCode::isLegalEntityInCountryRegion([#isoTR]) //

{

custInvoiceJourDS = formDS.query().dataSourceTable(tableNum(custInvoiceJour));

// FormDS form dataSource olduğu için ona ekleme yapamazsınız. Aslında bize QueryBuildDataSource nesnesi lazım FormDS üzerinden ulaşıyorum.

eInvoicePoolTableDS = custInvoiceJourDS.addDataSource(tableNum(FDEInvoicePoolTable)); // Eklemeyi yapıyorum.

eInvoicePoolTableDS.addLink(fieldNum(custInvoiceJour , recId), fieldNum(FDEInvoicePoolTable ,RefRecId ));

eInvoicePoolTableDS.addLink(fieldNum(custInvoiceJour , TableId), fieldNum(FDEInvoicePoolTable,RefTableId ));

eInvoicePoolTableDS.joinMode(JoinMode::NoExistsJoin);

}

}

}

Bu yazıda standart bir formun herhangi bir DataSource metoduna Extension ile nasıl ekleme yapılır anlatmaya çalıştım.

Selamlar.

www.fatihdemirci.net

TAGs: Dynamics 365 Finance and Operations, MsDyn365FO, init(), DataSource, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Dynamics 365 ERP, X++

Dynamics AX 2012 Caching Video 1

Merhaba,

Sonunda YouTube kanalımı açtım videolarımı çekmeye başladım.
Yazdığın ön bellek makalelerini açıklamaya çalıştığım video aşağıda. Umarım daha güzel videolarla devam edebilirim.

İyi seyirler.

History Of AX

Merhaba

Çok beğendiğim bende nostanji yaşatan iki makaleyi sizinle paylaşmak istiyorum.

History of AX

Technical History of Dynamics AX – From Axapta 3.0 to AX2012

Axapta’yı ilk olarak 2006 yılında Turkmedya firmasında tanıdım. Axapta 3.0 kullanılıyordu. Ben başladığımda proje canlıya geçmişti. Destek ve yeni geliştirmeler ile giriş yaptığım AX dünyasında 12 yılı devirdim. Hayatım üzerinden bu kadar etkisi olacağını tahmin edemezdim.

Selamlar.

XML’de metin değiştirmek

Merhaba

Ax ta E-Fatura süreçleriyle uğraşmayan yoktur. Biz SimpleUBL adında bir eklentiyle hem XML hemde UBL oluşturuyoruz. Şöyle bir ihtiyaç  oldu bazı durumlarda bir alanın verisinin değiştirilmesi gerekiyor. Örneğin matbu irsaliye numarası. Bunun  için gerekli tablolarda veriyi güncelleyip sonra E-Fatura UBL ini oluşturan kodu tekrar çağırınca direk güncelliyor. Ancak bu işlem biraz yavaş çok fazla kontrol ve  işlem yapıyor. Bense çok basit sadece bir alanı değiştirmek istiyorum ve çok hızlı  olması gerekiyor.  Bunu  için str fonksiyonlarından faydalanarak bir metot yazdım. Umarım  işinize yarar.

Örnek UBL in bir parçası  şöyle:


<?xml version="1.0" encoding="utf-8"?>
  <cbc:UBLVersionID>2.1</cbc:UBLVersionID>
  <cbc:CustomizationID>TR1.2</cbc:CustomizationID>
  <cbc:ProfileID>TEMELFATURA</cbc:ProfileID>
  <cbc:ID>YTD20182222225</cbc:ID>
  <cbc:CopyIndicator>false</cbc:CopyIndicator>
  <cbc:UUID>E01C17F9-B13B-4Df5E-BB5A-92F52E17ff3AB0</cbc:UUID>
  <cbc:IssueDate>2018-09-01</cbc:IssueDate>
  <cbc:IssueTime>06:43:11.0000000+03:00</cbc:IssueTime>
  <cbc:InvoiceTypeCode>ISTISNA</cbc:InvoiceTypeCode>
  <cbc:Note>Yazıyla :  TRY TRY</cbc:Note>
  <cbc:Note>TOPLAMADET: 1 / 22,00 </cbc:Note>
  <cbc:LineCountNumeric>1</cbc:LineCountNumeric>
  <cac:OrderReference>
    <cbc:ID>YKS022222222</cbc:ID>
    <cbc:IssueDate>2018-08-08</cbc:IssueDate>
    <cbc:IssueTime>07:25:31.0000000+03:00</cbc:IssueTime>
  </cac:OrderReference>
  <cac:DespatchDocumentReference>
  <cbc:ID>SVK000343433</cbc:ID>
    <cbc:IssueDate>2018-09-01</cbc:IssueDate>
  </cac:DespatchDocumentReference>
  <cac:Signature>
    <cbc:ID schemeID="VKN_TCKN">11111111</cbc:ID>
    <cac:SignatoryParty>

Ben ‘cbc:id SVK000343433 cbc:id’ buradaki SVK000343433 bu numarayı değiştirmek istiyorum.

Bir kaç zorluk var. Birincisi bu numaranın uzunluğu sabit değil.

İkincisi Her bir satır yeni satir karakteriyle ayrılmış durumda.


static void FD_UpdateXml(Args _args)
{
    EInvoiceTable  eInvoiceTable;
    str     str1;
    str     str2;
    str     str3;
    int     i ,j;
    num     packingSlipId = "FD000002";
    ;

    ttsBegin;

    select forUpdate eInvoiceTable
        where eInvoiceTable.RecId  == 5637292931;

    str3 = strFmt("<cbc:ID>%1</cbc:ID>" , DmrPackipackingSlipIdngSlipId ); // Değiştireceğim metin

    i = strScan( eInvoiceTable.InvoiceXml , // İrsaliye numrasının başladığı yeri tespit ediyorum.
        "<cac:DespatchDocumentReference>" , 0,
        strLen(eInvoiceTable.InvoiceXml));

    str1 = subStr( eInvoiceTable.InvoiceXml ,  i +31  , 50);
    // Karakteri sayip  ilerletiyorum ve 50 karakterlik bir parçayı alıyorum
    //str1  böyle bir string oluyor <cbc:ID>YKS000017102</cbc:ID>   <cbc:IssueDa

    j = strScan( str1 ,"</cbc:ID>" , 0, strLen(str1)); // Numaranın bitişini tespit ediyorum.
    str2 = subStr( eInvoiceTable.InvoiceXml ,  i +31  ,j+8);  // Değiştirmek istediğim metne ulaşıyorun
    // str2 <cbc:ID>YKS000017102</cbc:ID> bu oldu

    eInvoiceTable.InvoiceXml = strReplace(eInvoiceTable.InvoiceXml ,str2 ,str3);
    // str2 yi str3 ile değiştiriyorum.

    eInvoiceTable.update();

    ttsCommit;
}

Selamlar.

Dynamics Ax UserConnection kullanımı

Merhaba

Ax’ta  ilk versiyonlardan beri transaction (ttsBegin ttsCommit) blokları dediğimiz bir yapı vardır. Veri tutarlılığı için çok önemli olan roleback dediğimiz bir hata durumunda o blokta yapılan işlemlerin tümünü geri almayı sağlayan bir yapıdır. Ax ta çok sıklıkla kullanılır. Veri tabanında yapılacak işlemlerde mutlaka kullanmak gerekir. Benim bu yazıda bahsedeceğim konu bu bloklar arasında bir hata oluştuğunda roleback in dışında tutmak istediğim bir işlemi nasıl sağlayabileceğim. Genelde bu log atma bildirim gönderme gibi işlemler olur.  Bir örnekle açıklamaya çalışayım.  Eski sistemden satış verilerinin geldiği ve axta sipariş oluşturulup deftere nakledinlen bir yapı olsun.  Herhangi bir sebepten sipariş  oluşturulamadığında bir log tablosuna kayıt atmak istiyorum.   Örnek kodlar şöyle  olsun:

server static void FD_UserConnection1(Args _args)
{
    DmrSalesOrderHeader DmrSalesOrderHeader = DmrSalesOrderHeader::findByRecid(325355554);
    DmrSalesOrderLine   DmrSalesOrderLine;
    ;
    ttsBegin;
    try
    {
        // Sipariş başlığı oluşturma kodu
        while select DmrSalesOrderLine
            where DmrSalesOrderLine.OrderId == DmrSalesOrderHeader.OrderId
        {
            // Sipariş satırı oluşturma kodu
            throw error("hata");
        }
    }
    catch
    {
        DmrExceptionTable::findOrCreate("Satır oluşturulurken bir hata oluştu.", "DmrCreateSalesOrder",
                DmrSalesOrderHeader.recid,DmrSalesOrderHeader.tableId,DmrSalesOrderHeader.recversion);
    }

    ttsCommit;

}

Bu metod sipariş oluşturmaya çalışırken herhangi bir satırda hata veriyor. Bizde hata verdiğini yakalayıp hangi kayıttan sipariş oluştururken hata verdiğini bir tabloya yazmaya çalışıyoruz. Normalde hata verdiği ve tts blokları olduğu için bizim yazmaya çalıştığımız veriyi de geri alacaktı ancak UserConnection ve UnitOfWork kullanarak bunu engelliyoruz. Metot aşağıda.

static server void findOrCreate(    str1260          _exceptionDetail,
                                    str 100          _className,
                                    RefRecId         _RefRecId,
                                    RefTableId       _RefTableId,
                                    RefRecId         _RefRecVersionId)
{
    DmrExceptionTable   DmrExceptionTable;
    UserConnection      UserConnection;
    UnitOfWork          UnitOfWork;
    ;

    UserConnection = new UserConnection();
    UserConnection.ttsbegin();
    UnitOfWork = new UnitOfWork();

    DmrExceptionTable.ExceptionDetail       = _exceptionDetail;
    DmrExceptionTable.ClassName             = _className;
    DmrExceptionTable.RefRecId              = _RefRecId;
    DmrExceptionTable.RefTableId            = _RefTableId;
    DmrExceptionTable.RefRecVersionId       = _RefRecVersionId;

    UnitOfWork.insertonSaveChanges(DmrExceptionTable);
    UnitOfWork.saveChanges(UserConnection);

    UserConnection.ttscommit();

}

Selamlar.

Ax’ta yeni bir iş akışı ataması oluştuğunda aynı kullanıcının bu iş akışı için daha önce onayı var mı tespit etmek

Merhaba

İş akışında yeni bir atama oluştuğunda atanan kişinin aynı iş akışında daha önce onayı var mı diye kontrol etmek için aşağıdaki metodu kullanabilirsiniz. Bu metodu WorkflowTrackingTable’ a yazdım ama farklı bir yere de yazılabilir. İş akışı altyapısı biraz karışık standart yapıyı değiştirirken dikkatli olmakta fayda var.


Boolean dmrExistApprove()
{
    boolean ret = false;

    WorkflowTrackingStatusTable     workflowTrackingStatus;
    WorkflowTrackingStatusTable     workflowTrackingStatusExist;
    WorkflowTrackingTable           workflowTrackingTable;
    ;

    workflowTrackingStatusExist = WorkflowTrackingStatusTable::findRecId(this.WorkflowTrackingStatusTable);

    select firstOnly RecId, User from workflowTrackingTable
    exists join workflowTrackingStatus
    where  workflowTrackingTable.WorkflowTrackingStatusTable == workflowTrackingStatus.RecId
        && workflowTrackingTable.TrackingType       == WorkflowTrackingType::Approval
        && workflowTrackingTable.User               == this.User
        && workflowTrackingTable.RecId              != this.RecId
        && workflowTrackingStatus.ContextRecId      == workflowTrackingStatusExist.ContextRecId
        && workflowTrackingStatus.InstanceNumber    == workflowTrackingStatusExist.InstanceNumber
        && workflowTrackingStatus.ContextTableId    == workflowTrackingStatusExist.ContextTableId
        && workflowTrackingStatus.TrackingStatus    != WorkflowTrackingStatus::Cancelled ;

    if(workflowTrackingTable.recid)
    {
        ret = true;
    }

    return ret;
}

Selamlar.

İş akışı onayını koddan yapmak

Merhaba

Ax2012′de iş akışını onaylamak için aşağıdaki örnek kodu kullanabilirsiniz.


static void FD_WorkflowWorkItemTable(Args _args)
{

    WorkflowWorkItemTable WorkflowWorkItemTable;
    ;

    WorkflowWorkItemTable = WorkflowWorkItemTable::findRecId(123434343);

    if(WorkflowWorkItemTable)
    {
        ttsBegin;
        WorkflowWorkItemActionManager::dispatchWorkItemAction(
           WorkflowWorkItemTable, // Work item record for which the action is being taken
           strFmt("Auto Approve by %1 ", curUserId() ), // Comment associated with this action
           curUserId(), //The target user of the action
           WorkflowWorkItemActionType::Complete,//The work item action type to take
           "PurchTableApprovalApprove", // The name of the menu item from which the action originated
           false // Flag denoting if this request originated from web or rich client
           );

        ttsCommit;
    }
}

Selamlar.

Satınalma talep konsolidasyonu (PurchReqConsolidation) formu performans sorunu

Merhaba,

Bir müşterimizde Satınalma talep konsolidasyonu formu çok geç açılıyordu. Öncelikle sorunun ne olduğunu anlamadım. Formun veri kaynağında yavaşlığa sebep olacak bir tablo yoktu. Indexler düzgün bağlantılarda sorun yok. Formun açılışına yazılmış bir kod yok. Bir süre inceledikten sonra Partları gördüm. Partların kodunu inceleyince sorunu hemen tespit ettim.

public void linkActive()
{
    PurchReqConsolidationLine   purchReqConsolidationLine;
    PurchReqLine                purchReqLine;

    purchReqConsolidation = element.args().record();

    super();

    delete_from purchReqTmpConsolidationPart;

    while select purchReqConsolidationLine
    {
        purchReqLine = PurchReqLine::find(purchReqConsolidationLine.PurchReqLineID);

        purchReqTmpConsolidationPart.PurchReqConsolidationLine = purchReqConsolidationLine.RecId;
        purchReqTmpConsolidationPart.PurchReqConsolidationID   = purchReqConsolidationLine.PurchReqConsolidationId;
        purchReqTmpConsolidationPart.AmountBeforeConsolidation = purchReqConsolidationLine.calcAmountBeforeConsolidation();
        purchReqTmpConsolidationPart.AmountAfterConsolidation  = purchReqConsolidationLine.calcAmountAfterConsolidation();
        purchReqTmpConsolidationPart.VendAccount               = purchReqConsolidationLine.NewVendor;
        purchReqTmpConsolidationPart.setDataAreaForModifiedField(fieldNum(PurchReqTmpConsolidationPart, VendAccount), purchReqLine.buyingLegalEntity2DataArea());
        purchReqTmpConsolidationPart.CurrencyCode              = purchReqLine.CurrencyCode;
        purchReqTmpConsolidationPart.doInsert();
    }

    this.executeQuery();
    this.research();
}

Part formlarından biri olan PurchReqConsolidationPartByVendor formunun LinkActive metoduna yazılan koddaki temel hatayı hemen anlamışsınızdır. join yazılması gereken yerde find kullanılmış. Partları aktif olarak kullanmadığı için bu formdan kaldırıp formun çok daha hızlı açılmasını sağladım.

Daha vahim bir durum Satınalma talep konsolidasyonu formundan bir buton ile açılan PurchReqConsolidationAddLine formunda vardı.

PurchReqConsolidationAddLine Formunun PurchReqLine veri kaynağının init metodunda aşağıdaki kod mevcut.

public void init()
{
    PurchReqLine            tmpPurchReqLine;
    PurchReqTable           tmpPurchReqTable;
    QueryBuildRange         qbr;

    super();

    qbr = purchReqLine_ds.query().dataSourceTable(tableNum(PurchReqLine)).addRange(fieldNum(PurchReqLine,RequisitionPurpose));
    qbr.value(SysQuery::value(RequisitionPurpose::Consumption));
    qbr.status(RangeStatus::Locked);

    qbr = purchReqLine_ds.query().dataSourceTable(tableNum(PurchReqLine)).addRange(fieldNum(PurchReqLine,PurchLineCreated));
    qbr.value(SysQuery::value(NoYes::No));
    qbr.status(RangeStatus::Locked);

    qbr = purchReqLine_ds.query().dataSourceTable(tableNum(PurchReqLine)).addRange(fieldNum(PurchReqLine,RequisitionStatus));
    qbr.value(queryValue(PurchReqRequisitionStatus::Approved));
    qbr.status(RangeStatus::Locked);

    purchReqLine.setTmp();

    while select tmpPurchReqLine
            join RecId, SourceDocumentHeader   from tmpPurchReqTable
           where tmpPurchReqLine.PurchReqTable            == tmpPurchReqTable.RecId   &&
                 tmpPurchReqLine.IsPreEncumbranceRequired != UnknownNoYes::Unknown
    {
        if (PurchReqPurchaseOrderGenerationRule::canConsolidateStatic(tmpPurchReqLine) &&
            !PurchReqConsolidationLine::findByReqLineId(tmpPurchReqLine.RecId))
        {
            purchReqLine.data(tmpPurchReqLine.data());

            // Since tempory table will overwrite the RecId value, so assign RecId into an unused field
            purchReqLine.AddressRefRecId = tmpPurchReqLine.RecId;

            purchReqLine.doInsert();
        }
    }
}

PurchReqConsolidationLine join yerine if ile kontrol edildiği için bu formun açılması da dakikalar sürüyordu. Kodu aşağıdaki hale çevirince saniyeler içinde açılmaya başladı.

public void init()
{
    PurchReqLine            tmpPurchReqLine;
    PurchReqTable           tmpPurchReqTable;
    purchReqConsolidationLine purchReqConsolidationLine;
    QueryBuildRange         qbr;

    super();

    qbr = purchReqLine_ds.query().dataSourceTable(tableNum(PurchReqLine)).addRange(fieldNum(PurchReqLine,RequisitionPurpose));
    qbr.value(SysQuery::value(RequisitionPurpose::Consumption));
    qbr.status(RangeStatus::Locked);

    qbr = purchReqLine_ds.query().dataSourceTable(tableNum(PurchReqLine)).addRange(fieldNum(PurchReqLine,PurchLineCreated));
    qbr.value(SysQuery::value(NoYes::No));
    qbr.status(RangeStatus::Locked);

    qbr = purchReqLine_ds.query().dataSourceTable(tableNum(PurchReqLine)).addRange(fieldNum(PurchReqLine,RequisitionStatus));
    qbr.value(queryValue(PurchReqRequisitionStatus::Approved));
    qbr.status(RangeStatus::Locked);
    purchReqLine.setTmp();

    while select tmpPurchReqLine
            join RecId, SourceDocumentHeader   from tmpPurchReqTable
           where tmpPurchReqLine.PurchReqTable            == tmpPurchReqTable.RecId   &&
                 tmpPurchReqLine.IsPreEncumbranceRequired != UnknownNoYes::Unknown
        // Dmr FD -->
        notExists join purchReqConsolidationLine
            where tmpPurchReqLine.RecId ==  purchReqConsolidationLine.PurchReqLineID
        // Dmr FD <--

    {
        // Dmr FD -->
        //if (PurchReqPurchaseOrderGenerationRule::canConsolidateStatic(tmpPurchReqLine) &&
           // !PurchReqConsolidationLine::findByReqLineId(tmpPurchReqLine.RecId))
        if (PurchReqPurchaseOrderGenerationRule::canConsolidateStatic(tmpPurchReqLine) )
        // Dmr FD <--
        {
            purchReqLine.data(tmpPurchReqLine.data());

            // Since tempory table will overwrite the RecId value, so assign RecId into an unused field
            purchReqLine.AddressRefRecId = tmpPurchReqLine.RecId;

            purchReqLine.doInsert();
        }
    }
}

İki kod arasındaki farkı şöyle özetleyebilirim. İlk hali bütün PurchReqLine ları dolanıp PurchReqConsolidationLine da olmayanlar için temp kayıt oluşturur.
İkinci hali ise NotExists join ile bağlandığı için zaten sadece PurchReqConsolidationLine olmayan PurchReqLine ları getirecektir. Dolayısıyla çok daha hızlı olacaktır.

Performans ERP yazılımında belkide en çok dikkat edilmesi gereken konulardan biri. Yazdığımız her kodun birilerinin günlük hayatı olduğunu anlayıp mümkün olduğunda performanslı olmasına dikkat etmek gerekiyor. Gördüğünüz gibi çok basit dokunuşlarla çok büyük kazanımlar elde edebiliyorsunuz. Burada standart kodda böyle bir hatayla karşılaşmak beni şaşırttı. Genelde Standart kod çok kalitelidir ama bazen böyle gözden kaçan kodlar da olabiliyor.

Selamlar.

Page 1 of 20123451020...Last »