2nd "goods slip" label in goods reciept

When we do a goods receipt (MIGO) in SAP we would like a 2nd "goods slip" label to be printed.
This label should contain: material number, supplier material number, BIN , material description.
Thes labels should be printed per item . If we make a goods receipt of 10 materia A, 10 labels (small) should be printed.

Configure another output type for printing the labels alone. Whenever a MIGO is saved, this output type should be automatically proposed and the labels should be printed. You will need to have a new sapscript/smartform layout developed. This layout should be attached to the new condition type.
Having a new condition type/layout gives you the flexibility to print the labels again if needed.

Similar Messages

Goods Receipt Against A Goods Return - Not Working

Hi,
i have been trying to work through the Purchase goods return process for a client and am having issues with the flow.
This is the process :-
Create Purchase Order for 1 item, Qty = 21
Goods Reciept linked to Purchase Order - Qty = 21 this is 100% (Purchase Order Closes)
Goods Return linked to Goods Receipt - Qty = 1
Goods Receipt replacement item from supplier - attempted to link to Goods Return - none available - find goods return closed !!!
How can i link the new goods receipt with the original Purchase Order/Goods Receipt/Goods Return if the goods return is closed.
I'm using 2007A SP01 PL05
Thanks
Barry

Dear Mr Mason,
The scenario you described:
Return closed automatically after being added
is system behaviour.
It is not possible to link the new GRPO to the goods return.
The only suggestion I can give you is writing the GRPO and goods return numbers in the remark of the new GRPO.
Regards,
Marcella Rivi
SAP Business One Forums Team

Values in "vendor batch" in the Goods-in-order and Goods-in-plan lists are

Vendor batch No. : Transaction ZJPMPU322
(Background)
There are "vendor batch" and "batch" fields in Goods-in-order and Goods-in-plan lists (transaction ZJPMPU322). Values for these fields are retrieved from inbound delivery document (transaction VL33N). After core 7.0 upgrade, "vendor batch" is not copied from "batch" in inbound delivery document any more so that nothing appears in the vendor batch field in the lists.
(Change request)
Values in "vendor batch" in the Goods-in-order and Goods-in-plan lists are retrieved from "batch" in inbound delivery document ONLY IF "vendor batch" is blank in the inbound delivery document.
(Current design)
Batch is retrieved from LIPS-CHARG
Vendor batch is retrieved from LIPS-LICHN
(If there is no record in LIPS, blank will be printed out for both fields)
(After change)
Batch is retrieved from LIPS-CHARG
Vendor batch is retrieved from LIPS-LICHN only if LIPS-LICHN is not blank.
If LIPS-LICHN is blank, vendor batch is retrieved from LIPS-CHARG.
(If there is no record in LIPS, blank will be printed out for both fields. If both LIPS-CHARG and LIPS-LICHN are blank, blank will be printed out for both fields),
Following is the program:
REPORT zjpmrpu322 MESSAGE-ID zjpm001
 NO STANDARD PAGE HEADING
 LINE-COUNT 50
 LINE-SIZE 255.
*& Development ID: PU_DD_322_LJP *
*& Report : ZJPMRPU322 *
*& The Purpose of this program is to print the Goods-in-order list *
*& and the Goods in plan list for raw materials, materials purchase *
*& etc at the Sasayama plant, Japan. *
*& Change Log: *
*& Init Who Date Text *
*& PV P V R S Varma 07-May-2003 Initial Version *
*& DU D.Usui 2004/02/26 CR No. 1432 *
*& DU D.Usui 2004/03/08 CR No. 1447 *
*& DU D.Usui 2004/05/06 CR No. 1591 *
 Constants
CONSTANTS:
c_werks LIKE ekpo-werks VALUE 'JP01', "Plant code - Sasayama plant
c_id LIKE thead-tdid VALUE 'F02', "Text ID for Info record
c_object LIKE thead-tdobject VALUE 'EKPO',"Object of text for info rec
*c_zzjp_r1 LIKE marc-zzjp_re1 VALUE 'GMP', "Goods in plan- Domestic
*c_zzjp_r2 LIKE marc-zzjp_re1 VALUE 'GMPI', "Import sales order document
c_plus TYPE c VALUE '', "Holding '' sign
c_spras LIKE makt-spras VALUE 'J', "Language key Japan
*c_device(7) type c value 'PRINTER', "Device type
c_form(16) TYPE c VALUE 'ZJPMPU305', "Form name
c_ele_gmp(4) TYPE c VALUE 'GMP', "GMP Text element
c_ele_gmpi(4) TYPE c VALUE 'GMPI', "GMPI Text element
add begin CR1432
c_ele_bgmp(4) TYPE c VALUE 'BGMP', "BGMP
c_ele_bgmpi(5) TYPE c VALUE 'BGMPI', "BGMPI
add end CR1432
c_function(3) TYPE c VALUE 'SET', "Function
c_type(4) TYPE c VALUE 'BODY', "Window area in main window
c_win_head(7) TYPE c VALUE 'HEADING', "Heading window
c_win_shead(7) TYPE c VALUE 'SUBHEAD', "sub heading window
c_win_fot1(7) TYPE c VALUE 'FOOTER1', "Footer 1 window
c_win_main(4) TYPE c VALUE 'MAIN', "Main window
c_comd(8) TYPE c VALUE 'NEW-PAGE', "New-page command
c_zar TYPE ekko-bsart VALUE 'ZAR',
c_x TYPE c VALUE 'X', "Indicator for print options
c_f TYPE c VALUE 'F', "Indicator for Purchase Order
add begin CR1591
Deletion indicator in purchasing document
c_loekz(1) TYPE c VALUE 'L',
For ranges tables
c_sign_i(1) TYPE c VALUE 'I', "Sign(include)
c_op_eq(2) TYPE c VALUE 'EQ', "Option(=)
Confirmation category
c_ebtyp_ab(2) TYPE c VALUE 'AB', "Order acknowledgment
add end CR1591
c_la(2) TYPE c VALUE 'LA'. "Indicator for Inbound deliver
 Database Tables
 Vaiables / Internal tables *
