26-02-2014, 03:31 PM
السلام عليكم
الكود التالي ينشئ هذا الرمز : 000001/2014
المطلوب : تحويل الى : BL0001/2014
مع العلم ان نوع الحقل نصي String : ID_SRT
الكود التالي ينشئ هذا الرمز : 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;