Otomatik Stok Kodu?

[NightFox]

Arkadaslar otomatik stok kodu atamam gerekli, bu kodu atarken coklu kayit yapmak icin bir dongu kullaniyorum, stok kodunu uniqe vermesi gerekli ve ilk harf autoinc A..Z kadar ikinci harf 1...22000
ornek stok kodu
a1
b1
c1
..
z1 a1..z1 bitince tekrar
a2
b2
c2
..
z2 a2..z2 bitince tekrar...
a3
b3
c3
..
z3
boyle gidecek..
sanirim en son kayda bakip devam edecek.
yardiminizi rica ediyorum
tesekkurler.


procedure TForm15.Button2Click(Sender: TObject);
var
a,b : integer;
sbuldgrade:string;
begin
if RadioButton1.Checked then begin
sbuldgrade:='A320 GR L7M/A194 GR 7M NUTS';
end;
if RadioButton2.Checked then begin
sbuldgrade:='A320 GR B8M CI.2/A194 GR 8M NUTS';
end;
AdoQuery4.Close;
AdoQuery4.SQL.Clear;
AdoQuery4.SQL.Add('SELECT TORQ,BOLT_DIA,TENSION_A,TENSION_B FROM TORQ_SOURCE WHERE SIZE1 = ('''+Edit8.Text+''') AND CLASS_NAME = ('''+Edit7.Text+''') ');
AdoQuery4.Open;
Edit6.Text:=AdoQuery4.Fields[0].AsString;
b:=StrToInt(Edit1.Text);
for a:=1 to b do
begin
AdoQuery1.Append;
ADOQuery1SYSTEM_NO.AsString:=Combobox1.Text;
ADOQuery1POCKET_NO.AsString:=Combobox2.Text;
ADOQuery1ISO_NO.AsString:=Combobox3.Text;
ADOQuery1AREA_UNIT.AsString:=Edit2.Text;
ADOQuery1CONTRACT.AsString:=Edit4.Text;
ADOQuery1EQUIP_DESC.AsString:=Memo1.Text;
ADOQuery1FLG_NAME.AsString:=Chr(64+a); otomatik stok kodunu buraya yazmak istiyorum.
ADOQuery1SIZE1.AsString:=Edit8.Text+'"';
ADOQuery1SBOLT_GRADE1.AsString:=sbuldgrade;
ADOQuery1BOLT_DIA.AsString:=AdoQuery4.Fields[1].AsString+'mm';
ADOQuery1COPPER_SLIP.AsString:=Edit6.Text+'Nm';
//ADOQuery1DIA:='NOT YET';
//ADOQuery1DRY:=''
//ADOQuery1REMARKS:=''
ADOQuery1CLASS_NAME.AsString:=AdoQuery3.Fields[2].AsString;
ADOQuery1CWP_NO.AsString:=AdoQuery3.Fields[1].AsString;
AdoQuery1.Post;
end;
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('SELECT * FROM FLANGE_TORQ WHERE POCKET_NO='''+Combobox2.Text+''' AND ISO_NO='''+Combobox3.Text+''' ');
AdoQuery1.Open;
end;

[ALUCARD]

viewtopic.php?t=451

[aslangeri]

s.a.
sitede stok kodunu (belki direk stok kodu için verilmemiştir ama sonuçta aynı mantık) otomatik veren kodlar var.
onları inceleyip üzerlerinde biraz modifikasyonla işinizi halledebileceğiniz kanısındayım.
kolay gelsin.

[NightFox]

Arastirmaya devam ediyorum fakat suana kadar basaramadim. fikirleriniz icin tesekkur ederim.

slm.

[yusuf simsek]

Kod: Tümünü seç

procedure Tstok_kart.s_kartBeforePost(DataSet: TDataSet);
var
  sifir : string;
begin
  sifir:='';
  DMstok.QSayarlar.Open;

{ayarlar tablosunda ki Stok numarasının değerini okuyor ve stok kodunun boyutunu 10 karaktere tamamlamak için başına 0 ekliyor...}
      if (s_kartU_KOD.Value = '' ) then
            begin                
            sifir := Copy('0000000',0, ( 7 - length DMstok.QSayarlarUrun_no.AsString) ) );
              s_kartU_KOD.Value := 'SK '+sifir + DMstok.QSayarlarUrun_no.AsString;

              DMstok.QSayarlar.Edit; { ayarlar tablosunda ki Stok numarasının değerini 1 artırıyor.}
              DMstok.QSayarlarUrun_no.AsInteger := DMstok.QSayarlarUrun_no.AsInteger + 1 ;
              DMstok.QSayarlar.Post;
            end;
end;

Ben senin kadar detaylı STOK KODU oluşturmuyorum. Sadece kullanıcı boş bırakırsa STOK KODU üretiyorum.
Ayarlar tablomda INTEGER değerim var.
Stok kosu boşsa bu değeri okuyorum ve başına istediğim string değeri ekliyorum. Umarım işini görür.

[NightFox]

Tesekkurler yardimlariniz icin, yazmaya calisiyorum.

slm.