FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

Tengo error con FW2512

https://fivetechsupport.com/forums/viewtopic.php?t=46689

Page 1 of 1

Tengo error con FW2512

Posted: Sat Sep 19, 2026 5:30 pm
by Armando

Hola Amigos:

Compilo mi aplicación, por primera vez paso a FWH2512, con Harbour, FWH2512 y BCC77 y compila sin problemas, la pega es que cuando
traro de crear un reporte con la TReport me tira el error siguiente:

Code: Select all | Expand

Application
===========
   Path and name: D:\SiaWin50\SiaWin50.Exe (32 bits)
   Size: 6,582,784 bytes
   Compiler version: Harbour 3.2.0dev (r2503251254)
   FiveWin  version: FWH 25.09
   C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)
   Windows 11 64 Bits, version: 6.2, Build 9200 

   Time from start: 8 sec
   Error occurred at: 19/09/2026, 11:19:51
   Error description: Error BASE/1004  Message not found: TWINDOW:DEFCONTROL
   Args:
     [   1] = O   TWINDOW

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TWINDOW:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TWINDOW:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TWINDOW:DEFCONTROL( 0 )
   Called from: .\source\classes\tmetafil.prg => TMETAFILE:NEW( 123 )
   Called from: Source\rpreview.prg => TPREVIEW:BUILDWINDOW( 520 )
   Called from: Source\rpreview.prg => TPREVIEW:NEW( 140 )
   Called from: Source\rpreview.prg => RPREVIEW( 2115 )
   Called from: .\source\classes\report.prg => (b)TREPORT_NEW( 188 )
   Called from: .\source\classes\report.prg => TREPORT:ACTIVATE( 917 )
   Called from: Source\SiaWin7e.prg => IMPRIMIR( 512 )
   Called from: Source\SiaWin7e.prg => (b)SIAWIN7E( 123 )
   Called from: .\source\classes\btnbmp.prg => TBTNBMP:CLICK( 816 )

Que me falta?

Muchas gracias

Re: Tengo error con FW2512

Posted: Sat Sep 19, 2026 5:49 pm
by karinha

Estimado Armando, muestra:

Code: Select all | Expand

SiaWin7e.prg => IMPRIMIR( 512 ) - si posible, COMPLETO.

Regards, saludos.

Re: Tengo error con FW2512

Posted: Sun Sep 20, 2026 1:46 am
by Armando

Karinha:

Code: Select all | Expand

STATIC FUNCTION Imprimir()
	LOCAL oReporte
	LOCAL oFont1,oFont2,oFont3
	LOCAL oPen1,oPen2
	LOCAL cTitulo	:= "Catálogo de marcas"

LOCAL nLinea		:= 1
LOCAL nHasta		:= oRsMar:RecordCount()
LOCAL nBookMark	:= oRsMar:BookMark

DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-14 BOLD

DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HBLUE
DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA

oRsMar:MoveFirst()

REPORT oReporte CAPTION cTitulo PREVIEW ;
	HEADER ALLTRIM(oApp:cRazonSocial),;
	"",;
	cTitulo CENTER;
	TITLE "Fecha: "+Date2Txt(DATE()),;
	"Hoja No:"+STR(oReporte:nPage,3);
	FONT oFont1,oFont2,oFont3;
	PEN open1,oPen2

	COLUMN TITLE "Número"		DATA oRsMar:Fields("MAR_NUM"):Value						SIZE  6 RIGHT PICTURE "@Z 99"
	COLUMN TITLE "Descripción"	DATA oRsMar:Fields("MAR_NOM"):Value						SIZE 35 LEFT
END REPORT

IF oReporte:lCreated
	oReporte:SetTxtColor(CLR_BLACK,1)	// Color del texto de la hoja default NEGRO
	oReporte:SetTxtColor(CLR_HRED,2)		// Color de encabezado y totales del grupo
	oReporte:SetTxtColor(CLR_HRED,3)		// Color para el primer titulo del encabezado
	oReporte:SetPenColor(CLR_HBLUE)		// Color para las líneas
	oReporte:SetShdColor(CLR_YELLOW)		// Color para el sombreado
	oReporte:oHeader:aFont[1] := {||3}

	oReporte:oTitle:aPad[1] := RPT_LEFT
	oReporte:oTitle:aPad[2] := RPT_RIGHT

   oReporte:bSkip := { || (nLinea++, oRsMar:MoveNext())}

ENDIF

   ACTIVATE REPORT oReporte ;
		ON STARTPAGE Alinea(oReporte,1,2);
		ON END oRsMar:BookMark := nBookMark;
      WHILE nLinea <= nHasta				[b]<=============  esta es la línea 512[/b]

oFont1:Release()
oFont2:Release()
oFont3:Release()
oPen1:Release()
oPen2:Release()
RETURN(Nil)

Saludos

Re: Tengo error con FW2512

Posted: Sun Sep 20, 2026 1:56 pm
by karinha

Estimado Armando, intenta asi:

Code: Select all | Expand

//-> C:\FWH2603\SAMPLES\ARMANDO2.PRG

#include "FiveWin.ch"
#include "Report.ch"

