Print Problem with FWH2104

[vilian]

Hi Guys,

I used to print a form using something like this:

Define Pen oPenDot style PS_DOT Width 1 Color CLR_BLACK Of oPrn
oPrn:Line(aPos[1],aPos[2],aPos[1],aPos[2]+aTam[1],oPenDot)

The same code in new FWH2104 is generating a completely different result, as you can see in the images bellow:

FWH1905


FWH2104


Do you know why ?

[karinha]

Windows 10?

[vilian]

Yes.

[karinha]

Yes.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=40088&sid=5d07cf671660e3a4dc869c5fe17d0c0c

https://www.xatakawindows.com/windows/microsoft-confirma-fallos-actualizacion-marzo-2021-solo-queda-desinstalar-llega-parche

Regards, saludos.

[vilian]

Thank You Karinha, But it's not the problem. IF I generate the EXE with my previous version of FWH (1905) everything is fine. So the problem isn't with windows version.
The problem only is happening with the FWH2104 version.

[karinha]

Thank You Karinha, But it's not the problem. IF I generate the EXE with my previous version of FWH (1905) everything is fine. So the problem isn't with windows version.
The problem only is happening with the FWH2104 version.

PRINTER.PRG ou RPREVIEW.PRG de outra versão?

Abs.

[vilian]

Only RPREVIEW.prg I use a modified version, but i tried without this and the problem is the same. I Think the problem is with the method oPrn:Line(), I'm checking...
I

[nageswaragunupudi]

We will check this.
Can you please prepare a very small sample to try at our end?

[vilian]

Here is it:

Code: Select all  Expand view

#include "FiveWin.ch"
#define PAD_LEFT                        0
static oWnd,oPrn,oPenDot,oPenFill,oPenSolid  

//----------------------------------------------------------------------------//


function Main()

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 TITLE "Printing a Window"

   @ 3, 3 BUTTON "&Print me" OF oWnd SIZE 80, 20 ;
      ACTION PrintMe()  // try also with oWnd:HardCopy()

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function PrintMe()

   PRINT oPrn NAME "Test" PREVIEW
      oPrn:SetLandscape()      
      DEFINE BRUSH oPenFill  COLOR CLR_HGRAY
      Define Pen oPenDot style PS_DOT Width 1 Color CLR_BLACK Of oPrn
      DEFINE FONT  oFont07v NAME "ARIAL" SIZE 0,-07 OF oPrn NESCAPEMENT 900
      Define Pen oPenSolid  style PS_SOLID Width 2 Color CLR_BLACK Of oPrn

      PAGE
         Box(05.9,1.5,0.6,01.2,"","Faturas",PAD_LEFT,,,,,oFont07v,,.t.,.t.)
         Box(07.1,1.5,0.6,01.2,""," Cálculo",PAD_LEFT,,,,,oFont07v,,.t.,.t.)
         Box(07.1,1.7,0.6,01.2,""," Imposto",PAD_LEFT,,.f.,,,oFont07v,,.t.)
         Box(08.3,1.5,0.6,01.9,"","Transportador",PAD_LEFT,,,,,oFont07v,,.t.,.t.)
      ENDPAGE
   ENDPRINT

return nil

