Question Using Browse

[Arjon M. Policar]

Greetings Everyone! I am using Progress 11.3 I have this problem using the browse widget because one of the field that I want to retrieve contains number, and this numbers represent a character value.
This is a simple program that is similar to what I am doing:
Database:
Table: UserInfo
lname = Character
Fname = Character
Sex = Integer (1 = Male,2 = Female)

DEFINE VAR t_row AS ROWID.
DEFINE VAR t_sex AS  INTEGER INIT 0.
DEFINE VAR t_vsex AS CHAR INIT "".

FOR EACH UserInfo.
  ASSIGN t_row = ROWID(forinsert.UserInfo).
  RUN xxx.
  DISPLAY Fname Lname t_vsex WITH 1 COL.
END.

PROCEDURE xxx:
  FIND UserInfo WHERE ROWID(UserInfo) EQ t_row.
  IF AVAIL (UserInfo) THEN DO:
  ASSIGN t_sex = UserInfo.Sex.
  IF t_sex EQ 1 THEN t_vsex = "Male".
  IF t_sex EQ 2 THEN t_vsex = "Female".
  END.
END PROCEDURE.

But I want to use a BROWSE WIDGET to display the output of this. I'm looking forward for your responses, thank you Everyone.

 

[Fabio]

Hello Arjon,

Try this:

FUNCTION GetGender RETURNS CHAR (iSex AS INT):
  DEF VAR ecGender AS CHAR EXTENT 2 INITIAL ['Male', 'Female'] NO-UNDO.
  RETURN ecGender[iSex].
END.

DEF QUERY qUsrInf FOR UserInfo.

DEF BROWSE bUsrInf QUERY qUsrInf DISPLAY Fname Lname GetGender(Sex) @ Sex
  WITH 17 DOWN TITLE "User Info".  
    
OPEN QUERY qUsrInf FOR EACH UserInfo.

ENABLE bUsrInf.

WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.

Best regards,

 

[Marco Mendoza]

Sex = Integer (1 = Male,2 = Female)
[/CODE]
....

off-topic: Are you using sex field as integer in case #3 is accepted?

 

[Marco Mendoza]

second off-topic:
Feminist: why not 1=Female 2=Male?
sorry

 

[Arjon M. Policar]

Hello Arjon,

Try this:

FUNCTION GetGender RETURNS CHAR (iSex AS INT):
  DEF VAR ecGender AS CHAR EXTENT 2 INITIAL ['Male', 'Female'] NO-UNDO.
  RETURN ecGender[iSex].
END.

DEF QUERY qUsrInf FOR UserInfo.

DEF BROWSE bUsrInf QUERY qUsrInf DISPLAY Fname Lname GetGender(Sex) @ Sex
  WITH 17 DOWN TITLE "User Info". 
   
OPEN QUERY qUsrInf FOR EACH UserInfo.

ENABLE bUsrInf.

WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.

Best regards,

Sir Fabio Thank you for response, it really help me . Thank you very much.