routing upload

Former Member · ‎04-19-2006

Hi All,

i have to upload 'routing master data'. Please suggest me best method. I have to upload Routing, Operation, Component & inspection characteristic data.

Is there any standard program is available for this?

With regrads,

Pravin

Former Member · ‎04-19-2006

hi

good

you can go trhough following links.

http://baan.ittoolbox.com/groups/technical-functional/baan-erp-l/409710

http://supinfo-projects.com/cn/2005/idocs_en/4/

thanks

mrutyun

Former Member · ‎04-19-2006

Please use SAP standard program RCPTRA01. For additional information, please read the documentation for the above programs.

The documentation will give you upload record structure and other information.

Former Member · ‎04-19-2006

Hi Anand,

Please help me 'how to make test file for the program' i tried so many times but not able to make any successful one.

With regrads,

Pravin

pravin.mishra@sify.com

Former Member · ‎04-19-2006

Hi Anand,

Please tell me the procedure how to search a standard program for master data uplaod.

With regards,

Pravin

former_member181962 · ‎04-19-2006

Go to se38.

Press F4.

It Gives you a popup.

Press INformation System Button.

It Gives you a popup.

Enter * Masterdataupload* in the short description.

Press Enter.

Regards,

Ravi

Former Member · ‎04-19-2006

Hai have look at this links

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCCIOFFI/BCCIOFFI.pdf

http://www.sapgenie.com/abap/ole.htm

http://help.sap.com/saphelp_46c/helpdata/en/59/ae3f2e488f11d189490000e829fbbd/frameset.htm

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCCIOFFI/BCCIOFFI.pdf

Regards

Sreenu

Former Member · ‎01-11-2009

I tried to create inspection plans using program RCPTRA01 via LSMW.

I defined structures, source fields, structure relations, field mapping and conversion rules, specified corresponding files, etc.

I completed every single step, but in step 13 (Create Batch Input Session) I get message no. 00338 "BDC_INSERT, Transaction code .. is invalid".

In step 5 (Maintain Field Mapping and Conversion Rules) I tried the following conversion rules:

1. BI001-TCODE = FV_TCODE.

2. BI001-TCODE = 'QP01'.

3. BI001-TCODE = TRANSACCION-TCODE. (TRANSACCION is the structure I defined)

but non of these worked!

Could you help me?

Thanks. Nela.

Former Member · ‎03-05-2012


INCLUDE BDCRECX1.
****TYPES DECLERATIONS
TYPES : BEGIN OF TY_FINAL,
            COUNT(005),
            MATNR(018),
            WERKS(004),
            STTAG(010),
            VERWE(003),
            STATU(003),
            STEUS(004),
            LTXA1(040),
            ITEMNO(002),
            VERWMERKM(008),
            STICHPRVER(008),
            PROBEMGEH(003),
            PRUEFEINH(005),
            QUANTITAT(001),
            QUALITAT(001),
            PMETHODE(008),
        END OF TY_FINAL.
*****Internal Table Declerations
DATA : IT_FINAL TYPE TABLE OF TY_FINAL.
*****Work area Declerations
DATA : WA_FINAL TYPE TY_FINAL.
****
TYPES: BEGIN OF TY_ITEM,
            ITEMNO(002),
            VERWMERKM(008),
            STICHPRVER(008),
            PROBEMGEH(003),
            PRUEFEINH(005),
            QUANTITAT(001),
            QUALITAT(001),
            PMETHODE(008),
        END OF TY_ITEM.
DATA: T_ITEM TYPE TABLE OF TY_ITEM,
     WA_ITEM TYPE TY_ITEM.
DATA : G_FILE TYPE IBIPPARMS-PATH.
DATA : LIN_COUNT(2),X1(20),X2(20),X3(20), X4(20),X5(20),X6(20).
***Selection Screen
PARAMETERS : P_FILE TYPE STRING OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      PROGRAM_NAME  = SYST-CPROG
      DYNPRO_NUMBER = SYST-DYNNR
      FIELD_NAME    = 'P_FILE'
    IMPORTING
      FILE_NAME     = G_FILE.
P_FILE = G_FILE.
START-OF-SELECTION.
PERFORM OPEN_GROUP.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME            = P_FILE
      HAS_FIELD_SEPARATOR = 'X'
    TABLES
      DATA_TAB            = IT_FINAL.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
