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.

FileXLS para Xailer

Foro de Xailer profesional en español
Responder
Rene Flores
Mensajes: 620
Registrado: Jue Mar 23, 2006 2:39 am

FileXLS para Xailer

Mensaje por Rene Flores »

#ifndef _XLS_CH
#define _XLS_CH
// Cell alignament
#define ALING_NULL 0
#define ALING_LEFT 1
#define ALING_CENTER 2
#define ALING_RIGHT 3
#define ALING_FILL 4
// Cell border
#define BORDER_NONE 0
#define BORDER_LEFT 8
#define BORDER_RIGHT 16
#define BORDER_TOP 32
#define BORDER_BOTTOM 64
#define BORDER_ALL 120 // nOR( BORDER_LEFT, BORDER_RIGHT, BORDER_TOP, BORDER_BOTTOM )
// XLS error code
#define XLSERROR_NULL 0
#define XLSERROR_DIV0 7
#define XLSERROR_VALUE 15
#define XLSERROR_REF 23
#define XLSERROR_NAME 29
#define XLSERROR_NUM 36
#define XLSERROR_N_A 42
#include "XLSForm.ch"
/*---------------------------------------------------------- ------------------//
!short: DEFINEXLS */
#xcommand DEFINE XLS FONT <nFont> ;
[ NAME <cName> ] ;
[ HEIGHT <nHeight> ] ;
[ <bold: BOLD> ] ;
[ <italic: ITALIC> ] ;
[ <underline: UNDERLINE> ] ;
[ <strikeout: STRIKEOUT> ] ;
=> ;
<nFont> := XLSFont( <cName>, <nHeight>, ;
[<.bold.>], [<.italic.>], [<.underline.>], [<.strikeout.>] )
#xcommand RELEASE XLS FONT => XLSClsFont()
#xcommand DEFINE XLS FORMAT <nFormat> ;
[ PICTURE <cPicture> ] ;
=> ;
<nFormat> := XLSFormat( <cPicture> )
#xcommand RELEASE XLS FORMAT => XLSClsFormat()
/*---------------------------------------------------------- ------------------//
!short: FILEXLS */
#xcommand XLS <oXLS> [ FILE <cFile> ] ;
[ <noautomatic: NOAUTOMATIC, NO AUTOMATIC> ] ;
[ ITERATIONS <nIterations> ] ;
[ <lProtect: PROTECT> ] ;
[ <lAutoexec: AUTOEXEC> ] ;
[ OF <oParent> ] ;
=> ;
<oXLS> := TFileXLS():New( <(cFile)>, !<.noautomatic.>, ;
<nIterations>, <.lProtect.>, <.lAutoexec.>, <oParent> )
#xcommand XLS ROW <nRow> [ HEIGHT <nHeight> ] [ OF <oXLS> ] ;
=> ;
<oXLS>:_Row( <nRow>, <nHeight> )
#xcommand XLS COL <nFirstCol> [ TO <nLastCol> ] [ WIDTH <nWidth> ] [ OF <oXLS> ] ;
[ <hide: HIDE> ] ;
=> ;
<oXLS>:_Col( <nFirstCol>, <nLastCol>, <nWidth>, <.hide.> )
#xcommand @ <nRow>, <nCol> XLS [ SAY <uVal> ] [ OF <oXLS> ] ;
[ FONT <nFont> ] ;
[ FORMAT <nFormat> ] ;
[ <hidden: HIDDEN> ] ;
[ <locked: LOCKED> ] ;
[ <shaded: SHADED> ] ;
[ <border: BORDER> ] [ <nBorder> ] ;
[ ALIGNAMENT <nAlignament> ] ;
=> ;
<oXLS>:Say( <nRow>, <nCol>, <uVal>, ;
<.hidden.>, <.locked.>, <nFont>, <nFormat>, <.shaded.>, ;
if( <.border.> .and. !<.nBorder.>, BORDER_ALL, <nBorder> ), ;
<nAlignament> )
#xcommand @ <nRow>, <nCol> XLS FORMULA <formula> [ OF <oXLS> ] ;
[ VAL <nVal> ] ;
[ <norecalc: NORECALCULATE, NO RECALCULATE> ] ;
[ FONT <nFont> ] ;
[ FORMAT <nFormat> ] ;
[ <hidden: HIDDEN> ] ;
[ <locked: LOCKED> ] ;
[ <shaded: SHADED> ] ;
[ <border: BORDER> ] [ <nBorder> ] ;
[ ALIGNAMENT <nAlignament> ] ;
=> ;
<oXLS>:Formula( <nRow>, <nCol>, <nVal>, ;
!<.norecalc.>, <(formula)>, ;
<.hidden.>, <.locked.>, <nFont>, <nFormat>, <.shaded.>, ;
if( <.border.> .and. !<.nBorder.>, BORDER_ALL, <nBorder> ), ;
<nAlignament> )
/*
So that you formulate them they can process variable clipper in time of creation
of the XLS file, these variables must be declared as you publics.
Para que las formulas puedan procesar variables clipper en tiempo de creación
de la hoja XLS, estas variables han de estar declaradas como publicas.
*/
/*
For not confusing to the preprocessor you formulate them they cannot begin
with parenthesis, recommending you to begin the you formulate with the sign '+'.
Para no confundir al preprocesador las formulas no pueden comenzar con parentesis,
recomendandose comenzar las formulas con el signo '+'.
Example: / Ejemplo:
FORMULA ( xlsCELL(3,4) + xlsCELL(3,5) ) * 2
To substitute for: / Sustituir por:
FORMULA +( xlsCELL(3,4) + xlsCELL(3,5) ) * 2
*/
#xcommand @ <nRow>, <nCol> XLS ERROR <nError> [ OF <oXLS> ] ;
[ FONT <nFont> ] ;
[ FORMAT <nFormat> ] ;
[ <hidden: HIDDEN> ] ;
[ <locked: LOCKED> ] ;
[ <shaded: SHADED> ] ;
[ <border: BORDER> ] [ <nBorder> ] ;
[ ALIGNAMENT <nAlignament> ] ;
=> ;
<oXLS>:Error( <nRow>, <nCol>, <nError>, ;
<.hidden.>, <.locked.>, <nFont>, <nFormat>, <.shaded.>, ;
if( <.border.> .and. !<.nBorder.>, BORDER_ALL, <nBorder> ), ;
<nAlignament> )
#xcommand @ <nRow>, <nCol> XLS NOTE <cNote> [ OF <oXLS> ] ;
=> ;
<oXLS>:Note( <nRow>, <nCol>, <(cNote)> )
#xcommand XLS PAGE [ BREAK ] [ <course: HORIZONTAL, VERTICAL> ] AT <aBreaks,...> ;
[ OF <oXLS> ] ;
=> ;
<oXLS>:AddBreak( [ Upper(<(course)>) ], {<aBreaks>} )
#xcommand ENDXLS <oXLS> => <oXLS>:End()
//---------------------------------------------------------- ------------------//
#xcommand SET XLS TO DISPLAY ;
[ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ] ;
[ <lHidden: HIDDEN> ] ;
[ <lFormulas: FORMULAS> ] ;
[ <lNoGredlines: NOGRIDLINES, NO GRIDLINES> ] ;
[ <lNoHeaders: NOHEADERS, NO HEADERS> ] ;
[ <lNoZero: NOZERO, NO ZERO> ] ;
[ OF <oXLS> ] ;
=> ;
<oXLS>:SetDisplay( <nTop>, <nLeft>, <nBottom>, <nRight>, <.lHidden.>, ;
<.lFormulas.>, !<.lNoGredlines.>, !<.lNoHeaders.>, <.lNoZero.> )
#xcommand SET XLS TO PRINTER ;
[ HEADER <cHeader> ] ;
[ FOOTER <cFooter> ] ;
[ LEFT MARGIN <nLeft> ] ; // inches
[ RIGHT MARGIN <nRight> ] ; // inches
[ TOP MARGIN <nTop> ] ; // inches
[ BOTTOM MARGIN <nBottom> ] ; // inches
[ <lHeaders: HEADERS > ] ;
[ <lGredlines: GRIDLINES> ] ;
[ OF <oXLS> ] ;
=> ;
<oXLS>:SetPrinter( <cHeader>, <cFooter>, ;
<nLeft>, <nRight>, <nTop>, <nBottom>, ;
<.lHeaders.>, <.lGredlines.> )
//---------------------------------------------------------- ------------------//
// FileXLS Library (c) Ramón Avendaño

