cancel
Showing results for 
Search instead for 
Did you mean: 

Populating data in Labelshop

Former Member
0 Kudos

Can anybody plz let me know how to populate data from SAP to Labelshop.Actually i have designed the label layout using Labelshop to get it printed with the Intermec printer.After that, downloaded the designed layout in ITF file and used the file in Sapscript.Then made a report program.Now my problem is that Values(data) r seen in SAP report but that values are not reflected in the print output(debugged the labelshop preview).

Accepted Solutions (0)

Answers (5)

Answers (5)

Former Member
0 Kudos

I did not use SAPscript but used SMARTFORM. In a program node just before the text node and after table or loop node I move the table or loop node to the name in the text node that was uploaded from Label Shop's itf file to standard text via SO10. I had no problem. My prior refer to OSS note was simply to point out problems with hypen field names in Label Shop variant names.

Former Member
0 Kudos

Print program for ur reference

REPORT zsd_shipping_label MESSAGE-ID zsd1

NO STANDARD PAGE HEADING.

*----


  • Tables

*----


TABLES: zepicpackldv,

likp,

vbak,

vbfa,

lips,

vekp,

mara,

vbpa,

t001w,

twlad,

t005t,

knvp,

kna1,

vbadr,

zshiptocust,

adrc, " address table

t001k, " valuation area table

t001, " company code table

proj,

vbkd,

tvst.

INCLUDE rvadtabl.

*----


  • Parameters

*----


DATA: order LIKE likp-vbeln,

z_pkg_no(4) TYPE n,

z_shto_fr_cntry LIKE t001-land1,

gw_pkg_id(20) TYPE n,

z_exidv LIKE vekp-exidv.

DATA: lf_retcode LIKE sy-subrc. "Returncode

DATA: xscreen(1) TYPE c. "Output on printer or screen

  • Working Variables.

DATA: w_prps_objnr LIKE prps-objnr,

w_posid LIKE prps-posid.

*----


  • tables

*----


DATA: BEGIN OF ship_tab OCCURS 0,

exidv LIKE vekp-exidv, "external shipping unit

matnr LIKE lips-matnr,

qty(4) TYPE p,

arktx LIKE lips-arktx,

herkl LIKE marc-herkl.

DATA: END OF ship_tab.

DATA: BEGIN OF t_bundle_suppress OCCURS 0,

exidv LIKE vekp-exidv, "external shipping unit

matnr LIKE lips-matnr,

uepos LIKE lips-uepos,

posnr LIKE lips-posnr,

pstyv LIKE lips-pstyv,

mvgr4 LIKE mvke-mvgr4,

vkorg LIKE likp-vkorg,

qty(4) TYPE p,

arktx LIKE lips-arktx,

herkl LIKE marc-herkl.

DATA: END OF t_bundle_suppress.

*DATA: BEGIN OF label_shop OCCURS 0,

  • exidv LIKE vekp-exidv, "external shipping unit

*

  • END OF label_shop.

*----


  • ranges

*----


RANGES:

r_pstyv FOR lips-pstyv,

r_repair_items FOR lips-pstyv,

r_lfart_project FOR likp-lfart,

r_alcl_prefix FOR lips-pstyv.

*----


  • variables

*----


DATA:

item_printed(4) TYPE n,

opened(1) TYPE c VALUE 'T',

print_item(3) TYPE c,

z_sales_po LIKE vbkd-bstkd,

z_interunit_so LIKE vbkd-bstkd_e,

z_qty(3) TYPE n,

z_shipto_att LIKE kna1-name1,

z_first_labl TYPE c,

z_interunit_flg TYPE c VALUE 'N',

z_bstkd LIKE vbkd-bstkd,

z_bstkd_e LIKE vbkd-bstkd_e,

z_ihrez LIKE vbkd-ihrez,

z_repair_label(13) TYPE c VALUE '',

z_shipfrm_tel LIKE adrc-tel_number,

z_shipto_tel LIKE adrc-tel_number,

z_special(20) TYPE c,

z_dummy LIKE vbkd-bstkd,

z_ctry_origin(15) TYPE c.

  • smartform

    • Internal Tables.

DATA: it_itab TYPE STANDARD TABLE OF zsd_shipping_label WITH HEADER LINE

.

DATA: it_ship TYPE zsd_shipping_label OCCURS 0 WITH HEADER LINE,