DATA: IT_FINAL2 LIKE IT_FINAL.
IT_FINAL2 = IT_FINAL.
LOOP AT IT_FINAL INTO WA_FINAL.
REFRESH T_ITEM.
ON CHANGE OF WA_FINAL-COUNT.
LOOP AT IT_FINAL2 INTO WA_FINAL WHERE COUNT = WA_FINAL-COUNT.
WA_ITEM-ITEMNO = WA_FINAL-ITEMNO.
        WA_ITEM-VERWMERKM = WA_FINAL-VERWMERKM.
        WA_ITEM-STICHPRVER = WA_FINAL-STICHPRVER.
        WA_ITEM-PROBEMGEH  = WA_FINAL-PROBEMGEH.
        WA_ITEM-PRUEFEINH = WA_FINAL-PRUEFEINH.
        WA_ITEM-QUANTITAT = WA_FINAL-QUANTITAT.
        WA_ITEM-QUALITAT = WA_FINAL-QUALITAT.
        WA_ITEM-PMETHODE = WA_FINAL-PMETHODE.
        APPEND WA_ITEM TO T_ITEM.
      ENDLOOP.
LIN_COUNT = '01'.
PERFORM BDC_DYNPRO      USING 'SAPLCPDI' '8010'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR' 'RC271-STTAG'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE''/00'.
      PERFORM BDC_FIELD       USING 'RC27M-MATNR' WA_FINAL-MATNR.	"'material no'.
      PERFORM BDC_FIELD       USING 'RC27M-WERKS' WA_FINAL-WERKS.         "'Plant'.
      PERFORM BDC_FIELD       USING 'RC271-STTAG' WA_FINAL-STTAG.	"'01.04.2011'.
      PERFORM BDC_FIELD       USING 'RC271-PLNNR' ' '.
      PERFORM BDC_DYNPRO      USING 'SAPLCPDA' '1200'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE' '/00'.
	  PERFORM BDC_FIELD       USING 'BDC_CURSOR' 'PLKOD-STATU'.
      PERFORM BDC_FIELD       USING 'PLKOD-VERWE' WA_FINAL-VERWE.         "'5'.
      PERFORM BDC_FIELD       USING 'PLKOD-STATU' WA_FINAL-STATU.         "'4'.
	  PERFORM BDC_DYNPRO      USING 'SAPLCPDA' '1200'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE' '=VOUE'.
	  PERFORM BDC_FIELD       USING 'BDC_CURSOR' 'PLKOD-STATU'.
	  PERFORM BDC_DYNPRO      USING 'SAPLCPDI' '1400'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'PLPOD-LTXA1(01)'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '/00'.
      PERFORM BDC_FIELD       USING 'PLPOD-STEUS(01)'
                                    WA_FINAL-STEUS.         
	  PERFORM BDC_FIELD       USING 'PLPOD-LTXA1(01)'
                                    WA_FINAL-LTXA1."'QUALITY INSPECTION'.
      PERFORM BDC_DYNPRO      USING 'SAPLCPDI' '1400'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'PLPOD-VORNR(01)'.

      PERFORM BDC_FIELD       USING 'RC27X-ENTRY_ACT'
                                    '1'.
      PERFORM BDC_FIELD       USING 'RC27X-FLG_SEL(01)'
                                    'X'.

      PERFORM BDC_FIELD       USING 'BDC_OKCODE' '=QMUE'.
      PERFORM BDC_DYNPRO      USING 'SAPLQPAA' '0150'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'PLMKB-PRUEFEINH(07)'.
ENDON.

Former Member · ‎03-05-2012


    LOOP AT T_ITEM INTO WA_ITEM.
      IF WA_ITEM-ITEMNO EQ '10'.
        PERFORM BDC_FIELD       USING 'PLMKB-VERWMERKM(01)' WA_ITEM-VERWMERKM.
        PERFORM BDC_FIELD       USING 'PLMKB-STICHPRVER(01)' WA_ITEM-STICHPRVER.
        PERFORM BDC_FIELD       USING 'PLMKB-PROBEMGEH(01)' WA_ITEM-PROBEMGEH.
        PERFORM BDC_FIELD       USING 'PLMKB-PRUEFEINH(01)' WA_ITEM-PRUEFEINH.
        PERFORM BDC_FIELD       USING 'RQPAS-QUANTITAT(01)' WA_ITEM-QUANTITAT.
        PERFORM BDC_FIELD       USING 'RQPAS-QUALITAT(01)' WA_ITEM-QUALITAT.
      ENDIF.
