Page History
KAREKOD BARKOD UYGULAMA DESTEĞİ
2 Şubat 2008 tarihli ve 26775 sayılı Resmî Gazete' de yayımlanan "BEŞERİ TIBBI ÜRÜNLER AMBALAJ VE ETİKETLEME YÖNETMELİĞİ DEĞİŞİKLİK YAPILMASINA DAİR YÖNETMELİK" in Geçici 2'nci maddesine göre 16.05.2009 tarihinden itibaren ilaç ambalajlarında karekod bulundurma mecburiyeti olacaktır.
İlaç takip sistemi (İTS) gereği ilaç ambalajlarında halen kullanılmakta olan barkodların yanı sıra, yine üretici firma tarafından ürün kodu, seri numarası, her seri için yeniden başlayan sıra numarası, üretim tarihi ve son kullanma tarihi bilgilerini içeren bir Kare kod basılacaktır. İlaç takip sisteminde ilaçların eczanelerde satışı yine karekod (Datamatrix) barkod ile yapılacaktır.
Karekod Nedir ?
Karekod en basit anlamıyla orijinal adı "Datamatrix" olan iki boyutlu barkodlara verilen Türkçe isimdir. Karekod (Datamatrix) tipi barkodlar, klasik tek boyutlu (çizgilerden oluşan) barkodlardan farklı olarak beyaz ve siyah kare veya dikdörtgenlerden oluşan matris yapıdaki bir barkod türüdür.
Karekod Tipi Barkodların Avantajı Nedir?
Karekod tipi barkodların avantajı, klasik tek boyutlu barkodlara nazaran daha çok veriyi içerebilmesidir. Karekod barkod, 2.335 karakter içerebilir.
Karekod Barkod İzleme
ALT+CTRL+K tuş kombinasyonu ile karekod barkod ekran açılmaktadır. Açılan ekranda, karekod barkod okuyucu ile okunan barkod bilgisi, karekod barkod içerisindeki bilgilere (GTIN, Sıra No, Son. Kul. Tar ve Parti No) ayrıştırılabilir. Kullanıcıların herhangi bir modülde iken bu programı açarak, okuttukları karekod barkodun içeriğini hızlıca izleyebilmelerini sağlamak amaçlanmıştır. Ayrıca bu seçenek ile programda bilgi amaçlı barkodun içeriği izlenebildiği gibi, karekod barkodlar bu ekrandan okutulduktan sonra, barkod içindeki istenen bilgi kopyalanarak istenilen alana yazdırılabilir.
Karekod barkod okuma ekranı açılması için "CTRL+ALT+K" tuşuna basılır.
Karekod barkod okutulduğu zaman aşağıdaki gibi karekod barkodu verisi ekrana gelecektir.
Karekod un ayrıştırma işlemi örnek koda göre aşağıdaki şekilde yapılır.
Örnek kare barkod= 0108699546020478214253665554041712073110trt005h
GTINSıra NumarasıSon Kullanma TarihiParti Numarası
01 08699546020478 21 425366555404 17 120731 10 trt005h
Ekran üzerinden" barkod ayrıştırıcı tasarım ortamını aç " butonu yer almaktadır. Bu şekilde açılan karekod barkod ekranının iki temel işlevi vardır.
- KareKod Barkod okuyucu ekranından açık olan programdaki hangi alanlara bilgilerin döndürüleceğinin (script ekranı yardımıyla) tanımlamaların yapılması.
- KareKod Barkodtan istenen alana değerin getirilebilmesi.
KareKod Barkod Tanımlamaları
Alt + Ctrl + K tuş kombinasyonu ile açılan karekod barkod ekranından programın genelinde açık olan ekrandaki
herhangi bir alana değer döndürülebilmesi için öncelikle script yardımıyla tanımlamalarının yapılması gerekmektedir. "Barkod ayrıştırıcı tasarım ortamına geçiş" butonu yardımıyla kodlama ekranı açılmalı ve karekod barkodun her bir parçasının kullanımını belirlemek için uygun kod yazılmalıdır.
Örnek Kod,
DATAMATRIX.SetValueToControl "Kod", DATAMATRIX.DMGTIN DATAMATRIX.DoTab
DATAMATRIX.FinalizeScript
Karekod barkod kısayol tuşu ile karekod barkod ekranı hangi alanda açıldıysa, script kod o alan için geçerli olacaktır. Açılan script ekranın alt kısmında bilgilendirme amaçlı yazılan scriptin hangi alan için geçerli olacağı belirtilmektedir.
Karekod Barkod için script giriş ekranı yardımıyla; tuşa basma mesajları gönderme (enter, tab, esc, vb.), barkod içerisindeki bilgilere ulaşma, form üzerindeki herhangi bir alana, grid üzerindeki herhangi bir hücreye veri yazma işlemleri yapılabilir. Script giriş ekranında "yükle" tuşu kullanılarak, daha önce yazılan scriptlerin yüklenmesi de mümkündür.
DATAMATRIX nesnesinin özellikleri ve yöntemleri ile ilgili özellik ve yöntemlerinin listesi kodlama ortamında "nesne tarayıcı"dan görülebilir.
KareKod Barkod Değer Döndürme İşlemi
Kayıt girişleri sırasında okutulan karekod barkodların program tarafından gerektiği şekilde anlaşılabilmesi için, barkodun okutulacağı alan (ya da işlemin başlamasının istendiği alan) içerisindeyken Alt + Ctrl + K tuş kombinasyonu ile karekod ekranı açılmalıdır. Karekod barkod okuyucu ekranının barkod alanı içerisindeyken karekod barkod okutulmalıdır. Barkod okutulduktan sonra, ilgili alan için daha önceden yazılan script çalışır ve barkod bilgisi kullanılarak scriptte belirtilen adımlar gerçekleştirilir.
Kod örnekleri aşağıdaki gibidir,
Alış İrsaliyesi Kalem Bilgilerinden Stok Girişi
DATAMATRIX.SetValueToControl "Kod", DATAMATRIX.DMGTIN DATAMATRIX.DoTab
DATAMATRIX.FinalizeScript
GTIN alanı barkodda tanımlı olduğundan otomatik stok eşleşmesi yapıldı ve kalem girişi ekranına getirdi.
- Alış İrsaliyesi-Seri Takip Ekranı Örneği
DATAMATRIX.DoFocusGrid DATAMATRIX.DoEnter DATAMATRIX.DoLeft
DATAMATRIX.SendKeys DATAMATRIX.DMSerialNo DATAMATRIX.DoEnter
DATAMATRIX.SendKeys DATAMATRIX.DMExpDate DATAMATRIX.DoEnter
DATAMATRIX.SendKeys "1" DATAMATRIX.DoEnter
DATAMATRIX.SendKeys DATAMATRIX.DMLotNo DATAMATRIX.DoEnter
DATAMATRIX.DoRight DATAMATRIX.DoEnter
- Alış İrsaliyesi Seri Rehber Kare Kod Örneği
'Kare barkod işlemleri için "DataMatrix" nesnesini kullanabilirsiniz.
DATAMATRIX.DoFocusGrid DATAMATRIX.DoEnter DATAMATRIX.DoLeft
set rs = NETSISCORE.NETLibDB.GetNewQuery
query = "select SERI_NO,STOK_KODU from TBLSERITRA where SERI_NO ='"& DATAMATRIX.DMSerialNo &"' and STOK_KODU =(select STOK_KODU from TBLSTSABIT where BARKOD1 ='"&datamatrix.DMGTIN&"') "
rs.recsql(query)
if rs.fieldbyname("SERI_NO").asstring = "" then
DATAMATRIX.SendKeys DATAMATRIX.DMSerialNo DATAMATRIX.DoEnter
DATAMATRIX.SendKeys DATAMATRIX.DMExpDate DATAMATRIX.DoEnter
DATAMATRIX.SendKeys "1" DATAMATRIX.DoEnter
DATAMATRIX.SendKeys DATAMATRIX.DMLotNo DATAMATRIX.DoEnter
DATAMATRIX.DoRight DATAMATRIX.DoEnter
else
netsiscore.NetLibWin32.ShowNetsisMesaj "KAREKOD SİSTEMDE KAYITLI!",2
end if
set rs = nothing
- Alış Faturası Kalem Bilgilerinden Stok Girişi
DATAMATRIX.SetValueToControl "Kod", DATAMATRIX.DMGTIN DATAMATRIX.DoTab
DATAMATRIX.FinalizeScript
- Alış Faturası Seri Takip Sayfası Örneği
DATAMATRIX.DoFocusGrid DATAMATRIX.DoEnter DATAMATRIX.DoLeft
DATAMATRIX.SendKeys DATAMATRIX.DMSerialNo DATAMATRIX.DoEnter
DATAMATRIX.SendKeys DATAMATRIX.DMExpDate DATAMATRIX.DoEnter
DATAMATRIX.SendKeys "1" DATAMATRIX.DoEnter
DATAMATRIX.SendKeys DATAMATRIX.DMLotNo DATAMATRIX.DoEnter
DATAMATRIX.DoRight DATAMATRIX.DoEnter
- Stok-İşlemler-Sayım Girişi Örneği
DATAMATRIX.SetValueToControl "STOK_KODU", DATAMATRIX.DMGTIN DATAMATRIX.DoTab
DATAMATRIX.FinalizeScript
- Stok Kartı Kayıtları-Barkod1 Girişi Örneği
DATAMATRIX.SetValueToControl "BARKOD1", DATAMATRIX.DMGTIN DATAMATRIX.DoTab
DATAMATRIX.FinalizeScript
- Stok Kartı Kayıtları-Kullanıcı Tanımlı Sahalar Örneği
DATAMATRIX.SetValueToControl "kull1s", DATAMATRIX.DMGTIN DATAMATRIX.DoTab
DATAMATRIX.FinalizeScript