Logo WMS Platfrom'da her işlem Emir Fişine istinaden gerçekleşir. Emir fişi olmadan Stok Fişi veya bir diğer değişle hareket işlemi gerçekleşemez. Bu yüzde BackOffice'de olduğu gibi terminalde de işlem hareketi önce Emir Fişi oluşturmak sonra buna istinaden Stok Fişi oluşturmaktır.
Mal Kabul işlemleri ise siparişi olmadan Kontrolsüz kabul, İade Kabul veya Satınalma siparişli kabul olarak gerçekleşebilir
BackOffice Mal Kabul İşlemi
BackOffice’de mal kabul işleminde öncelikle başlık bilgileri seçilir.
Başlık bilgilerinden sonra satırlarda sırası ile Adres, Malzeme ve miktar bilgisi girilerek Kaydet tıklanır.
Emir fişi oluştuktan sonra Emirler sayfasındaki listeden ilgili emirin üzerine sağ tıklanarak Fiş Oluştur seçilir ve bu ekranda sadece Kaydet tıklanır.
Böylece mal kabul işlemi tamamlanmış olur, eğer fişi ERP’ye entegre etmek istersek o zaman Giriş->Stok Fişleri altında ilgili fişe sağ tıklayarak İşlem Durumlarında->Entegre Edildi seçilmesi gerekmektedir.
Terminal Mal Kabul İşlemi
Terminalden Mal Kabul İşlemleri için BackOfficeden olduğu gibi fiş türü seçilir, Belge No girişi yapılıp ilgili cari seçilir, bundan sonra da malzemeler seçilerek tek tek giriş işlemleri yapılır. En son olarak girilecek malzeme kalmadığında ESC veya geri tuşu ile İşlemi Sonlardır menüsü seçilir.
Aşağıdaki Formaldar göreceğiniz gibi mal kabul süreci Script örneüimizde Başlık ve Satırlar için ili ayrı formdan oluşmaktadır.
Mal Kabul süreci ilgili fiş türü seçtikten sonra aşağıdaki formlardan oluşmaktadır;
Tüm mal kabul sürecin script kodları aşağıdaki gibidir, bu script kodları içerisinde ayrıca açıklama satırları da eklenmiştir.
BeginForm(SiparissizKabul)
//CustomSlipType.Get("Description='Satınalma İrsaliyesi (Tiger)'") CustomSlipType.Get(10) ///Fiş Türü Seçimi GoForm(KabulBaslik)
EndForm()
BeginForm(KabulBaslik) KeyFunction("ESC",GoForm(GirisMenu)) ResetVariables({"name":["@BelgeNo","@CariBilgi","@CariListesi","@Secenek","@@Arp","@@WorkOrder","@@Slip"]}) ClearScreen() Text(0,0," @@CustomSlipType.Name",{"title":"","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}})
BerlgeNo: Input(0,0,"Belge No",{"type":"text","min":"0","max":"50"},@BelgeNo) /// Belge Numarası ///Cari Hesap Seçimi
VergiNoGirsi: Input(0,0,"Cari Arama [VNO-KOD-ÜNVAN]",{"type":"text","min":"1","max":"50"},@CariBilgi) Arp.Get("TaxNumber='@CariBilgi' OR Code='@CariBilgi'") If(@@Arp.Id="") Arp.List("Title like '%'+@CariBilgi+'%'","",@CariListesi) If(@CariListesi.rowCount<1) ShowMessage({"title":"UYARI","message":"Girilen Bilgilere Ait Tedarikçi Bulunamadı","buttons":"TAMAM"},@Secenek) Goto(VergiNoGirsi) EndIf() PopupView(@CariListesi.rows,{"mode":"list","title":"Tedarikçi Bilgileri","fields":["Code|Kodu|15|L","Title|Açıklaması|35|L"],"style":@Style.app.popup},@Sira) Arp.Get(@[email protected]) EndIf() ShowMessage({"title":"UYARI","message":"Tedarikçi Bilgiler \n @@Arp.Code - @@Arp.Title \n Seçilecek Emin Misiniz?","buttons":"EVET|HAYIR"},@Secenek) If(@Secenek=2,Goto(VergiNoGirsi)) Text(1,1,"@@Arp.Code | @@Arp.Title",{"title":"Tedarikçi Kodu | Ünvanı","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}}) ///Kabul ambarı ataması Warehouse.Get(@@LoginUser.DefaultWarehouseId) ///Emir ve Stok fişi aynı anda oluşur /// Girilen bilgilere ait varsa açıkta seçilir yoksa yenisi açılır WorkOrder.Get("DocumentNumber='@BelgeNo' AND SlipType=1 AND CustomSlipTypeId=10 AND StateId<>14 AND ArpId=@@Arp.Id") If(@@WorkOrder.Id="") WorkOrder.New({"SlipType":"1","DocumentNumber":"@BelgeNo"},1) Slip.New({"SlipType":"1","DocumentNumber":"@BelgeNo"},1) Else() Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() GoForm(KabulSatir)
EndForm() BeginForm(EscMalKabul)
KeyFunction("ESC",GoForm(SiparissizKabul)) MenuItem(KabulSatir,"İşleme Devam Et","",11) MenuItem(EscMalKabulFisEntegreEt,"Fişi Entegre Et","",11) MenuItem(SonIslemler,"Son İşlemler","",11) MenuItem(AnaMenu,"Ana Menü","",11) MenuRun(0,0,"ESC Mal Kabul")
EndForm()
BeginForm(EscMalKabulFisEntegreEt) ShowMessage({"title":"Uyarı!!!","message":"Kabul İşlemi Tamamladı \n Entegre Edilsin mi?","buttons":"Evet|Hayır"},@Secenek) If(@Secenek=1) ///Stok Fişi statusu Entegre Edildi olarak Değişir CustomState.Get(19) Slip.Save() ///Emir Fişi Statusu Tamamlandı olarak değişir CustomState.Get(14) WorkOrder.Save() EndIf() GoForm(EscMalKabul)
EndForm()
BeginForm(SonIslemler) KeyFunction("ESC",GoForm(EscMalKabul)) ClearScreen() Text(0,0,"Son İşlem Hareketleri") Text(1,1,"@@Arp.Code | @@Arp.Title",{"title":"Tedarikçi Kodu | Ünvanı","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}}) SlipLine.List("SlipId=@@Slip.Id","Id Desc",@SonIslemler) TableView(@SonIslemler.rows,3,10,{"rows":"30","columns":["Address|Giriş Adresi|10|L","ItemCode|Malzeme Kodu|15|L","ItemName|Malzeme Açıklaması|35|L","Quantity|Miktar|6|L"],"style":@Style.app.table}) Input(1,3,"Devam İçin ENTER",{"type":"text","min":"0", "max":"1","style": {"titleColor":"Green"}},@Secim) GoForm(EscMalKabul)
EndForm()
BeginForm(KabulSatir)
KeyFunction("ESC",GoForm(EscMalKabul)) /// Satır İşlemleri ResetVariables({"name":["@@Address"]})
AdresSecimi: /// Giriş Türünde Adres Seçimi, tek adres ise otomatik seçek birden çok adres ise liste çıkartır Address.List("AddressType=9","",@AdresListesi) If(@AdresListesi.rowCount<1) ShowMessage({"title":"UYARI","message":"Giriş Türünde Tanımlı Adres Bulunamadı","buttons":"TAMAM"},@Secenek) Goto(AdresSecimi) EndIf() If(@AdresListesi.rowCount=1) Address.Get(@AdresListesi.rows.1.Id) Else() PopupView(@AdresListesi.rows,{"mode":"list","title":"Kabul Adres Listesi","fields":["Address|Adres Tanımı|15|L"]},@Sira) Address.Get(@[email protected]) EndIf()
MalzemeSecimi: ResetVariables({"name":["@@ItemUnit","@@Item"]}) ClearScreen() Text(1,1,"@@Arp.Code | @@Arp.Title",{"title":"Tedarikçi Kodu | Ünvanı","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}}) Text(1,2," @BelgeNo",{"title":"Belge No","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}}) Input(0,0,"Malzeme Kod-Barkod-Aciklama Ara: ",{"type":"text","min":"1", "max":"105"},@Barkod) UnitBarcode.Get("Barcode='@Barkod'") If(@@Item.Id="") Item.Get("Code='@Barkod'") If(@@Item.Id="") Item.List("Name like '%'+@Barkod+'%'","",@MalzemeListesi) If(@MalzemeListesi.rowCount<1) ShowMessage({"title":"UYARI","message":"Girilen Bilgilere Ait Malzeme Bulunamadı","buttons":"TAMAM"},@Secenek) Goto(MalzemeSecimi) EndIf() PopupView(@MalzemeListesi.rows,{"mode":"list","title":"Malzemelr","fields":["Code|Kodu|15|L","Name|Açıklaması|35|L"],"style":@Style.app.popup},@Sira) Item.Get(@[email protected]) /// Secilen Malzemeye Ait Birim Sistesini Getirir ItemUnit.List("ItemId=@@Item.Id","",@BirimListe) PopupView(@BirimListe.rows,{"mode":"list","title":"Malzemelr","fields":["Code|Kodu|15|L"],"style":@Style.app.popup},@Sira) ItemUnit.Get(@[email protected]) EndIf() EndIf() ///Takip Turu Kontrol Text(1,3,"@@Item.Code | @@Item.Name",{"title":"MAlzeme Kodu | Malzeme Açıklaması","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}}) CaseGoto(@@Item.TrackingType,{"0":"TakipsizMiktarSor","1":"LotBilgisiniSor","2":"SeriSatirAc"})
TakipsizMiktarSor: Input(1,4,"@@ItemUnit.Code Miktarı: ",{"type":"decimal","min":"0.05", "max":"99999999.0","style": {"titleColor":"Green"}},@miktar) WorkOrderLine.New({"SlipType":"1","Quantity" : "@miktar"},1) SlipLine.New({"SlipType":"1","Quantity" : "@miktar"},1) If(@Response.Status="-1") ShowMessage({"title":"Fiş Kaydetme Hatası", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) EndIf() Goto(MalzemeSecimi)
LotBilgisiniSor: Input(0,0,"@@Item.Code-@@Item.Name @@ItemUnit.Code Lot No: ",{"type":"text","min":"1", "max":"105"},@TakipNo) Input(1,4,"@@ItemUnit.Code Miktarı: ",{"type":"decimal","min":"0.05", "max":"99999999.0","style": {"titleColor":"Green"}},@miktar) WorkOrderLine.New({"SlipType":"1","Quantity" : "@miktar"},0) SlipLine.New({"SlipType":"1","Quantity" : "@miktar"},0) ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@TakipNo"},1) ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@TakipNo"},1) If(@Response.Status="-1") ShowMessage({"title":"Fiş Kaydetme Hatası", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) EndIf() Goto(MalzemeSecimi)
SeriSatirAc: WorkOrderLine.New({"SlipType":"1","Quantity" : "@miktar"},0) SlipLine.New({"SlipType":"1","Quantity" : "@miktar"},0)
SeriBilgisiAl: Input(0,0,"@@Item.Code-@@Item.Name Seri No [0-Yeni Ürün] : ",{"type":"text","min":"1", "max":"105"},@TakipNo) If(@TakipNo=0,Goto(MalzemeSecimi)) ItemTracking.New({"LineType":"4","Quantity":"1","TrackingNumber":"@TakipNo"},1) ItemTracking.New({"LineType":"5","Quantity":"1","TrackingNumber":"@TakipNo"},1) If(@Response.Status="-1") ShowMessage({"title":"Fiş Kaydetme Hatası", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) EndIf() Goto(SeriBilgisiAl) GoForm(AnaMenu)
EndForm()
BackOffice İade Kabul İşlemi
Normal mal kabul işleminden tek farkı sadece fiş türü seçimidir.
Terminal İade Kabul İşlemi
İade kabul süreci Mal Kabul süreci ile aynı olup sadece fiş türü farklı olduğu için Kabul Başlık formuna yönlendirilmeden önce fiş türü set edilmesi yeterlidir.
BeginForm(IadeKabul)
CustomSlipType.Get(13) ///İade Kabul Fiş Türü Seçimi GoForm(KabulBaslik)
EndForm()
BackOffice Siparişli Mal Kabul İşlemi
Logo WMS Platformda siparişli kabul süreci öncelikle ERP’de satınalma siparişi açılması ile başlar. ERP’de açılan sipariş Sevk Edilebilir durumuna getirildiğinde otomatik olarak WMS Platfroma aktarılır.
Aktarılan siparişe Giriş->Siparişler menüsü altından erişilebilir. İlgili siparişe sağ tıklayıp Emir Oluştur işlemi seçilirse Mal Kabul sürecinde anlatıldığı gibi ilgili alanlar seçilir, bu fişteki tek fark referans olarak sipariş bağlantısı verilmesidir.
Bundan sonraki adımlarda Emir ardından Stok Fişi kaydedilip siparişli kabul işlemleri tamamlanmış olur.
Terminal Script Siparişli Mal Kabul İşlemi
Terminal Scrip te siparişli mal kabul süreci normal mal kabul sürecinden farklı olarak cari hesabı seçildikten sonra ilgili cariye ait açık sipariş var mı kontrol edilir.
Seçim işleminden sonra oluşacak Emir ve Stok fişi siparişli olacaktır.
OrderSlipLine.Get komutu seçilmiş olan birimi siparişteki birime çevireceği için yanlış birimden kabulü önlemek için daha önce @UnitID değişkenine atanan birim bilgisini yeniden seçilmelidir.
Terminal script ile yazılmış tüm mal kabul kodları aşağıdaki gibidir.
BeginForm(SiparisKabulBaslik)
KeyFunction("ESC",GoForm(GirisMenu))
ResetVariables({"name":["@BelgeNo","@CariBilgi","@CariListesi","@Secenek","@@Arp","@@WorkOrder","@@Slip"]})
ClearScreen()
Text(0,0," Sipariş Kabul",{"title":"","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}})
KeyFunction("ESC",GoForm(AnaMenu))
VergiNoGirsi:
Input(0,0,"Cari Arama [VNO-KOD-ÜNVAN]",{"type":"text","min":"1","max":"50"},@CariBilgi)
Arp.Get("TaxNumber='@CariBilgi' OR Code='@CariBilgi'")
If(@@Arp.Id="")
Arp.List("Title like '%'+@CariBilgi+'%'","",@CariListesi)
If(@CariListesi.rowCount<1)
ShowMessage({"title":"UYARI","message":"Girilen Bilgilere Ait Tedarikçi Bulunamadı","buttons":"TAMAM"},@Secenek)
Goto(VergiNoGirsi)
EndIf()
PopupView(@CariListesi.rows,{"mode":"list","title":"Tedarikçi Bilgileri","fields":["Code|Kodu|15|L","Title|Açıklaması|35|L"],"style":@Style.app.popup},@Sira)
Arp.Get(@[email protected])
EndIf()
ShowMessage({"title":"UYARI","message":"Tedarikçi Bilgiler \n @@Arp.Code - @@Arp.Title \n Seçilecek Emin Misiniz?","buttons":"EVET|HAYIR"},@Secenek)
If(@Secenek=2,Goto(VergiNoGirsi))
OrderSlip.List("SlipType=1 AND RemainingTotal>0 AND ArpId=@@Arp.Id","SlipDate",@SatinalmaSiparisler)
If(@SatinalmaSiparisler.rowCount<1)
ShowMessage({"title":"UYARI","message":"Tedarikçiye Ait Açık Satınalma Siparişi Yoktur","buttons":"TAMAM"},@Secenek)
Goto(VergiNoGirsi)
EndIf()
PopupView(@SatinalmaSiparisler.rows,{"mode":"list","title":"Satınalma Sipariş Listesi","fields":["SlipDate|Sipariş Tarihi|15|L","ArpTitle|Tedarikçi|30|L","RemainingTotal|Kalan Miktar|10|L"]},@Sira)
OrderSlip.Get(@[email protected])
If(@@OrderSlip.Id="")
ShowMessage({"title":"UYARI","message":"Tedarikçiye Ait Seçilem Satınalma Siparişi Hatalıdır","buttons":"TAMAM"},@Secenek)
Goto(VergiNoGirsi)
EndIf()
Text(1,1,"@@Arp.Code | @@Arp.Title",{"title":"Tedarikçi Kodu | Ünvanı","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}})
Text(1,2,"@@OrderSlip.SlipNumber | @@OrderSlip.RemainingTotal",{"title":"Sipariş Numarası | Kalan Toplam Miktar","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}})
Input(1,3,"Belge No",{"type":"text", "min":"1", "max":"55","style": {"titleColor":"Green"}},@BelgeNo)
CustomSlipType.Get(9)
WorkOrder.Get("StateId=12 AND OrderSlipId=@@OrderSlip.Id AND DocumentNumber='@BelgeNo' AND SlipType=1 AND CustomSlipTypeId=9")
If(@@WorkOrder.Id="")
WorkOrder.New({"SlipType":"1","DocumentNumber":"@BelgeNo"},1)
EndIf()
Slip.Get("OrderSlipId=@@OrderSlip.Id AND DocumentNumber='@BelgeNo' AND SlipType=1 AND CustomSlipTypeId=9 AND StateId=16")
If(@@Slip.Id="")
Slip.New({"SlipType":"1","DocumentNumber":"@BelgeNo"},1)
EndIf()
GoForm(SiparisKabulSatir)
EndForm()
BeginForm(EscSiparisKabulSatir)
KeyFunction("ESC",GoForm(SiparissizKabul))
MenuItem(SiparisKabulSatir,"İşleme Devam Et","",11)
MenuItem(EscSipMalKabulFisEntegreEt,"Fişi Entegre Et","",11)
MenuItem(SiparisKabulSatirSonIslemler,"Son İşlemler","",11)
MenuItem(AnaMenu,"Ana Menü","",11)
MenuRun(0,0,"ESC Mal Kabul")
EndForm()
BeginForm(EscSipMalKabulFisEntegreEt)
ShowMessage({"title":"Uyarı!!!","message":"Kabul İşlemi Tamamladı \n Entegre Edilsin mi?","buttons":"Evet|Hayır"},@Secenek)
If(@Secenek=1)
///Stok Fişi statusu Entegre Edildi olarak Değişir
CustomState.Get(19)
Slip.Save()
///Emir Fişi Statusu Tamamlandı olarak değişir
CustomState.Get(14)
WorkOrder.Save()
EndIf()
GoForm(EscMalKabul)
EndForm()
BeginForm(SiparisKabulSatirSonIslemler)
KeyFunction("ESC",GoForm(EscSiparisKabulSatir))
ClearScreen()
Text(0,0,"Son İşlem Hareketleri")
Text(1,1,"@@Arp.Code | @@Arp.Title",{"title":"Tedarikçi Kodu | Ünvanı","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}})
SlipLine.List("SlipId=@@Slip.Id","Id Desc",@SonIslemler)
TableView(@SonIslemler.rows,3,10,{"rows":"30","columns":["Address|Giriş Adresi|10|L","ItemCode|Malzeme Kodu|15|L","ItemName|Malzeme Açıklaması|35|L","Quantity|Miktar|6|L"],"style":@Style.app.table})
Input(1,3,"Devam İçin ENTER",{"type":"text","min":"0", "max":"1","style": {"titleColor":"Green"}},@Secim)
GoForm(EscSiparisKabulSatir)
EndForm()
BeginForm(SiparisKabulSatir)
KeyFunction("ESC",GoForm(EscSiparisKabulSatir))
/// Satır İşlemleri
ResetVariables({"name":["@@Address"]})
Text(0,0,"@@OrderSlip.SlipNumber - @@Arp.Title")
AdresSecimi:
/// Giriş Türünde Adres Seçimi, tek adres ise otomatik seçek birden çok adres ise liste çıkartır
Address.List("AddressType=9","",@AdresListesi)
If(@AdresListesi.rowCount<1)
ShowMessage({"title":"UYARI","message":"Giriş Türünde Tanımlı Adres Bulunamadı","buttons":"TAMAM"},@Secenek)
Goto(AdresSecimi)
EndIf()
If(@AdresListesi.rowCount=1)
Address.Get(@AdresListesi.rows.1.Id)
Else()
PopupView(@AdresListesi.rows,{"mode":"list","title":"Kabul Adres Listesi","fields":["Address|Adres Tanımı|15|L"]},@Sira)
Address.Get(@[email protected])
EndIf()
MalzemeSecimi:
///Sipariste Satir Bekleyeni Var Mı Kontrolü Yoksa fişi entegre eder
OrderSlipLine.List("RemainingTotal>0 And SlipId=@@OrderSlip.Id ","",@SatinalmaSiparisSatirlari)
If(@SatinalmaSiparisSatirlari.rowCount<1)
ShowMessage({"title":"UYARI","message":"Seçilen Siparişe Ait Tüm Satırlan Karşılanmış \n Fiş Entegre Edilecektir","buttons":"TAMAM"},@Secenek)
Goform(EscSipMalKabulFisEntegreEt)
EndIf()
ResetVariables({"name":["@@ItemUnit","@@Item"]})
ClearScreen()
Text(1,1,"@@Arp.Code | @@Arp.Title",{"title":"Tedarikçi Kodu | Ünvanı","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}})
Text(1,2," @BelgeNo",{"title":"Belge No","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}})
Input(0,0,"Malzeme Kod-Barkod-Aciklama Ara: ",{"type":"text","min":"1", "max":"105"},@Barkod)
UnitBarcode.Get("Barcode='@Barkod'")
If(@@Item.Id="")
Item.Get("Code='@Barkod'")
If(@@Item.Id="")
Item.List("Name like '%'+@Barkod+'%'","",@MalzemeListesi)
If(@MalzemeListesi.rowCount<1)
ShowMessage({"title":"UYARI","message":"Girilen Bilgilere Ait Malzeme Bulunamadı","buttons":"TAMAM"},@Secenek)
Goto(MalzemeSecimi)
EndIf()
PopupView(@MalzemeListesi.rows,{"mode":"list","title":"Malzemelr","fields":["Code|Kodu|15|L","Name|Açıklaması|35|L"],"style":@Style.app.popup},@Sira)
Item.Get(@[email protected])
/// Secilen Malzemeye Ait Birim Sistesini Getirir
ItemUnit.List("ItemId=@@Item.Id","",@BirimListe)
PopupView(@BirimListe.rows,{"mode":"list","title":"Malzemelr","fields":["Code|Kodu|15|L"],"style":@Style.app.popup},@Sira)
ItemUnit.Get(@[email protected])
EndIf()
EndIf()
Set(@UnitID,@@ItemUnit.Id)
///Takip Turu Kontrol
Text(1,3,"@@Item.Code | @@Item.Name",{"title":"MAlzeme Kodu | Malzeme Açıklaması","style": {"color":"Red","titleColor":"Blue","size":"2","effect":"Bold"}})
OrderSlipLine.Get("RemainingTotal>0 And SlipId=@@OrderSlip.Id And ItemId=@@Item.Id")
If(@@OrderSlipLine.Id="")
ShowMessage({"title":"UYARI","message":"Seçilen Malzemeye Ait Bekleyen Miktar Yokturr","buttons":"TAMAM"},@Secenek)
Goto(MalzemeSecimi)
EndIf()
ItemUnit.Get(@UnitID)
CaseGoto(@@Item.TrackingType,{"0":"TakipsizMiktarSor","1":"LotBilgisiniSor","2":"SeriSatirAc"})
TakipsizMiktarSor:
Input(1,4,"@@ItemUnit.Code Miktarı: ",{"type":"decimal","min":"0.05", "max":"99999999.0","style": {"titleColor":"Green"}},@miktar)
If(@miktar>@@OrderSlipLine.RemainingTotal)
ShowMessage({"title":"Uyarı", "message" : "Girilen Miktar: @miktar \n Sipariş Miktarından Fazladır \n Bekleyen Miktar:@@OrderSlipLine.RemainingTotal ", "buttons" : "Tamam"},@secim)
Goto(TakipsizMiktarSor)
EndIf()
WorkOrderLine.New({"SlipType":"1","Quantity" : "@miktar"},1)
SlipLine.New({"SlipType":"1","Quantity" : "@miktar"},1)
If(@Response.Status="-1")
ShowMessage({"title":"Fiş Kaydetme Hatası", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim)
EndIf()
Goto(MalzemeSecimi)
LotBilgisiniSor:
Input(1,4,"LOT No:: ",{"type":"text","min":"1", "max":"105"},@TakipNo)
Input(1,5,"@@ItemUnit.Code Miktarı: ",{"type":"decimal","min":"0.05", "max":"99999999.0","style": {"titleColor":"Green"}},@miktar)
If(@miktar>@@OrderSlipLine.RemainingTotal)
ShowMessage({"title":"Uyarı", "message" : "Girilen Miktar: @miktar \n Sipariş Miktarından Fazladır \n Bekleyen Miktar:@@OrderSlipLine.RemainingTotal ", "buttons" : "Tamam"},@secim)
Goto(LotBilgisiniSor)
EndIf()
WorkOrderLine.New({"SlipType":"1","Quantity" : "@miktar"},0)
SlipLine.New({"SlipType":"1","Quantity" : "@miktar"},0)
ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@TakipNo"},1)
ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@TakipNo"},1)
If(@Response.Status="-1")
ShowMessage({"title":"Fiş Kaydetme Hatası", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim)
EndIf()
Goto(MalzemeSecimi)
SeriSatirAc:
WorkOrderLine.New({"SlipType":"1","Quantity" : "@miktar"},0)
SlipLine.New({"SlipType":"1","Quantity" : "@miktar"},0)
SeriBilgisiAl:
///Sipariste Satir Bekleyeni Var Mı Kontrolü Yoksa fişi entegre eder
OrderSlipLine.List("RemainingTotal>0 And SlipId=@@OrderSlip.Id ","",@SatinalmaSiparisSatirlari)
If(@SatinalmaSiparisSatirlari.rowCount<1)
ShowMessage({"title":"UYARI","message":"Seçilen Siparişe Ait Tüm Satırlan Karşılanmış \n Fiş Entegre Edilecektir","buttons":"TAMAM"},@Secenek)
Goform(EscMalKabulFisEntegreEt)
EndIf()
Input(0,0,"@@Item.Code-@@Item.Name Seri No [0-Yeni Ürün] : ",{"type":"text","min":"1", "max":"105"},@TakipNo)
If(@TakipNo=0,Goto(MalzemeSecimi))
ItemTracking.New({"LineType":"4","Quantity":"1","TrackingNumber":"@TakipNo"},1)
ItemTracking.New({"LineType":"5","Quantity":"1","TrackingNumber":"@TakipNo"},1)
If(@Response.Status="-1")
ShowMessage({"title":"Fiş Kaydetme Hatası", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim)
EndIf()
Goto(SeriBilgisiAl)
GoForm(AnaMenu)
EndForm()