>*!* PROCEDURE conversion >LPARAMETERS lcNumberIn > >Local ; > lcNewpar As String, ; > lcNumberIn As String, ; > lnI As Number, ; > lnParenteel As Number > > >*!* ? lcNumberIn >m.lcNewpar = '' > >For m.lnI = 1 To Len(Alltrim(m.lcNumberIn )) > Do Case > Case !Isdigit(Substr(m.lcNumberIn ,m.lnI,1)) > m.lcNewpar = m.lcNewpar +Substr(m.lcNumberIn ,m.lnI,1) > Case Isdigit(Substr(m.lcNumberIn ,m.lnI,1)) > m.lcNewpar = m.lcNewpar + Iif(Isdigit(Substr(m.lcNumberIn ,m.lnI,1)),Padl(Substr(m.lcNumberIn ,m.lnI,1),2,'0'),Substr(lcParenteel ,m.lnI,1)) > > Endcase >Endfor >m.lcNewpar = Strtran(m.lcNewpar ,'010','1') >m.lcNewpar = Strtran(m.lcNewpar ,'.','') >m.lcNewpar = ALLTRIM(Substr(m.lcNewpar ,2)) >RETURN val(m.lcNewpar) >>