Posts Tagged ‘ Segmented Entry

Dynamics 365 Finance and Operations Cross-company Data Sharing.

Cross-company data sharing kavramı, ERP içindeki şirketler arasında şirket özel ana, referans ve kurulum verilerini paylaşmanızı sağlar.

İki veri paylaşımı kavramı mevcuttur:

Duplicate record sharing (DRS), bir politikada herhangi bir şirket için kayıtların oluşturulması, güncellenmesi veya silinmesinin, politikadaki tüm şirketlere kopyalanması/çoğaltılması kavramıdır. Alanların güncellemeleri, politikada paylaşılmak üzere seçilmişse çoğaltılır. DRS, ilk olarak sunulan paylaşım türüydü.

Single record sharing (SRS), bir ana şirkete ait tek bir fiziksel kaydın sanal olarak tüm alt şirketler arasında paylaşıldığı bir kavramdır. Herhangi bir şirkette oluşturma, güncelleme veya silme, tüm şirketler arasında kullanılan tek ortak kayıtta işlem yapar. Ana şirket paylaşımı şu anda ön izlemede ama kısa sürede buda aktif edilecektir. Biraz eski sanal şirket mantığı gibi düşünebilirsiniz.

Basit bir kurulumla DRS için bir örnek yapalım. Cross-company Data Sharing özelliği açık olmayabilir. Feature management kullanarak aktif edebilirsiniz. Sonrasında aşağıdaki formu açalım. Yeni bir kayıt oluşturup Tablo olarak CustGroup ekleyelim. Tablo listesi burada mevcut. Veri paylaşma istediğimiz iki şirketi seçtim.

Resim-1

USMF te veri mevcut.

Resim-2

SIR şirketinde hiç veri yok.

Resim-3

Kaydettikten sonra Enable edip senkronizasyonu başlatıyoruz.

Resim-4

Veri kopyalama devam ediyor.

Resim-5

İşlem tamamlandıktan sonra SIR şirketini yenilediğinizde verilerin oluştuğunu göreceksiniz. Resim1 de görüldüğü gibi PeymTermId seçmediğimiz için verileri kopyalanmadı. Bu şekilde istediğimiz alanı seçebiliriz. Tabi Ana tablolu bir alansa onun tablosunundu paylaşılması gerekecektir.

Resim-6

Ana veri paylaşımı çok sık karşımıza çıkan bir konu benzer kodları çok defa yazmak zorunda kalmışımdır. Bu özellik benzer ihtiyaçları sistem içinden çözmek için çok iyi olmuş. Hala geliştirilmeye devam ediyor. Tam olgunlaştığında özellikle danışmanlar tarafından yoğun kullanılacak bir fonksiyon olacaktır.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, DefaultAccount, LedgerDimension, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Dynamics 365 Finance and Operations LedgerDimension ve Segmented Entry nasıl eklenir?

Bu yazıda Dynamics 365 Finance and Operations içinde bir tabloya LedgerDimension nasıl eklenir ve bu alanı formda Segmented entry control ile nasıl kullanıcıya kullandırabiliriz anlatmaya çalışacağım.

LedgerDimension aslında DimensionAttributeValueCombination kaydıdır. LedgerDimension MainAccount ve DefaultDimension’ın bileşimidir.

Öncelikle Tabloya LedgerDimensionAccount EDT sini kullanarak bir alan ekleyelim. Eğer sürükle bırak ile eklerseniz otomatik ilişkiyi oluşturacak. Yoksa elle eklemeniz gerekir.

Resim-1

Sonrasında forma gelip eklediğimiz alanı tasarımda istediğimiz bir yere sürükleyip bırakıyoruz. Segmented Entry oluşuyor. Özelliklerinde resimde görünen tanımları yapmalıyız. Özellikle Controller Class çok önemli.

Resim-2

Derleyip çalıştırdığımızda formda alanımızı göreceğiz. DefaultAccount ile aradaki farkı görebilirsiniz. Sadece Main Account değil boyutlarda geliyor ve bir kombinasyon oluşturuluyor.

Resim-3

Oluşan verileri Sql üzerinden incelediğimizde aradaki fark çok net bir şekilde ortaya çıkıyor.

Resim-4

