добавил стирание 2х последних "0"
L=11.012430 /* real
des=10000 /* 1->0, ; 10->0,1; 100->0,01; 1000->0,001
IF floor(L*des)-floor(L)*des!=0
IF extract(itos(L*des) , string_length(itos(L*des))-1 , 2)=="00"
text_l=itos(floor(L))+","+extract(itos(L*des) , string_length(itos(L))+1 ,string_length(itos(L*des))- string_length(itos(L))-2)
ELSE
IF extract(itos(L*des) , string_length(itos(L*des)) ,1)=="0"
text_l=itos(floor(L))+","+extract(itos(L*des) , string_length(itos(L))+1 ,string_length(itos(L*des))- string_length(itos(L))-1)
ELSE