CodeUnit Problem

maheshmaurya1987

Hi,
All I have a problem in codeunit,In codeunit i want that if x=12345678 then print it as 15263748.

mohana_cse06

How and what did you try to achieve that?

PeterD

And why?

Just curious

Belias

IF x = 12345678 THEN
  x := 15263748;

Seriously, you should give some more info...I'm not getting the logic of the transformation of that number, can you explain it clearly, in order to avoid wrong suggestions?

Sog

I'm guessing a scramble
(not tested)

what I would do is
scramble(x) = 12345678
insstr(x,',',strlen(x)/2) -> x = 1234,5678
for i := 1 to 2 do
subX selectstr(i,x) -> x = 1234,5678 subX[1]= 1234 subX[2] = 5678

x:='';
for i := 1 to strlen(subX) do begin
x += copystr(subx[1],i,1) + copystr(subx[2],i,1)