FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour fieldWBlock
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
fieldWBlock
Posted: Tue Nov 17, 2020 12:57 PM
I not understood how work fieldWBlock
before run ok and now not run

I wish print a field using fieldWBlock

Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX


Function test()
 local acampi :=   {"FIRST"   ,;
                      "LAST"    ,;
                      "STREET"  ,;
                      "CITY"    ,;
                      "STATE"   ,;
                      "ZIP"     ,;
                      "HIREDATE",;
                      "MARRIED" ,;
                      "AGE"     ,;
                      "SALARY"  ,;
                      "NOTES"    }

local nFor:=1// first
 local oPrn
local oFont
local oBold

 USE CUSTOMER NEW alias cust SHARED VIA "DBFCDX"


PRINT oPrn PREVIEW

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 OF oPrn
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-25 BOLD OF oPrn

   PAGE

    @ 10, 10 PRINT TO oPrn TEXT bCampo( aCampi, nFor,1 ) ;
                SIZE 100, 100 CM ALIGN "T" FONT oFont

      ENDPAGE
       ENDPRINT

   RELEASE FONT oFont, oBold


return nil

function bCampo( aCampi, nFor,nArea )
   return (fieldWBlock(aCampi[nFor],nArea ))


I tried also with fieldWBlock( "FIRST",1 )
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
ADutheil
Posts: 368
Joined: Sun May 31, 2009 06:25 PM
Re: fieldWBlock
Posted: Tue Nov 17, 2020 02:10 PM

Try
eval(fieldWBlock(aCampi[nFor],nArea ))

Regards,



André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: fieldWBlock
Posted: Tue Nov 17, 2020 05:07 PM

perhaps fieldget(n)
but I need to have the naArea

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
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: fieldWBlock
Posted: Tue Nov 17, 2020 08:53 PM
http://computer-programming-forum.com/19-clipper/334184917aa7f776.htm
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: fieldWBlock
Posted: Wed Nov 18, 2020 02:53 PM
karinha wrote:http://computer-programming-forum.com/19-clipper/334184917aa7f776.htm


nCampo:= 2
aFields := {"FIRST" ,;
"LAST" ,;
"STREET" ,;
"CITY" ,;
"STATE" ,;
"ZIP" ,;
"HIREDATE",;
"MARRIED" ,;
"AGE" ,;
"SALARY" ,;
"NOTES" }



this Run ok if I wish print a barcode

Code (fw): Select all Collapse
nCampo:= 2
FIELDWBLOCK( ncampo, SELECT( "CUST" ) )


sample :

@ nRiga, nColonna PRINT TO oPrn TEXT FIELDWBLOCK( ncampo, SELECT( "CUST" ) ) ;
AS BARCODE TYPE "EAN8" ;
SIZE nWid-nCo, nHei CM BARSIZE nWid


If I wish print a text run with

Code (fw): Select all Collapse
 FIELDWBLOCK( aFields[nCampo], SELECT( "CUST" ) )


sample :

@ nRiga, nColonna PRINT TO oPrn TEXT FIELDWBLOCK( aFields[ncampo], SELECT( "CUST" ) );
SIZE nWid, nHei CM ALIGN "T" FONT oFnt


it's very strange because I call allways the field number 2 ( Last)
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
ADutheil
Posts: 368
Joined: Sun May 31, 2009 06:25 PM
Re: fieldWBlock
Posted: Wed Nov 18, 2020 04:58 PM

FIELDWBLOCK("FName", 1) is the same as &( "{ |setVal| IF( setVal == NIL, 1->FName, 1->FName := setVal ) }" )

If you don't eval the block you'll not retrieve the content of the field.

@ nRiga, nColonna PRINT TO oPrn TEXT eval( FIELDWBLOCK( aFields[ncampo], SELECT( "CUST" ) ) );
SIZE nWid, nHei CM ALIGN "T" FONT oFnt

Regards,



André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: fieldWBlock
Posted: Wed Nov 18, 2020 06:24 PM
ADutheil wrote:FIELDWBLOCK("FName", 1) is the same as &( "{ |setVal| IF( setVal == NIL, 1->FName, 1->FName := setVal ) }" )

If you don't eval the block you'll not retrieve the content of the field.

@ nRiga, nColonna PRINT TO oPrn TEXT eval( FIELDWBLOCK( aFields[ncampo], SELECT( "CUST" ) ) );
SIZE nWid, nHei CM ALIGN "T" FONT oFnt