Bu yazıda LedgerDimension nedir ve nasıl eklenir anlatmaya çalıştım. Sonraki yazılarımda bunları kodda nasıl kullanıp birbirlerine çeviriyoruz anlatmaya devam edeceğim.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, DefaultAccount, LedgerDimension, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Dynamics 365 Finance and Operations LedgerDimension Yeni Bir Finansal Boyut Nasıl Eklenir?

Bu yazıda Dynamics 365 Finance and Operations için yeni bir finansal boyut nasıl eklenir anlatmaya çalışacağım.

Hazırda olan boyut seçeneklerini görmek için General ledger-> Chart of accounts -> Dimensions -> Financial dimensions formunu açıyoruz.

Resim-1

Bu formda hazırda kurulmuş boyutlar geliyor. New ile yeni boyut oluşturuyoruz. Açılan listeden istediğimizi seçebiliriz. Bu yazıda ben bu listeye nasıl ekleme yaptığımızı anlatacağım.

Resim-2

Bu örnekte standart bir tabloyu boyut haline getirmeyi göstereceğim. Örnek olarak BankGroup tablosunu seçtim. Tamamen yeni bir tablo da kullanabilirsiniz.

Öncelikle bir View oluşturmak gerekiyor. Aşağıdaki yapının aynı olmalı yazım hataları bile listede görünmesini engelleyecektir. İsmi DimAttribute ile başlamalı. DataSoruce’a kendi tablomuzu ekleyip ismini BackingEntity yapmalısınız.

3 alana ihtiyaç var.

  1. Key     : RecId
  2. Value : BankGroupId
  3. Name : Name

Resim-3

Yeni bir metot ekleyip View ismini yazıyoruz.

Resim-4

Bu haliyle derleme ve eşitleme yaptığınızda listede göremeyeceksiniz. Eğer Debug modda açarsanız hatayı görebilirsiniz. Boyut olacak tablo için mutlaka RecId nin bir tekil index’te ilk sırada olmasını bekliyor.

VendGroup tablosunda RecId Index oluşturulmamış. Entension ile de değiştiremiyoruz. Bu yüzden yeni bir index oluşturdum. Burada sorun tek başına RecId ye izin vermiyor. Mecbur başka bir alanla eklemem gerekti.

Resim-5

Bu işlemlerden sonra derleme ve eşitleme yaparsanız listeye geldiğini görebilirsiniz. Eğer listeye gelmiyorsa mutlaka Debug modda çalıştırın sorunlu View de hatayı gösterecektir.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, DefaultAccount, LedgerDimension, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Standart Tabloların initFrom…() Metodlarına Extension ile Nasıl Ekleme Yapılır?

Bu yazıda Extension kullanımını faklı bir örnek vereceğim. Bir örnekle açıklayayım. SalesTable ve CustInvoiceJour’a bir alan açtım ve fatura oluştuğunda bu alan SalesTable’dan CustInvoiceJour’a taşınsın istiyorum.

Eski versiyonda bu çok kolaydı CustInvoiceJour-> initFromSalesTable() metoduna bir satır ekleyip işi çözebilirdiniz. Yeni mantıkla birlikte bir Extension sınıfı yazıp onun içinde halletmek zorundasınız.

Resim-1

Sınıfı oluşturup aşağıdaki gibi bir iki metot yazdım. Ben iki faklı metodu aynı sınıfta düzenledim. Burada dikkat etmeniz gereken iki konu var. Birincisi PostHandlerFor kullanımı. Bu standart metot bitince buraya girecek demek. İkincisi getArgs() ile aldığım salesTable değişkeni. Burada standart metottaki değişkenle aynı isimde olmalı yoksa çalışmaz. Ben direk _ kullanılmıştır diye düşünüp ekledim çalışmadı sonra bakınca fark ettim standart metot kullanmamış.

Resim-2

Bu yazıda initFrom metotlarına Extension ile nasıl ekleme yapabileceğinizi anlatmaya çalıştım. Eskiye nazaran biraz daha uzun bir işlem buda geliştirme sürelerini arttırıyor.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps,  initFrom, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Muhasebe günlüklerinden mahsup hesap boyutunun hesap boyutundan gelmesi nasıl engellenir?

