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

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




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

--
Has recibido este mensaje porque estás suscrito al grupo "GeneXus" de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a genexus@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a genexus+unsubscribe@googlegroups.com
Para tener acceso a más opciones, visita el grupo en http://groups.google.com/group/genexus?hl=es.