ERP Nedir? | Türkiye'nin ERP Forum Platformu : Mal Fazlasi Problemi http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 18 Apr 2026 15:47:19 +0000 Mon, 31 May 2010 16:16:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=2119 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[Mal Fazlasi Problemi : Merhaba Arkadaslar Sorunu Çözdük; Asagidaki...]]> http://www.erpne.org/mal-fazlasi-problemi_topic2119_post12043.html#12043 Yazar: fameto
Konu: 2119
Gönderim Zamanı: 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

]]> Mon, 31 May 2010 16:16:17 +0000 http://www.erpne.org/mal-fazlasi-problemi_topic2119_post12043.html#12043 <![CDATA[Mal Fazlasi Problemi : Arkadaslar Netsiste mal fazlasi...]]> http://www.erpne.org/mal-fazlasi-problemi_topic2119_post12028.html#12028 Yazar: fameto
Konu: 2119
Gönderim Zamanı: 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



Düzenleyen fameto - 26 Mayıs 2010 Saat 16:23]]> Wed, 26 May 2010 16:19:46 +0000 http://www.erpne.org/mal-fazlasi-problemi_topic2119_post12028.html#12028 <![CDATA[Mal Fazlasi Problemi : Soruma cevap verecek baba yigit...]]> http://www.erpne.org/mal-fazlasi-problemi_topic2119_post11975.html#11975 Yazar: wolverine81
Konu: 2119
Gönderim Zamanı: 20 Mayıs 2010 Saat 13:28

Soruma cevap verecek baba yigit yok mu :(]]> Thu, 20 May 2010 13:28:28 +0000 http://www.erpne.org/mal-fazlasi-problemi_topic2119_post11975.html#11975 <![CDATA[Mal Fazlasi Problemi : Merhaba Arkadaslar Biz netsis...]]> http://www.erpne.org/mal-fazlasi-problemi_topic2119_post11970.html#11970 Yazar: wolverine81
Konu: 2119
Gönderim Zamanı: 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
]]> Wed, 19 May 2010 17:59:55 +0000 http://www.erpne.org/mal-fazlasi-problemi_topic2119_post11970.html#11970