Vendor Batch Tracking

Dear Sir
For Getting Vendor Batch Tracking
We are have adopted a Process in our company as below.
1) @ Inward entry (105 nmovement ) an internal Batch will be created.
2) @Quality clearance(qa32) the item is being moved to unrestricted stock by selecting the option "New material", and by giving the same material code & entering new manual batch(Vendor batch) we are moving it into the stock .
So internal batch will be a parent batch in our premises for tracking the Vendor batch.
But the problem we are facing in this procedure is
the vendor batches we are getting is 15 to 18 characters but internal or external batch number is only of 10 characters.
Does the poblem will be solved with document batch adoption.
So kindly please suggest a new procedure or any adoptabl;e condition to overcome my problem.
Regards
Chaitanya

Hi,
You should use Vendor Batch field (MCHA-LICHA) under Trading Data Info in Basic data1 of Batch Master record in order to store Vendor Batch tracking. This field has 15 length character. So if you need to have more character you should go for text field only.
Regards,
Girang

Similar Messages

Vendor Material No. and Vendor Batch field in MIGO for GR against Order

HI,
I received a very specific requirment for one of our client: Client need the field Vendor Material No. and Vendor Batch in the detail data --> material and batch tab in MIGO transcation for A01 (Goods receipt ) against R08 (Order), this is for good receipt against Process Order, Here though the vendor does not come in picture , these field are required. These field are appearing in GR(A01 against Purchase order(R01)
Regards
Rahul

Hi,
First of all, why do you want Vendor Batch no & material no while doing receipt against process order. You can enter the same while doing a GR against Purchase order & same can be tracked using some reports.
As you said, since you are doing a receipt against the Process order, vendor doesn't come in picture. Hence the vendor batch no: or vendor material no: wont be populated as per Std.SAP. You can check for some enhancements/BAdi's in MIGO transaction to populate the same.
Thanks & Regards,

Inspection type 01 - inspection lot creation based on vendor batch number

Hi Guys,
this topic has been discussed several times here, but I was not able to find a suitable answer for my question.
I am facing the folowing requirement:
I have activated inspection type 01 for a raw material.
I am receiving a firs goods receipt from vendor A with vendor batch number 0001.
The system creates its own goods receipt batch number 0546 based on internal numbering.
A new inspection lot is created.
I am posting a second goods receipt from vendor a with vendor batch 0001.
The system creates a new batch number 0547 based on internal numbering.
A new inspection lot is created.
I do not want to get the second inspection lot, because I received vendor batch 0001 before and I am assuming it has been inspected or is in inspection.
Option 1: Post the second goods receipt against the first internal batch number created.
I am aware of this need at the moment, but a user is not always checking if there is an internal batch with the same vendor received before.
Can I customize the system to create inspection lots based on the fact that the vendor batch number was received before?
Or do I have to use an exit and some ABAP code to get the wanted result?
Thanks for your advice in advance.

You need to use one of the enhancements that Do-Wook has suggested. There is no standard SAP way to suppress the inspection based on the vendor batch number.
With the first enhancement you use the system to check for a previously received vendor batch and if one is found, then that batch number is proposed and not the next one from the numbering series. In this case, the lot isn't created than due to the inspection lot control of the inspection type.
With the second enhancement you check the vendor batch number and if it's been received you suppress the inspection lot creation and the stock goes right to unrestricted.
You'll probably need to do one or the other. Myself, I prefer the first enhancement.
Craig

Vendor batch and batch field on the inbound delivery

hi GUrus,
i have looked through most of the threads where the topic of vendor batch and batch on the inbound delviery has comeup. I'm specifically looking at a scneario where i would want to pass the on the batch number provided by the vendor on the IDOC to batch field on the inbound delivery. The reason for this is , i can look at the batch field in the confirmations tab of the PO, in the purchase order histroy tab of the PO, and also MMBE tcode. the material is also batch managed turned on in hte material master. But the issue is that even though i put the batch provided by vendor in the CHARG field on the ASN IDOC, it is still getting populated in the vendor batch field in the inbound delivery.
any ideas?
Thanks
Ravi

Hi,
Refer the note: 833668 - Creating batches in the inbound delivery using IDOC which explains the system design.
Regards,
AKPT

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

While creating PO using BAPI_PO_CREATE1 vendor batch number is not comming.

Hi Friends,
I am using BAPI "    'BAPI_PO_CREATE1' to create PO in my report.
The PO's are getting created but i the vendor batch number is not found in the PO.
Where as i am passing the vendor batch number.
         bapimepoitem-vendrbatch = '2'.
          bapimepoitemx-vendrbatch = 'X'.
CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      poheader          = bapimepoheader
      poheaderx         = bapimepoheaderx
      memory_uncomplete = 'X'
    IMPORTING
      exppurchaseorder = v_po_number
    TABLES
      return            = bapiret2
      poitem            = bapimepoitem
      poitemx           = bapimepoitemx
      poschedule        = bapimeposchedule
      poschedulex       = bapimeposchedulx.
    Commit the transaction
IF v_po_number NE space.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait   = 'X'
      IMPORTING
        return = bapiret2_c.
ENDIF.
Please reply urgently.
Thanks Regards,
Sandipan Jena

Hi
My answer is pure assumption.
Please check the following OSS notes
Note 758810 - BAPI_PO_CHANGE vendor batch and batch not visible
Note 1230268 - Field Vendor Batch never filled for PO BAPIs
Please take help from BASIS and SAP, before implementing the OSS note
Regards
Madhan D

Vendor changes tracking, Payment term filtering, Vendor listing

Hi All,
Need somebody help on the following points,
1- While changing the vendor via "process vendor and Bidder" (Business partner maintenance) transaction in EBP, the selection of payment term is restricted. That is in SPRO I can see lot of payment terms, but while changing the vendor some few payment terms are coming. Where is the filter? Can anybody guide me.
2- Vendor changes Tracking. In our project somebody has changed frequently the vendor indicators and details in EBP via process Vendor and Bidder(BP maintenance) transaction. But I couldnt able to track which fields are changed and by whom like in R/3. I tried in BP also, but only the address changed details are coming there. Can anybody guide me how to track the changes, if somebody changed somefield in EBP directly?
3- Vendor list - I want list ERS activated vendor in EBP. How to get the list of vendor for which ERS indicator is active? Please guide me.
Many thanks in Advance.
Regards
Shunmugaraj. T

Hi
Please refer to standard transaction - BBP_PD.. give any Shopping cart number, which is approved by a list of buyers, managers, etc..
Incase the changes are made, it will display all the details related to them in that case.
Understand its logic by putting break-point inside.
Incase you are using SRM 5.5 version, there is a report, which displays the changes made to the Purchase orders with old and new values.
Report name -> TERM_DISPLAY_CHANGE_HISTORY
Also please refer this as well.
Say you use this Function module for the change object - BUPA_BBP0060
This sample code will all the changes, if any, made to the object, with the old value and new values.
Here is the sample code for the FM ->
CHANGEDOCUMENTS_TO_OBJECT 
data: listtitle(80) type c.
data: objectclass like cdhdr-objectclas.
data: objecttitle(20) type c.
data: con_keylength(2) type n value 10.
data: cursor_field(20) type c.
listtitle = 'Changes made'.
listtitle+22 = vibebe-sberi.
listtitle+34 = vibebe-xberibz.
condense listtitle.
objectclass = 'BUPA_BBP0060'.
call function 'CHANGEDOCUMENTS_TO_OBJECT'
 exporting
 callmodus = callmodus
 cursor_field = cursor_field
 keylength = con_keylength
 listtitle = listtitle
 objectclass = objectclass
 objectid = objectid
 objecttitle = objecttitle
 exceptions
 error_in_function = 01
 invalid_field = 02
 others = 03.
if sy-subrc <> 0.
 message id sy-msgid type 'S' number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
Hope this will help.
Please reward suitable points.
Regards
- Atul

Exit to populate Vendor Batch field in Material tab while creating PO.

Hi Experts,
I need an exit to populate Vendor Batch field in Material tab while creating Purchase Order.
Regards,
Jayapal.
Message was edited by:
        Jayapal

HI ,
Folllowing r the exits for po .
Enhancement/ Business Add-in            Description
Enhancement
MEVME001                                WE default quantity calc. and over/ underdelivery tolerance
MM06E001                                User exits for EDI inbound and outbound purchasing documents
MM06E003                                Number range and document number
MM06E004                                Control import data screens in purchase order
MM06E005                                Customer fields in purchasing document
MM06E007                                Change document for requisitions upon conversion into PO
MM06E008                                Monitoring of contr. target value in case of release orders
MM06E009                                Relevant texts for "Texts exist" indicator
MM06E010                                Field selection for vendor address
MMAL0001                                ALE source list distribution: Outbound processing
MMAL0002                                ALE source list distribution: Inbound processing
MMAL0003                                ALE purcasing info record distribution: Outbound processing
MMAL0004                                ALE purchasing info record distribution: Inbound processing
MMDA0001                                Default delivery addresses
MMFAB001                                User exit for generation of release order
MRFLB001                                Control Items for Contract Release Order
AMPL0001                                User subscreen for additional data on AMPL
MEQUERY1                                Enhancement to Document Overview ME21N/ME51N
LMEDR001                                Enhancements to print program
LMELA002                                Adopt batch no. from shipping notification when posting a GR
LMELA010                                Inbound shipping notification: Transfer item data from IDOC
LMEQR001                                User exit for source determination
LMEXF001                                Conditions in Purchasing Documents Without Invoice Receipt
LWSUS001                                Customer-Specific Source Determination in Retail
M06B0001                                Role determination for purchase requisition release
M06B0002                                Changes to comm. structure for purchase requisition release
M06B0003                                Number range and document number
MELAB001                                Gen. forecast delivery schedules: Transfer schedule implem.
MEFLD004                                Determine earliest delivery date f. check w. GR (only PO)
MEETA001                                Define schedule line type (backlog, immed. req., preview)
ME590001                                Grouping of requsitions for PO split in ME59
M06E0005                                Role determination for release of purchasing documents
M06E0004                                Changes to communication structure for release purch. doc.
M06B0005                                Changes to comm. structure for overall release of requisn.
M06B0004                                Number range and document number
Regards

GR inspection based on vendor batch

Hi Guys,
I have a test that must be done for each
vendor batch(Not for every GR). Vendor may send materials from same
batch in two or more deliveries let say in a month. I
was thinking of using DMR but I couldn't find a way to
relate it to vendor batch(It's based on quality level and number of inspection lots). When we do MIGO for an
inward delivery we use vendor batch (we dont create
our own batch number)
Please share your thoughts in this matter.
Thanks in advance ,
Shahin

Hello Shahin,
if I understand your question correctly, I think that you should take a closer look at the settings in the material master for QM. If you enter the inspection setup you can set the Control of inspection lots with the following values:
' ' An inspection lot for each material document item (No lot summary)
'X' An inspection lot for each purchase order item/order item
'1' An inspection lot for each material document and material
'2' An inspection lot for each material and batch
The setting 2 could be used for example.
Another thinkable solution is that you use the exit QAAT0001 where you can set your own criteria concerning the inspection lot creation.
I hope that this information proves usefull in your case.
Regards
Isabelle

Vendor Batch number in MIGO

Hi All
The Vendor Batch ( MCHA-LICHA) Number field is of 15 characters in MIGO transaction, where as we receive many material with batch numbers more than 15 characters.
What is the possibility of extending the length of this field.
Kind Regards
Samson

Dear Gabriel,
Can you brief how did you resolve your issue, I am facing the same issue with my client.
Regards
Vivek Kumar

Vendor batch number in stock transfer

Hi,
Batch management at plant level.
When we transfer the stock from one plant to another plant, the vendor batch number is not getting updated in the receiving batch master record.
In 303,we will send it from one plant to another plant (Stock in transit).
In 305,we will receive it to another plant with different batch number.
How do we know this 305 has been done for 303?
Eg:
303
Material : A
Plant:Phar1
Batch 100
305
Material: A
Plant:Phar2
Batch :200
How do we trace the stock in case we need to resend back to the supplier?
Thanks
Srini

You are facing a classic problem. Given Batch number is unique at Plant level, to maintain the continuity, you should have the same batch number between the two plants. Any specific reason why you don't have it.
Then if there is valid case not to have the same batch number in this scenario, then you should look at making the batch number generation external so that you can prefix/suffix or come up with a way to get the original batch number from the sending plant in the receiving plant batch number.
Recently we had a similar requirement, so we activated batch classifiction and put the orignial batch number as one of the characterisitcs in the batch class. You can also think enabling such functionality..

Vendor batch is retrieved from LIPS-LICHN only if LIPS-LICHN is not blank,

(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)
REQUIREMENT:
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)
t-lips is the internal 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.
Following is the piece of code:
*& Form f_collect_final
 Routine to collect all the display data into the final internal
 table t_display.
FORM f_collect_final.
DATA: l_std_pac_no LIKE eket-menge,
 l_std_pac_no_out(13) TYPE p,
 l_tot_std_pt(13) TYPE c,
 l_rmdr(13) TYPE n,
 l_qtnt(13) TYPE n,
 l_tabix TYPE i.
LOOP AT t_eket.
 t_display-ebeln = t_eket-ebeln.
 t_display-ebelp = t_eket-ebelp.
 t_display-etens = t_eket-etens.
 t_display-eindt = t_eket-eindt.
 t_display-menge = t_eket-menge.
 t_display-meins = t_eket-meins.
 t_display-matnr = t_eket-matnr.
mod begin CR1591
 t_display-maktx = t_eket-maktx.
 READ TABLE t_makt WITH KEY matnr = t_eket-matnr
 BINARY SEARCH.
 IF sy-subrc = 0.
 t_display-maktx = t_makt-maktx.
 ENDIF.
mod end CR1591
 t_display-vpnam = t_eket-vpnam.
 t_display-lifnr = t_eket-lifnr.
 t_display-charg = t_eket-charg.
 READ TABLE t_mlgn WITH KEY matnr = t_eket-matnr
 BINARY SEARCH.
 IF sy-subrc = 0.
 t_display-lhmg1 = t_mlgn-lhmg1.
 t_display-lhme1 = t_mlgn-lhme1.
 t_display-lety1 = t_mlgn-lety1.
 t_display-ltkze = t_mlgn-ltkze.
 ENDIF.
 READ TABLE t_marm WITH KEY matnr = t_eket-matnr
 BINARY SEARCH.
 IF sy-subrc = 0.
 t_display-umrez = t_marm-umrez.
 t_display-meinh = t_eket-meins.
 ENDIF.
 READ TABLE t_marc WITH KEY matnr = t_eket-matnr
 BINARY SEARCH.
 IF sy-subrc = 0.
 t_display-zzjp_nyu_sop = t_marc-zzjp_nyu_sop.
 t_display-zzjp_dos_frm = t_marc-zzjp_dos_frm.
 t_display-zzjp_aprn = t_marc-zzjp_aprn.
 t_display-zzjp_re1 = t_marc-zzjp_re1.
 ENDIF.
 READ TABLE t_lfa1 WITH KEY lifnr = t_eket-lifnr
 BINARY SEARCH.
 IF sy-subrc = 0.
 t_display-name1 = t_lfa1-name1.
 ENDIF.
 READ TABLE t_lips WITH KEY vbeln = t_eket-vbeln
 posnr = t_eket-vbelp
 BINARY SEARCH.
 l_tabix = sy-tabix.
 IF sy-subrc = 0.
 t_display-charg = t_lips-charg.(I think this is the place to change).
 t_display-lichn = t_lips-charg.
 ENDIF.
I have tried with the following code, but it is not working.
IF sy-subrc = 0.
 t_display-charg = t_lips-charg.
IF not t_lips-lichn is initial.
 t_display-lichn = t_lips-lichn.
 ELSE.
 t_display-lichn = t_lips-charg.
 ENDIF.
ENDIF.

Hi,
Find the modification below, consider the bold text and remove the old one:
READ TABLE t_lips WITH KEY vbeln = t_eket-vbeln
posnr = t_eket-vbelp
BINARY SEARCH.
l_tabix = sy-tabix.
IF sy-subrc = 0.
if t_lips-lichn EQ space AND
t_lips-charg NE space.
t_display-charg = t_lips-charg.
t_display-lichn = t_lips-charg.
endif.
t_display-charg = t_lips-charg.(I think this is the place to change).
t_display-lichn = t_lips-charg.ENDIF.

Vendor Batch Creation

Hi Friends,
I need to some Physical Inventory with Vendor. for this I need to create some new Batches with Vendor.
I have tried in MSC1N and had entered vendor and vendor Batch, but while using this in MI01, system is not picking up this batch and prompting an error as follow
Special stock O 9BEL001-1 9BEL001 6505010003001A of this material does not exist
Message no. M7076
Diagnosis
No special stock O of the material (batch 9BEL001-1) exists in storage location for 9BEL001 6505010003001A.
Procedure
Make sure your entries are correct.
Do you want to display the stock overview?
Please suggest what can I do here.
Rgds, Krishan Raheja.

Hi,
You have created a batch for the special stock in a perticular storage location .coorect.But for doing the physical inventory it should have sme stock correct?Please check at MMBE for this special stock of that material.Please find thee batch where the stocks exixts and do the physical inventort for that batch.
Regards,

Vendor batch number in po

how can i update vendor batch number for an existinf PO as bapi_po_chanegs is not working for this requiremtn.

If you have less number of records then you can use BDC.

Vendor batch in MIGO

Hi There,
Please guide me how can I control the Vendor Batch used in MIGO
transaction.
Requirement is that when we do MIGO ,there are two batch entry fields one
is Batch and another Vendor Batch. Now the field Batch is used as an
internal generated batch and the filed Vendor Batch is the input filed
of actual vendor batch.
Now the problem is that I want to have a control over this vendor batch,
i.e. If once one vendor batch number is rejected then next time MIGO with
the same batch number should not be allowed by the system.
Can we have some kind of control in this in std SAP or do we have to use some exits......
Thanks & Regards
Kaushik

Hi Kaushik,
One way of solving this can be by activating the below user exit
Enhancement - MBCF0002
Function Module - EXIT_SAPMM07M_001
This will get triggered before the save.
So you can try with this exit.
Cheers
Alfred

Vendor Batch Tracking

Similar Messages

Maybe you are looking for