I tried with eval make error
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
ADutheil
Posts: 368
Joined: Sun May 31, 2009 06:25 PM
Re: fieldWBlock
Posted: Wed Nov 18, 2020 08:27 PM
I took your initial example and rewrote a little:
Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX


Function main()
 local acampi :=   {"FIRST"   ,;
                      "LAST"    ,;
                      "STREET"  ,;
                      "CITY"    ,;
                      "STATE"   ,;
                      "ZIP"     ,;
                      "HIREDATE",;
                      "MARRIED" ,;
                      "AGE"     ,;
                      "SALARY"  ,;
                      "NOTES"    }

local nFor:=2

USE CUSTOMER NEW alias cust SHARED VIA "DBFCDX"


alert(  bCampo( aCampi, nFor,1 ) )


return nil

function bCampo( aCampi, nFor,nArea )
   return eval((fieldWBlock(aCampi[nFor],nArea )))

I works OK for me. The alert box shows Simpson
Regards,



André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10
ADutheil
Posts: 368
Joined: Sun May 31, 2009 06:25 PM
Re: fieldWBlock
Posted: Wed Nov 18, 2020 08:34 PM
This works perfectly for me.
Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX


Function main()
 local acampi :=   {"FIRST"   ,;
                      "LAST"    ,;
                      "STREET"  ,;
                      "CITY"    ,;
                      "STATE"   ,;
                      "ZIP"     ,;
                      "HIREDATE",;
                      "MARRIED" ,;
                      "AGE"     ,;
                      "SALARY"  ,;
                      "NOTES"    }

local nFor:=2

 local oPrn
local oFont
local oBold

 USE CUSTOMER NEW alias cust SHARED VIA "DBFCDX"


PRINT oPrn PREVIEW

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 OF oPrn
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-25 BOLD OF oPrn

   PAGE

    @ 10, 10 PRINT TO oPrn TEXT bCampo( aCampi, nFor,1 ) FONT oFont

      ENDPAGE
       ENDPRINT

   RELEASE FONT oFont, oBold


return nil

function bCampo( aCampi, nFor,nArea )
   return eval((fieldWBlock(aCampi[nFor],nArea )))
Regards,



André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: fieldWBlock
Posted: Fri Nov 20, 2020 07:35 AM
ADutheil wrote:This works perfectly for me.
Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX


Function main()
 local acampi :=   {"FIRST"   ,;
                      "LAST"    ,;
                      "STREET"  ,;
                      "CITY"    ,;
                      "STATE"   ,;
                      "ZIP"     ,;
                      "HIREDATE",;
                      "MARRIED" ,;
                      "AGE"     ,;
                      "SALARY"  ,;
                      "NOTES"    }

local nFor:=2

 local oPrn
local oFont
local oBold

 USE CUSTOMER NEW alias cust SHARED VIA "DBFCDX"


PRINT oPrn PREVIEW

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 OF oPrn
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-25 BOLD OF oPrn

   PAGE

    @ 10, 10 PRINT TO oPrn TEXT bCampo( aCampi, nFor,1 ) FONT oFont

      ENDPAGE
       ENDPRINT

   RELEASE FONT oFont, oBold


return nil

function bCampo( aCampi, nFor,nArea )
   return eval((fieldWBlock(aCampi[nFor],nArea )))


Also for me !!
When I tried to Print a BARCODE it make error
IT's very STRANGE because Barcode want code as text

sample
Code (fw): Select all Collapse
nWid:=0.2
@ 10, 10 PRINT TO oPrn TEXT  bCampo( aCampi, nFor,1 );
AS BARCODE TYPE "EAN8" ;
SIZE 3.6, 0.8  CM BARSIZE nWid
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
ADutheil
Posts: 368
Joined: Sun May 31, 2009 06:25 PM
Re: fieldWBlock
Posted: Sat Nov 21, 2020 08:18 PM

My FWH version is old and I'm not aware of the AS BARCODE command so I can't help you further.

Regards,



André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: fieldWBlock
Posted: Mon Nov 23, 2020 08:06 PM

THERE IS SOMEONE CAN HELP ME PLS ?

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
ADutheil
Posts: 368
Joined: Sun May 31, 2009 06:25 PM
Re: fieldWBlock
Posted: Tue Nov 24, 2020 01:49 PM

As you want to print a barcode the function may be expecting a string of numbers not letters.

Regards,



André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: fieldWBlock
Posted: Tue Nov 24, 2020 06:51 PM
ADutheil wrote:As you want to print a barcode the function may be expecting a string of numbers not letters.

I allready tried
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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions