Genexus

&Hoja.UseAutomation = 0 //usa poi.jar, 1 usa Microsoft Office
    &Hoja.Open(&FileName)
    If &Hoja.ErrCode <> 0
        msg(&Hoja.ErrDescription)
    else
        &Hoja.Clear() //GMGC
        &Fila                      = 1
        &Hoja.Cells(&Fila,1).Bold  = 1
        &Hoja.Cells(&Fila,1).Text  = "Fecha"
        &Hoja.Cells(&Fila,2).Bold  = 1
        &Hoja.Cells(&Fila,2).Text  = "NroAsiento"
        &Hoja.Cells(&Fila,3).Bold  = 1
        &Hoja.Cells(&Fila,3).Text  = "Sucursal"
        &Hoja.Cells(&Fila,4).Bold  = 1
        &Hoja.Cells(&Fila,4).Text  = "Detalle"
        &Hoja.Cells(&Fila,5).Bold  = 1
        &Hoja.Cells(&Fila,5).Text  = "Débito"
        &Hoja.Cells(&Fila,6).Bold  = 1
        &Hoja.Cells(&Fila,6).Text  = "Crédito"
        &Hoja.Cells(&Fila,7).Bold  = 1
        &Hoja.Cells(&Fila,7).Text  = "Saldo"
         for each
               where att = &att
                         &Fila                                += 1

    &Hoja.Cells(&Fila,1).Date     = FchAsiento
    &Hoja.Cells(&Fila,2).Number = AsiNro
    &Hoja.Cells(&Fila,3).Number = SucCod
    &Hoja.Cells(&Fila,4).Text      = DetDetalle
    &Hoja.Cells(&Fila,5).Number = DetImpDB
    &Hoja.Cells(&Fila,6).Number = DetImpCR

         endfor
        &Hoja.Save()
        &Hoja.Close()
endif

2010/5/19 NewLogic Sistemas <newlogicsistemas@hotmail.com>

Olá Pessoal,

 

          Meus relatórios abrem em pdf, gostaria de abri em excel(xls), é possível ?

 

 

 

 

--
Guido M. Gaona C.
-------
Desarrollo de Sistemas
Genexus