oPrn:RoundBox() diferente a oPrn:say

[D.Fernandez]

Hola amigos, sigo molestando con esto.
Encuentro comportamientos diferentes en
roundbox y say
cTitulo[11] := "Ruben & Dario"

oPrn:RoundBox( 1, 7.8, 1.8 , 13, 0.1,0.1, fPen1,CLR_WHITE, {cTitulo[11], oFont5, CLR_BLACK} ,"CM" ) ==> No muestra el carácter & y no lo imprime

oPrn:Say( 3, 7.8 , cTitulo[11] , oFonts, 5, nil, nil, 1, "CM" ) ==> Muestra e imprime correctamente

Saludos y gracias

Ruben Fernandez

[karinha]

Cual és tú versión de FWH? Debria funcionar bién! versiones antiguas, no funciona mismo.

Regards, saludos.

[rubenfernandez01]

Es 22.12 la actual.
Gracias

Enviado desde mi 21081111RG mediante Tapatalk

[karinha]

Entendido. Muestre un ejemplo práctico, para que el personal de FiveTech compile y confirme el defecto en esta versión de Fivewin que utiliza.

Regards, saludos.

[D.Fernandez]

Ejemplo, mismo que usó Mr. Rao. Le agregué el símbolo &.

Difiere lo que se ve en Preview con lo que muestra en PDF (apretando boton de acrobat en el preview

En el PDF no se ven los textos en vertical

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oPrn, oPen, oPen2, oFont, oFontV, oFontS, oFont14V, oBrush
   local cSyntax := "Synt&&ax& : &" + CRLF + ;
         "RoundBox( nTop, nLeft, nBottom, nRight, nRndW, nRndH, oPen, onBack, aText, cUnits )"
   local cText := "aText :" + CRLF + "{ cText, oFont, nClrText, [cAlign] }"

   DEFINE BRUSH oBrush FILE "c:\fwh2212\bitmaps\backgrnd\browback.bmp"

   PRINT oPrn PREVIEW

   DEFINE PEN oPen WIDTH 3 COLOR CLR_HRED OF oPrn
   DEFINE PEN oPen2 WIDTH 1 COLOR CLR_BLACK OF oPrn
   DEFINE FONT oFontS NAME "ARIAL" SIZE 0,-12 OF oPrn
   DEFINE FONT oFont  NAME "ARIAL" SIZE 0,-20 OF oPrn
   DEFINE FONT oFontV NAME "ARIAL" SIZE 0,-20 BOLD NESCAPEMENT 900 OF oPrn
   DEFINE FONT oFont14V NAME "ARIAL" SIZE 0,-14 NESCAPEMENT 900 OF oPrn

   PAGE

   oPrn:RoundBox( 1.0, 1.0, 2.0, 7.5, 0.4, 0.4, oPen, CLR_YELLOW, ;
      { "HORI&&ZONTAL&" + CRLF + "otro & texto &&, prueba&&&" , { oFont, oFontS }, CLR_HRED }, "INCHES" )

   oPrn:RoundBox( 2.2, 1.0, 4.2, 2.0, 0.2, 0.2, oPen, CLR_GRAY,  ;
      { "VERTICAL&" + CRLF + "TEXT&&", oFontV, CLR_YELLOW }, "INCHES" )

   oPrn:RoundBox( 5.9, 1.5, 7.1, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
      { "Faturas", oFont14V, CLR_BLACK }, "INCHES" )

   oPrn:RoundBox( 7.1, 1.5, 8.3, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
      { "Cálculo&" + CRLF + "Impo&sto", oFont14V, CLR_BLACK }, "INCHES" )

   oPrn:RoundBox( 8.3, 1.5, 10.2, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
      { "Transportador", oFont14V, CLR_BLACK }, "INCHES" )

   oPrn:RoundBox( 2.2, 3.0, 4.2, 7.5, 0.3, 0.3, oPen, oBrush, ;
            { cSyntax, oFont, CLR_BLACK }, "INCHES" )

   oPrn:RoundBox( 4.4, 3.0, 5.9, 7.5, 0.3, 0.3, oPen, CLR_WHITE, ;
            { cText, oFont, CLR_BLACK }, "INCHES" )

   ENDPAGE
   ENDPRINT

return nil

Gracias y saludos

Ruben Fernandez

[karinha]

Dario, mira:

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\DARIOF.PRG

#include "fivewin.ch"

function Main()

   local oPrn, oPen, oPen2, oFont, oFontV, oFontS, oFont14V, oBrush
   local cSyntax := "Synt&&ax& : &" + CRLF + ;
         "RoundBox( nTop, nLeft, nBottom, nRight, nRndW, nRndH, oPen, onBack, aText, cUnits )"
   local cText := "aText :" + CRLF + "{ cText, oFont, nClrText, [cAlign] }"

   LOCAL ctitulo9

   ctitulo9 := "Gancedo && Asociados S.R.L."

   DEFINE BRUSH oBrush FILE "c:\fwh1905\bitmaps\backgrnd\browback.bmp"

   PRINT oPrn PREVIEW
   // PRINT oPrn FILE "DARIOF.pdf"

   DEFINE PEN oPen      WIDTH 3 COLOR CLR_HRED OF oPrn
   DEFINE PEN oPen2     WIDTH 1 COLOR CLR_BLACK OF oPrn

   DEFINE FONT oFontS   NAME "ARIAL" SIZE 0,-12 OF oPrn
   DEFINE FONT oFont    NAME "ARIAL" SIZE 0,-20 OF oPrn

   // ASI, NO GENERA EL DARIOF.PDF EL ARCHIVO RETORNA VACIO.
   /*
   DEFINE FONT oFontV   NAME "ARIAL" SIZE 0,-20 BOLD NESCAPEMENT 900 OF oPrn
   DEFINE FONT oFont14V NAME "ARIAL" SIZE 0,-14 NESCAPEMENT 900 OF oPrn
   */

   DEFINE FONT oFontV   NAME "ARIAL" SIZE 0,-20 BOLD OF oPrn
   DEFINE FONT oFont14V NAME "ARIAL" SIZE 0,-14 NESCAPEMENT 900 OF oPrn

   PAGE

      // FUNCIONA
      oPrn:RoundBox( 1.0, 1.0, 2.0, 7.5, 0.4, 0.4, oPen, CLR_YELLOW, ;
                     { "HORI&&ZONTAL&" + CRLF + "otro & texto &&, prueba&&&" , { oFont, oFontS }, CLR_HRED }, "INCHES" )

      /* // AQUI, genera error y no genera el PDF.
      oPrn:RoundBox( 2.2, 1.0, 4.2, 2.0, 0.2, 0.2, oPen, CLR_GRAY,  ;
                     { "VERTICAL&" + CRLF + "TEXT&&", oFontV, CLR_YELLOW }, "INCHES" )
      */

      // SIN EL NESCAPEMENT FUNCIONA BIEN.
      oPrn:RoundBox( 2.2, 1.0, 4.2, 2.0, 0.2, 0.2, oPen, CLR_GRAY,  ;
                     { "VERTICAL&" + CRLF + "TEXT&&", oFontV, CLR_YELLOW }, "INCHES" )

      /* // AQUI, genera error y no genera el PDF.
      oPrn:RoundBox( 5.9, 1.5, 7.1, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
                     { "Faturas", oFont14V, CLR_BLACK }, "INCHES" )
      */

      /* // AQUI, genera error y no genera el PDF.
      oPrn:RoundBox( 7.1, 1.5, 8.3, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
                     { "Cálculo&" + CRLF + "Impo&sto", oFont14V, CLR_BLACK }, "INCHES" )
      */

      /* // AQUI, genera error y no genera el PDF.
      oPrn:RoundBox( 8.3, 1.5, 10.2, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
                     { "Transportador", oFont14V, CLR_BLACK }, "INCHES" )
      */

      // FUNCIONA
      oPrn:RoundBox( 2.2, 3.0, 4.2, 7.5, 0.3, 0.3, oPen, oBrush, ;
                     { cSyntax, oFont, CLR_BLACK }, "INCHES" )

      // FUNCIONA
      oPrn:RoundBox( 4.4, 3.0, 5.9, 7.5, 0.3, 0.3, oPen, CLR_WHITE, ;
                     { cText, oFont, CLR_BLACK }, "INCHES" )

      // FUNCIONA
      oPrn:RoundBox( 1, 1, 5, 5, .5, .5, { CLR_HRED, 3 }, oBrush,          ;
                     { "FIRST" + CRLF + "SECOND", oFont, CLR_WHITE, "B" }, ;
                     "INCHES" )

      // FUNCIONA
      oPrn:RoundBox( 1, 7.8, 1.8 , 15.50, 0.5,0.5, oPen, { CLR_WHITE, 3 }, ;
                     { cTitulo9, oFont, CLR_BLACK }, "CM" )

   ENDPAGE

   ENDPRINT

   oFontV:End()
   oFontS:End()
   oFont14V:End()
   oBrush:End()

RETURN NIL

// fin / end
 

Regards, saludos.

[D.Fernandez]

Disculpa las molestias.


No funciona con letra VERTICAL
No funciona cuando son 1 o 3 o 5 signos de & y si funciona con oPrn:say

Este es tu ejemplo y verás que no funciona del todo bien.
Si pones 2 &, imprime 1 y si ponere 3 & tambien imprime 1, si pones 4 imprime 2.
Los & impares no los muestra bien.
PERO, pienso que hay un error porque
oPrn:Say( 1, 15.5, cTitulo9 , oFont, 5, nil, nil, 1, "CM" )

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\DARIOF.PRG

#include "fivewin.ch"

function Main()

   local oPrn, oPen, oPen2, oFont, oFontV, oFontS, oFont14V, oBrush
   local cSyntax := "Synt&&ax& : &" + CRLF + ;
         "RoundBox( nTop, nLeft, nBottom, nRight, nRndW, nRndH, oPen, onBack, aText, cUnits )"
   local cText := "aText :" + CRLF + "{ cText, oFont, nClrText, [cAlign] }"

   LOCAL ctitulo9

cTitulo7 := " Gancedo & Asociados S.R.L."           // FUNCIONA MUESTRA 1 &
cTitulo8 := " Gancedo && Asociados S.R.L."   // FUNCIONA MUESTRA 2 &
ctitulo9 := "Gancedo && Asociados S.R.L."
                                   
   DEFINE BRUSH oBrush FILE "c:\fwh1905\bitmaps\backgrnd\browback.bmp"

   PRINT oPrn PREVIEW
   // PRINT oPrn FILE "DARIOF.pdf"

   DEFINE PEN oPen      WIDTH 3 COLOR CLR_HRED OF oPrn
   DEFINE PEN oPen2     WIDTH 1 COLOR CLR_BLACK OF oPrn

   DEFINE FONT oFontS   NAME "ARIAL" SIZE 0,-12 OF oPrn
   DEFINE FONT oFont    NAME "ARIAL" SIZE 0,-20 OF oPrn

   // ASI, NO GENERA EL DARIOF.PDF EL ARCHIVO RETORNA VACIO.
   /*
   DEFINE FONT oFontV   NAME "ARIAL" SIZE 0,-20 BOLD NESCAPEMENT 900 OF oPrn
   DEFINE FONT oFont14V NAME "ARIAL" SIZE 0,-14 NESCAPEMENT 900 OF oPrn
   */

   DEFINE FONT oFontV   NAME "ARIAL" SIZE 0,-20 BOLD OF oPrn
   DEFINE FONT oFont14V NAME "ARIAL" SIZE 0,-14 NESCAPEMENT 900 OF oPrn

   PAGE

      // NO  FUNCIONA TIENE MAS SIGNOS DE &    
      // FUNCIONA
      oPrn:RoundBox( 1.0, 1.0, 2.0, 7.5, 0.4, 0.4, oPen, CLR_YELLOW, ;
                     { "HORI&&ZONTAL&" + CRLF + "otro & texto &&7, prueba&&&&&" , { oFont, oFontS }, CLR_HRED }, "INCHES" )

      /* // AQUI, genera error y no genera el PDF.
      oPrn:RoundBox( 2.2, 1.0, 4.2, 2.0, 0.2, 0.2, oPen, CLR_GRAY,  ;
                     { "VERTICAL&" + CRLF + "TEXT&&", oFontV, CLR_YELLOW }, "INCHES" )
      */

      // NO FUNCIONA CUANDO TIENE UN SIGNO &    
      // SIN EL NESCAPEMENT FUNCIONA BIEN.
      oPrn:RoundBox( 2.2, 1.0, 4.2, 2.0, 0.2, 0.2, oPen, CLR_GRAY,  ;
                     { "VERTICAL&" + CRLF + "TEXT&&", oFontV, CLR_YELLOW }, "INCHES" )

      /* // AQUI, genera error y no genera el PDF.
      oPrn:RoundBox( 5.9, 1.5, 7.1, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
                     { "Faturas", oFont14V, CLR_BLACK }, "INCHES" )
      */

      /* // AQUI, genera error y no genera el PDF.
      oPrn:RoundBox( 7.1, 1.5, 8.3, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
                     { "Cálculo&" + CRLF + "Impo&sto", oFont14V, CLR_BLACK }, "INCHES" )
      */

      /* // AQUI, genera error y no genera el PDF.
      oPrn:RoundBox( 8.3, 1.5, 10.2, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
                     { "Transportador", oFont14V, CLR_BLACK }, "INCHES" )
      */

      // NO FUNCIONA cSyntax tiene mas &  
      // FUNCIONA
      oPrn:RoundBox( 2.2, 3.0, 4.2, 7.5, 0.3, 0.3, oPen, oBrush, ;
                     { cSyntax, oFont, CLR_BLACK }, "INCHES" )

      // FUNCIONA
      oPrn:RoundBox( 4.4, 3.0, 5.9, 7.5, 0.3, 0.3, oPen, CLR_WHITE, ;
                     { cText, oFont, CLR_BLACK }, "INCHES" )

      // FUNCIONA
      oPrn:RoundBox( 1, 1, 5, 5, .5, .5, { CLR_HRED, 3 }, oBrush,          ;
                     { "FIRST" + CRLF + "SECOND", oFont, CLR_BLACK, "B" }, ;
                     "INCHES" )

     
      // SI Y NO,  FUNCIONA PERO TIENE 2 SIGNOS && // FUNCIONA
      // CUANDO TIENE UN SIGNO DE & NO FUNCIONA
      oPrn:RoundBox( 1, 7.8, 1.8 , 15.50, 0.5,0.5, oPen, { CLR_WHITE, 3 }, ;
                     { cTitulo9, oFont, CLR_BLACK }, "CM" )

//FUNCIONA CORRECTAMENTE Y SE VE EXACTAMENTE LO MISMO AL GENERAR EL PDF
oPrn:Say( 20, 15.5,    cTitulo7 ,    oFont, 15, nil, nil, 1, "CM" )
oPrn:Say( 21, 15.5,    cTitulo8 ,    oFont, 15, nil, nil, 1, "CM" )



   ENDPAGE

   ENDPRINT

   oFontV:End()
   oFontS:End()
   oFont14V:End()
   oBrush:End()

RETURN NIL

// fin / end