it_ship1 TYPE zsd_shipping_label OCCURS 0,

wa_ship TYPE zsd_shipping_label.

DATA: it_section1 TYPE zsd_shipping_label OCCURS 0,

wa_section TYPE zsd_shipping_label,

it_section2 TYPE zsd_shipping_label OCCURS 0,

it_section3 TYPE zsd_shipping_label OCCURS 0,

it_section4 TYPE zsd_shipping_label OCCURS 0,

w_system_id(12).

  • Working Variables.

DATA:

    • item_printed(4) TYPE n,

    • opened(1) TYPE c VALUE 'T',

    • print_item(3) TYPE c,

  • z_sales_po LIKE vbkd-bstkd,

  • z_interunit_so LIKE vbkd-bstkd_e,

  • z_qty(3) TYPE n,

  • z_shipto_att LIKE kna1-name1,

    • z_first_labl TYPE c,

  • z_interunit_flg TYPE c VALUE 'N',

  • z_bstkd LIKE vbkd-bstkd,

  • z_bstkd_e LIKE vbkd-bstkd_e,

  • z_ihrez LIKE vbkd-ihrez,

  • z_repair_label(13) TYPE c VALUE '',

  • z_shipfrm_tel LIKE adrc-tel_number,

  • z_shipto_tel LIKE adrc-tel_number,

  • z_special(20) TYPE c,

  • z_dummy LIKE vbkd-bstkd,

  • z_ctry_origin(15) type c,

w_lips_lgort LIKE lips-lgort.

  • Current Package Count.

DATA: lv_pkg_no LIKE z_pkg_no.

  • For Division Into Sections.

DATA: v_index1 LIKE sy-index,

v_index2 LIKE sy-index,

v_index3 LIKE sy-index,

v_index4 LIKE sy-index,

v_count LIKE sy-tabix.

DATA: v_lines TYPE i,

v_no_of_lines TYPE i,

v_div TYPE p DECIMALS 2,

it_output_info_tot TYPE tsfotf,

wa_output_info_tot TYPE itcoo,

v_value TYPE i.

DATA: z_header TYPE zformsheader-header.

  • smartform end

*START-OF-SELECTION.

*SELECT-OPTIONS: S_ORDER FOR LIKP-VBELN.

FORM entry USING return_code us_screen.

DATA: lf_retcode TYPE sy-subrc.

xscreen = us_screen.

CLEAR z_repair_label.

  • Get the Order number.

  • Delivery #.

order = nast-objky.

  • SystemID/Client to Identify Where is the Printout Coming From.

CONCATENATE sy-sysid '-' sy-mandt INTO w_system_id.

PERFORM processing USING us_screen

CHANGING lf_retcode.

IF lf_retcode NE 0.

return_code = 1.

ELSE.

return_code = 0.

ENDIF.

ENDFORM.

&----


*& Form PROCESSING

&----


  • text

----


  • -->P_US_SCREEN text

  • <--P_LF_RETCODE text

----


FORM processing USING proc_screen

CHANGING cf_retcode.

IF cf_retcode = 0.

IF order IS INITIAL.

cf_retcode = 1.

ELSE.

SELECT SINGLE * FROM likp WHERE vbeln = order.

IF sy-subrc <> 0.

  • CF_RETCODE = 1.

syst-msgid = 'VN'.

syst-msgno = '203'.

syst-msgty = 'W'.

syst-msgv1 = 'LIKP'.

syst-msgv2 = syst-subrc.

PERFORM protocol_update.

ELSE.

SELECT SINGLE * FROM tvst

WHERE vstel = likp-vstel.

IF sy-subrc NE 0.

  • Error Handling.

  • CF_RETCODE = sy-subrc.

PERFORM protocol_update.

syst-msgid = 'VN'.

syst-msgno = '203'.

syst-msgty = 'W'.

syst-msgv1 = 'TVST'.

syst-msgv2 = syst-subrc.

ENDIF.

  • CHECK CF_RETCODE = 0.

  • Save shipping info, package count, weight, and date then

  • extract info.

PERFORM extract_info.

z_pkg_no = 0.

  • CHECK CF_RETCODE = 0.

LOOP AT ship_tab.

CLEAR: wa_ship, wa_section.

ADD 1 TO z_pkg_no.

lips-matnr = ship_tab-matnr.

