error on tget/xbrowse Resolved !!!

[Silvio.Falconi]

in this dialog there is a combobox and a xbrowse




if I move the mouse on xbrowse give me an error Tget as you can see on picture

why ?

[nageswaragunupudi]

Can you please give the relevant source code and copy of error.log?

[Silvio.Falconi]

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\Work\Errori\Tariffe\test2.Exe (32 bits)
   Size: 3,828,224 bytes
   Compiler version: Harbour 3.2.0dev (r1712141320)
   FiveWin  version: FWH 18.11
   C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 3 secs
   Error occurred at: 01/11/19, 10:03:16
   Error description: Error BASE/1072  Argument error: <>
   Args:
     [   1] = N   1
     [   2] = C   Listino 1

Stack Calls
===========
   Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS( 2083 )
   Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS( 1150 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1764 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 1151 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3513 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: test2.prg => TEST2( 107 )

System
======
   CPU type: Intel(R) Xeon(R) CPU E3-1225 V2 @ 3.20GHz 3192 Mhz
   Hardware memory: 3970 megs

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

   Windows total applications running: 3
      1 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.17825_none_72d273598668a0
      2 Network Flyout,                                                                                                    
      3 Passaggio da un programma all'altro, C:\Work\Errori\Tariffe\test2.Exe                                                                    

Variables in use
================
   Procedure     Type   Value
   ==========================
   TGET:LOSTFOCUS
     Param   1:    O    Class: ERROR
   TGET:KILLFOCUS
     Param   1:    N    131956
     Local   1:    N    1
     Local   2:    C    "Listino 1"
     Local   3:    U    
     Local   4:    U    
   TCONTROL:HANDLEEVENT
     Param   1:    N    131956
     Local   1:    U    
   TGET:HANDLEEVENT
     Param   1:    N    8
     Param   2:    N    131956
     Param   3:    N    0
     Local   1:    U    
   _FWH
     Param   1:    N    8
     Param   2:    N    131956
     Param   3:    N    0
     Local   1:    U    
     Local   2:    U    
   DIALOGBOXINDIRECT
     Param   1:    N    0
     Param   2:    N    8
     Param   3:    N    131956
     Param   4:    N    0
     Param   5:    N    4
     Local   1:    O    Class: TGET
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "€ Ï€         û -
     T a r i f f e  
 P      È  r S T A T I C   T a r i f f e   B a s e        P      )  s S T A T I C   L i s t i n o   :       ¡P      = / t C O M B O B O X         !P      ö e u T X B R O W S E        
P    J

)  v B U T T O N   O R D E R        
P    |

)  w B U T T O N   E X I T     "
     Param   3:    N    0
     Param   4:    O    Class: TDIALOG
   TEST2
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    L    .F.
     Param  13:    O    Class: TDIALOG
     Param  14:    U    
     Local   1:    N    0
     Local   2:    S    
     Local   3:    O    Class: TDIALOG

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

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

  1:    TA                                 RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          8            8      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  2: => SP                                 RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
        451          450      .F.   .T.

     Indexes in use                        TagName
           CAMERA                             SPCAM
           settore                            SETTORE
        => id+settore                         IDXSETTORE

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TFONT
     5 TWINDOW
     6 TDIALOG
     7 TBRUSH
     8 TCONTROL
     9 TXBROWSE
    10 TREG32
    11 TXBRWCOLUMN
    12 TBTNBMP
    13 TSCROLLBAR
    14 TCLIPBOARD
    15 TRECT
    16 TSAY
    17 TCOMBOBOX
    18 TGET
    19 GET
    20 TCLIPGET
    21 TBUTTON
    22 TSTRUCT

Memory Analysis
===============
      543 Static variables

   Dynamic memory consume:
      Actual  Value:    1441792 bytes
      Highest Value:    1441792 bytes


[nageswaragunupudi]

Can I see your code for creating the combobox?

[Silvio.Falconi]

I insert the combobox you made at another topic and it might work but I create the aListini array from an archive and it has two elements

local aListini := Crea_Array_listini()



@ 36,75 COMBOBOX aGet[1] VAR cFilter ITEMS aListini SIZE 100,400 PIXEL OF oDlg ;
ON CHANGE ( oBrwBase:aArrayData := FilterArray( aData, nFilterCol, cFilter ), ;
oBrwBase:GoTop(), oBrwBase:Refresh() )

the problem is now because I create a listini from dbf

Function Crea_Array_listini()
Local alist_temp:={}

USE LISTINI ALIAS LI SHARE NEW VIA "DBFCDX"
INDEX ON NAME TAG "IDXLISTINI"
LI->(dbgotop())

DO While !LI->(eof())
AaDd(alist_temp,{ alltrim(LI->NAME),LI->ID })
LI->(dbskip())
ENDDO

return alist_temp