victoryupa
9th April 2009, 17:09
Buenos Dias,
Necesito una ayuda trabajo con Baan V, tengo una sesion y dentro de la programacion tengo lo siguiente:
No me realiza es la funion round(expre, 2 1), realice un Debug y no me redondea; necesito desplagar el valor de la variable pre.nor redondeado en una pantalla. Adjunto programa:
|************ declaration section **
declaration:
extern double pre.min | Precio Minimo
extern double pre.sup | precio Super calculado tdisa001.pris * 1.05
extern domain tcitem art.item
extern double s_pre_nor
extern domain tcpric pre.nor
|******* form section **********************************
| form.1:
| before.form:
|****** field section *******************************
field.whwmd215.item:
before.display:
select tdisa001.*
from tdisa001
where tdisa001.item =:whwmd215.item
order by tdisa001.item
selectdo
select tdsls039.*
from tdsls039
where tdsls039.cwar = :whwmd215.cwar
selectdo
select tdpcg030.*
from tdpcg030
where tdpcg030.soof = :tdsls039.cofc
selectdo
pre.nor = round((tdisa001.pris*tdpcg030.prfc),2,1)
|pre.nor = tdisa001.pris*tdpcg030.prfc
endselect
endselect
endselect
Necesito que me indiquen, cual puede ser el error..
Gracias por la ayuda.
Thanks with help.
Necesito una ayuda trabajo con Baan V, tengo una sesion y dentro de la programacion tengo lo siguiente:
No me realiza es la funion round(expre, 2 1), realice un Debug y no me redondea; necesito desplagar el valor de la variable pre.nor redondeado en una pantalla. Adjunto programa:
|************ declaration section **
declaration:
extern double pre.min | Precio Minimo
extern double pre.sup | precio Super calculado tdisa001.pris * 1.05
extern domain tcitem art.item
extern double s_pre_nor
extern domain tcpric pre.nor
|******* form section **********************************
| form.1:
| before.form:
|****** field section *******************************
field.whwmd215.item:
before.display:
select tdisa001.*
from tdisa001
where tdisa001.item =:whwmd215.item
order by tdisa001.item
selectdo
select tdsls039.*
from tdsls039
where tdsls039.cwar = :whwmd215.cwar
selectdo
select tdpcg030.*
from tdpcg030
where tdpcg030.soof = :tdsls039.cofc
selectdo
pre.nor = round((tdisa001.pris*tdpcg030.prfc),2,1)
|pre.nor = tdisa001.pris*tdpcg030.prfc
endselect
endselect
endselect
Necesito que me indiquen, cual puede ser el error..
Gracias por la ayuda.
Thanks with help.