Razzak:
As usual, your (and I) are burning the midnight oil. I submitted the bug
selecting V7.0 as the product, making sure to place a note on the comments
that it was a 6.5++ bug.
I tried the MIN command, I think that what I was missing, was the
parenthesis.
This is the eep that I use to call the lower level form, if no records are
present it prompt the user to add new. On return to the main form, the
columns do not show the updated values unless I do the NEXTROW, PREVROW
which obviously does not work on the last record as it returns to the
previous record. I am using the columns not variables as the user need to be
able to edit the filed to override the calculated values.
==========================
EDIT MDI W_fwo_proc AS PROC1 ARRANGE fwo_proc_file BY proc_code ASC +
WHERE fwo_no = .twono AT 50,100,1000,700 NOHEADER
IF SQLCODE = 100 THEN
SET VAR chk_add = 'NO'
choose chk_add FROM #LIST 'YES,NO' AT 20 60 +
TITLE 'DO YOU WANT TO ADD NEW?' CAPTION 'PROCEDURES NOT DEFINED...' +
LINES 3
IF chk_add = 'YES' then
ENTER MDI W_fwo_proc AS PROC1 AT 50,100,1000,700
ENDIF
ENDIF
COMPUTE v_other AS SUM proc_cost_other FROM fwo_proc_file WHERE fwo_no =
.twono
IF v_other IS NULL THEN
SET VAR v_other = $0.00
ENDIF
COMPUTE v_labor AS SUM proc_cost_labor FROM fwo_proc_file WHERE fwo_no =
.twono
IF v_labor IS NULL THEN
SET VAR v_labor = $0.00
ENDIF
COMPUTE v_parts AS SUM proc_cost_parts FROM fwo_proc_file WHERE fwo_no =
.twono
IF v_parts IS NULL THEN
SET VAR v_parts = $0.00
ENDIF
UPDATE fwo_file SET fwcost_other = .v_other, fwcost_labor = .v_labor,
fwcost_parts = .v_parts +
WHERE fwo_no = .twono
RECALC VARIABLES
CLEAR VAR v_other, v_labor, v_parts, chk_add
RECALC TABLES
SAVEROW
NEXTROW
PREVROW
RETURN
==========================
Razzak, hopefully you can work your magic and come up with a solution, as I
indicated, a "REFRESH FORM" command would be awesome....maybe V7.0???
I am looking forward to seeing you in couple of weeks at the 7.0 training.
Javier Valencia, PE
President
Valencia Technology Group, L.L.C.
14315 S. Twilight Ln., Suite #14
Olathe, KS 66062-4571
(913)829-0888
(913)649-2904 FAX
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of A. Razzak
Memon
Sent: Thursday, January 09, 2003 11:52 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: Questions on forms, bugs... Razzak's Reply
At 09:06 PM 1/9/2003 -0600, Javier Valencia wrote:
>Is it just me or we can no longer report bugs for 6.5++?. I tried to
>report a bug to RDCC but under Product, the only option is RBASE
>V7.0 for Windows Private BETA & does this mean that if we find a
>big in 6.5++ we are SOL?
Javier,
No . You are NOT SOL?
If you are able to reliably replicate ANY bug and there is no work around,
you can submit your reliably replicable bug, along with necessary files to:
mailto:[EMAIL PROTECTED]
You can also communicate with dedicated support staff via phone
at 724.733.0053 or e-mail at mailto:[EMAIL PROTECTED]
Note: Before sending anything, make sure that you are able to replicate
the bug.
>Also, a couple of question on forms:
>
>Question 1:
>
>I have a form in which I display information on a vehicle and I would
>like to display a lookup variable with the lowest (MIN) mileage for that
>vehicle based on information on maintenance intervals for different
>maintenance procedures stored in a separate file (schedule). Right
>now I use an eep to calculate this value on entry to the row.:
>
>COMPUTE vnext_rdg AS MIN proc_code_nrdg FROM fsched_file +
>WHERE equip_code = .vequip_code
You need to learn the new Syntax and take advantage of SQL
command to compute the MINimum, MAXimum, SUM, etc.
Example:
SET VAR vNext_Rdg INTEGER = NULL
SELECT (MIN(Proc_Code_nrdg)) INTO vNext_Rdg INDIC ivNext_Rdg +
FROM Fsched_File WHERE Equip_Code = .vEquip_Code
>Is there a way to define a variable in the form to do this, without using
>an eep? I seem to recall doing something similar this once upon a
>time, but I cannot remember exactly how&
Yes you CAN!
Example:
Database: Concomp:
Driving Table: TransDetail
Form: TranForm
Expression:
vMinAmount = (MIN(Netamount)) IN Transmaster WHERE TransID = TransID
Locate that variable on the form and then run that form as:
ENTER USING TranForm
Enter TransID = 4760 and press [Enter]
See what happens!
>Question 2:
>
> From a main form for a file that stores work order information (one), I
> call (via eep)
>a second form for a file that stores the manpower information for the work
>order
>(many), when I exit the second form, the eep calculates a summary of the
>labor
>costs and updates the work order file (using the UPDATE& command) type
>command (SAVEROW, SETFOCUS and RECALC TABLE do not work) or any
>other procedure that would force the main form to refresh.
You need to post more details and a sample of your EEP and related
commands.
Remember, NOTHING is impossible!
Very Best Regards,
Razzak.
