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

[Anter2010]

السلام عليكم

عذرا اخي فعلت هذا مسبقا لكن لم تعمل معي لم افهم لماذا

PHP كود :

NewNvente := 'BL0001/'+intTostr(year); 


يقبل السجل الاول فقط عند محاولت اضافة سجل ثاني لا يقبل


واضع الكود الثاني في الحدث

PHP كود :

procedure TDM.L_ventesAfterInsert(DataSet: TDataSet);
begin
L_ventes.edit;
L_ventesID_SRT.value := NewNvente;

end;