kosul ve mal fazlasi

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...


Düzenleyen huseyin_v2451 - 25 Şubat 2013 Saat 09:40

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