Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
21/02/2019 11:51
Konu Sahibi
hbal09
Yorumlar
2
Okunma
316
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
hbal09

hbal09

Aktif Üye
26172
 34
 107
 19/10/2010
3
 Aydın
 
 Ofis 2016 64 Bit
 Bugün,17:35
Çözüldü 
Merhabalar,
sipariş yoğunluğuna göre stoğa veya siparişe göre üretim yapan bir firmadayım, bundan dolayı siparişleri önce stok adetlerini kontrol ettikten sonra sipariş girişinde sipariş miktarıyla beraber stoktan sevk edilecek miktarı da giriyoruz.
ekteki örnek uygulamada yapmak istediğim: ürünün sevk işlemleri sırasında sevk miktarı girildiğinde halihazırda toplam sevkedilen miktarı da göz önünde bulundurarak müşterisiz stoktan düşülecek miktarı hesaplamak istiyorum.
örneğin; (ekte Excel tablosuyla yapmak istediğimi de gösterdim)
a) Form1'de 1 nolu sipariş id'yi yazıp sipariş miktarı(12),stoktan sevk adedi(4),toplam sevkedilen(6) ve sevk bekleyen(6) otomatik geldikten sonra sevk miktarını 3 girince (sevk bekleyen değerden küçük eşit hangi değeri girersem gireyim) stoktan düşümü hesaplanan değer ilk giren ilk çıkar kuralına göre toplam sevk edilen değer stoktan sevk adedinden küçük olduğu için 0(sıfır)  değeri vermeli.
b) Form1'de 2 nolu sipariş id'yi yazıp sipariş miktarı(10),stoktan sevk adedi(0),toplam sevkedilen(0) ve sevk bekleyen(10) otomatik geldikten sonra sevk miktarını 6 girince (sevk bekleyen değerden küçük eşit hangi değeri girersem gireyim) stoktan sevk adedi 0(sıfır) olduğu için stoktan düşümü hesaplanan 0(sıfır)  değeri vermeli.
c) Form1'de 3 nolu sipariş id'yi yazıp sipariş miktarı(10),stoktan sevk adedi(2),toplam sevkedilen(1) ve sevk bekleyen(9) otomatik geldikten sonra sevk miktarını 7 girince stoktan sevk edilmeyi bekleyen (stoktan sevk adedi(2)-toplam sevkedilen(1)=1) 1 tane kaldığı ve sevk miktarı(7)ndan küçük olduğu için stoktan düşümü hesaplanan 1 değeri vermeli.
d) Form1'de 4 nolu sipariş id'yi yazıp sipariş miktarı(15),stoktan sevk adedi(10),toplam sevkedilen(5) ve sevk bekleyen(10) otomatik geldikten sonra sevk miktarını 4 girince stoktan sevk edilmeyi bekleyen (stoktan sevk adedi(10)-toplam sevkedilen(5)=5) 5 tane kaldığı ve sevk miktarı(4)ndan büyük olduğu için stoktan düşümü hesaplanan 4 değeri vermeli.
bu mantığı programda şu koşullarla yapmaya çalıştım ama bir türlü olmuyor, nerede hata yapıyorum bir türlü bulamadım.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Komut22_Click()
If Me.sevk_adet > Me.sevk_bekleyen Then
    MsgBox "Sevk Bekleyenden daha büyük değer giremezsiniz!...", vbInformation, "SEVK İŞLEMLERİ"
    Me.sevk_adet = Me.sevk_bekleyen
Else
    Select Case Me.stoktan_sevk_adet
    Case 0
        Me.hesaplanan = 0
    Case Else
        Select Case Me.toplam_sevkedilen    'ilk giren ilk çıkar mantığına göre eğer toplam sevkedilen siparişin
        Case Is >= Me.stoktan_sevk_adet     'stoktan sevk edilecek miktarından büyükse stoktan rezerve edilenler zaten sevk edilmiştir.
            Me.hesaplanan = 0               'bundan dolayı stoktan sevk edilecek miktar 0'dır
        Case Else
            If (Me.stoktan_sevk_adet - Me.toplam_sevkedilen) <= Me.sevk_adet Then   'eğer siparişin daha stoktan sevkedilecek kalanı sevk miktarından küçük eşit ise
            Me.hesaplanan = (Me.stoktan_sevk_adet - Me.toplam_sevkedilen)           'hesaplanacak değer bu fark kadardır
            Else                                                                    'eğer bu fark büyükse
            Me.hesaplanan = Me.sevk_adet                                            'hesaplanan değer girilen sevk adedi kadardır
            End If
        End Select
    End Select