--
Arriba
Francisco Sanchez
Mensajes: 532
Registrado: Mié Feb 09, 2005 6:20 pm

FileXLS para Xailer

Mensaje por Francisco Sanchez »

Muchas gracias Rene.
Un saludo
"Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el mensaje
news:[email=431fa7f2@ozsrvnegro.ozlan.local...]431fa7f2@ozsrvnegro.ozlan.local...[/email]
> Hola a todos:
>
> Aqui os dejo la FileXLS de Ramon convertida a Xailer, simplemente
> agreguen la lib a su proyecto y a funcionar.
>
> Funciona EXACTAMENTE IGUAL que con FW, las funciones son las mismas y
> los comandos tambien.
>
> Saludos
>
> Rene Flores
> http://www.ciber-tec.com
>
------------------------------------------------------------ --------------------
> // Predefined XLS format
> #define XLSFORMAT_NUMBER_1 '0'
> #define XLSFORMAT_NUMBER_2 '0.00'
> #define XLSFORMAT_NUMBER_3 '#,##0'
> #define XLSFORMAT_NUMBER_4 '#,##0.00'
> #define XLSFORMAT_NUMBER_5 '#,##0 "pta";-#,##0 "pta"'
> #define XLSFORMAT_NUMBER_6 '#,##0 "pta";[Red]-#,##0 "pta"'
> #define XLSFORMAT_NUMBER_7 '#,##0.00 "pta";-#,##0.00 "pta"'
> #define XLSFORMAT_NUMBER_8 '#,##0.00 "pta";[Red]-#,##0.00 "pta"'
> #define XLSFORMAT_NUMBER_9 '0%'
> #define XLSFORMAT_NUMBER_10 '0.00%'
> #define XLSFORMAT_NUMBER_11 '0.00E+00'
> #define XLSFORMAT_DATE_1 'dd/mm/yy'
> #define XLSFORMAT_DATE_2 'dd-mmm-yy'
> #define XLSFORMAT_DATE_3 'dd-mmm'
> #define XLSFORMAT_DATE_4 'mmm-yy'
> #define XLSFORMAT_DATE_5 'h:mm a.m./p.m.'
> #define XLSFORMAT_DATE_6 'h:mm:ss a.m./p.m.'
> #define XLSFORMAT_DATE_7 'h:mm'
> #define XLSFORMAT_DATE_8 'h:mm:ss'
> #define XLSFORMAT_DATE_9 'dd/mm/yy h:mm'
> #define XLSFORMAT_DATE_10 'mm:ss'
------------------------------------------------------------ --------------------
> #ifndef _XLS_CH
> #define _XLS_CH
>
> // Cell alignament
> #define ALING_NULL 0
> #define ALING_LEFT 1
> #define ALING_CENTER 2
> #define ALING_RIGHT 3
> #define ALING_FILL 4
>
> // Cell border
> #define BORDER_NONE 0
> #define BORDER_LEFT 8
> #define BORDER_RIGHT 16
> #define BORDER_TOP 32
> #define BORDER_BOTTOM 64
> #define BORDER_ALL 120 // nOR( BORDER_LEFT, BORDER_RIGHT, BORDER_TOP,
> BORDER_BOTTOM )
>
> // XLS error code
> #define XLSERROR_NULL 0
> #define XLSERROR_DIV0 7
> #define XLSERROR_VALUE 15
> #define XLSERROR_REF 23
> #define XLSERROR_NAME 29
> #define XLSERROR_NUM 36
> #define XLSERROR_N_A 42
>
> #include "XLSForm.ch"
>
> /*---------------------------------------------------------- ------------------//
> !short: DEFINEXLS */
>
> #xcommand DEFINE XLS FONT <nFont> ;
> [ NAME <cName> ] ;
> [ HEIGHT <nHeight> ] ;
> [ <bold: BOLD> ] ;
> [ <italic: ITALIC> ] ;
> [ <underline: UNDERLINE> ] ;
> [ <strikeout: STRIKEOUT> ] ;
> => ;
> <nFont> := XLSFont( <cName>, <nHeight>, ;
> [<.bold.>], [<.italic.>], [<.underline.>],
> [<.strikeout.>] )
>
> #xcommand RELEASE XLS FONT => XLSClsFont()
>
>
> #xcommand DEFINE XLS FORMAT <nFormat> ;
> [ PICTURE <cPicture> ] ;
> => ;
> <nFormat> := XLSFormat( <cPicture> )
>
> #xcommand RELEASE XLS FORMAT => XLSClsFormat()
>
> /*---------------------------------------------------------- ------------------//
> !short: FILEXLS */
>
> #xcommand XLS <oXLS> [ FILE <cFile> ] ;
> [ <noautomatic: NOAUTOMATIC, NO AUTOMATIC> ] ;
> [ ITERATIONS <nIterations> ] ;
> [ <lProtect: PROTECT> ] ;
> [ <lAutoexec: AUTOEXEC> ] ;
> [ OF <oParent> ] ;
> => ;
> <oXLS> := TFileXLS():New( <(cFile)>, !<.noautomatic.>, ;
> <nIterations>, <.lProtect.>, <.lAutoexec.>, <oParent> )
>
>
> #xcommand XLS ROW <nRow> [ HEIGHT <nHeight> ] [ OF <oXLS> ] ;
> => ;
> <oXLS>:_Row( <nRow>, <nHeight> )
>
> #xcommand XLS COL <nFirstCol> [ TO <nLastCol> ] [ WIDTH <nWidth> ] [ OF
> <oXLS> ] ;
> [ <hide: HIDE> ] ;
> => ;
> <oXLS>:_Col( <nFirstCol>, <nLastCol>, <nWidth>, <.hide.> )
>
>
> #xcommand @ <nRow>, <nCol> XLS [ SAY <uVal> ] [ OF <oXLS> ] ;
> [ FONT <nFont> ] ;
> [ FORMAT <nFormat> ] ;
> [ <hidden: HIDDEN> ] ;
> [ <locked: LOCKED> ] ;
> [ <shaded: SHADED> ] ;
> [ <border: BORDER> ] [ <nBorder> ] ;
> [ ALIGNAMENT <nAlignament> ] ;
> => ;
> <oXLS>:Say( <nRow>, <nCol>, <uVal>, ;
> <.hidden.>, <.locked.>, <nFont>, <nFormat>,
> <.shaded.>, ;
> if( <.border.> .and. !<.nBorder.>, BORDER_ALL,
> <nBorder> ), ;
> <nAlignament> )
>
> #xcommand @ <nRow>, <nCol> XLS FORMULA <formula> [ OF <oXLS> ] ;
> [ VAL <nVal> ] ;
> [ <norecalc: NORECALCULATE, NO RECALCULATE> ] ;
> [ FONT <nFont> ] ;
> [ FORMAT <nFormat> ] ;
> [ <hidden: HIDDEN> ] ;
> [ <locked: LOCKED> ] ;
> [ <shaded: SHADED> ] ;
> [ <border: BORDER> ] [ <nBorder> ] ;
> [ ALIGNAMENT <nAlignament> ] ;
> => ;
> <oXLS>:Formula( <nRow>, <nCol>, <nVal>, ;
> !<.norecalc.>, <(formula)>, ;
> <.hidden.>, <.locked.>, <nFont>, <nFormat>,
> <.shaded.>, ;
> if( <.border.> .and. !<.nBorder.>, BORDER_ALL,
> <nBorder> ), ;
> <nAlignament> )
>
> /*
> So that you formulate them they can process variable clipper in time of
> creation
> of the XLS file, these variables must be declared as you publics.
>
> Para que las formulas puedan procesar variables clipper en tiempo de
> creación
> de la hoja XLS, estas variables han de estar declaradas como publicas.
>
> */
>
> /*
> For not confusing to the preprocessor you formulate them they cannot
> begin
> with parenthesis, recommending you to begin the you formulate with the
> sign '+'.
>
> Para no confundir al preprocesador las formulas no pueden comenzar con
> parentesis,
> recomendandose comenzar las formulas con el signo '+'.
>
> Example: / Ejemplo:
>
> FORMULA ( xlsCELL(3,4) + xlsCELL(3,5) ) * 2
>
> To substitute for: / Sustituir por:
>
> FORMULA +( xlsCELL(3,4) + xlsCELL(3,5) ) * 2
>
> */
>
> #xcommand @ <nRow>, <nCol> XLS ERROR <nError> [ OF <oXLS> ] ;
> [ FONT <nFont> ] ;
> [ FORMAT <nFormat> ] ;
> [ <hidden: HIDDEN> ] ;
> [ <locked: LOCKED> ] ;
> [ <shaded: SHADED> ] ;
> [ <border: BORDER> ] [ <nBorder> ] ;
> [ ALIGNAMENT <nAlignament> ] ;
> => ;
> <oXLS>:Error( <nRow>, <nCol>, <nError>, ;
> <.hidden.>, <.locked.>, <nFont>, <nFormat>,
> <.shaded.>, ;
> if( <.border.> .and. !<.nBorder.>, BORDER_ALL,
> <nBorder> ), ;
> <nAlignament> )
>
> #xcommand @ <nRow>, <nCol> XLS NOTE <cNote> [ OF <oXLS> ] ;
> => ;
> <oXLS>:Note( <nRow>, <nCol>, <(cNote)> )
>
> #xcommand XLS PAGE [ BREAK ] [ <course: HORIZONTAL, VERTICAL> ] AT
> <aBreaks,...> ;
> [ OF <oXLS> ] ;
> => ;
> <oXLS>:AddBreak( [ Upper(<(course)>) ], {<aBreaks>} )
>
> #xcommand ENDXLS <oXLS> => <oXLS>:End()
>
> //---------------------------------------------------------- ------------------//
>
> #xcommand SET XLS TO DISPLAY ;
> [ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ] ;
> [ <lHidden: HIDDEN> ] ;
> [ <lFormulas: FORMULAS> ] ;
> [ <lNoGredlines: NOGRIDLINES, NO GRIDLINES> ] ;
> [ <lNoHeaders: NOHEADERS, NO HEADERS> ] ;
> [ <lNoZero: NOZERO, NO ZERO> ] ;
> [ OF <oXLS> ] ;
> => ;
> <oXLS>:SetDisplay( <nTop>, <nLeft>, <nBottom>, <nRight>,
> <.lHidden.>, ;
> <.lFormulas.>, !<.lNoGredlines.>, !<.lNoHeaders.>,
> <.lNoZero.> )
>
> #xcommand SET XLS TO PRINTER ;
> [ HEADER <cHeader> ] ;
> [ FOOTER <cFooter> ] ;
> [ LEFT MARGIN <nLeft> ] ; // inches
> [ RIGHT MARGIN <nRight> ] ; // inches
> [ TOP MARGIN <nTop> ] ; // inches
> [ BOTTOM MARGIN <nBottom> ] ; // inches
> [ <lHeaders: HEADERS > ] ;
> [ <lGredlines: GRIDLINES> ] ;
> [ OF <oXLS> ] ;
> => ;
> <oXLS>:SetPrinter( <cHeader>, <cFooter>, ;
> <nLeft>, <nRight>, <nTop>, <nBottom>, ;
> <.lHeaders.>, <.lGredlines.> )
>
> //---------------------------------------------------------- ------------------//
> // FileXLS Library (c) Ramón Avendaño
>
>
Arriba
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

