Page 1 of 1
error with xbrowse
Posted: Wed Dec 26, 2018 6:14 pm
by Silvio.Falconi
give me error on text bold
@ 45, 40 XBROWSE oBrw1 SIZE 400,-65 PIXEL OF oDlg ;
COLUMNS 5,2,4,7,8,9,12,11;
HEADERS "Tipo","Descrizione","Costo","Disp.","A4", "Pos", "Ord.","";
COLSIZES 40,110,50,50,28,28,30,34 ;
CELL LINES NOBORDER ;
DATASOURCE "oServiziSingoli"
WITH OBJECT oBrw1
:nRowHeight := 30
WITH OBJECT oBrw1:aCols[ 1]
:lBmpStretch := .F.
:lBmpTransparent := .T.
:nwidth := 40
:bStrImage := {|| oServiziSingoli:IMAGE }
END
end
oBrw1:CreateFromCode()
oBrw1:cAlias := oServiziSingoli:cAlias
the error
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... } length: 0
[ 2] = N 1
Re: error with xbrowse
Posted: Thu Dec 27, 2018 3:44 am
by nageswaragunupudi
There is no alias by name "oServiziSingoli". How do you think it works?
If oServiziSingoli:cAlias is a valid alias, then change as
If oServiziSingoli is a valid TDatabase object
In the columns clause please give field names.
Re: error with xbrowse
Posted: Fri Dec 28, 2018 1:53 am
by Silvio.Falconi
same errors
I'm trying with tdata lib
Code: Select all | Expand
oServiziSingoli:= TServizi():new()
oServiziSingoli:setFilter( "multiple == .f.")
oServiziSingoli:gotop()
@ 45, 40 XBROWSE oBrw1 SIZE 400,-65 PIXEL OF oDlg ;
COLUMNS 5,2,4,7,8,9,12,11;
HEADERS "Tipo","Descrizione","Costo","Disp.","A4", "Pos", "Ord.","";
COLSIZES 40,110,50,50,28,28,30,34 ;
CELL LINES NOBORDER;
DATASOURCE "oServiziSingoli:cAlias"
WITH OBJECT oBrw1
:nRowHeight := 30
WITH OBJECT oBrw1:aCols[ 1]
:lBmpStretch := .F.
:lBmpTransparent := .T.
:nwidth := 40
:bStrImage := {|| oServiziSingoli:IMAGE }
END
WITH OBJECT oBrw1:aCols[ 5]
:AddBitmap({ "CHECK2" ,"CHECK3"})
:bBmpData := { || iif( oServiziSingoli:a4, 1, 2) }
:bStrData := { || "" }
END
WITH OBJECT oBrw1:aCols[ 6]
:AddBitmap({ "CHECK2" ,"CHECK3"})
:bBmpData := { || iif( oServiziSingoli:pos, 1, 2) }
:bStrData := { || "" }
END
WITH OBJECT oBrw1:aCols[ 8]
:AddBitmap({ "LOCK" ,"LOCK_OPEN"})
:bBmpData := { || iif( oServiziSingoli:ISlock, 1, 2) }
:bStrData := { || "" }
END
:lHscroll := .F.
:l2007 := .F.
:l2015 := .T.
:lRecordSelector := .f.
:nStretchCol := STRETCHCOL_WIDEST
:lAllowRowSizing := .F.
:lAllowColSwapping := .F.
:lAllowColHiding := .F.
:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
:cAlias := oServiziSingoli:cAlias
:CreateFromCode()
END
Also James Bott not resolved
Re: error with xbrowse
Posted: Fri Dec 28, 2018 2:29 am
by nageswaragunupudi
Why do you put this in quotes?
Remove the quotes
Code: Select all | Expand
DATASOURCE oServiziSingoli:cAlias
//OR
DATASOURCE oServiziSingoli
Re: error with xbrowse
Posted: Fri Dec 28, 2018 2:56 am
by James Bott
Silvio,
I did send you a working copy. Did you not get it?
James