error with xbrowse

[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

[nageswaragunupudi]

There is no alias by name "oServiziSingoli". How do you think it works?

If oServiziSingoli:cAlias is a valid alias, then change as

Code: Select all  Expand view  RUN

DATASOURCE oServiziSingoli:cAlias
 

If oServiziSingoli is a valid TDatabase object

Code: Select all  Expand view  RUN

DATASOURCE oServiziSingoli
 

In the columns clause please give field names.

[Silvio.Falconi]

same errors
I'm trying with tdata lib

Code: Select all  Expand view  RUN

 
 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

[nageswaragunupudi]

Why do you put this in quotes?

Code: Select all  Expand view  RUN

"oServiziSingoli:cAlias"
 

Remove the quotes

Code: Select all  Expand view  RUN

DATASOURCE oServiziSingoli:cAlias
//OR
DATASOURCE oServiziSingoli
 

[James Bott]

Silvio,

I did send you a working copy. Did you not get it?

James