Labels
Posted: Wed Oct 22, 2014 10:13 am
Someone can explain how make customer's labels with ER . thanks
Code: Select all
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())
