01-03-2014, 10:17 PM
للحصول على هذه الصيغة n° f 0001/2014
بقيت طريقة إرجاع رقم الفاتورة للـ 1 في السنة الجديدة
كود :
procedure TForm3.Timer2Timer(Sender: TObject);
var
Year : String ;
begin
Year := FormatDateTime ('yyyy',now) ;
edit5.Text :=
'N° F '+ Format ('%0.6d/',[Adotable1.RecordCount+1])+ year ;
end;
لا إله إلا الله محمد رسول الله