Otomatik Fatura Numarası Verme !-[ÇÖZÜLDÜ]

[hi_selamlar]

S.A. Arkadaşlar,

Evet belki çok basit ama inanın kafa basmıyor artı bir türlü yapamadım...

Sorun Şu :
KODU - ÜNVANI --- FT NO
001 - OSMAN - BOŞ
002 - AHMET - BOŞ
002 - AHMET - BOŞ

Tuşa bastığımda otomatik fatura numarası vermesi gerekli. otomatik numarada sıkıntı yok.
Benim istediğim bir önceki kayıt kodu ile şimdiki kayıt kodu aynı ise fatura numaraları aynı kalacak.

Şöyle ki ;
KODU - ÜNVANI --- FT NO
001 - OSMAN - 175
002 - AHMET - 176
002 - AHMET - 176
003 - KADİR - 177
004 - BAHAR -178
004 - BAHAR -178
.....
....

şeklinde devam etmesi.

Ama inanın bir türlü başaramadım. Ya çok uğraştığım için, yada gerçekten artık kafa basmıyor...

Teşekkür ederim.

[csunguray]

Bu bir liste (yani rapor) midir, yoksa kayıt ekranı mıdır? Eğer kayıt ekranıysa Önceki kayıt derken neyi kastediyorsunuz? Son girilmiş kaydı mı?

[hi_selamlar]

Merhaba,

Bir ekran. Grid üzerinde. Kayıtlar daha önceden girilmiş. Sadece fatura numarası bölümü boş.
Kullanıcı bir tuşa basacak başlangıç fatura numarası verilecek ve diğer numaraları ise
sistem yukarıdaki örneğe sadık kalarak işlemi bitirecek.

Önceki kayıt dan kastım, karşılaştırma yaparken bir önceki satır kodu 002 ise üzerinde bulunduğu satır da 002 ise
fatura numarası aynı kalacak.

KULLANICI TUŞA BASTI.
İLK FATURA NUMARASI - 175
gerisini sistem KODU sahasına bakarak aynı kodlara aynı ft. numarasını verecek.

KODU - ÜNVANI --- FT NO
001 - OSMAN - 175
002 - AHMET - 176
002 - AHMET - 176
003 - KADİR - 177
004 - BAHAR -178
004 - BAHAR -178

Teşekkürler.

[csunguray]

Kod: Tümünü seç

var
  SonKodu: String;
  FaturaNo: Integer;
begin
  FaturaNo := 175;
  Query1.First;
  SonKodu := Query1.FieldByname('KODU').AsString;
  while not Query1.Eof do
  begin
    if SonKodu <> Query1.FieldByname('KODU').AsString then
    begin
      FaturaNo := FaturaNo + 1;
      SonKodu := Query1.FieldByname('KODU').AsString;
    end;
    Query1.Edit;
    Query1.FieldByname('FT_NO').AsInteger := FaturaNo;
    Query1.Post;
    Query1.Next;
  end;
end;

olabilir mi?

[hi_selamlar]

Teşekkür ederim.

Deneyip en kısa süre içinde bilgi veriyorum.