Bu yazıda Türkiye muhasebe ekiplerince mutlaka istenen bir geliştirmeyi D365 te nasıl yaptık anlatmaya çalışacağım. Talep aslında çok basit belki de parametrik olması gerekiyor. Şöyle bir örnek olsun. Bir günlük açtınız ve hesap tipi banka seçip Bnk0001 seçtiniz. Otomatik olarak bu bankanın boyutları hesap boyutlarına atandı. Mahsup tarafa gelip orada da tipi banka ve hesabı Bnk0002 seçtiniz. Bu durumda mahsup boyutunu hesap üzerinden alıyor Mahsup banka boyutlarını getirmiyor. Talep mahsup tarafta ne seçersem onun boyutları gelsin hesaptan direk almasın.

Ax2012’de bu çok basit bir işlemdi burayı dolduran kısmı bulup değiştirmek yeterliydi ancak D365 te işler biraz değişti.

Önce Ax2012’de ne yapıyorduk ona bakalım. LedgerJournalEngine sınıfında initOffsetDefaultDimensionServer metodunun boyadığım satırı kapatmak boyutun hesap boyutundan alınmasını engelliyordu. Tek satır işlemle aşağı yukarı istediğimiz oluyor. Ancak D365’te buna müdahale şansımız yok. Bu metot private ve sınıfta AplicationSuit’te dolayısıyla bize değiştirme imkânı vermiyor.

Resim-1

Bu talebin nasıl yapılacağını incelerken initOffsetDefaultDimension metodunun Extension için uygun olduğunu gördüm.

Resim-2

İşimi halledebilmek için Bir Extension sınıfı oluşturup iki metot ekledim. Birincisi initOffsetDefaultDimension metodunun Extension ile öncesi ve sonrasına kod yazma imkânı veren hali. İkincisi ise mahsup hesaba göre boyutu getiren, standarttan kopyaladığım ve içeriğini mahsup boyuta göre düzenlediğim boyut bulma metodu.

Resim-3

Derleyip çalıştırdığımızda test edebilirsiniz. Aşağıdaki gibi bir günlükte Mahsup banka boyutunu hesap banka boyutundan farklı gelmesi gerekiyor.

Resim-4

Financial dimensions’a tıklayarak mahsup boyutları açabilirsiniz.

Resim-5

Bu yazıda Extension kullanımına örnek olacak bir talebi nasıl yaptığımı anlatmaya çalıştım. Eskiye nazaran işler biraz daha zor görünmekle birlikte genelde çözümsüz değil. Sadece daha çok zaman alıyor ama getirileri düşünüldüğünde kesinlikle buna değer.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, DefaultAccount, LedgerDimension, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Dynamics 365 Finance and Operations LedgerDimension ve Segmented Entry nasıl eklenir?

Bu yazıda Dynamics 365 Finance and Operations içinde bir tabloya LedgerDimension nasıl eklenir ve bu alanı formda Segmented entry control ile nasıl kullanıcıya kullandırabiliriz anlatmaya çalışacağım.

LedgerDimension aslında DimensionAttributeValueCombination kaydıdır. LedgerDimension MainAccount ve DefaultDimension’ın bileşimidir.

Öncelikle Tabloya LedgerDimensionAccount EDT sini kullanarak bir alan ekleyelim. Eğer sürükle bırak ile eklerseniz otomatik ilişkiyi oluşturacak. Yoksa elle eklemeniz gerekir.

Resim-1

Sonrasında forma gelip eklediğimiz alanı tasarımda istediğimiz bir yere sürükleyip bırakıyoruz. Segmented Entry oluşuyor. Özelliklerinde resimde görünen tanımları yapmalıyız. Özellikle Controller Class çok önemli.

Resim-2

Derleyip çalıştırdığımızda formda alanımızı göreceğiz. DefaultAccount ile aradaki farkı görebilirsiniz. Sadece Main Account değil boyutlarda geliyor ve bir kombinasyon oluşturuluyor.

Resim-3

Oluşan verileri Sql üzerinden incelediğimizde aradaki fark çok net bir şekilde ortaya çıkıyor.

Resim-4

Bu yazıda LedgerDimension nedir ve nasıl eklenir anlatmaya çalıştım. Sonraki yazılarımda bunları kodda nasıl kullanıp birbirlerine çeviriyoruz anlatmaya devam edeceğim.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, DefaultAccount, LedgerDimension, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Dynamics 365 Finance and Operations Test ortamı Canlı veri tabanıyla nasıl ezilir?

Bu yazıda Dynamics 365 Finance and Operations Sandbox ortamını canlı veri ile nasıl ezeriz adım adım anlatacağım.

