Problemas con Report

[horacio]

Viendo otra rutina muy similar a esta, se repita la página en blanco pero solo la segunda página, después lo hace bien.

Saludos

[horacio]

Joao, tu modificación funciona perfectamente con rep01.prg, con los mismos lineamientos modifiqué mi rutina pero no tiene efecto.

Saludos

[horacio]

Joao, poniendo tres campos funciona perfectamente. Mi reporte imprime cinco campos, comentariando dos funciona. Debo inferir que algo con este bug tiene que ver la cantidad de columnas del informe.

Saludos

[karinha]

Horácio, hago asi. prueba e comente que acontece ahi con usted. Acá funciona perfecto.

REP01.PRG modificado.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "report.ch"

request DBFCDX

STATIC oReport

Function Rep01()

   LOCAL oPen1, oPen2, oFont1, oFont2, oFont3, oReport

   SET DATE BRIT
   SET EPOCH TO 1950
   SET CENTURY ON

   USE TEST NEW VIA "DBFCDX"

   GO TOP

   DEFINE PEN oPen1 Width 2 COLOR CLR_HGRAY
   // DEFINE PEN oPen1 WIDTH 2
   DEFINE PEN oPen2 WIDTH 1

   DEFINE FONT oFont1 NAME "Arial"       SIZE 0, -11
   DEFINE FONT oFont2 NAME "Arial"       SIZE 0, -11
   DEFINE FONT oFont3 NAME "Courier New" SIZE 0,  09 BOLD

   // REPORT oReport TITLE  "*** My First Report ***" PREVIEW

   REPORT oReport TITLE "*** My First Report ***"                            ;
      CAPTION "*** My First Report ***"                                      ;
      HEADER "Empresa: ",                                                    ;
      "Fecha:"   + DTOC( DATE() ),                                           ;
      "Página: " + STR( oReport:nPage, 3 )                                   ;
      FOOTER OemToAnsi( "- *** My First Report *** -" ) CENTER               ;
      FONT oFont1, oFont2, oFont3                                            ;
      PEN oPen1, oPen2 ;
      PREVIEW

   oReport:oDevice:lPrvModal := .T.
   oReport:oDevice:SetPage(9) //-> Formato A4

   oReport:lAutoLand := .F. // Vertical  // Manuel Mercado.
   // PrnPortrait()         // vertical
   // oReport:SetPortrait() // Vertical

   COLUMN TITLE "St"         DATA Test->State             FONT 3
   COLUMN TITLE "First Name" DATA ALLTRIM( Test->First  ) FONT 3
   COLUMN TITLE "Street"     DATA Test->Street            FONT 3
   COLUMN TITLE "City and.." DATA Test->City,                             ;
              + "State: " +       Test->State,                            ;
              + "Hiredate: " + TRANSF( Test->Hiredate, "@D 99/99/9999" ), ;
              + "Age/Edad: " + TRANSF( Test->Age, "999" ) FONT 3          
   COLUMN TITLE "Salary: "   DATA Test->Salary RIGHT SHADOW GRID

   END REPORT

   IF !oReport:lCreated
      RETURN NIL
   ELSE
      oReport:SetTxtColor(CLR_HBLUE,1)
      oReport:SetTxtColor(CLR_HRED, 2)
      oReport:SetTxtColor(CLR_HBLUE,3)
      oReport:SetPenColor(CLR_HBLUE  )
      oReport:SetShdColor(CLR_HCYAN  )
   ENDIF

   oReport:CellView()

   ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }

   oPen1:End()  
   oPen2:End()  
   oFont1:End()
   oFont2:End()
   oFont3:End()

   CLOSE TEST

RETURN NIL
 

Saludos.

[horacio]

Gracias Joao por las pruebas, efectivamente funciona pero en mi sistema no lo pude hacer andar. Será la versión que estoy utilizando ? Uso Fwh 17.01

Saludos

[karinha]

Gracias Joao por las pruebas, efectivamente funciona pero en mi sistema no lo pude hacer andar. Será la versión que estoy utilizando ? Uso Fwh 17.01

Saludos

Compilado con:

FWH17.01

BCC7 ó BCC72

harbour:

Harbour 3.2.0dev (r1506171039)

Perfecto.

[cmsoft]

Horacio, tengo el mismo problema. Me hace lo mismo, en un reporte de 9 horas me intercala 3 en blanco. Pudiste encontrar la solucion?
Y probando en distintas impresoras, en uno me lo hace (en la del cliente) y en la mia no...

[horacio]

No, no pude solucionarlo. El error es aleatorio.

Saludos