+- 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 - Anter2010 - 26-02-2014
السلام عليكم
الكود التالي ينشئ هذا الرمز : 000001/2014
المطلوب : تحويل الى : BL0001/2014
PHP كود :
procedure TDM.L_ventesBeforeInsert(DataSet: TDataSet);
var i: Integer ;
NewNi :string [6];
NewNvente :string[11];
year,month1,day : word ;
begin
L_ventes.Last;
if L_ventes.isempty = False then
begin
str((strtoint(copy(L_ventesID_SRT.value,1,6))+1):6,NewNi) ;
for i := 1 to Length (NewNi)do
begin
if NewNi[i] = ' ' then NewNi [i] := '0' ;
end;
NewNvente := NewNi+copy(L_ventesID_SRT.value,7,5);
DecodeDate(Date,year,Month1,Day);
if Copy (NewNvente,8,4)<> intTostr (year) then NewNvente := '000001/'+intTostr(year);
end
else
begin
DecodeDate(Date,year,Month1,Day);
NewNvente := '000001/'+intTostr(year);
end;
end;
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - مبرمج مبتدأ - 26-02-2014
غير 000001 بـ bl0001
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - Anter2010 - 26-02-2014
السلام عليكم
عذرا اخي فعلت هذا مسبقا لكن لم تعمل معي لم افهم لماذا
PHP كود :
NewNvente := 'BL0001/'+intTostr(year);
واضع الكود الثاني في الحدث
PHP كود :
procedure TDM.L_ventesAfterInsert(DataSet: TDataSet);
begin
L_ventes.edit;
L_ventesID_SRT.value := NewNvente;
end;
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - مبرمج مبتدأ - 26-02-2014
جرب اكتب شيء آخر
مثلا
كود :
[COLOR=#000000]NewNvente := '[COLOR=Red]Abcde[/COLOR]/'+intTostr(year);[/COLOR]كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - مبرمج مبتدأ - 26-02-2014
أو جرب
كود :
[COLOR=#000000]NewNvente := '[COLOR=Red]0BL0001[/COLOR]/'+intTostr(year[COLOR=#007700]);[/COLOR][/COLOR]كود :
[COLOR=#000000]if Copy (NewNvente,8,4)<> intTostr (year) then NewNvente := '[/COLOR][COLOR=#000000][COLOR=#000000][COLOR=#0000BB][COLOR=#000000][COLOR=Red]0BL0001[/COLOR][/COLOR][/COLOR][/COLOR]/'+intTostr(year);[/COLOR]كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - Anter2010 - 26-02-2014
السلام عليكم
"BL0001/2014"
n'est pas une valeur entière valide
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - مبرمج مبتدأ - 26-02-2014
و عليكم السلام و رحمة الله و بركاته
هل جربت هذا
مبرمج مبتدأ كتب :أو جرب
كود :[color=#000000]newnvente := '[color=red]0bl0001[/color]/'+inttostr(year[color=#007700]);[/color][/color]
كود :[color=#000000]if copy (newnvente,8,4)<> inttostr (year) then newnvente := '[/color][color=#000000][color=#000000][color=#0000bb][color=#000000][color=red]0bl0001[/color][/color][/color][/color]/'+inttostr(year);[/color]
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - Anter2010 - 26-02-2014
السلام عليكم
شكرا على المحاولة اخي
لكن هدفي ان احصل على الطريقة هذه
bl0001/2014
bl0002/2014
bl0003/2014
بارك الله فيك
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - getsource - 26-02-2014
السلام عليكم
الحل سهل جدا
اجعل الحقل من نوع رقمي ودع تسلسل الارقام عادي 1 – 2- 3..... الخ
ثم اجعل خاصيةDisplayFormat للحقل على هذا الشكل : لBL0000
DisplayFormat-BL0000
حينها ستحصل على ماتريد
شرح موضح في صورة مرفقة
وشكرا
كيف تحويل الرمز من 000001/2014 الى bl0001/2014 - Anter2010 - 26-02-2014
السلام عليكم
شكرا على اقتراحك اخي بارك الله فيك
ليس مبتغاي