FUNCTION Box(nlin,nCol,nComprimento,nAltura,uGroup,uTexto,nPadTexto,oLogoImage,lDrawBox,nTotalItens,lPosiciona,oFont,lFazQuebra,lVertical,lFill)
LOCAL aPos:=Array(2),aTam:=Array(2),nPos,nRow,f,nLinha,nLinhasTexto,nMarginTexto,aMargin,lPrimeiraVez,lFimPag:=.f.
LOCAL nMarginCol, nMarginTam,nMarginRow,nCont,cTexto,cParteTexto,aGroup,nStart
   
      Default utexto:="", nPadTexto:=PAD_LEFT,lDrawbox:=.t.
      Default lPosiciona:=.f.,lVertical:=.f.,lFill:=.f.
   
      aPos[1]:=((nLin * 10 * (oPrn:nVertRes() / oPrn:nVertSize() )))
      aPos[2]:=((nCol * 10 * (oPrn:nHorzRes() / oPrn:nHorzSize() )))
      aTam[1]:=((nComprimento * 10 * oPrn:nVertRes() / oPrn:nVertSize()))
      aTam[2]:=(nAltura * 10 * oPrn:nHorzRes() / oPrn:nHorzSize())
   
      aGroup:=If(Valtype(uGroup)=="A",uGroup,{uGroup})
   
      IF lPosiciona
         aLinhaLista[nPagAtual]:={}
         aPosicaoLista[nPagAtual]:={}
      ENDIF
      IF lDrawBox
         oPrn:RoundBox(aPos[2],aPos[1],aPos[2]+aTam[1],aPos[1]+aTam[2],20,20,oPenSolid,If(lFill,CLR_HGRAY,NIL))
      ENDIF  
   
      aPos[1]:=(((nLin+nAltura-0.2) * 10 * (oPrn:nVertRes() / oPrn:nVertSize() )))
      aPos[2]:=((nCol * 10 * (oPrn:nHorzRes() / oPrn:nHorzSize() )))
   
      aMargin := oPrn:SizeInch2Pix(If(Empty(aGroup[1]),0.03,0.08),0.03)
      nRow := aPos[1]+aMargin[2]
      nCol := aPos[2]+aMargin[1]
      oPrn:Say(nRow,nCol,uTexto,oFont,,CLR_BLACK,,PAD_LEFT)
           
Return(Nil)
   

[karinha]

If I understand the logic, the BOX is not going to the left, respecting the defined font, is that correct?

A bug that FiveTech urgently needs to fix.

Greetings.

[Otto]

Hello friends,

This is a complicated form.
I tried to recreate it with / i zi pi zi / report.
And yes, you can do it.
The lines I posted for the HTML header are important, otherwise the rounded corners will not be displayed.

Best regards,
Otto

[nageswaragunupudi]

If I understand the logic, the BOX is not going to the left, respecting the defined font, is that correct?

A bug that FiveTech urgently needs to fix.

Greetings.

Did you build the sample and test? What is the bug?

[nageswaragunupudi]

Only RPREVIEW.prg I use a modified version, but i tried without this and the problem is the same. I Think the problem is with the method oPrn:Line(), I'm checking...
I

We checked methods oPrn:Line(), oPrn:Box() and oPrn:RoundBox() with FWH1909 and FWH2104. The behaviour is identical and there is no change.

[nageswaragunupudi]

Mr. Vilian

It appears to me that you (or anybody else) did not actually built and tested your sample with any version of FWH.

Please see these lines of code:

Code: Select all  Expand view

      IF lPosiciona
         aLinhaLista[nPagAtual]:={}
         aPosicaoLista[nPagAtual]:={}
      ENDIF
 

The variables aLinhaLista, aPosicaoLosta and nPagAtual are neither declared nor initialized.
If you compiled with warnings enabled, you ought to have got ambiguous variables warnings.
if you compiled without warnings and built the exe, you ought to have got runtime error, because the above lines are equivalent to:

Code: Select all  Expand view

NIL[NIL] := {}
NIL[NIL] := {}
 

The above variables are not used anywhere else in this sample. So, I commented out those 4 lines and added local declaration for the undeclared variable oFont017V and then built the exe both with FWH1909 and FWH2104.

The results are identical between FWH1909 and FWH2104. No difference is found between FWH1909 and FWH2104.

FWH1909:


FWH2104:


Then I checked the values of the actual parameters the prorgram supplies to the oPrn:RoundBox(...)
These are the actual values:

Code: Select all  Expand view

TOP       LEFT        BOTTOM       RIGHT
354.3434343 1393.804762 496.0862915 1677.279509
354.3434343 1677.290476 496.0862915 1960.765224
401.5892256 1677.290476 543.3320827 1960.765224
354.3434343 1960.77619  496.0862915 2409.611207
 

Using these parameters we get the round boxes exactly like what we see in the above images.

So, I did not find any differences between FWH1909 and FWH2104 or any incorrect behaviour with the printer program.

Please revise the sample. First, build and test at your end with both versions before posting here. We will test the sample and provide the solution.

[vilian]

Mr Rao,

My previous version is FWH1905, may be it is the reason i have different results.