Labels

Labels

Postby Silvio.Falconi » Wed Oct 22, 2014 10:13 am

Someone can explain how make customer's labels with ER . thanks
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Labels

Postby mastintin » Thu Oct 23, 2014 9:19 am

Supongo que crearíamos un solo area en el diseñador con tres grupos de textos ( 3 etiquetas ) , luego tendria que ser desde codigo o desde script .... esto no lo he probado pero sería algo asi .....

Code: Select all  Expand view


 USE .\EXAMPLES\EXAMPLE
 
   DO WHILE .NOT. EOF()

      PRINTAREA 1 OF oVRD ;
         ITEMIDS    { 104, 105, 106, 107 } ;
         ITEMVALUES { EXAMPLE->UNIT                               , ;
                      ALLTRIM(STR( EXAMPLE->PRICE, 10, 2 ))       , ;
                      ALLTRIM(STR( EXAMPLE->TOTALPRICE, 11, 2 ))  , ;
                      ALLTRIM( ".\EXAMPLES\" + EXAMPLE->IMAGE ) }

      EXAMPLE->(DBSKIP())

  PRINTAREA 1 OF oVRD ;
         ITEMIDS    { 114, 115, 116, 117 } ;
         ITEMVALUES { EXAMPLE->UNIT                               , ;
                      ALLTRIM(STR( EXAMPLE->PRICE, 10, 2 ))       , ;
                      ALLTRIM(STR( EXAMPLE->TOTALPRICE, 11, 2 ))  , ;
                      ALLTRIM( "
.\EXAMPLES\" + EXAMPLE->IMAGE ) }

  EXAMPLE->(DBSKIP())

  PRINTAREA 1 OF oVRD ;
         ITEMIDS    { 124, 125, 126, 127 } ;
         ITEMVALUES { EXAMPLE->UNIT                               , ;
                      ALLTRIM(STR( EXAMPLE->PRICE, 10, 2 ))       , ;
                      ALLTRIM(STR( EXAMPLE->TOTALPRICE, 11, 2 ))  , ;
                      ALLTRIM( "
.\EXAMPLES\" + EXAMPLE->IMAGE ) }


      lLastPosition := EXAMPLE->(EOF())
      EXAMPLE->(DBSKIP(-1))
       

      //New Page
      if lLastPosition = .T. .AND. oVRD:nNextRow > oVRD:nPageBreak - oVRD:aAreaHeight[5] .OR. ;
         lLastPosition = .F. .AND. oVRD:nNextRow > oVRD:nPageBreak
         PAGEBREAK oVRD
      ENDIF

      EXAMPLE->(DBSKIP())




   ENDDO

   EXAMPLE->(DBCLOSEAREA())


User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: Labels

Postby Silvio.Falconi » Fri Oct 24, 2014 10:55 am

Mastin can you publish also vrd files please thanks?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Labels

Postby mastintin » Fri Oct 24, 2014 12:00 pm

Lo siento no consigo que me funcione de momento desde el el diseñador ,mediante scripts . :(
Quizás en el foro de ingles exista alguien que realice etiquetas con ereport y nos cuente como lo hace. ...
Perdon por no escribir en ingles , pero no lo domino .
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: Labels

Postby Silvio.Falconi » Tue Oct 28, 2014 7:46 am

Sorry I not found any messages for it
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm


Return to EasyReport, EasyDialog y EasyPreview

Who is online

Users browsing this forum: No registered users and 6 guests