XBROWSE ERROR

[shrifw]

Dear Rao Sir ,

I am getting the below error in XBROWSE using with Seek for MariDB Rowset.

Code: Select all  Expand view

Application
===========
   Path and name: D:\vimcosoft\V9ACC\v9acc.exe (32 bits)
   Size: 5,338,624 bytes
   Compiler version: Harbour 3.2.0dev (r2008190002)
   FiveWin  version: FWH 23.07
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows 10 64 Bits, version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 07/08/2023, 15:16:06
   Error description: Error BASE/1111  Argument error: LEN
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => LEN( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SHOWSEEK( 9472 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SEEK( 9530 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCHAR( 3907 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1857 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 12427 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
   Called from: D:\vimcosoft\V9ACC\PRGS\util_lov.prg => LOV( 162 )
   Called from: D:\vimcosoft\V9ACC\PRGS\util_lov.prg => (b)LOVCTRLSET( 9 )
   Called from: .\source\classes\TGET.PRG => TGET:KEYCHAR( 2326 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1857 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 1306 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
   Called from: D:\vimcosoft\V9ACC\PRGS\m_staxcategory.prg => VSTC_MASTER( 133 )
   Called from: D:\vimcosoft\V9ACC\PRGS\util_appwin.prg => (b)VFA_CTRLPNEL_DOCK_TILEMENU( 36 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 792 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1083 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1847 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2135 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1118 )
   Called from: D:\vimcosoft\V9ACC\PRGS\vfa_compgate.prg => COMPGATEWAY( 45 )
   Called from: D:\vimcosoft\V9ACC\PRGS\v9.prg => MAIN( 69 )

System
======
   CPU type: Intel(R) Core(TM) i7-4770 CPU @ 3.40GHz 3392 Mhz
   Hardware memory: 16254 megs

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

   Windows total applications running: 4
      1 ,                                                                                                    
      2 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.19041.1110_none_a8625c
      3 , D:\vimcosoft\V9ACC\v9acc.exe                                                                        
      4 GDI+ Window (v9acc.exe), C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.19041.2251_none_d9513b1fe1046f

Variables in use
================
   Procedure     Type   Value
   ==========================
   LEN
     Param   1:    O    Class: ERROR
   TXBROWSE:SHOWSEEK
     Param   1:    U    
     Local   1:    U    
     Local   2:    U    
   TXBROWSE:SEEK
     Param   1:    C    "S"
     Local   1:    U    
     Local   2:    S    @_CTEXT()
     Local   3:    O    Class: TGET
     Local   4:    S    @PADR()
     Local   5:    U    
     Local   6:    C    "S"
   TXBROWSE:KEYCHAR
     Param   1:    C    "S"
     Local   1:    N    1
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    N    1
     Local   7:    L    .T.
     Local   8:    U    
     Local   9:    L    .F.
     Local  10:    L    .F.
   TWINDOW:HANDLEEVENT
     Param   1:    N    83
     Param   2:    N    0
     Local   1:    B    {|| ... }
     Local   2:    O    Class: TXBRWCOLUMN
     Local   3:    C    "S"
     Local   4:    U    
   TCONTROL:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    83
     Param   3:    N    0
   TXBROWSE:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    83
     Param   3:    N    0
     Local   1:    U    
   _FWH
     Param   1:    N    258
     Param   2:    N    83
     Param   3:    N    0
   DIALOGBOXINDIRECT
     Param   1:    N    0
     Param   2:    N    258
     Param   3:    N    83
     Param   4:    N    0
     Param   5:    N    21
     Local   1:    O    Class: TXBROWSE
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "   €    
P , ~ 3         !P      
} 2 † T X B R O W S E       "
     Param   3:    N    1575478
     Param   4:    O    Class: TDIALOG
   LOV
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .F.
     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    1575478
     Local   2:    S    @_NRESULT()
     Local   3:    O    Class: TDIALOG
   (b)LOVCTRLSET
     Param   1:    O    Class: TGET
     Param   2:    N    83
     Param   3:    N    2031617
     Local   1:    N    153
     Local   2:    N    153
     Local   3:    N    403
     Local   4:    N    252
     Local   5:    O    Class: TDIALOG
     Local   6:    N    99
     Local   7:    N    250
     Local   8:    O    Class: TXBROWSE
     Local   9:    A    Len:    4
     Local  10:    A    Len:    4
     Local  11:    O    Class: FWMARIAROWSET
     Local  12:    N    0
     Local  13:    N    0
     Local  14:    N    0
     Local  15:    N    2
   TGET:KEYCHAR
     Param   1:    N    83
     Param   2:    N    2031617
     Param   3:    O    Class: TGET
   TWINDOW:HANDLEEVENT
     Param   1:    N    83
     Param   2:    N    2031617
     Local   1:    N    0
     Local   2:    N    0
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
   TCONTROL:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    83
     Param   3:    N    2031617
   TGET:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    83
     Param   3:    N    2031617
     Local   1:    U    
   _FWH
     Param   1:    N    258
     Param   2:    N    83
     Param   3:    N    2031617
     Local   1:    U    
     Local   2:    U    
   DIALOGBOXINDIRECT
     Param   1:    N    2031617
     Param   2:    N    258
     Param   3:    N    83
     Param   4:    N    2031617
     Param   5:    N    15
     Local   1:    O    Class: TGET
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "   €       $ ÈÒ
        P    
  Ç
 v S T A T I C             G S T   C a t e g o r y   M a s t e r      
P    ·        w T B T N B M P   [ x ]        P    
  <
 x S T A T I C   G S T   C a t e g o r y       P    K  
 y S T A T I C   :       €
P    W  €
 z E D I T                                                                                                              P    
 " <
 { S T A T I C   T a x   T y p e            P    K " 
 | S T A T I C   :       €
P    P " }
 } E D I T                                                                    
P    ‡ Z -  ~ T B T N B M P   & S a v e      
P    ¹ Z -   T B T N B M P   & Q u i t      
P     Z -  € T B T N B M P   & L i s t     "
     Param   3:    N    658128
     Param   4:    O    Class: TDIALOG
   VSTC_MASTER
     Param   1:    U    
     Param   2:    U    
     Param   3:    B    {|| ... }
     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    
     Param  12:    L    .F.
     Param  13:    O    Class: TDIALOG
     Param  14:    U    
     Local   1:    N    658128
     Local   2:    S    @_NRESULT()
     Local   3:    O    Class: TDIALOG
   (b)VFA_CTRLPNEL_DOCK_TILEMENU
     Local   1:    U    
     Local   2:    O    Class: TDIALOG
     Local   3:    N    0
     Local   4:    A    Len:    5
     Local   5:    A    Len:    5
     Local   6:    A    Len:   10
     Local   7:    O    Class: FWMARIAROWSET
     Local   8:    O    Class: TDATAROW
     Local   9:    U    
     Local  10:    N    69
     Local  11:    A    Len:    2
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TCONTROL:HANDLEEVENT
     Param   1:    N    24
     Param   2:    N    48
     Param   3:    N    0
     Local   1:    L    .T.
     Local   2:    N    0
     Local   3:    S    @CLICK()
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    1572912
     Local   1:    U    
   _FWH
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    1572912
   WINRUN
     Param   1:    N    1572912
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    1572912
     Param   5:    N    6
     Local   1:    O    Class: TBTNBMP
   TWINDOW:ACTIVATE
     Param   1:    N    658128
   COMPGATEWAY
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    B    {|| ... }
     Param   7:    U    
     Param   8:    U    
     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:    U    
     Param  18:    U    
     Param  19:    U    
     Param  20:    L    .F.
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    A    Len:   10
     Local   2:    O    Class: TICON

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

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

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TAPPLICATION
     5 TWINDOW
     6 TCONTROL
     7 TGET
     8 TFONT
     9 TBRUSH
    10 TICON
    11 TDIALOG
    12 TREG32
    13 TRECT
    14 TINI
    15 FWMARIACONNECTION
    16 FWROWSET
    17 FWMARIAROWSET
    18 TFIELD
    19 TFIELDS
    20 TSAY
    21 TXBROWSE
    22 TXBRWCOLUMN
    23 TSCROLLBAR
    24 TBTNBMP
    25 TCLIPBOARD
    26 TDATAROW
    27 GET
    28 TCLIPGET
    29 TSTRUCT

Memory Analysis
===============
      763 Static variables

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


[nageswaragunupudi]

How did you define the Get oBrw:oSeek in your program?
Let us see the code.

[shrifw]

Dear Rao Sir ,

Yes..! there is wrong in the code , I am passing GET Control as oBrw:oSeek = oGet something like and the variable of GET in some cases its becomes NULL that's why the error is coming.

By the way XBROWSE Seeking RECORD operations prevents letters to type to make properly need to press backspace key. I need your help in this cases. Thanks in advance...!


Thanks
Shridhar

[nageswaragunupudi]

So if you want to use Get, define Get properly.

What XBrowse natively provides is incremental Seek/Filter. That means, as and when the user presses a key, the seek/filter is performed. Many users like this feature,

But if you reject this feature and use a Get and ask the user to enter a seek expression first, then do you use this feature.

To experience the behavior of "incremental" seek/filter please

Code: Select all  Expand view

XBROWSER oRs AUTOSORT

and then play with the auto "incremental" seeks and filters.

Well, if you dont want this, the old traditional ways is always available to you.
Use a Get to get the seek expression, then you perform the seek yourself and refresh the browse

[shrifw]

Dear Rao Sir ,

May I request to get sample for the Old Style ?

Well, if you dont want this, the old traditional ways is always available to you.
Use a Get to get the seek expression, then you perform the seek yourself and refresh the browse

Thanks
Shridhar

[nageswaragunupudi]

Set

Code: Select all  Expand view

oBrw:lIncrSeek := .f.

Use a normal Get and in the valid clause code something like this

Code: Select all  Expand view

//Seek the Get Value in your own way
// then call
oBrw:Refresh()
oBrw:SetFocus()
return .t.