Page History
Mal Kabul İşlemleri
Logo WMS Platfromda 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.
Anchor
BackOffice Mal Kabul İşlemi
BackOffice'de mal kabul işleminde öncelikle başlık bilgileri seçilir
!worddav0d3dad458a03a386693a42e48d9c4f11.png|height=283,width=503!
_Başlık bilgilerinden sonra satırlarda sırası ile Adres, Malzeme ve miktar bilgisi girilerek Kaydet tıklanır_
!worddav59084240e61dcfc78778b36e827db8ca.png|height=337,width=559!
_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._
!worddavb508e01f17cdfd8be6c053fc27c21536.png|height=341,width=492!
_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_
\\
!worddav46a3dd6d5d52d74fa1b616f082f0ee88.png|height=365,width=415!<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;
!worddavb0e72720de04fe52b8d946c0bed9eb93.png|height=272,width=449!
\\
\\
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">İşlemi Wiki Markup
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)'")</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":\[" 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ıNumarası ///Cari Hesap Seçimi
VergiNoGirsi: Input(0,0, "Cari Arama \ [VNO-KOD-ÜNVAN\]",{"type":"text","min":"1","max":"50"},@CariBilgi)Arp Arp.Get("TaxNumber='@CariBilgi' OR Code='@CariBilgi'") If(@@Arp.Id="") Arp.List("Title like '%'+@CariBilgi+'%'","",@CariListesi) If(@CariListesi.rowCount<1<1) ShowMessage({"title":"UYARI","message":"Girilen Bilgilere Ait Tedarikçi Bulunamadı","buttons":"TAMAM"},@Secenek) Goto Goto(VergiNoGirsi) EndIf() PopupView(@CariListesi.rows,{"mode":"list","title":"Tedarikçi Bilgileri", Wiki Markup "fields":\["Code|Kodu|15|L","Title|Açıklaması|35|L"],"style":@Style.app.popup},@Sira) Arp.Get(@[email protected]) EndIf() ShowMessage 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ıWarehouseataması 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ıraçılır WorkOrder.Get("DocumentNumber='@BelgeNo' AND SlipType=1 AND CustomSlipTypeId=10 AND StateId<>14 StateId<>14 AND ArpId=@@Arp.Id") If(@@WorkOrder.Id="") WorkOrder.New({"SlipType":"1","DocumentNumber":"@BelgeNo"},1) Slip.New({"SlipType":"1","DocumentNumber":"@BelgeNo"},1) Else Else() Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() GoForm(KabulSatir) * Wiki Markup
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 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şirDeğişir CustomState.Get(19) Slip.Save() ///Emir Fişi Statusu Tamamlandı olarak değişirdeğ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) * Wiki Markup
EndForm()* \\ \\ *
BeginForm(KabulSatir)*
KeyFunction("ESC",GoForm(EscMalKabul)) /// Satır İşlemleri ResetVariables( \İşlemleri ResetVariables({"name":\["@@Address"]}) Wiki Markup
AdresSecimi: /// Giriş Türünde Adres Seçimi, tek adres ise otomatik seçek birden çok adres ise liste çıkartırçıkartır Address.List("AddressType=9","",@AdresListesi) If(@AdresListesi.rowCount<1<1) ShowMessage({"title":"UYARI","message":"Giriş Türünde Tanımlı Adres Bulunamadı","buttons":"TAMAM"},@Secenek) Goto(AdresSecimi) EndIf() \\ If 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(@AdresListesi@AdresListesi[email protected]) EndIf() \\ Wiki Markup
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<1) ShowMessage({"title":"UYARI","message":"Girilen Bilgilere Ait Malzeme Bulunamadı","buttons":"TAMAM"},@Secenek) Goto Goto(MalzemeSecimi) EndIf() PopupView(@MalzemeListesi.rows,{"mode":"list","title":"Malzemelr", Wiki Markup "fields":\["Code|Kodu|15|L","Name|Açıklaması|35|L"],"style":@Style.app.popup},@Sira) Item.Get(@[email protected]) /// Secilen Malzemeye Ait Birim Sistesini GetirirGetirir ItemUnit.List("ItemId=@@Item.Id","",@BirimListe) PopupView(@BirimListe.rows,{"mode":"list","title":"Malzemelr", Wiki Markup "fields":\["Code|Kodu|15|L"\],"style":@Style.app.popup},@Sira) ItemUnit.Get(@[email protected]) EndIf() EndIf() \\ ///Takip Turu KontrolKontrol 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"}) \\ Wiki Markup
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 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 If(@Response.Status="-1") ShowMessage({"title":"Fiş Kaydetme Hatası", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) EndIf 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 If(@Response.Status="-1") ShowMessage({"title":"Fiş Kaydetme Hatası", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) EndIf EndIf() Goto(SeriBilgisiAl) \\ GoForm GoForm(AnaMenu) * Wiki Markup
EndForm() Anchor
\\ *BackOffice İade Kabul İşlemi*
Normal mal kabul işleminden tek farkı sadece fiş türü seçimidir. !worddav5792ce9491a197ccca1bc8e88477634a.png|height=137,width=275! Anchor
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çimiSeçimi GoForm(KabulBaslik) *
EndForm() Anchor
*_BackOffice Siparişli Mal Kabul İşlemi_*
Logo WMS Platformda siparişli kabul süreci öncelikle ERP'de ERP’de satınalma siparişi açılması ile başlar. ERP'de 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. Anchor
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"]}) Wiki Markup
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) Wiki Markup
Arp.Get("TaxNumber='@CariBilgi' OR Code='@CariBilgi'")
If(@@Arp.Id="")
Arp.List("Title like '%'+@CariBilgi+'%'","",@CariListesi)
If(@CariListesi.rowCount<1<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) Wiki Markup
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 RemainingTotal>0 AND ArpId=@@Arp.Id","SlipDate",@SatinalmaSiparisler)
If(@SatinalmaSiparisler.rowCount<1<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|3030|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}) Wiki Markup
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İşlemleri
ResetVariables( \{"name":\["@@Address"]}) Wiki Markup
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<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) Wiki Markup
Address.Get(@AdresListesi@AdresListesi[email protected])
EndIf() \\
MalzemeSecimi:
///Sipariste Satir Bekleyeni Var Mı Kontrolü Yoksa fişi entegre eder
OrderSlipLine.List("RemainingTotal>0 RemainingTotal>0 And SlipId=@@OrderSlip.Id ","",@SatinalmaSiparisSatirlari)
If(@SatinalmaSiparisSatirlari.rowCount<1<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"]}) Wiki Markup
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<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) Wiki Markup
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) Wiki Markup
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 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>@@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>@@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 RemainingTotal>0 And SlipId=@@OrderSlip.Id ","",@SatinalmaSiparisSatirlari)
If(@SatinalmaSiparisSatirlari.rowCount<1<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) Wiki Markup
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()*]]>