topic-34122

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Problem with oldest xbrowse
Posted: Sat May 27, 2017 09:22 AM

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 (fw): Select all Collapse

 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 ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with oldest xbrowse
Posted: Sat May 27, 2017 12:37 PM

Code (fw): Select all Collapse

@ 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

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem with oldest xbrowse
Posted: Sat May 27, 2017 01:36 PM

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

Code (fw): Select all Collapse

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 (fw): Select all Collapse

 @ 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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with oldest xbrowse
Posted: Sat May 27, 2017 01:38 PM

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

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem with oldest xbrowse
Posted: Sat May 27, 2017 01:59 PM

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

Code (fw): Select all Collapse

#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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with oldest xbrowse
Posted: Sat May 27, 2017 02:02 PM

Sorry
It is DATASOURCE
not DATABASE

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

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem with oldest xbrowse
Posted: Sat May 27, 2017 02:07 PM

found the error

DATASOURCE "CO" ;

instead of DATABASE "CO"

thanks RAO

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion