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
--
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
FileXLS para Xailer PR6b ¡ listo !
-
Rene Flores
- Mensajes: 620
- Registrado: Jue Mar 23, 2006 2:39 am
-
Pedro Amaro
- Mensajes: 157
- Registrado: Jue May 18, 2006 5:10 pm
FileXLS para Xailer PR6b ¡ listo !
Toda aportacion es bienvenida Rene,
¡pero como funcionaba en FW!
porque algunos somos novatos en esto de xbase.
Saludos
Pedro Amaro
¡pero como funcionaba en FW!
porque algunos somos novatos en esto de xbase.
Saludos
Pedro Amaro
-
Rene Flores
- Mensajes: 620
- Registrado: Jue Mar 23, 2006 2:39 am
FileXLS para Xailer PR6b ¡ listo !
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
>
>
>
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
>
>
>