Xailer & OZ Software

Hola a todos.
No posteo mucho por aqui,pero ya me vereis ahora dando la tabarra.
Como sabran he hecho algunas chapucillas para pasar la FileXLS de Ramon
Avendaño a Xailer, y hasta ahora va bastante bien.
Anexo les dejo la lib para el PreRelease 6b de Xailer, totalmente
reconstruida con la nueva version de xHarbour 99.51
La FileXLS para Xailer funciona EXACTAMENTE igual a la de FW.
Saludos
Rene Flores
http;//www.ciber-tec.com
--

Toda aportacion es bienvenida Rene,
¡pero como funcionaba en FW!
porque algunos somos novatos en esto de xbase.
Saludos
Pedro Amaro

Pedro:
Este es un ejemplo hecho en Xailer:
METHOD ExportaExcel CLASS LaQueSea
LOCAL oFont1,oFont2,oFont3, oFormat1,nCiclo
LOCAL nField, nCargo, nAbonos, x
oFont1 := XLSFONT("ARIAL",10)
oFont2 := XLSFONT("Courier new",10)
oFont3 := XLSFONT("Courier new",10,.T.)
oFormat1 := XLSFORMAT("#,##0.00")
WITH OBJECT oXLS := TFileXls():New(cNomArchivo,,,.f.,.t.)
:Say(1,1,NOMBRE_EMPRESA,,,oFont1)
:Say(3,1,"Saldos del ejercicio: "+ALLTRIM(STR(EJERCICIO)),,,oFont1)
(ALI_CATTOD)->(DBGOTOP())
nCiclo := 5
:_Col(1,1,20)
:_Col(2,5,15)
DO WHILE ! (ALI_CATTOD)->(EOF())
:Say(nCiclo,1,(ALI_CATTOD)->cuenta+"-"+;
(ALI_CATTOD)->subcuenta+"-"+;
(ALI_CATTOD)->ssubcuenta+"-"+;
(ALI_CATTOD)->auxiliar+" "+;
(ALI_CATTOD)->Descripcio,,,oFont3)
nCiclo++
nField := 9
nCargos := 0
nAbonos := 0
FOR x := 1 TO LEN(ARR_MESES)
:Say(nCiclo,1,ARR_MESES[x],,,oFont2)
:Say(nCiclo,2,(ALI_CATTOD)->(FIELDGET(nField));
,,,oFont2,oFormat1)
nField ++
:Say(nCiclo,3,(ALI_CATTOD)->(FIELDGET(nField));
,,,oFont2,oFormat1)
nCargos += (ALI_CATTOD)->(FIELDGET(nField))
nField++
:Say(nCiclo,4,(ALI_CATTOD)->(FIELDGET(nField));
,,,oFont2,oFormat1)
nAbonos += (ALI_CATTOD)->(FIELDGET(nField))
nField++
:Say(nCiclo,5,(ALI_CATTOD)->(FIELDGET(nField)),,,;
oFont2,oFormat1)
nCiclo++
NEXT x
:Say(nCiclo,3,nCargos,,,oFont3,oFormat1)
:Say(nCiclo,4,nAbonos,,,oFont3,oFormat1)
nCiclo += 2
(ALI_CATTOD)->(DBSKIP())
ENDDO
:End()
END WITH
RETURN Nil
Amaro escribió:
>
> Toda aportacion es bienvenida Rene,
>
> ¡pero como funcionaba en FW!
>
> porque algunos somos novatos en esto de xbase.
>
> Saludos
> Pedro Amaro
>
>
>