Problem with oldest xbrowse

[Silvio.Falconi]

Ihave on a app an old structure of xbrowse and now i cannot insert the variable lnoborder because it make error
i have this

Code: Select all  Expand view

WITH OBJECT oBrwConsu:= TXBrowse():New( oDlgMesas )
      :nHeaderHeight       := 25
      :nRowHeight          := 35
      :nTop                := 20
      :nLeft               := 300
      :nBottom             := 185
      :nRight              := 485
      :nMarqueeStyle       := MARQSTYLE_HIGHLROW
      :nColDividerStyle    := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle    := LINESTYLE_LIGHTGRAY
      :lColDividerComplete := .T.
      :lHScroll            := .F.
      :lVScroll            := .T.
       :lRecordSelector    := .T.
      END

      WITH OBJECT oCol := oBrwConsu:AddCol()
      :bStrData  := { || TRANSFORM( CO->CANTIDAD, "999,999" ) }
      :cHeader   := "Quantità"
      :nDataStrAlign:= AL_RIGHT
      :nWidth    := 40
      :cHeader   := "Qt."
      :oHeaderFont:= oFntHead
      :oDataFont  := oFntBrow
   END

    WITH OBJECT oCol := oBrwConsu:AddCol()
      :bStrData  := { || HB_OemToAnsi(CO->NOMB_PROD) }
      :nWidth    := 150
      :cHeader   := "Nome del prodotto"
      :oHeaderFont:= oFntHead
      :oDataFont  := oFntBrow
   END

   WITH OBJECT oCol := oBrwConsu:AddCol()
      :bStrData  := { || TRANSFORM( CO->precio,'999.99')  }
      :nWidth    := 60
      :cHeader   := "Prezzo"
      :oHeaderFont:= oFntHead
      :oDataFont  := oFntBrow
   END

   WITH OBJECT oCol := oBrwConsu:AddCol()
      :bStrData  := { || TRANSFORM( CO->Importe,'999.99')  }
      :nWidth    := 60
      :cHeader   := "Importo"
      :oHeaderFont:= oFntHead
      :oDataFont  := oFntBrow
   END

 oBrwConsu:SetRDD()
 oBrwConsu:CreateFromCode()
 

How I can converte it into new command and Have the possibility to insert lnoborder ?

[nageswaragunupudi]

Code: Select all  Expand view

@ 20,300 XBROWSE oBrwConsu SIZE 165,185 PIXEL OF oDlgMesas ;
   DATABASE "CO" ;
   COLUMNS "CANTIDAD", "NOMB_PROD", "PRECIO", "IMPORTE" ;
   HEADERS "Quantita", "Nome del prodotto", "Prezzo", "Importo" ;
   COLSIZES 40, 150, 60, 60 ;
   PICTURES "999,999", nil, "999.99", "999.99" ;
   LINES NOBORDER ;
   FONT oFntBrow
   
WITH OBJECT oBrwConsu
   :lHScroll      := .f.
   :nMarqueeStyle := MARQSTYLE_HIGHLROW
   :oHeaderFonts  := oFntHead
   :CreateFromCode()
END
 

Please check for spelling/typing mistakes

[Silvio.Falconi]

Sorry but I continue to have the same error on compiling with habour

Code: Select all  Expand view

