Consultor Eletrônico

Status: Unverified

FACT(s) (Environment):

Progress 9.1D

SYMPTOM(s):

AssignColumnColumnLabel fails in 9.1D05

CHANGE:

Applied service pack 05

CAUSE:

Problem is in a change to initializeObject in browser.p. Workaround is:
DO WHILE VALID-HANDLE(hColumn):
cFieldHandles = cFieldHandles +
(IF cFieldHandles NE "":U THEN "," ELSE "":U) + STRING(hColumn).
IF LOOKUP(hColumn:NAME, cEnabledFields) NE 0 THEN
cEnabledHandles = cEnabledHandles +
(IF cEnabledHandles NE "":U THEN ",":U ELSE "":U)
+ STRING(hColumn).
ASSIGN
/*Old code:
hColumn:LABEL = (IF lDynamic THEN
{fnarg columnColumnLabel hColumn:NAME hDataSource}
ELSE
hColumn:LABEL
)
*/
/*New code:*/
hColumn:LABEL = {fnarg columnColumnLabel hColumn:NAME hDataSource}
/*end of new code*/

hColumn:AUTO-RESIZE = TRUE
hColumn:RESIZABLE = TRUE

FIX:

This should not have been part of product - was incorrectly included in 9.1d but removed in 9.1d01, from 9.1D01 on, it gets the label from the browser (either set directly in the browser or from the SDO's include file which is included in the browser). This is the way it always worked before 9.1D. Another way to translate the browse column labels could be to get the handle of the browser and walk through its columns and change their labels to translate them. Or, they could change the code in initializeObject but they will need to maintain that change themselves each time they upgrade to a new version of Progress.