Grupo
¿Cómo puedo crear un archivo CVS desde mi aplicación? no tengo la menor idea de CÓMO hacerlo
Crear un archivo CVS
Moderator: Rathinagiri
-
- Posts: 174
- Joined: Mon May 19, 2014 7:43 pm
- DBs Used: DBF, SQLite, MS-SQL, ACCESS, MariaDB (en proceso)
- Location: Morelia, Mich. México
- Contact:
Crear un archivo CVS
Cordialmente
POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Morelia, Mich.
M é x i c o .
Movil +52 44 3734 1858
SKYPE: jorge.posadasch
Email: posoft@gmx.com
POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Morelia, Mich.
M é x i c o .
Movil +52 44 3734 1858
SKYPE: jorge.posadasch
Email: posoft@gmx.com
Re: Crear un archivo CVS
Jorge una forma sencilla esto es desde un grid
nomfile:='Reporte de pagos ' + armes[month(main.datepicker_1.value)] + ' ' + str(year(main.datepicker_1.value)) + '.csv'
delete file &nomfile
set printer to &nomfile
set device to print
set printer on
setprc(0,0)
@ prow(),0 say 'Fecha,Concepto,Loc.,Nombre,Recargos,Rezago,Mensual,Iva,Total'
for y = 1 to main.grid_1.ItemCount
aValues:=main.grid_1.Item(y)
@ prow() + 1,0 say dtoc(aValues[1]) + ',' + alltrim(aValues[2]) + ',' + alltrim(aValues[3]) + ',' + strtran(alltrim(aValues[4]),',','') + ;
+ ',' + transform(aValues[5],'999999999.99') + ',' + transform(aValues[6],'999999999.99') + ',' + ;
transform(aValues[7],'999999999.99') + ',' + transform(aValues[8],'999999999.99') + ',' + transform(aValues[9],'999999999.99')
next
set device to screen
set printer off
set printer to
espero te sirva
saludos
nomfile:='Reporte de pagos ' + armes[month(main.datepicker_1.value)] + ' ' + str(year(main.datepicker_1.value)) + '.csv'
delete file &nomfile
set printer to &nomfile
set device to print
set printer on
setprc(0,0)
@ prow(),0 say 'Fecha,Concepto,Loc.,Nombre,Recargos,Rezago,Mensual,Iva,Total'
for y = 1 to main.grid_1.ItemCount
aValues:=main.grid_1.Item(y)
@ prow() + 1,0 say dtoc(aValues[1]) + ',' + alltrim(aValues[2]) + ',' + alltrim(aValues[3]) + ',' + strtran(alltrim(aValues[4]),',','') + ;
+ ',' + transform(aValues[5],'999999999.99') + ',' + transform(aValues[6],'999999999.99') + ',' + ;
transform(aValues[7],'999999999.99') + ',' + transform(aValues[8],'999999999.99') + ',' + transform(aValues[9],'999999999.99')
next
set device to screen
set printer off
set printer to
espero te sirva
saludos