Check the data type of vkpreis. If it is Currency, it will always have 4 decimal places.

>Hello Everybody !
>
>This one makes me crazy !!??
>I need a field vkpreis with 2 decimals to fill an SAP-System with new prices
>
>ODBC-select:
>
>l_select = "select distinct tsttd1.idtnr,tsttd1.beze as bezeichnung," +;
> "tsttd1.beze," +;
> "tsttd1.me,tsttd1.bezug,mbstd1.PEV," + ;
> "mbstd1.verr,mbstd1.mibe,mbstd1.mbmg,mbstd1.lapl,mbstd1.labes,tsttd1.stgew, " + ;
> "' ' as teileart,' ' as vkme,99999.99 as vkpreis,mbstd1.wibzt " +;
> " from mbstd1,tsttd1 " +;
> " where tsttd1.beze <> ' ' and tsttd1.lkz = ' '" +;
> " and tsttd1.idtnr = mbstd1.idtnr " +;
> " and mbstd1.lgidt like '0700%' " +;
> "order by tsttd1.idtnr"
>
>= sqlexec(conn,l_select,"mydata")
>
>browse
>
>vkpreis = 9999,9900 ????????
>
>
>I scan mydata to fill vkpreis from another cursor
>
>scan
>
>IF INDEXSEEK(idtnr,.T.,"einmal") = .T.
> IF einmal.prsneu > 0
> l_vkpreis = ROUND(einmal.prsneu / 100,2)
> replace vkpreis WITH l_vkpreis
> ELSE
> replace vkpreis WITH 0.00
> endif
>
>
> ELSE
> replace vkpreis WITH 0.00
> endif
>
>endscan
>
>vkpreis = 0,000 or 47,2800 ..... ???????
>
>I do a final select
>
>select distinct SUBSTR(idtnr,1,1) + ALLTRIM(SUBSTR(idtnr,1,23)) as idtnr,beze,me,bezug,pev,;
> verr,mibe,mbmg,lapl,labes,stgew,teileart,vkme,ROUND(vkpreis / 1,2) as vkpreis,wibzt ;
> FROM mydata WHERE DELETED() = .F. INTO CURSOR teilekomplett
>browse
>
> vkpreis = 0,000 or 47,2800 ..... ?????
>
>I want vkpreis with 2 decimals ?????
>
>Any help welcomed
>Best regards
>Albert