FoxPro/Visual FoxPro - form tipo factura, codigo para el boton calcular

Hola, estoy realizando un form tipo factuta donde involucro textbox de:
cantidad, punitario,importe, iva, total
La idea es sacar el total de la factura, que cantidad se multiplique con punitario y el resultado es el importe, al importe se le multiplica por el 0.16 y el resultado es el iva, al iva se le suma con el importe y el resultado es el total. Suena facil no, aaa... todo eso tiene que ir en el boton calcular.
Porfa me podrian ayudar con este dilema, notese que estoy usando visual foxpro 6.0
Me super urgue, de antemano gracias.

Supongo que en algunos lado tendrás los productos a facturar, o mejor aun, la venta que deseas facturar. Pero si no es asi y todo sera de uno en uno, pues te recomiendo que primero empieces con la multiplicación de cantidad x precio unitario y que al final esté un textbox como subtotal. Para que este se este sumando el resultado de la multiplicacpara el codigo es simpleión anterior y que seria el importe de cada producto..

Para el codigo es simple: puedes utilizar variables segun los textbox o puedes calcular directamente de los textbox.

Se supone que en un cursor o tabla temporal estás recolectando la información de código de producto, cantidad y precio. Depende de la legislación de tu país que el IVA se obtenga por renglón facturado o a partir del total gravado de la factura. Como suele haber productos exentos, no gravados y gravados, y además, los gravados pueden ser a distintas tasas, la tasa de IVA deberá quedar en el archivo de detalle, y tienes que tener un campo para exentos y otro para no gravados.
También un campo calificación (TIPOVEN), por ejemplo:
"G" gRAVADO
"E" exento IVA
"N" No gravado

En el botón final, puedes calcular todo
select CursorTemp
SCAN
Store 0 to nGravado,nExento,nNogravado
do case
case TIPOVEN="G"
nGravado=Round(Cantidad * Precio , 2)
CASE TIPOVEN="E"
nExento=Round(Cantidad * Precio , 2)
CASE TIPOVEN="N"
nNogravado=Round( Cantidad * Precio, 2)
ENDCASE
nImpIVA=Round(nGravado * TasaIva/100,2)
nRenglon=nGravado + nImpiva + nExento + nNoGravado
replace Gravado with nGravado, Impiva with nImpiva, Renglon with nRenglon,;
Exento with nExento, Nogravado with nNogravado
ENDSCAN
SUM ALL Gravado,NoGravado,Exento,Impiva,Renglon to ;
tnGravdo,TnExento,TnNoGravado,TnImpiva,tnToTal

IF IvaSobreTotalFacturado
* Vuelvo a determinar el iva para el pie de factura
* Valido únicamente para tasa de IVA única
TnImpiva=Round(TnGravado * TasaIvaUnica/100 , 2)
endif
TnTotal=TnGravado + TnExento + TnNoGravado + TnImpiva