Labels

[Silvio.Falconi]

Someone can explain how make customer's labels with ER . thanks

[mastintin]

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  RUN

 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())

[Silvio.Falconi]

Mastin can you publish also vrd files please thanks?

[mastintin]

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 .

[Silvio.Falconi]

Sorry I not found any messages for it