See the changes in bold.
>Below is the valid event code from the combobox
>
>IF EMPTY(m.affil_code2)
> RETURN .F.
>ENDIF
>*!* WAIT WINDOW(m.affil_code2)
>THIS.PARENT.LstIndivAccounts.Rowsource = ""
>THIS.PARENT.LstCompAccounts.Rowsource = ""
>
>WAIT WINDOW ("Getting Available Accounts List") NOWAIT
>*!* wait window (ALLTRIM(m.userid) + ALLTRIM(m.passpass))
>STORE SQLCONNECT(ALLTRIM(UPPER(db2_alias)), ALLTRIM(g_mach_user), ALLTRIM(g_mach_pass)) TO DB2_CONNECT
>*!* STORE SQLCONNECT(ALLTRIM(UPPER(db2_alias)), ALLTRIM(m.userid), ALLTRIM(m.passpass)) TO DB2_CONNECT
>
>WAIT CLEAR
>IF DB2_CONNECT <= 0
> AERROR(CON_ERROR)
> = MESSAGEBOX('Cannot make connection ' + ALLTRIM(STR(CON_ERROR(1))) + " " + CON_ERROR(2), 16, 'SQL Connect Error to DB2')
> RETURN .F.
>ELSE
> SET ESCAPE OFF
> lresult = SQLEXEC(DB2_CONNECT, "SELECT A.PORTFOLIO_ID AS ACCOUNT, A.PORTFOLIO_HIRE_DT AS BEGIN_DATE FROM " ;
> + LEFT(db2_owner, 4) + "CTL.PORTFOLIO A WHERE A.PORTFOLIO_ID LIKE '" + m.affil_code2 + "G%' AND A.PORT_TERM_DT IS NULL " ;
> + "AND A.PORTFOLIO_ID <> '" + m.g_account + "' ORDER BY 1","COMP_LIST_TEMP")
> SET ESCAPE ON
> IF lresult <= 0
> AERROR(CON_ERROR)
> = MESSAGEBOX('Cannot return Composite list ' + ALLTRIM(STR(CON_ERROR(1))) + " " + CON_ERROR(2), 16, 'SQL Error from DB2')
> RETURN .F.
> ENDIF
>
> SELECT * FROM COMP_LIST_TEMP T LEFT JOIN MEM_TEMPLATE MT ON T.account = MT.mbr_acct WHERE ;
> EMPTY(MT.mbr_acct) INTO CURSOR COMP_ACCTS
>*!* SELECT COMP_ACCTS
>*!* BROWSE NORMAL
>
> SET ESCAPE OFF
> lresult = SQLEXEC(DB2_CONNECT, "SELECT A.ACCOUNT, A.BEGIN_DATE FROM " ;
> + LEFT(db2_owner, 4) + "PER.ACTREF A WHERE A.ACCOUNT LIKE '" + m.affil_code2 + "%' AND A.CLOSE_DATE IS NULL " ;
> + "ORDER BY 1","ACCT_LIST_TEMP")
> SET ESCAPE ON
> IF lresult <= 0
> AERROR(CON_ERROR)
> = MESSAGEBOX('Cannot return Account list ' + ALLTRIM(STR(CON_ERROR(1))) + " " + CON_ERROR(2), 16, 'SQL Error from DB2')
> RETURN .F.
> ENDIF
>
> SELECT * FROM ACCT_LIST_TEMP T LEFT JOIN MEM_TEMPLATE MT ON T.account = MT.mbr_acct WHERE ;
> EMPTY(MT.mbr_acct) INTO CURSOR INDIV_ACCTS
>
>*!* SELECT INDIV_ACCTS
>*!* BROWSE NORMAL
> SQLDISCONNECT(0)
>ENDIF
>
>THIS.PARENT.LstIndivAccounts.ROWSOURCE = "INDIV_ACCTS"
THIS.PARENT.LstIndivAccounts.ColumnCount = FCOUNT("INDIV_ACCTS")
THIS.PARENT.LstIndivAccounts.RowSourceType = 2
>THIS.PARENT.LstCompAccounts.ROWSOURCE = "COMP_ACCTS"
THIS.PARENT.LstCompAccounts.ColumnCount = FCOUNT("COMP_ACCTS")
THIS.PARENT.LstCompAccounts.RowSourceType = 2
>THIS.PARENT.LstIndivAccounts.Requery()
>THIS.PARENT.LstCompAccounts.Requery()
>*!* THIS.PARENT.LstIndivAccounts.Refresh
>*!* THIS.PARENT.LstCompAccounts.Refresh
>
>THISFORM.REFRESH