FWH 18.03 XBROWSE CON EDIT_GET ERROR INESPERADO !!!

[rterraz]

AGRADECIDO SI PUEDEN AYUDARME
Acabo de actualizar mi FWH 16.02 a la versión 18.03
Estoy terminando una aplicación bastante compleja que usa muchos xbrowses, al compilar con la FWH 18.03 apareció un error muy extraño al intentar editar una columna con EDIT_GET (oCol:nEditType := EDIT_GET). Cuando presiono enter o doble click el sistema se cuelga y aparece el error que detallo mas abajo.
Usando EDIT_DATE no aparece el error y con EDIT_LISTBOX y otros tipo no he probado.
Esto ocurre con cualquier xbrowse, incluyendo los de los \samples ( compilo el testxbr2.prg y pasa lo mismo al intentar editar una columna ).
Investigue por el lado de las librerias, includes, archivo.mak etc. pero no doy con la causa.
Si compilo con la 16.02 esto no ocurre.
Estoy complicado porque no puedo parar el desarrollo y si no encuentro solución deberé volver a la versión 16


ARCHIVO ERROR.LOG CON DETALLE DEL ERROR GENERADO

Application
===========
Path and name: C:\WINFAR64\WINFAR64.exe (32 bits)
Size: 5,253,120 bytes
Compiler version: Harbour 3.2.0dev (r1601050904)
FiveWin version: FWH 18.03
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 13 secs
Error occurred at: 28/04/18, 11:26:58
Error description: Error BASE/1070 Argument error: ==
Args:
[ 1] = B {|| ... }
[ 2] = B {|| ... }