lips-arktx = ship_tab-arktx.

WRITE ship_tab-exidv TO gw_pkg_id.

CONCATENATE r_alcl_prefix-low '+' gw_pkg_id

INTO z_exidv.

vekp-exidv = z_exidv.

z_sales_po = z_dummy.

IF ship_tab-herkl = 'MIX'.

MOVE 'SEE ATTACHED' TO z_ctry_origin.

ELSE.

SELECT SINGLE landx INTO z_ctry_origin FROM t005t

WHERE spras = 'EN'

AND land1 = ship_tab-herkl.

CONCATENATE z_dummy '+1' INTO z_sales_po.

ENDIF.

lips-lgmng = ship_tab-qty.

SELECT SINGLE * FROM vekp WHERE exidv = ship_tab-exidv

AND vpobjkey = order.

MOVE vekp-brgew TO lips-brgew.

MOVE vekp-gewei TO lips-gewei.

vekp-exidv = z_exidv.

    • Fill fields to display Labels.

  • Delivery No

wa_ship-dlvry = order.

  • Package ID

wa_ship-pkg_id = vekp-exidv.

  • label_shop-exidv = vekp-exidv.

  • Customer Prod ID.

wa_ship-cust_prod_id = lips-matnr.

  • QTY

wa_ship-qty = ship_tab-qty.

  • Description.

wa_ship-description = lips-arktx.

  • wa_ship-HERKL =

  • Ship To Party.

wa_ship-shipto = kna1-adrnr.

  • Attention Ship To

wa_ship-ship_to_attn = z_shipto_att.

  • Ship from Address.

wa_ship-addressee = adrc-addrnumber.

  • Ship from Country

wa_ship-country_of_orig = z_ctry_origin.

  • Get telephone number from ship-from shipping point address.

wa_ship-phone_shipto = z_shipfrm_tel.

lv_pkg_no = z_pkg_no.

SHIFT lv_pkg_no LEFT DELETING LEADING '0'.

SHIFT likp-anzpk LEFT DELETING LEADING '0'.

CONCATENATE lv_pkg_no'of' likp-anzpk INTO wa_ship-pkgcount.

  • Package Wt

wa_ship-package_wt = lips-brgew.

  • Package wt unit

wa_ship-package_wt_unit = lips-gewei.

  • Ship from Phone.

wa_ship-phone_addressee = z_shipfrm_tel.

  • Date

wa_ship-goods_date = likp-wadat.

  • special

wa_ship-special = z_special.

  • Order

wa_ship-ship_order = vbfa-vbelv.

  • Trans id

wa_ship-transid = z_sales_po.

  • Index

wa_ship-tab_index = sy-tabix.

APPEND wa_ship TO it_ship.

  • read table it_ship from wa_ship.

    • clear: wa_ship, wa_section.

*

  • call function 'WRITE_FORM'

  • EXPORTING

  • element = 'LABEL'

  • window = 'MAIN'.

  • clear: wa_ship, wa_section.

ENDLOOP.

ENDIF.

ENDIF.

ENDIF.

READ TABLE it_ship INDEX 1 .

READ TABLE it_ship FROM wa_ship.

  • CALL FUNCTION 'OPEN_FORM'

  • EXPORTING

  • DIALOG = 'X'

*

  • device = 'PRINTER'

  • form = 'ZSD_SHIPPING_LBL'.

  • CALL FUNCTION 'START_FORM'.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

application = 'TX'

  • ARCHIVE_INDEX =

  • ARCHIVE_PARAMS =

device = 'PRINTER'

dialog = 'X'

form = 'ZSD_SHIPPING_LBL'

  • FORM = 'ZTEST_SCRIPt'

language = sy-langu

  • OPTIONS =

  • MAIL_SENDER =

  • MAIL_RECIPIENT =

  • MAIL_APPL_OBJECT =

raw_data_interface = '*'

  • IMPORTING

  • LANGUAGE =

  • NEW_ARCHIVE_PARAMS =

  • RESULT =

EXCEPTIONS

canceled = 1

device = 2

form = 3

options = 4

unclosed = 5

mail_options = 6

archive_error = 7

invalid_fax_number = 8

more_params_needed_in_batch = 9

spool_error = 10

OTHERS = 11

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

  • call function 'WRITE_FORM'

  • EXPORTING

  • element = 'LABEL'

  • window = 'MAIN'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'LABEL'

