on 07-31-2008 7:01 AM
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).
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.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi,
Follow Note 179534 similar to your case.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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 .
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
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!
User | Count |
---|---|
87 | |
23 | |
11 | |
9 | |
8 | |
5 | |
5 | |
5 | |
5 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.