Internal table to store PO information
Not used after CR1591
DATA: BEGIN OF t_purc OCCURS 0,
 ebeln LIKE eket-ebeln, "Purchasing Document Number
 ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
 eindt LIKE eket-eindt, "Item delivery date
 menge LIKE eket-menge, "Scheduled quantity
 charg LIKE eket-charg, "Batch number
 matnr LIKE ekpo-matnr, "Material code
 werks LIKE ekpo-werks, "Plant
 meins LIKE ekpo-meins, "Unit of measure
 lifnr LIKE ekko-lifnr, "Vendor number
 END OF t_purc.
Internal table to store material description.
DATA: BEGIN OF t_makt OCCURS 0,
 matnr LIKE makt-matnr, "Material code
 maktx LIKE makt-maktx, "Material description
 END OF t_makt.
Internal table for storage of final EKET data
DATA: BEGIN OF t_eket OCCURS 0,
 ebeln LIKE eket-ebeln, "Purchasing Document Number
 ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
 ebelp_ex(6) TYPE n, "Extended ebelp with length 6
 eindt LIKE eket-eindt, "Item delivery date
 menge LIKE eket-menge, "Scheduled quantity
 dabmg LIKE ekes-dabmg, " Delivered Quantity
 charg LIKE eket-charg, "Batch number
 matnr LIKE ekpo-matnr, "Material code
 werks LIKE ekpo-werks, "Plant
 maktx LIKE makt-maktx, "Material Description-- jp check
 etens LIKE ekes-etens, "Sequence Number
 meins LIKE ekpo-meins, "Unit of measure
 lifnr LIKE ekko-lifnr, "Vendor number
 vbeln LIKE ekes-vbeln,
 vbelp LIKE ekes-vbelp,
 vpnam(40) TYPE c, "Vendor product name
 END OF t_eket.
Internal table for extraction of data from EKES
Not used after CR1591
DATA: BEGIN OF t_ekes OCCURS 0,
 ebeln LIKE ekes-ebeln, "Purchasing Document Number
 ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
 etens LIKE ekes-etens, "Sequence No
 eindt LIKE ekes-eindt, "Item delivery date
 menge LIKE ekes-menge, "Scheduled Quantity
 dabmg LIKE ekes-dabmg, " delivered quantity
 vbeln LIKE ekes-vbeln,
 vbelp LIKE ekes-vbelp,
 mark TYPE c,
 END OF t_ekes.
Internal table for extraction of data from EKES
Not used after CR1591
DATA: BEGIN OF t_ekes_temp OCCURS 0,
 ebeln LIKE ekes-ebeln, "Purchasing Document Number
 ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
 etens LIKE ekes-etens, "Sequence No
 eindt LIKE ekes-eindt, "Item delivery date
 menge LIKE ekes-menge, "Scheduled Quantity
 END OF t_ekes_temp.
Internal table for storing data from MLGN table.
DATA: BEGIN OF t_mlgn OCCURS 0,
 matnr LIKE mlgn-matnr, "material code
 lhmg1 LIKE mlgn-lhmg1, "Standard pallet size
 lhme1 LIKE mlgn-lhme1, "Unit of measure
 lety1 LIKE mlgn-lety1, "tower
 ltkze LIKE mlgn-ltkze, "Storage location
 END OF t_mlgn.
Internal table for storing data from MARM table.
DATA: BEGIN OF t_marm OCCURS 0,
 matnr LIKE marm-matnr, "material code
 umrez LIKE marc-zzjp_cas_size, "Std package unit
 meins LIKE ekpo-meins, "alternate unit
 END OF t_marm.
Internal table for storing data from MARC table.
DATA: BEGIN OF t_marc OCCURS 0,
 matnr LIKE marc-matnr, "Material code
 zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
 zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
 zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
 zzjp_re1 LIKE marc-zzjp_re1, "Heading
 END OF t_marc.
Internal table for storing data from lfa1 table.
DATA: BEGIN OF t_lfa1 OCCURS 0,
 lifnr LIKE lfa1-lifnr, "Vendor code
 name1 LIKE lfa1-name1, "Vendor name
 END OF t_lfa1.
Internal table for Storing data from LIPS table.
DATA: BEGIN OF t_lips OCCURS 0,
 vbeln LIKE lips-vbeln, "Delivery document no
 posnr LIKE lips-posnr, "Item number for Delivery document
 charg LIKE lips-charg, "Batch number
 lichn LIKE lips-lichn, "Vendor Batch number
 END OF t_lips.
Internal table for storing the final display data.
DATA: BEGIN OF t_display OCCURS 0,
 g_checkbox type c, "check box for selection of records
 ebeln LIKE ekes-ebeln, "Purchasing Document Number
 ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
 etens LIKE ekes-etens, "Sequence No
 eindt LIKE eket-eindt, "Item delivery date
 menge LIKE eket-menge, "Scheduled Quantity
 vpnam(40) TYPE c, "Vendor product name
 lifnr LIKE ekko-lifnr, "Vendor code
 name1 LIKE lfa1-name1, "Vendor name
 meins LIKE ekpo-meins, "Unit of measure
 matnr LIKE ekpo-matnr, "Material Number
 maktx LIKE makt-maktx, "Material Description-- jp check
 charg LIKE lips-charg, "Batch number
 lichn LIKE lips-lichn, "Vendor Batch number
 lhmg1 LIKE mlgn-lhmg1, "standard pallet size
 lhme1 LIKE mlgn-lhme1, "Unit of standard pallet
 lety1 LIKE mlgn-lety1, "tower
 ltkze LIKE mlgn-ltkze, "Storage location
 umrez LIKE marc-zzjp_cas_size, "Std package unit
 meinh LIKE ekpo-meins, "alternate unit
 zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
 zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
 zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
 zzjp_re1 LIKE marc-zzjp_re1, "Heading
 std_pac_no(13) TYPE n, "Std receipt package no
 tot_std_pt(13) TYPE n, "Total no of std pallets
add begin CR1447
Add new field 'Goods-in-order','Item' for goods in plan list
 vbeln like ekes-vbeln, "Goods-in-order
 vbelp like ekes-vbelp, "Item
add end CR1447
 END OF t_display.