function = 'SET'

type = 'BODY'

window = 'MAIN'

  • IMPORTING

  • PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

OTHERS = 9

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

  • CALL FUNCTION 'END_FORM'.

CALL FUNCTION 'CLOSE_FORM'.

ENDFORM. " PROCESSING

----


  • FORM PROTOCOL_UPDATE *

----


  • The messages are collected for the processing protocol. *

----


FORM protocol_update.

CHECK xscreen = space.

CALL FUNCTION 'NAST_PROTOCOL_UPDATE'

EXPORTING

msg_arbgb = syst-msgid

msg_nr = syst-msgno

msg_ty = syst-msgty

msg_v1 = syst-msgv1

msg_v2 = syst-msgv2

msg_v3 = syst-msgv3

msg_v4 = syst-msgv4

EXCEPTIONS

OTHERS = 1.

ENDFORM.

&----


*& Form EXTRACT_INFO

&----


FORM extract_info.

REFRESH: t_bundle_suppress.

CLEAR: t_bundle_suppress.

  • Get Tvarv variable for ALcatel prefix "v15

CALL FUNCTION 'Z_GET_TVARV_VARIABLE_VALUE' "V15

EXPORTING "V15

variable_name = 'Z_FFSD002_ALCATEL_PREFIX' "V15

TABLES "V15

variable_range = r_alcl_prefix "V15

EXCEPTIONS "V15

variable_not_found = 1 "V15

invalid_range_table = 2 "V15

OTHERS = 3. "V15

  • Get Tvarv variable for TSD changes.. "v12

CALL FUNCTION 'Z_GET_TVARV_VARIABLE_VALUE' "V12

EXPORTING "V12

variable_name = 'Z_PROJECT_DELIVERY_TYPE' "V12

TABLES "V12

variable_range = r_lfart_project "V12

EXCEPTIONS "V12

variable_not_found = 1 "V12

invalid_range_table = 2 "V12

OTHERS = 3. "V12

  • >>> Begin of change: DV1K922331 - S.Kung, Jan 09/00.

  • check that this ship-to customer needs interunit info.

SELECT SINGLE * FROM zshiptocust

WHERE kunnr = likp-kunnr

AND interunit_output = 'X'.

IF sy-subrc = 0.

z_interunit_flg = 'Y'.

ELSE.

z_interunit_flg = 'N'.

ENDIF.

  • >>> End of DV1K922331 changes.

*Ship_to address

SELECT SINGLE * FROM vbpa INTO vbpa

WHERE vbeln = order

AND posnr = '000000'

AND parvw = 'WE'.

IF sy-subrc = 0.

CALL FUNCTION 'VIEW_VBADR'

EXPORTING

input = vbpa

IMPORTING

adresse = vbadr.

MOVE-CORRESPONDING vbadr TO kna1.

*Move the Ship To Address No.

  • Move Kna1-adrnr to wa_ship-ADDRNUMBER_WE.

  • ENDIF. " commented by SK - Dec 1/99

  • SELECT SINGLE * FROM VBPA WHERE VBELN = ORDER

  • AND PARVW = 'WE'.

  • IF SY-SUBRC = 0.

  • SELECT SINGLE * FROM KNA1 WHERE KUNNR = VBPA-KUNNR.

ELSE.

syst-msgid = 'VN'.

syst-msgno = '203'.

syst-msgty = 'W'.

syst-msgv1 = 'VBPA'.

syst-msgv2 = syst-subrc.

PERFORM protocol_update.

ENDIF.

*Attention Ship_to

SELECT SINGLE * FROM vbpa INTO vbpa

WHERE vbeln = order

AND posnr = '000000'

AND parvw = 'C2'.

IF sy-subrc = 0.

CALL FUNCTION 'VIEW_VBADR'

EXPORTING

input = vbpa

IMPORTING

adresse = vbadr.

MOVE vbadr-name1 TO z_shipto_att.

IF z_shipto_att IS INITIAL. "v15

MOVE 'RECEIVING' TO z_shipto_att. "v15

ENDIF. "v15

MOVE vbadr-telf1 TO z_shipto_tel. "v15

  • ENDIF. " commented by SK - Dec 1/99

  • SELECT SINGLE * FROM KNVP WHERE

  • KUNNR = KNA1-KUNNR AND PARVW = 'C2'.

  • IF SY-SUBRC = 0.

  • SELECT SINGLE NAME1 FROM KNA1 INTO Z_SHIPTO_ATT

  • WHERE KUNNR = KNVP-KUNN2.

