REPORT.CH
Publicado: Jue Mar 03, 2005 5:34 pm
Yo en mi codigo no hago referencia a ningun afonts, es el report.ch el que
si hace referencia a afonts
De todas formas hice pruebas con varias combinaciones y no hay manera de
utilizar FONTS sin que me de error, al menos no he podido, Evidentemente
estare haciendo algo mal. Pero fijate en el codigo de la equivalencia del
preprocesado de REPORT que utiliza afonts
WITH OBJECT <oReport> := TReport():New( [ <oParent> ] ) ;
[; :oTitle := TRptLine():Create( <oReport>, {<{bTitle}>},
<nTitleAlign>, "t" ) ] ;
[; :oHeader := TRptLine():Create( <oReport>,
{<{bHeader}>}, <nHeaderAlign>, "h" ) ] ;
[; :oFooter := TRptLine():Create( <oReport>,
{<{bFooter}>}, <nFooterAlign>, "f" ) ] ;
[; :aFonts := {<oFont>} ] ;
[; :oPen := <oPen> ] ;
[; :lSummary := <.lSummary.> ] ;
[; :lPreview := <.lPreview.> ] ;
[; :oDevice := <oPrinter> ] ;
[; :cJobName := <cJobName> ] ;
;:Create() ;
;END
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
si hace referencia a afonts
De todas formas hice pruebas con varias combinaciones y no hay manera de
utilizar FONTS sin que me de error, al menos no he podido, Evidentemente
estare haciendo algo mal. Pero fijate en el codigo de la equivalencia del
preprocesado de REPORT que utiliza afonts
WITH OBJECT <oReport> := TReport():New( [ <oParent> ] ) ;
[; :oTitle := TRptLine():Create( <oReport>, {<{bTitle}>},
<nTitleAlign>, "t" ) ] ;
[; :oHeader := TRptLine():Create( <oReport>,
{<{bHeader}>}, <nHeaderAlign>, "h" ) ] ;
[; :oFooter := TRptLine():Create( <oReport>,
{<{bFooter}>}, <nFooterAlign>, "f" ) ] ;
[; :aFonts := {<oFont>} ] ;
[; :oPen := <oPen> ] ;
[; :lSummary := <.lSummary.> ] ;
[; :lPreview := <.lPreview.> ] ;
[; :oDevice := <oPrinter> ] ;
[; :cJobName := <cJobName> ] ;
;:Create() ;
;END
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -