Stok İşlemleri

Stok01_Select_LotSeri

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - depoKodu (String): Depo kodu
  • - lotSeriNo (String): Lot/Seri numarası
  • - options (Integer): Seçenekler
  • Açıklama: Lot/Seri seçimi yapar

Örnek Kullanım:

Sub Makro1()
    Dim Result
    Result = Doc.Stok01_Select_LotSeri("STOK001", "DEPO01", "LOT123", 0)
    
    If Result = 0 Then
        Doc.MsgBox "Lot/Seri seçildi"
    Else
        Doc.MsgBox "Seçim hatası: " & Result
    End If
End Sub

Stok01_Select_StokID

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - stokID (String): Stok ID
  • Açıklama: Stok ID'ye göre seçim yapar

Örnek Kullanım:

Sub Makro1()
    Dim Result, StokID
    StokID = "12345"
    Result = Doc.Stok01_Select_StokID(StokID)
    
    If Result = 0 Then
        Doc.MsgBox "Stok seçildi"
    Else
        Doc.MsgBox "Seçim hatası: " & Result
    End If
End Sub

GetStokID

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - stokKodu (Variant): Stok kodu
  • - miktar (Double): Miktar
  • - birim (Double): Birim
  • - options (Integer): Seçenekler
  • Açıklama: Stok ID'yi döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Miktar, Birim, StokID
    StokKodu = "STOK001"
    Miktar = 100
    Birim = 1
    StokID = Doc.GetStokID(StokKodu, Miktar, Birim, 0)
    Doc.MsgBox "Stok ID: " & StokID
End Sub

GetStokID_RO

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - stokKodu (Variant): Stok kodu
  • - miktar (Double): Miktar
  • - birim (Double): Birim
  • - options (Integer): Seçenekler
  • Açıklama: Stok ID'yi döndürür (Read Only)

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Miktar, Birim, StokID
    StokKodu = "STOK001"
    Miktar = 100
    Birim = 1
    StokID = Doc.GetStokID_RO(StokKodu, Miktar, Birim, 0)
    Doc.MsgBox "Stok ID (RO): " & StokID
End Sub

Stok00_toUnit

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - fromUnit (String): Kaynak birim
  • - toUnit (String): Hedef birim
  • - options (Integer): Seçenekler
  • Açıklama: Birim dönüşümü yapar

Örnek Kullanım:

Sub Makro1()
    Dim Miktar, YeniMiktar
    Miktar = 100  ' Adet
    YeniMiktar = Doc.Stok00_toUnit("STOK001", "AD", "KG", 0)
    
    Doc.MsgBox "100 Adet = " & (Miktar * YeniMiktar) & " KG"
End Sub

Stok00_GetUnitBase

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - unitCode (String): Birim kodu
  • - baseUnit (String): Temel birim
  • Açıklama: Birim temel değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, BirimKodu, TemelBirim, TemelDeger
    StokKodu = "STOK001"
    BirimKodu = "KG"
    TemelBirim = "AD"
    TemelDeger = Doc.Stok00_GetUnitBase(StokKodu, BirimKodu, TemelBirim)
    Doc.MsgBox "Temel Değer: " & TemelDeger
End Sub

Stok00_GetUnitCoef

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - unitCode (String): Birim kodu
  • - baseUnit (String): Temel birim
  • Açıklama: Birim katsayısını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, BirimKodu, TemelBirim, Katsayi
    StokKodu = "STOK001"
    BirimKodu = "KG"
    TemelBirim = "AD"
    Katsayi = Doc.Stok00_GetUnitCoef(StokKodu, BirimKodu, TemelBirim)
    Doc.MsgBox "Birim Katsayısı: " & Katsayi
End Sub

Stok01_SonMik

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - depoKodu (String): Depo kodu
  • Açıklama: Son miktarı döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, DepoKodu, SonMiktar
    StokKodu = "STOK001"
    DepoKodu = "DEPO01"
    
    SonMiktar = Doc.Stok01_SonMik(StokKodu, DepoKodu)
    Doc.MsgBox "Stok: " & StokKodu & Chr(13) & "Son Miktar: " & SonMiktar
End Sub

Stok01_SonSerbest

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - depoKodu (String): Depo kodu
  • Açıklama: Son serbest miktarı döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, DepoKodu, SerbestMiktar
    StokKodu = "STOK001"
    DepoKodu = "DEPO01"
    SerbestMiktar = Doc.Stok01_SonSerbest(StokKodu, DepoKodu)
    Doc.MsgBox "Serbest Miktar: " & SerbestMiktar
End Sub

Stok01_SonRezerve

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - depoKodu (String): Depo kodu
  • Açıklama: Son rezerve miktarı döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, DepoKodu, RezerveMiktar
    StokKodu = "STOK001"
    DepoKodu = "DEPO01"
    RezerveMiktar = Doc.Stok01_SonRezerve(StokKodu, DepoKodu)
    Doc.MsgBox "Rezerve Miktar: " & RezerveMiktar
End Sub

CalcStokMiktar

  • Dönüş Tipi: Variant
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - miktar (Double): Miktar
  • - fromUnit (String): Kaynak birim
  • - toUnit (String): Hedef birim
  • - options (String): Seçenekler
  • Açıklama: Stok miktarını hesaplar

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Miktar, YeniMiktar
    StokKodu = "STOK001"
    Miktar = 100
    
    YeniMiktar = Doc.CalcStokMiktar(StokKodu, Miktar, "AD", "KG", "")
    Doc.MsgBox "100 Adet = " & YeniMiktar & " KG"
End Sub

CalcIslemMiktar

  • Dönüş Tipi: Variant
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - miktar (Double): Miktar
  • - fromUnit (String): Kaynak birim
  • - toUnit (String): Hedef birim
  • - options (String): Seçenekler
  • Açıklama: İşlem miktarını hesaplar

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Miktar, YeniMiktar
    StokKodu = "STOK001"
    Miktar = 100
    YeniMiktar = Doc.CalcIslemMiktar(StokKodu, Miktar, "AD", "KG", "")
    Doc.MsgBox "İşlem Miktarı: " & YeniMiktar & " KG"
End Sub

GetDefaultSUnit

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - islemTipi (String): İşlem tipi
  • Açıklama: Varsayılan stok birimini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, IslemTipi, VarsayilanBirim
    StokKodu = "STOK001"
    IslemTipi = "SATIS"
    VarsayilanBirim = Doc.GetDefaultSUnit(StokKodu, IslemTipi)
    Doc.MsgBox "Varsayılan Birim: " & VarsayilanBirim
End Sub

---