barkodlu giriş adeti..

[ahadabu]

merhaba herkese kolay gelsin.. barkodla stok takibi yapan bir program hazırlıyorum ama bir yerde takıldım.. yapmak istediğim barkod girişi yapılan edit te şu şekilde bir yapı kullanmak.. örneğin adet * barkod no şeklinde yazıldığı zaman (ör. 3*4582621112 yapıldığında 3 adet) stoktan düşmek adet * kısmı yazılmayıp direk barkod okutulduğunda default olarak 1 adet stoktan düşülmesini sağlamak.. şu anda bu kontrolu adet kısmını bir başka edit içinde belirterek yapıyı kurdum ancak istediğim bu değil.. yardımlarınız için teşekkürler...

[mrmarman]

- Kayıt işleminden önce kod girişi yaptığın edit içeriğinde ( * ) karakteri var mı yok muyu kontrol etmek için POS() komutunu kullanabilirsin. Yoksa soruyu mu anlamadım ?

Kod: Tümünü seç

Var
  Kod    : String;
  Miktar : Integer;
begin
  Kod := Edit1.Text;
  If Pos('*', Kod) > 0 then begin
    Try
      Miktar := StrToInt( Trim( Copy(Kod, 1, Pos('*', Kod)-1) ) );
      System.Delete(Kod, 1, Pos('*', Kod));
    Except
      Miktar := 1;
      System.Delete(Kod, 1, Pos('*', Kod));
    End;
  end else begin
    Miktar := 1;
  end;
  ShowMessageFmt('Kod : %s'#13'Miktar : %d', [Kod, Miktar]);
end;

[White Rose]

s.a.
Adet kısmını ayrı bir edit'e yazın ve buna göre hesaplatma yapın yada;
Girdiğiniz barkod numarasının mevcut satış listesinde olup olmadığını kontrol edin eğer varsa adedini 1 artırın ve buna göre hesaplama yapın.
Kolay gelsin.

[ahadabu]

mrmarman teşekkürler demek istediğim tam olarak buydu... üzerinde uğraşarak istediğim şeye ulaşabilirim.... klavyen dert görmesin...