FileXLS para Xailer

Mensaje por PILO »

Reno no tengo ni idea de las funciones de la libreria, hay algun sitio donde
se pueda
tener dicha informacion,
Gracias de antemano Pilo
"Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el mensaje
news:[email=431fa7f2@ozsrvnegro.ozlan.local...]431fa7f2@ozsrvnegro.ozlan.local...[/email]
> Hola a todos:
>
> Aqui os dejo la FileXLS de Ramon convertida a Xailer, simplemente
> agreguen la lib a su proyecto y a funcionar.
>
> Funciona EXACTAMENTE IGUAL que con FW, las funciones son las mismas y
> los comandos tambien.
>
> Saludos
>
> Rene Flores
> http://www.ciber-tec.com
>
------------------------------------------------------------ --------------------
> // Predefined XLS format
> #define XLSFORMAT_NUMBER_1 '0'
> #define XLSFORMAT_NUMBER_2 '0.00'
> #define XLSFORMAT_NUMBER_3 '#,##0'
> #define XLSFORMAT_NUMBER_4 '#,##0.00'
> #define XLSFORMAT_NUMBER_5 '#,##0 "pta";-#,##0 "pta"'
> #define XLSFORMAT_NUMBER_6 '#,##0 "pta";[Red]-#,##0 "pta"'
> #define XLSFORMAT_NUMBER_7 '#,##0.00 "pta";-#,##0.00 "pta"'
> #define XLSFORMAT_NUMBER_8 '#,##0.00 "pta";[Red]-#,##0.00 "pta"'
> #define XLSFORMAT_NUMBER_9 '0%'
> #define XLSFORMAT_NUMBER_10 '0.00%'
> #define XLSFORMAT_NUMBER_11 '0.00E+00'
> #define XLSFORMAT_DATE_1 'dd/mm/yy'
> #define XLSFORMAT_DATE_2 'dd-mmm-yy'
> #define XLSFORMAT_DATE_3 'dd-mmm'
> #define XLSFORMAT_DATE_4 'mmm-yy'
> #define XLSFORMAT_DATE_5 'h:mm a.m./p.m.'
> #define XLSFORMAT_DATE_6 'h:mm:ss a.m./p.m.'
> #define XLSFORMAT_DATE_7 'h:mm'
> #define XLSFORMAT_DATE_8 'h:mm:ss'
> #define XLSFORMAT_DATE_9 'dd/mm/yy h:mm'
> #define XLSFORMAT_DATE_10 'mm:ss'
------------------------------------------------------------ --------------------
> #ifndef _XLS_CH
> #define _XLS_CH
>
> // Cell alignament
> #define ALING_NULL 0
> #define ALING_LEFT 1
> #define ALING_CENTER 2
> #define ALING_RIGHT 3
> #define ALING_FILL 4
>
> // Cell border
> #define BORDER_NONE 0
> #define BORDER_LEFT 8
> #define BORDER_RIGHT 16
> #define BORDER_TOP 32
> #define BORDER_BOTTOM 64
> #define BORDER_ALL 120 // nOR( BORDER_LEFT, BORDER_RIGHT, BORDER_TOP,
> BORDER_BOTTOM )
>
> // XLS error code
> #define XLSERROR_NULL 0
> #define XLSERROR_DIV0 7
> #define XLSERROR_VALUE 15
> #define XLSERROR_REF 23
> #define XLSERROR_NAME 29
> #define XLSERROR_NUM 36
> #define XLSERROR_N_A 42
>
> #include "XLSForm.ch"
>
> /*---------------------------------------------------------- ------------------//
> !short: DEFINEXLS */
>
> #xcommand DEFINE XLS FONT <nFont> ;
> [ NAME <cName> ] ;
> [ HEIGHT <nHeight> ] ;
> [ <bold: BOLD> ] ;
> [ <italic: ITALIC> ] ;
> [ <underline: UNDERLINE> ] ;
> [ <strikeout: STRIKEOUT> ] ;
> => ;
> <nFont> := XLSFont( <cName>, <nHeight>, ;
> [<.bold.>], [<.italic.>], [<.underline.>],
> [<.strikeout.>] )
>
> #xcommand RELEASE XLS FONT => XLSClsFont()
>
>
> #xcommand DEFINE XLS FORMAT <nFormat> ;
> [ PICTURE <cPicture> ] ;
> => ;
> <nFormat> := XLSFormat( <cPicture> )
>
> #xcommand RELEASE XLS FORMAT => XLSClsFormat()
>
> /*---------------------------------------------------------- ------------------//
> !short: FILEXLS */
>
> #xcommand XLS <oXLS> [ FILE <cFile> ] ;
> [ <noautomatic: NOAUTOMATIC, NO AUTOMATIC> ] ;
> [ ITERATIONS <nIterations> ] ;
> [ <lProtect: PROTECT> ] ;
> [ <lAutoexec: AUTOEXEC> ] ;
> [ OF <oParent> ] ;
> => ;
> <oXLS> := TFileXLS():New( <(cFile)>, !<.noautomatic.>, ;
> <nIterations>, <.lProtect.>, <.lAutoexec.>, <oParent> )
>
>
> #xcommand XLS ROW <nRow> [ HEIGHT <nHeight> ] [ OF <oXLS> ] ;
> => ;
> <oXLS>:_Row( <nRow>, <nHeight> )
>
> #xcommand XLS COL <nFirstCol> [ TO <nLastCol> ] [ WIDTH <nWidth> ] [ OF
> <oXLS> ] ;
> [ <hide: HIDE> ] ;
> => ;
> <oXLS>:_Col( <nFirstCol>, <nLastCol>, <nWidth>, <.hide.> )
>
>
> #xcommand @ <nRow>, <nCol> XLS [ SAY <uVal> ] [ OF <oXLS> ] ;
> [ FONT <nFont> ] ;
> [ FORMAT <nFormat> ] ;
> [ <hidden: HIDDEN> ] ;
> [ <locked: LOCKED> ] ;
> [ <shaded: SHADED> ] ;
> [ <border: BORDER> ] [ <nBorder> ] ;
> [ ALIGNAMENT <nAlignament> ] ;
> => ;
> <oXLS>:Say( <nRow>, <nCol>, <uVal>, ;
> <.hidden.>, <.locked.>, <nFont>, <nFormat>,
> <.shaded.>, ;
> if( <.border.> .and. !<.nBorder.>, BORDER_ALL,
> <nBorder> ), ;
> <nAlignament> )
>
> #xcommand @ <nRow>, <nCol> XLS FORMULA <formula> [ OF <oXLS> ] ;
> [ VAL <nVal> ] ;
> [ <norecalc: NORECALCULATE, NO RECALCULATE> ] ;
> [ FONT <nFont> ] ;
> [ FORMAT <nFormat> ] ;
> [ <hidden: HIDDEN> ] ;
> [ <locked: LOCKED> ] ;
> [ <shaded: SHADED> ] ;
> [ <border: BORDER> ] [ <nBorder> ] ;
> [ ALIGNAMENT <nAlignament> ] ;
> => ;
> <oXLS>:Formula( <nRow>, <nCol>, <nVal>, ;
> !<.norecalc.>, <(formula)>, ;
> <.hidden.>, <.locked.>, <nFont>, <nFormat>,
> <.shaded.>, ;
> if( <.border.> .and. !<.nBorder.>, BORDER_ALL,
> <nBorder> ), ;
> <nAlignament> )
>
> /*
> So that you formulate them they can process variable clipper in time of
> creation
> of the XLS file, these variables must be declared as you publics.
>
> Para que las formulas puedan procesar variables clipper en tiempo de
> creación
> de la hoja XLS, estas variables han de estar declaradas como publicas.
>
> */
>
> /*
> For not confusing to the preprocessor you formulate them they cannot
> begin
> with parenthesis, recommending you to begin the you formulate with the
> sign '+'.
>
> Para no confundir al preprocesador las formulas no pueden comenzar con
> parentesis,
> recomendandose comenzar las formulas con el signo '+'.
>
> Example: / Ejemplo:
>
> FORMULA ( xlsCELL(3,4) + xlsCELL(3,5) ) * 2
>
> To substitute for: / Sustituir por:
>
> FORMULA +( xlsCELL(3,4) + xlsCELL(3,5) ) * 2
>
> */
>
> #xcommand @ <nRow>, <nCol> XLS ERROR <nError> [ OF <oXLS> ] ;
> [ FONT <nFont> ] ;
> [ FORMAT <nFormat> ] ;
> [ <hidden: HIDDEN> ] ;
> [ <locked: LOCKED> ] ;
> [ <shaded: SHADED> ] ;
> [ <border: BORDER> ] [ <nBorder> ] ;
> [ ALIGNAMENT <nAlignament> ] ;
> => ;
> <oXLS>:Error( <nRow>, <nCol>, <nError>, ;
> <.hidden.>, <.locked.>, <nFont>, <nFormat>,
> <.shaded.>, ;
> if( <.border.> .and. !<.nBorder.>, BORDER_ALL,
> <nBorder> ), ;
> <nAlignament> )
>
> #xcommand @ <nRow>, <nCol> XLS NOTE <cNote> [ OF <oXLS> ] ;
> => ;
> <oXLS>:Note( <nRow>, <nCol>, <(cNote)> )
>
> #xcommand XLS PAGE [ BREAK ] [ <course: HORIZONTAL, VERTICAL> ] AT
> <aBreaks,...> ;
> [ OF <oXLS> ] ;
> => ;
> <oXLS>:AddBreak( [ Upper(<(course)>) ], {<aBreaks>} )
>
> #xcommand ENDXLS <oXLS> => <oXLS>:End()
>
> //---------------------------------------------------------- ------------------//
>
> #xcommand SET XLS TO DISPLAY ;
> [ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ] ;
> [ <lHidden: HIDDEN> ] ;
> [ <lFormulas: FORMULAS> ] ;
> [ <lNoGredlines: NOGRIDLINES, NO GRIDLINES> ] ;
> [ <lNoHeaders: NOHEADERS, NO HEADERS> ] ;
> [ <lNoZero: NOZERO, NO ZERO> ] ;
> [ OF <oXLS> ] ;
> => ;
> <oXLS>:SetDisplay( <nTop>, <nLeft>, <nBottom>, <nRight>,
> <.lHidden.>, ;
> <.lFormulas.>, !<.lNoGredlines.>, !<.lNoHeaders.>,
> <.lNoZero.> )
>
> #xcommand SET XLS TO PRINTER ;
> [ HEADER <cHeader> ] ;
> [ FOOTER <cFooter> ] ;
> [ LEFT MARGIN <nLeft> ] ; // inches
> [ RIGHT MARGIN <nRight> ] ; // inches
> [ TOP MARGIN <nTop> ] ; // inches
> [ BOTTOM MARGIN <nBottom> ] ; // inches
> [ <lHeaders: HEADERS > ] ;
> [ <lGredlines: GRIDLINES> ] ;
> [ OF <oXLS> ] ;
> => ;
> <oXLS>:SetPrinter( <cHeader>, <cFooter>, ;
> <nLeft>, <nRight>, <nTop>, <nBottom>, ;
> <.lHeaders.>, <.lGredlines.> )
>
> //---------------------------------------------------------- ------------------//
> // FileXLS Library (c) Ramón Avendaño
>
>
Arriba
Responder

Volver a “Xailer Pro Spanish”