ERP Fatura Modülü - Mal Fazlasi Problemi

Mal Fazlasi Problemi

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Temel Paketler
Forum Adı: ERP Fatura Modülü
Forum Tanımlaması: Fatura Modülü İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=2119
Tarih: 12 Ocak 2026 Saat 05:03
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Mal Fazlasi Problemi

Mesajı Yazan: wolverine81
Konu: Mal Fazlasi Problemi
Mesaj Tarihi: 19 Mayıs 2010 Saat 17:59

Merhaba Arkadaslar

Biz netsis fusion @6 kullaniyoruz. Bir firmamizda mal fazlasi uygulamasina gececegiz fakat bir kac problemimiz var.

Mesela bir stok icin 1000 adet satildiginda 100 adet bedelsiz verilecek bunu ile ilgili kosul tanimlamalarini kosullardan yaptik .

Faturada stoku ilk ekledigimizde problemsiz ekliyor fakat stogun uzerinden gectigimizde adet arttirimi ve azaltildiginda mevcut satir da bir degisiklik olmuyor veya ayni stok kodunu stok kodu hanesine yazdigimizda yeni satir ekliyor

Bu konu ile ilgili ne yaparsak stok uzerinden gecerken veya stok kodu yazdigimizda ilk girilen satir guncellenir

Simdiden tesekkurler

Kolay gelsin

Cevaplar:

Mesajı Yazan: wolverine81
Mesaj Tarihi: 20 Mayıs 2010 Saat 13:28

Soruma cevap verecek baba yigit yok mu :(

Mesajı Yazan: fameto
Mesaj Tarihi: 26 Mayıs 2010 Saat 16:19

Arkadaslar Netsiste mal fazlasi vermek istedigimiz stoklarini detay kosullardan tanimlama yaptik. Ilgili Stoklar fatura kalemine ilk ekleme de çalisiyor ancak kalemler kismina atildiktan sonra Üstünden Tekrar geçip miktar degistirdigimizde Netsis detay kosullarindaki oranlara göre stogun mal fazlasini otomatik degistirmiyor. Sorunu script çalistirarak çözmek istedik ve asagidaki kodu yazdik Ancak;

Miktar kisminin OnExit eventine kodumu yazdim script çalisiyor mal fazlasi yeniden hesaplanip Malfazlasi.Text e ataniyor ancak tabla ilerledigimde asagiya yeni mal fazlasi miktarini atmiyor. Isin ilginç tarafi ayni sekilde stogun üstünden geçip elle mal fazlasi yazarsak kalemi editliyor :(

Uzman arkadaslardan ricam konu hakkinda yardim edebilirmisiniz?
Ahmet SASMAZ

if NETSISCORE.NetLibSession.SirketAdi = "Scriptin Çalismasini Istedigim Sirket Adi" and (NETSISCORE.NetLibSession.AktifProgramNo = 1 or NETSISCORE.NetLibSession.AktifProgramNo = 3 or NETSISCORE.NetLibSession.AktifProgramNo = 7) then
Dim KosMiktar
Dim KosMalFaz
Dim Miktar1
Dim Kosul
Dim Carpan
Kosul = Kosul_Kodu.Text
Miktar1 = cint(Miktar.Text)

SET SQL1=NETSISCORE.NetLibDB.GetNewQuery
SQL1.RECSQL("select malfmiktar1, malfazlasi1 from tblkosdetay where kosul_kod='" & Kosul & "' and Stokkodu='" & Kod.Text & "'")

KosMiktar = SQL1.FIELDBYNAME("malfmiktar1").ASSTRING
KosMalFaz = SQL1.FIELDBYNAME("malfazlasi1").ASSTRING

SET SQL1 = Nothing

Carpan = (Miktar1 / KosMiktar)

If Carpan - cint(Carpan)<0 then
Carpan = cint(Carpan)-1
else
Carpan = cint(Carpan)
end if

if Carpan >= 1 then
Malfazlasi.text = (KosMalFaz * Carpan)
else
Malfazlasi.text=""
end if
end if

Mesajı Yazan: fameto
Mesaj Tarihi: 31 Mayıs 2010 Saat 16:16

Merhaba Arkadaslar Sorunu Çözdük;

Asagidaki Scripti Malfazlasinin OnEnter eventine yazdigimizda editleme problemide ortadan kalkti.

Tesekkürler Herkeze

Ahmet SASMAZ

'Sadece Çalismasini istediginiz sirkette Fatura - Satis Irsaliye - Müsteri siparisinde çalisir.
if NETSISCORE.NetLibSession.SirketAdi = "Çalismasini istedigimiz sirket" and (NETSISCORE.NetLibSession.AktifProgramNo = 1 or NETSISCORE.NetLibSession.AktifProgramNo = 3 or NETSISCORE.NetLibSession.AktifProgramNo = 7) then
Dim KosMiktar
Dim KosMalFaz
Dim Miktar1
Dim Kosul
Dim Carpan
Kosul = Kosul_Kodu.Text
Miktar1 = cint(Miktar.Text)
KosMalFaz = 0
KosMiktar = 0

SET SQL1=NETSISCORE.NetLibDB.GetNewQuery
SQL1.RECSQL("select malfmiktar1, malfazlasi1 from tblkosdetay where kosul_kod='" & Kosul & "' and Stokkodu='" & Kod.Text & "'")

if SQL1.FIELDBYNAME("malfmiktar1").ASSTRING <> "" then KosMiktar = SQL1.FIELDBYNAME("malfmiktar1").ASSTRING
if SQL1.FIELDBYNAME("malfazlasi1").ASSTRING <> "" then KosMalFaz = SQL1.FIELDBYNAME("malfazlasi1").ASSTRING

SET SQL1 = Nothing
    if KosMalFaz <> 0 and KosMalFaz <> "" and KosMiktar <> 0 and KosMiktar <> "" then
    msgbox(KosMalFaz)
    msgbox(KosMiktar)
    Carpan = (Miktar1 / KosMiktar)
      if Carpan - cint(Carpan)<0 then
       Carpan = cint(Carpan)-1
      else
       Carpan = cint(Carpan)
      end if
      if Carpan >= 1 then
       Malfazlasi.text = (KosMalFaz * Carpan)
      else
       Malfazlasi.text=""
      end if
   end if
end if