BeginForm(AnaMenu) ClearScreen() MenuItem(AnaGiris,"Giris Islemleri","",0) MenuItem(IadeIslemleri,"Iade Islemleri","",0) MenuItem(PaletIslemleri,"Palet Islemleri","",0) MenuItem(DigerIslemler,"DigerIslemler","",0) MenuItem(SayimIslemler,"Sayım Islemleri","",0) //MenuItem(Cikis,"Cikis","",0) MenuRun(1,2,"Ana Menu") EndForm() BeginForm(AnaGiris) ClearScreen() MenuItem(SiparisSecim,"Siparis Kabul","",0) MenuItem(CariSecimMalKabul,"Cari Secim MalKabul","",0) MenuItem(RafaYerlestir,"Mal Kabul Yerlesimi","",0) MenuItem(UrunYerDegistirme,"Urun Yer Degisimi","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuRun(1,2,"Ana Menu") EndForm() BeginForm(IadeIslemleri) ClearScreen() MenuItem(IadeKabul,"Iade Kabul","",0) MenuItem(IadeCikis,"Iade Cikis","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuRun(1,2,"Ana Menu") EndForm() BeginForm(PaletIslemleri) ClearScreen() MenuItem(PaletOlustur,"Palet Olustur","",0) MenuItem(Paletleme2,"Urun Paletleme","",0) MenuItem(PaletYerlestirme,"Palet Yerlestirme","",0) MenuItem(PaletYerDegistirme,"Palet Yer Degistirme","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuRun(1,2,"Ana Menu") EndForm() BeginForm(DigerIslemler) ClearScreen() MenuItem(BarkodSorgu,"Barkod Sorgu","",0) MenuItem(Sarf,"Sarf","",0) MenuItem(AmbarTransfer,"AmbarTransfer","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuRun(1,2,"Ana Menu") EndForm() BeginForm(SayimIslemler) ClearScreen() MenuItem(SayimIslemler1,"İlk Sayım","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuRun(1,2,"Ana Menu") EndForm() BeginForm(SiparisSecim) KeyFunction("ESC",Goto(Cikis)) ResetVariables({"name":["@@OrderSlip","@@Slip","@belge_no","@belge_tarihi"]}) Set(@SlipType,1) Text(1,1,"Siparis Secim") OrderSlip.List("SlipType=1 and StateId=1 and RemainingTotal>0","",@SiparisListe) // Sipariş Listesi değişkene alınıyor. If(@SiparisListe.rowCount=0) ShowMessage({"title":"HATA","message":" Kabul Edilecek Urun Bulunmamaktadır !","buttons":"TAMAM"},@secim) GoForm(AnaGiris) EndIf() PopupView(@SiparisListe.rows,{"mode":"list","title":"Siparis Listesi","fields":["SlipNumber|FIS NO|17|L","ArpTitle|CARI|20|L"]},@secim) //Sipariş listeleniyor If(@secim=0) Goto(Cikis) EndIf() OrderSlip.Get(@SiparisListe.rows.@secim.Id) //Seçilen siparişe set ediliyor. ClearScreen() Text(1,1,"..::BELGE BILGI GIRIS::..") Text(1,2,"---------------------------") Text(1,3,"Siparis No: @@OrderSlip.SlipNumber") //Ekrena sipariş no ve cari unvanı yazılıyor Text(1,4,"Cari Unvani: @@OrderSlip.ArpTitle") Text(1,5,"---------------------------") BelgeGiris: WorkOrder.Get("StateId!=14 and OrderSlipId=@@OrderSlip.Id") If(@@WorkOrder.Id="") //AÇık bir fiş var mı diye kontrol ediyoruz. Input(1,6,"Belge Numarasi: ",{"type":"text", "min":"1", "max":"16"},@belge_no) Text(1,7,"---------------------------") Input(1,8,"Belge Tarihi: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@belge_tarihi) Set(@BelgeTarihi,"@belge_tarihi.1"+"."+"@belge_tarihi.2"+"."+"@belge_tarihi.3") WorkOrder.New({"SlipType":"1","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},0) Slip.New({"SlipType":"1","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},0) Else() Slip.Get("WorkOrderId=@@WorkOrder.Id") If(@@Slip.Id="") Slip.New({"SlipType":"1","DocumentNumber":"@@WorkOrder.DocumentNumber","DocumentDate":"@@WorkOrder.DocumentDate"},0) EndIf() EndIf() BarkodGir: KeyFunction("ESC",GoForm(EscForm)) ClearScreen() OrderSlipLine.List("SlipId=@@OrderSlip.Id AND RemainingTotal>0","",@satirliste) // Tüm satırlar tamamlanmış If(@satirliste.rowCount = 0) Goto(IslemBitir) EndIf() //TableView(@satirliste.rows,1,10,{"rows":"13","columns":["ItemCode|UrunKodu|12|L","ItemName|UrunAdi|10|L","RemainingTotal|Miktar|5|L"]}) TELNET KULLANIMI TableView(@satirliste.rows,1,8,{"rows":"100","columns":["ItemCode|UrunKodu|12|L","ItemName|UrunAdi|10|L","RemainingTotal|Miktar|5|L"]}) //Sipariş içindeki 13 malzeme ekranda gösteriliyor 13 den fazla olursa listede gözükmeyecek. Text(1,1,"..::Siparis Kabul::..") Text(1,2,"-------------------------") Text(1,3,"Belge: @@WorkOrder.DocumentNumber / @@WorkOrder.DocumentDate") Text(1,4,"-------------------------") Text(1,7,"SIPARISTEKI URUNLER") Text(1,24,"Islemi Bitir[.] Ana Menu [Esc]") Text(1,6,"-------------------------") Input(1,5,"Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) ///Barkod okutulması isteniyor If(@barkod=".") //Brkoda nokta yazılırsa fiş kapatılıyor. set(@bitir,1) Goto(IslemBitir) EndIf() Set(@satir,0) For(@i,1,@satirliste.rowCount,1) If(@barkod=@satirliste.rows.@i.ItemCode) Set(@satir,@i) Set(@satirmiktar,@satirliste.rows.@i.RemainingTotal) OrderSlipLine.Get(@satirliste.rows.@i.Id) Goto(MiktarGir) EndIf() Next() If(@satir=0) ShowMessage({"title":"HATA","message":" Sipariste @barkod Kodlu Urun Bulunamadi !","buttons":"TAMAM"},@secim) Goto(BarkodGir) EndIf() MiktarGir: ClearScreen() Text(1,1,"..::URUN BILGILERI::..") Text(1,2,"---------------------------") Text(1,3,"Urun Kodu: @barkod") Text(1,4,"Urun Adi: @satirliste.rows.@satir.ItemName") Text(1,5,"Bekleyen Miktar: @satirmiktar") Text(1,6,"---------------------------") Input(1,7,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"99999"},@miktar) If(@miktar>@satirmiktar) ShowMessage({"title":"HATA","message":"Bekleyen Miktardan Fazla Miktar Giremezsiniz.","buttons":"TAMAM"},@secim) Goto(MiktarGir) EndIf() If(@@Item.TrackingType=1) Text(1,8,"---------------------------") Input(1,9,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,10,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() TakipliKaydet: CallForm(TakipliKaydetForm) If(@KaydetSonuc="-2",GoTo(BelgeGiris),Goto(BarkodGir)) TakipsizKaydet: CallForm(TakipsizKaydetForm) If(@KaydetSonuc="-2",GoTo(BelgeGiris),Goto(BarkodGir)) IslemBitir: If(@satirliste.rowCount>0) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) EndIf() If(@bitir=1 OR @satirliste.rowCount=0) CustomState.Get("SystemEvent = 6 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) Goto(BarkodGir) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(SiparisSecim) EndIf() Else() Goto(BarkodGir) EndIf() EndForm() BeginForm(TakipliKaydetForm) Set(@KaydetSonuc, 0) If(@@Address.Id="") Address.Get("Address='G01'") EndIf() If(@@WorkOrder.Id="0") WorkOrder.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Emir Basligi") Goto(Hata) EndIf() EndIf() If(@@Slip.Id="0") Slip.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Fis Basligi") Goto(Hata) EndIf() EndIf() WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Set(@KaydetSonuc, -1) Cik: ReturnForm() EndForm() BeginForm(TakipsizKaydetForm) Set(@KaydetSonuc, 0) If(@@Address.Id="") Address.Get("Address='G01'") EndIf() If(@@WorkOrder.Id="0") WorkOrder.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Emir Basligi") Goto(Hata) EndIf() EndIf() If(@@Slip.Id="0") Slip.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Fis Basligi") Goto(Hata) EndIf() EndIf() WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},1) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},1) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() Goto(Cik) Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Cik: ReturnForm() EndForm() BeginForm(EscForm) ClearScreen() MenuItem(AnaGiris,"Ana Menu","",0) MenuItem(SiparisSecim,"GeriDon","",0) MenuRun(1,2,"Ana Menu") EndForm() BeginForm(RafaYerlestir) Text(0,0,"Rafa Yerlestir") Address.Get("Address='G01'") GoForm(YerDegistirmeOrtak) EndForm() BeginForm(YerDegistirmeOrtak) KeyFunction("ESC",GoForm(IslemBitirYer)) ResetVariables({"name":["@@WorkOrder","@@Slip","@@CustomSlipType"]}) Set(@SlipType,3) UrunOkut: ClearScreen() Text(1,1,"..::RAFA YERLESTIRME::..") Text(1,2,"---------------------------") Input(1,3,"Urun Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) Item.Get("Code='@barkod'") If(@@Item.Id="") ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait bir Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Item.TrackingType=1) Input(1,12,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,13,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Text(1,11,"---------------------------") Sql("select ActualStock from ItemTrackingTotalsView where ItemId=@@Item.Id and TrackingNumber=@takipno and WarehouseId=2 and AddressId=3 and ActualStock>0",@adreskontrol) If(@adreskontrol.rowCount=0) ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait Yerleştirelecek Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() Sql("select top 3 a.Address from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and Iv.TrackingNumber=@takipno and a.WarehouseId=2 and a.Address<>'G01'order by a.Address",@adreslistesi) If(@adreslistesi.rowCount=0) Sql("select top 1 a.Address from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@adreslistesi) //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et EndIf() Goto(AdresOkut) EndIf() Sql("select ActualStock from ItemTotalsView where ItemId=@@Item.Id and WarehouseId=2 and AddressId=3 and ActualStock>0",@adreskontrol) If(@adreskontrol.rowCount=0) ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait Yerleştirelecek Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() Sql("select top 3 a.Address from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and a.WarehouseId=2 and a.Address<>'G01'order by a.Address",@adreslistesi) If(@adreslistesi.rowCount=0) Sql("select top 1 a.Address from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@adreslistesi) //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et EndIf() AdresOkut: Text(1,4,"Urun Kodu:@@Item.Code",{"Start":"1","Length":"25"}) Text(1,5,"Urun Adi:@@Item.Name",{"Start":"1","Length":"25"}) TableView(@adreslistesi.rows,1,6,{"rows":"3","columns":["Address|Adres|10|L"]}) Text(1,8,"---------------------------") Input(1,9,"Hedef Adres Okutunuz",{"type":"text", "min":"1", "max":"20"},@adres) Address.Get("Address='@adres'",@@Address2) If(@@Address2.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() Set(@@Warehouse2, @@Warehouse) Input(1,10,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"9999"},@miktar) ///CustomSlipType.Get("SlipType=3") If(@miktar>@adreskontrol.rows.1.ActualStock) ShowMessage({"title":"HATA","message":"Rafa Yerlestirelecek Miktardan Fazla Girdiniz..","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Item.TrackingType=1) Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() //TakipliKaydet: // CallForm(TakipliKaydetForm) // If(@KaydetSonuc="-2",GoTo(UrunOkut),Goto(UrunOkut)) // //TakipsizKaydet: // CallForm(TakipsizKaydetForm) // If(@KaydetSonuc="-2",GoTo(UrunOkut),Goto(UrunOkut)) // TakipsizKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) Goto(UrunOkut) TakipliKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() //WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) //SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Goto(UrunOkut) EndForm() BeginForm(IslemBitirYer) ClearScreen() MenuItem(YerDegistirmeOrtak,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(IslembitiryerSon,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirYer") EndForm() BeginForm(IslembitiryerSon) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(IslemBitirYer) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() Goto(IslemBitirYer) EndIf() EndForm() BeginForm(UrunYerDegistirme) KeyFunction("ESC",GoForm(IslemBitirYer)) ResetVariables({"name":["@@WorkOrder","@@Slip","@@CustomSlipType"]}) Set(@SlipType,3) UrunOkut: ClearScreen() Text(1,1,"..::Urun Yer Degistirme::..") Text(1,2,"---------------------------") Address.Get("Address=''") Input(1,3,"Urun Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) Item.Get("Code='@barkod'") If(@@Item.Id="") ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait bir Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Address.Id="") Goto(UrunYeriDegistirme) EndIf() UrunYeriDegistirme: If(@@Item.TrackingType=1) Input(1,12,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,13,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Text(1,11,"---------------------------") Sql("select top 3 a.Address,Iv.ActualStock from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and Iv.TrackingNumber=@takipno and a.WarehouseId=2 and a.Address<>'G01'order by a.Address",@adreslistesi) If(@adreslistesi.rowCount=0) Sql("select top 1 a.Address from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@adreslistesi) //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et EndIf() Goto(AdresOkut) EndIf() Sql("select top 3 a.Address,Iv.ActualStock from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and a.WarehouseId=2 and a.Address<>'G01'order by a.Address",@Adreslistesi) If(@Adreslistesi.rowCount=0) Sql("select top 1 a.Address from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@Adreslistesi) //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et EndIf() AdresOkut: Text(1,4,"Urun:@@Item.Name",{"Start":"1","Length":"25"}) TableView(@adreslistesi.rows,1,5,{"rows":"3","columns":["Address|Adres|10|L"]}) If(@@Address.Id="") Input(1,7,"Adres Okutunuz: ",{"type":"text", "min":"1", "max":"20"},@adres) Address.Get("Address='@adres'") If(@@Address.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() EndIf() Input(1,8,"Hedef Adres Okutunuz: ",{"type":"text", "min":"1", "max":"20"},@adres) Text(1,9,"---------------------------") Address.Get("Address='@adres'",@@Address2) If(@@Address2.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() Set(@@Warehouse2, @@Warehouse) Input(1,10,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"9999"},@miktar) ///CustomSlipType.Get("SlipType=3") If(@miktar>@adreslistesi.rows.1.ActualStock) ShowMessage({"title":"HATA","message":"Rafa Yerlestirelecek Miktardan Fazla Girdiniz..","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Item.TrackingType=1) Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() //TakipliKaydet: // CallForm(TakipliKaydetForm) // If(@KaydetSonuc="-2",GoTo(UrunOkut),Goto(UrunOkut)) // //TakipsizKaydet: // CallForm(TakipsizKaydetForm) // If(@KaydetSonuc="-2",GoTo(UrunOkut),Goto(UrunOkut)) // TakipsizKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) Goto(UrunOkut) TakipliKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() //WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) //SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Goto(UrunOkut) EndForm() BeginForm(IslemBitirYerDegisme) ClearScreen() MenuItem(UrunYerDegistirme,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(IslembitiryerdegismeSon,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirYer") EndForm() BeginForm(IslembitiryerdegismeSon) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(IslemBitirYer) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() Goto(IslemBitirYer) EndIf() EndForm() BeginForm(CariSecimMalKabul) KeyFunction("ESC",Goto(CariIslemBitir)) CallForm(CariSecim) If(@@Arp.Id="") ShowMessage({"title":"HATA","message":"Cari Secimi Yapilmamis","buttons":"1:Tamam"},@secim) GoForm(AnaGiris) EndIf() //OrderSlipLine.List("ArpId=@@Arp.Id AND RemainingTotal>0","LineDate",@satirliste) ToDO OrderSlipLine.List("ArpId=@@Arp.Id AND RemainingTotal>0","",@satirliste) //Remaining Totaldan küçük olacak. If(@satirliste.rowCount = 0) ShowMessage({"title":"HATA","message":"@@Arp.Title Cariye Ait Acik Siparis Bulanamadi","buttons":"1:Tamam"},@secim) EndIf() Set(@siparistoplam,0) For(@i,1,@satirliste.rowCount,1) Set(@siparistoplam,@siparistoplam+@satirliste.rows.@i.RemainingTotal) Next() Set(@islemmiktar,0) BelgeBilgileri: CustomState.Get("SystemEvent = 6 and RecordType = 161",@entegreedildi) CustomSlipType.Get("SlipType=1 AND ErpRecordType=2 AND ErpRecordTrCode='1'") Slip.Get("SlipType=1 and StateId!=@entegreedildi.Id and ArpId=@@Arp.Id",@bekleyenslip) //Bu cariye ait açık fiş getiriyoruz. If(@bekleyenslip.Id="") //AÇık bir fiş var mı diye kontrol ediyoruz. Input(1,3,"Belge Numarasi: ",{"type":"text", "min":"1", "max":"16"},@belge_no) Input(1,4,"Belge Tarihi: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@belge_tarihi) Set(@BelgeTarihi,"@belge_tarihi.1"+"."+"@belge_tarihi.2"+"."+"@belge_tarihi.3") Else() Set(@BelgeTarihi,@bekleyenslip.DocumentDate) Set(@belge_no,@bekleyenslip.DocumentNumber) EndIf() If(@@Address.Id="") Address.Get("Address='G01'") EndIf() BarkodGiris: ClearScreen() Input(1,4,"Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) ///Barkod okutulması isteniyor Item.Get("Code='@barkod'") If(@@Item.Id="") ShowMessage({"title":"HATA","message":" Mazelem Siparislerinde @barkod Kodlu Urun Bulunamadi !","buttons":"TAMAM"},@secim) Goto(BarkodGiris) EndIf() If(@barkod=".") //Brkoda nokta yazılırsa fiş kapatılıyor. set(@bitir,1) Goto(IslemBitir) EndIf() //OrderSlipLine.List("ArpId=@@Arp.Id AND RemainingTotal>0 AND I.Code=@barkod","LineDate",@satirliste) ToDo OrderSlipLine.List("ArpId=@@Arp.Id AND RemainingTotal>0 AND I.Code=@barkod","",@satirliste) Set(@barkodmiktar,0) For(@i,1,@satirliste.rowCount,1) Set(@barkodmiktar,@barkodmiktar+@satirliste.rows.@i.RemainingTotal) Next() If(@barkodmiktar=0) ShowMessage({"title":"HATA","message":" Cari Hesabın Siparislerinde @barkod Kodlu Urun Bulunamadi !","buttons":"TAMAM"},@secim) Goto(BarkodGiris) EndIf() Text(1,4,"Urun: @barkod @satirliste.rows.@satir.ItemName") Text(1,5,"Bekleyen Miktar: @barkodmiktar") Input(1,6,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"999"},@miktar) ShowMessage({"title":"HATA","message":"@miktar-@barkodmiktar","buttons":"EVET|HAYIR"},@secim) If(@miktar>@barkodmiktar) ShowMessage({"title":"HATA","message":"Bekleyen Miktardan Fazla Miktar Girdiniz. Devam etmek istiyor musunuz ?","buttons":"EVET|HAYIR"},@secim) If(@secim=2) Goto(MiktarGir) //07.11.2019 Bekleyen miktar kontrolü sonra eklenecek. EndIf() EndIf() Item.Get("TrackingType='@barkod'") If(@@Item.TrackingType=1) Input(1,7,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,8,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() TakipsizKaydet: Set(@kalanmiktar,@miktar) Set(@barkodislemmiktar,0) For(@i,1,@satirliste.rowCount,1) OrderSlip.Get(@satirliste.rows.@i.SlipId) OrderSlipLine.Get(@satirliste.rows.@i.Id) Slip.Get("SlipType=1 and StateId!=@entegreedildi.Id and OrderSlipId=@@OrderSlip.Id") //daha önceden açık fiş var mı diye kontrol edildi. If(@@Slip.Id="") WorkOrder.New({"SlipType":"1","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},1) Slip.New({"SlipType":"1","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},1) else() WorkOrder.Get(@@Slip.WorkOrderId) EndIf() ShowMessage({"title":"HATA","message":"@kalanmiktar-@@OrderSlipLine.RemainingTotal-@i-@satirliste.rowCount","buttons":"EVET|HAYIR"},@secim) If(@kalanmiktar<=@@OrderSlipLine.RemainingTotal OR @i=@satirliste.rowCount) //kalanmiktar siparişten küçük veya son satırdayım Set(@fismiktar,@kalanmiktar) Else() Set(@fismiktar,@@OrderSlipLine.RemainingTotal) EndIf() WorkOrderLine.New({"SlipType":"1", "Quantity" : "@fismiktar"},1) SlipLine.New({"SlipType":"1", "Quantity" : "@fismiktar"},1) If(@Response.Status="-1") ShowMessage({"title":"HATA","message":"@Response.Message ","buttons":"TAMAM"},@secim) Goto(BarkodGiris) EndIf() set(@islemmiktar,@islemmiktar+@fismiktar) set(@kalanmiktar,@kalanmiktar-@fismiktar) set(@barkodislemmiktar,@barkodislemmiktar+@fismiktar) If(@islemmiktar>=@siparistoplam) Goto(CariIslemBitir) EndIf() If(@barkodislemmiktar>=@miktar OR @barkodislemmiktar>=@barkodmiktar) Goto(BarkodGiris) EndIf() Next() Goto(BarkodGiris) TakipliKaydet: Set(@kalanmiktar,@miktar) Set(@barkodislemmiktar,0) For(@i,1,@satirliste.rowCount,1) OrderSlip.Get(@satirliste.rows.@i.SlipId) OrderSlipLine.Get(@satirliste.rows.@i.Id) Slip.Get("SlipType=1 and StateId!=@entegreedildi.Id and OrderSlipId=@@OrderSlip.Id") //daha önceden açık fiş var mı diye kontrol edildi. If(@@Slip.Id="") WorkOrder.New({"SlipType":"1","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},1) Slip.New({"SlipType":"1","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},1) else() WorkOrder.Get(@@Slip.WorkOrderId) EndIf() ShowMessage({"title":"HATA","message":"@kalanmiktar-@@OrderSlipLine.RemainingTotal-@i-@satirliste.rowCount","buttons":"EVET|HAYIR"},@secim) If(@kalanmiktar<=@@OrderSlipLine.RemainingTotal OR @i=@satirliste.rowCount) //kalanmiktar siparişten küçük veya son satırdayım Set(@fismiktar,@kalanmiktar) Else() Set(@fismiktar,@@OrderSlipLine.RemainingTotal) EndIf() WorkOrderLine.New({"SlipType":"1", "Quantity" : "@fismiktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@fismiktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) SlipLine.New({"SlipType":"1", "Quantity" : "@fismiktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@fismiktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) //If(@Response.Status="-1") // ShowMessage({"title":"HATA","message":"@Response.Message ","buttons":"TAMAM"},@secim) // Goto(BarkodGiris) //EndIf() set(@islemmiktar,@islemmiktar+@fismiktar) set(@kalanmiktar,@kalanmiktar-@fismiktar) set(@barkodislemmiktar,@barkodislemmiktar+@fismiktar) If(@islemmiktar>=@siparistoplam) Goto(CariIslemBitir) EndIf() If(@barkodislemmiktar>=@miktar OR @barkodislemmiktar>=@barkodmiktar) Goto(BarkodGiris) EndIf() Next() Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Set(@KaydetSonuc, -1) Goto(BarkodGiris) CariIslemBitir: If(@bitir=1) Slip.List("DocumentNumber=@belge_no and ArpId=@@Arp.Id and SlipType=1 and StateId!=@entegreedildi.Id","",@fislist) If(@fislist.rowCount=0) ShowMessage({"title":"HATA","message":"Entegre Edilecek Fis Bulunamadi","buttons":"TAMAM"},@secim) Goto(BarkodGiris) EndIf() CustomState.Get("SystemEvent = 6 and RecordType = 161") For(@i,1,@fislist.rowCount,1) Slip.Get(@fislist.rows.@i.Id) Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) Goto(BarkodGir) EndIf() Next() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaGiris) Else() Goto(BarkodGir) EndIf() EndForm() BeginForm(CariSecim) //Yapım Aşamasında //KeyFunction("ESC",GoForm(AnaMenu)) CariBilgi: Input(0,0,"Tedarikçi KODU/ADI: ",{"type":"text", "min":"1", "max":"16"},@cari_bilgi) Arp.Get("Title='@cari_bilgi' OR Code='@cari_bilgi'") If(@@Arp.Id!="") ShowMessage({"title":"Tedarikçi Onay","message":"@@Arp.Code\n@@Arp.Title","buttons":"1:Tamam|2:İptal"},@secim) CaseGoto(@secim, {"1":"FormReturn","2":"CariBilgi"}) EndIf() Arp.List("Title LIKE '%'+@cari_bilgi+'%'","",@CariAramaListe) If(@CariAramaListe.rowCount = 0) Beep(2) ShowMessage({"title":"Hata!","message":"Verilen bilgilerle kayıt bulunamadı!","buttons":"Tamam"},@secim_hata) Goto(CariBilgi) Else() Liste: PopupView(@CariAramaListe.rows,{"mode":"list","title":"Tedarikçi Listesi","fields":["Code|Kodu|15|L","Title|Aciklama|50|L"]},@secim) If(@secim>@CariAramaListe.rowCount) ShowMessage({"title":"Hata","message":"Hatalı Secim","buttons":"Tekrar Dene"},@secim) Goto(Liste) EndIf() Arp.Get(@CariAramaListe.rows.@secim.Id) ShowMessage({"title":"Tedarikçi Onay","message":"@@Arp.Code\n@@Arp.Title","buttons":"1:Tamam|2:İptal"},@secim) CaseGoto(@secim, {"1":"FormReturn","2":"CariBilgi"}) EndIf() FormReturn: ReturnForm() EndForm() BeginForm(IadeKabul) KeyFunction("ESC",GoForm(ESCIslembitirIadeKabul)) ClearScreen() Text(0,0,"Iade Giris") ResetVariables({"name":["@@OrderSlip","@@Slip","@belge_no","@belge_tarihi"]}) Address.Get("Address='G01'") CustomSlipType.Get("SlipType=1 AND ErpRecordType=2 AND ErpRecordTrCode='3'") Set(@SlipType,1) CallForm(CariSecim) If(@@Arp.Id="") ShowMessage({"title":"HATA","message":"Cari Secimi Yapilmamis","buttons":"1:Tamam"},@secim) EndIf() ClearScreen() //Text(0,0,"Fis Turu:@@Slip.Name ") Text(1,2,"Cari Unvani: @@Arp.Title") //AÇık bir fiş var mı diye kontrol ediyoruz. Input(1,3,"Belge Numarasi: ",{"type":"text", "min":"1", "max":"16"},@belge_no) Input(1,4,"Belge Tarihi: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@belge_tarihi) Set(@BelgeTarihi,"@belge_tarihi.1"+"."+"@belge_tarihi.2"+"."+"@belge_tarihi.3") WorkOrder.Get("StateId!=14 and ArpId=@@Arp.Id and CustomSlipTypeId='14' and DocumentNumber='@belge_no'") If(@@WorkOrder.Id="") WorkOrder.New({"SlipType":"1","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},0) Slip.New({"SlipType":"1","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},0) Else() Slip.Get("WorkOrderId=@@WorkOrder.Id") If(@@Slip.Id="") Slip.New({"SlipType":"1","DocumentNumber":"@@WorkOrder.DocumentNumber","DocumentDate":"@@WorkOrder.DocumentDate"},0) EndIf() EndIf() BarkodGir: ClearScreen() Input(1,4,"Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) UnitBarcode.Get("Barcode='@barkod'") If(@@Item.Id="") Item.Get("Code='@barkod'") If(@@Item.Id="") Beep(2) ShowMessage({"title":"UYARI","message":"@barkod Okutulan barkod'a ait malzeme bulunamadi !","buttons":"Devam"},@secim) Goto(BarkodGir) EndIf() EndIf() MiktarGir: Text(1,4,"Urun: @barkod @@Item.Name") Input(1,6,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"99999"},@miktar) If(@miktar<"0") ShowMessage({"title":"HATA","message":"Hatalı Miktar.","buttons":"TAMAM"},@secim) Goto(MiktarGir) EndIf() If(@@Item.TrackingType=1) Text(1,8,"---------------------------") Input(1,9,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,10,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() TakipsizKaydet: CallForm(TakipsizKaydetIade) If(@KaydetSonuc="-2",GoTo(BarkodGir),Goto(BarkodGir)) TakipliKaydet: CallForm(TakipliKaydetIade) If(@KaydetSonuc="-2",GoTo(BarkodGir),Goto(BarkodGir)) EndForm() BeginForm(TakipsizKaydetIade) Set(@KaydetSonuc, 0) If(@@WorkOrder.Id="0") WorkOrder.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Emir Basligi") Goto(Hata) EndIf() EndIf() If(@@Slip.Id="0") Slip.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Fis Basligi") Goto(Hata) EndIf() EndIf() Set(@Description,"") If(@@OrderSlip.SlipNumber!="") Set(@Description,@@OrderSlip.SlipNumber) EndIf() WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar" , "Description":"@Description"},1) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar" , "Description":"@Description"},1) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() Goto(Cik) Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Cik: ReturnForm() EndForm() BeginForm(TakipliKaydetIade) Set(@KaydetSonuc, 0) If(@@WorkOrder.Id="0") WorkOrder.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Emir Basligi") Goto(Hata) EndIf() EndIf() If(@@Slip.Id="0") Slip.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Fis Basligi") Goto(Hata) EndIf() EndIf() Set(@Description,"") If(@@OrderSlip.SlipNumber!="") Set(@Description,@@OrderSlip.SlipNumber) EndIf() WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Set(@KaydetSonuc, -1) Cik: ReturnForm() EndForm() BeginForm(ESCIslembitirIadeKabul) ClearScreen() MenuItem(IadeKabul,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(IslembitirIadeKabul,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirYer") EndForm() BeginForm(IslembitirIadeKabul) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(IslemBitirYer) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() Goto(IslemBitirYer) EndIf() EndForm() BeginForm(IadeCikis) KeyFunction("ESC",GoForm(ESCIslembitirIadeKabul)) ClearScreen() Text(0,0,"Iade Cikis") ResetVariables({"name":["@@OrderSlip","@@Slip","@belge_no","@belge_tarihi"]}) //Address.Get("Address='G01'") CustomSlipType.Get("SlipType=2 AND ErpRecordType=2 AND ErpRecordTrCode='6'") Set(@SlipType,2) CallForm(CariSecim) If(@@Arp.Id="") ShowMessage({"title":"HATA","message":"Cari Secimi Yapilmamis","buttons":"1:Tamam"},@secim) EndIf() ClearScreen() //Text(0,0,"Fis Turu:@@Slip.Name ") Text(1,2,"Cari Unvani: @@Arp.Title") //AÇık bir fiş var mı diye kontrol ediyoruz. Input(1,3,"Belge Numarasi: ",{"type":"text", "min":"1", "max":"16"},@belge_no) Input(1,4,"Belge Tarihi: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@belge_tarihi) Set(@BelgeTarihi,"@belge_tarihi.1"+"."+"@belge_tarihi.2"+"."+"@belge_tarihi.3") WorkOrder.Get("StateId!=14 and ArpId=@@Arp.Id and CustomSlipTypeId='14' and DocumentNumber='@belge_no'") If(@@WorkOrder.Id="") WorkOrder.New({"SlipType":"2","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},0) Slip.New({"SlipType":"2","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},0) Else() Slip.Get("WorkOrderId=@@WorkOrder.Id") If(@@Slip.Id="") Slip.New({"SlipType":"2","DocumentNumber":"@@WorkOrder.DocumentNumber","DocumentDate":"@@WorkOrder.DocumentDate"},0) EndIf() EndIf() BarkodGir: ClearScreen() Input(1,4,"Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) UnitBarcode.Get("Barcode='@barkod'") If(@@Item.Id="") Item.Get("Code='@barkod'") If(@@Item.Id="") Beep(2) ShowMessage({"title":"UYARI","message":"@barkod Okutulan barkod'a ait malzeme bulunamadi !","buttons":"Devam"},@secim) Goto(BarkodGir) EndIf() EndIf() MiktarGir: Text(1,4,"Urun: @barkod @@Item.Name") Input(1,6,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"99999"},@miktar) AdresSor: Input(1,7,"Adres Okutunuz",{"type":"text", "min":"1", "max":"20"},@adresli) Address.Get("Address='@adresli'") Address.Get("Address='IADE'",@@Address2) If(@miktar<"0") ShowMessage({"title":"HATA","message":"Hatalı Miktar.","buttons":"TAMAM"},@secim) Goto(MiktarGir) EndIf() If(@@Item.TrackingType=1) Text(1,8,"---------------------------") Input(1,9,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,10,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() TakipsizKaydet: CallForm(TakipsizKaydetIadeCikis) If(@KaydetSonuc="-2",GoTo(BarkodGir),Goto(BarkodGir)) TakipliKaydet: CallForm(TakipliKaydetIadeCikis) If(@KaydetSonuc="-2",GoTo(BarkodGir),Goto(BarkodGir)) EndForm() BeginForm(TakipsizKaydetIadeCikis) Set(@KaydetSonuc, 0) If(@@WorkOrder.Id="0") WorkOrder.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Emir Basligi") Goto(Hata) EndIf() EndIf() If(@@Slip.Id="0") Slip.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Fis Basligi") Goto(Hata) EndIf() EndIf() Set(@Description,"") If(@@OrderSlip.SlipNumber!="") Set(@Description,@@OrderSlip.SlipNumber) EndIf() WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar" , "Description":"@Description"},1) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar" , "Description":"@Description"},1) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() Goto(Cik) Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Cik: ReturnForm() EndForm() BeginForm(TakipliKaydetIadeCikis) Set(@KaydetSonuc, 0) If(@@WorkOrder.Id="0") WorkOrder.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Emir Basligi") Goto(Hata) EndIf() EndIf() If(@@Slip.Id="0") Slip.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Fis Basligi") Goto(Hata) EndIf() EndIf() Set(@Description,"") If(@@OrderSlip.SlipNumber!="") Set(@Description,@@OrderSlip.SlipNumber) EndIf() WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Set(@KaydetSonuc, -1) Cik: ReturnForm() EndForm() BeginForm(ESCIslembitirIadeCikis) ClearScreen() MenuItem(IadeCikis,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(IslembitirIadeCikisSon,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirYer") EndForm() BeginForm(IslembitirIadeCikisSon) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(ESCIslembitirIadeCikis) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() Goto(IslembitirIadeCikis) EndIf() EndForm() BeginForm(PaletOlustur) Baslat: ContainerType.Get("Code='Palet'") Container.Generate({"Count":"1"},@@Container2) Print("PaletEtiket",0,1,{"PaletBarkod":"@@Container2.LPN"}) ShowMessage({"title": "Uyarı", "message" : "Burada Dur","buttons": "TAMAM"}, @secim) Goform(AnaMenu) EndForm() BeginForm(Paletleme) Text(0,0,"Paletleme") Address.Get("Address='G01'") GoForm(PaletlemeBarkod) EndForm() BeginForm(PaletlemeBarkod) KeyFunction("ESC",GoForm(IslemBitirYer)) ResetVariables({"name":["@@WorkOrder","@@Slip","@@CustomSlipType"]}) Set(@SlipType,3) UrunOkut: ClearScreen() Text(1,1,"..::Paletleme::..") Text(1,2,"---------------------------") Input(1,3,"Urun Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) Item.Get("Code='@barkod'") If(@@Item.Id="") ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait bir Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Item.TrackingType=1) Input(1,10,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,11,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Sql("select ActualStock from ItemTrackingTotalsView where ItemId=@@Item.Id and TrackingNumber=@takipno and WarehouseId=2 and AddressId=3 and ActualStock>0",@adreskontrol) If(@adreskontrol.rowCount=0) ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait Yerleştirelecek Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() //Sql("select top 3 a.Address from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and Iv.TrackingNumber=@takipno and a.WarehouseId=2 and a.Address<>'G01'order by a.Address",@adreslistesi) //If(@adreslistesi.rowCount=0) // // Sql("select top 1 a.Address from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@adreslistesi) // //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et // //EndIf() Goto(PaletOkut) EndIf() Sql("select ActualStock from ItemTotalsView where ItemId=@@Item.Id and WarehouseId=2 and AddressId=3 and ActualStock>0",@adreskontrol) If(@adreskontrol.rowCount=0) ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait Yerleştirelecek Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() // //Sql("select top 3 a.Address from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and a.WarehouseId=2 and a.Address<>'G01'order by a.Address",@adreslistesi) //If(@adreslistesi.rowCount=0) // // Sql("select top 1 a.Address from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@adreslistesi) // //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et // //EndIf() PaletOkut: Text(1,4,"Urun Kodu:@@Item.Code",{"Start":"1","Length":"25"}) Text(1,5,"Urun Adi:@@Item.Name",{"Start":"1","Length":"25"}) //TableView(@adreslistesi.rows,1,6,{"rows":"3","columns":["Address|Adres|10|L"]}) //Text(1,8,"---------------------------") // // // Address.Get("Address='G01'") // If(@@Address.Id="") // ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) // Goto(AdresOkut) // EndIf() Address.Get("Address='G01'") Address.Get("Address='G01'",@@Address2) // // If(@@Address2.Id="") // ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) // Goto(AdresOkut) //EndIf() Input(1,13,"Palet okutunuz",{"type":"text", "min":"1", "max":"20"},@paletbarkod) Container.Get("LPN='@paletbarkod'",@@Container2) If(@@Container2.Id="") ShowMessage({"title":"HATA","message":"Hatalı Palet Girdiniz..","buttons":"TAMAM"},@secim) Goto(PaletOkut) EndIf() Set(@@Warehouse2, @@Warehouse) Input(1,10,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"9999"},@miktar) ///CustomSlipType.Get("SlipType=3") If(@miktar>@adreskontrol.rows.1.ActualStock) ShowMessage({"title":"HATA","message":"Rafa Yerlestirelecek Miktardan Fazla Girdiniz..","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Item.TrackingType=1) Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() TakipsizKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) Goto(UrunOkut) TakipliKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() //WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) //SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Goto(UrunOkut) EndForm() BeginForm(Paletleme2) Text(0,0,"Paletleme") Address.Get("Address='G01'") GoForm(PaletlemeBarkod2) EndForm() BeginForm(PaletlemeBarkod2) KeyFunction("ESC",GoForm(IslemBitirYer)) ResetVariables({"name":["@@WorkOrder","@@Slip","@@CustomSlipType"]}) Set(@SlipType,3) UrunOkut: ClearScreen() Text(1,1,"..::Paletleme::..") Text(1,2,"---------------------------") Input(1,3,"Urun Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) Item.Get("Code='@barkod'") If(@@Item.Id="") ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait bir Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Item.TrackingType=1) Input(1,10,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,11,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Sql("select ActualStock from ItemTrackingTotalsView where ItemId=@@Item.Id and TrackingNumber=@takipno and WarehouseId=2 and AddressId=3 and ActualStock>0",@adreskontrol) If(@adreskontrol.rowCount=0) ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait Paletlenecek Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() //Sql("select top 3 a.Address from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and Iv.TrackingNumber=@takipno and a.WarehouseId=2 and a.Address<>'G01'order by a.Address",@adreslistesi) //If(@adreslistesi.rowCount=0) // // Sql("select top 1 a.Address from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@adreslistesi) // //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et // //EndIf() Goto(AdresOkut) EndIf() Sql("select ActualStock from ItemTotalsView where ItemId=@@Item.Id and WarehouseId=2 and AddressId=3 and ActualStock>0",@adreskontrol) If(@adreskontrol.rowCount=0) ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait Paletlenecek Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() //Sql("select top 3 a.Address from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and a.WarehouseId=2 and a.Address<>'G01'order by a.Address",@adreslistesi) //If(@adreslistesi.rowCount=0) // // Sql("select top 1 a.Address from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@adreslistesi) // //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et // //EndIf() AdresOkut: Text(1,4,"Urun Kodu:@@Item.Code",{"Start":"1","Length":"25"}) Text(1,5,"Urun Adi:@@Item.Name",{"Start":"1","Length":"25"}) Text(1,8,"---------------------------") Address.Get("Address='G01'") If(@@Address.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() Address.Get("Address='G01'",@@Address2) If(@@Address2.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() PaletOkut: Input(1,13,"Palet okutunuz",{"type":"text", "min":"1", "max":"20"},@paletbarkod) Container.Get("LPN='@paletbarkod'",@@Container2) If(@@Container2.Id="") ShowMessage({"title":"HATA","message":"Hatalı Palet Girdiniz..","buttons":"TAMAM"},@secim) Goto(PaletOkut) EndIf() Set(@@Warehouse2, @@Warehouse) Input(1,10,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"9999"},@miktar) ///CustomSlipType.Get("SlipType=3") If(@miktar>@adreskontrol.rows.1.ActualStock) ShowMessage({"title":"HATA","message":" Paletlenecek Miktardan Fazla Girdiniz..","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Item.TrackingType=1) Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() TakipsizKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) Goto(UrunOkut) TakipliKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() //WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) //SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Goto(UrunOkut) EndForm() BeginForm(PaletYerDegistirme) KeyFunction("ESC",GoForm(IslemBitirYerDegismePalet)) ResetVariables({"name":["@@WorkOrder","@@Slip","@@CustomSlipType"]}) Set(@SlipType,3) UrunOkut: ClearScreen() Address.Get("Address=''") Text(1,1,"..::Palet Yer Degisitirme::..") Text(1,2,"---------------------------") Input(1,3,"Palet okutunuz :",{"type":"text", "min":"1", "max":"20"},@paletbarkod) Container.Get("LPN='@paletbarkod'",@@Container) If(@@Container.Id="") ShowMessage({"title":"HATA","message":"Hatalı Palet Girdiniz..","buttons":"TAMAM"},@secim) Goto(PaletOkut) EndIf() If(@@Address.Id="") Goto(PaletYerDegistirme) EndIf() PaletYerDegistirme: Sql("select top 3 sa.Address,vps.TotalQuantity from v_palet_stok as vps join SysAddress as sa on vps.AddressId=sa.Id where LPN=@paletbarkod and sa.WarehouseId=2 and sa.Address<>'G01'order by sa.Address",@Adreslistesi) If(@Adreslistesi.rowCount=0) Sql("select top 1 sa.Address from sysAddress as sa left join v_palet_stok as vps on sa.Id=vps.AddressId where vps.ItemId is Null and vps.AddressId is Null and sa.WarehouseId=2 order by sa.Address",@Adreslistesi) //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et EndIf() AdresOkut: Text(1,4,"Palet:@@Container.LPN",{"Start":"1","Length":"25"}) TableView(@adreslistesi.rows,1,5,{"rows":"3","columns":["Address|Adres|10|L"]}) Text(1,7,"---------------------------") If(@@Address.Id="") Input(1,8,"Adres Okutunuz :",{"type":"text", "min":"1", "max":"20"},@adres) Address.Get("Address='@adres'") If(@@Address.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() EndIf() Input(1,9,"Hedef Adres Okutunuz :",{"type":"text", "min":"1", "max":"20"},@adres) Address.Get("Address='@adres'",@@Address2) If(@@Address2.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() Set(@@Warehouse2, @@Warehouse) Set(@@Container2, @@Container) Input(1,10,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"9999"},@miktar) ///CustomSlipType.Get("SlipType=3") If(@miktar>@adreslistesi.rows.1.TotalQuantity) ShowMessage({"title":"HATA","message":"Rafa Yerlestirelecek Miktardan Fazla Girdiniz..","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() If(@@Item.TrackingType=1) Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() //TakipliKaydet: // CallForm(TakipliKaydetForm) // If(@KaydetSonuc="-2",GoTo(UrunOkut),Goto(UrunOkut)) // //TakipsizKaydet: // CallForm(TakipsizKaydetForm) // If(@KaydetSonuc="-2",GoTo(UrunOkut),Goto(UrunOkut)) // TakipsizKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) Goto(UrunOkut) TakipliKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() //WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) //SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Goto(UrunOkut) EndForm() BeginForm(IslemBitirYerDegismePalet) ClearScreen() MenuItem(PaletYerDegistirme,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(IslembitiryerdegismePaletSon,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirYer") EndForm() BeginForm(IslembitiryerdegismePaletSon) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(IslembitiryerdegismePaletSon) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() Goto(IslembitiryerdegismePaletSon) EndIf() EndForm() BeginForm(PaletYerlestirme) KeyFunction("ESC",GoForm(IslemBitirPaletYerlestirme)) ResetVariables({"name":["@@WorkOrder","@@Slip","@@CustomSlipType"]}) Set(@SlipType,3) UrunOkut: ClearScreen() Address.Get("Address='G01'") Text(1,1,"..::Palet Yer Degisitirme::..") Text(1,2,"---------------------------") Input(1,3,"Palet okutunuz",{"type":"text", "min":"1", "max":"20"},@paletbarkod) Container.Get("LPN='@paletbarkod'",@@Container) If(@@Container.Id="") ShowMessage({"title":"HATA","message":"Hatalı Palet Girdiniz..","buttons":"TAMAM"},@secim) Goto(PaletOkut) EndIf() If(@@Address.Id="") Goto(PaletYerDegistirme) EndIf() Sql("select TotalQuantity from v_palet_stok where AddressId=3 and LPN=@paletbarkod and TotalQuantity > 0",@adreskontrol) If(@adreskontrol.rowCount=0) ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait Yerleştirelecek Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() Sql("select top 3 a.Address from sysAddress as a left join v_palet_stok as Iv on a.Id=Iv.AddressId where a.WarehouseId=2 and Iv.LPN=@paletbarkod and a.Address<>'G01'order by a.Address",@adreslistesi) If(@adreslistesi.rowCount=0) Sql("select top 1 a.Address from sysAddress as a left join v_palet_stok as Iv on a.Id=Iv.AddressId where Iv.ItemId is Null and Iv.AddressId is Null and a.WarehouseId=2 order by a.Address",@adreslistesi) //adres seçtikten sonra workorder sliptype=3 oluştur depo2leri set et EndIf() AdresOkut: Text(1,4,"Palet:@@Container.LPN",{"Start":"1","Length":"25"}) TableView(@adreslistesi.rows,1,6,{"rows":"3","columns":["Address|Adres|10|L"]}) Text(1,8,"---------------------------") If(@@Address.Id="") Input(1,9,"Adres Okutunuz",{"type":"text", "min":"1", "max":"20"},@adres) Address.Get("Address='@adres'") If(@@Address.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() EndIf() Input(1,10,"Hedef Adres Okutunuz",{"type":"text", "min":"1", "max":"20"},@adres) Address.Get("Address='@adres'",@@Address2) If(@@Address2.Id="") ShowMessage({"title":"HATA","message":"Hatalı Adres Girdiniz..","buttons":"TAMAM"},@secim) Goto(AdresOkut) EndIf() Set(@@Warehouse2, @@Warehouse) Set(@@Container2, @@Container) Input(1,11,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"9999"},@miktar) ///CustomSlipType.Get("SlipType=3") If(@miktar>@adreskontrol.rows.1.TotalQuantity) ShowMessage({"title":"HATA","message":"Rafa Yerlestirelecek Miktardan Fazla Girdiniz..","buttons":"TAMAM"},@secim) Goto(UrunOkut) EndIf() Goto(TakipsizKaydet) TakipsizKaydet: If(@@CustomSlipType.Id="") CustomSlipType.Get("Name = 'YerDegistirme'") EndIf() If(@@WorkOrder.Id="") //Yer değiştirme türünde kullanıcı tarafından oluşturulmuş boş fişleri getirir. WorkOrder.Get("CustomSlipTypeId=@@CustomSlipType.Id and CreatedBy=@@LoginUser.Id and StateId!=14 and DAY(SlipDate) = DAY(GETDATE()) and MONTH(SlipDate) = MONTH(GETDATE()) and YEAR(SlipDate) = YEAR(GETDATE())") EndIf() If(@@WorkOrder.Id="") //emiri bulamazsa yeniden oluşturur. WorkOrder.New({"SlipType":"3"},1) Slip.New({"SlipType":"3"},1) Else() //Slip boş ise emrin slipini bulup getiriyor. If(@@Slip.Id="") Slip.Get("WorkOrderId=@@WorkOrder.Id") EndIf() EndIf() WorkOrderLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) SlipLine.New({"SlipType":"3", "Quantity" : "@miktar"},1) Goto(UrunOkut) EndForm() BeginForm(IslemBitirPaletYerlestirme) ClearScreen() MenuItem(PaletYerlestirme,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(IslemBitirPaletYerlestirmeSon,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirYer") EndForm() BeginForm(IslemBitirPaletYerlestirmeSon) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(IslemBitirYer) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() Goto(IslemBitirYer) EndIf() EndForm() BeginForm(Sarf) KeyFunction("ESC",GoForm(ESCIslembitirSarf)) ClearScreen() Text(0,0,"Iade Cikis") ResetVariables({"name":["@@OrderSlip","@@Slip","@belge_no","@belge_tarihi"]}) //Address.Get("Address='G01'") CustomSlipType.Get("SlipType=2 AND ErpRecordType=3 AND ErpRecordTrCode='12'") Set(@SlipType,2) If(@@WorkOrder.Id="") WorkOrder.New({"SlipType":"2","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},0) Slip.New({"SlipType":"2","DocumentNumber":"@belge_no","DocumentDate":"@BelgeTarihi"},0) Else() Slip.Get("WorkOrderId=@@WorkOrder.Id") If(@@Slip.Id="") Slip.New({"SlipType":"2","DocumentNumber":"@@WorkOrder.DocumentNumber","DocumentDate":"@@WorkOrder.DocumentDate"},0) EndIf() EndIf() BarkodGir: ClearScreen() Input(1,4,"Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) UnitBarcode.Get("Barcode='@barkod'") If(@@Item.Id="") Item.Get("Code='@barkod'") If(@@Item.Id="") Beep(2) ShowMessage({"title":"UYARI","message":"@barkod Okutulan barkod'a ait malzeme bulunamadi !","buttons":"Devam"},@secim) Goto(BarkodGir) EndIf() EndIf() MiktarGir: Text(1,4,"Urun: @barkod @@Item.Name") Input(1,6,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"99999"},@miktar) AdresSor: Input(1,7,"Adres Okutunuz",{"type":"text", "min":"1", "max":"20"},@adresli) Address.Get("Address='@adresli'") Address.Get("Address='IADE'",@@Address2) If(@miktar<"0") ShowMessage({"title":"HATA","message":"Hatalı Miktar.","buttons":"TAMAM"},@secim) Goto(MiktarGir) EndIf() If(@@Item.TrackingType=1) Text(1,8,"---------------------------") Input(1,9,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,10,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() TakipsizKaydet: CallForm(TakipsizKaydetSarf) If(@KaydetSonuc="-2",GoTo(BarkodGir),Goto(BarkodGir)) TakipliKaydet: CallForm(TakipliKaydetSarf) If(@KaydetSonuc="-2",GoTo(BarkodGir),Goto(BarkodGir)) EndForm() BeginForm(TakipsizKaydetSarf) Set(@KaydetSonuc, 0) If(@@WorkOrder.Id="0") WorkOrder.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Emir Basligi") Goto(Hata) EndIf() EndIf() If(@@Slip.Id="0") Slip.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Fis Basligi") Goto(Hata) EndIf() EndIf() Set(@Description,"") If(@@OrderSlip.SlipNumber!="") Set(@Description,@@OrderSlip.SlipNumber) EndIf() WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar" , "Description":"@Description"},1) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar" , "Description":"@Description"},1) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() Goto(Cik) Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Cik: ReturnForm() EndForm() BeginForm(TakipliKaydetSarf) Set(@KaydetSonuc, 0) If(@@WorkOrder.Id="0") WorkOrder.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Emir Basligi") Goto(Hata) EndIf() EndIf() If(@@Slip.Id="0") Slip.Save() If(@Response.Status = "-1") Set(@KaydetSonuc, -1) Set(@hataTuru, "Fis Basligi") Goto(Hata) EndIf() EndIf() Set(@Description,"") If(@@OrderSlip.SlipNumber!="") Set(@Description,@@OrderSlip.SlipNumber) EndIf() WorkOrderLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Emir Takip Bilgisi") Goto(Hata) EndIf() SlipLine.New({"SlipType":"@SlipType", "Quantity":"@miktar"},0) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) If(@Response.Status = "-1") Set(@hataTuru, "Fiş Takip Bilgisi") Goto(Hata) EndIf() Goto(Cik) Hata: ShowMessage({"title": "HATA", "message" : "@hataTuru Kaydedilemedi: @Response.Message","buttons": "TAMAM"}, @secim) Set(@KaydetSonuc, -1) Cik: ReturnForm() EndForm() BeginForm(ESCIslembitirSarf) ClearScreen() MenuItem(IadeCikis,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(IslembitirIadeCikisSon,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirYer") EndForm() BeginForm(IslembitirSarfSon) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(ESCIslembitirSarf) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() Goto(IslembitirSarf) EndIf() EndForm() BeginForm(AmbarTransfer) KeyFunction("ESC",GoForm(AmbarBitirYer)) AmbarSecimi: ResetVariables({"name":["@@OrderSlip","@@WorkOrder","@@Slip","@@CustomSlipType","@@Warehouse.Code","@@Warehouse.Id"]}) CustomSlipType.Get("SlipType=3 AND ErpRecordType=3 AND ErpRecordTrCode='25'") ClearScreen() Warehouse.List("","",@Depolar) PopupView(@Depolar.rows,{"mode":"list","title":"Kaynak Ambar Secimi", "fields":["Code|Depo Kodu|5|L","Name|Depo Ad|15|L"]},@secim) Warehouse.Get(@Depolar.rows.@secim.Id) Set(@IslemAmbari,@Depolar.rows.@secim.Id) ShowMessage({"title":"Form", "message" : "@@Warehouse.Code - @@Warehouse.Name Secilecek?", "buttons" : "1. Evet | 2. Hayr"},@secim) CaseGoto(@secim, {"1":"AmbarSecimi2","2":"AmbarSecimi"}) AmbarSecimi2: ClearScreen() Warehouse.List("","",@DepolarHedef) PopupView(@DepolarHedef.rows,{"mode":"list","title":"Hedef Ambar Secimi", "fields":["Code|Depo Kodu|5|L","Name|Depo Ad|15|L"]},@secim) Warehouse.Get(@DepolarHedef.rows.@secim.Id,@@Warehouse2) Set(@IslemAmbariHedef,@DepolarHedef.rows.@secim.Id) ShowMessage({"title":"Form", "message" : "@@Warehouse2.Code - @@Warehouse2.Name Secilecek?", "buttons" : "1. Evet | 2. Hayr"},@secim) CaseGoto(@secim, {"1":"WorkOrderSet","2":"AmbarSecimi"}) WorkOrderSet: WorkOrder.New({"SlipType":"3"},1) If(@Response.Status="-1") Beep(2) ShowMessage({"title":"Hata", "message" : "@Response.Message", "buttons" : "Tamam"},@secim) Goto(AmbarSecimi) EndIf() Slip.New({"SlipType":"3"},1) If(@Response.Status="-1") Beep(2) ShowMessage({"title":"Hata", "message" : "@Response.Message", "buttons" : "Tamam"},@secim) Goto(AmbarSecimi) EndIf() Barkod: ClearLines(2,20) Input(1,1,"Barkod Giriniz: ",{"type":"text", "min":"1", "max":"20"},@barkod) UnitBarcode.Get("Barcode='@barkod'") If(@@Item.Id="") Item.Get("Code='@barkod'") If(@@Item.Id="") Beep(2) ShowMessage({"title":"Barkod Hatası", "message" : "@Response.Message", "buttons" : "Tamam"},@secim) Goto(Barkod) EndIf() Text(1,2,@@Item.Code) Text(1,3,@@Item.Name) StokListe: Sql("select top 3 a.Address,Iv.ActualStock from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where Iv.ItemId=@@Item.Id and a.WarehouseId=@@Warehouse.Id and Iv.ActualStock>0 order by a.Address",@Adreslistesi) TableView(@adreslistesi.rows,1,7,{"rows":"3","columns":["Address|Adres|10|L","ActualStock|Stok|10|L","TrackingNumber|Lot|10"]}) KaynakAdres: // ClearLines(9,9) Input(1,4,"Kaynak Adres: ",{"type":"text", "min":"1", "max":"20"},@kaynak_adres) Address.Get("Address='@kaynak_adres'") If(@@Address.Id="") Beep(2) ShowMessage({"title":"Adres Hatası", "message" : "Adres Tanımlı Değil", "buttons" : "Tamam"},@secim) Goto(KaynakAdres) EndIf() HedefAdres: Address.Get("Address='G01' and WarehouseId=@@Warehouse2.Id ",@@Address2) If(@@Address2.Id="") Beep(2) ShowMessage({"title":"Adres Hatası", "message" : "Adres Tanımlı Değil", "buttons" : "Tamam"},@secim) Goto(KaynakAdres) EndIf() Miktar: Input(1,5,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"99999"},@miktar) If(@@Item.TrackingType=1) Input(1,6,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,7,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Goto(TakipliMiktarKontrol) Else() Goto(MiktarKontrol) EndIf() TakipliMiktarKontrol: Sql("select top 1 Iv.ActualStock from sysAddress as a left join ItemTrackingTotalsView as Iv on a.Id=Iv.AddressId where a.Id=@@Address.Id and Iv.ItemId=@@Item.Id and a.WarehouseId=@@Warehouse.Id and Iv.TrackingNumber=@takipno order by a.Address",@Adresliste) Set(@KalanMiktar,@Adresliste.rows.1.ActualStock-@miktar) If(@KalanMiktar<"0") ClearScreen() Text(1,11,"Stok Yetersiz: Adresteki Stok:@Adresliste.rows.1.ActualStock") Input(1,12,"Devam Enter ",{"type":"int", "min":"1", "max":"99999"},@dur) Goto(Miktar) EndIf() Set(@KalanMiktar,@Adresliste.rows.1.ActualStock-@miktar) If(@KalanMiktar<"0") ClearScreen() Text(1,11,"Stok Yetersiz: Adresteki Stok:@Adresliste.rows.1.ActualStock") Input(1,12,"Devam Enter ",{"type":"int", "min":"1", "max":"99999"},@dur) Goto(Miktar) EndIf() WorkOrderLine.New({"SlipType":"3", "Quantity":"@miktar"},0) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) SlipLine.New({"SlipType":"3", "Quantity":"@miktar"},1) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) Else() ItemTracking.New({"LineType":"5","Quantity":"@miktar","TrackingNumber":"@takipno","ExpirationDate":"@tarih"},1) Goto(Barkod) EndIf() Hata: ClearScreen() Text(1,5,"@Response.Message") Input(1,6,"Hatalı İşlem ",{"type":"int", "min":"1", "max":"99999"},@dur) Goto(Barkod) EndForm() MiktarKontrol: Sql("select top 1 Iv.ActualStock from sysAddress as a left join ItemTotalsView as Iv on a.Id=Iv.AddressId where a.Id=@@Address.Id and Iv.ItemId=@@Item.Id and a.WarehouseId=@@Warehouse.Id order by a.Address",@Adresliste) Set(@KalanMiktar,@Adresliste.rows.1.ActualStock-@miktar) If(@KalanMiktar<"0") ClearScreen() Text(1,11,"Stok Yetersiz: Adresteki Stok:@Adresliste.rows.1.ActualStock") Input(1,12,"Devam Enter ",{"type":"int", "min":"1", "max":"99999"},@dur) Goto(Miktar) EndIf() WorkOrderLine.New({"SlipType":"3", "Quantity":"@miktar"},1) If(@Response.Status = "-1") Set(@KaydetSonuc, -2) Set(@hataTuru, "Emir Satırı") Goto(Hata) EndIf() SlipLine.New({"SlipType":"3", "Quantity":"@miktar"},1) If(@Response.Status = "-1") WorkOrderLine.Set({"Active":"0"}) WorkOrderLine.Save() Set(@KaydetSonuc, -2) Set(@hataTuru, "Fiş Satırı") Goto(Hata) Else() Goto(Barkod) EndIf() Hata: ClearScreen() Text(1,5,"@Response.Message") Input(1,6,"Hatalı İşlem ",{"type":"int", "min":"1", "max":"99999"},@dur) Goto(Barkod) EndForm() BeginForm(AmbarBitirYer) ClearScreen() MenuItem(AmbarTransfer,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(AmbarbitiryerSon,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirYer") EndForm() BeginForm(AmbarbitiryerSon) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(IslemBitirYer) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() Goto(IslemBitirYer) EndIf() EndForm() BeginForm(BarkodSorgu) KeyFunction("ESC",GoForm(AnaMenu)) ResetVariables({"name":["@@Item.Id"]}) BarkodGir: ClearScreen() Text(1,1,"Barkod Sorgulama") Text(1,2,"----------------------") Input(1,3,"Barkod Okutun: ",{"type":"text", "min":"1", "max":"16"},@barkod) UnitBarcode.Get("Barcode='@barkod'") If(@@Item.Id="") Item.Get("Code='@barkod'") Goto(MiktarGir) EndIf() If(@@Item.Id="") //Item.Get("Code='@barkod'") //If(@@Item.Id="") ShowMessage({"title":"HATA","message":"@barkod Bu Barkoda Ait bir Urun Bulunamadi","buttons":"TAMAM"},@secim) Goto(BarkodGir) EndIf() Goto(MiktarGir) MiktarGir: Text(1,4,"@@Item.Code @@Item.Name") // Text(1,5,"@@ItemUnit.Code @@ItemUnit.ConvFactor1 / @@ItemUnit.ConvFactor2") Sql({"report":"BarkodSorgu","Id":"@@Item.Id"},@stoklar) TableView(@stoklar.rows,6,5,{"rows":"100","columns":["depo|Depo|5|L","adres|Adres|10|L","birim|Birim|6|L","stok|Stok|5|L"]}) Input(1,13,"Yeni Sorgu Icn ENTER ",{"type":"text", "min":"0", "max":"16"},@barkod) Sonuc: Goto(BarkodGir) EndForm() BeginForm(SayimIslemler1) KeyFunction("ESC",GoForm(IslemBitirSayim)) AmbarSecimi: ResetVariables({"name":["@@OrderSlip","@@WorkOrder","@@Slip","@@CustomSlipType","@@Warehouse"]}) ClearScreen() CustomSlipType.Get("Id=31") Set(@SlipType,1) Warehouse.List("","",@Depolar) PopupView(@Depolar.rows,{"mode":"list","title":"Ambar Seimi", "fields":["Code|Depo Kodu|5|L","Name|Depo Ad|15|L"]},@secim) Warehouse.Get(@Depolar.rows.@secim.Id) Set(@IslemAmbari,@Depolar.rows.@secim.Id) ShowMessage({"title":"Form", "message" : "@@Warehouse.Code - @@Warehouse.Name Secilecek?", "buttons" : "1. Evet | 2. Hayr"},@secim) CaseGoto(@secim, {"1":"FisAc","2":"AmbarSecimi"}) FisAc: Goto(UGiris) UGiris: WorkOrder.New({"SlipType":"1"},1) Slip.New({"SlipType":"1"},1) AdresSor: ClearScreen() Text(1,1,"İlk Sayım") Input(1,2,"Adres Okutunuz:",{"type":"text", "min":"1", "max":"20"},@adresli) //Address.Get("Address='@adresli'") Address.Get("Address='@adresli' and WarehouseId=@@Warehouse.Id ") If(@Response.Status="-1") ShowMessage({"title": "HATA", "message" : "Hatalı Adres","buttons": "TAMAM"}, @secim) EndIf() BarkodGir: //Text(1,24,"Islemi Bitir[.] Ana Menu [Esc]") Input(1,3,"Barkod Giriniz: ",{"type":"text", "min":"1", "max":"16"},@barkod) UnitBarcode.Get("Barcode='@barkod'") If(@@Item.Id="") Item.Get("Code='@barkod'") If(@@Item.Id="") Beep(2) ShowMessage({"title":"UYARI","message":"Okutulan barkod'a ait malzeme bulunamadi !","buttons":"Devam"},@secim) Goto(BarkodGir) EndIf() EndIf() MiktarGir: Text(1,4,"Urun: @barkod @@Item.Name") Input(1,5,"Miktar Giriniz: ",{"type":"int", "min":"1", "max":"99999"},@miktar) If(@miktar<"0") ShowMessage({"title":"HATA","message":"Hatal Miktar.","buttons":"TAMAM"},@secim) Goto(MiktarGir) EndIf() If(@@Item.TrackingType=1) Input(1,6,"Lot Numarasi Giriniz: ",{"type":"text", "min":"1", "max":"15"},@takipno) Input(1,7,"Son Kullanma Tarihi Giriniz: ",{"type":"date","min":"01-01-2019", "max":"12-12-2099"},@tarih) Set(@tarih,"@tarih.1"+"."+"@tarih.2"+"."+"@tarih.3") Goto(TakipliKaydet) Else() Goto(TakipsizKaydet) EndIf() TakipliKaydet: CallForm(TakipliKaydetForm) If(@KaydetSonuc="-2",GoTo(UGiris),Goto(AdresSor)) TakipsizKaydet: CallForm(TakipsizKaydetForm) If(@KaydetSonuc="-2",GoTo(UGiris),Goto(AdresSor)) IslemBitir: If(@satirliste.rowCount>0) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) EndIf() If(@bitir=1 OR @satirliste.rowCount=0) CustomState.Get("SystemEvent = 6 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) Goto(BarkodGir) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaGiris) EndIf() Else() Goto(BarkodGir) EndIf() Cikis: ShowMessage({"title":"ONAY","message":"Islemi Iptal Etmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@secim) If(@secim=1 OR @@OrderSlip.Id="") ClearScreen() GoForm(AnaMenu) Else() If(@belge_no="" OR @belge_tarihi="",Goto(UGiris),Goto(BarkodGir)) EndIf() EndForm() BeginForm(IslemBitirSayim) ClearScreen() MenuItem(SayimIslemler1,"Geri Don","",0) MenuItem(AnaMenu,"Ana Menu","",0) MenuItem(IslemBitirSayimSon,"ISlem Bitir","",0) MenuRun(1,2,"IslemBitirSayım") EndForm() BeginForm(IslemBitirSayimSon) ShowMessage({"title":"ONAY","message":"Islemi Bitirmek Istediginize Emin Misiniz ?","buttons":"EVET|HAYIR"},@bitir) If(@bitir=1) CustomState.Get("StateNumber = 3 and RecordType = 159") WorkOrder.Save() CustomState.Get("StateNumber = 3 and RecordType = 161") Slip.Save() If(@Response.Status="-1") ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) GoForm(IslemBitirSayim) Else() ShowMessage({"title":"Bilgi","message":"Islem Tamamlandi","buttons":"Tamam"},@secim) GoForm(AnaMenu) EndIf() Else() GoForm(AnaMenu) EndIf() EndForm()