+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تحويل الرمز من 000001/2014 الى bl0001/2014 (/showthread.php?tid=5976)
الصفحات:
1
2
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - S.FATEH - 26-02-2014
السلام عليكم
ربما ينفعك هذا الموضوع؟
http://www.delphi4arab.net/forum/showthread.php?tid=1515
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - Anter2010 - 27-02-2014
السلام عليكم
توصلت للحل هذا هو :
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;
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - مبرمج مبتدأ - 01-03-2014
سؤال لو أمكن، ماذا عرفت Year ؟
هل هو Word أم Integer
لأنه في كلتا الحاليتن لا تظهر عندي أرقام لا صلة لها بالسنة 2014
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - Anter2010 - 02-03-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;