Mm01 purchase text view

Question

Hello Friends,
I want to upload material master through mm01 but while recording purchase text view is not getting recorded in bdc.
Kindly suggest how to handle purchase text in such case.
Rgds,
Sunny

Answer 1

You can use BAPI_MATERIAL_SAVEDATA for creating the PO text .
Here is the sample code
TABLES : MARC,MARA.
TYPE-POOLS : TRUXS.
DATA : BEGIN OF ITAB OCCURS 0,
       MATNR(18),
*       MTART(4),
       TEXT(10000)," TYPE STRING,
       END OF ITAB.
DATA : ITEMP TYPE TRUXS_T_TEXT_DATA.
DATA : TEXT(132).
data : HEADDATA             LIKE BAPIMATHEAD,
       PLANTDATA            LIKE BAPI_MARC,
       PLANTDATAX           LIKE BAPI_MARCX ,
       MATERIALLONGTEXT     LIKE BAPI_MLTX  OCCURS 0 WITH HEADER LINE.
DATA: RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
      RETURN1 LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
      RETURNMESSAGES LIKE BAPI_MATRETURN2 OCCURS 0 WITH HEADER LINE.
DATA : ITEXT(132) OCCURS 0 WITH HEADER LINE.
DATA : LEN TYPE I,
       POS TYPE I,
       TIM TYPE I,
       LENGTH TYPE I,
       FILENAME TYPE STRING.
DATA : TABIX LIKE SY-TABIX,
       LEN1  TYPE I,
       TOTAL TYPE I,
       TEXT1(132),
       LINES TYPE I.
PARAMETERS : P_FNAME LIKE RLGRAP-FILENAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
   PROGRAM_NAME        = SYST-CPROG
   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ' '
IMPORTING
   FILE_NAME           = P_FNAME.
START-OF-SELECTION.
*CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
*  EXPORTING
**   I_FIELD_SEPERATOR          =
**   I_LINE_HEADER              =
*    I_TAB_RAW_DATA             = ITEMP
*    I_FILENAME                 = P_FNAME
*  TABLES
*    I_TAB_CONVERTED_DATA       = ITAB
* EXCEPTIONS
*   CONVERSION_FAILED          = 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.
*ENDIF.
FILENAME = P_FNAME.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME                      = FILENAME
*   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                      = ITAB
EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT ITAB.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT         = ITAB-MATNR
     IMPORTING
       OUTPUT        =  ITAB-MATNR.
    SPLIT ITAB-TEXT AT SPACE INTO TABLE ITEXT.
     SELECT SINGLE MTART INTO MARA-MTART FROM MARA WHERE MATNR = ITAB-MATNR.
     HEADDATA-MATERIAL = ITAB-MATNR.
     HEADDATA-IND_SECTOR = 'M'.                              "IMM-MBRSH.
     HEADDATA-MATL_TYPE = MARA-MTART.
     HEADDATA-PURCHASE_VIEW  = 'X'.
  DESCRIBE TABLE ITEXT LINES LINES.
  LOOP AT ITEXT.
  TABIX = SY-TABIX + 1.
  CONCATENATE TEXT ITEXT INTO TEXT SEPARATED BY SPACE.
  LEN = STRLEN( TEXT ).
*  IF LEN GT 100.
  IF TABIX LE LINES .
      READ TABLE ITEXT INDEX TABIX.
      LEN1 = STRLEN( ITEXT ).
      TOTAL = LEN1 + LEN.
      IF TOTAL GT 132.
          MATERIALLONGTEXT-APPLOBJECT =  'MATERIAL'.
          MATERIALLONGTEXT-TEXT_NAME = ITAB-MATNR.
          MATERIALLONGTEXT-TEXT_ID  = 'BEST'.
          MATERIALLONGTEXT-LANGU  = SY-LANGU.
          MATERIALLONGTEXT-TEXT_LINE = TEXT.
          APPEND MATERIALLONGTEXT.
          CLEAR : MATERIALLONGTEXT,TEXT.
      ENDIF.
  ELSE.
          MATERIALLONGTEXT-APPLOBJECT =  'MATERIAL'.
          MATERIALLONGTEXT-TEXT_NAME = ITAB-MATNR.
          MATERIALLONGTEXT-TEXT_ID  = 'BEST'.
          MATERIALLONGTEXT-LANGU  = SY-LANGU.
          MATERIALLONGTEXT-TEXT_LINE = TEXT.
          APPEND MATERIALLONGTEXT.
          CLEAR : MATERIALLONGTEXT,TEXT.
  ENDIF.
*  ENDIF.
*  AT LAST.
*  IF LEN LE 100.
*  MATERIALLONGTEXT-APPLOBJECT =  'MATERIAL'.
*  MATERIALLONGTEXT-TEXT_NAME = ITAB-MATNR.
*  MATERIALLONGTEXT-TEXT_ID  = 'BEST'.
*  MATERIALLONGTEXT-LANGU  = SY-LANGU.
*  MATERIALLONGTEXT-TEXT_LINE = TEXT.
*  APPEND MATERIALLONGTEXT.
*  CLEAR : MATERIALLONGTEXT,TEXT.
*  ENDIF.
*  ENDAT.
  ENDLOOP.
*  AT END OF MATNR.
      CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
        EXPORTING
         HEADDATA                   = HEADDATA
       IMPORTING
         RETURN                     = RETURN
       TABLES
         MATERIALLONGTEXT           = MATERIALLONGTEXT
         RETURNMESSAGES             = RETURNMESSAGES.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
         WAIT          = 'X'.
      move-corresponding return to return1.
      APPEND RETURN1.
      CLEAR RETURN1.
      CLEAR :HEADDATA ,
             RETURNMESSAGES,
             RETURNMESSAGES[],
             MATERIALLONGTEXT,
             MATERIALLONGTEXT[].
*  ENDAT.
  CLEAR ITAB.
ENDLOOP.
LOOP AT RETURN1.
WRITE :/ RETURN1-MESSAGE.
ENDLOOP.
Change the code as per your need and you can create that by create_text fm also but wont forget to use commit_text after using create_text