Run this:
* Any "Partial" foot is taken to the Next Foot....
WHILE (LASTKEY(0)) <> '[esc]' THEN
CLEAR VAR vres1
DIALOG 'Enter Length in Inches' vres1=4 vk1 1 AT 10
IF (LASTKEY(0)) <> '[enter]' or vk1 = '[esc]' THEN
BREAK
ENDIF
SET VAR vblen INTEGER = (INT(.vres1))
SET VAR vfixlen INTEGER = +
(IFEQ( (MOD(.vblen,12)),0,(.vblen/12),((INT((CTXT(.vblen/12))))) + 1))
SET VAR vmsg = +
('The Amount of BF to relieve from Inventory will be ' + +
(CTXT(.vfixlen)) & 'Feet')
PAUSE 1 USING .vmsg AT CENTER CENTER
ENDWHILE
RETURN
----- Original Message -----
From: "Victor Timmons" <[EMAIL PROTECTED]>
To: "RBASE-L Mailing List" <[EMAIL PROTECTED]>
Sent: Thursday, January 23, 2003 6:15 PM
Subject: [RBASE-L] - Rounding Up Answer
> Problem
> Customer Orders 1 piece of 101' Lumber
> RBase must remove from inventory then next higher 1/2 foot
>
> SET VAR vTrQty1 REAL = 1 --(the number of pieces)
> SET VAR vTrSize1 REAL = 101 --(the size of the piece)
>
> SET VAR vQ1 REAL = (AINT((.vTrQty1 * (.vTrSize1 / 12 ))+.99))
> SET VAR vQ1A REAL = (.vTrQty1 * (.vTrSize1 / 12 ))
> SET VAR vQ1B REAL = (.vQ1 - .vQ1A)
> IF .vQ1B <= .5 THEN
> SET VAR vQ1C = .vQ1
> ELSE
> SET VAR vQ1C = (.vQ1 - .5)
> ENDIF
>
> The answer is the next highest 1/2 foot. In this case 8.5 feet
>
>
