function newFactur: string;
var
  lastURUT: integer;
begin
  with QueryName do
  begin
    Close;
    SQL.Text:='SELECT Right(FieldNoFactur,3) '+
              'FROM TableName '+
              'WHERE FieldNoFactur LIKE '+QuotedStr(FormatDateTime('ddmm%',date))+
              ' ORDER BY FieldNoFactur DESC';
    Open;      
    if not isEmpty then
      lastURUT:=Fields[0].AsInteger
    else
      lastURUT:=0;
  end;
  Result:=FormatDateTime('ddmm',date)+FormatFloat('000',lastURUT+1);
end;

var
1:integer;
begin
qfaktur.Active:=false;
qfaktur.SQL.Text:='select * from dft_faktur';
qfaktur.Active:=true;
lbfaktur.Caption:=formatdatetime('ddmm',now)+inttostr((qfaktur.RecordCount)+1);
end;

@khumaedy: gimana sih caranya ngambil tanggal+bulan untuk faktur berurut misal 0209001 tanggal 2, bulan 9, faktur ke1 mohon pencerahannya :shock: :shock:[/quote:58b9f562e5] hasil yg diinginkan seperti yg di cetak BOLD di atas! [quote:58b9f562e5="e_soep"]aq nyoba jg ach...

var
1:integer;
begin
qfaktur.Active:=false;
qfaktur.SQL.Text:='select * from dft_faktur';
qfaktur.Active:=true;
lbfaktur.Caption:=formatdatetime('ddmm',now)+inttostr((qfaktur.RecordCount)+1);
end;

nah yang diambil hasilnya adalah lbfaktur.caption kalau ada yang salah mohon koreksi...makasih...

@e_soep: @imanD kalau fakturnya dihapus, selama tidak dihari yang sama, maka tidak akan ada duplikasi data, coz aq pakai ('ddmm',now)===tanggal sekarang...n nofaktur di index, jd ga' boleh ada data dengan no faktur yang sama...btw makasih koreksinya... :)