stok kartı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
selman
Üye
Mesajlar: 664
Kayıt: 04 Ara 2003 12:06
Konum: İzmir

stok kartı

Mesaj gönderen selman » 25 Nis 2014 02:26

s.a
Stok kartlarında seri numaralarını nasıl ekleyebiliriz.Delphide

Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 06 Haz 2004 11:35

Re: stok kartı

Mesaj gönderen pasa_yasar » 25 Nis 2014 02:56

seri numarasından kastınız
a. stok kodu (farklı ürünler için farklı seriler ile) mu
b. lot/seri no mu (telefonlardaki seri no gibi)
c. baştan sonra 1..x sıra numarası gibi seri no mu gibi

Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 06 Haz 2004 11:35

Re: stok kartı

Mesaj gönderen pasa_yasar » 25 Nis 2014 02:59

Function TersCevir(no:String):String;
var
Cevrilen:String;
i:Integer;
Begin
i:= 0;
Cevrilen := '';
For i := length(no) DownTo 1 Do
Begin
Cevrilen := Cevrilen + no;
End;
Result := Cevrilen;
End;

Function Numarator(no:String):String;
var
Nmr, Temp, Temp1:String;
Temp2:Char;
i, Tmp:Integer;
Begin
nmr := TersCevir(no);
i:= 0;
while i < length(no) Do
Begin
i := i + 1;
if nmr = '9' Then
begin
nmr := '0';
continue;
End
Else
if (nmr < '9') and (nmr >= '0') Then
Begin
Temp := inttostr(StrToInt(nmr) + 1);
Tmp := i;
Break;
end;
if nmr = 'Z' Then
begin
nmr := 'A';
continue;
End
Else
if (nmr < 'Z') or (nmr >= 'A') Then
Begin
Temp := inttostr(ord(nmr[i]));
Temp := intToStr(StrToInt(Temp) + 1);
Temp := Chr(StrToInt(Temp));
Tmp := i;
Break;
end;
End;
i:= 0;
while i < length(no) do
Begin
i := i + 1;
if tmp = i Then
if (temp[1] <= '9') and (temp[1] >= '0') Then
nmr[i] := temp[1]
Else
Begin
nmr[i] := Temp[1];
End;
nmr[i] := nmr[i];
End;

result := TersCevir(nmr);
End;


// kullanımı
var
a:string;
begin
a:=numarator('20'); veya a:=numarator(table1.fieldbyname('sirano').asstring);

Kullanıcı avatarı
selman
Üye
Mesajlar: 664
Kayıt: 04 Ara 2003 12:06
Konum: İzmir

Re: stok kartı

Mesaj gönderen selman » 25 Nis 2014 03:09

bir stok kartının 10 seri numarası olabilir. her bir ürününün satış yaparken seri numarasına göre satış yapıyor.

Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 06 Haz 2004 11:35

Re: stok kartı

Mesaj gönderen pasa_yasar » 25 Nis 2014 04:20

tam olarak sorununuz her bir stok kartını birden fazla veya bir seri numarası mı atamak. master detail tablosu ile istediğiniz yapabilirsiniz diye düşünüyorum.

ana tablo
stok ID ,stok adı

detail tablo
Seri ID, STOKID, seri no

Cevapla