FoxPro/Visual FoxPro - Ayuda... Cadena MYSQL

HOLA BUENAS TARDES,... QUE GUSTO EN SALUDARLES...
QUISIERA ME HICIERAN FAVOR DE AYUDARME CON LO SIGUIENTE...

TENGO UN CODIGO PARA BAJAR DATOS A UNA TABLA DE MYSQL
ES ALGO COMO PRESUPUESTO..

tengo que actualizar los de:
Saldo de Enero de la Disponibilidad de Enero + Ampliaciones de Enero - Reducciones de Enero - Ejercido de Enero.

saldoene=dispene+ampliaene-reduceene-ejercidoene
*****************************************************
como lo muestra el siguiente codigo
*****************************************************
lSave="INSERT INTO techofin(APE, PARTIDA, DESCRIP, ORIGINAL,DISPENE,"+;
"DISPFEB,DISPMAR,DISPABR, DISPMAY, DISPJUN, DISPJUL, DISPAGO, DISPSEP, DISPOCT,"+;
"DISPNOV,DISPDIC,UR) VALUES('600',?dpartida,?dNombre,?dasigna, ?disene,?disfeb,"+;
"?dismar, ?disabr,?dismay,?disjun,?disjul,?disago,?dissep,?disoct,?disnov,?disdic,?VarUr)"

lAct="UPDATE techofin SET saldoene=dispene+ampliaene-reduceene-ejercidoene,"+;
"saldofeb=saldoene+dispfeb+ampliafeb-reducefeb-ejercidofeb,"+;
"saldomar=saldoFeb+dispmar+ampliamar-reducemar-ejercidomar,"+;
"saldoabr=saldoMar+dispAbr+ampliaabr-reduceabr-ejercidoabr,"+;
"saldomay=saldoAbr+dispmay+ampliamay-reducemay-ejercidomay,"+;
"saldojun=saldomay+dispjun+ampliajun-reducejun-ejercidojun,"+;
"saldojul=saldoJun+dispjul+ampliajul-reducejul-ejercidojul,"+;
"saldoago=saldojul+dispago+ampliaago-reduceago-ejercidoago,"+;
"saldosep=saldoago+dispsep+ampliasep-reducesep-ejercidosep,"+;
"saldooct=saldosep+dispoct+ampliaoct-reduceoct-ejercidooct,"+;
"saldonov=saldooct+dispnov+amplianov-reducenov-ejercidonov,"+;
"saldodic=saldonov+dispdic+ampliadic-reducedic-ejercidodic where partida=?dpartida"
TRY
SET PROCEDURE TO funciones
=AbreDatos()
SQLEXEC(Con,lSave)
SQLEXEC(Con,lAct)
CATCH
=Desconectado()
EndTry

SI GUARDA SOLO LA DISPONIBILIDAD DE CADA MES PERO LA CADENA "lAct", NO LA REALIZA... O SEA NO ACTUALIZA LOS SALDOS.

Gracias por su ayuda