Validation on Trade Agreement Journal Posting

Q: How to add Trade agreement Journal Line Posting Validation?

Case Study:

              In My Case of Trade Agreement at the time of journal line posting check the line in the journal on the basis of six fields relation, ItemRelation, AccountRelation, Currency, InventSiteId, InventLocationId. First, I have to get the line which record have the highest FromDate and Iterate in the same Journal Any Record Field Data match with the above mention field data change the ToDate to one day Previous Date.

Form:



Trade Agreement Journal Lines:



Post Button:


TradeAgreementJournal Form name: PriceDiscAdm

DataSource
1. PriceDiscAdmTrans
2. InventDim
3. EcoResCategory
4. EcoResCategory
5. TmpRetailPriceDiscAdmTrans
6. RetailCategoryContainmentLookup
7. EcoResProductCategory


POST button Controll Name: PriceDiscAdmPost

class: PriceDiscAdmCheckPost

System will validate the below fields

Relation
CN: relation DS: PriceDiscAdmTrans Table: PriceDiscAdmTrans DF: relation

Item Relation
CN: ItemRelation DS: PriceDiscAdmTrans Table: PriceDiscAdmTrans DF: ItemRelation

Account Selection
CN: AccountRelation DS: PriceDiscAdmTrans Table: PriceDiscAdmTrans DF: AccountRelation

Currency
CN: PriceDiscAdmTrans_Currency DS: PriceDiscAdmTrans Table: PriceDiscAdmTrans DF: Currency

Site
CN: InventoryDimension_InventSiteId DS: InventDim Table: InventDim DF: InventSiteId

Warehouse
CN: InventoryDimension_InventLocationId DS: InventDim Table: InventDim DF: InventLocationId


Relation in PriceDiscAdmTrans
PriceDiscAdmTrans.inventDimId == InventDim.inventDimId

Source Code:

[ExtensionOf(classStr(PriceDiscAdmCheckPost))]
final class PriceDiscAdmCheckPost_Extension
{
    void postJournal()
    {
        next postJournal();
        str jornalNum = journalNum;
        PriceDiscAdmTrans           priceDiscAdmTrans,localPriceDiscAdmTrans,delRecordLocalPriceDiscAdmTrans;
        InventDim                   localInventDim,delRecordLocalInventDim;

       select firstonly JournalNum,relation,ItemRelation,AccountRelation,Currency,FromDate from localPriceDiscAdmTrans
               order by JournalNum,relation,ItemRelation,AccountRelation,Currency,FromDate desc
               join inventDimId,InventSiteId,InventLocationId from localInventDim
               where localPriceDiscAdmTrans.InventDimId == localInventDim.inventDimId && localPriceDiscAdmTrans.JournalNum == jornalNum;


       ttsBegin;
        while select forupdate JournalNum,relation,ItemRelation,AccountRelation,Currency,FromDate,ToDate From delRecordLocalPriceDiscAdmTrans
              join inventDimId,InventSiteId,InventLocationId from delRecordLocalInventDim
              where delRecordLocalPriceDiscAdmTrans.InventDimId == delRecordLocalInventDim.inventDimId && delRecordLocalPriceDiscAdmTrans.JournalNum == localPriceDiscAdmTrans.JournalNum
              && delRecordLocalPriceDiscAdmTrans.relation == localPriceDiscAdmTrans.relation && delRecordLocalPriceDiscAdmTrans.ItemRelation == localPriceDiscAdmTrans.ItemRelation
              && delRecordLocalPriceDiscAdmTrans.AccountRelation == localPriceDiscAdmTrans.AccountRelation && delRecordLocalPriceDiscAdmTrans.Currency == localPriceDiscAdmTrans.Currency
              && delRecordLocalInventDim.InventSiteId == localInventDim.InventSiteId && delRecordLocalInventDim.InventLocationId == localInventDim.InventLocationId
        {
            if(delRecordLocalPriceDiscAdmTrans.FromDate < localPriceDiscAdmTrans.FromDate && delRecordLocalPriceDiscAdmTrans.RecId != localPriceDiscAdmTrans.RecId)
            {
                delRecordLocalPriceDiscAdmTrans.ToDate = delRecordLocalPriceDiscAdmTrans.ToDate - 1;
                delRecordLocalPriceDiscAdmTrans.update();
            }
        }
        ttsCommit;
   }

}









































































Location: Pakistan

Comments

Post a Comment

Popular posts from this blog

D365FO – AX – Update Data Entity Target Entity fields with X++

Image
  Imagine you want to set the value of a field of the Target Entity of a Data Entity with X ++ code You have to create an extension class that extends the data Entity, extends the “mapEntityToDataSource” method, and adds your code inside. [ExtensionOf(tableStr(PurchPurchaseOrderHeaderV2Entity))] //Extends Data Entity final class Al0PurchPurchaseOrderHeaderV2Entity_Extension {     public void mapEntityToDataSource(DataEntityRuntimeContext _entityCtx, DataEntityDataSourceRuntimeContext _dataSourceCtx) //Extends method     {         switch (_dataSourceCtx.name())         {             case dataEntityDataSourceStr(PurchPurchaseOrderHeaderV2Entity, PurchTable):             PurchPurchaseOrderHeaderV2Entity purchPurchaseOrderHeaderV2Entity = _entityCtx.getEntityRecord(); //Get Data Entity buffer (Source Entity)             PurchTable purchTa...
Read more

How to Create Auto Lookup Using EDT with Table Reference in D365 F&O

Image
  How to create a lookup in D365FO using X++? Lookups are the standard way to display a list of possible selection values to the user. For a user, while editing or creating database records, a lookup makes the data entry easy and errorless. In Microsoft dynamics 365 finance and operations, there are many ways of creating lookups. EDT and Table Relation Type lookups are the simplest forms of lookups in Microsoft dynamics 365 finance and operations. In this article, I will describe the very simplest type of lookup, which is EDT lookup, for making an EDT type lookup, a developer does not need to worry more about writing x++ coding,   Normally, standard lookups are created automatically by the system in Dynamics 365 for Finance and Operations and are based on the extended data types and table setup.  They are based on table relations and appear automatically. No additional modifications are required. Setting Up an EDT Lookup If you are a beginner use  Microsoft's free ...
Read more