Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
General information
Category:
Coding, syntax & commands
Scott,
What is your RowSource Type? If you want to send me the form/data I'll take a look at it.
Renoir
>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.LstCompAccounts.ROWSOURCE = "COMP_ACCTS"
>THIS.PARENT.LstIndivAccounts.Requery()
>THIS.PARENT.LstCompAccounts.Requery()
>*!* THIS.PARENT.LstIndivAccounts.Refresh
>*!* THIS.PARENT.LstCompAccounts.Refresh
>
>THISFORM.REFRESH
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only