Page 1 of 1
Crear un archivo CVS
Posted: Thu Apr 04, 2024 2:00 am
by jorge.posadas
Grupo
¿Cómo puedo crear un archivo CVS desde mi aplicación? no tengo la menor idea de CÓMO hacerlo
Re: Crear un archivo CVS
Posted: Thu Apr 04, 2024 2:35 am
by martingz
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