Bar One and Zebra (Duplicate label issue)

Question

Hello,
Can anyone tell me how to keep the zebra ZM4 from printing a duplicate label when I run my ABAP to print a bar code label it prints two.  Thanks.

Answer 1

Hi Rich here is the SAP Script code.
/:   NEW-PAGE                   
/    ^XA                        
/    ^XFZ_BARO-1.ZPL            
/    FN999FD&V_DATA-LGORT&^FS 
/    FN998FD&V_DATA-LGPBE&^FS 
/    FN997FD&V_DATA-MATNR&^FS 
/    FN996FD&V_MARA-MAKTX&^FS 
/    FN995FD&V_MARA-MFRPN&^FS 
/    ^PQ1,0,1,N                 
/    ^XZ                        
/    ^FX End of job             
Here is the ABAP Code
REPORT ZMMSBARC .
REPORT:              ZMMSBARC
DATE:                08/27/2004
DEVELOPER:           Rashid K
PROGRAM DESCRIPTION: This Program prints Material master
                      information and barcodes on
                      lables using Barone Software for barcoding.
MODIFICATION LOG
DATE        DEVELOPER    CORRECTION  DESCRIPTION
08/27/2004  Rashid K     DEVK907935  Program Creation
TABLES DECLARATIONS
TABLES: MBEW,
        MARD,
        MARA,
        MAKT.
VARIABLE DECLARATIONS
DATA: V_MATNR(18) TYPE C.
INTERNAL TABLE DECLARATIONS
*Table to hold material inventory data
DATA: BEGIN OF V_DATA,
           MATNR LIKE MARD-MATNR,
           WERKS LIKE MARD-WERKS,
           LGORT LIKE MARD-LGORT,
           LGPBE LIKE MARD-LGPBE,
           MFRPN LIKE MARA-MFRPN,
           MAKTX LIKE MAKT-MAKTX,
      END OF V_DATA.
DATA: I_DATA LIKE V_DATA OCCURS 0.
*Table to hold material master information
DATA: BEGIN OF V_MARA,
        MATNR LIKE MARA-MATNR,
        MFRPN LIKE MARA-MFRPN,
        MAKTX  LIKE MAKT-MAKTX,
     END OF V_MARA.
DATA I_MARA LIKE V_MARA OCCURS 0.
*Selection screen.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS: S_MATNR FOR  MARD-MATNR MATCHCODE OBJECT MAT1
                 OBLIGATORY,
                S_BIN FOR  MARD-LGPBE,
                S_WERKS FOR  MARD-WERKS OBLIGATORY,
                S_LGORT FOR MARD-LGORT OBLIGATORY.
PARAMETERS: P_DELETE AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK 1.
EVENT: INITIALIZATION
INITIALIZATION.
EVENT: START-OF-SELECTION
START-OF-SELECTION.
*Select data from inventory table, sto loc level
  SELECT MATNR
         WERKS
         LGORT
         LGPBE
         FROM MARD
         INTO TABLE I_DATA
         WHERE MATNR IN S_MATNR AND
               WERKS IN S_WERKS AND
               LGORT IN S_LGORT AND
               LGPBE IN S_BIN AND
               LVORM = P_DELETE.
  DESCRIBE TABLE I_DATA LINES SY-DBCNT.
  IF SY-DBCNT = 0.
     MESSAGE I001(ZV).
     EXIT.
  ENDIF.
*select material master data
  SELECT MARA~MATNR
         MARA~MFRPN
         MAKT~MAKTX
         INTO TABLE I_MARA
         FROM MARA INNER JOIN MAKT ON
             MARAMATNR = MAKTMATNR
         FOR ALL ENTRIES IN I_DATA
         WHERE MARA~MATNR = I_DATA-MATNR.
EVENT: END-OF-SELECTION
END-OF-SELECTION.
  DATA V_PRINTER LIKE ITCPP.
*open form for writing
  CALL FUNCTION 'OPEN_FORM'
       EXPORTING
            FORM                        = 'Z_INV_LABEL'
       IMPORTING
            RESULT                      = V_PRINTER
       EXCEPTIONS
            CANCELED                    = 1
            DEVICE                      = 2
            FORM                        = 3
            OPTIONS                     = 4
            UNCLOSED                    = 5
            MAIL_OPTIONS                = 6
            MORE_PARAMS_NEEDED_IN_BATCH = 7
            INVALID_FAX_NUMBER          = 8
            OTHERS                      = 9.
  IF NOT V_PRINTER-TDPRINTER CS 'ZLB'.
    MESSAGE I000(ZV) WITH 'Printer'
                           V_PRINTER-TDDEST
                          'is not a label printer.'
           'Choose the correct output device to contiune.'.
    EXIT.
  ENDIF.
Loop at data to write.
  LOOP AT I_DATA INTO V_DATA.
Get material master information
    READ TABLE I_MARA INTO V_MARA WITH KEY
                      MATNR = V_DATA-MATNR.
    CHECK SY-SUBRC = 0. "Ensure material master record exists
*Code to delete leading zeros in material number
IF V_DATA-MATNR(1) CS '0'.
    PACK V_DATA-MATNR TO V_MATNR.
ELSE.
   MOVE V_DATA-MATNR TO V_MATNR.
ENDIF.
    SHIFT V_MATNR LEFT DELETING LEADING SPACE.
    WRITE V_MATNR TO V_DATA-MATNR.
*Write to sap script form
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW                   = 'MAIN'
         EXCEPTIONS
              ELEMENT                  = 1
              FUNCTION                 = 2
              TYPE                     = 3
              UNOPENED                 = 4
              UNSTARTED                = 5
              WINDOW                   = 6
              BAD_PAGEFORMAT_FOR_PRINT = 7
              OTHERS                   = 8.
  ENDLOOP.
*close form from writing
  CALL FUNCTION 'CLOSE_FORM'
       EXCEPTIONS
            OTHERS = 1.