كيف تحويل الرمز من 000001/2014 الى bl0001/2014

[S.FATEH]

السلام عليكم
ربما ينفعك هذا الموضوع؟
http://www.delphi4arab.net/forum/showthr...p?tid=1515

[Anter2010]

السلام عليكم

توصلت للحل هذا هو :

PHP كود :

procedure TDM.L_ventesAfterInsert(DataSet: TDataSet);
begin
L_ventes.FieldByName('ID_SRT').AsString := 'BL'+
  Format('%0.5d/',[L_ventes.RecordCount+1])+intTostr(year);
end; 


شكرا للجميع

[مبرمج مبتدأ]

سؤال لو أمكن، ماذا عرفت Year ؟
هل هو Word أم Integer
لأنه في كلتا الحاليتن لا تظهر عندي أرقام لا صلة لها بالسنة 2014

[Anter2010]

السلام عليكم
عذرا لم انتبه للسؤالك

PHP كود :

procedure TDM.L_ventesAfterInsert(DataSet: TDataSet);
var year,month1,day : word ;
begin
DecodeDate(Date,year,Month1,Day);
L_ventes.FieldByName('ID_SRT').AsString := 'BL'+
Format('%0.6d/',[L_ventes.RecordCount+1])+ intTostr(year);
end;