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.

Birleşik Yazılım