Return deliver for subcontracting materail in QA11/QA12

Hi,
After GR for subcontracting materail we doing result recording.Materails which will not meet quality parametrs are rejexted by Quality dept in QA11/QA12.Batch management ia activeted for all material in plants.
While doing Return delivery tio Vendor in QA11/12, getting error message (M7 389)
Pl. suggest.
Rgd,
Ganesh

Hi,
Please refer sapnote_0000645119 :Problems with subcontracting using delivery
Some of imprt points of note :
The only alternative is to recreate the component batches during
the goods receipt in the background of the return delivery. To do
this, you must make the following settings:
- As described in Note 566147, message M7 389 must only be set as
a warning message (transaction: OMCQ).
- For the movement type 544, automatic batch creation must be
allowed in transaction OMJJ (field: V_156_VC-CHNEU).
- For movement type 544 O, you must not define a search scheme
for the batch determination (transaction: OMCG).
- Internal batch number assignment must always be activated
(transaction: OMCZ).
Regards,
Sanjay

Similar Messages

Create PO return for subcontracting item

Dear Expert,
I want to create PO Return for subcontracting item category.But when I tried to create it,the system prompted an error message:"Returns not possible for subcontracting items Message no. ME 548". Then I used SPRO to check the system message and there is no such a message in the system.Also I added this message into my system and set the catetory to "W". But when I create the PO Return,the same error occured.
What should I do then?
Any advice?
Best Regard,
Pauline