ELSE.

syst-msgid = 'VN'.

syst-msgno = '203'.

syst-msgty = 'W'.

syst-msgv1 = 'KNVP'.

syst-msgv2 = syst-subrc.

PERFORM protocol_update.

ENDIF.

  • Ship from address.

SELECT SINGLE * FROM lips WHERE vbeln = order.

CLEAR t001w.

SELECT SINGLE * FROM t001w WHERE werks = lips-werks. "plant table

  • >>>> Start of insertion - DV1K911728

CLEAR t001k.

SELECT SINGLE * FROM t001k WHERE bwkey = t001w-bwkey. "valuation area

CLEAR t001.

SELECT SINGLE * FROM t001 WHERE bukrs = t001k-bukrs. "company code

CLEAR adrc.

  • SELECT SINGLE * FROM adrc WHERE addrnumber = t001-adrnr. "DV1K926038

SELECT SINGLE * FROM adrc WHERE addrnumber = tvst-adrnr. "DV1K926038

  • <<<< end of insertion - DV1K911728

  • Thales UK.

IF likp-vkorg = '1040'.

  • Get the Storage Location instead of the Plant/Shipping Point.

SELECT SINGLE * FROM lips WHERE vbeln = order.

IF sy-subrc = 0.

SELECT SINGLE * FROM twlad WHERE lgort = lips-lgort

AND werks = lips-werks.

  • Get the Address.

IF sy-subrc = 0.

SELECT SINGLE * FROM adrc WHERE addrnumber = twlad-adrnr.

ENDIF.

ENDIF.

ENDIF.

  • Ship To From Country

z_shto_fr_cntry = adrc-country. " NN09

  • Get telephone number from ship-from shipping point address.

z_shipfrm_tel = adrc-tel_number. "V15

  • Purchase order vbak-bstnk

  • CLEAR: vbfa, vbak, t005t."DV1K922468

CLEAR: vbak, t005t. "DV1K922468

  • >>> Begin of change: DV1K922331 - S.Kung, Jan 09/01.

  • If Plano Order, switch values of "sold-to party" PO#/date fields

  • with values in "ship-to party" PO#/Date fields.

  • SELECT SINGLE * FROM VBFA WHERE VBELN = LIKP-VBELN.

  • SELECT SINGLE BSTKD FROM VBKD INTO Z_SALES_PO

  • WHERE VBELN = VBFA-VBELV.

  • SELECT SINGLE * FROM vbfa WHERE vbeln = likp-vbeln."DV1K922468

  • SELECT SINGLE bstkd bstkd_e FROM vbkd INTO (z_bstkd, z_bstkd_e) "NN08

SELECT SINGLE bstkd bstkd_e ihrez FROM vbkd "NN08

INTO (z_bstkd, z_bstkd_e, z_ihrez) "NN08

  • WHERE vbeln = vbfa-vbelv. "DV1K922468

WHERE vbeln = lips-vgbel. "DV1K922468

  • store order number in VBFA so that the Layout Set can print it

  • If shipment is for a project (lfart belong to a project), then will

  • print project ID as the Order # instead of aan SD order #

IF likp-lfart IN r_lfart_project. "V12,

SELECT SINGLE proj~pspid "V14

INTO proj-pspid "V14

FROM lips "V14

INNER JOIN proj "V14

ON projpspnr = lipspspnr "V14

WHERE lips~vbeln = likp-vbeln "V14

AND lips~pspnr NE space. "V14

*

  • concatenate 'PR' lips-ps_psp_pnr into w_prps_objnr. "V12

  • select single posid from prps "V12

  • into w_posid "V12

  • where objnr = w_prps_objnr. "V12

  • vbfa-vbelv = w_posid. "V12

vbfa-vbelv = proj-pspid. "V14

ELSE. "V12

vbfa-vbelv = lips-vgbel. "DV1K922559

ENDIF. "V12

*

  • IF Plano order (interunit order), print Plano's end customer PO#, etc.

IF z_interunit_flg = 'Y'.

  • z_sales_po = z_bstkd_e. "V15

z_dummy = z_bstkd_e. "V15

z_interunit_so = z_bstkd.

