delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

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

السلام عليكم

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

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

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

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; 

الصفحات : 1 2

S.FATEH

Anter2010

مبرمج مبتدأ

Anter2010