Thanks for the reply.
I have done one testing for PO return subcon item. I create the Normal PO return, and I create return delivery (mvt type 122) with reference to original material document.
But when i checked in the subcon report ( ME2O/ MBLB/ MMBE) the subcon material dont have any effect when I create the return delivery. the subcon material should be increase as we return back the item to the vendor.
Example here: we return back the boxes to the vendor, means the papers the we provided for them to produce the boxes should be increase ( means that they haven't done anything with the papers so the papers stock should increase)
In the reports ( ME2O, MBLB, MMBE) they not show the changes in stock level of papers when there is return delivery transaction. I'm not sure whether I miss out something in the report ? or maybe there are other reports to show the subcon stock level.
Pauline

Movemen tye for stock against SO (Unrestricted) during Sales return deliver

Hi,
I wanted to trasfer stock against sales order (unrestricted) during PGI of Sales return deliver.
Currently we are using Movement type-653 but it transfer stock to unrestricted location which we want to take against sales order-unrestricted.
Please suggest movement type for same or do we need to create new movement type for same.?
BR,
Ajit raut

As per my opinion , it is not possible.First you have to put the Stock in Unrestricted use then you can assign it to any Sales Order.
It can come in Sales order - Unrestricted Only when in Your Sales Cycle - Returns , you create a Returns Order wrt any Sales Order which is not Possible.
So better to do the PGR and then assign the stock with a new Sales Order.
Best Regards,
Ankur

Return ROH component for Subcontracting

Hi All,
Can anyone please guide me for the process of return Raw Material Components for Subcontracting, after the Goods Receipt of Finished Goods using MIGO.
I have searched other threads which are using transactions J1IF01, J1IFQ and J1IF13. Does anybody knows what the use for these transactions.
Below is the current flow which I am using
Create Subcontract Purchase Requisition - ME51N (item Category L)
Create Subcontract Purchase Order - ME21N (Item Category L)
Create Transfer Posting - ME2O
Create Goods Receipt Document - MIGO
Create Logistic Invoice Verification - MIRO.
Thanks.

Hi
Actually use for subcontract adjustment we have to use t-Code MB04 enter the Delivery note number and PO number through which PO you are going to issue or receiving. Then select the component which component you are going to issue or receive .
If you are going to receive the material from vendor means just enter the quantity for example 10 then post it it will reduce the stock of subcontractor
If you are going to Issue the material to vendor means just enter the quantity for example -10 with negative then post it it will increase the stock of subcontractor .
Hope it will help you
Regards
Murugan

Return delivery in subcontracting

Dear all,
I have created a subcontracting PO. Migo is done and the finished assembly material is subject to quality management. When I am posting a return delivery of the finihed product in QA11 or QA32 , system gives the error message no LB 031
" Of the required qty of materials quantity will remain open"
Regards.
Milind

Hi
Please check the settings for Subcontract order with respect to delivery type. This is the place where we assign the Plant to Delivery type. Please let me know if you are still having problems.
Deepak

REPORT FOR SUBCONTRACTING

DEAR FRIENDS,
I am making a program for tracking the materials given (mb1b 541 movt.) for subcontracting and taken by me (101 for actual good receipt, 543 for the given material- stock type inward, 545 for the scrap returns). but while i made the program i am unable to pick up the materials BOM from the PO which is essential to take the difference between these and the supplied quantities taken-in by GR.
following is the program.
Please suggest the changes.   Thanks,
Deepak
*& Report ZMM_SUBCONTRACTING_PO_REPORT
*& Author:
*& Date :
*& Reason: Sub Contracting PO Report.
*&         Find Discreprancy in PO and BOM. according to 543 and 545
REPORT ZMM_SUBCONTRACTING_PO_REPORT NO STANDARD PAGE HEADING
                                     LINE-SIZE 157.
*& TABLES DECLARATION
TABLES: EKKO,
        EKPO,
        EKBE,
        ENT5303.
*& SELECTION-SCREEN.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_MATNR FOR EKPO-MATNR,
                S_WERKS FOR EKBE-WERKS OBLIGATORY.
PARAMETERS:     P_BUKRS LIKE EKKO-BUKRS OBLIGATORY.
SELECT-OPTIONS: S_BUDAT FOR EKBE-BUDAT OBLIGATORY,
                S_EBELN FOR EKKO-EBELN,
                S_BELNR FOR EKBE-BELNR,
                S_GJAHR FOR EKBE-GJAHR.
SELECTION-SCREEN: END OF BLOCK B1.
*& INTERNAL TABLES DECLARATION.
DATA: BEGIN OF IT_EKKO OCCURS 0,
      EBELN LIKE EKKO-EBELN,
      END OF IT_EKKO.
DATA: BEGIN OF IT_EKBE OCCURS 0,
      EBELN LIKE EKBE-EBELN,
      EBELP LIKE EKBE-EBELP,
      GJAHR LIKE EKBE-GJAHR,
      BELNR LIKE EKBE-BELNR,
      BUZEI LIKE EKBE-BUZEI,
      BEWTP LIKE EKBE-BEWTP,
      BWART LIKE EKBE-BWART,
      BUDAT LIKE EKBE-BUDAT,
      MENGE LIKE EKBE-MENGE,
      DMBTR LIKE EKBE-DMBTR,
      LFBNR LIKE EKBE-LFBNR,
      MATNR LIKE EKBE-MATNR,
      WERKS LIKE EKBE-WERKS,
      BUKRS LIKE WB2_V_EKKO_EKPO2-BUKRS,
      MENGE_I LIKE WB2_V_EKKO_EKPO2-MENGE_I,
      LIFNR LIKE WB2_V_EKKO_EKPO2-LIFNR,
      COUNT TYPE P DECIMALS 4,
      BMENGE LIKE EKBE-MENGE,
      MENGE101 LIKE EKBE-MENGE,
      MENGE543 LIKE EKBE-MENGE,
      MENGE545 LIKE EKBE-MENGE,
      DIFFER   LIKE EKBE-MENGE,
      TMENGE   LIKE EKBE-MENGE,
      RATE     LIKE EKBE-DMBTR,
      NAME1 LIKE LFA1-NAME1,
      LINE_COLOR(4),
      END OF IT_EKBE.
DATA: WA LIKE IT_EKBE.
DATA: BEGIN OF IT_FINAL OCCURS 0.
      INCLUDE STRUCTURE IT_EKBE.
DATA: END OF IT_FINAL.
DATA: BEGIN OF IT_FINAL_TEMP OCCURS 0.
      INCLUDE STRUCTURE IT_EKBE.
DATA: END OF IT_FINAL_TEMP.
DATA: BEGIN OF IT_BOM OCCURS 0.
      INCLUDE STRUCTURE CAPP_ITM.
DATA: END OF IT_BOM.
DATA: BEGIN OF IT_BOM_HEAD OCCURS 0.
      INCLUDE STRUCTURE CAPP_BOM.
DATA: END OF IT_BOM_HEAD.
*& DATA DECLARATION.
DATA: COUNT TYPE P DECIMALS 4,
      V_CNT TYPE P DECIMALS 4 VALUE '0.0001' ,
      V_MENGE LIKE EKBE-MENGE,
      V_DELETE.
TYPE-POOLS: slis.
DATA: l_date(12) TYPE c,
       l_date1(12) TYPE c,
       l_time(10) TYPE c,
       l_list(60) TYPE c.
DATA: CATALOG TYPE SLIS_FIELDCAT_ALV, "FIELDCAT
       TCATALOG TYPE SLIS_T_FIELDCAT_ALV, "IT FIELDCAT
       EVENT TYPE SLIS_ALV_EVENT, "EVENT
       TEVENT TYPE SLIS_T_EVENT, "IT EVENT
       LAYOUT TYPE SLIS_LAYOUT_ALV, "LAYOUT
       PG_TOP TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
       PG_HEAD TYPE SLIS_T_LISTHEADER,
       EXIT1 TYPE SLIS_EXIT_BY_USER,
       VAR1 LIKE DISVARIANT,
       VAR2 LIKE DISVARIANT.
*& START-OF-SELECTION.
START-OF-SELECTION.
PERFORM PROCESS_SELECTION.
PERFORM DELETE_CANCELLED_DOCUMENTS.
PERFORM EXPLODE_BOM_FOR_101.
SORT IT_FINAL BY COUNT.
PERFORM DISPLAY_OUTPUT.
FREE IT_FINAL_TEMP.
*& ALV FORMATTING
*&                  ALV DISPLAY
PERFORM GENERATE_ALV_FIELDCAT.
PERFORM EVENTS USING TEVENT.
PERFORM TEXT USING PG_HEAD.
PERFORM ALV_SHOW.
*& FORM PROCESS_SELECTION.
FORM PROCESS_SELECTION.
SELECT
A~EBELN
A~EBELP
A~GJAHR
A~BELNR
A~BUZEI
A~BEWTP
A~BWART
A~BUDAT
A~MENGE
A~DMBTR
A~LFBNR
A~MATNR
A~WERKS
B~BUKRS
B~MENGE_I
B~LIFNR
FROM
EKBE AS A
JOIN
WB2_V_EKKO_EKPO2 AS B
ON
AEBELN = BEBELN AND
AEBELP = BEBELP_I
INTO
CORRESPONDING FIELDS OF TABLE IT_EKBE
WHERE
A~MATNR IN S_MATNR AND
A~WERKS IN S_WERKS AND
A~BUDAT IN S_BUDAT AND
A~EBELN IN S_EBELN AND
A~BELNR IN S_BELNR AND
A~GJAHR IN S_GJAHR AND
A~VGABE IN ('1', '7') AND
A~BEWTP IN ('E', 'O') AND
( A~BWART IN ('101', '545', '543') OR
( ABWART = '102' AND ABEWTP = 'E' ) ) AND
B~BUKRS = P_BUKRS AND
B~BSTYP = 'F' AND
B~BSART = 'SUBC'."AND
B~LOEKZ <> 'X'.
SORT IT_EKBE BY EBELN EBELP GJAHR BELNR BUZEI.
ENDFORM.
*& FORM DELETE_CANCELLED_DOCUMENTS.
FORM DELETE_CANCELLED_DOCUMENTS.
DELETE IT_EKBE WHERE BWART = '102' AND BEWTP <> 'E'.
LOOP AT IT_EKBE WHERE BWART = '102'.
READ TABLE IT_EKBE INTO WA WITH KEY BELNR = IT_EKBE-LFBNR.
IF SY-SUBRC = 0.
    DELETE IT_EKBE WHERE BELNR = WA-BELNR.
ENDIF.
ENDLOOP.
CLEAR WA.
DELETE IT_EKBE WHERE BWART = '102'.
ENDFORM.
*& FORM EXPLODE_BOM_FOR_101.
FORM EXPLODE_BOM_FOR_101.
CLEAR COUNT.
LOOP AT IT_EKBE WHERE BWART = '101' OR
                      BWART = '543'.
IF NOT IT_EKBE-MATNR IN S_MATNR.
V_DELETE = 'X'.
ELSE.
CLEAR V_DELETE.
ENDIF.
IF V_DELETE <> 'X'.
COUNT = COUNT + 1.
IT_EKBE-COUNT = COUNT.
V_MENGE = IT_EKBE-MENGE.
MODIFY IT_EKBE.
IT_FINAL = IT_EKBE.
APPEND IT_FINAL.
ENDIF.
call function 'CABM_READ_BOM'
    exporting
      I_MATNR               = IT_EKBE-MATNR
      I_WERKS               = IT_EKBE-WERKS
      I_STLAL               = '01'
      I_STLAN               = '3'
      I_DATUV               = IT_EKBE-BUDAT
    TABLES
      EXP_BOM_DATA          = IT_BOM_HEAD
      EXP_ITM_DATA          = IT_BOM
   EXCEPTIONS
     NO_RECORD_FOUND       = 1
     OTHERS                = 2
if SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
*START RK 18.06.2007
DELETE IT_BOM WHERE DATUV > IT_EKBE-BUDAT.
END : 18.06.2007
    IF V_DELETE = 'X'.
      LOOP AT IT_BOM.
        DELETE IT_EKBE WHERE MATNR = IT_BOM-IDNRK.
      ENDLOOP.
      REFRESH IT_BOM.
    ELSE.
      PERFORM CHECK_BOM_GR.
    ENDIF.
endif.
ENDLOOP.
FREE IT_EKBE.
ENDFORM.
*& FORM CHECK_BOM_GR.
FORM CHECK_BOM_GR.
DATA: WACNT TYPE P DECIMALS 4.
WACNT = COUNT.
LOOP AT IT_BOM.
READ TABLE IT_EKBE INTO WA WITH KEY EBELN = IT_EKBE-EBELN
                                      MATNR = IT_BOM-IDNRK.
IF SY-SUBRC = 0.
    WACNT = WACNT + V_CNT.
    WA-COUNT = WACNT.
    WA-BMENGE = IT_BOM-MENGE.
    WA-TMENGE = V_MENGE.
    APPEND WA TO IT_FINAL.
    DELETE IT_EKBE WHERE EBELN = WA-EBELN AND
                         EBELP = WA-EBELP AND
                         MATNR = WA-MATNR AND
                         BELNR = WA-BELNR AND
                         BUZEI = WA-BUZEI.
**START : ADDED BY .... KUMAR ON 14.06.2007
ELSE.
    WACNT = WACNT + V_CNT.
    WA-COUNT = WACNT.
    WA-BMENGE = IT_BOM-MENGE.
    WA-MATNR = IT_BOM-IDNRK.
    WA-TMENGE = V_MENGE.
    APPEND WA TO IT_FINAL.
**END ADDED BY .... KUMAR ON 14.06.2007
ENDIF.
CLEAR WA.
ENDLOOP.
REFRESH IT_BOM.
ENDFORM.
*& FORM DISPLAY_OUTPUT.
FORM DISPLAY_OUTPUT.
Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
          i.e. wa_ekko-line_color = 'C410'
IT_FINAL_TEMP[] = IT_FINAL[].
LOOP AT IT_FINAL.
CLEAR IT_FINAL-DMBTR.
********added by .... .... on 17.02.2007
   if it_final-bmenge < 0.
IT_FINAL-DIFFER = IT_FINAL-TMENGE * IT_FINAL-BMENGE * -1.
   else.
*********end by .... .... on 17.02.2007
IT_FINAL-DIFFER = IT_FINAL-TMENGE * IT_FINAL-BMENGE.
********added by .... .... on 17.02.2007
endif.
*********end by .... .... on 17.02.2007
IF IT_FINAL-BWART = '101'.
    IT_FINAL-LINE_COLOR = 'C210'.
    IT_FINAL-MENGE101 = IT_FINAL-MENGE.
    IT_FINAL-DIFFER = 0.
    LOOP AT IT_FINAL_TEMP WHERE BELNR = IT_FINAL-BELNR AND
                                EBELN = IT_FINAL-EBELN AND
                                EBELP = IT_FINAL-EBELP.
      IF IT_FINAL_TEMP-BWART <> '545'.
        IT_FINAL-DMBTR = IT_FINAL-DMBTR + IT_FINAL_TEMP-DMBTR.
      ELSE.
        IT_FINAL-DMBTR = IT_FINAL-DMBTR - IT_FINAL_TEMP-DMBTR.
      ENDIF.
    ENDLOOP.
    IT_FINAL-RATE = IT_FINAL-DMBTR / IT_FINAL-MENGE101.
    SELECT SINGLE
      NAME1
    INTO
      IT_FINAL-NAME1
    FROM
      LFA1
    WHERE
      LIFNR = IT_FINAL-LIFNR.
    IF SY-SUBRC <> 0.
      CLEAR IT_FINAL-NAME1.
    ENDIF.
ELSEIF IT_FINAL-BWART = '543'.
    IT_FINAL-MENGE543 = IT_FINAL-MENGE.
    IT_FINAL-LINE_COLOR = 'C200'.
    IT_FINAL-DIFFER = IT_FINAL-DIFFER - IT_FINAL-MENGE543.
    CLEAR: IT_FINAL-LIFNR,
          IT_FINAL-EBELN,
          IT_FINAL-BELNR,
          IT_FINAL-MENGE_I,
          IT_FINAL-BUDAT.
ELSEIF IT_FINAL-BWART = '545'.
******added by .... on 17.02.2007
   IT_FINAL-MENGE = IT_FINAL-MENGE * -1.
    IT_FINAL-MENGE = IT_FINAL-MENGE.
*******end by .... on 17.02.2007
    IT_FINAL-MENGE545 = IT_FINAL-MENGE.
    IT_FINAL-LINE_COLOR = 'C200'.
    IT_FINAL-DIFFER = IT_FINAL-DIFFER - IT_FINAL-MENGE545.
    CLEAR: IT_FINAL-LIFNR,
          IT_FINAL-EBELN,
          IT_FINAL-BELNR,
          IT_FINAL-MENGE_I,
          IT_FINAL-BUDAT.
ELSE.
    IT_FINAL-LINE_COLOR = 'C200'.
    CLEAR: IT_FINAL-LIFNR,
          IT_FINAL-EBELN,
          IT_FINAL-BELNR,
          IT_FINAL-MENGE_I,
          IT_FINAL-BUDAT.
ENDIF.
MODIFY IT_FINAL.
ENDLOOP.
ENDFORM.
*&      Form GENERATE_ALV_FIELDCAT
      text
FORM GENERATE_ALV_FIELDCAT.
DATA: POS TYPE I.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'COUNT'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'S. No.'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'MATNR'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'Mat. No.'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'BMENGE'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'BOM Qty'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'EBELN'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'PO No.'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'MENGE_I'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'PO Qty'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'BELNR'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'Gr. No.'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
CATALOG-HOTSPOT = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'BUDAT'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'GR Date'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'MENGE101'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = '101 Gr Qty'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'MENGE543'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = '543 Gr Qty'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'MENGE545'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = '545 Gr Qty'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'DIFFER'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'Difference'.
CATALOG-NO_ZERO = ' '.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'LIFNR'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'Vendor'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'NAME1'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'Vendor Name'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'RATE'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'Rate'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
POS = POS + 1.
CLEAR: CATALOG.
CATALOG-COL_POS = POS.
CATALOG-FIELDNAME = 'DMBTR'.
CATALOG-TABNAME = 'IT_FINAL'.
CATALOG-SELTEXT_L = 'Value'.
CATALOG-NO_ZERO = 'X'.
CATALOG-FIX_COLUMN = 'X'.
APPEND CATALOG TO TCATALOG.
ENDFORM.
*&      Form ALV_SHOW
      text
FORM ALV_SHOW.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT-BOX_TABNAME = 'IT_FINAL'.
LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
LAYOUT-ZEBRA = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-REPID
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IS_LAYOUT               = LAYOUT
      IT_FIELDCAT             = TCATALOG
      IS_VARIANT              = VAR1
      I_SAVE                  = 'A'
      IT_EVENTS               = TEVENT[]
    TABLES
      T_OUTTAB                = IT_FINAL.
ENDFORM .                    "ALV_SHOW
*& FORM USER_COMMAND.
FORM USER_COMMAND USING
          R_UCOMM LIKE SY-UCOMM
          SELFIELD TYPE SLIS_SELFIELD.
DATA: TABIX LIKE SY-TABIX,
      WA LIKE IT_FINAL.
TABIX = SELFIELD-TABINDEX.
READ TABLE IT_FINAL INTO WA INDEX TABIX.
IF NOT WA-BELNR IS INITIAL.
set parameter id : 'MBN' FIELD WA-BELNR.
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN .
ENDIF.
ENDFORM.

Hi,
U can try this standard report for subcontracting:
J1IFR (Transaction name),
Not sure how much this will be useful to u.
regards,
Viji

Goods receipt for subcontracting order! BAPI_GOODSMVT_CREATE

I wanna use BAPI "BAPI_GOODSMVT_CREATE" to create goods receipt for subcontracting order.
But it says that this combination is not possible. Combination of my movement type and this BAPI.
What can i do to solve it?
thanks in advance.

>
Julia Nikiforva wrote:
> I wanna use BAPI "BAPI_GOODSMVT_CREATE" to create goods receipt for subcontracting order.
> But it says that this combination is not possible. Combination of my movement type and this BAPI.
>
> What can i do to solve it?
>
> thanks in advance.
Might work
report zbapi_goodsmovement.
parameters: p-file like rlgrap-filename default
'c:\sapdata\TEST.txt'.
parameters: e-file like rlgrap-filename default
'c:\sapdata\gdsmvterror.txt'.
parameters: xpost like sy-datum default sy-datum.
data: begin of gmhead.
include structure bapi2017_gm_head_01.
data: end of gmhead.
data: begin of gmcode.
include structure bapi2017_gm_code.
data: end of gmcode.
data: begin of mthead.
include structure bapi2017_gm_head_ret.
data: end of mthead.
data: begin of itab occurs 100.
include structure bapi2017_gm_item_create.
data: end of itab.
data: begin of errmsg occurs 10.
include structure bapiret2.
data: end of errmsg.
data: wmenge like iseg-menge,
errflag.
data: begin of pcitab occurs 100,
ext_doc(10), "External Document Number
mvt_type(3), "Movement Type
doc_date(8), "Document Date
post_date(8), "Posting Date
plant(4), "Plant
material(18), "Material Number
qty(13), "Quantity
recv_loc(4), "Receiving Location
issue_loc(4), "Issuing Location
pur_doc(10), "Purchase Document No
po_item(3), "Purchase Document Item No
del_no(10), "Delivery Purchase Order Number
del_item(3), "Delivery Item
prod_doc(10), "Production Document No
scrap_reason(10), "Scrap Reason
upd_sta(1), "Update Status
end of pcitab.
call function 'WS_UPLOAD'
exporting
filename = p-file
filetype = 'DAT'
IMPORTING
FILELENGTH =
tables
data_tab = pcitab
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
OTHERS = 6
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
exit.
endif.
gmhead-pstng_date = sy-datum.
gmhead-doc_date = sy-datum.
gmhead-pr_uname = sy-uname.
gmcode-gm_code = '01'. "01 - MB01 - Goods Receipts for Purchase Order
loop at pcitab.
itab-move_type = pcitab-mvt_type.
itab-mvt_ind = 'B'.
itab-plant = pcitab-plant.
itab-material = pcitab-material.
itab-entry_qnt = pcitab-qty.
itab-move_stloc = pcitab-recv_loc.
itab-stge_loc = pcitab-issue_loc.
itab-po_number = pcitab-pur_doc.
itab-po_item = pcitab-po_item.
concatenate pcitab-del_no pcitab-del_item into itab-item_text.
itab-move_reas = pcitab-scrap_reason.
append itab.
endloop.
loop at itab.
write:/ itab-material, itab-plant, itab-stge_loc,
itab-move_type, itab-entry_qnt, itab-entry_uom,
itab-entry_uom_iso, itab-po_number, itab-po_item,
pcitab-ext_doc.
endloop.
call function 'BAPI_GOODSMVT_CREATE'
exporting
goodsmvt_header = gmhead
goodsmvt_code = gmcode
TESTRUN = ' '
IMPORTING
goodsmvt_headret = mthead
MATERIALDOCUMENT =
MATDOCUMENTYEAR =
tables
goodsmvt_item = itab
GOODSMVT_SERIALNUMBER =
return = errmsg
clear errflag.
loop at errmsg.
if errmsg-type eq 'E'.
write:/'Error in function', errmsg-message.
errflag = 'X'.
else.
write:/ errmsg-message.
endif.
endloop.
if errflag is initial.
commit work and wait.
if sy-subrc ne 0.
write:/ 'Error in updating'.
exit.
else.
write:/ mthead-mat_doc, mthead-doc_year.
perform upd_sta.
endif.
endif.
FORM UPD_STA *
form upd_sta.
loop at pcitab.
pcitab-upd_sta = 'X'.
modify pcitab.
endloop.
call function 'WS_DOWNLOAD'
exporting
filename = p-file
filetype = 'DAT'
IMPORTING
FILELENGTH =
tables
data_tab = pcitab
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
OTHERS = 6
endform.

External Material for Subcontracting

How do you manage material from customer that you just add a process to it?
Right now we do not enter the material in our stock and just make a service sales order type?
Is there a best practice process for this scenario?
Thank you,
Carlos

Hi sumit,
In subcontracting the material has to return within 180 days otherwise it will be
treated as exciseable goods.
when we do GR for external po's we receive only the operation to be performed
so conversion cost to the vendor shall be paid
when ceate Production order system will create planned order only which is unfirmed as the procurement type ' X ' and procurement key for subcontracting you need to define MRP 2 under procurement.
after ensuring GR is done order confirmation of operation ( external ) has to be done here only system capture the quantity ( subcontracting material ) and also valuation of the material in production order. As order settlement is order based .
pl reward points ,
regards,
vimal balaji

180 days crossed for subcontracting

Hi,
I sent the material for subcontracting,also received the same material after the return date(ie.after 180 days).
Now the system is showing the error 'Cannot Reconcile : Crossed Return Date, please Reverse'. I know the std process that we have to reverse it and recredit after receiving the material.
My query is:
1. Is there any other solution than the above?
2. Suppose if I reverse and recredit,can I see the history for this in system.
Please suggest the solution.
Regards,
Goraksh.

Hello
There is no other solution other than re crediting. IF recreditted it will be document in the system.
Make sure that from next time that you make a document for receiving the material even if not received physically and provide it for subcontracting again.
Regards
Gregory Mathews

Raw Stock For Subcontracting

Hi All,
We are using MTO scenario for our mould plant. For finish mould we run MRP with respect to sales order(MD50). After mrp run requirement create for raw and sfg. We are doing Subcontracting for SFG material for external processing.
Now my question is that , when am procured raw materail it gets autometically consume from stock . And when we go for subcontracting we explode the BOM in P.O at this time system ask stock of RAW Materail.
Pls give me correct solution,
Thanks,
Vishal

i m using accountassignment F here i mean Purch. Requisition is create autometic by mrp with account assignment catagory F & L for subcontracting.
Edited by: vishal Patil on Jun 12, 2008 2:25 PM
Edited by: vishal Patil on Jun 12, 2008 2:28 PM

Quantity Reconciliation for Subcontracting challans

Dear Sir
1. issue material to subcontractor by Mov Type-541, date-11,12,2009
2.receive Material from Subcontractor by Mov type-542,date-05,07,2010
3.when Creating Reconciliation for Subcontracting Challans, T code-J1IFQ
Errors comes as shown below
"Cannot Reconcile : Crossed Return Date, please Reverse"
Please guide me

Challan has crossed return date i.e more than 180 days,In this case,
Do as per help docuemntation
[Completion, Reversal, and Recredit|http://help.sap.com/saphelp_erp60_sp/helpdata/en/09/ebf138cdd78a4be10000000a114084/frameset.htm]

Project stock material for subcontracting

Hi,
I want to send project stock material (special stock with 'Q') for subcontracting vendor. Pl elaborate the procedure.
Subcontracting PO is with account assignment category 'Q'.
Pl revert.

Hello Sachin
We had similar requirement but in a different way. i.e sending material for subcontracting work for materials returned by customers getting it reworked bringing the reworked material back to plant stock and then sending to customer.
We had used alltogether different transactions ADSUBCON is the transaction code. Prerequsite is you will have to implement BADI BADI_ADSUB_MVT_TYPES of enhancement specefe ES_BADI_ADSUB_MVT_TYPES.
Regards

Return delivery for stock transport oder

Hi
I need better clarity on the following Return delivery process for STO.
Step 1)Creation of intra company stock transport order with document type UB.
Step 2)Goods issue from the Supplying plant (Movement type 641)
Step 3)Goods receipt at the Receiving plant( Movement type 101-To quality inspection stock )
Step 4)Posting return delivery at Receiving plant. (Movement type 122)
On performing step 4) , the stock quantity and value are getting reduced at the Receiving plant, but the stock updating does not happen in the Supplying plant automatically. (i.e. Goods Receipts )
Do we need to perform any other movements ( Goods receipts ) in the supplying plant so that the Returned stock will be updated with the return delivered quantity ?
Please clarify.
Gobinathan G

Hi
Thanks for your feedback.
It worked well. On posting 122 , the stock was posted to "stock in Transit" of Receiving plant.
When I reversed the goods movement by VL09, the stock was posted back to stock of supplying plant. ( Movement type 642 posted )
Gobinathan G
Edited by: Gobinathan Govindarajan on Dec 16, 2008 6:41 PM

Delivery for subcontracting

Hi,
Could anyone tell me when the delivery has to be done for subcontracting and when the goods movement 541 should be used. The transaction ME20 doesnt exist when i tried to create delivery for the subcontracting PO.
Thanks in advance
Aparna

hi
the code is ME2O and not ME20
Process Flow
This scenario consists of the following steps on goods delivery:
Purchase order creation based on a scheduled purchase requisition created by last MRP run
Optional: manual purchase order creation
Purchase order approval (if required)
Components of the Material sent to the subcontractor through a Transfer Posting
Creation of Subcontracting Challan
This scenario consists of the following steps on goods receipt:
Goods receipt for purchase order delivered by subcontractor
Component reservations and consumption of component quantities as provision of material
Reconciliation of Challan
Completion of Challan
Invoice receipt by line item
Invoice verification and validation of tax expenses
Outgoing payment
Key Points
BoM explosion triggers follow-on functions such as delivery to subcontractor
Automatic posting of value flow
Automatic posting of stocks into corresponding stock types
Subcontracting info record shows added value
regards
kunal
Edited by: kunal ingale on Aug 14, 2008 7:53 AM

STO for Subcontracting

Hello all,
I have a scenario like i want to raise an STO for the subcontracting process,can v do the STO for subcontratcing betn plants under one cocd?
If yes,then i need to use the deliver type:ZLB and how abt the Item cat,Purchasing doc type,if needed Account assngmnt and Shipping data.
I would appreciate if someone could share their experience with me in this scenario.
Thank you

Hi,
You have been given the answer so I will just confirm that the advice is correct.
A subcontract order is between a Vendor and a Plant, there is no way to have an STO for subcontracting?
I think that you may be either using the wrong terminology or misunderstanding what subcontracting is?
there is no such thing as subcontracting transfers, but did you mean to be able to transfer the "stock with subcontractor" (sent via a 541 movement) to another plant?
If so then the answer is still no because the stock is no longer in the plant if it has been moved to the subcontractor with a 541.
So please can you explain what it is you want to transfer and why you think you want to transfer using a subcontracting STO (which does not exist).
Steve B

Return deliver for subcontracting materail in QA11/QA12

Similar Messages

Maybe you are looking for