Internal table for storing the final display data -Goods in order list
DATA: BEGIN OF t_display1 OCCURS 0,
 ebeln LIKE ekes-ebeln, "Purchasing Document Number
 ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
 etens LIKE ekes-etens, "Sequence No
 eindt LIKE eket-eindt, "Item delivery date
 menge LIKE eket-menge, "Scheduled Quantity
 vpnam(40) TYPE c, "Vendor product name
 lifnr LIKE ekko-lifnr, "Vendor code
 name1 LIKE lfa1-name1, "Vendor name
 meins LIKE ekpo-meins, "Unit of measure
 matnr LIKE ekpo-matnr, "Material Number
 maktx LIKE makt-maktx, "Material Description-- jp check
 charg LIKE lips-charg, "Batch number
 lichn LIKE lips-lichn, "Vendor Batch number
 lhmg1 LIKE mlgn-lhmg1, "standard pallet size
 lhme1 LIKE mlgn-lhme1, "Unit of standard pallet
 lety1 LIKE mlgn-lety1, "tower
 ltkze LIKE mlgn-ltkze, "Storage location
 umrez LIKE marc-zzjp_cas_size, "Std package unit
 meinh LIKE ekpo-meins, "alternate unit
 zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
 zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
 zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
 zzjp_re1 LIKE marc-zzjp_re1, "Heading
 std_pac_no(13) TYPE n, "Std receipt package no
 tot_std_pt(13) TYPE n, "Total no of std pallets
 END OF t_display1.
Internal table for storing the final display data - Goods in plan list
DATA: BEGIN OF t_display2 OCCURS 0,
 ebeln LIKE ekes-ebeln, "Purchasing Document Number
 ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
 etens LIKE ekes-etens, "Sequence No
 eindt LIKE eket-eindt, "Item delivery date
 menge LIKE eket-menge, "Scheduled Quantity
 name1 LIKE lfa1-name1, "Vendor name
 meins LIKE ekpo-meins, "Unit of measure
 matnr LIKE ekpo-matnr, "Material Number
 maktx LIKE makt-maktx, "Material Description-- jp check
 charg LIKE lips-charg, "Batch number
 lichn LIKE lips-lichn, "Vendor Batch number
 lhmg1 LIKE mlgn-lhmg1, "standard pallet size
 lety1 LIKE mlgn-lety1, "tower
 ltkze LIKE mlgn-ltkze, "Storage location
 tot_std_pt(13) TYPE n, "Total no of std pallets
add begin CR1447
Add new field 'Goods-in-order','Item' for goods in plan list
 vbeln like ekes-vbeln, "Goods-in-order
 vbelp like ekes-vbelp, "Item
add end CR1447
 END OF t_display2.
add begin CR1591
RANGES: r_matnr FOR mara-matnr, "for p_matnr
 r_ebeln FOR ekpo-ebeln. "for p_ebeln
add end CR1591
DATA: line TYPE i. " line number
DATA: g_checkbox TYPE c. "check box for selection of records
DATA: g_tab LIKE sy-index. "variable to hold index
DATA g_tabix LIKE sy-tabix. "holder for table index
Printing Options.
DATA: lw_pr_options LIKE itcpo.
*lw_pr_options-tddest = 'SA03'. " Print Device Name
lw_pr_options-tdpreview = 'X'. " Print Preview
lw_pr_options-tdnewid = 'X'. " New Request
lw_pr_options-tdlifetime = 2. " Retention in Spool
 Selection Screen *
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
SELECT-OPTIONS:
s_date FOR sy-datum DEFAULT sy-datum. " Search period.
PARAMETERS:
p_matnr LIKE mara-matnr, " Material code
p_ebeln LIKE ekpo-ebeln. " Purchase Document No
SELECTION-SCREEN END OF BLOCK blk1.
 Selection Screen Checks *
AT SELECTION-SCREEN.
IF ( s_date-low IS INITIAL ) AND
 ( p_matnr IS INITIAL ) AND
 ( p_ebeln IS INITIAL ).
 MESSAGE e000 WITH 'Entry Must in atleast one of the Fields'(t00).
ENDIF.
IF ( NOT p_matnr IS INITIAL ) AND
 ( s_date IS INITIAL ) AND
 ( p_ebeln IS INITIAL ).
 MESSAGE e000 WITH 'Date should also be Entered'(t01).
ENDIF.
del begin CR1591
This check is not found in original FS
IF ( NOT p_matnr IS INITIAL ) AND
 ( s_date IS INITIAL ) AND
 ( NOT p_ebeln IS INITIAL ).
 MESSAGE e000 WITH 'Date should also be Entered'(t01).
ENDIF.
del end CR1591
 Validations for Data selection *
del begin CR1591
Waste check
IF ( NOT s_date IS INITIAL ) AND
 ( p_matnr IS INITIAL ) AND
 ( p_ebeln IS INITIAL ).
 PERFORM f_check_date_in_eket.
ENDIF.
IF ( NOT s_date IS INITIAL ) AND
 ( NOT p_matnr IS INITIAL ) AND
 ( p_ebeln IS INITIAL ).
 PERFORM f_check_matnr_in_plant.
 PERFORM f_check_matnr_in_ekpo.
 PERFORM f_check_date_in_eket.
 PERFORM f_check_matnr_in_plant.
 PERFORM f_check_matnr_in_ekpo.
ENDIF.
IF ( NOT s_date IS INITIAL ) AND
 ( NOT p_matnr IS INITIAL ) AND
 ( NOT p_ebeln IS INITIAL ).
 PERFORM f_check_matnr_in_plant.
 PERFORM f_check_matnr_in_ekpo.
 PERFORM f_check_date_in_eket.
 PERFORM f_check_ebeln_in_ekpo.
 PERFORM f_check_werks_in_ekpo.
ENDIF.
IF ( NOT p_ebeln IS INITIAL ) AND
 ( NOT s_date IS INITIAL ) AND
 ( p_matnr IS INITIAL ).
 PERFORM f_check_date_in_eket.
 PERFORM f_check_ebeln_in_ekpo.
 PERFORM f_check_werks_in_ekpo.