FUNCTION Imprimir_Armando()

   LOCAL oPen1, oPen2
   LOCAL oFont1, oFont2, oFont3
   LOCAL Report
   LOCAL nBookMark := oRsMar:BookMark
   LOCAL nLinea := 1
   LOCAL nHasta := 50 // limite de lineas.

   DEFINE PEN oPen1 WIDTH 2
   DEFINE PEN oPen2 WIDTH 1     

   DEFINE FONT oFont1 NAME "Arial"       SIZE 0, -10
   DEFINE FONT oFont2 NAME "Arial"       SIZE 0, -10
   DEFINE FONT oFont3 NAME "Courier New" SIZE 0,  10

// SELECT( BAIRROS )
// DbGoTop()

   REPORT oReport TITLE "Listagem de BAIRROS" ;
      CAPTION "Catálogo: BAIRROS"             ;
      HEADER "BAIRROS",                       ;
      "Fecha:  " + DTOC( DATE() ),            ;
      "Página: " + STR( oReport:nPage, 3 )    ;
      FOOTER "- BAIRROS -" CENTER             ;
      FONT oFont1, oFont2, oFont3             ;
      PEN oPen1, oPen2 ;
      PREVIEW

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

  // Otras columnas aqui...

   ENDREPORT

   ACTIVATE REPORT Report                 ;
      ON STARTPAGE Aline(Report, 1, 2)    ;
      ON END oRsMar:BookMark := nBookMark ;
      WHILE nLinea <= nHasta ;
      ON CHANGE ( nLinea++ ) // Incrementa Linea

   oPen1:End()
   oPen2:End()  

   oFont1:End() 
   oFont2:End() 
   oFont3:End()

RETURN NIL

Regards, saludos.

Re: Tengo error con FW2512

Posted: Sun Sep 20, 2026 2:09 pm
by karinha

Ó,

Code: Select all | Expand

//-> C:\FWH2603\SAMPLES\ARMANDO3.PRG

#include "FiveWin.ch"
#include "Report.ch"

STATIC FUNCTION Imprimir()

   LOCAL oReporte
   LOCAL oFont1, oFont2, oFont3
   LOCAL oPen1, oPen2
   LOCAL cTitulo := "Catálogo de marcas"
   LOCAL nBookMark := oRsMar:BookMark

   DEFINE FONT oFont1 NAME "ARIAL" SIZE 0, - 10
   DEFINE FONT oFont2 NAME "ARIAL" SIZE 0, - 10 BOLD
   DEFINE FONT oFont3 NAME "ARIAL" SIZE 0, - 14 BOLD

   DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HBLUE
   DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA

   oRsMar:MoveFirst()

   REPORT oReporte CAPTION cTitulo PREVIEW  ;
      HEADER ALLTRIM( oApp:cRazonSocial ),  ;
      "",                                   ;
      cTitulo CENTER                        ;
      TITLE "Fecha: " + Date2Txt( DATE() ), ;
      "Hoja No:" + STR( oReporte:nPage, 3 ) ;
      FONT oFont1, oFont2, oFont3           ;
      PEN open1, oPen2

  COLUMN TITLE "Número"  DATA oRsMar:Fields( "MAR_NUM" ):Value      SIZE 6 RIGHT PICTURE "@Z 99"
  COLUMN TITLE "Descripción" DATA oRsMar:Fields( "MAR_NOM" ):Value  SIZE 35 LEFT

   ENDREPORT

   IF oReporte:lCreated

  oReporte:SetTxtColor( CLR_BLACK, 1 ) 
  oReporte:SetTxtColor( CLR_HRED, 2 )  
  oReporte:SetTxtColor( CLR_HRED, 3 )  
  oReporte:SetPenColor( CLR_HBLUE )  
  oReporte:SetShdColor( CLR_YELLOW )  
  oReporte:oHeader:aFont[1] := {||3 }

  oReporte:oTitle:aPad[1] := RPT_LEFT
  oReporte:oTitle:aPad[2] := RPT_RIGHT

  // Simplificado: Solo avanzamos el RecordSet en cada línea
  oReporte:bSkip := { || oRsMar:MoveNext() }

   ENDIF

   ACTIVATE REPORT oReporte                 ;
      ON STARTPAGE Alinea( oReporte, 1, 2 ) ;
      ON END oRsMar:BookMark := nBookMark   ;
      WHILE !oRsMar:EOF // <============= Solución aquí ?

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

RETURN NIL

// FIN / END

Regards, saludos.

Re: Tengo error con FW2512

Posted: Sun Sep 20, 2026 7:01 pm
by Armando

Karinha:

Lamentablemente ambas sugerencias no me funcionan, mismo error :oops:

Saludos

Re: Tengo error con FW2512

Posted: Sun Sep 20, 2026 10:26 pm
by Antonio Linares

Tienes que añadir esto a la Clase TWindow:

METHOD DefControl( oControl ) INLINE ::AddControl( oControl )

Re: Tengo error con FW2512

Posted: Mon Sep 21, 2026 2:12 am
by Armando

Master:

Lo voy a intentar, aunque no me agrada modificar clases nativas, hay una actualización?

Saludos

Re: Tengo error con FW2512

Posted: Mon Sep 21, 2026 5:15 am
by Antonio Linares

Envíame un whatsapp y te proporciono la actualización

Re: Tengo error con FW2512

Posted: Mon Sep 21, 2026 4:05 pm
by Armando

Maestro:

Con tu solución funciona al 100%

Whatsapp enviado.

Muchas gracias

All times are UTC
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited