Mal Kabul İşlemleri
Logo WMS Platfromda 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
<ac:structured-macro ac:name="anchor" ac:schema-version="1" ac:macro-id="bf9763f6-b48b-4f3d-ad7a-332c75659dd3"><ac:parameter ac:name="">_Toc94679425</ac:parameter></ac:structured-macro>
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)
<span style="color: #808080">//CustomSlipType.Get("Description='Satınalma İrsaliyesi (Tiger)'")</span>
<span style="color: #0000ff">CustomSlipType.Get</span><span style="color: #a9a9a9">(</span>10<span style="color: #a9a9a9">)</span> <span style="color: #808080">///Fiş Türü Seçimi</span>
<span style="color: #0000ff">GoForm</span><span style="color: #a9a9a9">(</span>KabulBaslik<span style="color: #a9a9a9">)</span>
EndForm()
BeginForm(KabulBaslik)
<span style="color: #0000ff">KeyFunction</span><span style="color: #a9a9a9">(</span><span style="color: #008000">"ESC"</span><span style="color: #a9a9a9">,</span><span style="color: #0000ff">GoForm</span><span style="color: #a9a9a9">(</span>GirisMenu<span style="color: #a9a9a9">))</span>
<span style="color: #0000ff">ResetVariables</span><span style="color: #a9a9a9">(</span><span style="color: #800080"><ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="b6a8cbf0-098e-4eb2-abc2-ca2fe67556e5"><ac:plain-text-body><![CDATA[{"name":["
"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.NameSeri 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. !worddav5792ce9491a197ccca1bc8e88477634a.png|height=137,width=275! *_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|#_BackOffice_Mal_Kabul] sürecinde anlatıldığı gibi ilgili alanlar seçilir, bu fişteki tek fark referans olarak sipariş bağlantısı verilmesidir !worddava0aaf65a37a48a551e9f405abadeadc9.png|height=165,width=339! \\ _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. !worddavf69f17fb63103719b699a08fddef5a4d.png|height=120,width=645! \\ Seçim işleminden sonra oluşacak Emir ve Stok fişi siparişli olacaktır. !worddav6325b51ef0180aeae3d113d061a960b7.png|height=115,width=645! \\ Başlık işleminden sonra satırda malzeme seçimi yapıldıktan sonra ayrıca sipariş satırlarında ilgili malzemeye bekleyen miktar var mı kontrol edilir. !worddav014a96ff469069e19e973c24aeb498af.png|height=97,width=559! \\ 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._ \\ !worddavfbce745eeb2ff7883b30090589f37520.png|height=162,width=645! \\ _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.NameSeri 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()*]]>