IF WA_ITEM-ITEMNO EQ '20'.
        PERFORM BDC_FIELD       USING 'PLMKB-VERWMERKM(02)' WA_ITEM-VERWMERKM.
        PERFORM BDC_FIELD       USING 'PLMKB-STICHPRVER(02)' WA_ITEM-STICHPRVER.
        PERFORM BDC_FIELD       USING 'PLMKB-PROBEMGEH(02)' WA_ITEM-PROBEMGEH.
        PERFORM BDC_FIELD       USING 'PLMKB-PRUEFEINH(02)' WA_ITEM-PRUEFEINH.
        PERFORM BDC_FIELD       USING 'RQPAS-QUANTITAT(02)' WA_ITEM-QUANTITAT.
        PERFORM BDC_FIELD       USING 'RQPAS-QUALITAT(02)' WA_ITEM-QUALITAT.
      ENDIF.
IF WA_ITEM-ITEMNO EQ '30'.
        PERFORM BDC_FIELD       USING 'PLMKB-VERWMERKM(03)' WA_ITEM-VERWMERKM.
        PERFORM BDC_FIELD       USING 'PLMKB-STICHPRVER(03)' WA_ITEM-STICHPRVER.
        PERFORM BDC_FIELD       USING 'PLMKB-PROBEMGEH(03)' WA_ITEM-PROBEMGEH.
        PERFORM BDC_FIELD       USING 'PLMKB-PRUEFEINH(03)' WA_ITEM-PRUEFEINH.
        PERFORM BDC_FIELD       USING 'RQPAS-QUANTITAT(03)' WA_ITEM-QUANTITAT.
        PERFORM BDC_FIELD       USING 'RQPAS-QUALITAT(03)' WA_ITEM-QUALITAT.
      ENDIF.

      IF WA_ITEM-ITEMNO EQ '40'.
        PERFORM BDC_FIELD       USING 'PLMKB-VERWMERKM(04)' WA_ITEM-VERWMERKM.
        PERFORM BDC_FIELD       USING 'PLMKB-STICHPRVER(04)' WA_ITEM-STICHPRVER.
        PERFORM BDC_FIELD       USING 'PLMKB-PROBEMGEH(04)' WA_ITEM-PROBEMGEH.
        PERFORM BDC_FIELD       USING 'PLMKB-PRUEFEINH(04)' WA_ITEM-PRUEFEINH.
        PERFORM BDC_FIELD       USING 'RQPAS-QUANTITAT(04)' WA_ITEM-QUANTITAT.
        PERFORM BDC_FIELD       USING 'RQPAS-QUALITAT(04)' WA_ITEM-QUALITAT.
      ENDIF.

      IF WA_ITEM-ITEMNO EQ '50'.
        PERFORM BDC_FIELD       USING 'PLMKB-VERWMERKM(05)' WA_ITEM-VERWMERKM.
        PERFORM BDC_FIELD       USING 'PLMKB-STICHPRVER(05)' WA_ITEM-STICHPRVER.
        PERFORM BDC_FIELD       USING 'PLMKB-PROBEMGEH(05)' WA_ITEM-PROBEMGEH.
        PERFORM BDC_FIELD       USING 'PLMKB-PRUEFEINH(05)' WA_ITEM-PRUEFEINH.
        PERFORM BDC_FIELD       USING 'RQPAS-QUANTITAT(05)' WA_ITEM-QUANTITAT.
        PERFORM BDC_FIELD       USING 'RQPAS-QUALITAT(05)' WA_ITEM-QUALITAT.
      ENDIF.

      IF WA_ITEM-ITEMNO EQ '60'.
        PERFORM BDC_FIELD       USING 'PLMKB-VERWMERKM(06)' WA_ITEM-VERWMERKM.
        PERFORM BDC_FIELD       USING 'PLMKB-STICHPRVER(06)' WA_ITEM-STICHPRVER.
        PERFORM BDC_FIELD       USING 'PLMKB-PROBEMGEH(06)' WA_ITEM-PROBEMGEH.
        PERFORM BDC_FIELD       USING 'PLMKB-PRUEFEINH(06)' WA_ITEM-PRUEFEINH.
        PERFORM BDC_FIELD       USING 'RQPAS-QUANTITAT(06)' WA_ITEM-QUANTITAT.
        PERFORM BDC_FIELD       USING 'RQPAS-QUALITAT(06)' WA_ITEM-QUALITAT.
      ENDIF.

      IF WA_ITEM-ITEMNO EQ '70'.
        PERFORM BDC_FIELD       USING 'PLMKB-VERWMERKM(07)' WA_ITEM-VERWMERKM.
        PERFORM BDC_FIELD       USING 'PLMKB-STICHPRVER(07)' WA_ITEM-STICHPRVER.
        PERFORM BDC_FIELD       USING 'PLMKB-PROBEMGEH(07)' WA_ITEM-PROBEMGEH.
        PERFORM BDC_FIELD       USING 'PLMKB-PRUEFEINH(07)' WA_ITEM-PRUEFEINH.
        PERFORM BDC_FIELD       USING 'RQPAS-QUANTITAT(07)' WA_ITEM-QUANTITAT.
        PERFORM BDC_FIELD       USING 'RQPAS-QUALITAT(07)' WA_ITEM-QUALITAT.
      ENDIF.

    ENDLOOP.

    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '=ENT1'.

