ERP Entegrasyonları

Sayfayı Yazdır | Pencereyi Kapat

Hata

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Genel
Forum Adı: ERP Entegrasyonları
Forum Tanımlaması: ERP Entegrasyonları İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=4242
Tarih: 22 Kasım 2024 Saat 06:05
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Hata

Mesajı Yazan: mbaykan
Konu: Hata
Mesaj Tarihi: 27 Kasım 2015 Saat 17:07

Stok Döviz Çevrimi scriptinde

a?a?ydaki hatayy alyyorum

fikri olan var my acaba?

https://drive.google.com/open?id=0B69Mq46vmrVhUmNwYjlSZ3JjRzQ" rel="nofollow - https://drive.google.com/open?id=0B69Mq46vmrVhUmNwYjlSZ3JjRzQ

-------------
Mehmet Baykan

Cevaplar:

Mesajı Yazan: rhan
Mesaj Tarihi: 27 Kasım 2015 Saat 19:15

script nedir?

netopenx kodu varsa aylyk enflasyon orany tanymy aryyor olabillir.

-------------
İnnova Antalya Proje Danışmanlık
Orhan ÇÖPÜROĞLU

0544 241 45 55
0242 311 45 56

Mesajı Yazan: mbaykan
Mesaj Tarihi: 27 Kasım 2015 Saat 20:49

manuel yapty?ymda (programdan) tarih araly?ynyn 1 ay'y geçti?i uyarysyyla devam edip etmeyece?imi soruyor. devam et dedi?imizde i?lemi tamamlyyor

-------------
Mehmet Baykan

Mesajı Yazan: Conari
Mesaj Tarihi: 30 Kasım 2015 Saat 10:25

Elimdeki kaynaklardan.
Sub StDovEnfCevir()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Maliyet As NetOpenX.StDovEnfCevir

Set Sirket = Kernel.yeniSirket(vtMSQL, "YAZ30", "TEST", "", "NETSIS", "", 32767)

Set Maliyet = Kernel.yeniMaliyet(Sirket, mtStokDovEnfCevir)

Maliyet.StokKodu = "TEST"
Maliyet.Tarih1 = CDate("01/01/2014")
Maliyet.Tarih2 = CDate("31/12/2014")
Maliyet.Calistir

Set Maliyet = Nothing
Set Sirket = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

End Sub

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: mbaykan
Mesaj Tarihi: 30 Kasım 2015 Saat 11:19

ben de bu scripti güncel NetopenX'e uyarladym. Tarihi örnek'teki gibi 1 yyllyk seçtim bu Tarih araly?y çok uzun/büyük devam edecekmisin? gibisinden bi,r uyary veriyor

script'te tarihi 1 aylyk yapyp uyaryyy verdirtmemeyi deneyece?im. O zaman da hata verecekmi bakalym

FirmaDoviz.vbs

'--------------------

Set Kernel = CreateObject("netopenx50.kernel")

Set Sirket = Kernel.yeniSirket(vtMSSQL, "DEVIRTEST", "TEMELSET", "", "MB", "***", 0)

Set Maliyet = Kernel.yeniMaliyet(Sirket, mtStokDovEnfCevir)

dim rapor,b

rapor="Stok Firmadöviz baslandi " & Now

'Maliyet.StokKodu = "KABLO"

'Maliyet.GrupKodu = "DONANIM"

'Maliyet.KOD1 = "KOD01"

'Maliyet.ShowMessageAfterExecute = False

'For i=1 to Month(Date)

b="01." & right("0" & i,2) & "." & Year(Date) & " 00:00"

' msgbox Maliyet.Tarih1

Maliyet.Tarih1 = CDate("01/01/2016")

Maliyet.Tarih2 = DateAdd("D", -1, DateAdd("M", 1, Tarih1))

Maliyet.Calistir

'Next

Set Maliyet = Nothing

Set Sirket = Nothing

Call Kernel.FreeNetsisLibrary

Set Kernel = Nothing

rapor=rapor & chr(13)+chr(10) & "Maliyet Bitti " & Now

'Wscript.echo "Stok Firmadöviz olusturuldu. " & Date

-------------
Mehmet Baykan