- Code: Select all Expand view RUN
Application
===========
Path and name: C:\dlyma\hymlyma.exe (32 bits)
Size: 7,605,248 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613)
FiveWin version: FWH 19.09
C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 09/04/2022, 11:12:32
Error description: Error BASE/1082 Error de argumento: -
Args:
[ 1] = U
[ 2] = N 14.00
Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CHECKSIZE( 1312 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 2101 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 2042 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1767 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11223 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECTW( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CHECKSIZE( 1312 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST( 1419 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RECALCWH( 8906 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:FONTSIZE( 8884 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYDOWN( 3458 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1801 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11223 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1097 )
Called from: z:\prg\R32_menu.prg => INICIONUEVO( 1299 )
Called from: z:\prg\R32_menu.prg => MAIN( 100 )
Como defino el xbrowse
- Code: Select all Expand view RUN
.....
.....
.....
@ 63 , 7 XBROWSE oBrw ;
SIZE 156 , 70 OF oDlg PIXEL ;
DATASOURCE aEmpresas ;
COLUMNS 1, 2;
LINES STYLE FLAT NOBORDER
WITH OBJECT oBrw
:lRecordSelector := .T.
:lHScroll := .F.
:lVScroll := .T.
:l2007 := .F.
:lFitGridHeight := .T.
:nHeaderHeight := 21
:nRowHeight := 21
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:lColDividerComplete := .t.
:nColorPen := CLR_HGRAY
:lFullGrid := .T.
:nStretchCol := STRETCHCOL_LAST
:bClrHeader := { || { CLR_WHITE, Rgb( 0,120,215 ), CLR_HGRAY } }
:nRecSelColor := RGB( 255, 255, 255 )
:bClrSelFocus := { || { Rgb(55,55,55), RGB( 185, 220, 255 ) } }
:bClrStd := { || { Rgb(55,55,55), CLR_WHITE } }
:SetFont( oFontSe1 )
:CreateFromCode()
:bChange := {|| EVAL(cbSelEmpresa) }
:lAutoSort := .t.
:lIncrFilter := .t.
:lSeekWild := .t.
:bKeyDown := {|nKey,oGet,nCol|TeclasIni(nKey,oGet,nCol,oBrw)}
//:bKeyDown := {|nKey| if(nKey == VK_DELETE, ( oBrw:Seek( "" ), oBrw:GoTop() ), ) }
:aCols[1]:bLClickHeader := {|| oBrw:Seek( "" ), oBrw:cFilterFld := "Cód", oBrw:nColSel := 1, oBrw:GoTop() }
:aCols[2]:bLClickHeader := {|| oBrw:Seek( "" ), oBrw:cFilterFld := "Nombre", oBrw:nColSel := 2, oBrw:GoTop() }
END
WITH OBJECT oBrw:aCols[ 1 ]
:bStrData := {|| if(Len( aEmpresas ) > 0 , alltrim(aEmpresas[oBrw:nArrayAt]["e_codi"]) , "" ) }
:cHeader = "Cód"
:nWidth = 30
:nHeadStrAlign = AL_LEFT
:nDataStrAlign = AL_LEFT
:oHeaderFont = oFontSes
END
WITH OBJECT oBrw:aCols[ 2 ]
:bStrData := {|| if(Len( aEmpresas ) > 0 , alltrim(aEmpresas[oBrw:nArrayAt]["e_nomb"]) , "" ) }
:cHeader = "Nombre"
:nWidth = 210
:nHeadStrAlign = AL_LEFT
:nDataStrAlign = AL_LEFT
:oHeaderFont = oFontSes
END
....
....
...
