FoxPro/Visual FoxPro - Guardar factura...

Hola amigos!

Mi problema esta en que no puedo guardar los datos de una factura en una
tabla.
Implemente un código pero no funciona, si alguien lo mira y se anima a
ayudarme....

Public n
Public cod[13]
Public cant[13]
Public des[13]
Public unit[13]
Public importe[13]

select gfactura

For n = 1 To 13

If cod[n] <> 0

append blank
Replace fcod With cod[n]
Replace fcant With cant[n]
Replace fdes With des[n]
Replace funit With unit[n]
Replace fimp With importe[n]


* Descuenta la mercaderia
Select mercaderia
Set Order To mercod

Seek cod[n]
If mercan > cant[n]
Replace mercan With mercan - cant[n]
If mercan < mermin
MessageBox(\"Solicitar Mercaderia\")
EndIf
Else
MessageBox(\"No hay stock\")
EndIf
EndIf
Next

Le agradezo mucho a todos.

PD Cualquier cosa le paso el proyecto, son 2 formularios nada mas con este
código.

intenta poner FLUSH después de los REPLACE, o si has usado tablas en buffer, usa TABLEUPDATE