BeginForm(Start) GoForm(AnaMenu) EndForm() BeginForm(AnaMenu) ClearScreen() KeyFunction("ESC",GoForm(AnaMenu)) MenuItem(MenuUrunKabul,"Ürün Kabul","", 18) // Tamamlandı MenuItem(MenuSevk,"Sevk İşlemleri","", 9) MenuItem(MenuDepoIciIslemler,"Depo İşlemleri","", 2) // Tamamlandı MenuItem(MenuIadeIslemleri,"İade İşlemleri","", 2) MenuItem(MenuSorgulama,"Sorgulamalar","", 31) // Tamamlandı MenuItem(MenuSayim,"Sayım","", 11) // Tamamlandı MenuItem(Cikis,"Çıkış","",1) MenuRun(1,1,"Ana Menü") EndForm() BeginForm(MenuIadeIslemleri) ClearScreen() KeyFunction("ESC", GoForm(AnaMenu)) MenuItem(IadeKabul, "İade Kabul", "", 36) MenuItem(IadeCikis, "İade Çıkış", "", 10) MenuItem(AnaMenu, "Ana Menü", "", 1) MenuRun(0,1,"İade Menü") EndForm() BeginForm(IadeFisIslemleri) Baslangic: ClearScreen() KeyFunction("ESC",GoForm(MenuIadeIslemleri)) ResetVariables({"name":["@@Arp", "@@WorkOrder", "@@SlipOrder", "@@WorkOrderLine", "@@SlipOrderLine", "@@CustomSlipType"]}) Text(0,0,@MenuCaption) CariSor: ShowMessage({"title":"Cari Seçimi","message":"Arama Şekli Seçiniz","buttons":"Vergi No|Unvan"}, @Secim) CaseGoto(@Secim, {"1":"VergiNo","2":"CariUnvan"}) VergiNo: Input(0,0,"Vergi No Giriniz",{"type":"text", "min":"1", "max":"11"}, @VergiNo) Arp.Get("ISNULL(TaxNumber, '') = '@VergiNo'") If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Cari Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() Goto(SecimOnay) CariUnvan: Input(0,0,"Cari Unvan Giriniz",{"type":"text", "min":"1", "max":"20"}, @CariUnvan) Arp.List("Title LIKE @CariUnvan + N'%'","Title Asc", @Liste) If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Cari Listeleme Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() If(@Liste.rowCount = "0") ShowMessage({"title":"Hata","message":"Kayıt Bulunamadı","buttons":"Yeniden Ara|Vazgeç"}, @Secim) CaseGoto(@Secim, {"1":"CariUnvan", "2":"GeriDon"}) EndIf() PopupView(@Liste.rows, {"mode":"list","title":"Cari Listesi","fields":["Title|Unvan|30|L"]},@SiraSecim) If(@SiraSecim = "0") ShowMessage({"title":"Hata","message":"Hatalı Seçim","buttons":"Yeniden Ara|Vazgeç"}, @Secim) CaseGoto(@Secim, {"1":"CariUnvan", "2":"GeriDon"}) EndIf() ShowMessage({"title":"Seçim Onayı","message":"@Liste.rows.@SiraSecim.Title Carisi Seçildi.\nİşleme Devam Edilsin Mi?","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim = "1") Arp.Get(@Liste.rows.@SiraSecim.Id) If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Cari Seçim Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuIadeIslemleri) EndIf() Goto(BelgeTarihi) EndIf() Goto(CariUnvan) SecimOnay: Set(@Secim, "0") If(@@Arp.Id = "") ShowMessage({"title":"Hata","message":"Cari Bulunamadı","buttons":"Yeniden Ara|Vazgeç"}, @Secim) CaseGoto(@Secim, {"1":"Baslangic", "2":"GeriDon"}) EndIf() ShowMessage({"title":"Seçim Onayı","message":"@@Arp.Title","buttons":"Onayla|Vazgeç"},@Secim) CaseGoto(@Secim, {"1":"GeriDon", "2":"Baslangic"}) If(@@Arp.Id = "", Goto(CariYok)) Goto(BelgeTarihi) CariYok: ShowMessage({"title":"Uyarı","message":"Cari seçimi yapmadan devam edemezsiniz!","buttons":"Tamam"},@choice) Goto(CariSor) BelgeTarihi: Input(0,0,"Belge/Fatura Tarihi Giriniz",{"type":"date","min":"1-1-2020","max":"31-12-2099"}, @Tarih) Set(@Tarih,"@Tarih.1"+"."+"@Tarih.2"+"."+"@Tarih.3") If(@Tarih.isDate!="0", Goto(TarihHata)) Goto(BelgeNo) BelgeNo: Input(0,0,"Belge No Giriniz",{"type":"text","min":"1","max":"16"}, @BelgeNo) Goto(FisTipiCagir) FisTipiCagir: CustomSlipType.Get("SlipType = @SlipType AND ErpRecordTrCode = @ErpRecordTrCode AND ErpRecordType = @ErpRecordType") If(@@CustomSlipType.Id = "", Goto(FisTipiHatasi)) Goto(EmirKontrol) FisTipiHatasi: Beep(2) ShowMessage({"title":"Uyarı","message":"Toptan Satış İade İrsaliyesi İçin Fiş Tipi Çağırılamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuIadeIslemleri) EmirKontrol: WorkOrder.Get("CustomSlipTypeId = @@CustomSlipType.Id AND DocumentNumber = '@BelgeNo' AND DocumentDate = '@Tarih' AND SlipType = @SlipType AND ArpId = @@Arp.Id") If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Emir Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuIadeIslemleri) EndIf() If(@@WorkOrder.Id = "") WorkOrder.New({"SlipType":"@SlipType","DocumentNumber":"@BelgeNo","DocumentDate":"@Tarih"},1) If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Emir Oluşturma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuIadeIslemleri) EndIf() EndIf() Slip.Get("CustomSlipTypeId = @@CustomSlipType.Id AND DocumentNumber = '@BelgeNo' AND DocumentDate = '@Tarih' AND SlipType = @SlipType AND ArpId = @@Arp.Id") If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Stok Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() If(@@Slip.Id = "") Slip.New({"SlipType":"@SlipType", "DocumentNumber":"@BelgeNo","DocumentDate":"@Tarih"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Stok Fişi Oluşturma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() EndIf() GoForm(IadeSatirlar) EndForm() BeginForm(IadeKabul) Set(@SlipName,"Toptan Satış İade İrsaliyesi") Set(@SlipType,"1") Set(@ErpRecordTrCode,"3") Set(@ErpRecordType,"2") Set(@MenuCaption,"İade Kabul") GoForm(IadeFisIslemleri) EndForm() BeginForm(IadeCikis) Set(@SlipType,"Satınalma İade İrsaliyesi") Set(@SlipType,"2") Set(@ErpRecordType,"2") Set(@ErpRecordTrCode,"6") Set(@MenuCaption,"İade Çıkış") GoForm(IadeFisIslemleri) EndForm() BeginForm(IadeESC) ClearScreen() KeyFunction("ESC",GoForm(IadeESC)) MenuItem(IadeSatirlar,"Geri Dön","",1) MenuItem(IadeOkutulanlar,"Okutulan Ürünlerin Listesi","",1) MenuItem(IadeBitir,"İşlemi Sonlandır / Fişi Kapat","",1) MenuItem(AnaMenu,"Ana Menü","",1) MenuRun(1,1,"İade İşlem Menüsü") EndForm() BeginForm(IadeOkutulanlar) EndForm() BeginForm(IadeBitir) KeyFunction("ESC",GoForm(IadeESC)) ClearScreen() Text(0,0,"İade İşlem Sonu") Set(@Liste,{"rows":[{"SutunAdi":"Cari","Deger":"@@Arp.Title"},{"SutunAdi":"Belge No","Deger":"@@Slip.DocumentNumber"},{"SutunAdi":"Belge Tarihi","Deger":"@@Slip.DocumentDate"}]}) CallForm(ShowProcess) Text(1, 9, "Fiş Kapatılacak") Input(1, 10,"[1] Onay: ",{"type":"text","min":"0","max":"10"}, @Secim) If(@Secim != "1", GoForm(IadeESC)) CustomState.Get("RecordType = 161 AND StateName = 'Entegre Edildi'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Kapalı Duruma Getirilemedi\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() Slip.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() WorkOrder.Get(@@WorkOrder.Id) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() CustomState.Get("RecordType = 159 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi İçin Özel Durum Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() WorkOrder.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() Beep(1) ShowMessage({"title":"Bilgi","message":"Kayıt Başarılı","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndForm() BeginForm(IadeSatirlar) KeyFunction("ESC",GoForm(IadeESC)) ContainerType.Get("Code = 'PALET'") If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Taşıma Kabı Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() If(@@ContainerType.Id = "") Beep(2) ShowMessage({"title":"Hata","message":"Palet Tanımı Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() Baslangic: ClearScreen() ResetVariables({"name":["@@WorkOrderLine", "@@OrderSlipLine", "@@Item"]}) Text(0,0,"@@Slip.DocumentNumber - @@Arp.Title") KeyFunction("F2",GoForm(IadeOkutulanlar)) Goto(AdresSet) AdresSet: Address.Get("Address='G01' and WarehouseId=@@Warehouse.Id") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Adres Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() If(@@Address.Id = "") Beep(2) ShowMessage({"title":"Hata","message":"G01 Adresi Tanımlı Değil\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"}]}) CallForm(ShowProcess) GoTo(PaletSor) PaletSor: ResetVariables({"name":["@@Container","@PaletBarkodu"]}) Input(0,0,"Palet Barkodunu Okutunuz",{"type":"text", "min":"1", "max":"11"}, @PaletBarkodu) Container.Get("LPN='@PaletBarkodu'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Taşıma Kabı Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(PaletSor) EndIf() If(@@Container.Id = "") Beep(2) ShowMessage({"title":"Hata","message":"Palet Bulunamadı\nSistemden Palet Barkodu Ürettirmelisiniz.\n@Response.Message","buttons":"Tamam"},@Temp) Goto(PaletSor) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"}]}) CallForm(ShowProcess) Goto(PaletAdresKontrol) PaletAdresKontrol: Sql("SELECT * FROM GetContainerAdressInfo(@@Container.Id)", @PaletAdresKontrol) If(@PaletAdresKontrol.rowCount = "0" OR @PaletAdresKontrol.rows.1.AddressId = @@Address.Id, Goto(UrunSor)) Beep(2) ShowMessage({"title":"Hata","message":"Palet @PaletAdresKontrol.rows.1.Address Adresinde Kayıtlı\nMal Kabulü Bu Palete Yapamazsınız.@Response.Message","buttons":"Tamam"},@Temp) Goto(PaletSor) UrunSor: ResetVariables({"name":["@@Item"]}) Input(0,0,"Ürün Kodunu ya da Barkodunu Okutunuz",{"type":"text", "min":"1", "max":"11"}, @BarkodYaDaKod) UnitBarcode.Get("Barcode='@BarkodYaDaKod' AND Barcode <> ''") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Barkod Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(UrunSor) EndIf() If(@@Item.Code="") Item.Get("Code = '@BarkodYaDaKod'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Ürün Kodu Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(UrunSor) EndIf() EndIf() If(@@Item.Code="") Beep(2) ShowMessage({"title":"Uyarı","message":"Ürün Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(UrunSor) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Urun","Deger":"@@Item.Name"}]}) CallForm(ShowProcess) Goto(LotKontrol) LotKontrol: If(@@Item.TrackingType = "1", Goto(LotSor)) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Urun","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":""},{"SutunAdi":"Son Kullanma T.","Deger":""}]}) CallForm(ShowProcess) Goto(MiktarSor) LotSor: Input(0,0,"Lot Numarasını Giriniz",{"type":"text", "min":"1", "max":"11"}, @LotNo) Goto(SonKullanmaTarihiSor) SonKullanmaTarihiSor: Input(0, 0, "Son Kullanma Tarihi Giriniz",{"type":"date","min":"1-1-2020","max":"31-12-2099"}, @Tarih) Set(@Tarih,"@Tarih.1"+"."+"@Tarih.2"+"."+"@Tarih.3") If(@Tarih.isDate!="0", Goto(TarihHata)) Set(@SonKullanmaTarihi, @Tarih) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Urun","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"}]}) Goto(MiktarSor) MiktarSor: Input(0,0,"Miktar",{"type":"decimal","min":"0.01","max":"999999.0"}, @Miktar) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Urun","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@Miktar"}]}) CallForm(ShowProcess) Goto(Onay) Onay: Input(1,10,"[1] İşlem Onayı:",{"type":"int","min":"0","max":"99999"}, @Secim) If(@Secim != "1", GoTo(IptalMi)) Goto(Kayit) IptalMi: Beep(2) ShowMessage({"title":"İptal Onayı","message":"Yapılan İşlem İptal Edilecek!","buttons":"Onayla|Vazgeç"},@Onay) If(@Onay != "1", Goto(Onay)) Goto(Baslangic) Kayit: Text(1,10,"Kayıt Yapılıyor") WorkOrderLine.New({"SlipType":"@SlipType","Quantity" :"@TempMiktar"}, 0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Yeni Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() SlipLine.New({"SlipType":"@SlipType","Quantity" :"@TempMiktar"}, 0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Yeni Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() If(@@Item.TrackingType = "0") WorkOrderLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Lotsuz Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() SlipLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Lotsuz Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() Goto(Baslangic) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@TempMiktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Takipli Ürün Kayıt Hatası -4-\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@TempMiktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Takipli Ürün Kayıt Hatası -5-\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() Goto(Baslangic) EndForm() BeginForm(MenuSorgulama) ClearScreen() KeyFunction("ESC", GoForm(AnaMenu)) MenuItem(SorgulamaAdres, "Adres Sorgulama", "", 36) // Tamamlandı MenuItem(SorgulamaUrun, "Ürün Sorgulama", "", 10) // Tamamlandı MenuItem(SorgulamaPalet, "Palet Sorgulama", "", 33) // Tamamlandı MenuItem(AnaMenu, "Ana Menü", "", 1) MenuRun(0,1,"Sorgulama Menü") EndForm() BeginForm(Cikis) Logout() EndForm() BeginForm(MenuUrunKabul) ClearScreen() KeyFunction("ESC",GoForm(AnaMenu)) MenuItem(MenuSiparisKabul,"Sipariş Kabul","", 20) // Tamamlandı MenuRun(1,1,"Sipariş Kabul") EndForm() BeginForm(MenuDepoIciIslemler) ClearScreen() KeyFunction("ESC",GoForm(AnaMenu)) MenuItem(DepoIslemYerDegistir,"Yer Değiştir","", 1) // Tamamlandı MenuItem(DepoIslemRafaYerlestir,"Rafa Yerleştir","", 1) MenuItem(DepoIslemPaletYerlestir,"Palet Yerleştir","", 1) // Tamamlandı MenuItem(DepoIslemAmbarTransferi,"Ambar Transferi","", 1) // Tamamlandı MenuItem(DepoIslemPaletEtiketiUret,"Palet Etiketi Üret","", 1) // Tamamlandı MenuItem(DepoIslemPaletEtiketiYaz,"Palet Etiketi Yaz","", 1) // Tamamlandı MenuRun(0,1,"Depo İçi İşlemler") EndForm() BeginForm(DepoIslemRafaYerlestir) EndForm() BeginForm(MenuSiparisKabul) ClearScreen() KeyFunction("ESC",GoForm(MenuUrunKabul)) CariSor: CallForm(CariSecim) If(@@Arp.Id = "") ShowMessage({"title":"Uyarı","message":"Cari seçimi yapmadan devam edemezsiniz!","buttons":"Tamam"},@choice) Goto(CariSor) EndIf() SiparisListele: OrderSlip.List("SlipType = 1 AND ArpId = @@Arp.Id", "SlipDate ASC",@SiparisListesi) If(@SiparisListesi.rowCount = "0") ShowMessage({"title":"Uyarı","message":"@@Arp.Title Carisine Ait Bekleyen Sipariş Bulunamadı","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() PopupView(@SiparisListesi.rows, {"mode":"list","title":"Sipariş Listesi","fields":["SlipDate|Tarih|50|L","SlipNumber|Sipariş No|30|L"]},@SiraSecim) OrderSlip.Get(@SiparisListesi.rows.@SiraSecim.Id) If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Sipariş Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() BelgeTarihi: Input(0,0,"Belge/Fatura Tarihi Giriniz",{"type":"date","min":"1-1-2020","max":"31-12-2099"}, @Tarih) Set(@Tarih,"@Tarih.1"+"."+"@Tarih.2"+"."+"@Tarih.3") If(@Tarih.isDate!="0", Goto(TarihHata)) TarihHata: Beep(2) ShowMessage({"title":"Uyarı","message":"Hatalı Tarih\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(BelgeTarihi) BelgeNo: Input(0,0,"Belge No:",{"type":"text","min":"1","max":"16"}, @BelgeNo) Goto(SiparisKontrol) SiparisKontrol: If(@@OrderSlip.Id = "") ShowMessage({"title":"Hata","message":"Sipariş Çağırma Hatası","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() FisTipiCagir: CustomSlipType.Get("SlipType = 1 AND ErpRecordTrCode = 1 AND ErpRecordType = 2") If(@@CustomSlipType.Id = "", Goto(FisTipiHatasi)) Goto(EmirKontrol) FisTipiHatasi: Beep(2) ShowMessage({"title":"Uyarı","message":"Satınalma İrsaliyesi İçin Fiş Tipi Çağırılamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EmirKontrol: WorkOrder.Get("OrderSlipId = @@OrderSlip.Id AND CustomSlipTypeId = @@CustomSlipType.Id AND DocumentNumber = '@BelgeNo' AND DocumentDate = '@Tarih'") If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Emir Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() If(@@WorkOrder.Id = "") WorkOrder.New({"SlipType":"1","DocumentNumber":"@BelgeNo","DocumentDate":"@Tarih"},1) If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Emir Oluşturma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() EndIf() Goto(SiparisKontrol) SiparisKontrol: Slip.Get("OrderSlipId = @@OrderSlip.Id AND CustomSlipTypeId = @@CustomSlipType.Id AND DocumentNumber = '@BelgeNo' AND DocumentDate = '@Tarih'") If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Fiş Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() If(@@Slip.Id = "") Slip.New({"SlipType":"1", "DocumentNumber":"@BelgeNo","DocumentDate":"@Tarih"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Emir Oluşturma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() EndIf() GoForm(SiparisKabulSatirlar) EndForm() BeginForm(UrunKabulBekleyenler) ClearScreen() KeyFunction("ESC",GoForm(SiparisKabulSatirlarEsc)) Text(0,0,"Bekleyen Ürünler") Text(1, 1, "@@Arp.Title") Text(1, 2, "@@OrderSlip.SlipNumber - @@Slip.DocumentNumber") Sql("SELECT * FROM dbo.NetGetOrderWaitingLinesByItemTotals(@@OrderSlip.Id, 0) WHERE ISNULL((RemainingAmount), 0) > 0",@BekleyenSatirlar) TableView(@BekleyenSatirlar.rows, 2, 8,{"rows":"100","columns":["ItemName|Ürün|3|L","RemainingAmount|Bekleyen|1|L"]}) Input(1, 10,"Geri Dönmek İçin ESC/Enter",{"type":"text","min":"0","max":"10"}, @Temp) EndForm() BeginForm(UrunKabulOkutulanlar) ClearScreen() KeyFunction("ESC",GoForm(SiparisKabulSatirlarEsc)) Text(0,0,"Okutulan Ürünler") Text(1, 1, "@@Arp.Title") Text(1, 2, "@@OrderSlip.SlipNumber - @@Slip.DocumentNumber") Sql("SELECT * FROM dbo.NetGetTransactionDetailBySlipId(@@Slip.Id)",@OkutulanSatirlar) TableView(@OkutulanSatirlar.rows, 2, 8,{"rows":"100","columns":["ItemName|Ürün|3|L","Quantity|Okutulan|1|L","Container|Palet|1|L","TrackingNumber|Lot|1|L","ExpirationDate|SKT|1|L"]}) Input(1, 10,"Geri Dönmek İçin ESC/Enter",{"type":"text","min":"0","max":"10"}, @Temp) EndForm() BeginForm(SiparisKabulSatirlarEsc) ClearScreen() KeyFunction("ESC",GoForm(SiparisKabulSatirlarEsc)) MenuItem(SiparisKabulSatirlar,"Geri Dön","",1) MenuItem(UrunKabulOkutulanlar,"Okutulan Ürünlerin Listesi","",1) MenuItem(UrunKabulBekleyenler,"Bekleyen Ürünlerin Listesi","",1) MenuItem(UrunKabulBitir,"İşlemi Sonlandır / Fişi Kapat","",1) MenuItem(AnaMenu,"Ana Menü","",1) MenuRun(1,1,"Sipariş Kabul İşlem Menüsü") EndForm() BeginForm(UrunKabulBitir) KeyFunction("ESC",GoForm(SiparisKabulSatirlarEsc)) ClearScreen() Text(0,0,"Sipariş Kabul İşlem Sonu") Set(@Liste,{"rows":[{"SutunAdi":"Cari","Deger":"@@Arp.Title"},{"SutunAdi":"Sipariş Tarihi","Deger":"@@OrderSlip.SlipDate"},{"SutunAdi":"Sipariş No","Deger":"@@OrderSlip.SlipNumber"},{"SutunAdi":"Belge No","Deger":"@@Slip.DocumentNumber"},{"SutunAdi":"Belge Tarihi","Deger":"@@Slip.DocumentDate"}]}) CallForm(ShowProcess) Text(1, 9, "Fiş Kapatılacak") Input(1, 10,"[1] Onay: ",{"type":"text","min":"0","max":"10"}, @Secim) If(@Secim != "1", GoForm(SiparisKabulSatirlarEsc)) CustomState.Get("RecordType = 161 AND StateName = 'Entegre Edildi'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Kapalı Duruma Getirilemedi\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() Slip.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() WorkOrder.Get(@@WorkOrder.Id) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() CustomState.Get("RecordType = 159 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi İçin Özel Durum Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() WorkOrder.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() CustomState.Get("RecordType = 153 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Sipariş İçin Özel Durum Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() OrderSlip.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Sipariş Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SiparisKabulSatirlarEsc) EndIf() Beep(1) ShowMessage({"title":"Bilgi","message":"Kayıt Başarılı","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndForm() BeginForm(ShowProcess) ClearScreen() TableView(@Liste.rows, 0, 9,{"rows":"8","columns":["SutunAdi||40|L","Deger||40|L"]}) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Listeleme Hatası\n@Response.Message","buttons":"Tamam"},@Temp) EndIf() ReturnForm() EndForm() BeginForm(SiparisKabulSatirlar) KeyFunction("ESC",GoForm(SiparisKabulSatirlarEsc)) ContainerType.Get("Code = 'PALET'") If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Taşıma Kabı Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() If(@@ContainerType.Id = "") Beep(2) ShowMessage({"title":"Hata","message":"Palet Tanımı Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() Baslangic: ClearScreen() ResetVariables({"name":["@@WorkOrderLine", "@@OrderSlipLine", "@@Item"]}) Text(0,0,"@@OrderSlip.SlipNumber - @@Arp.Title") KeyFunction("F1",GoForm(UrunKabulBekleyenler)) KeyFunction("F2",GoForm(UrunKabulOkutulanlar)) Goto(BekleyenKontrol) BekleyenKontrol: Sql("SELECT * FROM dbo.NetGetOrderWaitingLinesByItemTotals(@@OrderSlip.Id, 0) WHERE ISNULL((RemainingAmount), 0) > 0",@BekleyenSatirlar) If(@BekleyenSatirlar.rowCount = "0", Goto(SiparisTamamlandi)) Goto(AdresSet) SiparisTamamlandi: ShowMessage({"title":"Hata","message":"Siparişin Tamamı Karşılandı\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(UrunKabulBitir) AdresSet: Address.Get("Address='G01' and WarehouseId=@@Warehouse.Id") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Adres Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() If(@@Address.Id = "") Beep(2) ShowMessage({"title":"Hata","message":"G01 Adresi Tanımlı Değil\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"}]}) CallForm(ShowProcess) GoTo(PaletSor) PaletSor: ResetVariables({"name":["@@Container","@PaletBarkodu"]}) Input(0,0,"Palet Barkodunu Okutunuz",{"type":"text", "min":"1", "max":"11"}, @PaletBarkodu) Container.Get("LPN='@PaletBarkodu'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Taşıma Kabı Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(PaletSor) EndIf() If(@@Container.Id = "") Beep(2) ShowMessage({"title":"Hata","message":"Palet Bulunamadı\nSistemden Palet Barkodu Ürettirmelisiniz.\n@Response.Message","buttons":"Tamam"},@Temp) Goto(PaletSor) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"}]}) CallForm(ShowProcess) Goto(PaletAdresKontrol) PaletAdresKontrol: Sql("SELECT * FROM GetContainerAdressInfo(@@Container.Id)", @PaletAdresKontrol) If(@PaletAdresKontrol.rowCount = "0" OR @PaletAdresKontrol.rows.1.AddressId = @@Address.Id, Goto(UrunSor)) Beep(2) ShowMessage({"title":"Hata","message":"Palet @PaletAdresKontrol.rows.1.Address Adresinde Kayıtlı\nMal Kabulü Bu Palete Yapamazsınız.@Response.Message","buttons":"Tamam"},@Temp) Goto(PaletSor) UrunSor: ResetVariables({"name":["@@Item"]}) Input(0,0,"Ürün Kodunu ya da Barkodunu Okutunuz",{"type":"text", "min":"1", "max":"11"}, @BarkodYaDaKod) UnitBarcode.Get("Barcode='@BarkodYaDaKod' AND Barcode <> ''") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Barkod Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(UrunSor) EndIf() If(@@Item.Code="") Item.Get("Code = '@BarkodYaDaKod'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Ürün Kodu Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(UrunSor) EndIf() EndIf() If(@@Item.Code="") Beep(2) ShowMessage({"title":"Uyarı","message":"Ürün Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(UrunSor) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Urun","Deger":"@@Item.Name"}]}) CallForm(ShowProcess) Goto(UrunSiparisDurumuKontrol) UrunSiparisDurumuKontrol: Sql("SELECT * FROM dbo.NetGetOrderWaitingLinesByItemTotals(@@OrderSlip.Id, @@Item.Id)",@ItemOrderTotals) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Ürün Kontrol Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() If(@ItemOrderTotals.rowCount = "0", Goto(UrunSiparisteYok)) If(@ItemOrderTotals.rows.1.RemainingAmount <= "0", Goto(UrunTamamlanmis)) Goto(LotKontrol) UrunTamamlanmis: ShowMessage({"title":"Uyarı","message":"Ürünün Tamamı Karşılanmış\nSipariş Miktarı: @ItemOrderTotals.rows.1.OrderQuantity\nOkutulan Miktar: @ItemOrderTotals.rows.1.ShippedQuantity\n@Response.Message","buttons":"Tamam"},@Temp) Goto(LotKontrol) UrunSiparisteYok: ShowMessage({"title":"Hata","message":"Ürün Siparişte Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(UrunSor) LotKontrol: If(@@Item.TrackingType = "1", Goto(LotSor)) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Urun","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":""},{"SutunAdi":"Son Kullanma T.","Deger":""}]}) CallForm(ShowProcess) Goto(MiktarSor) LotSor: Input(0,0,"Lot Numarasını Giriniz",{"type":"text", "min":"1", "max":"11"}, @LotNo) Goto(SonKullanmaTarihiSor) SonKullanmaTarihiSor: Input(0, 0, "Son Kullanma Tarihi Giriniz",{"type":"date","min":"1-1-2020","max":"31-12-2099"}, @Tarih) Set(@Tarih,"@Tarih.1"+"."+"@Tarih.2"+"."+"@Tarih.3") If(@Tarih.isDate!="0", Goto(TarihHata)) Set(@SonKullanmaTarihi, @Tarih) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Urun","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"}]}) Goto(MiktarSor) MiktarSor: Input(0,0,"Miktar",{"type":"decimal","min":"0.01","max":"999999.0"}, @Miktar) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Urun","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@Miktar"}]}) CallForm(ShowProcess) Goto(MiktarKontrol) MiktarKontrol: Sql("SELECT * FROM dbo.NetGetOrderWaitingLinesByItemTotals(@@OrderSlip.Id, @@Item.Id)",@ItemOrderTotals) If(@ItemOrderTotals.rows.1.RemainingAmount < @Miktar,Goto(MiktarFazla)) Goto(Onay) MiktarFazla: Beep(2) ShowMessage({"title":"Uyarı","message":"Girdiğiniz Miktar Siparişte Belirtilen Değeri Aşıyor.\nSipariş Miktarı: @ItemOrderTotals.rows.1.OrderQuantity\nBekleyen Miktar: @ItemOrderTotals.rows.1.RemainingAmount\nYine de Devam Edilsin mi?","buttons":"Onayla|Vazgeç"},@Onay) If(@Onay != "1", Goto(MiktarSor)) Goto(Onay) Onay: Input(1,10,"[1] İşlem Onayı:",{"type":"int","min":"0","max":"99999"}, @Secim) If(@Secim != "1", GoTo(IptalMi)) Goto(Kayit) IptalMi: Beep(2) ShowMessage({"title":"İptal Onayı","message":"Yapılan İşlem İptal Edilecek!","buttons":"Onayla|Vazgeç"},@Onay) If(@Onay != "1", Goto(Onay)) Goto(Baslangic) Kayit: Text(1,10,"Kayıt Yapılıyor") Sql("SELECT * FROM dbo.NetGetOrderWaitingLinesByItem(@@OrderSlip.Id, @@Item.Id)",@BekleyenSatirlar) For(@i,1,@BekleyenSatirlar.rowCount,1) If(@Miktar > "0") Set(@OrderSlipLineId, @BekleyenSatirlar.rows.@i.OrderSlipLineId) Set(@RemainingAmount, @BekleyenSatirlar.rows.@i.RemainingAmount) Set(@TempMiktar, 0) If(@Miktar >= @RemainingAmount) Set(@Miktar, @Miktar - @RemainingAmount) Set(@TempMiktar, @RemainingAmount) Else() If(@Miktar < @RemainingAmount) Set(@TempMiktar, @Miktar) Set(@Miktar, @Miktar - @RemainingAmount) EndIf() EndIf() OrderSlipLine.Get(@OrderSlipLineId) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"@i Sıradaki Karşılanacak @OrderSlipLineId Referanslı Sipariş Satırı Okunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() WorkOrderLine.New({"SlipType":"1","Quantity" :"@TempMiktar"}, 0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Yeni Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() SlipLine.New({"SlipType":"1","Quantity" :"@TempMiktar"}, 0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Yeni Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() If(@@Item.TrackingType = "0") WorkOrderLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Lotsuz Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() SlipLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Lotsuz Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() Goto(Baslangic) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@TempMiktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Takipli Ürün Kayıt Hatası -4-\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@TempMiktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Takipli Ürün Kayıt Hatası -5-\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() EndIf() Next() Goto(Baslangic) EndForm() BeginForm(CariSecim) Baslangic: ClearScreen() ResetVariables({"name":["@@Arp"]}) ShowMessage({"title":"Cari Seçimi","message":"Arama Şekli Seçiniz","buttons":"Vergi No|Unvan"}, @Secim) CaseGoto(@Secim, {"1":"VergiNo","2":"CariUnvan"}) VergiNo: Input(0,0,"Vergi No Giriniz",{"type":"text", "min":"1", "max":"11"}, @VergiNo) Arp.Get("ISNULL(TaxNumber, '') = '@VergiNo'") If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Cari Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() Goto(SecimOnay) CariUnvan: Input(0,0,"Cari Unvan Giriniz",{"type":"text", "min":"1", "max":"20"}, @CariUnvan) Arp.List("Title LIKE @CariUnvan + N'%'","Title Asc", @Liste) If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Cari Listeleme Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() If(@Liste.rowCount = "0") ShowMessage({"title":"Hata","message":"Kayıt Bulunamadı","buttons":"Yeniden Ara|Vazgeç"}, @Secim) CaseGoto(@Secim, {"1":"CariUnvan", "2":"GeriDon"}) EndIf() PopupView(@Liste.rows, {"mode":"list","title":"Cari Listesi","fields":["Title|Unvan|30|L"]},@SiraSecim) If(@SiraSecim = "0") ShowMessage({"title":"Hata","message":"Hatalı Seçim","buttons":"Yeniden Ara|Vazgeç"}, @Secim) CaseGoto(@Secim, {"1":"CariUnvan", "2":"GeriDon"}) EndIf() ShowMessage({"title":"Seçim Onayı","message":"@Liste.rows.@SiraSecim.Title Carisi Seçildi.\nİşleme Devam Edilsin Mi?","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim = "1") Arp.Get(@Liste.rows.@SiraSecim.Id) If(@Response.Status != "0") ShowMessage({"title":"Hata","message":"Cari Listeleme Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() Goto(GeriDon) EndIf() Goto(CariUnvan) SecimOnay: Set(@Secim, "0") If(@@Arp.Id = "") ShowMessage({"title":"Hata","message":"Cari Bulunamadı","buttons":"Yeniden Ara|Vazgeç"}, @Secim) CaseGoto(@Secim, {"1":"Baslangic", "2":"GeriDon"}) EndIf() ShowMessage({"title":"Seçim Onayı","message":"@@Arp.Title","buttons":"Onayla|Vazgeç"},@Secim) CaseGoto(@Secim, {"1":"GeriDon", "2":"Baslangic"}) GeriDon: ReturnForm() EndForm() BeginForm(MenuSevk) ClearScreen() KeyFunction("ESC",GoForm(AnaMenu)) MenuItem(SiparisTopla,"Siparis Topla","",1) MenuItem(SiparisPaketle,"Paketleme","",1) MenuRun(0,1,"Sevk Menü") EndForm() BeginForm(UnderConstruction) ShowMessage({"title":"Uyarı","message":"Bu Menü Yapım Aşamasındadır","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndForm() BeginForm(SiparisTopla) CallForm(UnderConstruction) EndForm() BeginForm(SiparisPaketle) CallForm(UnderConstruction) EndForm() BeginForm(DepoIslemAmbarTransferi) KeyFunction("ESC",GoForm(MenuDepoIciIslemler)) Baslangic: ClearScreen() Text(0, 0, "Ambar Transferi") KaynakDepoSecimi: ResetVariables({"name":["@@Warehouse, @@Warehouse2"]}) Warehouse.List("", "", @DepoListesi) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Depo Listesi Çekilemedi\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EndIf() PopupView(@DepoListesi.rows, {"mode":"list","title":"Depo Listesi","fields":["Code|Depo Kodu|20|L","Name|Depo Adı|20|L"]},@SiraSecim) If(@SiraSecim = "0",Goto(KaynakDepoSecimi)) ShowMessage({"title":"Seçim Onayı","message":"Seçim: [@DepoListesi.rows.@SiraSecim.Code] @DepoListesi.rows.@SiraSecim.Name","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim != "1", Goto(KaynakDepoSecilmedi)) Warehouse.Get(@DepoListesi.rows.@SiraSecim.Id) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Kaynak Depo Çekilemedi\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EndIf() If(@@Warehouse.Id = "", Goto(KaynakDepoSecilmedi)) Goto(HedefDepoSecimi) KaynakDepoSecilmedi: ShowMessage({"title":"Uyarı","message":"Kaynak Depo Seçilmeli","buttons":"Tamam"},@Temp) Goto(KaynakDepoSecimi) DepoIslemlereGit: GoForm(MenuDepoIciIslemler) HedefDepoSecimi: ResetVariables({"name":["@@Warehouse2"]}) PopupView(@DepoListesi.rows, {"mode":"list","title":"Depo Listesi","fields":["Code|Depo Kodu|20|L","Name|Depo Adı|20|L"]},@SiraSecim) If(@SiraSecim = "0",Goto(HedefDepoSecimi)) ShowMessage({"title":"Seçim Onayı","message":"Seçim: [@DepoListesi.rows.@SiraSecim.Code] @DepoListesi.rows.@SiraSecim.Name","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim != "1",Goto(HedefDepoSecilmedi)) Goto(HedefDepoSet) HedefDepoSet: Warehouse.Get(@DepoListesi.rows.@SiraSecim.Id,@@Warehouse2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Depo Çekilemedi\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EndIf() If(@@Warehouse2.Id = "", Goto(HedefDepoSecilmedi)) Goto(FisAc) HedefDepoSecilmedi: ShowMessage({"title":"Uyarı","message":"Hedef Depo Seçilmeli","buttons":"Tamam"},@Temp) Goto(HedefDepoSecimi) FisAc: ResetVariables({"name":["@@WorkOrder", "@@SlipOrder", "@@WorkOrderLine", "@@SlipOrderLine", "@@CustomSlipType"]}) CustomSlipType.Get("SlipType = 3 AND name = 'Ambar Transfer Fişi'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Ambar Fiş Tipi Tanımsız\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EndIf() If(@@CustomSlipType.Id = "", Goto(AmarFisTipiTanimsiz)) Goto(EmirKontrol) AmarFisTipiTanimsiz: Beep(2) ShowMessage({"title":"Uyarı","message":"Ambar Transfer Fişi Sistemde Tanımlı Değil\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EmirKontrol: WorkOrder.Get("SlipType = 3 AND CreatedBy = @@LoginUser.Id AND CustomSlipTypeId = @@CustomSlipType.Id AND StateId <> 14 AND WarehouseId = @@Warehouse.Id AND Warehouse2Id = @@Warehouse2.Id") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EndIf() If(@@WorkOrder.Id="") WorkOrder.New({"SlipType":"3"}, 1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EndIf() EndIf() StokFisiKontrol: Slip.Get("SlipType = 3 AND CreatedBy = @@LoginUser.Id AND CustomSlipTypeId = @@CustomSlipType.Id AND StateId <> 14 AND WarehouseId = @@Warehouse.Id AND Warehouse2Id = @@Warehouse2.Id") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EndIf() If(@@Slip.Id="") Slip.New({"SlipType":"3"}, 1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goform(MenuDepoIciIslemler) EndIf() EndIf() Yonlendir: Goform(DepoIciIslemlerAmbarTransferiSatirlar) EndForm() BeginForm(DepoIciIslemlerAmbarTransferiSatirlarESC) ClearScreen() KeyFunction("ESC",GoForm(DepoIciIslemlerAmbarTransferiSatirlarESC)) MenuItem(DepoIciIslemlerAmbarTransferiSatirlar,"Geri Dön","",1) MenuItem(DepoIciIslemlerAmbarTransferiSatirlarBitir,"İşlemi Bitir / Fişi Kapat","",1) MenuItem(AnaMenu,"Ana Menü","",1) MenuRun(0,1,"Ambar Transfer İşlem Menüsü") EndForm() BeginForm(DepoIciIslemlerAmbarTransferiSatirlarBitir) ClearScreen() Set(@WorkOrderId, @@WorkOrder.Id) Text(0, 0, "Ambar Transfer Sonu") Text(1, 1, "@@Warehouse.Name - @@WorkOrder.SlipNumber") Text(1, 7, "Fiş Kapatılacak") Input(1, 8,"[1] Onay: ",{"type":"text","min":"0","max":"10"}, @Secim) If(@Secim != "1", GoForm(DepoIciIslemlerAmbarTransferiSatirlar)) Slip.Generate() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Oluşturma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() CustomState.Get("RecordType = 161 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Durum Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() Slip.Save() If(@Response.Status != 0) ClearLines(12, 13) ShowMessage({"title":"Uyarı","message":"Stok Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() WorkOrder.Get(@WorkOrderId) If(@Response.Status != 0) ClearLines(12, 13) ShowMessage({"title":"Uyarı","message":"Emir Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() CustomState.Get("RecordType = 159 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Durum Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() WorkOrder.Save() If(@Response.Status != 0) ClearLines(12, 13) ShowMessage({"title":"Uyarı","message":"Emir Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() ShowMessage({"title":"Bilgi","message":"Kayıt Başarılı","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndForm() BeginForm(DepoIciIslemlerAmbarTransferiSatirlar) KeyFunction("ESC",GoForm(DepoIciIslemlerAmbarTransferiSatirlarESC)) Baslangic: ResetVariables({"name":["@@Item","@@Address", "@LotNo", "@Adres", "@PaletBarkod", "@Tarih"]}) ClearScreen() Text(0, 0, "Ambar Transferi - @@Warehouse.Name | @@Warehouse2.Name") Adres: Input(0,0,"Kaynak Adresi Okutunuz",{"type":"text","min":"1","max":"16"}, @Adres) Address.Get("Address='@Adres' and WarehouseId=@@Warehouse.Id") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Kaynak Adres Çağırılamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Adres) EndIf() If(@@Address.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Adres Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Adres) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"}]}) CallForm(ShowProcess) GoTo(Palet) Palet: ResetVariables({"name":["@@ContainerType", "@@Container", "@Onay", "@PaletBarkod"]}) Input(0,0,"Kaynak Palet Barkodunu Okutunuz",{"type":"text","min":"1","max":"16"}, @PaletBarkod) GoTo(PaletKontrol) PaletKontrol: Container.Get("LPN = '@PaletBarkod'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Palet) EndIf() If(@@Container.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Palet) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"}]}) CallForm(ShowProcess) Goto(Barkod) Barkod: ResetVariables({"name":["@@Item"]}) Input(0,0,"Ürün Kodu Ya Da Barkodu",{"type":"text","min":"1","max":"16"}, @BarkodYaDaKod) UnitBarcode.Get("Barcode='@BarkodYaDaKod' AND Barcode <> ''") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Barkod Arama Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Barkod) EndIf() If(@@Item.Code="") Item.Get("Code = '@BarkodYaDaKod'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Ürün Kodu Arama Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Barkod) EndIf() EndIf() If(@@Item.Code="") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fiş Satır Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Barkod) EndIf() UrunBilgisi: Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"}]}) CallForm(ShowProcess) If(@@Item.TrackingType = "0") Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":""},{"SutunAdi":"Son Kullanma T.","Deger":""}]}) Goto(Miktar) EndIf() LotKontrol: Input(0,0,"Lot Bilgisi Giriniz", {"type":"text", "min":"1", "max":"50"}, @LotNo) Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":""}]}) CallForm(ShowProcess) Goto(SktKontrol) SktKontrol: Input(0, 0, "Son Kullanma Tarihi",{"type":"date","min":"1-1-2010","max":"31-12-2099"}, @Tarih) Set(@Tarih,"@Tarih.1"+"."+"@Tarih.2"+"."+"@Tarih.3") If(@Tarih.isDate!="0", Goto(TarihHata)) Set(@SonKullanmaTarihi, @Tarih) Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"}]}) CallForm(ShowProcess) Goto(Miktar) TarihHata: Beep(2) ShowMessage({"title":"Uyarı","message":"Hatalı Tarih\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(SktKontrol) Miktar: Input(0,0,"Miktar Giriniz",{"type":"decimal","min":"0.01","max":"999999.0"}, @Miktar) Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@Miktar @@ItemUnit.Code"}]}) CallForm(ShowProcess) Goto(HedefAdres) HedefAdres: Input(0, 0, "Hedef Adres",{"type":"text","min":"1","max":"16"}, @HedefAdres) Address.Get("Address='@HedefAdres' and WarehouseId=@@Warehouse2.Id",@@Address2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Adres Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefAdres) EndIf() If(@@Address2.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Adres Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefAdres) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@Miktar @@ItemUnit.Code"},{"SutunAdi":"Hedef Adres","Deger":"@@Address2.Address"}]}) CallForm(ShowProcess) GoTo(HedefPalet) HedefPalet: ResetVariables({"name":["@@ContainerType", "@@Container2", "@Onay", "@PaletBarkod"]}) Input(0, 0, "Hedef Palet Barkodu",{"type":"text","min":"1","max":"16"}, @HedefPaletBarkod) HedefPaletKontrol: Container.Get("LPN = '@HedefPaletBarkod'",@@Container2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Palet Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefPalet) EndIf() If(@@Container2.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefPalet) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Kaynak Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Hedef Depo","Deger":"@@Warehouse2.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@Miktar @@ItemUnit.Code"},{"SutunAdi":"Hedef Adres","Deger":"@@Address2.Address"},{"SutunAdi":"Hedef Palet","Deger":"@@Container2.LPN"}]}) CallForm(ShowProcess) Goto(KayitOnay) KayitOnay: Input(1, 10, "[1] İşlem Onayı:",{"type":"int","min":"0","max":"99999"}, @Secim) If(@Secim != "1", GoTo(IptalMi)) Goto(Kayit) IptalMi: ShowMessage({"title":"Uyarı","message":"İşlemler İptal Edilecek","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim = "1",Goto(Baslangic)) Goto(KayitOnay) Kayit: ClearLines(10,10) Text(1, 10, "Kayıt Yapılıyor") WorkOrderLine.New({"SlipType":"3","Quantity" :"@Miktar"},0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Yeni Satır Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() SlipLine.New({"SlipType":"3","Quantity" :"@Miktar"},0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Yeni Satır Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() If(@@Item.TrackingType = "0") WorkOrderLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Takipsiz Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() SlipLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Takipsiz Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() Goto(Baslangic) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@Miktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Takipli Satır Kayıt Hatası -4-\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@Miktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Takipli Satır Kayıt Hatası -5-\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() Goto(Baslangic) EndForm() BeginForm(DepoIslemPaletEtiketiUret) KeyFunction("ESC",GoForm(MenuDepoIciIslemler)) YaziciListesi: ClearScreen() Text(0, 0, "Palet Etiketi Üret") Printer.List("","",@PrinterList) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Yazıcı Listesi Çekilemedi\n@Response.Message","buttons":"Tamam"},@choice) GoForm(MenuDepoIciIslemler) EndIf() Goto(YaziciSecim) YaziciSecim: PopupView(@PrinterList.rows, {"mode":"list","title":"Yazıcı Listesi","fields":["Name|Yazıcı Adı|10|L","Description|Tanımı|20|L"]},@SiraSecim) If(@SiraSecim = "0",Goto(YaziciListesi)) ShowMessage({"title":"Seçim Onayı","message":"[@PrinterList.rows.@SiraSecim.Name]\n@PrinterList.rows.@SiraSecim.Description","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim = "1",Goto(Baslangic)) Goto(YaziciListesi) Baslangic: Input(0, 0,"Kaç Adet Üretilecek (1 ile 10 Arasında Bir Sayı Giriniz)",{"type":"int","min":"1","max":"10"}, @Miktar) ShowMessage({"title":"Uyarı","message":"Etiket Basılsın Mı?","buttons":"Evet|Hayır"},@Onay) ContainerType.Get("Code = 'PALET'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Tipi Seçilemedi\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() For(@i,1,@Miktar,1) ResetVariables({"name":"@@Container"}) Container.Generate({"Count":"1"}) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"@i Sırasında Palet Üretilemedi\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() If(@Onay = "1") Print("PaletEtiketi",@PrinterList.rows.@SiraSecim.Id,1,{"Id":"@@Container.Id"}) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"@i Sırasında Palet Etiketi Yazdırılamadı\n@Response.Message","buttons":"Tamam"},@Temp) EndIf() EndIf() Next() GoForm(MenuDepoIciIslemler) EndForm() BeginForm(DepoIslemPaletEtiketiYaz) KeyFunction("ESC",GoForm(MenuDepoIciIslemler)) YaziciListesi: ClearScreen() Text(0, 0, "Palet Etiketi Yaz") Printer.List("","",@PrinterList) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Yazıcı Listesi Çekilemedi\n@Response.Message","buttons":"Tamam"},@choice) GoForm(MenuDepoIciIslemler) EndIf() Goto(YaziciSecim) YaziciSecim: PopupView(@PrinterList.rows, {"mode":"list","title":"Yazıcı Listesi","fields":["Name|Yazıcı Adı|10|L","Description|Tanımı|20|L"]},@SiraSecim) If(@SiraSecim = "0",Goto(YaziciListesi)) ShowMessage({"title":"Seçim Onayı","message":"[@PrinterList.rows.@SiraSecim.Name]\n@PrinterList.rows.@SiraSecim.Description","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim = "1",Goto(Baslangic)) Goto(YaziciListesi) Baslangic: ClearScreen() Text(0, 0, "Palet Etiketi Yaz") PaletSor: Input(0, 0,"Palet Barkodu",{"type":"text","min":"1","max":"16"}, @PaletBarkodu) If(@PaletBarkodu = "", Goto(PaletSor)) PaletSorgula: Container.Get("LPN = '@PaletBarkodu'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Sorgulama Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() If(@@Container.Id = "", Goto(PaletBulunamadi)) Goto(EtiketYaz) PaletBulunamadi: Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(PaletSor) EtiketYaz: Print("PaletEtiketi",@PrinterList.rows.@SiraSecim.Id,1,{"Id":"@@Container.Id"}) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Yazdırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) EndIf() GoForm(MenuDepoIciIslemler) EndForm() BeginForm(DepoIslemYerDegistir) ClearScreen() Set(@MenuBasligi, "Yer Değiştirme") ResetVariables({"name":"@@Address"}) GoForm(YerDegistirmeSatirlar) EndForm() BeginForm(YerDegistirmeBitir) ClearScreen() KeyFunction("ESC",GoForm(YerDegistirmeBitir)) MenuItem(YerDegistirmeSon,"İşlemi Bitir","", 1) MenuItem(YerDegistirmeSatirlar,"Geri Dön","", 1) MenuItem(AnaMenu,"Ana Menü","", 1) MenuRun(0,1,"@MenuBasligi") EndForm() BeginForm(YerDegistirmeSon) KeyFunction("ESC",GoForm(YerDegistirmeBitir)) ClearScreen() Text(1, 0, "Yer Değiştirme İşlem Sonu") Set(@WorkOrderId, @@WorkOrder.Id) Text(1, 1, "Emir Numarası : @@WorkOrder.SlipNumber") Text(1, 2, "Stok Fiş Numarası : @@Slip.SlipNumber") ShowMessage({"title":"Onay","message":"Fiş Kapatılsın Mı?","buttons":"Evet|Hayır"},@Secim) If(@Secim != "1") GoForm(YerDegistirmeSatirlar) EndIf() CustomState.Get("RecordType = 161 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi İçin Özel Fiş Durumu Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() Slip.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() WorkOrder.Get(@WorkOrderId) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() CustomState.Get("RecordType = 159 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi İçin Özel Fiş Durumu Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() WorkOrder.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() ShowMessage({"title":"Bilgi","message":"Kayıt Başarılı","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndForm() BeginForm(YerDegistirmeSatirlar) KeyFunction("ESC",GoForm(YerDegistirmeBitir)) ResetVariables({"name":["@@WorkOrder","@@Slip","@@SlipOrderLine","@@WorkOrderLine","@@CustomSlipType","@@Container", "@@Container2","@@Item", "@@WarehouseId", "@@Warehouse2Id"]}) Baslangic: ClearScreen() Text(0,0,"@MenuBasligi - @@Warehouse.Name") Adres: Input(0,0,"Kaynak Adres Okutunuz",{"type":"text","min":"1","max":"16"}, @Adres) Address.Get("Address='@Adres'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Adres Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Adres) EndIf() If(@@Address.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Adres Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Adres) EndIf() Warehouse.Get(@@Warehouse.Id, @@Warehouse2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Depo Atanamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Adres) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"}]}) CallForm(ShowProcess) Goto(Palet) Palet: ResetVariables({"name":["@@Container", "@@Container2"]}) Input(0,0,"Kaynak Palet Barkodunu Okutunuz",{"type":"text","min":"1","max":"16"}, @PaletBarkod) ContainerType.Get("Code = 'PALET'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Tipi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Baslangic) EndIf() If(@@ContainerType.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Sistemde Palet Tanımı Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuUrunKabul) EndIf() GoTo(PaletKontrol) PaletKontrol: Container.Get("ContainerTypeId = @@ContainerType.Id AND LPN = '@PaletBarkod'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Palet) EndIf() If(@@Container.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Palet) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"}]}) CallForm(ShowProcess) Goto(Barkod) Barkod: Input(0,0,"Ürün Kodu Ya Da Barkodu",{"type":"text","min":"1","max":"16"}, @BarkodYaDaKod) UnitBarcode.Get("Barcode='@BarkodYaDaKod' AND Barcode <> ''") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Barkod Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Barkod) EndIf() If(@@Item.Code="") Item.Get("Code = '@BarkodYaDaKod'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Ürün Kodu Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Barkod) EndIf() EndIf() If(@@Item.Code="") ShowMessage({"title":"Uyarı","message":"Ürün Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Barkod) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"}]}) CallForm(ShowProcess) If(@@Item.TrackingType = "0", GoTo(Miktar)) LotKontrol: Input(0,0,"Lot Bilgisi Giriniz", {"type":"text", "min":"1", "max":"50"}, @LotNo) Set(@Liste,{"rows":[{"SutunAdi":"Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"}]}) CallForm(ShowProcess) SktKontrol: Input(0,0,"Son Kullanma Tarihini Giriniz",{"type":"date","min":"1-1-2010","max":"31-12-2099"}, @Tarih) Set(@Tarih,"@Tarih.1"+"."+"@Tarih.2"+"."+"@Tarih.3") If(@Tarih.isDate!="0", Goto(TarihHata)) Set(@SonKullanmaTarihi, @Tarih) Set(@Liste,{"rows":[{"SutunAdi":"Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"}]}) CallForm(ShowProcess) Goto(Miktar) TarihHata: ShowMessage({"title":"Uyarı","message":"Hatalı Tarih\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(SktKontrol) Miktar: Input(0,0,"Miktar",{"type":"decimal","min":"0.01","max":"999999.0"}, @Miktar) Set(@Liste,{"rows":[{"SutunAdi":"Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Miktar","Deger":"@Miktar"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@@ItemUnit.Code"}]}) CallForm(ShowProcess) Goto(HedefAdres) HedefAdres: Input(0,0,"Ürünü Taşımak İstediğiniz Adresi Giriniz",{"type":"text","min":"1","max":"16"}, @HedefAdres) Address.Get("Address='@HedefAdres' AND WarehouseId = @@Warehouse.Id", @@Address2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Adres Seçilemedi\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefAdres) EndIf() If(@@Address2.Id = "") ShowMessage({"title":"Uyarı","message":"Hedef Adres Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefAdres) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@@ItemUnit.Code"},{"SutunAdi":"Hedef Adres","Deger":"@@Address2.Address"}]}) CallForm(ShowProcess) Goto(HedefPalet) HedefPalet: Input(0,0,"Ürünü Taşımak İstediğiniz Palet Barkodunu Giriniz",{"type":"text","min":"1","max":"16"}, @HedefPalet) Container.Get("LPN = '@HedefPalet'", @@Container2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Palet Seçilemedi\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefPalet) EndIf() If(@@Container2.Id != "", Goto(KayitOnay)) ShowMessage({"title":"Uyarı","message":"Hedef Palet Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefPalet) KayitOnay: Set(@Liste,{"rows":[{"SutunAdi":"Depo","Deger":"@@Warehouse.Name"},{"SutunAdi":"Kaynak Adres","Deger":"@@Address.Address"},{"SutunAdi":"Kaynak Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@Miktar @@ItemUnit.Code"},{"SutunAdi":"Hedef Adres","Deger":"@@Address2.Address"},{"SutunAdi":"Hedef Palet","Deger":"@@Container2.LPN"}]}) CallForm(ShowProcess) Input(1,10,"[1] İşlem Onayı:",{"type":"int","min":"0","max":"99999"}, @Secim) If(@Secim != "1", GoTo(IptalMi)) Goto(Kayit) IptalMi: Beep(2) ShowMessage({"title":"İptal Onayı","message":"Yapılan İşlem İptal Edilecek!","buttons":"Onayla|Vazgeç"},@Onay) If(@Secim != "1", Goto(KayitOnay)) Goto(Baslangic) Kayit: Text(1, 10, "Kayıt Yapılıyor..") CustomSlipType.Get("Name = 'Yer Değiştirme Fişi'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Yer Değiştirme Fiş Tipi Seçilemedi\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() Set(@WarehouseId,@@Warehouse.Id) Set(@Warehouse2Id,@@Warehouse2.Id) Set(@LoginUserId,@@LoginUser.Id) Set(@WorkOrderId,@@WorkOrder.Id) WorkOrder.Get("SlipType = 3 AND WarehouseId = @WarehouseId AND Warehouse2Id = @Warehouse2Id AND CreatedBy = @LoginUserId and StateId <> 14 and CONVERT(DATE, SlipDate) = CONVERT(DATE, GETDATE())") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fiş Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() If(@@WorkOrder.Id="") WorkOrder.New({"SlipType":"3"}, 1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Transfer Emir Fişi Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() EndIf() Slip.Get("WorkOrderId = @WorkOrderId AND SlipType = 3 AND WarehouseId = @WarehouseId AND Warehouse2Id = @Warehouse2Id AND CreatedBy = @LoginUserId and StateId <> 14 and CONVERT(DATE, SlipDate) = CONVERT(DATE, GETDATE())") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() If(@@Slip.Id="") Slip.New({"SlipType":"3"}, 1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Transfer Stok Fişi Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() EndIf() WorkOrderLine.New({"SlipType":"3","Quantity" :"@Miktar"}, 0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Yeni Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() SlipLine.New({"SlipType":"3","Quantity" :"@Miktar"}, 0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Yeni Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(Baslangic) EndIf() If(@@Item.TrackingType = "0") WorkOrderLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) EndIf() SlipLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) EndIf() Goto(Barkod) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@Miktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != 0) Beep(2) ShowMessage({"title":"Uyarı","message":"Takipli Satır Kayıt Hatası -4-\n@Response.Message","buttons":"Tamam"},@Temp) EndIf() ItemTracking.New({"LineType":"5","Quantity":"@Miktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != 0) Beep(2) ShowMessage({"title":"Uyarı","message":"Takipli Satır Kayıt Hatası -5-\n@Response.Message","buttons":"Tamam"},@Temp) EndIf() Goto(Baslangic) EndForm() BeginForm(PaletYerlestirmeBitir) ClearScreen() KeyFunction("ESC",GoForm(PaletYerlestirmeBitir)) MenuItem(PaletYerlestirmeSon,"İşlemi Bitir","", 1) MenuItem(DepoIslemPaletYerlestir,"Geri Dön","", 1) MenuItem(AnaMenu,"Ana Menü","", 1) MenuRun(0,1,"@MenuBasligi") EndForm() BeginForm(PaletYerlestirmeSon) KeyFunction("ESC",GoForm(PaletYerlestirmeBitir)) ClearScreen() Set(@WorkOrderId, @@WorkOrder.Id) Text(0,0,"Palet Yerleştirme Sonu") Text(1,1,"Emir Numarası: @@WorkOrder.SlipNumber") Text(1,2,"Fiş Numarası : @@Slip.SlipNumber") ShowMessage({"title":"Uyarı","message":"Fiş Kapatılacak. Onaylıyor Musunuz?","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim != "1",GoForm(YerDegistirmeSatirlar)) CustomState.Get("RecordType = 161 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fiş Durumu Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(PaletYerlestirmeBitir) EndIf() Slip.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fiş Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(PaletYerlestirmeBitir) EndIf() WorkOrder.Get(@WorkOrderId) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(PaletYerlestirmeBitir) EndIf() CustomState.Get("RecordType = 159 AND StateName = 'Tamamlandı'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Durumu Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(PaletYerlestirmeBitir) EndIf() WorkOrder.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndIf() ShowMessage({"title":"Bilgi","message":"Kayıt Başarılı","buttons":"Tamam"},@Temp) GoForm(AnaMenu) EndForm() BeginForm(DepoIslemPaletYerlestir) KeyFunction("ESC",GoForm(PaletYerlestirmeBitir)) ResetVariables({"name":["@@WorkOrder", "@@WorkOrderLine", "@@Warehouse", "@@Warehouse2", "@@Address", "@@Address2", "@@Slip", "@@SlipOrderLine","@@CustomSlipType", "@@Item", "@@Container", "@@Container2"]}) FisSecimi: Warehouse.Get(@@LoginUser.DefaultWarehouseId) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Varsayılan Depo Atanamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() Warehouse.Get(@@LoginUser.DefaultWarehouseId, @@Warehouse2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Depo Atanamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() If(@@WorkOrder.Id = "") WorkOrder.New({"SlipType":"3"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fişi Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() EndIf() Slip.New({"SlipType":"3"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Stok Fişi Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() Baslangic: ClearScreen() Text(0,0,"Palet Yerleştirme") KaynakPalet: Input(0,0,"Kaynak Paleti Okutunuz",{"type":"text","min":"1","max":"16"}, @KaynakPalet) Container.Get("LPN = '@KaynakPalet'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() If(@@Container.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Palet Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(KaynakPalet) EndIf() Container.Get(@@Container.Id, @@Container2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Palet Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() Text(1,1,"Kaynak Palet:@@Container.LPN") Goto(HedefAdres) HedefAdres: Input(0,0,"Hedef Adresi Okutunuz",{"type":"text","min":"1","max":"16"}, @HedefAdres) Address.Get("Address = '@HedefAdres' AND WarehouseId = @@Warehouse.Id",@@Address2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Adres Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() If(@@Address2.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Adres Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) GoTo(HedefAdres) EndIf() Text(1,2,@@Address2.Address) ClearLines(10,10) Text(1,10,"Kayıt Yapılıyor..") Sql("SELECT WarehouseId, AddressId FROM GetContainerAdressInfo(@@Container.Id)", @PaletBilgi) Address.Get(@PaletBilgi.rows.1.AddressId) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Kaynak Adres Atama Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() Warehouse.Get(@@Address.WarehouseId) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Kaynak Depo Atama Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() Warehouse.Get(@@Address2.WarehouseId, @@Warehouse2) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Hedef Depo Atama Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() WorkOrderLine.New({"SlipType":"3"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Yeni Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(MenuDepoIciIslemler) EndIf() SlipLine.New({"SlipType":"3", "DepartmentId":"1"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Yeni Satır Kayıt Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(DepoIslemPaletYerlestir) EndIf() Goto(Baslangic) EndForm() BeginForm(MenuSayim) ClearScreen() KeyFunction("ESC",GoForm(AnaMenu)) MenuItem(SayimIlk,"İlk Sayım","",1) // Tamamlandı MenuRun(0,1,"Sayım Menü") EndForm() BeginForm(SayimIlk) KeyFunction("ESC", GoForm(MenuSayim)) Baslangic: ClearScreen() Text(0,0,"İlk Sayım") Sql("SELECT DEGER as Sifre FROM XTANIMLAR WHERE TANIM = 'ILKSAYIM'",@List) If(@List.rowCount = "0") ShowMessage({"title":"Uyarı","message":"İlk sayım tanımına ait şifre bulunamadı!","buttons":"Tamam"},@choice) Goform(MenuSayim) EndIf() SifreSor: Input(0,0,"İlk sayıma devam edebilmek için şifre girmelisiniz:",{"type":"text","min":"0","max":"16"}, @Sifre) If(@Sifre != @List.rows.1.Sifre) ShowMessage({"title":"Uyarı","message":"Hatalı Şifre!","buttons":"Tamam"},@choice) Goto(Baslangic) EndIf() DepoSec: CallForm(DepoSecim) If(@@Warehouse.Id = "") ShowMessage({"title":"Uyarı","message":"Depo seçimi yapmadan devam edemezsiniz!","buttons":"Tamam"},@choice) GoTo(Baslangic) EndIf() ResetVariables({"name":["@@WorkOrder", "@@SlipOrder", "@@WorkOrderLine", "@@SlipOrderLine", "@@Arp", "@@CustomSlipType.Id"]}) CustomSlipType.Get("SlipType = 1 AND Name = 'İlk Sayım'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Fiş Türü Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@choice) Goto(Baslangic) EndIf() If(@@CustomSlipType.Id = "") Beep(2) ShowMessage({"title":"Uyarı","message":"İlk Sayım Fiş Türü Tanımı Bulunamadı","buttons":"Tamam"},@choice) Goto(Baslangic) EndIf() WorkOrder.Get("SlipType = 1 AND CONVERT(DATE, SlipDate) = CONVERT(DATE, GETDATE()) AND CreatedBy = @@LoginUser.Id AND StateId <> 14 AND WarehouseId = @@Warehouse.Id") If(@@WorkOrder.Id="") WorkOrder.New({"SlipType":"1"}, 1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Sayım Fişi Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@choice) Goto(Baslangic) EndIf() EndIf() GoForm(SayimSatirlar) EndForm() BeginForm(SayimESC) KeyFunction("ESC",GoForm(SayimESC)) ClearScreen() MenuItem(SayimSatirlar,"Geri Dön","",1) MenuItem(SayimBitir,"İşlemi Bitir","",1) MenuItem(AnaMenu,"Ana Menü","",1) MenuRun(0,1,"Sayım Sonu") EndForm() BeginForm(SayimBitir) ClearScreen() Text(0,0,"Sayım Sonu") Set(@WorkOrderId, @@WorkOrder.Id) ShowMessage({"title":"Kayıt Onayı","message":"Sayım Sonu\nFiş No: @@WorkOrder.SlipNumber\n\nFişi Kapat","buttons":"Onayla|Vazgeç"},@Onay) If(@Secim != "1", GoForm(SayimSatirlar)) WorkOrder.Get(@WorkOrderId) CustomState.Get("RecordType = 159 AND StateName = 'Tamamlandı'") WorkOrder.Save() If(@Response.Status != 0) ClearLines(12, 13) ShowMessage({"title":"Hata","message":"@Response.Message","buttons":"Tamam"},@Onay) GoForm(AnaMenu) EndIf() ShowMessage({"title":"Uyarı","message":"Kayıt Başarılı!","buttons":"Tamam"},@choice) GoForm(AnaMenu) EndForm() BeginForm(SayimSatirlar) KeyFunction("ESC",GoForm(SayimESC)) Baslangic: ClearScreen() Text(0, 0, "Sayım Fişi - @@Warehouse.Name") ResetVariables({"name":["@@Item", "@@Container", "@LotNo", "@Adres", "@PaletBarkod", "@Tarih"]}) Adres: Input(0, 0, "Adresi Giriniz",{"type":"text","min":"1","max":"16"}, @Adres) Address.Get("Address='@Adres' and WarehouseId=@@Warehouse.Id") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Adres Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SayimESC) EndIf() If(@@Address.Id = "") ShowMessage({"title":"Uyarı","message":"Adres Bulunamadı!","buttons":"Tamam"},@choice) GoTo(Adres) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"}]}) CallForm(ShowProcess) GoTo(Palet) Palet: ResetVariables({"name":["@@ContainerType", "@@Container", "@Onay", "@PaletBarkod"]}) ContainerType.Get("Code = 'PALET'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Taşıma Kabı Tipi Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SayimESC) EndIf() Input(0, 0, "Palet Barkodunu Giriniz",{"type":"text","min":"1","max":"16"}, @PaletBarkod) Goto(PaletKontrol) PaletKontrol: Container.Get("ContainerTypeId = @@ContainerType.Id AND LPN = '@PaletBarkod'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Taşıma Kabı Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SayimESC) EndIf() If(@@Container.Id = "") Beep(2) ShowMessage({"title":"Hata","message":"Palet Bulunamadı\nSistemden Palet Barkodu Ürettirmelisiniz.\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Palet) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"}]}) CallForm(ShowProcess) Goto(PaletAdresKontrol) PaletAdresKontrol: Sql("SELECT * FROM GetContainerAdressInfo(@@Container.Id)", @PaletAdresKontrol) If(@PaletAdresKontrol.rowCount = "0", Goto(Barkod)) If(@PaletAdresKontrol.rows.1.AddressId = @@Address.Id, Goto(Barkod)) Beep(2) ShowMessage({"title":"Uyarı","message":"Palet @PaletAdresKontrol.rows.1.Address Adresinde Kayıtlı","buttons":"Tamam"},@choice) Goto(Palet) Barkod: ResetVariables({"name":["@@Item", "@PaletAdresKontrol"]}) Input(0, 0, "Ürün Kodunu ya da Barkodunu Giriniz",{"type":"text","min":"1","max":"16"}, @BarkodYaDaKod) UnitBarcode.Get("Barcode='@BarkodYaDaKod' AND Barcode <> ''") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Ürün Barkod Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SayimESC) EndIf() If(@@Item.Code="") Item.Get("Code = '@BarkodYaDaKod'") If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Hata","message":"Ürün Kodu Çağırma Hatası\n@Response.Message","buttons":"Tamam"},@Temp) GoForm(SayimESC) EndIf() EndIf() If(@@Item.Code="") ShowMessage({"title":"Uyarı","message":"@BarkodYaDaKod Kodlu/Barkodlu Malzeme Bulunamadı!","buttons":"Tamam"},@choice) Goto(Barkod) EndIf() Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"}]}) CallForm(ShowProcess) Goto(UrunBilgisi) UrunBilgisi: If(@@Item.TrackingType = "0", Goto(Miktar)) Goto(LotKontrol) LotKontrol: Input(0,0,"Lot Bilgisi Giriniz", {"type":"text", "min":"1", "max":"50"}, @LotNo) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"}]}) CallForm(ShowProcess) Goto(SktKontrol) SktKontrol: Input(0,0,"Son Kullanma Tarihi Giriniz",{"type":"date","min":"1-1-2010","max":"31-12-2099"}, @Tarih) Set(@Tarih,"@Tarih.1"+"."+"@Tarih.2"+"."+"@Tarih.3") If(@Tarih.isDate!="0", Goto(TarihHata)) Set(@SonKullanmaTarihi, @Tarih) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"}]}) CallForm(ShowProcess) Goto(Miktar) TarihHata: ShowMessage({"title":"Uyarı","message":"Hatalı Tarih","buttons":"Tamam"},@choice) GoTo(SktKontrol) Miktar: Input(0,0,"Miktar Giriniz",{"type":"decimal","min":"0.01","max":"999999.0"}, @Miktar) Set(@Liste,{"rows":[{"SutunAdi":"Adres","Deger":"@@Address.Address"},{"SutunAdi":"Palet","Deger":"@@Container.LPN"},{"SutunAdi":"Ürün","Deger":"@@Item.Name"},{"SutunAdi":"Lot","Deger":"@LotNo"},{"SutunAdi":"Son Kullanma T.","Deger":"@SonKullanmaTarihi"},{"SutunAdi":"Miktar","Deger":"@Miktar"}]}) CallForm(ShowProcess) Goto(Onay) Onay: Input(1,10,"[1] İşlem Onayı:",{"type":"int","min":"0","max":"99999"}, @Secim) If(@Secim != "1", GoTo(IptalMi)) Goto(Kayit) IptalMi: Beep(2) ShowMessage({"title":"İptal Onayı","message":"Yapılan İşlem İptal Edilecek!","buttons":"Onayla|Vazgeç"},@Onay) If(@Onay != "1", Goto(Onay)) Goto(Baslangic) Kayit: WorkOrderLine.New({"SlipType":"1","Quantity" :"@Miktar"}, 0) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Yeni Emir Fiş Satırı Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@choice) EndIf() If(@@Item.TrackingType = "0") WorkOrderLine.Save() If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fiş Satır Hatası\n@Response.Message","buttons":"Tamam"},@choice) EndIf() Goto(Baslangic) EndIf() ItemTracking.New({"LineType":"4","Quantity":"@Miktar","TrackingNumber":"@LotNo","ExpirationDate":"@SonKullanmaTarihi"},1) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Emir Fiş Satırı İçin Lot Hareketi Oluşturulamadı\n@Response.Message","buttons":"Tamam"},@choice) EndIf() Goto(Baslangic) EndForm() BeginForm(SorgulamaPalet) KeyFunction("ESC",GoForm(MenuSorgulama)) Palet: ClearScreen() Text(0, 0, "Palet Sorgulama") ResetVariables({"name":["@@Container"]}) Input(0, 0, "Palet Barkodu",{"type":"text","min":"0","max":"16"}, @Palet) Container.Get("LPN='@Palet'") If(@@Container.Id="") ShowMessage({"title":"Uyarı","message":"Palet Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Palet) EndIf() Text(0,0,"Palet Sorgulama - @@Container.LPN") Listele: //Sql("select ItemName, TotalQuantity, Address from dbo.NetGetStokToplamlariByContainerId(@@Container.Id) WHERE RowNumber >= @SatirNo AND RowNumber <= @SatirNo + 9", @Liste) Sql("select ItemName, TotalQuantity, Address from dbo.NetGetStokToplamlariByContainerId(@@Container.Id)", @Liste) If(@Liste.rowCount = "0") ShowMessage({"title":"Uyarı","message":"Kayıt Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Palet) EndIf() Text(1,1,"Adres:@Liste.rows.1.Address") TableView(@Liste.rows, 1, 8,{"rows":"100","columns":["ItemName|Ürün Adı|40|L","TotalQuantity|Miktar|10|R"]}) Input(1, 10,"Geri Dönmek İçin ESC/Enter",{"type":"text","min":"0","max":"10"}, @Temp) ResetVariables({"name":["@Liste"]}) GoForm(MenuSorgulama) EndForm() BeginForm(SorgulamaUrun) ClearScreen() Text(0, 0, "Ürün Sorgulama") KeyFunction("ESC",GoForm(MenuSorgulama)) Barkod: ResetVariables({"name":["@@Item"]}) Input(0, 0, "Ürün Kodunu ya da Barkodunu Okutunuz",{"type":"text","min":"1","max":"16"}, @BarkodYaDaKod) UnitBarcode.Get("Barcode='@BarkodYaDaKod' AND Barcode <> ''") If(@@Item.Code="") Item.Get("Code = '@BarkodYaDaKod'") EndIf() If(@@Item.Code="") ShowMessage({"title":"Uyarı","message":"Ürün Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Barkod) EndIf() Text(1,1,"@@Item.Name") Listele: Sql("select Address, ContainerLPN, TotalQuantity from NetGetStokToplamlariByItemId(@@Item.Id)", @Liste) TableView(@Liste.rows, 1, 8,{"rows":"100","columns":["Address|Adres|10|L","ContainerLPN|Palet|11|L","TotalQuantity|Miktar|10|R"]}) Input(1, 10,"Geri Dönmek İçin ESC/Enter",{"type":"text","min":"0","max":"10"}, @Temp) ResetVariables({"name":["@Liste"]}) GoForm(MenuSorgulama) EndForm() BeginForm(SorgulamaAdres) KeyFunction("ESC",GoForm(MenuSorgulama)) ClearScreen() Text(0, 0, "Adres Sorgulama") Adres: Input(0,0,"Raf Adresi",{"type":"text","min":"1","max":"16"}, @Adres) Address.Get("Address = '@Adres'") If(@@Address.Id = "") ShowMessage({"title":"Uyarı","message":"Adres Bulunamadı\n@Response.Message","buttons":"Tamam"},@Temp) Goto(Adres) EndIf() Listele: Text(0, 0, "Adres Sorgulama - @@Address.Address") Sql("SELECT * FROM NetGetAdresBazliStokBilgisi(@@Address.Id)", @Liste) PopupView(@Liste.rows, {"mode":"list","title":"Stok Listesi","fields":["ItemName|Ürün Adı|15|L","TotalQuantity|Miktar|10|R"]}, @SiraSecim) If(@SiraSecim = "0", Goto(Adres)) If(@SiraSecim > @Liste.rowCount, Goto(Listele)) Set(@ItemId, @Liste.rows.@SiraSecim.ItemId) Listele2: ResetVariables({"name":["@Liste2"]}) Sql("select Container, TotalQuantity from [dbo].[NetGetAdresBazliStokBilgisiDetay](@@Address.Id, @ItemId)", @Liste2) TableView(@Liste2.rows, 0, 8,{"rows":"100","columns":["Container|Palet|15|L","TotalQuantity|Miktar|10|L"]}) Input(1, 10,"Geri Dönmek İçin ESC/Enter",{"type":"text","min":"0","max":"10"}, @Temp) ResetVariables({"name":["@Liste"]}) GoForm(MenuSorgulama) EndForm() BeginForm(DepoSecim) Baslangic: ClearScreen() Text(0,0,"Depo Seçimi") ResetVariables({"name":["@@Warehouse"]}) Warehouse.List("", "", @DepoListesi) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Depo Listesi Çekilemedi\n@Response.Message","buttons":"Tamam"},@Temp) ReturnForm() EndIf() PopupView(@DepoListesi.rows, {"mode":"list","title":"Depo Listesi","fields":["Code|Depo Kodu|10|L","Name|Depo Adı|20|L"]},@SiraSecim) If(@SiraSecim = "0",ReturnForm()) ShowMessage({"title":"Seçim Onayı","message":"Seçim: [@DepoListesi.rows.@SiraSecim.Code] @DepoListesi.rows.@SiraSecim.Name","buttons":"Onayla|Vazgeç"},@Secim) If(@Secim = "1",Goto(DepoAta)) Goto(Baslangic) DepoAta: Warehouse.Get(@DepoListesi.rows.@SiraSecim.Id) If(@Response.Status != "0") Beep(2) ShowMessage({"title":"Uyarı","message":"Depo Atanamadı\n@Response.Message","buttons":"Tamam"},@Temp) ReturnForm() EndIf() ReturnForm() EndForm()