FoxPro/Visual FoxPro - ayuda en visual

necesito ayuda en visual fox tengo que hacer un programa que tenga un codigo pro se mire apachando un optiongroup
el codigo es 002-000001 y cuando se guarde y empiece otra vez que valla aumentando alguien me puede
ayudar con esto.!?
esto el lo que tengo en mi programa

USE clientes
SET SAFETY off
INDEX on c_ahorro TO c_ahorro
GO BOTTOM
IF c_ahorro = ' '
IF thisform.optiongroup1.option1.Value = 1
thisform.text1.Value = '002-000001'
endif
ENDIF
IF c_ahorro = '002-000001'
thisform.text24.Value = clientes.c_ahorro
w= thisform.text1.Value
x = SUBSTR(w,10,10)
y = VAL(x) + 1
z = STR(y)
thisform.text1.Value = '002-'+z
ENDIF

Estimado:

Este foro no es de Visual Fox Pro. Te recomiendo plantear tu consulta en el foro correcto. Este es de Visual Pro5.

Saludos,

José