Empezando a pedacear con VFox.
Hola..
Estoy empezando a progamar.. y estoy empeando con un programa de altas y bajas.. pero hay un error que me trae como loca..
El programa corre excelente en mi PC, pero si lo copio a otra PC.. corre bien... pero en cierto boton me marca un error "File not open".. en ese boton mando a llamar una tabla... cuando se manda llamar esa tabla es cuando aparece el error...
el error ocurre con 2 tablas, con las demas no tengo problemas..
Este es el codigo donde mando llamarla, en la segunda linea marca el error...
close tables
Use "credito.dbf"
LOCAL NOTT
NOTT=0
Set Order To Nota_Cred Ascending
Go Bottom
NOTT=Nota_Cred
y el otro es(segunda linea):
Close Tables
Use "notas.dbf"
Append blank
Replace num With NOTT+1
Replace clie With CLAV
Replace total With TOTAL1
Replace fecha With FECHA1
Replace folio With FOLIO1
y este que tambien hace referencia a la tabla "notas":
Select Notas.Folio, Notas.Num, Notas.Fecha,
Notas.Total, Notas.Clie;
From Notas;
Into Table qwe.dbf
ThisForm.MenuPage.Abonos.Grid1.RecordSource="qwe.dbf"
ThisForm.MenuPage.Abonos.Grid1.RecordSourceType=0
ThisForm.MenuPage.Abonos.Grid1.Refresh
Hehehe...
Ayudaaaa!!!:O
Xie Xie :D
Estoy empezando a progamar.. y estoy empeando con un programa de altas y bajas.. pero hay un error que me trae como loca..
El programa corre excelente en mi PC, pero si lo copio a otra PC.. corre bien... pero en cierto boton me marca un error "File not open".. en ese boton mando a llamar una tabla... cuando se manda llamar esa tabla es cuando aparece el error...
el error ocurre con 2 tablas, con las demas no tengo problemas..
Este es el codigo donde mando llamarla, en la segunda linea marca el error...
close tables
Use "credito.dbf"
LOCAL NOTT
NOTT=0
Set Order To Nota_Cred Ascending
Go Bottom
NOTT=Nota_Cred
y el otro es(segunda linea):
Close Tables
Use "notas.dbf"
Append blank
Replace num With NOTT+1
Replace clie With CLAV
Replace total With TOTAL1
Replace fecha With FECHA1
Replace folio With FOLIO1
y este que tambien hace referencia a la tabla "notas":
Select Notas.Folio, Notas.Num, Notas.Fecha,
Notas.Total, Notas.Clie;
From Notas;
Into Table qwe.dbf
ThisForm.MenuPage.Abonos.Grid1.RecordSource="qwe.dbf"
ThisForm.MenuPage.Abonos.Grid1.RecordSourceType=0
ThisForm.MenuPage.Abonos.Grid1.Refresh
Hehehe...
Ayudaaaa!!!:O
Xie Xie :D
