ebis

 

İRSALİYE KAREKODU

İrsaliye karekodu QR Kod formatında hazırlanacaktır.
QR Kod için hata düzeltme seviyesi (EC) en düşük seviye (L) olarakayarlanacaktır.
QR Kod kodlaması için kodlama seti UTF-8 olarak seçilip ECI özelliği açık olarakkodlama yapılacaktır.
oİrsaliye karekodlarının basımı işleminde modül genişliği değeri en az 19.7 mils(0.5 mm)en fazla da 25 mils (0.64 mm) olacak şekilde kullanılacaktır.

İrsaliye karekodunun boyutu azami 4 cm olacak şekilde veri boyutu ayarlanacaktır.Toplam kodlanacak veri büyüklüğü QR kod sürümünü çok büyüterek karekodunkarmaşıklık seviyesini arttırmamak adına 200 karakteri geçmeyecek şekildeoluşturulacaktır. Okunurluğu sağlamak adına kenar boşluğu (Quite Zone yada Margin)genel olarak 4 modül genişliği olarak ayarlanacaktır.

KAREKOD İÇERİK
İrsaliye karekodunda ilk sürüm için aşağıdaki bilgiler yer alacaktır. Bu değerler genel olarak tüm Karekodlu Beton İrsaliyelerinde bulunan değerler olup, yine de özellikle katkı ve lifler ile ilgili alanlar bağlamında bulunmayan bir değer için ilgili alanın boş olarak belirtilmesi gerekecektir.
1.EBİS Tanımlayıcısı ve İçerik Format Sürümü
2.İrsaliye Seri Numarası
3.Üretici Firma Vergi Numarası
4.Sevk Tarihi ve Saati
5.Beton Miktarı
6.Beton Dayanım Sınıfı
7.7/28 Gün Dayanım Gelişim Oranı
8.Kıvam Sınıfı
9.Yoğunluk Sınıfı
10.Klorür İçeriği Sınıfı
11.Agreganın en büyük tane büyüklüğü
12.Su / Çimento Oranı
13.Araç Plaka No
14.Çimento Tipi
15.Kimyasal Katkı
16.Mineral Katkı
17.Lifler

KAREKOD İÇERİK KODLAMASI

İçeriğin kodlanması aşağıdaki tanımlara uygun bir şekilde yapılarak her alan arasında alan ayracı olarak Grup Ayracı karakteri (ASCII 29) kullanılanacaktır. Her alan tanımlı olan sıra numarasına göre ilgili sırada verilecek, ilgili alana ait değer bulunmaması durumunda alan değeri boş olarak geçilerek eğer sonra gelen alan varsa ikinci grup ayraç karakterinden sonra diğer alan bilgisi yazılacaktır. İçerik düzenin ilk sürümünde toplam 17 alan bulunmakta ve toplam 16 grup ayracının kullanılmasını gerektirmektedir.

EBİS Tanımlayıcısı ve İçerik Sürümü
Sıra Numarası : 1
EBİS Tanımlayıcısı olarak “E” harfi kullanılacaktır.
Sürüm bilgisi olarak ilk sürüm için “1” kullanılacaktır.
Örnek : E1

İrsaliye Seri Numarası
Sıra Numarası : 2
Üreticinin İrsaliyeye bastığı seri ve sıra numarasıdır.
10 nümerik karakterlik bir alan öngörülmüştür.
Örnek : “AB12345678”

Üretici Firma Vergi Numarası
Sıra Numarası : 3
Beton Üreticisinin vergi numarasıdır.
10 karakterlik nümerik bir alan öngörülmüştür.
Örnek : “0123456789”

Sevk Tarihi ve Saati:
Sıra Numarası : 4
Betonun sevk edildiği tarihtir.
Dakika çözünürlüğünde veri beklenmektedir.
Veri YYYYAAGGSSDD düzeninde girilmelidir.
YYYY : Dört haneli yıl (2019, 2020 gibi)
AA : iki hane olacka şekilde ay (01,02 … 12)
GG : iki hane olacak şekilde gün(01,02,…30)
SS : iki hane olacak şekilde 24 saatlik düzene göre saat(00,01,02,..22,23)
DD : iki hane olacak şekilde dakika (00,01,….58,59)
Bu alan için 10 karakterlik yer ayrılmıştır.
Örnek : “201909251330”

Beton Miktarı
Sıra Numarası : 5
m3 cinsinden aracın beton yükünü ve ilgili inşaat için sipariş edilen toplamgünlük beton yükünü temsil eder.
Bu alan alfanümerik olacak şekilde beton mikserinin beton yükü ile ilgili inşaatıiçin sipariş edilen toplam günlük beton yükü aralarında “/” (taksim) işaretikonularak yazılacak şekilde öngörülmüştür.
Bu alanda ondalık ifadeler kabul edilmeyecek, en yakın tam sayıkullanılacaktır..
Örnek : 12/60

Beton Dayanım Sınıfı
Sıra Numarası : 6
Betonun karakteristik 15×30 Silindir numune bazında sınıf bilgisini içerir.
C25, C30, C37 yada LC20,LC30, LC30 gibi değerler içerir.
Azami 5 hane olarak öngörülmüştür.
Örnek : C30

7/28 Gün Dayanım Gelişim Oranı
Sıra Numarası : 7
Betonun 7/28 günlük dayanım gelişimini yüzdesel olarak ifade eder.
Örneğin 7/28 dayanım gelişimi 0,7 olan bir beton için 0,7 yazılmalıdır.
Ondalık Ayracı olarak “,” (virgül) kullanılmalıdır.
Örnek : 0,7
Eğer uygulamada basınç dayanım 28 günden daha ileriki bir tarihtebelirlenmesi durumunda 7/XX- ifadesi de eklenerek yüzdesel değer verilir. Budurumda gösterim şu şekilde olmalıdır : 7/56-0,5. Bu ifadeden dayanımın 56günde gerçekleştiği ve 7 gündeki dayanımının 56 gündeki dayanımının %50 siolduğu bilgisi anlaşılacaktır.

Klorür içeriği Sınıfı
Sıra Numarası : 10
Betonun klorür içeriğini onbindelik şekilde gösterildiği alandır.
CL 0,4 klorür içeriği sınıfına ait değer için % 0,40 değeri 0,4 olarak yazılmalıdır.Aynı şekilde CL 1,0 sınıfı için % 1.0 lık değer 1,0 olarak yazılmalıdır.
Ondalık Ayracı olarak “,” (virgül) kullanılmalıdır.
Örnek : 0,4

Agreganın en büyük tane büyüklüğü
Sıra Numarası : 11
Agreganın en büyük anme taş büyüklüğünü (Dmax) mm cinsinden ifade eder.
25 mm değeri 25 olarak yada 22,4 mm için sadece 22,4 girilmelidir
Ondalık Ayracı olarak “,” (virgül) kullanılmalıdır.
Örnek : 22,4

Su / Çimento Oranı
Sıra Numarası : 12
Su çimento oranını yüzdesel olarak ifade eder.
0,41 su/çimento oranına sahip bir beton için sadece 0,41 girilmelidir.
Ondalık Ayracı olarak “,” (virgül) kullanılmalıdır.
Örnek : 0,41

Araç Plaka No
Sıra Numarası : 13
Beton yükünü sevk edecek aracın plakasını ifade eder.
Büyük harfler olacak şekilde boşluksuz birleşik olarak girilmelidir.
10 karakterlik alan öngörülmüştür.
Örnek : 06EBS01

Çimento Tipi
Sıra Numarası : 14
Beton üretiminde kullanılan Çimentoya ait malzeme tipini belirten kısımdır.
Tercihen büyük harfler kullanılmalıdır
Azami 30 karakter olarak öngörülmüştür.

Kimyasal Katkı Tipi
Sıra Numarası : 15
Beton üretiminde kullanılan kimyasal katkılara ait bilginin yer aldığı kısımdır.
Tercihen büyük harfler kullanılmalıdır
Azami 30 karakter olarak öngörülmüştür.

Mineral Katkı Tipi
Sıra Numarası : 16
Beton üretiminde kullanılan mineral katkılara ait bilginin yer aldığı kısımdır.
Tercihen büyük harfler kullanılmalıdır.
Azami 30 karakter olarak öngörülmüştür.

Lifler
Sıra Numarası : 17
Beton üretiminde kullanılan kimyasal katkılara ait bilginin yer aldığı kısımdır.
Tercihen büyük harfler kullanılmalıdır.
Azami 30 karakter olarak öngörülmüştür.

Mysql de mükerrer kayıtları silme

 Mysql içinde bir tablo da oluşan mükerrer kayıttarı nasıl sileriz.

Önce çift kayıtları listeliyoruz.

" SELECT * from ( select MIN(a.id) FROM tablo as a where a.field="istediğinizkosul"

   group by a.id having count(*) > 1)  "

daha sonra oluşan id leri delete ile siliyoruz. Aşağıda sorgunun tamamını bulabilirsiniz.

 DELETE FROM tablo where  tablo.id  IN (

SELECT * from ( select MIN(a.id) FROM tablo as a where a.field="istediğinizkosul"

   group by a.id having count(*) > 1) as ta)

Code Description Project File Line Suppression State Error Couldn't process file .resx due to its being in the Internet or Restricted zone or having the mark of the web on the file. Remove the mark of the web if you want to process these files. sorunun çözümü

 C# de 

Severity    Code    Description    Project    File    Line    Suppression State
Error        Couldn't process file .resx due to its being in the Internet or Restricted zone or having the mark of the web on the file. Remove the mark of the web if you want to process these files. 

Hatasının çözümü

ilgili resx dosyasını note pad ile açın.aşağıdaki satırı olduğu gibi silin.Sorun düzelecektir.

 <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAYAIBgAAAEAIACPAAAAZgAAABYYAAABACAAggEAAPUAAAAXDwAAAQAgAIEBAAB3AgAAIBgCAAEA
        AQBkAAAA+AMAACAYAgABAAEAUgAAAFwEAAAgGAIAAQABAGgAAACuBAAAiVBORw0KGgoAAAANSUhEUgAA
        ACAAAAAYCAYAAACbU/80AAAAVklEQVRIiWP8fy4nhoGN7TrDAIBvHz5qMvw/nmo8EJYzMDAwvFjnY8w0
        UJbDwKgDRh0w6oBRB4w6YNQBow4YdcCoA0YdwPLxw0fNO4scBsTy379/awIAtKoS7vdEFgcAAAAASUVO
        RK5CYIKJUE5HDQoaCgAAAA1JSERSAAAAFgAAABgIBgAAAP6+DUsAAAFJSURBVEiJ7dS9SgNBFIbhd8MW
        IdhaWBlwGn9AUEuL6UT0BhQywR8sBMXGxiY2goUXoDaSFQsD9hpRBiVglSohhdNIeiEIIlhoM8Zlk8Bs
        gpX5YGH4zuEpht2Ffv463vO5THpfZB33S0LpSlnnp4EZ29WmZPYhuugDA8CxI7wNVIBFYN92p0ALnHAE
        f/Lquuh70ABmO8xPgHF7vvO8xIUzLDL6EyhFByaQWyH0DVgZydy7uu2vwgRyDDgMVetC6bqz2g42gUwB
        l0DKVgWhdCEO2hYGDoAJe64DG3HRFtgEcgHYCVVrQulGT7AJ5BBwFpodCaVvu0Gb8N5SGosO2r4K5LpF
        m/DqfHoXmLPdB7AslH7vBfZMICeBJyBpuxfgpsP+lVC6WNb5HL+fdA14jOxVfWAzhAIM0/lNMEAx0o3a
        J5zruP+Kfv5DvgG5eUm03WVsqgAAAABJRU5ErkJggolQTkcNChoKAAAADUlIRFIAAAAXAAAADwgGAAAA
        D69UVgAAAUhJREFUOI2l1D0vZVEUBuDncLgIUQglUWhUEj9AQTmRSBTT0FCq1OIv6HR+gE6h0mhVU04m
        mSC68RGJhPF1c49i7xs7x7k+rjdZOTtrv/s9e33slaET8xj0MW6xhxwLqKGBfVxXHejB70j6yE7Qj2Fc
        Rt8DpqqE8/it47livyPhwDGe0IsssUrkeMRijCBFhjWsxPU/rEfxb2MWNyiE0JeSWw7jKu49apGWVhjD
        n3i4gW10Jftti/cJHVFEO8JQidOWeAc2hQIXuMB0Ba8t8R9CLxdC4VZVd8OXxSdw6jXPO+huwf2S+AAO
        vOb5F0be4X9KPBee/4bQeoS22xLGQXkk1HFW8mUYxV3Jfw5z+J/cuoH76Cvb3xhlevPmO0h5d1jOMS4M
        oCL5a60qzOhvFrgpzNvaFOjMMImZFmJl3GJXSOVPb0dGisMXgWNrSiRzO+UAAAAASUVORK5CYIKJUE5H
        DQoaCgAAAA1JSERSAAAAIAAAABgIBgAAAJtT/zQAAAArSURBVEiJ7c4xAQAACMOwgX/PQwZPaqCZts1j
        +zkHAAAAAAAAAAAAAEiSA1bhBCz3RUomAAAAAElFTkSuQmCCiVBORw0KGgoAAAANSUhEUgAAACAAAAAY
        CAYAAACbU/80AAAAGUlEQVRIie3BAQEAAACCIP+vbkhAAQAA7wYMGAABHuKrVwAAAABJRU5ErkJggolQ
        TkcNChoKAAAADUlIRFIAAAAgAAAAGAgGAAAAm1P/NAAAAC9JREFUSIntzkEBADAIxLBj/n3hATNMBp/U
        QFMzvTnsXc4BAAAAAAAAAAAAAJLkAzNuA6p5FLX1AAAAAElFTkSuQmCC