ELSE.

  • If not interunit order, print ACAN's end customer PO #.

  • z_sales_po = z_bstkd. "V15

z_dummy = z_bstkd. "V15

z_interunit_so = z_bstkd_e.

ENDIF.

  • >>> End of change: DV1K922331 - S.Kung, Jan 09/01.

  • Add Z_SPECIAL field. "V15

z_special = ' SEE ATTACHED '. "V15

  • V12 - change for TSD ( BLANK out PO number for TSD order)

IF likp-lfart IN r_lfart_project. "V12,

z_sales_po = ' '. "V12

ENDIF. "V12.

  • Country name

SELECT SINGLE * FROM t005t WHERE land1 = kna1-land1 AND

spras = sy-langu.

  • Begin Addition of NN03

CALL FUNCTION 'Z_GET_TVARV_VARIABLE_VALUE'

EXPORTING

variable_name = 'Z_PSTYV_BUNDLES_DEL'

TABLES

variable_range = r_pstyv

EXCEPTIONS

variable_not_found = 1

invalid_range_table = 2

OTHERS = 3.

  • END OF ADDITION NN03

  • Begin addition of V10

CALL FUNCTION 'Z_GET_TVARV_VARIABLE_VALUE'

EXPORTING

variable_name = 'Z_FFSD002_REPAIR_ITEM'

TABLES

variable_range = r_repair_items

EXCEPTIONS

variable_not_found = 1

invalid_range_table = 2

OTHERS = 3.

  • End of Addition V10

  • Shipping unit

SELECT DISTINCT exidv FROM zepicpackldv INTO TABLE ship_tab

WHERE vbeln = order.

IF sy-subrc <> 0.

  • Begin of Addition - NN03

SELECT DISTINCT exidv FROM vekp

INTO TABLE ship_tab

WHERE vpobjkey = order.

IF sy-subrc = 0.

SELECT vekpexidv vepoposnr lips~matnr

vepo~vemng AS qty

lipsuepos lipspstyv likp~vkorg

lipsarktx marcherkl "V15

FROM vepo

INNER JOIN vekp

ON vekpvenum = vepovenum

INNER JOIN likp

ON likpvbeln = vepovbeln

INNER JOIN lips

ON lipsvbeln = vepovbeln

AND lipsposnr = vepoposnr

INNER JOIN marc "V15

ON marcmatnr = lipsmatnr "V15

AND marcwerks = lipswerks "V15

APPENDING

corresponding fields of table t_bundle_suppress

WHERE vepo~vbeln = order

AND lips~uepos = 0.

  • Begin of Addition V10

LOOP AT t_bundle_suppress.

IF t_bundle_suppress-pstyv IN r_repair_items.

z_repair_label = 'Repair Return'.

CONTINUE.

ENDIF.

ENDLOOP.

  • End of Addition V10

LOOP AT t_bundle_suppress WHERE pstyv IN r_pstyv.

SELECT mvgr4 INTO t_bundle_suppress-mvgr4

FROM mvke

WHERE matnr = t_bundle_suppress-matnr

AND vkorg = t_bundle_suppress-vkorg.

ENDSELECT.

MODIFY t_bundle_suppress.

ENDLOOP.

LOOP AT ship_tab.

CLEAR lips-matnr.

LOOP AT t_bundle_suppress

WHERE exidv = ship_tab-exidv.

IF z_qty = 0.

MOVE t_bundle_suppress-matnr TO ship_tab-matnr.

MOVE t_bundle_suppress-arktx TO ship_tab-arktx. "V15

MOVE t_bundle_suppress-herkl TO ship_tab-herkl. "V15

ENDIF.

IF t_bundle_suppress-matnr <> ship_tab-matnr.

MOVE 'MIXED LOAD' TO ship_tab-matnr.

MOVE 'SEE ATTACHED' TO ship_tab-arktx. "V15

MOVE 'MIX' TO ship_tab-herkl. "V15

ENDIF.

ADD t_bundle_suppress-qty TO ship_tab-qty.

ADD 1 TO z_qty.

ENDLOOP.

MODIFY ship_tab.

z_qty = 0.

ENDLOOP.

  • End of Addition - NN03

ELSE. "NN03

MOVE '????' TO ship_tab-exidv.

APPEND ship_tab.

ENDIF. "NN03

ELSE. "NN03

LOOP AT ship_tab.

CLEAR lips-matnr.

SELECT * FROM zepicpackldv WHERE vbeln = order

AND exidv = ship_tab-exidv.

IF sy-subrc = 0.

  • Begin of Insertion DV1K932234

SELECT SINGLE * FROM lips WHERE

lips~vbeln = zepicpackldv-vbeln AND

lips~posnr = zepicpackldv-posnr.

IF sy-subrc = 0.

IF lips-pstyv IN r_repair_items.

z_repair_label = 'Repair Return'.

ENDIF.

MOVE lips-arktx TO ship_tab-arktx. "V15

SELECT SINGLE herkl INTO ship_tab-herkl FROM marc "V15

WHERE matnr EQ lips-matnr "v15

AND werks EQ lips-werks. "V15

ENDIF.

  • End of Insertion DV1K932234

IF z_qty = 0.

MOVE zepicpackldv-matnr TO ship_tab-matnr.

ENDIF.

IF zepicpackldv-matnr <> ship_tab-matnr.

MOVE 'MIXED LOAD' TO ship_tab-matnr.

MOVE 'SEE ATTACHED' TO ship_tab-arktx. "V15

MOVE 'MIX' TO ship_tab-herkl. "V15

ENDIF.

ADD zepicpackldv-qty TO ship_tab-qty.

ADD 1 TO z_qty.

ENDIF.

ENDSELECT.

MODIFY ship_tab.

z_qty = 0.

ENDLOOP.

ENDIF.

ENDFORM. " EXTRACT_INFO

Could u plz let me know how should i define the variables in the labelshop.I have tried various possibilities regarding data mapping between SAP and LabelShop. If i define the variables with WA SHIP or ITSHIP,the values are not getting printed but the values of the fields defined as TABLENAME-FIELD Name r cuming like i m getting the value for LIPS-MATNR , so i tried to define the variables in this way but i found that for tables LIKP and LIPS ,data is coming.For other tables like VBFA,KNA1, again data is not coming.

Former Member
0 Kudos

Hi,

I had already referred to the OSS note 183777 for Label Printing.Could u plz let me know how had u defined variables in the Repot Program and Labelshop.

Former Member
0 Kudos

Hi,

Still having the same problem.Checked the printer settings n they seems to be fine, there is some problem in the sapscript and i havn't used any special character like hyphen when declared variables in the LabelShop.I have used the underscore character inplace of hyphen.Plz help me out.

Former Member
0 Kudos

Please refer to OSS note 183777.

Former Member
0 Kudos

Hi,

Follow Note 179534 similar to your case.

Former Member
0 Kudos

Thanks for the reply but i had already got that SAP note.Actuallly, the thing is that the data is not being flowing into the layout designed in the Labelshop.When i debugged the Report program,the values r coming in the internal table but when i debugged the code for layout,its not picking up the values.One more thing i found from the note that the variables that we declare in the program ,same variables should also be defined in the Labelshop.I did the same.But no result.So wht i think that dere is some mismatch in the data mapping(b/w SAP & Labelshop).Could u plz provide me some other solution .

prateek
Active Contributor
0 Kudos

the variables that we declare in the program ,same variables should also be defined in the Labelshop

Yes thats correct. But if ur R3 field names contain special characters like '-', then instead of saving the original name, Labelshop saves an arbitary name. So make sure ur variable names does not contain any special chars.

While downloading the file as ITF, there are two modes of saving the file. Try with SAP Host Mode.POC variant. And make sure while saving the file, u have not manually edited the *.POF extn to *.ITF. This change happens automatically.

While printing, are there any special characters to be printed?

Regards,

Prateek

Former Member
0 Kudos

I had similar problems and found that it was resolved on the Intermec side rather than being SAP problem.

As described in one reply you should make the field names use in label design without special characters "_" or "-". This could cause problem where Label Shop software could not handle satisfactorily.

Also I had problem where I had default variant value with a hyphen and it printed that variant twice.

In speaking with Intermec it was suggested to me that I download patch SP05 and apply it. Both problems disappeared!!! To check your version and patch in Label Soft use <help> then <about>.

You would expect to see IPL code as in the standard text with the field values in the bottom section when using print preview.

I preferred using SMARTFORMS with include text rather than SAPSCRIPT as I found it to be more flexible and easier to maintain.

Good luck!