fifo maliyet hesaplaması?

selamlar;
http://www.fox4um.com/viewtopic.php?id=248 belki konu ile alakalıdır.  bi incelemeni öneririm.

Senin mantigini esas alarak oneri getiriyorum. Bana kalsa tasarim taa basindan degisir ama o bence olani. Bir de hareketlerin giriscikis yonunu belirleyen direction diye bir degisken oldugunu varsayarak ve directin = 1 giris, direction=2 cikis olmak uzere ;
Girisler icin Used4Fifo diye bir alan, cikislar icin Calc4Fifo diye bir alan ekle.

TEST ETMEDIM gerek runtime hatalar icin gerekse de tasarim hatalari icin sorumluluk sende; sadece ornek olur mu diyerekten bir karalama yapayim istedim.
MESELA bu hesaplatmadan sonra giris cikis miktarlarinda degisikliklere yol acacak turden guncelleme yapilirsa Calc4Fifo lari da Used4Fifo lari da SIFIRLAYIP yeniden calistirmak zorundasin.
Buna benzer baska seyler de gordugumden tasarimi taa bastan farkli yaparim dedim, bu durumu da guncellemelerinde goz onunde TUTMAYI SAKIN UNUTMA!!!

Seninkine uygun olacak yontem
*/Index IslemTarihi + IslemSaati olmali ve Giris yapilmadan cikis hareketi engellenmeli - bakiye stok
*/veya DTOS(IslemTarihi)+Str(Direction) olmali ki ayni tarihli islemlerde girisler once gelsin
Go top
Do While !Eof()
     if direction = 1
        skip
        loop
    endif
    if Calc4Fifo = Cikan
       SKIP
       LOOP
    endif
    threcno = RecNo()
    m.kar = CalcKar(Cikan,CikisFiyat)
    go threcno
    replace Kar With m.Kar
    */ Stoklarda - bakiyeye izin vermediysen calc4fifo larin tamamen cikan kadar olmasi
    */ lazim esasindan hareketle ...
    if calc4fifo < cikan       && ola ki stoklarda eksiye dusecek sekilde satislara izin verdiysen...!
        *exit ; veya skip / loop artik sana bagli
        skip
        loop
    endif
    skip
enddo

return

Function CalcKar

Parameters _cikanMiktar,_cikisFiyati
retkar = 0

Go Top
Do While !Eof()
     if direction = 2
        SKIP
        LOOP
     endif
     if Used4Fifo = Giren
        SKIP
         LOOP
     endif
     Kullanilabilir = Giren - Used4Fifo
     if kullanilabilir >= _cikanmiktar
        replace Used4Fifo With Used4Fifo + _cikanmiktar
        kullanilan = _cikanmiktar
    else
        kullanilan = Kullanilabilir
        replace Used4Fifo with giren       && hepsi degerlendirildi
    endif
    retkar = retkar + Kullanilan * ( _cikisFiyat - GirisFiyat)
    deepthrec = recno()
    go threcno
    replace Calc4Fifo with Calc4Fifo + Kullanilan
    _cikanmiktar = _cikanmiktar - Kullanilan
    go deepthrec
     if _cikanmiktar < 0
          WAIT WIND "tasarim hatasi"
          cancel
    endif
    if _cikanmiktar = 0
        return retkar
    endif
    skip
enddo

wait wind "tasarim hatasi 2"

cancel

öncelikle herkese yardımcı oldukları için teşekkür ederim.

kodu gerçek dataya uygulama ve testin tamamı bitmedi ama, şimdiye kadar uyguladıklarıma bakınca

Çetin hocam!
Siz programcı değilsiniz. program filanda yazmıyorsunuz.!
sanatçısınız, sanatçı. sanat yapan bir üstad. bu kompliman filan değil, hayatım boyunca hep inandığım doğruları söyledim. inanın bana bugünde buna inanıyorum.
İnşallah ülkemizde sizin gibi insanların sayısı çok fazla olur. İnşallah sağlıklı bir şekilde uzun yaşarsınız.

herşey için sağolun. Teşşekkürler

erdalyancin kardeşimin sanatçı ve diğer ifadelerine katılmadan edemiyeceğim... saygılarımla.