</value>
  </data>

     

Delphi 7 Jpeg dosyasını BMP dosyasına çevirmek

 Selamlar

projenizin içine  (uses , a  Jpeg ekleyin)

 procedure Jpeg2Bmp(const BmpFileName, JpgFileName: string);
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf32bit;
  Jpg := TJPEGImage.Create;
  try
    Jpg.LoadFromFile(JpgFileName);
    Bmp.Assign(Jpg);
    Bmp.SaveToFile(BmpFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;

yukarıdaki procedure ekleyin.Button click olayında gerekli kodu yazın

Jpeg2Bmp('C:\Yeni klasör\test.Bmp','C:\Yeni klasör\test.jpg');

SSPI Hatası

 Database bağlantınızda SSPI hatası almaya başladı iseniz telaşlanacak bir durum yok.

Net.framework unuzu 6.1 üzerine çıkarın 7.1 gibi.Programınızdaki net.framenizi 7.1 yaptığınızda

bu hata ortadan kalkacaktır.

Tls1.2 nin Cpu yu yorduğu görüldüğü için windowstaki yeni gelen yamalar bu özelliği kapatıyor.Kapattığı için yazılımınız TLS den haberleşemiyor. Net.Framework 7.1 de bu hata giderilmiş durumdadır.

İyi çalışmalar

Delphi ile harddiskimizin boyutunu ve boş alan boyutunu bulmak

Bu yazımızda harddiskimizin toplam boyutunu ve boş alanını bulacağız.
 

 Combobox1 içine kendi elimiz ile (daha sonra otomatik sürücü eklemeyi yazımızda belirtiriz.) Sürücü harflerini girin.(C,D,E) gibi.

Var değişlenimizi public altına yazalım. 

 var
  Disk: Integer;
...

Formumuza bir ComboBox1 ,iki label bir de button koyalım 
eventina aşağıdaki kodu ekleyelim. 

 procedure TForm1.Button1Click(Sender: TObject);
var
  Total, Free: LongInt;
begin
  Total:=DiskSize(Disk) div 1024;
  Free:=DiskFree(Disk) div 1024;
  Gauge1.MaxValue:=Total;
  Gauge1.Progress:=Free;
  Label1.Caption:='Toplam Alan - '+IntToStr(Total);
  Label2.Caption:='Boş Alan - '+IntToStr(Free);
end; 

Combobox1 Change eventına da aşağıdaki kodu ekleyelim. 

 procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Disk:=ComboBox1.ItemIndex+1;
end;

Bir daha ki yazımızda görüşmek üzere. 

Delphi ile Bilgisayarınızın Decimal Parametresini Öğrenmek

 Bu yazımızda bilgisayarın ayarlı olduğu decimal parametresini öğreniyoruz.Muhasebe programları yazarkan her bilgisayarın decimal parametresini düşünmek zorunda kalırsınız.İşte bu örnek kodlar ile decimal konusunda hata yapmazsanız.

GetLocaleInfo fonksiyonunu kullanacağız.

 Formumuza bir label ,bir button koyalım.Click eventına da aşağıdaki kodu yazalım.

procedure TForm1.Button1Click(Sender: TObject);
var
SistemDecimal: PChar;
begin
  SistemDecimal:=StrAlloc(10);
  GetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT, 
    LOCALE_SDECIMAL, 
    MyDecimal, 
    10);
  Label1.Caption:='Sistemin Decimalı - "'+SistemDecimal+'"';
end;

bir sonraki yazımızda görüşmek üzere.