ENDIF.
IF ( NOT p_ebeln IS INITIAL ) AND
 ( s_date IS INITIAL ) AND
 ( p_matnr IS INITIAL ).
 PERFORM f_check_ebeln_in_ekpo.
 PERFORM f_check_werks_in_ekpo.
ENDIF.
del end CR1591
 Data selection from Tables *
START-OF-SELECTION.
SET PF-STATUS 'SELECT'.
add begin CR1591
Set ranges tables
PERFORM set_ranges.
add end CR1591
mod begin CR1591
**Selection of PO data from EKET into internal table t_purc.
PERFORM f_select_eket.
**Selection of corresponding PO data for EKET from EKES into t_ekes.
PERFORM f_select_ekes.
**Selection of material desc from MAKT table into T_makt.
PERFORM f_select_makt.
**Copy the contents of t_purc and t_makt into t_eket table.
PERFORM f_move_eket.
**Replace the corresponding entries of t_eket with t_ekes.
PERFORM f_update_eket.
Selection of PO data from EKET into internal table T_EKET.
PERFORM f_select_eket2.
Selection of corresponding PO data from EKES appending to T_EKET.
PERFORM f_select_ekes2.
Selection of material desc from MAKT table into T_MAKT.
PERFORM f_select_makt2.
mod end CR1591
*Selection of vendor product name.
PERFORM f_select_vpnam.
del begin CR1591
No need
**copy t_eket-ebelp into temporary variable.
PERFORM f_copy_ebelp.
del end CR1591
*selection of data from MLGN table into t_mlgn internal table
PERFORM f_select_mlgn.
*selection of data from marm table into t_marm internal table
PERFORM f_select_marm.
*selection of data from marc table into t_marc internal table
PERFORM f_select_marc.
*selection of data from lfa1 table into t_lfa1 internal table
PERFORM f_select_lfa1.
*Selection of data from LIPS table into t_lips internal table
PERFORM f_select_lips.
del begin CR1591
Don't display list screen when no data exists
*END-OF-SELECTION.
del end CR1591
*lines = sy-linno - 1.
*Collection of data into the final display internal table t_Display
PERFORM f_collect_final.
*Display the contents of t_display as a simple List
PERFORM f_list_display.
AT USER-COMMAND.
PERFORM f_select_layout.
INCLUDE zjpmipu315.
INCLUDE zjpmipu316.
*& Form f_check_MATNR_in_plant
 This Routine is to check if the the selected material code is
 available in the plant 'JP01'.
FORM f_check_matnr_in_plant.
DATA: l_matnr LIKE mara-matnr.
SELECT matnr UP TO 1 ROWS FROM marc
 INTO l_matnr
 WHERE
 matnr = p_matnr AND
 werks = c_werks.
ENDSELECT.
IF l_matnr IS INITIAL.
 MESSAGE e000 WITH
 'The material is not available in '(t02) c_werks 'plant'(t20).
ENDIF.
ENDFORM. " f_check_MATNR_in_plant
*& Form f_check_EBELN_in_EKPO
 This Routine is to check if the Purchase order number selected
 is existing or not and if it exists, check if it is related to
 the plant 'JP01'.
FORM f_check_ebeln_in_ekpo.
DATA: l_ebeln LIKE ekpo-ebeln.
SELECT ebeln UP TO 1 ROWS FROM ekpo
 INTO l_ebeln
 WHERE
 ebeln = p_ebeln AND
 werks = c_werks.
ENDSELECT.
IF l_ebeln IS INITIAL.
 MESSAGE e000 WITH
 'PO not available or not related to '(t03) c_werks 'plant'(t21).
ENDIF.
ENDFORM. " f_check_EBELN_in_EKPO
*& Form f_check_matnr_in_ekko
 This routine is to check if any PO exist for the selected
 Material code.
FORM f_check_matnr_in_ekpo.
DATA: l_matnr LIKE ekpo-matnr.
SELECT matnr UP TO 1 ROWS FROM ekpo
 INTO l_matnr
 WHERE
 matnr = p_matnr.
ENDSELECT.
IF l_matnr IS INITIAL.
 MESSAGE e000 WITH
 'PO does not exist for the material no'(t04) p_matnr.
ENDIF.
ENDFORM. " f_check_matnr_in_ekpo
*& Form f_check_date_in_eket
 This routine is to check if any purchase order exists
 with the selected
FORM f_check_date_in_eket.
DATA: l_eindt LIKE eket-eindt.
SELECT eindt UP TO 1 ROWS FROM eket
 INTO l_eindt
 WHERE
 eindt IN s_date.
ENDSELECT.
IF l_eindt IS INITIAL.
 MESSAGE e000 WITH
 'No PO exist with the selected delivery date '(t05).
ENDIF.
ENDFORM. " f_check_date_in_eket
*& Form f_check_werks_in_ekpo
 This Routine is to check if the selected purchase order
 is associated with the plant JP01
FORM f_check_werks_in_ekpo.
DATA: l_ebeln LIKE ekpo-ebeln.
SELECT ebeln UP TO 1 ROWS FROM ekpo
 INTO l_ebeln
 WHERE
 werks = c_werks.
ENDSELECT.
IF l_ebeln IS INITIAL.
 MESSAGE e000 WITH
 'The selected P0 is not relevant to '(t06) c_werks 'plant'(t22).
ENDIF.
ENDFORM. " f_check_werks_in_ekpo
*& Form f_select_eket
 Routine to collect data from EKET, EKPO, MAKT, EKKO tables
 using inner join and store the data into internal table
 t_PURC. The data selection is based on the selection screen's
 input.
FORM f_select_eket.
IF ( NOT s_date-low IS INITIAL ) AND
 ( p_matnr IS INITIAL ) AND
 ( p_ebeln IS INITIAL ).
 SELECT
 eket~ebeln
 eket~ebelp
 eket~eindt
 eket~menge
 eket~charg
 ekpo~matnr
 ekpo~werks
 ekpo~meins
 ekko~lifnr
 INTO TABLE t_purc
 FROM
 ( ( eket INNER JOIN ekko ON
 eketebeln = ekkoebeln ) INNER JOIN ekpo ON
 eketebelp = ekpoebelp AND
 ekpoebeln = ekkoebeln )
