>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


Your final select:

select distinct PADR(SUBSTR(idtnr,1,1) + ALLTRIM(SUBSTR(idtnr,1,23)), 24) as idtnr,;
                beze,;
                me,;
                bezug,;
                pev,;
                verr,;
                mibe,;
                mbmg,;
                lapl,;
                labes,;
                stgew,;
                teileart,;
                vkme,;
                CAST(ROUND(vkpreis,2) as N(8,2)) as vkpreis,;
                wibzt ;
FROM mydata
WHERE NOT DELETED();
INTO CURSOR teilekomplett
BROWSE NORMAL

browse