LCS’e girip projemizi acıyoruz. Sandbox detaylarını tıklıyoruz.

Resim-1

Maintain->Move database diyoruz.

Resim-2

Farklı seçenekler karşımıza çıkıyor.

Export database: Sandbox ortamının verisini dışarı aktarır.

Import database: bacpac formatında bir db’yi içeri aktarır.

Point-im-time restore Prod to Sandbox: Canlı ortamdan yedeklenmiş veri tabanını teste ezer. Biz bu seçenek ile devam edeceğiz.

Point-in-time restore: Test ortamının önceki yedeklerinden ezme yapar.

Refresh database: Başka bir sandbox ortamından ezme yapar.

Resim-3

Kaynak ve hedefe dikkat etmek lazım. Zamanı ayarladıktan sonra kabul edebilirsiniz.

Resim-4

Bir onay ekranı çıkacak.

Resim-5

24 saat diyor ama genelde benim gördüğüm daha kısa sürede bitiyor.

Resim-6

İşlem başlayınca durum Servicing’e geçiyor. Bitmesini beklemelisiniz.

Resim-7

Bu aşamalardan sonra işlem bitmiş oluyor. Eski versiyonlara göre çok daha kolay bir işlem oluyor.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Dynamics 365 Finance and Operations Form Lookup Nasıl Yapılır?

Bu yazıda Dynamics 365 Finance and Operations içinde bir formun nasıl lookup olarak kullanılabileceğini anlatacağım. Öncelikle neden lookup olarak forma ihtiyaç duyarız ona bakalım. Kodla yaptığımız lookuplarda birkaç kısıntımız var. Birincisi tasarım. Form olduğunda tasarım için çok esnek bir yapımız oluyor ama diğerinde böyle bir imkânı yok. Veri kaynağı yönetimi ve parametrik olarak farklı çalışma özellikleri yine form olunca mevcut. Gelelim nasıl yapıldığına.

Öncelikle yeni bir form oluşturuyoruz. Lookup- Basic desenini uyguluyoruz.

Resim-1

Veri kaynağını ekliyoruz. Tasarıma bir Grid ekleyip gerekli alanları sürükleyip bırakıyoruz.

Resim-2

Run metoduna hangi alanı geri döndürmek istiyorsak onu ekliyoruz. Burada direk girdde oluşturduğumuz nesnenin adını kullanmak gerekiyor. Bu yüzden AutoDecleration yes olmalı.

Resim-3

Form ile işimiz bitti. Şimdi İlgili EDT de Form help kısmından formumuzu seçiyoruz. Artık bu EDT’nin kullanıldığı yerlerde otomatik olarak bizim form lookup olarak açılacak.

Resim-4

Deneme için bir tabloya alanı açıyoruz.

Resim-5

Forma alanı ekleyip çalıştırıyoruz.

Resim-6

Son olarak formda oluşturduğumuz lookupı görebiliriz.

Resim-7

Bu yazıda lookup olarak bir form nasıl yaparız anlatmaya çalıştım. Lookup yapmanın çok fazla yolu var hangisi hangi durumda kullanılmalı dikkat etmek lazım.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, Lookup, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Depoda toplanan ürünün yerine geri koyulmasını ve sevkiyatının iptal edilmesini kodla nasıl yaparız?

Bu yazıda Dynamics 365 Finance and Operations içinde depo yönetimi modülünde toplanan bir ürünün kodla yerine koyulması ve sevkiyatın iptal edilmesinin nasıl yapılacağını anlatacağım.

Aslında bu işlemi ekran üzerinden tek tek yapabiliyoruz.  Load Line formunu açıp Reduce picked quantity’ye tıklıyoruz.

Resim-1

Açılan formda miktarı ayarlayıp Ok dediğimizde aslında bu işlemi yapmış oluyoruz.

Resim-2

Benim burada yapacağım bu işlemi toplu yapmak için bir kod yamak olacak. Bir sebepten otomatik toplanan bazı siparişlerin iptali gerektiğinde elle tek tek yapmak çok uzun süreceğinden böyle bir koda ihtiyaç oldu. Öncelikle Ax2012’de bu işlem için Güven arkadaşım şu makaleyi yazmış. Benim işimi tam çözmüyor. Ben bir dosyadan beri okuyup D365 te bu işlemi yapmak istiyorum.

