[RBASE-L] - Re: Difference in way 1.864 works

A. Razzak Memon Wed, 18 Jun 2003 18:44:25 -0700

At 11:17 AM 6/12/2003 -0400, Karen Tellef wrote:

I upgraded a client to version 1.864 of RBWin from the
early 1.842 that they were using and ran into a
difference in the way the choose command works.  I had a
menu like this:

  CHOOSE vAsk FROM #VALUES FOR ( +
    LJS(CompanyName,25) & LJS(city,12) & LJS(State,4) ) +
    FROM companies WHERE .....

In version 1.842, if 'City' was null, it would preserve the
space and the 'State' would appear in the last column under
the other states.

But in version 1.864, if City is null but State is not, it
moves the state over into the City column!  Has anyone else
noticed this?  I tested this through version 1.851 and it
operates the old way.  So somewhere after 1.851...

Karen,

I just tried the same scenario in the Next Generation R:BASE 7.0 for
Windows (update 51) and got the CORRECT results using the coool
CHOOSE command.

Example 01:

-- EditContractsByConractNo.EEP
LABEL Start
CLEAR VAR vContractNo, vLines, vRows, vCaption, iv%
SET VAR vRows INTEGER = 0
SET VAR vLines INTEGER = 0
SET VAR vContractNo TEXT = NULL
SET VAR vCaption TEXT = 'Contracts Management System'

SELECT COUNT(*) INTO vRows INDIC ivRows FROM Contracts

IF vRows = 0 THEN
   PAUSE 2 USING 'No Conract(s) on File!' CAPTION .vCaption ICON STOP
   GOTO Done
ENDIF

IF vRows > 20 THEN
   SET VAR vLines = 20
ELSE
   SET VAR vLines = .vRows
ENDIF

CHOOSE vContractNo FOR #VALUES FOR +
((LJS(ContractNo,10))&(LJS(CTXT(EffectiveDate),11)) +
&(LJS(CTXT(TerminationDate),11)) +
&(RJS(CTXT(TotalContractAmt),14))),ContractNo +
FROM Contracts ORDER BY ContractNo +
CHKBOX 1 TITLE 'Select Contract' +
CAPTION .vCaption LINES .vLines FORMATTED +
OPTION List_Font_Color WHITE|List_Back_Color TEAL +
|Title_Font_Color TEAL|Title_Back_Color WHITE +
|Window_Back_Color WHITE|Title_Font_Size 24 +
|Title_Font_Name TIMES NEW ROMAN|Window_Caption +
|Buttons_Show_Glyph ON|Buttons_Back_Color WHITE

IF vContractNo IS NULL OR vContractNo = '[Esc]' THEN
   GOTO Done
ENDIF

EDIT USING ContractsEdit WHERE ContractNo = .vContractNo
GOTO Start

LABEL Done
CLEAR VAR vContractNo, vLines, vRows, vCaption, iv%
RETURN

Have you tried your example using RBG7?

Very Best R:egards,

Razzak.

[RBASE-L] - Re: Difference in way 1.864 works

Reply via email to