General information
Category:
Coding, syntax & commands
Hello Naomi
My code work at this point :
* Escolher o ficheiro em Excel para importar
m_file=Getfile("XLS","Ficheiro","Escolher",0,"Seleccione o Ficheiro a Importar")
If Type("m_file") != "C" Or Not File(m_file)
Messagebox("Ficheiro Não Encontrado")
Return
Endif
After that code i write message box to debbug but the messagebox don´t appear :
* Cria o cursor ARTIGO que vai conter os registos do ficheiro em excel
Create Cursor ARTIGO (ref C(18),EPV1 N(14,2),Design C(60))
* Altera as decimais que são utilizadas por defeito na aplicação
Set Point To "."
Append From (m_file) Xls
Select ARTIGO
msg("aqui") «««««« don´t appear
Scan
I hope this little code help you to understand .
Thanks Naomi
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only