Power Builder - Campos Computados

 
Vista:

Campos Computados

Publicado por Yesi (25 intervenciones) el 30/03/2005 19:27:07
Hola, tengo una pequeña consulta:
Estoy haciendo unos reportes para luego grabarlos como archivos .xls, me graba cuando son columnas, pero los campos computados no los graba, tampoco graba los datos agrupados en el dw.
Lo estoy haciendo asi:
dw_1.SaveAs("d:\informe.xls", Excel!, TRUE)

Hay alguna forma de lograr Imprimir estos reportes en formato excel, tal como sale en el dw?

Gracias por la ayuda.
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 DW a Excel (con grupos y computed)

Publicado por Oscar (1178 intervenciones) el 30/03/2005 20:16:44
Alguien tuvo la misma inquietud que tú. Se propusieron principalmente dos alternativas:
- Emplear SaveAsAscii en vez de SaveAs.
- Exportarlo como HTML

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=73&texto=Power+Builder&n1=188864&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0
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

RE:Exportar DW a Excel (con grupos y computed)

Publicado por Yesi (25 intervenciones) el 30/03/2005 23:03:15
Muchas Gracias Oscar por tu ayuda, ya me funcionó :-)



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

RE:Campos Computados_A

Publicado por Jorge (900 intervenciones) el 31/03/2005 14:18:23
Hola.
Si bien lo has solucionado, TB puedes llevarlo a excel
a tra vez del html.

Prueba este codigo. (las variables de fechas que uso son
para distinguir los archivos generados ya que los acomulo
no los borro ni los regrabo)

Suerte....
-----
setpointer(hourglass!)

string ls_file
string d
String m
String a

Fecha = String(em_fecha.text)
d = Mid(Fecha,1,2)
m = Mid(Fecha,4,2)
a = Mid(Fecha,7,4)
Fec_pedido = d+m+a

oleobject luo_excel

// Para elejir donde guardar
//If GetfileSavename ( 'Archivos',ls_path,ls_file,'XLS',&
// 'XLS Files (*.XLS), *.XLS') = 1 then

ls_path_excel =ProfileString("GesTChequeras.ini","Path","Ruta","None")
ls_path_excel =ls_path_excel+fec_pedido+".XLS"
Continua//
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

RE:Campos Computados_B

Publicado por Jorge (900 intervenciones) el 31/03/2005 14:19:26
// Continuacion
if dw_3.saveas(ls_path_excel,HTMLTable!,true) = 1 then
luo_excel = create oleobject
If luo_excel.connecttoobject(ls_path_excel) = 0 then
luo_excel.application.displayalerts = false
luo_excel.application.workbooks(1).parent.windows(luo_excel.application.workbooks(1).name).visible = true
//luo_excel.application.workbooks(1).saveas(Fec_pedido,-4143)
//luo_excel.application.workbooks(1).saveas(ls_path_excel,-4143)
luo_excel.application.workbooks(1).close()
luo_excel.disconnectobject()
end if
destroy luo_excel
end if
// end if

Setpointer(arrow!)
dw_3.Visible=False
pb_3.Enabled=True
st_msg.Text="Excel Generado en :" + ls_path_excel

Suerte
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