Power Builder - exportar datawindows agrupados a excel

 
Vista:

exportar datawindows agrupados a excel

Publicado por ELIASFIGUEROAM (31 intervenciones) el 22/06/2003 01:13:26
el problema que tengo es al exportar un datawindows agrupados no respeta el orden de las celdas,alguien tiene alguna rutina..o sabe como puedo solucionar este problema que tengo...
bueno en una de las respuestas del foro da la sgt direccion...
hay un script..la cual no entiendo mucho
Passo 1 :

Crie um nonvisual object salve ente objeto como nca_excel

Passo 2 : esta partes es la que no entiendo mucho crear una funcion pero donde..

Crie uma função neste objeto com o nome de GetColumns
Insira o código abaixo :

// Monta uma lista de todas as colunas da DW para exportação

Long ll_I, ll_Cols

ll_Cols = Long( adw_DW.Describe( 'datawindow.column.count' ) )

FOR ll_I = ll_cols TO 1 STEP -1
as_columns[ ll_I ] = adw_DW.Describe( '#' + String( ll_I ) + '.Name' )
NEXT
Passo 3:

Crie uma função neste objeto com o nome de GetData.
Esta esta função retorna um ANY.
Propositalmente esta função foi colocada separada porque ela pode ser expandida e tratar também um
Datasource.
Insira o código abaixo :

Long ll_Col
Any la_A

IF al_Row > adw_DW.RowCount() THEN RETURN ""
ll_Col = Long( adw_DW.Describe( as_Column + ".ID" ) )
IF ll_Col > 0 THEN &
la_A = adw_DW.object.data.primary.current[ al_Row, ll_Col ]

RETURN la_A

Passo 4:

Crie uma função neste objeto com o nome de inttocolumn .
Esta função retorna um String.

// Converte a posição da coluna para o spreadsheet da coluna no Excel

String ls_Col
Integer li_Min
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:exportar datawindows agrupados a excel

Publicado por Oscar (1178 intervenciones) el 22/06/2003 04:24:26
Elias:
Te adelantaste a la pregunta que quería formular en el foro. Es cierto que en esa dirección, se explica la función para exportar todo el DataWindow a Excel, incluyendo negrita y esas cosas.
Traté de probar ese script, pero cuando lo ejeucto me reporta error.
Luego de buscar duramente, encontré el script original en inglés:

http://gethelp.devx.com/techtips/pb_pro/10min/10min1298.asp

Pero aún así no corre.
El motivo de este comentario es instar a los amigos de foro que hagan correr esta rutina. Es algo que nos beneficiará a la mayoría.

Lo que hice en mi caso, fue lo siguiente:
1. Primero he creado un Custom Class. Dentro de ella incluí las cuatro funciones que indica.
2. Las variables que empiezan con a_. Significa que debes colocarlas como argumentos de las funciones. Por ejemplo:
adw_DW.Describe. Lo que se debe hacer es:
Function Name: Getcolumn
Argument Type: datawindow y Argument Name: adw_DW
Y así por el estilo.
Sin embargo, no quiero explicar algo que a mi me salió mal. Puedo estar errado y es mejor ver otro punto de vista. Dejar que los foristas hagan como ellos entienden.

Por el momento hasta que obtengamos alguna respuesta de los amigos (ojála), encontré esta dirección:

http://www.justpbinfo.com/techdocs/savetoexcel.asp

Donde se menciona que utilizar la función SaveAs, tiene la limitante que no te exporta correctamente los grupos; y recomienda usar la función SaveAsAscii. Mejor ve por ti mismo...

Un saludo a todos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar