FoxPro/Visual FoxPro - Guardar factura...

 
Vista:

Guardar factura...

Publicado por Marcelo (2 intervenciones) el 14/12/2002 07:53:54
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.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:Guardar factura...

Publicado por Guillermo Arias (294 intervenciones) el 14/12/2002 13:10:55
intenta poner FLUSH después de los REPLACE, o si has usado tablas en buffer, usa TABLEUPDATE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar