DEF VAR cStrichcode1    AS CHAR     NO-UNDO.
    DEF VAR cStrichcode2    AS CHAR     NO-UNDO.
    DEF VAR cArtikel        AS CHAR     NO-UNDO.
    DEF VAR ii              AS INT      NO-UNDO.
    DEF VAR iPos            AS INT      NO-UNDO.
    DEF VAR cPdfName        AS CHAR     NO-UNDO
        INIT 'C:\Entwicklung\TEMP\Huber\Barcodes_CocaCola.pdf'.

    { vpr.i INIT  }
    { vpr.i START }
    
    RUN VIPER_INIT.
    
    cStrichcode1 = '*wari*'.
    cStrichcode2 = 'wari'.
    RUN vpr_setCellText( 'Barcode_T1', 'Artikel', cStrichcode1 ).
    RUN vpr_setCellText( 'Artikel_T' , 'Artikel', cStrichcode2 ).
    RUN vpr_flushGroup ( 'Artikel' ).

    cStrichcode1 = '*saab009*'.
    cStrichcode2 = 'Passwort'.
    RUN vpr_setCellText( 'Barcode_T1', 'Artikel', cStrichcode1 ).
    RUN vpr_setCellText( 'Artikel_T' , 'Artikel', cStrichcode2 ).
    RUN vpr_flushGroup ( 'Artikel' ).
    
    cStrichcode1 = '*08800211*'.
    cStrichcode2 = '08800211'.
    RUN vpr_setCellText( 'Barcode_T1', 'Artikel', cStrichcode1 ).
    RUN vpr_setCellText( 'Artikel_T' , 'Artikel', cStrichcode2 ).
    RUN vpr_flushGroup ( 'Artikel' ).
/*
    cStrichcode1 = '//gemhg/huberNeu'.
    cStrichcode2 = '//gemhg/huberNeu'.
    RUN vpr_setCellText( 'Barcode_T1', 'Artikel', cStrichcode1 ).
    RUN vpr_setCellText( 'Artikel_T' , 'Artikel', cStrichcode2 ).
    RUN vpr_flushGroup ( 'Artikel' ).

    cStrichcode1 = '*M?eWe%6)zekn*'.
    cStrichcode2 = 'Passwort WLAN Lager'.
    RUN vpr_setCellText( 'Barcode_T1', 'Artikel', cStrichcode1 ).
    RUN vpr_setCellText( 'Artikel_T' , 'Artikel', cStrichcode2 ).
    RUN vpr_flushGroup ( 'Artikel' ).
*/
    ii = ii + 1.
    IF ii >= 20 THEN LEAVE.
    iPos = vpr_getPageVPos( ).
    IF iPos > 2700 THEN RUN vpr_newPage.
    
    RUN vpr_EndDoc.
    RUN vpr_SaveDoc ( 'C:\Entwicklung\TEMP\Huber\Barcodes_CocaCola.vpr' ).
    RUN vpr_printDoc (0, 0 ).
    RUN vpr_printPDF (0, 0, INPUT-OUTPUT cPDFName ).
    
    
    { vpr.i STOP }


PROCEDURE VIPER_INIT:

    RUN vpr_LoadVFR         ('huber/barcode_128_1.vfr').
    RUN vpr_ActivateReport  ('barcode_128').
    RUN vpr_ResetDoc.
/*     RUN vpr_SelectPrinter   ('HP Color LaserJet Pro MFP M476 PCL 6'). */
    RUN vpr_SelectPrinter   ('PDF24').
    RUN vpr_setPrinterAttrib('duplex=1').
    RUN vpr_SetPrinterAttrib('copies=1').
    RUN vpr_SetDocAttrib    ('PAPERSIZE=A4').
    RUN vpr_SetPreviewMode  ('Direct').
    RUN vpr_setDocTitle     ('Barcode_128').
    RUN vpr_SetDelimiter    (CHR(01)).
    RUN vpr_initGroups('').
        
END PROCEDURE.