>select cpayment
>SCAN FOR ((cpay_flag = .t.) and (!empty(cpay_schdate)))
>	replace cpay_schdate with {}
>	replace cpay_flag with .f.
>	if !cpay_update = 'D' then
>		replace cpay_update with "C"
>	endif
>	replace cpay_amt with 0.00
>ENDSCAN
>

UPDATE cPayment ;
    SET cPay_SchDate = {}, ;
        cPay_Flag = .F., ;
        cPay_Update = IIF(cPay_Update = 'D', 'D', 'C'), ;
        cPay_Amt = 0.00 ;
    WHERE cPay_Flag AND NOT EMPTY(cPay_SchDate)