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
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


0