End If

End Sub




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,19:14

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If Me.sevk_adet < Me.sevk_bekleyen Then

    MsgBox "Sevk Bekleyenden daha büyük değer giremezsiniz!...", vbInformation, "SEVK İŞLEMLERİ"
    Me.sevk_adet = Me.sevk_bekleyen

ElseIf Me.stoktan_sevk_adet = 0 Then

    Me.hesaplanan = 0

ElseIf Me.toplam_sevkedilen >= Me.stoktan_sevk_adet Then

    Me.hesaplanan = 0

ElseIf (Val(Me.stoktan_sevk_adet - Me.toplam_sevkedilen) <= Val(Me.sevk_adet)) Then

    Me.hesaplanan = (Me.stoktan_sevk_adet - Me.toplam_sevkedilen)
    
ElseIf (Val(Me.stoktan_sevk_adet - Me.toplam_sevkedilen) > Val(Me.sevk_adet)) Then

    Me.hesaplanan = Me.sevk_adet

Else

    Me.hesaplanan = Me.sevk_adet

End If


kodunu deneyiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
hbal09

hbal09

Aktif Üye
26172
 34
 107
 19/10/2010
3
 Aydın
 
 Ofis 2016 64 Bit
 Bugün,17:35
Hocam Teşekkür Ederim, Kod genel olarak başarılı ancak koşulların ilk aşaması olan sevk miktarının sevk bekleyenden büyük olmaması gerektiği kuralı işlemiyor, siz benim ilk koddaki darboğazı > işaretini < işaretine dönüştürerek aşmışsınız ancak bu asıl ilk koşul kontrolünü ortadan kaldırıyordu. problemi bu ilk koşul değişkenlerinin başına Val() ekleyerek çözdüm. kodun son hali :

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If Val(Me.sevk_adet) > Val(Me.sevk_bekleyen) Then

    MsgBox "Sevk Bekleyenden daha büyük değer giremezsiniz!...", vbInformation, "SEVK İŞLEMLERİ"
    Me.sevk_adet = Me.sevk_bekleyen

ElseIf Val(Me.stoktan_sevk_adet) = 0 Then

    Me.hesaplanan = 0

ElseIf Val(Me.toplam_sevkedilen) >= Val(Me.stoktan_sevk_adet) Then

    Me.hesaplanan = 0

ElseIf ((Val(Me.stoktan_sevk_adet) - Val(Me.toplam_sevkedilen)) <= Val(Me.sevk_adet)) Then

    Me.hesaplanan = (Val(Me.stoktan_sevk_adet) - Val(Me.toplam_sevkedilen))
    
ElseIf (Val(Me.stoktan_sevk_adet) - Val(Me.toplam_sevkedilen)) > Val(Me.sevk_adet) Then

    Me.hesaplanan = Val(Me.sevk_adet)

Else

    Me.hesaplanan = Val(Me.sevk_adet)

End If



Problemim Çözülmüştür.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Satılan Ürünün Stoktan Düşülmesi m_demir 24 1.320 26/05/2018, 16:05
Son Yorum: m_demir
Çözüldü Yapılan işi stoktan düşürme hakkında Gezente Çift 2 745 31/12/2016, 13:36
Son Yorum: Gezente Çift
Çözüldü SİPARİŞ SEVK MİKTARI larion 6 1.489 23/03/2015, 23:53
Son Yorum: larion
Çözüldü sipariş takip programı sevk tablosu hk. larion 2 1.460 26/12/2014, 01:33
Son Yorum: larion
Çözüldü Stoktan ilac adeti düşme | İlaç Takip xxfore 6 3.683 29/03/2014, 04:08
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.