Save_Voucher Fonksiyonu

Tanım


Direkt girilmiş veya yaratılmış olan herhangi bir uygulamada, yüklü olan dökümanı kaydetmek için  kullanılan bir fonksiyondur. Fonksiyon kullanılarak yapılan kayıtlarda, uygulamanın tüm kontrol ve denetim mekanizmaları çalışmaktadır.

Kullanım Şekli


Değişken = Document.Save_Voucher()

Ana Nesne

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

Parametreler

Herhangi bir parametresi bulunmamaktadır.

Geri Dönen Değerler


Kaydedilmek istenen evrağın, kaydedilme durumuna göre bir tam sayı değeri dönülür. Kayıt 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.

Örnek


Sub Makro1()

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

       Kriter = "KOD='" & CariKod & "'"

       Set C00 = Doc.Select1("ABC002","CARI00",Kriter,"",1)

       IlgiliKisi = trim(C00.KONTAKTNAME_1)

       Mesaj = "Veritabanındaki " & CariKod & " cari hesap kodunun ilgili kişisi : " & IlgiliKisi

       DokumanAdi = "T_CARI00"

       UygulamaKodu = "CARI00"

       if CariKod <> "" and IlgiliKisi = "" then

               Set DocC00 = Doc.CreateDocumentNoUI(UygulamaKodu,DokumanAdi)

               If DocC00 Is Nothing Then        

                       Doc.MsgBox "Cari Hesap Kartı Uygulaması Yaratılamadı."

                   Exit Sub

               End If

               RetCode = DocC00.Load_Voucher(CariKod)

               Set CH00 = DocC00.GetTableObject("CARI00")

               CH00.KONTAKTNAME_1 = "Tanımsız"

               RetCode = DocC00.Save_Voucher()

               If retcode <> 0 Then

                       Doc.MsgBox "Kayıt Hatalı. Kayıt Yapılamadı. Hata No : " & RetCode

                       retcode = DocC00.LoadEmpty_Voucher

                       retcode = DocC00.DeleteDocumentNoUI(UygulamaKodu, DokumanAdi)

                         Exit Sub

               End If

                 retcode = DocC00.LoadEmpty_Voucher

               retcode = DocC00.DeleteDocumentNoUI(UygulamaKodu, DokumanAdi)

       end if

       Set C00 = Doc.Select1("ABC002","CARI00",Kriter,"",1)

       IlgiliKisi = trim(C00.KONTAKTNAME_1)

       Mesaj = Mesaj & Chr(13) & "Veritabanındaki " & CariKod & " cari hesap kodunun atanan ilgili kişisi : " & IlgiliKisi

       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, KONTAKTNAME_1 alanı sorgulanmıştır. Eğer KONTAKTNAME_1  alanının değeri boş ise, yaratılan DocC00 cari hesap kartı uygulaması kullanılarak ilgili alanın değeri “Tanımsız” olarak değiştirilip kaydedilmiştir. Örnek makro sonucu, aşağıdaki mesaj kutusunda verilmiştir.



Paylaşım Makrosu