Siralama Seçenegi Hk.

Netsisle yapilan görüsmeler neticesinde sagolsunlar Netopenx e ekleme yaptilar.


FATURA.Siralama sahasina atama yaparak, NetOpenX aracligiyla kaydedilmek istenen belgelerde parametreden bagimsiz siralama yapabilirsiniz.

Ilgili sahanin alabilecegi degerler asagidadir.

'G','K', 'U', 'R', 'O', 'D', 'I', 'T', 'P', '1', '2', '4', '5'
Kisa kodlar Netsisteki siralama sirasiyla gitmektedir.

Dim Kernel As New NetOpenX50.Kernel
Dim Sirket As NetOpenX50.Sirket
Dim Fatura As NetOpenX50.Fatura
Dim FatUst As NetOpenX50.FatUst
Dim FatKalem As NetOpenX50.FatKalem

Set Sirket = Kernel.yeniSirket(vtMSSQL, "TEST", "sa", "sapass", "NETSIS", "", 0)
Set Fatura = Kernel.yeniFatura(Sirket, ftAIrs)

Fatura.siralama = "G"

Set FatUst = Fatura.Ust
FatUst.FATIRS_NO = "I00000000000002"
FatUst.TIPI = ft_Acik
FatUst.CariKod = "1"
FatUst.Tarih = CDate("01/01/2012")

'1.Kalem
Set FatKalem = Fatura.kalemYeni("002")
FatKalem.STra_GCMIK = 55
FatKalem.STra_NF = 10
FatKalem.STra_BF = 10
FatKalem.STra_ACIK = "Sthar Aciklama"
FatKalem.DEPO_KODU = "1"


'2.Kalem
Set FatKalem = Fatura.kalemYeni("001")
FatKalem.STra_GCMIK = 99
FatKalem.STra_NF = 10
FatKalem.STra_BF = 20
FatKalem.STra_ACIK = "Sthar Aciklama"
FatKalem.DEPO_KODU = "1"

Fatura.kayitYeni

Set Sirket = Nothing
Set Fatura = Nothing
Set FatUst = Nothing
Set FatKalem = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing