Delphi 2010 ve Delpi XE2 aynı pc üzerinde kullanımı!
Destek talebi(Lütfen oy verelim!)
Sitemiz üye alımına kapatılmıştır!
! CODEBANK 2012 !
İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
AS DECLARE VARIABLE CYearStr VARCHAR(4); DECLARE VARIABLE CMonthStr VARCHAR(2); DECLARE VARIABLE MonthInt INTEGER; DECLARE VARIABLE EndMonthInt INTEGER; DECLARE VARIABLE OrderNoInt INTEGER; DECLARE VARIABLE AddZero VARCHAR(10); DECLARE VARIABLE OrderNoStr VARCHAR(20); /*Trigger kodunun başlangıcı amac otomatik olarak teklif/sipariş numarası hazırlamak 2011010001,2011010002 gibi Ahmet Nuri DENİZ 01.2011 */ BEGIN IF (NEW.ORDER_NO IS null) THEN BEGIN /*EĞER EL İLE NUMARA YAZILMADI İSE*/ /*DEĞİŞKENLERE DEĞERLERİ ATANIYOR*/ EndMonthInt = gen_id(ORDER_ORDER_NO_MONTH,0); MonthInt = (extract(MONTH FROM CURRENT_DATE)); CYearStr = (CAST (extract(YEAR FROM CURRENT_DATE) AS VARCHAR(4))); /*AY KISIMI 1. AY İÇİN 1 ,2. AY İÇİN 2 OLARAK GELİR 01,02 OLARAK YAZMAK İÇİN KONTROL*/ IF (MonthInt < 10 ) THEN CMonthStr = '0' || (CAST (extract(MONTH FROM CURRENT_DATE) AS VARCHAR(2))); ELSE CMonthStr = (CAST (extract(MONTH FROM CURRENT_DATE) AS VARCHAR(2))) ; /*EĞER YENİ BİR AYA GİRİLMİŞ İSE TEKLİF NUMARASINI TUTUAN TRİGGER SIFIRLANMALI GÜNCEL AYI TUTAN TRİGGER DAKİ AY DEĞERİ GÜNCELLENMELİ */ IF (EndMonthInt <> MonthInt) THEN BEGIN EXECUTE STATEMENT'SET GENERATOR ORDER_ORDER_NO_GEN TO 0' ; EXECUTE STATEMENT'SET GENERATOR ORDER_ORDER_NO_MONTH TO '|| MonthInt; END OrderNoInt = gen_id(ORDER_ORDER_NO_GEN,1); /*TEKLİF NUMARASININ 0001,0002 GİBİ DÖRT BASAMAKLI OLMASI İÇİN AŞAĞIDAKİ GİBİ KONTROL YAPILIYOR*/ IF ((OrderNoInt >=1) and (OrderNoInt < 10)) THEN AddZero = '000' || CAST(OrderNoInt AS VARCHAR(4)); IF ((OrderNoInt >=10) and (OrderNoInt < 100)) THEN AddZero = '00' || CAST(OrderNoInt AS VARCHAR(4)); IF ((OrderNoInt >=100) and (OrderNoInt < 1000)) THEN AddZero = '0' || CAST(OrderNoInt AS VARCHAR(4)); OrderNoStr = CYearStr || CMonthStr || AddZero; NEW.order_no = ordernostr; END END