Öncelikle WhsUnShip sınıfından bir Extension sınıfı oluşturmam gerekti.  BuildTmpTable aslında Ax2012 olan bir metottu ama D365 te kullanamıyoruz.

[ExtensionOf(classStr(WhsUnShip))]

final class WhsUnShip_Extension

{

public WHSTmpLoadLineInventory dmrBuildTmpTable(WHSLoadLine _loadLine = loadLine)

{

WHSTmpLoadLineInventory     tmpLoadLineInv;

WHSWorkLine                 workLine;

WHSWorkLine                 putWorkLine;

WHSWorkTable                workTable;

WHSDimTracking              dimTracking;

InventDim                   inventDim;

Qty                         closedContainerQty;

InventDim                   inventDimId;

SalesLine                   salesLine;

InventTransferLine          transferLine;

InventDim                   loadLineInventDim;

boolean                     putIsPackingStation;

WHSWorkId                   lastWHSWorkId;

WMSLocation                 wmsLocation;

boolean                     hasDimTracking;

// Set LoadLine if specified.

loadLine = _loadLine;

loadLineInventDim = loadLine.inventDim();

switch (loadLine.InventTransType)

{

case InventTransType::Sales:

salesLine = loadLine.getOrderCommonFromLoadLine() as SalesLine;

break;

case InventTransType::TransferOrderShip:

transferLine = loadLine.getOrderCommonFromLoadLine() as InventTransferLine;

break;

}

while select InventQtyWork, ItemId, LineNum, WorkId, ContainerId from workLine

order by workLine.WorkId

where workLine.LoadLineRefRecId  == loadLine.RecId &&

workLine.WorkStatus        == WHSWorkStatus::Closed

join WorkId, TargetLicensePlateId, InventLocationId from workTable

where workTable.WorkId       == workLine.WorkId &&

workTable.WorkStatus   == WHSWorkStatus::Closed

{

if (lastWHSWorkId != workLine.WorkId)

{

select firstonly wmsLocationId from putWorkLine

order by putWorkLine.LineNum desc

where putWorkLine.WorkId     == workTable.WorkId        &&

putWorkLine.WorkStatus == WHSWorkStatus::Closed   &&

putWorkLine.WorkType   == WHSWorkType::Put

join LocProfileId from wmsLocation

where wmsLocation.wMSLocationId == putWorkLine.wmsLocationId &&

wmsLocation.InventLocationId == workTable.InventLocationId;

putIsPackingStation = wmsLocation.LocProfileId == parameters.PackingLocType;

lastWHSWorkId = workLine.WorkId;

}

hasDimTracking = false;

// If the workLine uses dim tracking we must use those values.

while select InventDimId, Qty from dimTracking

where dimTracking.WorkId    == workLine.WorkId

&&    dimTracking.LineNum   == workLine.LineNum

{

hasDimTracking = true;

inventDim = InventDim::find(dimTracking.InventDimId);

inventDim.wmsLocationId = putWorkLine.wmsLocationId;

if (WMSLocation::find(inventDim.wmsLocationId, inventDim.InventLocationId).whsLocationIsLPControlled())

{

inventDim.LicensePlateId = workTable.TargetLicensePlateId;

}

inventDim = InventDim::findOrCreate(inventDim);

// If put location is a packing station, then we need to look for closed containers that may have moved inventory.

if (putIsPackingStation)

{

InventDimParm       inventDimParm;

InventDim           joinInventDim;

InventDim           inventDimMethod;

WHSContainerLine    containerLine;

WHSContainerTable   containerTable;

inventDimParm.initFromInventDim(inventDim);

// Loop over container lines for closed containers

while select containerLine

where containerLine.LoadLine    == loadLine.RecId

join InventDimId, ContainerId from containerTable

where containerTable.ContainerId        == containerLine.ContainerId

&&    containerTable.ContainerStatus    == WHSContainerStatus::Closed

#InventDimExistsJoin(containerLine.inventDimId, joinInventDim, inventDim, inventDimParm)

{

tmpLoadLineInv.InventQty = InventTableModule::unitConvert(containerLine.ItemId, ModuleInventPurchSales::Invent, containerLine.UnitId, containerLine.Qty);

inventDimMethod = containerLine.mergedClosedInventDim();

tmpLoadLineInv.InventDimId = inventDimMethod.InventDimId;

tmpLoadLineInv.RefRecId = loadLine.RecId;

tmpLoadLineInv.ContainerId = containerTable.ContainerId;

tmpLoadLineInv.insert();

closedContainerQty += tmpLoadLineInv.InventQty;

}

}

if (dimTracking.Qty > closedContainerQty)

{

tmpLoadLineInv.clear();

tmpLoadLineInv.InventQty = dimTracking.Qty – closedContainerQty;

tmpLoadLineInv.InventDimId = inventDim.InventDimId;

tmpLoadLineInv.RefRecId = loadLine.RecId;

tmpLoadLineInv.ContainerId = workLine.ContainerId;

tmpLoadLineInv.insert();

}

}

if (!hasDimTracking)

{

inventDim.clear();

inventDim.initFromInventDim(loadLineInventDim);

inventDim.wmsLocationId = putWorkLine.wmsLocationId;

if (WMSLocation::find(inventDim.wmsLocationId, inventDim.InventLocationId).whsLocationIsLPControlled())

{

inventDim.LicensePlateId = workTable.TargetLicensePlateId;

}

inventDim = InventDim::findOrCreate(inventDim);

// If put location is a packing station, then we need to look for closed containers that may have moved inventory.

if (putIsPackingStation)

{

InventDimParm       inventDimParm;

InventDim           joinInventDim;

InventDim           inventDimMethod;

WHSContainerLine    containerLine;

WHSContainerTable   containerTable;

inventDimParm.initFromInventDim(inventDim);

// Loop over container lines for closed containers

while select containerLine

where containerLine.LoadLine    == loadLine.RecId

join InventDimId, ContainerId from containerTable

where containerTable.ContainerId        == containerLine.ContainerId

&&    containerTable.ContainerStatus    == WHSContainerStatus::Closed

#InventDimExistsJoin(containerLine.inventDimId, joinInventDim, inventDim, inventDimParm)

{

tmpLoadLineInv.InventQty = InventTableModule::unitConvert(containerLine.ItemId, ModuleInventPurchSales::Invent, containerLine.UnitId, containerLine.Qty);

inventDimMethod = containerLine.mergedClosedInventDim();

tmpLoadLineInv.InventDimId = inventDimMethod.InventDimId;

tmpLoadLineInv.RefRecId = loadLine.RecId;

tmpLoadLineInv.ContainerId = containerTable.ContainerId;

tmpLoadLineInv.insert();

closedContainerQty += tmpLoadLineInv.InventQty;

}

}

if (workLine.InventQtyWork > closedContainerQty)

{

tmpLoadLineInv.clear();

tmpLoadLineInv.InventQty = workLine.InventQtyWork – closedContainerQty;

tmpLoadLineInv.InventDimId = inventDim.InventDimId;

tmpLoadLineInv.RefRecId = loadLine.RecId;

tmpLoadLineInv.ContainerId = workLine.ContainerId;

tmpLoadLineInv.insert();

}

}

}

return tmpLoadLineInv;

}

public WHSLoadLine parmLoadLine(WHSLoadLine _loadLine = loadLine)

{

loadLine = _loadLine;

return loadLine;

}

}

