** valid event ** LOCAL lcAcctCode,lnIndex lcAcctCode = allt(This.listitem(This.ListIndex)) lnIndex = This.ListIndex IF EMPTY(lcAcctCode) OR lnIndex = 0 MESSAGEBOX('CANNOT LEAVE ACCOUNT CODE EMPTY',16+0,'INVALID ACCOUNT CODE') nodefault ELSE .m_Update_Acct_Data(lcAcctCode) .grdJobData.clmCopier.setFocus ENDIF && EMPTY(lcAcctCode) OR lnIndex = 0
** m_Update_Acct_Data() method ** lparameters cCode local nPos, nRow store 0 to nPos, nRow with ThisForm nPos = ASCAN(.aAccts,cCode) && Search for company nRow = aSubscript(.aAccts,nPos,1) if nPos != 0 REPLACE org_code WITH SUBSTR(Trim(.aAccts(nRow,2)),3) REPLACE eo WITH .aAccts(nRow,3) REPLACE Modl WITH .aAccts(nRow,5) REPLACE Grant WITH .aAccts(nRow,6) REPLACE Contract WITH .aAccts(nRow,7) REPLACE Proj WITH .aAccts(nRow,8) endif endwith