*-- RCM 06/11/01 Enable editing of payment type on loss policies. IF CHHEADER.CASH_NOTE="C" THISFORM.PageFrame1.Page1.Label13.CAPTION = "Cash" THISFORM.PageFrame1.Page1.cmdCashToNote.ENABLED = .T. THISFORM.PageFrame1.Page1.cmdCashToNote.CAPTION = 'Change Payment Type to "NOTE"' THISFORM.PageFrame1.Page1.chkCashWithApp.VALUE = IIF(CHHEADER.CWAPP, 1,0) THISFORM.PageFrame1.Page1.chkCashWithApp.VISIBLE = .T. THISFORM.PageFrame1.Page1.lblCashWithApp.caption = "Cash with App." ELSE . . . ENDIFI thought it would be better to code this as a WITH...ENDWITH block and converted it to
*-- RCM 06/11/01 Enable editing of payment type on loss policies. WITH THISFORM.PageFrame1.Page1 IF CHHEADER.CASH_NOTE="C" .Label13.CAPTION = "Cash" .cmdCashToNote.ENABLED = .T. .cmdCashToNote.CAPTION = 'Change Payment Type to "NOTE"' .chkCashWithApp.VALUE = IIF(CHHEADER.CWAPP, 1,0) .chkCashWithApp.VISIBLE = .T. .lblCashWithApp.caption = "Cash with App." ELSE . . . ENDIF ENDWITHRunning this version, however, produces an "UNKNOWN MEMBER" error for each of the six lines.