AYUDA CON PROCEDIMIENTO
Publicado por SHunkO (23 intervenciones) el 13/07/2007 17:01:15
Hola, necesito ayuda con este procedimiento. Lo que intenta hacer es pasarle los atributos de una tabla a un archivo excel. Pero cuando lo ejecuto, se queda como procesando datos y no finaliza nunca más. Es una tabla de 50 registros como máximo y no puede tardar tanto. Alguien me puede decir que estoy pasando por alto? En que está loopeando?
Una pregunta. Este prodecimiento genera el archivo excel o tengo que crearlo yo manualmente en ese directorio?
Estoy trabajando con GeneXus 8, SQL Server, .NET (WEB)
MUCHAS gracias.
//---------------------------------------------------------------------------------------------------------------------
&PathFile = 'XLS/pais'
&Ruta = &PathFile + '.xls'
&DatosXls.Open(&RUTA)
&DatosXls.SelectSheet("Hoja1")
&DatosXls.Clear()
if &DatosXls.ErrCode <> 0
msg(&datosxls.ErrDescription)
else
&CProd =2
For Each CODPAI //Tabla que contiene nombre de Paises con sus respectivos códigos
&DatosXls.Cells(&CProd,1).Number = CODPAI
&DatosXls.Cells(&CProd,2).Text = NOMPAI
&CProd += 1
Endfor
&DatosXls.Cells(1,1).Text = 'CODIGO DE PAIS'
&DatosXls.Cells(1,2).Text = 'NOMBRE DE PAIS'
&DatosXls.Save()
msg(' ',nowait)
endif
//---------------------------------------------------------------------------------------------------------------------
Una pregunta. Este prodecimiento genera el archivo excel o tengo que crearlo yo manualmente en ese directorio?
Estoy trabajando con GeneXus 8, SQL Server, .NET (WEB)
MUCHAS gracias.
//---------------------------------------------------------------------------------------------------------------------
&PathFile = 'XLS/pais'
&Ruta = &PathFile + '.xls'
&DatosXls.Open(&RUTA)
&DatosXls.SelectSheet("Hoja1")
&DatosXls.Clear()
if &DatosXls.ErrCode <> 0
msg(&datosxls.ErrDescription)
else
&CProd =2
For Each CODPAI //Tabla que contiene nombre de Paises con sus respectivos códigos
&DatosXls.Cells(&CProd,1).Number = CODPAI
&DatosXls.Cells(&CProd,2).Text = NOMPAI
&CProd += 1
Endfor
&DatosXls.Cells(1,1).Text = 'CODIGO DE PAIS'
&DatosXls.Cells(1,2).Text = 'NOMBRE DE PAIS'
&DatosXls.Save()
msg(' ',nowait)
endif
//---------------------------------------------------------------------------------------------------------------------
Valora esta pregunta
0