Özel ekran çalışmalarında belge numarası türetmek için gereklifonksiyon ş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 Kayitve BelgeTipi olarak ikiparametre 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 sonnumarayı arttırmaz.

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

·        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_NOeditine yazar ve son numarayı bir artırır.