kosul ve mal fazlasi
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=3380
Tarih: 23 Ağustos 2025 Saat 02:34
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com
Konu: kosul ve mal fazlasi
Mesajı Yazan: huseyin_v2451
Konu: kosul ve mal fazlasi
Mesaj Tarihi: 23 Şubat 2013 Saat 09:39
|
slm arkadaslar
fatura da kosul uygulamasini çalistirmak istiyorum kosul sabit ve datay bilgilerini tanimladim ve denedm sorun yok hersey çalisiyor. ancak kosul detay penceresin de mal fazlasi verdigim de faturada mal mazlasini veriyor ama önceki satir iskontosunu iptal etmiyor yani söyle; A malindan 1 ad ve üzeri alana 5 iskonto, 5 ad ve üzeri alanlar 10 iskonto, 10 ad ve üzeri alanlara 1 ad mal fazlasi veriyorum bu kosullari kosul detayda tanimliyorum ancak kalem girisi yaparken 10 ad satildiginda hem %10 satir iskontosu uyguluyor hem mal fazlasi veriyor.mal fazlasi veriyorsa satir iskontolarini uygulamasin. nedir bu derdin caresi arkadaslar [IMG]smileys/smiley5.gif" align="middle" /> iyi çalismalar... ------------- Hüseyin_v2451 |
Cevaplar:
Mesajı Yazan: huseyin_v2451
Mesaj Tarihi: 25 Şubat 2013 Saat 09:41
bi fikri olan yokmudur arkadaslar 
------------- Hüseyin_v2451 |
Mesajı Yazan: fameto
Mesaj Tarihi: 15 Mart 2013 Saat 10:29
|
Bir ara bir sirkette uygulamistik benzer bir istek script yazmistik kodu incele belki yardimci olur
'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 ' 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 |