>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 >You could try:
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)I just checked it, and it seems to work alright.