WHERE
 eket~eindt IN s_date AND
 ekpo~werks = c_werks AND
 ekpo~elikz NE c_x AND
 ekko~bstyp EQ c_f AND
 ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
 ( NOT p_matnr IS INITIAL ) AND
 ( p_ebeln IS INITIAL ).
 SELECT
 eket~ebeln
 eket~ebelp
 eket~eindt
 eket~menge
 eket~charg
 ekpo~matnr
 ekpo~werks
 ekpo~meins
 ekko~lifnr
 INTO TABLE t_purc
 FROM
 ( ( eket INNER JOIN ekko ON
 eketebeln = ekkoebeln ) INNER JOIN ekpo ON
 eketebelp = ekpoebelp AND
 ekpoebeln = ekkoebeln )
WHERE
 eket~eindt IN s_date AND
 ekpo~matnr = p_matnr AND
 ekpo~werks = c_werks AND
 ekpo~elikz NE c_x AND
 ekko~bstyp EQ c_f AND
 ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
 ( NOT p_matnr IS INITIAL ) AND
 ( NOT p_ebeln IS INITIAL ).
 SELECT
 eket~ebeln
 eket~ebelp
 eket~eindt
 eket~menge
 eket~charg
 ekpo~matnr
 ekpo~werks
 ekpo~meins
 ekko~lifnr
 INTO TABLE t_purc
 FROM
 ( ( eket INNER JOIN ekko ON
 eketebeln = ekkoebeln ) INNER JOIN ekpo ON
 eketebelp = ekpoebelp AND
 ekpoebeln = ekkoebeln )
WHERE
 eket~eindt IN s_date AND
 ekpo~matnr = p_matnr AND
 ekpo~ebeln = p_ebeln AND
 ekpo~werks = c_werks AND
 ekpo~elikz NE c_x AND
 ekko~bstyp EQ c_f AND
 ekko~bsart NE c_zar.
ELSEIF ( s_date-low IS INITIAL ) AND
 ( p_matnr IS INITIAL ) AND
 ( NOT p_ebeln IS INITIAL ).
 SELECT
 eket~ebeln
 eket~ebelp
 eket~eindt
 eket~menge
 eket~charg
 ekpo~matnr
 ekpo~werks
 ekpo~meins
 ekko~lifnr
 INTO TABLE t_purc
 FROM
 ( ( eket INNER JOIN ekko ON
 eketebeln = ekkoebeln ) INNER JOIN ekpo ON
 eketebelp = ekpoebelp AND
 ekpoebeln = ekkoebeln )
WHERE
 ekpo~ebeln = p_ebeln AND
 ekpo~werks = c_werks AND
 ekpo~elikz NE c_x AND
 ekko~bstyp EQ c_f AND
 ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
 ( p_matnr IS INITIAL ) AND
 ( NOT p_ebeln IS INITIAL ).
 SELECT
 eket~ebeln
 eket~ebelp
 eket~eindt
 eket~menge
 eket~charg
 ekpo~matnr
 ekpo~werks
 ekpo~meins
 ekko~lifnr
 INTO TABLE t_purc
 FROM
 ( ( eket INNER JOIN ekko ON
 eketebeln = ekkoebeln ) INNER JOIN ekpo ON
 eketebelp = ekpoebelp AND
 ekpoebeln = ekkoebeln )
WHERE
 eket~eindt IN s_date AND
 ekpo~ebeln = p_ebeln AND
 ekpo~werks = c_werks AND
 ekpo~elikz NE c_x AND
 ekko~bstyp EQ c_f AND
 ekko~bsart NE c_zar.
ENDIF.
IF sy-subrc <> 0.
 MESSAGE s000 WITH 'Data not found'(t07).
 LEAVE LIST-PROCESSING.
ELSE.
SORT t_purc.
ENDIF.
ENDFORM. " f_select_eket
*& Form f_select_makt
 Routine to select the material description for all the
 materials present in T_purc table
FORM f_select_makt.
DATA: l_t_makt(4) TYPE c VALUE 'MAKT'.
SELECT
 matnr
 maktx
FROM
 makt
INTO TABLE t_makt
 FOR ALL ENTRIES IN t_purc
WHERE
 matnr = t_purc-matnr AND
 spras = c_spras.
IF sy-subrc <> 0.
 MESSAGE s000 WITH
 'Relevant data not found in'(t09) l_t_makt 'table'(t23).
ELSE.
 SORT t_makt.
ENDIF.
ENDFORM. " f_select_makt
*& Form f_move_eket
 Routine to join data in T_PURC and T_MAKT tables into
 internal table T_MAKT.
FORM f_move_eket.
LOOP AT t_purc.
 t_eket-ebeln = t_purc-ebeln.
 t_eket-ebelp = t_purc-ebelp.
 t_eket-eindt = t_purc-eindt.
 t_eket-menge = t_purc-menge.
 t_eket-charg = t_purc-charg.
 t_eket-matnr = t_purc-matnr.
 t_eket-werks = t_purc-werks.
 t_eket-meins = t_purc-meins.
 t_eket-lifnr = t_purc-lifnr.
 READ TABLE t_makt WITH KEY matnr = t_purc-matnr
 BINARY SEARCH.
 IF sy-subrc = 0.
 t_eket-maktx = t_makt-maktx.
 ENDIF.
 APPEND t_eket.
 CLEAR t_eket.
ENDLOOP.
ENDFORM. " f_move_eket
*& Form f_select_ekes
 Routine to select EKES data for all corresponding entries
 of T_EKET.
FORM f_select_ekes.
DATA: l_tabix TYPE i.
IF NOT s_date IS INITIAL.
 SELECT
 ebeln
 ebelp
 etens
 eindt
 menge
 INTO TABLE t_ekes
 FROM
 ekes
 WHERE
 eindt IN s_date.
ELSE.
DESCRIBE TABLE t_purc LINES l_tabix.
IF l_tabix GT 0.
 SELECT
 ebeln
 ebelp
 etens
 eindt
 menge
 dabmg
 vbeln
 vbelp
 FROM
 ekes
 INTO TABLE t_ekes
 FOR ALL ENTRIES IN t_eket
 FOR ALL ENTRIES IN t_purc
 WHERE
 ebeln = t_purc-ebeln AND
 ebelp = t_purc-ebelp AND
 eindt IN s_date.
 AND ebeln eq p_ebeln.
 and matnr in p_matnr.
ENDIF.
CLEAR l_tabix.
IF NOT s_date IS INITIAL AND NOT p_ebeln IS INITIAL.
 SELECT
 ekes~ebeln
 ekes~ebelp
 ekes~etens
 ekes~eindt
 ekes~menge
 ekes~dabmg
 APPENDING TABLE t_ekes
 FROM ekes
 WHERE
 eindt IN s_date AND
 ebeln EQ p_ebeln AND
 ebtyp EQ c_la.
ELSEIF NOT s_date IS INITIAL AND p_ebeln IS INITIAL.
 SELECT
 ekes~ebeln
 ekes~ebelp
 ekes~etens
 ekes~eindt
 ekes~menge
 ekes~dabmg
 APPENDING TABLE t_ekes
 FROM ekes
 WHERE
 eindt IN s_date AND
 ebeln EQ p_ebeln AND
 ebtyp EQ c_la.
ELSEIF s_date IS INITIAL AND NOT p_ebeln IS INITIAL.
 SELECT
 ekes~ebeln
 ekes~ebelp
 ekes~etens
 ekes~eindt
 ekes~menge
 ekes~dabmg
 APPENDING TABLE t_ekes
 FROM ekes
 WHERE
 eindt IN s_date AND
 ebeln EQ p_ebeln AND
 ebtyp EQ c_la.
ENDIF.
IF sy-subrc = 0.
 SORT t_ekes.
ENDIF.
IF NOT t_ekes[] IS INITIAL.
 t_ekes_temp[] = t_ekes[].
 SORT t_ekes_temp BY ebeln ebelp.
 DELETE ADJACENT DUPLICATES FROM t_ekes_temp COMPARING ebeln ebelp.
 LOOP AT t_ekes_temp.
 READ TABLE t_purc WITH KEY ebeln = t_ekes_temp-ebeln
 ebelp = t_ekes_temp-ebelp.
 IF sy-subrc NE 0.
 CLEAR t_purc.
 SELECT SINGLE
 eket~ebeln
 eket~ebelp
 eket~eindt
 eket~menge
 eket~charg
 ekpo~matnr
 ekpo~werks
 ekpo~meins
 ekko~lifnr
 INTO CORRESPONDING FIELDS OF t_purc
 FROM
 ( ( eket INNER JOIN ekko ON
 eketebeln = ekkoebeln ) INNER JOIN ekpo ON
 eketebelp = ekpoebelp AND
 ekpoebeln = ekkoebeln )
 WHERE
 eket~ebeln = t_ekes_temp-ebeln
 AND eket~ebelp = t_ekes_temp-ebelp
 AND ekpo~elikz NE c_x
 AND ekko~bstyp EQ c_f
 AND ekko~bsart NE c_zar.
 IF sy-subrc EQ 0.
 APPEND t_purc.
 CLEAR t_purc.
 ENDIF.
 ENDIF.
 ENDLOOP.
ENDIF.
REFRESH: t_ekes_temp, t_ekes.
CLEAR: t_ekes_temp, t_ekes.
Once the header is filled up get the details from EKES
SELECT ebeln ebelp etens eindt menge dabmg vbeln vbelp
 INTO TABLE t_ekes
 FROM ekes
 FOR ALL ENTRIES IN t_purc
 WHERE ebeln EQ t_purc-ebeln.
Mark the entries as 'X' which falls in the date range
LOOP AT t_ekes.
 IF t_ekes-eindt IN s_date.
 t_ekes-mark = 'X'.
 MODIFY t_ekes INDEX sy-tabix TRANSPORTING mark.
 ENDIF.
ENDLOOP.
SORT t_ekes BY ebeln ebelp ASCENDING mark DESCENDING.
Delete the entries from eket if no entries in EKES falls in the period
LOOP AT t_purc.
 l_tabix = sy-tabix.
 READ TABLE t_ekes WITH KEY ebeln = t_purc-ebeln
 ebelp = t_purc-ebelp.
 IF sy-subrc EQ 0.
 IF t_ekes-mark NE 'X'.
 DELETE t_purc INDEX l_tabix.
 ENDIF.
 ENDIF.
ENDLOOP.
delete the entries from EKES which do not fall in the specified period
DELETE t_ekes WHERE mark NE 'X'.
ENDFORM. " f_select_ekes
*& Form f_update_eket
 Routine to substitute relevant t_eket entries with that of
 t_ekes entries.It does not modify the remaining entries for
 for which the corresponding values in t_ekes doesnot exist.
FORM f_update_eket.
DATA: BEGIN OF lt_temp_eket OCCURS 0,
 ebeln LIKE eket-ebeln, "Purchasing Document Number
 ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
 eindt LIKE eket-eindt, "Item delivery date
 menge LIKE eket-menge, "Scheduled quantity
 dabmg LIKE ekes-dabmg, " Delivered quantity
 matnr LIKE ekpo-matnr, "Material code
 maktx LIKE makt-maktx, "Material Description-- jp check
 etens LIKE ekes-etens, "Sequence Number
 meins LIKE ekpo-meins, "Unit of measure
 lifnr LIKE ekko-lifnr, "Vendor number
 charg LIKE eket-charg, " Batch number Added by PD 08/08/03
 vbeln LIKE ekes-vbeln,
 vbelp LIKE ekes-vbelp,
 END OF lt_temp_eket,
 l_menge LIKE ekes-menge.
LOOP AT t_eket.
 LOOP AT t_ekes WHERE ebeln = t_eket-ebeln
 AND ebelp = t_eket-ebelp.
Added by PD 08/08/03
 MOVE t_eket-charg TO lt_temp_eket-charg.
