Reporting con TWord

[Carles]

Hola a todos,

Para los maestros en TWord, a parte de hacer formularios, alguien a intentado hacer un reporting (listado por columnas) ?


Saludos

[Ramon Paredes]

Carles,

Claro que es posible hacer reportes columnares, prueba esto :

Crea una tabla con 2 campos : Kardex3->Codigo Caracter de 30 y Kardex3->Desc1 Caracter de 45, y prueba el siguiente codigo :


//===================
FUNCTION prueba2()
//===================

local oWord,oFont1,oFont2,mdoc
local afondo := {nRGB(255,0,0), nRGB(255,255,255), ,2,4}
Local mcod,mdesc

SELECT A
USE KARDEX3

oWord:= Tword():New
oWord:NewDoc("prueba22")

DEFINE FONT oFont1 NAME "Arial" SIZE 0,-12 BOLD ITALIC UNDERLINE of oWord
DEFINE FONT oFont2 NAME "Tahoma" SIZE 0,-12 ITALIC of oWord

oWord:SetCm()

SELECT A
DO WHILE .NOT. EOF()
mLinea = 4
mCod = a->codprod
mdesc = a->Desc1
oWord:Say2( mLinea,1,mCod,oFont2,9,,, )
oWord:Say2( mLinea,3,mDesc,oFont2,9,,, )
skip
mLinea = mLinea + 1
ENDDO



// oWord:StartPage()

SYSREFRESH()

// oWord:EndPage()
// oWord:StartPage()

oWord:Save("C:\DATA1\PRUEBA.DOC")
oWord:Preview()

//oWord:PrintDoc(,,,,,,,,,)

// oWord:Quit()

oFont1:End()
oFont2:End()
//oWord:End(.f.)


CLOSE KARDEX3

RETURN NIL

y tienes tu reporte columnar y a ello le puedes agregar mas cosas como colores x linea, fonts, etc etc.

Saludes desde Managua, Nicaragua

Ramon Antonio Paredes

[Carles]

Ramon,

Parece demasiado facil Lo voy a probar. Gracias.

[FranciscoA]

Carles, Ramon:
Estoy tratando por primera vez de usar Tword y me da los siguientes errores. Estoy con la duda de si el prg está completo.
He tratado de compilarlo por separado, y lo mismo. O, ¿Estoy haciendo algo mal?. Agradeceré su ayuda.
Recién la bajé de Utilidades, en el foro.
Saludos.


xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6195)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'c:\mWord\mword.prg'...
c:\mWord\TWORD.PRG(159) Warning W0001 Ambiguous reference: 'NNPOS'
c:\mWord\TWORD.PRG(224) Warning W0002 Ambiguous reference, assuming memvar: 'ALINEAS'
c:\mWord\TWORD.PRG(233) Warning W0005 RETURN statement with no return value in function
c:\mWord\TWORD.PRG(278) Warning W0001 Ambiguous reference: 'OCUADRO'
c:\mWord\TWORD.PRG(279) Warning W0001 Ambiguous reference: 'OCUADRO'
c:\mWord\TWORD.PRG(712) Warning W0001 Ambiguous reference: 'OTEXT'
c:\mWord\TWORD.PRG(781) Warning W0005 RETURN statement with no return value in function
c:\mWord\TWORD.PRG(817) Warning W0005 RETURN statement with no return value in function
c:\mWord\TWORD.PRG(895) Warning W0001 Ambiguous reference: 'OFILLCOLOR'
c:\mWord\TWORD.PRG(896) Warning W0001 Ambiguous reference: 'OFILLCOLOR'
c:\mWord\TWORD.PRG(898) Warning W0001 Ambiguous reference: 'OFILLCOLOR'
c:\mWord\TWORD.PRG(899) Warning W0001 Ambiguous reference: 'OFILLCOLOR'
c:\mWord\TWORD.PRG(929) Warning W0002 Ambiguous reference, assuming memvar: 'ALINEAS'
c:\mWord\TWORD.PRG(943) Warning W0001 Ambiguous reference: 'OPARAGRAPH'
c:\mWord\TWORD.PRG(944) Warning W0001 Ambiguous reference: 'OPARAGRAPH'
c:\mWord\TWORD.PRG(967) Warning W0001 Ambiguous reference: 'LCORTA'
c:\mWord\TWORD.PRG(968) Warning W0001 Ambiguous reference: 'CTEXTO2'
c:\mWord\TWORD.PRG(969) Warning W0001 Ambiguous reference: 'LCORTA'
c:\mWord\TWORD.PRG(969) Warning W0001 Ambiguous reference: 'CTEXTO2'
c:\mWord\TWORD.PRG(970) Warning W0001 Ambiguous reference: 'CTEXTO2'
c:\mWord\TWORD.PRG(970) Warning W0001 Ambiguous reference: 'CTEXTO2'
c:\mWord\TWORD.PRG(971) Warning W0001 Ambiguous reference: 'CTEXTO2'
c:\mWord\TWORD.PRG(973) Warning W0001 Ambiguous reference: 'LCORTA'
c:\mWord\TWORD.PRG(976) Warning W0001 Ambiguous reference: 'CTEXTO2'
c:\mWord\TWORD.PRG(1024) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1025) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1026) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1026) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1026) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1027) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1027) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1027) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1027) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1031) Warning W0001 Ambiguous reference: 'SAL'
c:\mWord\TWORD.PRG(1135) Warning W0001 Ambiguous reference: 'OCOLUMNS'
c:\mWord\TWORD.PRG(1136) Warning W0001 Ambiguous reference: 'OSELECTION'
c:\mWord\TWORD.PRG(1137) Warning W0001 Ambiguous reference: 'OSELECTION'
c:\mWord\TWORD.PRG(1137) Warning W0001 Ambiguous reference: 'OFONT'
c:\mWord\TWORD.PRG(1138) Warning W0001 Ambiguous reference: 'OFONT'
c:\mWord\TWORD.PRG(1139) Warning W0001 Ambiguous reference: 'OFONT'
c:\mWord\TWORD.PRG(1140) Warning W0001 Ambiguous reference: 'OCOLUMNS'
c:\mWord\TWORD.PRG(1142) Warning W0001 Ambiguous reference: 'OCOL'
c:\mWord\TWORD.PRG(1143) Warning W0001 Ambiguous reference: 'OCOL'
c:\mWord\TWORD.PRG(1144) Warning W0001 Ambiguous reference: 'OSELECTION'
c:\mWord\TWORD.PRG(1145) Warning W0001 Ambiguous reference: 'OSELECTION'
c:\mWord\TWORD.PRG(1145) Warning W0001 Ambiguous reference: 'OFONT'
c:\mWord\TWORD.PRG(1146) Warning W0001 Ambiguous reference: 'OFONT'
c:\mWord\TWORD.PRG(1147) Warning W0001 Ambiguous reference: 'OFONT'
c:\mWord\TWORD.PRG(1149) Warning W0001 Ambiguous reference: 'OCOL'
c:\mWord\TWORD.PRG(1150) Warning W0001 Ambiguous reference: 'OCOL'
c:\mWord\TWORD.PRG(1151) Warning W0001 Ambiguous reference: 'OSELECTION'
c:\mWord\TWORD.PRG(1151) Warning W0001 Ambiguous reference: 'OPARAGRAPH'
c:\mWord\TWORD.PRG(1152) Warning W0001 Ambiguous reference: 'OPARAGRAPH'
c:\mWord\TWORD.PRG(1173) Warning W0001 Ambiguous reference: 'OWORD'
c:\mWord\TWORD.PRG(1176) Warning W0001 Ambiguous reference: 'MSOBARFLOTING'
No code generated.

[Patricio Avalos Aguirre]

hola

Puedes solucionarlo declarando las variables como locales

Lo otro es que en tu compilación saques el parametro /w1

Code: Select all  Expand view

harbour $< /a /n /w1 /es2 /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include;include

dejarlo asi, pero no te aconsejo ya que es la mejor manera de saber que variable no han sido declaradas

Code: Select all  Expand view

harbour $< /a /n /es2 /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include;include

[FranciscoA]

Gracias Patricio. La Classe también llama a una funcion SEARCH_TAB(cFound) que no existe. Se la tuve que inventar y todo funciona, por el momento.
Saludos.