Sayfayı Yazdır | Pencereyi Kapat

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




Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 11.10 - http://www.webwizforums.com
Copyright ©2001-2017 Web Wiz Ltd. - https://www.webwiz.net