addition ends
 MOVE t_eket-ebeln TO lt_temp_eket-ebeln.
 MOVE t_eket-ebelp TO lt_temp_eket-ebelp.
 MOVE t_eket-meins TO lt_temp_eket-meins.
 CLEAR l_menge.
 l_menge = t_ekes-menge - t_ekes-dabmg.
 IF l_menge LE 0.
 CONTINUE.
 ELSE.
 MOVE l_menge TO lt_temp_eket-menge.
 ENDIF.
 MOVE t_ekes-eindt TO lt_temp_eket-eindt.
 MOVE t_ekes-etens TO lt_temp_eket-etens.
 MOVE t_eket-lifnr TO lt_temp_eket-lifnr.
 MOVE t_eket-maktx TO lt_temp_eket-maktx.
 MOVE t_eket-matnr TO lt_temp_eket-matnr.
 MOVE t_ekes-vbeln TO lt_temp_eket-vbeln.
 MOVE t_ekes-vbelp TO lt_temp_eket-vbelp.
 APPEND lt_temp_eket.
 CLEAR lt_temp_eket.
 CLEAR t_ekes.
 ENDLOOP.
 IF sy-subrc NE 0.
Added by PD 08/08/03
 MOVE t_eket-charg TO lt_temp_eket-charg.
addition ends
 MOVE t_eket-ebeln

Dear
Problem No 1 : we are working in a process industries with three plants each of them have three order type. we have define MRP group in "OPPR" then assign each MRP group to Orde types in "OPPE". Now the problem is whn i convert plan order in process order for any material systme automaticaly pick the order type PIi01.
Answer :
1.Please check the OPPR -Plant and MRP group -Select Order Type Button -Check what Order Type you have assinged here ( PI01( May be the default Process Order Type )
2.If you are maintaing MRP group ( 0001 or 0002) , did you asisng the same in MRP1 view ?? because
3.Did you maintain the similar Order type in OPKP -Define Production Scheduling Profile ? -This has highest priority .
4.Did you maintain correct order type in OPJH-Maintain Order Type ??
Refer the expert comments on the same issue : Strategy group to define production order type
Problem No 2: 2nd Problem is system system is not creating plan order for prrevios dates. say i enter PIR for month of november from first november to 30th november and run MRP on 29th the sytem create plan order on 30th of november with exception message 30.
Answer : You can plan the order in back dated , if you maitain Satrt date in the Past optiuon in OPU3/OPU5-Define Scheduling parameters .Goto OPU3 -Select the Order Type -Double click -Maintain 90-60 days in the Start Date in the past in Scheduling Control and Details scheduling tab .
Hope it helps
regards
JH

Goods Issue based on Goods receipt.

Hello,
Can any body suggest query on "Goods Issue based on Goods receipt."
Scenario :
Suppose P.O has been created @10/- for 100 Quantity . GR has done for 100/-in Month of June, now another P.O has created @12/- for 100 Quantity in Month of July and GR done for the same , I want to Isuue Goods in Month of july and expect system should take price of @10/- for first 100 Quantity and @12/- for the rest quantity.
Could you advise.?
Thanks & Regards
Sudhansu

Hi,
For FIFO Configuration,
1. Ensure FIFO is active tcode OMWE
2. FIFO maintained at company code or plant level T code: MRLH
3. Movement type settings for FIFO T code OMW4
4. Preparation of FIFO in MMR T code: MRF4
5. Run the FIFO valuation T code MRF1

Goods receipt and post goods issue are not updated back from EWM to ECC

Hi Experts,
Would anybody able to tell me the setting to be modified / defined to backward flow of information from EWM to ERP i.e. the goods receipt, goods issue are not being updated back in ECC once the goods receipt and post goods issue are posted in EWM?
It would be great help if i get the response as early as possible.
Chakrapani Das

Hi Chakrapani,
You might want to try checking the customization on the SCM part following this path:
SPRO - Extended Warehouse Management - Interfaces - ERP Integration - General Settings
Pay special attention on the Check of ERP-EWM Configuration transaction.
After you have checked these you should probably check the outbound queue monitor (tx SMQ1) from EWM to ERP. You can use the SMQ1 - Outbound queue and SMQ2 - Inbound Queue both in ERP and SCM to check the communication betweene these two systems.
Also you may want to checkt the SLG1 - Analyse application Log in SCM in order to see if any internal bugs exist.
All the best,
Claudiu Maxim

Goods issue date and goods receipt date

Hi Guys,
i was asked to display STO list.They asked me add goods issue date and goods Report date in the o/p columns.So any body can tell me what are the fields for goods issue and goods Receipt date's.?can u guys tell me the Tr code for these fields .?
Thanks,
Gopi.

Hi there,
I already solve it by myself.
Actually is i call the initialization twice:
Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInventoryGenEntry)
Thats what make this problem happened.
Sorry.
Best Regards,
danny

Goods receipt Quanity and Goods Issue Quantity tables

Hi experts,
Can u plz let me know in which tables we can find the Goods receipt Quanity and Goods Issue Quantity
if not how to get the values of these, neccessary for open PO report
Thanks in advance.

Hello,
You can get the GR/ GI quantity for a PO from EKBE table.
GR
EKBE-EBELN = EKPO-EBELN
EKBE-EBELP = EKPO-EBELP
EKBE-VGABE = '1'
EKBE-BEWTP = 'E'
GI
EKBE-EBELN = EKPO-EBELN
EKBE-EBELP = EKPO-EBELP
EKBE-VGABE = '6'
EKBE-BEWTP = 'U'
The qty are present in EkBE-MENGE
BR,
Suhas
Edited by: Suhas Saha on Jan 29, 2009 4:52 PM

MIGO - Split Valuation in Goods Receipt accoding to Goods Issue

Dear All,
I am working in SAP 4.7 Implementation Project.
I got one Requirement from MM Consultants.It is quite Puzzling me.But it is Very Urgent.
Here I am Giving the Steps.
1. In MB1C (Movement type (501)) Transaction i will upload the Stock
2. In MMBE i am Checking the Stock.
In our case we are using two Valuation Type i) Loan Stock(LN) ii) Paid Stock(PD).
3.Create Purchase Order (ME21N).
4.In MIGO Transaction we are Issuing the Goods.We set Loan Stock as First Priority i.e During the
goods Issue the System Automatically take the Stock from Loan Stock.If the Available Loan
Stock is Lesser than the Stock quoted in PO it will take the Stock from Paid Stock.After Goods Issue
in MIGO Goods Receipt is not Showing the Stock Picked from Loan Stock and Paid Stock.In goods
Receipt it just Shows all the Stock Picked up from Loan.
Our Requirement is Goods Receipt(GR) should show the same line items as stock splitted in Goods Issue(GI).
It is Very Urgent.Please Help me to Solve This Problem.
Regards,
Ashok.