Progetto: Com@nda, Ambiente: bcc7Harbor:
[1]:Harbour.Exe source\main.prg  /m /n0 /gc1 /es2 /a /iC:\Work\fwh\include /iC:\work\HARBOUR\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;C:\work\HARBOUR\include /oObj\main.c
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'source\main.prg'...
Lines 7160, Functions/Procedures 28
Generating C source output to 'Obj\main.c'... Done.
[1]:Bcc32.Exe -M -c -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -IC:\Work\fwh\include -IC:\work\bcc7\Include\windows\sdk\;C:\work\HARBOUR\Include  -nObj Obj\main.c
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
Obj\main.c:
[1]:Harbour.Exe source\PEsercizi.prg  /m /n0 /gc1 /es2 /a /iC:\Work\fwh\include /iC:\work\HARBOUR\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;C:\work\HARBOUR\include /oObj\PEsercizi.c
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'source\PEsercizi.prg'...
Lines 7139, Functions/Procedures 12
Generating C source output to 'Obj\PEsercizi.c'... Done.
[1]:Bcc32.Exe -M -c -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -IC:\Work\fwh\include -IC:\work\bcc7\Include\windows\sdk\;C:\work\HARBOUR\Include  -nObj Obj\PEsercizi.c
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
Obj\PEsercizi.c:
[1]:Harbour.Exe source\PCassa.prg  /m /n0 /gc1 /es2 /a /iC:\Work\fwh\include /iC:\work\HARBOUR\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;C:\work\HARBOUR\include /oObj\PCassa.c
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'source\PCassa.prg'...
[b]source\PCassa.prg(312) Error E0030  Syntax error "syntax error at '{'"[/b]
1 error

No code generated.
 

and from line 305 to 312

I have

Code: Select all  Expand view

@ 20,300 XBROWSE oBrwConsu SIZE 165,185 PIXEL OF oDlgMesas ;
   DATABASE "CO" ;
   COLUMNS "CANTIDAD", "NOMB_PROD", "PRECIO", "IMPORTE" ;
   HEADERS "Quantita", "Nome del prodotto", "Prezzo", "Importo" ;
   COLSIZES 40, 150, 60, 60 ;
   PICTURES "999,999", nil, "999.99", "999.99" ;
   LINES NOBORDER ;
   FONT oFntBrow
 

[nageswaragunupudi]

Are you compiling with old version of FWH? or present version of FWH?

[Silvio.Falconi]

Nages,
I have February 2017
I add also the include of xbrowse
and I try to compile this test ( same error )

Code: Select all  Expand view

#include "FiveWin.ch"
#include "constant.ch"


#define TOPSCOPE      0
#define BOTTOMSCOPE   1



Function test()
Local oDlgMesas,oFntBrow,oFntHead



      Local nBottom   := 48
      Local nRight    := 132
      Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
      Local nHeight := nBottom * DLG_CHARPIX_H

     cScoNumDoc:="0001"

use consum alias co

       SELECT CO
       CO->(OrdSetFocus(2))
       CO->( OrdScope(TOPSCOPE, alltrim(cScoNumDoc)))
       CO->( OrdScope(BOTTOMSCOPE, alltrim(cScoNumDoc)))
       CO->(DbGoTop())

      DEFINE FONT oFntHead NAME "MS Sans Serif" SIZE 0, -12
      DEFINE FONT oFntBrow NAME "MS Sans Serif" SIZE 0, -8  BOLD
    DEFINE DIALOG  oDlgMesas  SIZE nWidth ,nHeight


  @ 20,300 XBROWSE oBrwConsu SIZE 165,185 PIXEL OF oDlgMesas ;
   DATABASE "CO"   ;
   COLUMNS "CANTIDAD", "NOMB_PROD", "PRECIO", "IMPORTE" ;
   HEADERS "Quantita", "Nome del prodotto", "Prezzo", "Importo" ;
   COLSIZES 40, 150, 60, 60 ;
   PICTURES "999,999", nil, "999.99", "999.99" ;
   LINES NOBORDER ;
   FONT oFntBrow



WITH OBJECT oBrwConsu
   :lHScroll      := .f.
   :nMarqueeStyle := MARQSTYLE_HIGHLROW
   :oHeaderFonts  := oFntHead
   :CreateFromCode()
END



ACTIVATE DIALOG oDlgMesas
return nil

[nageswaragunupudi]

Sorry
It is DATASOURCE
not DATABASE

I requested you to check my typing mistakes. This is the minimum you could do at your end

[Silvio.Falconi]

found the error


DATASOURCE "CO" ;

instead of DATABASE "CO"

thanks RAO