topic Re: routing upload in Application Development and Automation Discussions

routing upload

Former Member — Wed, 19 Apr 2006 04:26:36 GMT

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

Re: routing upload

Former Member — Wed, 19 Apr 2006 04:48:26 GMT

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

Re: routing upload

Former Member — Wed, 19 Apr 2006 06:46:43 GMT

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.

Re: routing upload

Former Member — Wed, 19 Apr 2006 08:40:09 GMT

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

Re: routing upload

Former Member — Wed, 19 Apr 2006 08:43:50 GMT

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

Re: routing upload

Former Member — Wed, 19 Apr 2006 12:04:34 GMT

Hi Anand,

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

With regards,

Pravin

Re: routing upload

Former Member — Wed, 19 Apr 2006 12:08:53 GMT

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

Re: routing upload

Former Member — Sun, 11 Jan 2009 20:45:48 GMT

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.

Re: routing upload

Former Member — Mon, 05 Mar 2012 08:47:28 GMT


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.

Re: routing upload

Former Member — Mon, 05 Mar 2012 08:47:59 GMT


    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'.

Re: routing upload

Former Member — Mon, 05 Mar 2012 08:52:19 GMT


 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,

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