Studio error for constant

[Allan Greis Eriksen]

I get this error on some constants when the studio 20.1 is getting the tooltip for a constant while debugging a running application:



C:\Program Files\DataFlex 20.1\Bin64\Studio.exe
COM object method invocation error. Internal Error: Unhandled type

Error: 4399

Please report this error to Data Access Corporation

GET_COMEVAL (11522) - oDebuggerEngine (831) - at address 84271
MSG_ONCOMEVALUATEQUICKINFO (11260) - oCodeComplete (4776) - at address 118383
[start] - at address 248702


Example code


Use Windows.pkg
Use cHtmlHelp.pkg
Use cApplication.pkg
Use cConnection.pkg

Object oHtmlHelp is a cHtmlHelp
End_Object

Object oApplication is a cApplication

Object oConnection is a cConnection
Use LoginEncryption.pkg
Use DatabaseLoginDialog.dg
End_Object

Set psAutoOpenWorkspace to "NOVAX.WS"

End_Object

// Positioning Codes
Define OLEpositioningCodes for Integer
Define OLEVFREE for -2147483549
Define OLEVLEFT for -2147483550
Define OLEVRIGHT for -2147483551
Define OLEVLEFTMARGIN for -2147483552
Define OLEVRIGHTMARGIN for -2147483553
Define OLEVTOP for -2147483554
Define OLEVBOTTOM for -2147483555
Define OLEVTOPMARGIN for -2147483556
Define OLEVBOTTOMMARGIN for -2147483557
Define OLEVCENTER for -2147483558

#IFNDEF VFREE
Define VFREE for OLEVFREE
#ENDIF
#IFNDEF VLEFT
Define VLEFT for OLEVLEFT
#ENDIF
#IFNDEF VRIGHT
Define VRIGHT for OLEVRIGHT
#ENDIF
#IFNDEF
#IFNDEF VLEFTMARGIN
Define VLEFTMARGIN for OLEVLEFTMARGIN
#ENDIF
#IFNDEF VRIGHTMARGIN
Define VRIGHTMARGIN for OLEVRIGHTMARGIN
#ENDIF
#IFNDEF VTOP
Define VTOP for OLEVTOP
#ENDIF
#IFNDEF VBOTTOM
Define VBOTTOM for OLEVBOTTOM
#ENDIF
#IFNDEF VTOPMARGIN
Define VTOPMARGIN for OLEVTOPMARGIN
#ENDIF
#IFNDEF VBOTTOMMARGIN
Define VBOTTOMMARGIN for OLEVBOTTOMMARGIN
#ENDIF
#IFNDEF VCENTER
Define VCENTER for OLEVCENTER
#ENDIF

Send Info_Box "Hello World" "DataFlex Basic Project"

[Dennis Piccioni]

Hi Allan,

thanks for the clear and concise report, I reproduced it here. I've logged a bug report.