DeleteDocumentNoUI2

DeleteDocumentNoUI2 Fonksiyonu

Tanım


Bellekte, başka bir firma ve dönem bilgisi veritabanına bağlanarak ve ekranda gösterilmeden yaratılmış uygulamayı sonlandıran, kapatan fonksiyondur. Sonlandırılmak istenen uygulama, CreateDocumentNoUI2 fonksiyonu ile yaratılmış olmalıdır.

Kullanım Şekli


Set DocumentNesnesi = Document.DeleteDocumentNoUI2(UygulamaKodu, DökümanAdı, FirmaKodu)

Ana Nesne


Document (Doc) nesnesinin elemanıdır. Bir doküman nesnesi ile kullanılmak zorundadır.

Parametreler


Parametre

Açıklama

UygulamaKodu

Bellekte çalışması sonlandırılacak olan Dinamo ERP uygulama kodu. Uygulama kodlarını, uygulamanın çalıştığı pencere başlığında bulabilirsiniz. Örneğin Cari Hesap Kartı uygulamasını çalıştırdığınızda, pencere başlığında gerek uygulamanın adını,  gerekse de uygulama kodunu (CARI00) görebilirsiniz.

DökümanAdı

Sonlandırılacak uyg ulamaya verilmiş olan ad. Bellekte, aynı uygulamadan birden fazla yaratıldığında, doküman adı kullanmak zorunludur. Sadece bir tane yaratılacaksa, boş bile bırakılabilir.

FirmaKodu

Sonlandırılacak uygulamanın firma kodu ve dönemi. Firma kodu ve dönemi arasında alt çizgi olmalıdır. “TEST_2014” gibi.

Geri Dönen Değerler


Bellekte var olan, DökümanAdı ve FirmaKodu verilen uygulama sonlandırılır. Herhangi bir değişkene atanarak kullanılabilir.

Hatırlatmalar


•Sadece yazılımda tanımlı olan uygulama kodları kullanılabilir.

•Fonksiyon adındaki NoUI harfleri No User Interface kelimelerinden gelmektedir.

•Bellekte, sadece CreateDocumentNoUI2 fonksiyonu ile yaratılmış olan uygulamalar yok edilir.

Örnek


Sub Makro1()

       CariKod = Trim(CARI20T.KOD(CARI20T.GetCurrentRow()))

       UygulamaKodu = "CARI00"

       Set DocC002014 = Doc.CreateDocumentNoUI(UygulamaKodu,"TCARI002014")

       Set DocC002016 = Doc.CreateDocumentNoUI2(UygulamaKodu,"TCARI002016","TEST_2016")

       RetCode = DocC002014.Load_Voucher(CariKod)

       Set CH002014 = DocC002014.GetTableObject("CARI00")

       Mesaj = "TEST 2014 firmasında " & CariKod & "cari hesap kodunun ilgili kişisi : " & CH002014.KONTAKTNAME_1

       RetCode = DocC002016.Load_Voucher(CariKod)

       Set CH002016 = DocC002016.GetTableObject("CARI00")

       Mesaj = Mesaj & Chr(13) & "TEST 2016        firmasında " & CariKod & "cari hesap kodunun ilgili kişisi : " & CH002016.KONTAKTNAME_1

         retcode = DocC002014.LoadEmpty_Voucher

       retcode = Doc.DeleteDocumentNoUI(UygulamaKodu, "TCARI002014")

         retcode = DocC002016.LoadEmpty_Voucher

       retcode = Doc.DeleteDocumentNoUI2(UygulamaKodu,"TCARI002016","TEST_2016")

       Doc.Msgbox(Mesaj)

End Sub



Yukarıdaki örnek makro, cari hesap fişinde çalışacak şekilde tanımlanmıştır. Kullanıcı üzerinde bulunduğu satırda makroyu çalıştırdığında, satırdaki cari hesabın kartınının gerek çalışılan firma (TEST_2014) ve gerekse de başka bir firma (TEST_2016) veritabanına bağlanarak KONTAKTNAME_1 adlı alanın değeri sorgulanmıştır. Aşağıdaki ekran görüntülerinde, ilgili cari kartın her iki firmadaki durumlarını görebilirsiniz. Örnek makro, hatasız çalıştığında sonucu, aşağıdaki mesaj kutusunda verilmiştir. Daha sonra her iki uygulamada yaratılma şekillerine göre sonlandırılmıştır. Sonlandırma satırında, direct ana uygulama (doküman) nesnesi olan Doc kullanılmıştır. Sonlandırma işleminde, diğer uygulama nesneleride kullanılabilinirdi. Yazılım, sonlandırma işleminde DökümanAdı parametresi ile kullanıcı tarafından verilen adı kriter olarak kullanır.





Paylaşım Makrosu





Copyright © <2017> by <Birleşik Yazılım>. All Rights Reserved.