FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error al abrir archivo vrd con funcion EReport()
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM

Error al abrir archivo vrd con funcion EReport()

Posted: Sun Nov 05, 2023 04:20 PM
Hola buenos días para todos

al integrar la función EReport() a la aplicación e intentar abrir cualquier archivo vrd, nos sale el siguiente error:
Code (fw): Select all Collapse
Application
===========
   Path and name: C:\DLYMA\hymlyma.exe (32 bits)
   Size: 8,942,592 bytes
   Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914)
   FiveWin  version: FWH 23.10
   C compiler version: Borland/Embarcadero C++ 7.6 (32-bit)
   Windows 8 64 Bits, version: 6.2, Build 9200 

   Time from start: 0 hours 1 mins 37 secs 
   Error occurred at: 05.11.2023, 11:16:44
   Error description: Error DBFCDX/1023  Se requiere uso exclusivo

Stack Calls
===========
   Called from:  => __DBZAP( 0 )
   Called from: .\source\function\ERTOOLS.PRG => CLEARUNDOREDO( 1667 )
   Called from: .\source\function\ERFILE.PRG => OPENFILE( 106 )
   Called from: .\source\function\EREPORT.PRG => (b)EREPORT( 167 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1111 )
   Called from: .\source\function\EREPORT.PRG => EREPORT( 167 )
   Called from: z:\prg\R32_nota.prg => (b)FNOTAS( 220 )
   Called from: .\source\classes\URLLINK.PRG => TURLLINK:LBUTTONDOWN( 180 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1848 )
   Called from: .\source\classes\URLLINK.PRG => TURLLINK:HANDLEEVENT( 168 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3700 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1125 )
   Called from: z:\prg\R32_menu.prg => VTNAPRINCIPAL( 752 )
   Called from: z:\prg\R32_menu.prg => MAIN( 140 )
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Error al abrir archivo vrd con funcion EReport()

Posted: Mon Nov 06, 2023 06:19 AM
Estimado Leandro,

En esas líneas se vacian los DBFs que guardan el undo y el redo:
Code (fw): Select all Collapse
   SELECT 0
   USE ( oGenVar:cUndoFileName + ".dbf" ) ALIAS TMPUNDO
   ZAP

   USE ( oGenVar:cRedoFileName + ".dbf" ) ALIAS TMPREDO
   ZAP
Por el error que dá parece que no ha conseguido abrirlos en modo exclusivo. Tienes esos DBFs abiertos desde algún otro lugar ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM

Re: Error al abrir archivo vrd con funcion EReport()

Posted: Tue Nov 07, 2023 09:07 PM

Antonio buenas tardes, gracias por responder

No nada, ni siquiera se en donde se deben registrar esas dbf.

No será, que no las puede crear de manera automática o se debería hacer el llamado a un método antes de intentar abrir el archivo. Lo raro es que desde Easy Report como tal, abre sin problemas cualquier reporte que intentemos abrir.

Sabes cual es el nombre como tal de las dbfs, para intentar copiarlas desde la carpeta de Easy Report, para comprobar si ese es el problema?, ya que tambien pudimos notar que no muestra los iconos de la barra de botones.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Error al abrir archivo vrd con funcion EReport()

Posted: Wed Nov 08, 2023 04:51 PM
Estimado Leandro,

Para poder usar la función EReport() desde tu aplicación tienes que incluir el fichero FWH\samples\vrd.rc en el RC de tu aplicación, por ejemplo:
test.rc
Code (fw): Select all Collapse
ico  ICON "./../ICONS/fivewin.ico"

#ifndef __64__
  1 24 "WinXP/WindowsXP.Manifest" 
#else
  1 24 "WinXP/WindowsXP.Manifest64"
#endif

#include "vrd.rc"
Este ejemplo funciona correctamente:
Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   EReport() 

return nil
Por favor pruébalo y dime si te siguen apareciendo esos errores y en tal caso como proceder para reproducirlos, gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM

Re: Error al abrir archivo vrd con funcion EReport()

Posted: Wed Nov 08, 2023 08:46 PM
Antonio gracias por responder...

El tema es que nosotros usamos archivos .RES creados desde PELLES C al abrir el archivo, viene codificado en modo maquina.
En que otra parte puedo incluir el archivo .rc?

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Error al abrir archivo vrd con funcion EReport()

Posted: Thu Nov 09, 2023 03:57 AM

En tal caso, tienes que incluir los elementos de vrd.rc en tu .RES uno por uno

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion