DELPHI - Autonumbering (penomoran otomatis) pada Stored function MySQL

Selamat malam pemirsa setia :D

mumpung lagi penat sama kerjaan jadi iseng deh bkin blog dlu :D

sekalian bagi2 nih buat para programmer yang lagi pusing mikirin programmingnya :D

maklum sih ya programming udah jadi hobbi buat saya :p (gila x ye masa hobby programming cba -___-)

oke deh tanpa basa basi :D

nih coding buat autonumbering di MySQL (stored function)

nanti hasilnya : B 13 07 22 001

B itu kode ( bisa kamu tentuin sesuai kebutuhan)

13 itu tahun (2013)

07 itu Bulan ( ke-7 )

22 itu Tanggal di bulan itu

001 itu nomor urut bon/nota

jadi tiap hari akan kereset sendirinya, maksudnya?

gini nih :D

misalnya hari ini (22 july 2013) ada 78 transaksi, maka nomor urut terakhir :

B130722078

nah besoknya tanggal (23 july 2013) nomor urutnya akan balik jadi 1 lagi

B130723001

jadi ga akan penuh gan :D

maksimal 1 hari 999 transaksi, 

BEGIN

  declare an char(10);

  declare n char(10);

  set an = concat('B',substr(year(now()),3,2),lpad(MONTH(now()),2,'0'),lpad(DAY(now()),2,'0') );

  

  select max(Nomor_beli) into n from mbeli

  where Nomor_beli like(concat(an,'%'));

  if n is null then

     set n = concat(an,'001');

  else

      set n = concat(an,lpad(substr(n,8,3)+1,3,'0'));

  end if;

  

  return(n);

END

oke deh pemirsa setia :D

sekian dari saya, semoga dapat membantu yah...

jangan lupa selalu kunjungi blog saya :D

banyak source code yang ditempel & dibagikan gratiss :D