>FOR m.icounter = 1 TO THISFORM.ControlCount > oControl = ThisForm.Controls[m.icounter] > IF ALLTRIM(UPPER(oControl.Baseclass)) = "TEXTBOX" > IF !EMPTY(oControl.Tag) .and. !EMPTY(oControl.controlsource) > TRY > qtag = ocontrol.Tag > qnewval = EVALUATE(oControl.controlSource) > qtype = TYPE('EVALUATE(oControl.controlsource)') > qsysnum = thisform.ca_sysnum > qagnum = thisform.ca_ag_num > *UWUSRCreate is a program part of which is shown below > =UWUSRCreate(qTag,qnewval,qtype,qsysnum,qagnum) > CATCH > ENDTRY > ENDIF > ENDIF >ENDFOR >>A snapshot of the UWUSRCreate function:
>LPARAMETERS tRecord, tValue, tType, tCoId, tAgId > >*I verified that at this point the following values are correct: >*tRecord = "UGI_CCONFEE" >*tValue = 1.15 >*tType = "N" >*tcoId = 12 >*tAgId = "" > >#DEFINE UGI_CCONFEE 8159760 && Contract Fee > >TRY > iGroupID = EVALUATE(tRecord) >CATCH > iGroupID = 0 && I land here because UGI_CCONFEE is undefined why? >ENDTRY >>Yet this works from the command window: