strange error on report

[Silvio.Falconi]

I call report with

ACTION oApp:oGrid:Report()

oGrid is a xbrowse

and I have this



the problem is that the first 4 records have the ELATTIVO LOGIC field = .T. as you can see here :



why it report FALSE instead of TRUE ?

[nageswaragunupudi]

The xbrowse you are displaying is different from the report you are displaying

[Silvio.Falconi]

this is the original






I saw on the last column it not print any record ( bloccato field)

Code: Select all

aBrowse   := { { "ELATTIVO",  i18n("Attivo"),,               80, },;
                  { "ELNOME",    i18n("Descrizione elemento"),, 80, },;
                  { "",          i18n("Colore "),,              80, },;
                  { "ELCOLORE",  i18n("Descr. Colore"),,        80, },;
                  { "ELORDINE",  i18n("Ordine"),,               80, },;
                  { "ELLOCK",    i18n("Bloccato"),,             200,} }


     @0,nSplit+2 XBROWSE oApp:oGrid  ;
           SIZE oApp():oDlg:nGridBottom,oApp():oDlg:nGridRight PIXEL;
           OF oApp():oDlg ;
           DATASOURCE oElementi COLUMNS aBrowse


  WITH OBJECT  oApp():oGrid
             WITH OBJECT  oApp():oGrid:aCols[1]
                     :AddResource("BTN_PNG_TICK")
                     :AddResource("BTN_PNG_TICK_RED")
                     :bBmpData := { || IIF( oElementi:ELATTIVO,1,2) }
                     :bEditValue := ""
                     :bStrData := ""
                  END

              WITH OBJECT  oApp():oGrid:aCols[3]
                :bClrStd := {|| { CLR_WHITE, GetBackColor(oElementi:ELCOLORE) } }
                :bClrSel := {|| { CLR_WHITE, GetBackColor(oElementi:ELCOLORE) } }
                :bClrSelFocus := {|| { CLR_WHITE, GetBackColor(oElementi:ELCOLORE) } }
               END

                  WITH OBJECT  oApp():oGrid:aCols[6]
                              :AddResource("BTN_PNG_LOCKSI")
                             * :AddResource("BTN_PNG_LOCKNO")
                              :bBmpData := { || IIF( oElementi:ELLOCK,1,) }
                              :bEditValue := { || NIL  }
                   END


                      :nClrBorder := CLR_GRAY
                      :nMarqueeStyle       := MARQSTYLE_HIGHLWIN7
                      :lHscroll            := .F.
                      :l2007               := .F.
                      :l2015               := .T.
                      :nStretchCol         := STRETCHCOL_WIDEST
                      :lAllowRowSizing     := .F.
                      :lAllowColSwapping   := .F.
                      :lAllowColHiding     := .F.
                      :lRecordSelector     := .F.
                      :nColDividerStyle    := LINESTYLE_LIGHTGRAY
                      :nRowDividerStyle    := LINESTYLE_LIGHTGRAY
                      :nRowDividerStyle    := LINESTYLE_NOLINES
                      :nColDividerStyle    := LINESTYLE_LIGHTGRAY
                      :CreateFromCode()
   END