Local stringvar d;
Local numbervar l;
Local numbervar i;
d:=ToText (product.number , 6 );
l:=len(d);
 for  i:= l to  1  step - 1   do 
   if mid(d,i, 1 )<>'0' then  exit for;     
 if i = instr( d,',') then i:=instr(d,',') + 1 ;
left (d, i )