Stack Calls
===========
Called from: .\xbrowse.prg => TXBRWCOLUMN:EDIT( 13977 )
Called from: .\xbrowse.prg => TXBROWSE:LDBLCLICK( 4794 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
Called from: .\xbrowse.prg => TXBROWSE:HANDLEEVENT( 10531 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3388 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
Called from: .\winStock.prg => ABMDEGRUPOS( 2990 )
Called from: .\winfar64.prg => (b)MAIN( 479 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 693 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 944 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1909 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3388 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1043 )
Called from: .\winfar64.prg => MAIN( 660 )

System
======
CPU type: Intel(R) Core(TM) i3-3120M CPU @ 2.50GHz 2494 Mhz
Hardware memory: 3486 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Windows total applications running: 9
1 ,
2 , C:\WINFAR64\WINFAR64.exe
3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e697
4 , C:\Windows\system32\SHELL32.DLL
5 , C:\Windows\system32\SHLWAPI.dll
6 DDE Server Window, C:\Windows\system32\ole32.dll
7 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.17514_none_72d18a4386696c
8 MCI command handling window, C:\Windows\system32\WINMM.DLL
9 STOCK - DEFINICION DE GRUPOS Y SUBGRUPOS, C:\WINFAR64\WINFAR64.DLL

Variables in use
================
Procedure Type Value
==========================
TXBRWCOLUMN:EDIT
Param 1: O Class: ERROR
TXBROWSE:LDBLCLICK
Local 1: U
Local 2: O Class: TXBRWCOLUMN
Local 3: A Len: 2
Local 4: C "YUYOS "
Local 5: C "@!"
Local 6: N 160
Local 7: U
Local 8: U
Local 9: U
Local 10: N 0
Local 11: N 17829983
Local 12: L .F.
Local 13: L .F.
Local 14: O Class: TFONT
Local 15: B {|| ... }
Local 16: B {|| ... }
Local 17: U
Local 18: U
TWINDOW:HANDLEEVENT
Param 1: N 175
Param 2: N 115
Param 3: N 1
Local 1: O Class: TXBRWCOLUMN
Local 2: N 2
Local 3: N 7
TCONTROL:HANDLEEVENT
Param 1: N 515
Param 2: N 1
Param 3: N 11468915
TXBROWSE:HANDLEEVENT
Param 1: N 515
Param 2: N 1
Param 3: N 11468915
Local 1: U
_FWH
Param 1: N 515
Param 2: N 1
Param 3: N 11468915
DIALOGBOX
Param 1: N 11468915
Param 2: N 515
Param 3: N 1
Param 4: N 11468915
Param 5: N 82
Local 1: O Class: TXBROWSE
TDIALOG:ACTIVATE
Param 1: N 30932992
Param 2: C "wabmgrupos"
Param 3: N 854344
Param 4: O Class: TDIALOG
ABMDEGRUPOS
Param 1: U
Param 2: U
Param 3: U
Param 4: L .F.
Param 5: U
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Local 1: N 854344
Local 2: S
Local 3: O Class: TDIALOG
(b)MAIN
Local 1: A Len: 2
Local 2: N 11
Local 3: C " "
Local 4: N 1
Local 5: A Len: 3
Local 6: A Len: 5
TBTNBMP:CLICK
Param 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
TCONTROL:HANDLEEVENT
Param 1: N 71
Param 2: N 28
Param 3: N 0
Local 1: L .T.
Local 2: N 0
Local 3: S
TBTNBMP:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 4653084
Local 1: U
_FWH
Param 1: N 514
Param 2: N 0
Param 3: N 4653084
WINRUN
Param 1: N 4653084
Param 2: N 514
Param 3: N 0
Param 4: N 4653084
Param 5: N 46
Local 1: O Class: TBTNBMP
TWINDOW:ACTIVATE
Param 1: N 854344
MAIN
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: B {|| ... }
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U

Linked RDDs
===========
DBF
DBFFPT
DBFCDX
DBFNTX
DBFBLOB

DataBases in use
================

1: WFPRODU RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 33309 .F. .F.

Indexes in use TagName
_FIELD->troquel TROQUEL
_FIELD->descrip DESCRI
_FIELD->familia FAMILIA
_FIELD->monodro + str(_FIELD->preliMONO
_FIELD->laborat + _FIELD->descrip LABO
STR(_FIELD->codbarra,13) CODBAR
_FIELD->rubro RUBRO
_FIELD->vigpre VIGPRE
STR(_FIELD->codlab,6) + _FIELD->desCODLAB
STR(_FIELD->codlab,6) LABCOD
_FIELD->codint CODINT
_FIELD->accion ACCION
_FIELD->codalfa CODALFA
_FIELD->aupart AUPART
=> STR(_FIELD->grupo,4) GRUPO
STR(_FIELD->subgrupo,4) SUBGRUPO

Relations in use

2: => CODGRUP RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
8 20 .F. .F.

Indexes in use TagName
codgrup->id ID

[nageswaragunupudi]

Error description: Error BASE / 1070 Argument error: ==
Args:
[1] = B {|| ...}
[2] = B {|| ...}

Stack Calls
===========
Called from:. \ Xbrowse.prg => TXBRWCOLUMN: EDIT (13977)
Called from:. \ Xbrowse.prg => TXBROWSE: LDBLCLICK (4794)

This error indicates that in line 13977 of Method Edit(), a codeblock is compared with another codeblock with == operator.
But the line 13977 is

Code: Select all  Expand view

      nHeight  := ::oBrw:BrwHeight() - ::oBrw:FooterHeight() - nRow - 3
 

There is no comparison at all in this line of code. Even this line would be executed only when the column's :lFullHeight is set to .t., which is not the case.

Also, the error.log indicates that oCol:Edit() is called from line 4794 of method LDblClick().
Line 4794 is:

Code: Select all  Expand view

return 0
 

From this, it appears very likely that you could be using a modified xbrowse. Kindly try with fwh library without any changes or modifications and check if you get this error.

At our end, we tested again. This is a sample program:

Code: Select all  Expand view

   local oDlg, oBrw

   USE CUSTOMER NEW SHARED
   DEFINE DIALOG oDlg SIZE 800,500 PIXEL
   @ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      ALIAS "CUSTOMER" AUTOCOLS CELL LINES NOBORDER
   oBrw:nEditTypes := EDIT_GET
   oBrw:CreateFromCode()
   ACTIVATE DIALOG oDlg CENTERED
 

You may also try this sample.
This sample works well and editing goes on smoothly.

[rterraz]

Hola Mr.Rao
Gracias por su respuesta
Me asegure de que fiveh.lib fuera la original que vino en el paquete de instalación
compile su programa y el error se repite

Application
===========
Path and name: C:\FWH18\samples\xbrwrao.exe (32 bits)
Size: 3,863,040 bytes
Compiler version: Harbour 3.2.0dev (r1601050904)
FiveWin version: FWH 18.03
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 1 secs
Error occurred at: 04/28/18, 13:35:40
Error description: Error BASE/1070 Argument error: ==
Args:
[ 1] = B {|| ... }
[ 2] = B {|| ... }

Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:EDIT( 13962 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCHAR( 3279 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 10516 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3388 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
Called from: xbrwrao.prg => MAIN( 11 )

[rterraz]

Tambien probe agregando el xbrowse.prg de la clase original en mi aplicacion y el error persiste ???
no se me ocurre otra cosa

[nageswaragunupudi]

We are not getting any issues here and everything is working perfectly.
Yes, there is a == comparison of two codeblocks in line 13962, but it working perfectly at our end.
Then I observed that you are using Harbour version Harbor 3.2.0dev (r1601050904) and we are using Harbour 3.2.0dev (r1801051438).

Then I tried building the application with the older Harbour version (your version). I confirm that with this version of Harbour we are getting this error.

So, I request you to upgrade Harbour to the latest version.
Please download this from the FWH website where from you downloaded FWH 18.03.
Once you use this version of Harbour you will not get any errors.

[rterraz]

oK Mr.Rao
Voy a hacer lo que me aconseja y pruebo, si se soluciona le aviso.
Muchas gracias por su dedicación!

[nageswaragunupudi]

I will wait for your feedback.

[rterraz]

HEllo Mr.Rao

Con la nueva version de Harbour anda Perfecto!!!
Creo que seria importante avisar en el foro para evitarle el problema a mas amigos.
Hace 24hs. que ando dando vueltas con esto....
Desde ya muy agradecido con Ud. por su dedicación
Saludos desde Argentina