Dear Jeyakanthan,
Thanks for answering.
Valuation class material is maintained.
Is there a special posting code for batch split valuation potings? (like gbb/bsx/prd ?).
I assume not, but if you have a solution direction, please let me know.
best regards,
klundert.

MIGO - Split Valuation in Goods Receipt According to Goods Issue

Dear All,
I am working in SAP 4.7 Implementation Project.
I got one Requirement from MM Consultants.It is quite Puzzling me.But it is Very Urgent.
Here I am Giving the Steps.
1. In MB1C (Movement type (501)) Transaction i will upload the Stock
2. In MMBE i am Checking the Stock.
In our case we are using two Valuation Type i) Loan Stock(LN) ii) Paid Stock(PD).
3.Create Purchase Order (ME21N).
4.In MIGO Transaction we are Issuing the Goods.We set Loan Stock as First Priority i.e During the
goods Issue the System Automatically take the Stock from Loan Stock.If the Available Loan
Stock is Lesser than the Stock quoted in PO it will take the Stock from Paid Stock.After Goods Issue
in MIGO Goods Receipt is not Showing the Stock Picked from Loan Stock and Paid Stock.In goods
Receipt it just Shows all the Stock Picked up from Loan.
Our Requirement is Goods Receipt(GR) should show the same line items as stock splitted in Goods Issue(GI).
It is Very Urgent.Please Help me to Solve This Problem.
Regards,
Ashok.

Hi,
It should be effectively done through raising of Credit / Debit note system only.
Eventhough, it is configured through scales, it causes problems.
Regards,
VB

Factory Output Account for Goods Receipt on Finished Goods Inventory

Hello Experts,
Factory Output Account for Goods Receipt on Finished Goods Inventory:
Could someone suggest if anyone has ever been able to separate the variances that normally post to a factory output account into one separate G/L account. My experience has always been that good receipts to finished goods inventory and the corresponding variances have always posted to the same factory output account. My client wants to separate this posting into two separate accounts. Any assistance will be highly appreciated.

Hi,
You can use separate G/L account for Factory Output Account for Goods Receipt on Finished Goods Inventory and Variances.
goto OBYC T.code do the following settings.
GBB-->AUA-assign gl account
PRD-->PRD-assign gl account.
one question from my side.
If you are using same account for both entries, where do you assing GL accounts in OBYC?
Thanks,
Rau

Print a label for Goods receipt of materials from vendor

Hi,
I need to print several labels and I don't know how to do!!
First I would like to print a label automatically when I save the good receipt with the MIGO
Somebody could tell witch outypes I must to use in NACE, and what is the customising I need to do?
Thanks a lot
Kari

hi
goto OMCF here u have to configure ur lables and then place that in material master
http://help.sap.com/saphelp_46c/helpdata/en/48/6dec6eb435d1118b3f0060b03ca329/frameset.htm
regards
kunal

Print Prog-Auto Print Barcode Label for Goods Receipt(MIGO) using Smartform

Hi Guru's
I have created a smartform that prints barcodes on a label.
My tests print successfully to the Printronix thermal label printer.
Is there perhaps a SAP Standard print program that i can use in my output type that will call my smartform upon goods receipt(MIGO)?
please bear in mind that i am looking for a print program that calls a SMARTFORM. not a sapscript.
/SMB40/M07DR does not exist on my system. and I am going to use output type WEE1 - for LABEL Printing
Awaiting your feedback.
Thanks in advance geniuses!

Good luck dude,
In that same program I noticed We01 that will print a smartform GR. I think if you use form entry_we01 in your output control you should do well.

Good DVD Labeling Tips

I am in need of good software to create DVD labels, particularily DVD Case Inserts. I love using Photoshop but haven't been able to find any templates. What do people use to design great DVD Case Inserts? Is there a label brand/template that works with Photoshop? Thanks in advance.
Craig

Yes it does. It seems that once we get it printing it works fine. Getting it there sometimes is a headache. I complained a lot to Epson, they have been very good, sent them to the service guy he fixed them, had another problem and they are replacing the printer. I complained to the list here and some of the readers did the math and said hey, you just printed 1000 dvds on 2 60 dollar printers, it really isn't that bad even if you do have to replace them.
Is there a difference in the hardware on the r340?

Goods Receipt Label

Hi,
I am using the following for printing the label.
I am using output type wee1
Program SAPM07DR
FORM routine ENTRY_ETIE
Form RM07ETIKETT
I am generating the output using MBO2.
The output is being generated but i am not getting the print out.
Please give me feedback.

Hi,
I have never dealt with label printing and in an urgent issue I have to visit client to do config for label form output determination at MIGO. Can you please let me know where its config is done. Is it same NACE and WE01 etc with smartform name and program name. If yes then what program name is taken from the list. if you reply bit early it will be appreciated.
REQUIREMENT is - smartform for label is ready by some third party and I have to attach that for MIGO and LT06 Transfer Order printing? How can I do and what do I need to do for that. If you have any idea for TO label attachment also pls suggest.
Thanks and Kind regards
Message was edited by: Anurag Varshney

Printing Goods Receipt labels from a PO after the inspection is done

Hi Guys,
Just wondering if you can help me...
I am having problems to print to 2 differents printer a WEE1 output type labels from MB90, like::
-If is ACCEPTED, it will print to PRINTER A;
-IF is REJECTED, it will print to PRINTER B.
What is the best way to do it?
Thanks heaps.

Hi
you can use user exit QSS10001 Possibility of calling a different print report.
You can hardcode output device & call SAPLPDE printer as per UD
Regards
Sujit

2nd "goods slip" label in goods reciept

Similar Messages

Maybe you are looking for