Former Member · ‎03-05-2012


 LOOP AT T_ITEM INTO WA_ITEM.
      IF WA_ITEM-ITEMNO EQ '10'
      OR WA_ITEM-ITEMNO EQ '20'
      OR WA_ITEM-ITEMNO EQ '30'
      OR WA_ITEM-ITEMNO EQ '40'
      OR WA_ITEM-ITEMNO EQ '50'
      OR WA_ITEM-ITEMNO EQ '60'
      OR WA_ITEM-ITEMNO EQ '70'.

        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=QMBU'.
        PERFORM BDC_DYNPRO      USING 'SAPLQPAA' '1501'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=ENT1'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'PLMKB-PMETHODE'.
        PERFORM BDC_FIELD       USING 'PLMKB-PMETHODE'
                                      WA_ITEM-PMETHODE.       "'GER INSP'.
        PERFORM BDC_DYNPRO      USING 'SAPLQPAA' '1502'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=ENT1'.
        PERFORM BDC_DYNPRO      USING 'SAPLQSS0' '0100'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'RQMST-RZWANG1'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=ENT1'.
PERFORM BDC_FIELD       USING 'RQMST-STICHPR'
                                      'X'.
        PERFORM BDC_FIELD       USING 'RQMST-RZWANG4'
                                      ''.
        PERFORM BDC_FIELD       USING 'RQMST-RZWANG1'
                                      'X'.                  "RZWANG1.
        IF WA_FINAL-QUALITAT EQ 'X'.
          PERFORM BDC_FIELD       USING 'RQMST-PRUEFKAT'
                                        'X'."PRUEFKAT.
        ENDIF.

        PERFORM BDC_DYNPRO      USING 'SAPLQSS0' '0101'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'RQMST-TEXT1'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=ENT1'.
      ENDIF.
    ENDLOOP.

    AT END OF COUNT.
      PERFORM BDC_TRANSACTION USING 'QP01'.
    ENDAT.
  ENDLOOP.

  PERFORM CLOSE_GROUP.
*&---------------------------------------------------------------------*
*&      Form  CONCATENATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM CONCATENATE .
  CONCATENATE 'PLMKB-VERWMERKM(' LIN_COUNT ')' INTO X1.
  CONCATENATE 'PLMKB-STICHPRVER(' LIN_COUNT ')' INTO X2.
  CONCATENATE 'PLMKB-PROBEMGEH(' LIN_COUNT ')' INTO X3.
  CONCATENATE 'PLMKB-PRUEFEINH(' LIN_COUNT ')' INTO X4.
  CONCATENATE 'RQPAS-QUANTITAT(' LIN_COUNT ')' INTO X5.
  CONCATENATE 'RQPAS-QUALITAT(' LIN_COUNT ')' INTO X6.
ENDFORM.                    " CONCATENATE

the above three post hwill help you regarding QP01 Routing.

hope this helps for further refernce.

Regards,

A

Edited by: Ashok26 on Mar 5, 2012 9:57 AM