Foro de programacion

Requiero de su apoyo tengo que entregar un proyecto y apenas estoy utilizando fox pro me pueden ayudar tengo este caso de validaciones pero no lo ejecuta.


*set relation to tipo_neg into a
if tade_valor = 0 and tipo_neg == "ADJUDICACION"
replace all negociacio with 'adjudicacion'
else
replace all negociacio with 'REVISAR'
Endif
if tvdo_valor > 0 and tade_valor = 0 and tipo_neg = "RECU. X COND."
replace all negociacio with 'Al corriente con Descuento'
else
replace all negociacio with 'REVISAR'
endif
if tade_valor > 0 and tvdo_valor = 0 and tipo_neg = "RECUPERACION"
replace all negociacio with 'Al corriente sin Descuento'
else
replace all negociacio with 'REVISAR'

endif
if tade_valor = 0 and tipo_neg = "DACION EN PAGO"
replace all negociacio with 'Dación en Pago'
else
replace all negociacio with 'REVISAR'

endif
if tade_valor = 0 and tipo_neg = "RECUP X DEFUNCION"
replace all negociacio with 'Defunción'
else
replace all negociacio with 'REVISAR'

endif
if tade_valor = 0 and tipo_neg = "RECU. X COND."
replace all negociacio with 'Liquidación con Descuento'
else

replace all negociacio with 'REVISAR'

endif
if tade_valor = 0 and tipo_neg = "RECUPERACION"
replace all negociacio with 'Liquidación sin Descuento'
else
replace all negociacio with 'REVISAR'

endif
if tade_valor > 0 and tvdo_valor > 0 and tipo_neg = "RECU. X COND."
replace all negociacio with 'Parcial con Descuento'
else
replace all negociacio with 'REVISAR'

endif
if tade_valor > 0 and tvdo_valor > 0 and tipo_neg = "RECUPERACION"
replace all negociacio with 'Parcial sin Descuento'
else
replace all negociacio with 'REVISAR'

endif
if tade_valor = 0 and tipo_neg == "REESTRUCTURA"
replace all negociacio with 'Reestructura'
else
replace all negociacio with 'REVISAR'
endif
if tipo_neg = "RECUP X SINIESTRO" and tade_valor >= 0 and tvdo_valor >= 0

replace all negociacio with 'Siniestro'
else
replace all negociacio with 'REVISAR'
endif