Anónimo
Calcular en vfp
¿Hola alonso
sera que me puedes ayudar?
Tengo una una base de datos en txt, y necesito validar la estructura en visual y después exportarla a excel con los cálculos que quiero hacer por ejemplo cuantas personas hay en el archivo, cuanto me valen si son 5 x mes, bueno es un ejemplo para que me salga el resultado y poder imprimir o generar el reporte.
Si me puedes regalar un ejemplo de como calcular en visual y exportar a excel o cualquier otro ejemplo que me quede más fácil te lo agradeceré de antemano
sera que me puedes ayudar?
Tengo una una base de datos en txt, y necesito validar la estructura en visual y después exportarla a excel con los cálculos que quiero hacer por ejemplo cuantas personas hay en el archivo, cuanto me valen si son 5 x mes, bueno es un ejemplo para que me salga el resultado y poder imprimir o generar el reporte.
Si me puedes regalar un ejemplo de como calcular en visual y exportar a excel o cualquier otro ejemplo que me quede más fácil te lo agradeceré de antemano
Respuesta de Alonso Jarrín Solís
1
Utiliza la cláusula Append From para importar datos de un archivo de texto por ejemplo creas un cursor con create cursor haces el recuento con Reccount() Ejemplo:
Supongamos que tenemos un archivo MiArchivo.Txt que contiene lo siguiente:
00001, Mariana Rodríguez
00002, Alonso Jarrín
00003, Juan Carlos Navarro
Entonces procederíamos a hacer los siguiente:
Create cursor MiCursor (Codigo N(8), Nombre C(10))
Append From MiArchivo.Txt Delimieted With Character ,
Select MiCursor
Messagebox("Hay " + AlltrimStr(Reccount())) + " personas en el archivo."
Este cursor lo podrías utilizar imprimir el informe.
Report Form MiInforme. Frx To Printer NoConsole & Obviamente debes diseñarlo.
Ahí te mando a tun correo un ejemplo sencillo sobre cómo enviar datos a Excel.
Supongamos que tenemos un archivo MiArchivo.Txt que contiene lo siguiente:
00001, Mariana Rodríguez
00002, Alonso Jarrín
00003, Juan Carlos Navarro
Entonces procederíamos a hacer los siguiente:
Create cursor MiCursor (Codigo N(8), Nombre C(10))
Append From MiArchivo.Txt Delimieted With Character ,
Select MiCursor
Messagebox("Hay " + AlltrimStr(Reccount())) + " personas en el archivo."
Este cursor lo podrías utilizar imprimir el informe.
Report Form MiInforme. Frx To Printer NoConsole & Obviamente debes diseñarlo.
Ahí te mando a tun correo un ejemplo sencillo sobre cómo enviar datos a Excel.