Belge Numarası Türetmek

function Fn_YeniBelgeNo(Kayit: string; BelgeTipi: string):String;

   Özel ekran çalışmalarında belge numarası türetmek için gerekli
fonksiyon şu şekildedir;

function Fn_YeniBelgeNo(Kayit: string; BelgeTipi:
string):String;

begin

result := '';

with AppQuery do

begin

SQL.Text := 'DECLARE @BELGE_NO AyoDbBelgeNo';

SQL.Text := SQL.Text + ' EXEC PrgProcBtMasBelgeNo’ +QuotedStr(BelgeTipi)+','''','''','+QuotedStr(Kayit)+','
+ QuotedStr(IntToStr(AppInfo.AppSube_Kodu)) + ',''000'',@BELGE_NO OUTPUT';

SQL.Text := SQL.Text + ' SELECT @BELGE_NO AS BELGE_NO';

Open;

if Found then

result := FieldByName('BELGE_NO').AsString;

end;

end;

Bu fonksiyon Kayit
ve BelgeTipi olarak iki
parametre almaktadır.

·        
Kayit
: E ya da H olabilir. E seçimi Belge numaratörünü bir arttırır. H seçimi
 yeni belge numarasını getirir fakat son
numarayı arttırmaz. 

(H  : Yeni
kayıt, kayıt sil, yenile gibi işlemlerde , E   : Kayıt tamamla işleminde seçilmesi daha
uygundur.)

·        
BelgeTipi
: Belge numarasının hangi modüle ait olacağını belirtir. Ör:
Satış faturası için F01 verilmelidir.

Fonksiyonun kodda kullanımı şu şekildedir.

BELGE_NO.TEXT:=Fn_YeniBelgeNo('E','F02');

Alış faturası modülü için yeni belge no türetir. BELGE_NO
editine yazar ve son numarayı bir artırır.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
mervenur.demic Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Ekim 2018 Durum: Aktif Değil Puanlar: 262	Mesaj Seçenekleri Yanıt Yaz Alıntı mervenur.demic Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Belge Numarası Türetmek Gönderim Zamanı: 25 Ekim 2018 Saat 14:39
	Özel ekran çalışmalarında belge numarası türetmek için gerekli fonksiyon şu şekildedir; function Fn_YeniBelgeNo(Kayit: string; BelgeTipi: string):String; begin result := ''; with AppQuery do begin SQL.Text := 'DECLARE @BELGE_NO AyoDbBelgeNo'; SQL.Text := SQL.Text + ' EXEC PrgProcBtMasBelgeNo’ +QuotedStr(BelgeTipi)+','''','''','+QuotedStr(Kayit)+',' + QuotedStr(IntToStr(AppInfo.AppSube_Kodu)) + ',''000'',@BELGE_NO OUTPUT'; SQL.Text := SQL.Text + ' SELECT @BELGE_NO AS BELGE_NO'; Open; if Found then result := FieldByName('BELGE_NO').AsString; end; end; Bu fonksiyon Kayit ve *BelgeTipi* olarak iki parametre almaktadır. · *Kayit :* E ya da H olabilir. E seçimi Belge numaratörünü bir arttırır. H seçimi yeni belge numarasını getirir fakat son numarayı arttırmaz. (H : Yeni kayıt, kayıt sil, yenile gibi işlemlerde , E : Kayıt tamamla işleminde seçilmesi daha uygundur.) · *BelgeTipi :* Belge numarasının hangi modüle ait olacağını belirtir. Ör: Satış faturası için F01 verilmelidir. Fonksiyonun kodda kullanımı şu şekildedir. BELGE_NO.TEXT:=Fn_YeniBelgeNo('E','F02'); Alış faturası modülü için yeni belge no türetir. BELGE_NO editine yazar ve son numarayı bir artırır.