Load_Voucher Fonksiyonu

Tanım


Direkt girilmiş veya yaratılmış olan herhangi bir uygulamada, evrak numarası bilinen bir dökümanı çağırmak için kullanılan bir fonksiyondur. Evrak numarası uygulamaya göre bir numara, bir kod vs. olabilir. Eğer çağrılmak istenen evrak numarası daha önce sistemde kayıtlı değilse, talep edilen numara ile yeni bir doküman yaratılır. Eğer ilgili doküman başka bir kullanıcı tarafından kullanılıyorsa, yazılım bir uyarı mesajı verir ve dökümanı salt okunur (read only) yükler. Bir doküman çağrıldığında, dökümanın  tüm veritabanı bağlantıları, tüm rowsetleri ve tüm fonksiyonları da yüklenir. Bu bilgilerin hepsi ulaşılabilir olmaktadır.

Kullanım Şekli


Değişken = Document.Load_Voucher( EvrakNumarası)

Ana Nesne

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

Parametreler


Parametre

Açıklama

EvrakNumarası

Çağrılmak istenen dökümanın (uygulama) evrak numarası. Uygulmasına göre numara, kod vs. olabilir. Örneğin fatura numarası, cari hesap kartı kodu gibi.

Geri Dönen Değerler


Yüklenmek istenen evrağın, yüklenme durumuna göre bir tam sayı değeri dönülür. Yükleme başarılı ise 0 (sıfır) değeri, hatalı ise hatanın oluşma şekline göre başka bir tamsayı değeri geri dönülür. Bir değişkene atanarak kullanılabilir.

Hatırlatmalar


Bir uygulamaya özel yazılmış makrolarda, standart Doc değişkeni ile kullanılır. Kod içinde yaratılmış uygulamalarda ise, yaratılan uygulamanın atandığı document nesnesi ile kullanılmalıdır.

Yüklenmek istenen evrak numarası başka bir kullanıcı tarafından kilitli tutuluyorsa uyarı verilir ve belge salt okunur (read only) yüklenir.

Eğer yüklenmek istenen evrak numarası kayıtlı değil ise, yenisi yaratılır.

Örnek


Sub Makro1()

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

       UygulamaKodu = "CARI00"

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

       RetCode = DocC00.Load_Voucher(CariKod)

       Set CH00 = DocC00.GetTableObject("CARI00")

       Mesaj = CariKod & " kodlu cari hesabın ünvanı : " & CH00.AD

         retcode = DocC00.LoadEmpty_Voucher

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

       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, bir cari hesap uygulaması yaratılarak, ünvanı sorgulanmıştır. Yaratılan DocC00 cari hesap kartı uygulaması kullanılarak ilgili cari hesap kartı çağrılmıştır. Yükleme işlemi tamamlandığında, ilgili kartın tüm bilgileri, veritabanı bağlantıları, rowsetleri belleğe yüklenmiş olur. Örnekte veritabanı bağlantılı CARI00  rowseti, bir rowset nesnesine atanmış ve bu rowset nesnesi kullanılarak unvan bilgisine ulaşılmıştır. Örnek makro sonucu, aşağıdaki mesaj kutusunda verilmiştir.





Paylaşım Makrosu