Sonrasında asıl işi yapan sınıfı yazdım. Burada bir csv dosyasından veri okuyup ilgili kaydı bulup iptal işlemini yapan kod var.

class DmrUnsipLoadCsv

{

public static void main(Args _args)

{

DmrUnsipLoadCsv DmrUnsipLoadCsv;

DmrUnsipLoadCsv = new DmrUnsipLoadCsv();

DmrUnsipLoadCsv.run();

}

void run()

{

whsworkid       whsworkid;

container   rec;

Array                               fileLines;

Counter                             counter = 0;

AsciiStreamIo                       file;

InventTable                         inventTable;

FileUploadTemporaryStorageResult    fileUpload;

#OCCRetryCount

//conPeek(rec, 3);

try

{

fileUpload  = File::GetFileFromUser() as FileUploadTemporaryStorageResult;

file        = AsciiStreamIo::constructForRead(fileUpload.openResult());

if (file)

{

if (file.status())

{

throw error(“@SYS52680″);

}

file.inFieldDelimiter(“;”);

file.inRecordDelimiter(“\r\n”);

}

while (!file.status())

{

counter++;

rec = file.read();

if (conLen(rec))

{

whsworkid = conPeek(rec, 1);

ttsbegin;

this.unship(whsworkid);

ttscommit;

//info(strFmt(“%1″,conPeek(rec, 1)));

}            }

// info(“Aktarım tamamlandı.”);

}

catch (Exception::Deadlock)

{

retry;

}

catch (Exception::UpdateConflict)

{

if (appl.ttsLevel() == 0)

{

if (xSession::currentRetryCount() >= #RetryNum)

{

throw Exception::UpdateConflictNotRecovered;

}

else

{

retry;

}            }

else

{

throw Exception::UpdateConflict;

}

}

}

void unship(whsworkid _whsworkid )

{

WHSWorkLine             WHSWorkLine;

WHSWorkLine             WHSWorkLineLocation;

WHSUnShip               WHSUnShip;

WHSTmpLoadLineInventory tmpLoadLineInv;

WHSLoadLine             WHSLoadLine;

;

while select WHSWorkLine

group by LoadLineRefRecId

where WHSWorkLine.WorkId == _whsworkid

&&    WHSWorkLine.WorkType == WHSWorkType::Pick

&&    WHSWorkLine.WorkStatus == WHSWorkStatus::Closed

{

WHSLoadLine = WHSLoadLine::findbyRecId(WHSWorkLine.LoadLineRefRecId);

WHSUnShip = null;

WHSUnShip = new WHSUnShip();

tmpLoadLineInv = null;

tmpLoadLineInv = WHSUnShip.dmrbuildTmpTable(WHSLoadLine);

while select tmpLoadLineInv

{

select WHSWorkLineLocation

where WHSWorkLineLocation.LoadLineRefRecId == WHSLoadLine.RecId;

WHSUnShip.parmMoveToLocation(WMSLocation::find(WHSWorkLineLocation.WMSLocationId,InventDim::find(WHSWorkLineLocation.inventDimId).inventLocationId));

WHSUnShip.parmDecrementLoadLine(true);

WHSUnShip.unShip(

InventDim::find(tmpLoadLineInv.InventDimId),

tmpLoadLineInv.InventQty, // qty to reduce

WHSLoadLine,

tmpLoadLineInv.ContainerId,

tmpLoadLineInv.InventQty);

}

//info(_whsworkid);

}

info(_whsworkid);

}

}

Bu kodları kullanacaksanız mutlaka canlıdan önce bir ortamda test etmelisiniz. Her kurulum farklı olabilir verilerinizde sorun oluşturma ihtimali olabilir dikkatli olmak lazım. Biz baya test ettik sonunda işimizi gördüğünü düşündük ve canlı ortamda çalıştırdık. Umarım sizin de işinize yarar.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, WmsUnShip, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Ax2012 Clinet Crash Sorunu?

Bu yazıda bir müşterimde karşılaştığım Client kapanma sorununu nasıl çözdüğümü anlatacağım. Ax2012 R3 te olan bu ortamda birdenbire bazı clientlar kapanmaya başladı. Bazen AOS ta kapanıyordu. Dump alıp baktığımızda Heap corruption hatası vardı ama kodsal olarak bir yere işaret etmiyordu. Uzun incelemeler sonunda belli bir tablo tespit ettim. ProjProposalJour bu tabloya bazı yerlerden dokununca patlıyor bazı yerlerden dokununca patlamıyordu. Bu da sorunun tespitini çok zorlaştırdı çünkü ne hata veriyor ne de bir bilgi gösteriyordu.  Temel yapılması gerekenleri yaptım. Full derleme senkronizasyon CIL gibi ama buralarda da hatalar vardı. Özellikle SQL üzerinden oluşturulan indexler sebebiyle senkronizasyon baya sorunlu hala gelmişti.  Tek tek çözmeye çalıştım.  Bu problemleri çözünce müşterinin çalışmadığı bir saate ProjProposalJour patlatmayan yerden çoğaltım. Patlayan AOS’u restart edip çoğalttığım nesnede de patladığını gördüm. Bu durumda kesin nesnede bir sorun var diye düşündüm ve tek tek alt nesneleri silmeye başladım uzun uğraşlar sonunda patlatan şeyin relation’lar olduğunu tespit ettim ama bu çok mantıklı değildi relation neden patlatsın. Sonra tekrar full senkronizasyon başlattım. Sonunda aşağıdaki uyarıyı gördüm.

The SQL database has issued an error.
Info Synchronize database SQL error description: [Microsoft][SQL Server Native Client 11.0][SQL Server]The index ‘I_592INDEX1FGD’ on table ‘DBO.PROJINVOICEJOUR’ has 95 columns in the key list. The maximum limit for index key column list is 16.
Info Synchronize database SQL statement: CREATE   INDEX I_592INDEX1FGD’ ON “DBO”.PROJINVOICEJOUR (PARTITION,DATAAREAID,DELIVERYNAME,PROJGROUPID,ORDERACCOUNT,INVOICEACCOUNT,INVOICEDATE,DUEDATE,CASHDISC,CASHDISCDATE,COSTVALUE,SUMLINEDISC,SALESORDERBALANCE,ENDDISC,INVOICEAMOUNT,CURRENCYID,EXCHRATE,PROJINVOICEID,LEDGERVOUCHER,ONACCOUNTAMOUNT,TAXPRINTONINVOICE,ENTERPRISENUMBER,DLVTERM,DLVMODE,PAYMENT,CASHDISCCODE,INVOICEROUNDOFF,CASHDISCPERCENT,TAXGROUPID,TAXSPECIFYTOTAL,TAXSPECIFYBYLINE,PAYMENTSCHED,SUMTAX,PROPOSALID,POSTINGPROFILE,PROJINVOICEPROJID,PARMID,INTRASTATDISPATCHID,LISTCODEID,PROJINVOICETYPE,TRIANGULATION,EXCHRATESECONDARY,PORT,WEIGHT,VOLUME,QTY,VATNUM,LANGUAGEID,PAYMDAYID,EUSALESLIST,SUMMARKUP,NUMBERSEQUENCEGROUPID,POSTINGJOURNALID,EINVOICELINESPECIFIC,SMASPECINDEXCALC,GIROTYPE,EINVOICEACCOUNTCODE,INTERCOMPANYPOSTED,PAYMID,PRINTEDORIGINALS,DELIVERYPOSTALADDRESS,DEFAULTDIMENSION,VOUCHERNUMBERSEQUENCETABLE,SOURCEDOCUMENTHEADER,INVOICENUMBERINGCODE_LT,INVOICEREGISTER_LT,WHOISAUTHOR_LT,SALESDATE_CZ,DESCRIPTION,DOCUMENTDATE_W,INTRASTATADDVALUE_LV,PSAENDDATEMAXINVOICEID,DIRECTDEBITMANDATE,NARRATION_BR,PSAINVOICEFORMATS,REASONTABLEREF,TAXINFORMATION_IN,TRANSPORTATIONDOCUMENT,INVOICETYPE_MY,RECVERSION,MODIFIEDDATETIME,MODIFIEDBY,CREATEDDATETIME,CREATEDBY,
Error Synchronize database Cannot execute a data definition language command on  ().

ProjInvoiceJour ile ProjProposalJour ilişkili iki tablo asıl sorun ProjInvoiceJour’da. Sorunu tespit ettim. Bir şekilde tablonun bütün alanları key olan bir indexe eklenmeye çalışılmış. Biri mi yaptı yoksa metadata bozulmasından kaynaklı bir durum mu bilemiyorum. Ancak bu index ne axta ne de SQL tarafında yok. Dolayısıyla bunu metadata tanımlarından silmek gerekiyordu.

Bu indexi bulmak için Model db sinden birkaç sorgu yapmam gerekti. Öncelikle model tipini tespit ettim.

Resim-1

Sonrasında ismini bildiğim o tabloda bir index bulup ParentHandle kullanarak o tablodaki tüm indexleri listeledim ve silmem gereken indexi buldum.

Resim-2

Bu index tanımını sildikten sonra sistem düzeldi. Tabi bunu yapmadan yedeğimi almıştım. Tespiti beni en çok zorlayan durumlardan biri oldu. Bu arada Microsoft ta işin içine dahil oldu ama onlarda direk tespitte bulunamadılar.

Selamlar.

www.fatihdemirci.net

TAGs: Microsoft Life Cycle Services, LCS, Azure, Azure DevOps, Ax2012, Microsoft Dynamics 365, MsDyn365FO, MsDyn365CE, MsDyn365, Segmented Entry, Power Automate, Power Apss, Power Virtual Agents, Dynamics 365 nedir, Dynamics 365 ERP, Dynamics 365 CRM

Page 1 of 212