############################################################## #** #* devuelve el valor correspondiente al coste oferta #* #* @param PS_NUM > número #* @param PS_NDEC > número de decimales #*! Funprog REDONDEA_ALZA(PS_NUM,PS_NDEC) Value Decimal PS_NUM,PS_NDEC Local Char LSTR(30) Local Decimal LPOT : LPOT = 1 Local Integer LCON LSTR = format$("N:5."+num$(PS_NDEC),PS_NUM) LSTR = ctrans(LSTR,",",".") For LCON=1 To PS_NDEC LPOT = LPOT * 0.1 Next End val(LSTR) + LPOT
Recopilación de trucos e información para el desarrollo de aplicaciones en Sage X3 que pertenecen a otros autores y algunos propios