PROC IMPDOSPla //Catalogo Plan de Cuentas
Local RepDos, i, oBase, Campo1,Campo2,Campo3,Campo4,Campo5,Campo6
DataBase oBase
oBase:bEof := NIL
Pub:FHEHA:=Pub:Gfec
HAIDY() //Rutina personal
Empres:=ALLTRIM(Pub:NOMEMP)
Identi:=("Nit: "+TRANSFORM((VAL(Pub:NITEMP)),"999,999,999")+"-"+Pub:DIGEMP)
Report:="CATALAGO PLAN DE CUENTAS"
Filtro:=("Filtro: "+Pub:FILTMENS)
FecRep:="Fecha Reporte: "+Pub:HEHA+" "+TIME()+SPAC(32)+OemToAnsi("Página: ")
REPDOS oRepDos HEADER Empres,Identi,Report,Filtro,FecRep+STR(Pub:Pagina,4) PREVIEW CONDENSED CAPTION Pub:MimpDo
ADD COLUMN TO oRepDos TITLE "CODIGO" DATA OemToAnsi(SUBS(Campo1:=oBase:HMCODIGO,1,10)) SIZE 10
ADD COLUMN TO oRepDos TITLE "NOMBRE DE LA CUENTA" DATA OemToAnsi(Campo2:=oBase:HMCUENTA) SIZE 35
ADD COLUMN TO oRepDos TITLE "AUXILI" DATA OemToAnsi(Campo3:=oBase:HMN)+SPAC(5) SIZE 6
ADD COLUMN TO oRepDos TITLE "SB-AUX" DATA OemToAnsi(Campo4:=oBase:HMX)+SPAC(5) SIZE 6
ADD COLUMN TO oRepDos TITLE "COSTOS" DATA OemToAnsi(Campo5:=oBase:HMC)+SPAC(5) SIZE 6
ADD COLUMN TO oRepDos TITLE "A x I " DATA OemToAnsi(Campo6:=oBase:HMI)+SPAC(5) SIZE 6
oRepDos:bSkip :={||oBase:Skip()}
oRepDos:bWhile:={||!oBase:Eof()}
ACTIVATE REPDOS oRepDos
oBase:Close()
RETURN NIL
csincuir wrote:Gracias a Mauro, ya esta colocado el link para descargar la TRepDos, ya que yo no encontraba el ejemplo que tenia de la clase y luego subirla en algun sitio.
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29797
Por otro lado, por si alguno esta interesado, tengo otra clase parecida a la TRepDos, solo que es para Excel, "TRepXls", con la que hago reportes del tipo columnas (igual que la TReport), y hasta logre hacer ya una opción de crear agrupaciones (GROUP), de un solo nivel.
Si les interesa, preparo el ejemplo y la clase y la coloco para que la puedan probar, y de repente agregarle mas funcionalidades.
Saludos cordiales,
Carlos.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 41 guests