15-04-2019, Saat: 08:24
Arkadaşlar Merhaba ; Tablodaki bir alanım Efatura gereği hem Karakter hemde rakam ifadesi alıyor bende son rakamı bir artırmalıyım şöyle bir kod yaptım ama bu seferde içerisinde yer alan sıfırları siliyor. Çıkmaza girdim yardımcı olabilir misiniz?
Tablodaki Alanın aldığı değer : "GSM000000452689"
Kodda şunu yaptım;
ilk 3 değeri aldım "GSM"
Sonra son 12 değeri "000000452689"
sonra bir arttırmak istedim bu sefer de rakamı karaktere çevirince sıfırlar gitti bir arttı şöyle oldu
Sonra son 12 değeri "452690"
Birleştirince "GSM452690" aradaki sıfırlar kayboldu
Tablodaki Alanın aldığı değer : "GSM000000452689"
Kodda şunu yaptım;
ilk 3 değeri aldım "GSM"
Sonra son 12 değeri "000000452689"
sonra bir arttırmak istedim bu sefer de rakamı karaktere çevirince sıfırlar gitti bir arttı şöyle oldu
Sonra son 12 değeri "452690"
Birleştirince "GSM452690" aradaki sıfırlar kayboldu
procedure TForm23.DBGrid1DblClick(Sender: TObject); Var EFATSERI,EFATSERISN:AnsiString; begin FatuNo.Close; FatuNo.SQL.Clear; FatuNo.SQL.Text:='select MAX(NUMARA) AS SONKAYIT from TBLFATUNO WHERE SUBE_KODU=''0'' AND TIP=''1'' AND NUMARA LIKE ''000%'''; FatuNo.Open; Edit2.Text :=FatuNo.FieldByName('SONKAYIT').Text; EFATSERI := AnsiLeftStr((Edit2.Text),3); EFATSERISN := AnsiMidStr((Edit2.Text),4,12); EFATSERILK.Text := EFATSERI; EFATSERSON.Text := EFATSERISN; Edit2.Text:=(EFATSERILK.Text + IntToStr(StrToInt(EFATSERSON.Text)+1)); Edit5.Text :=FatuNo.FieldByName('SONKAYIT').Text; Edit7.Text:=Label19.Caption+Edit2.Text+DBEdit2.Text;Yapmak istediğim "GSM00000000452690" 15 haneye tamamlamak.