كيف تحويل الرمز من 000001/2014 الى bl0001/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;