Quantcast
Channel: SCN : All Content - All Communities
Viewing all articles
Browse latest Browse all 8212

how to keep popup to select for GUI_UPLOAD function mod.?

$
0
0

hi..

when im trying to access .txt file for call transaction BDC, im unable to access its saying file not supported... atleast im unable to select the file.. how to attach pop up to my GUI_UPLOAD??

 

 

here is my code.

 

 

 

REPORT ZSAPN_BDC

       NO STANDARD PAGE HEADING LINE-SIZE 255.

 

 

TYPES: BEGIN OF TY_MARA,

       MATNR TYPE MARA-MATNR,

       MBRSH TYPE MARA-MBRSH,

       MTART TYPE MARA-MTART,

       MEINS TYPE MARA-MEINS,

       MAKTX TYPE MAKT-MAKTX,

       END OF TY_MARA.

 

DATA : IT_MARA TYPE TABLE OF TY_MARA,

       WA_MARA TYPE TY_MARA.

 

DATA: IT_BDCDATA TYPE TABLE OF BDCDATA .

DATA: WA_BDCDATA TYPE BDCDATA .

 

DATA : BDCMSG TYPE TABLE OF BDCMSGCOLL.

 

DATA:FILE TYPE STRING.

 

PARAMETERS : P_FILE TYPE RLGRAP-FILENAME.

 

 

START-OF-SELECTION.

 

  IF P_FILE IS NOT INITIAL.

    FILE = P_FILE.

 

    CALL FUNCTION 'GUI_UPLOAD'

      EXPORTING

        FILENAME            = FILE

        FILETYPE            = 'ASC'

        HAS_FIELD_SEPARATOR = 'X'

      TABLES

        DATA_TAB            = IT_MARA.

    IF SY-SUBRC <> 0.

    ENDIF.

 

 

  ENDIF.

  LOOP AT IT_MARA INTO WA_MARA.

    PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '0060'.

    PERFORM BDC_FIELD       USING 'BDC_CURSOR'

                                  'RMMG1-MTART'.

    PERFORM BDC_FIELD       USING 'BDC_OKCODE'

                                  'ENTR'.

    PERFORM BDC_FIELD       USING 'RMMG1-MATNR'

                                  WA_MARA-MATNR.

    PERFORM BDC_FIELD       USING 'RMMG1-MBRSH'

                                  WA_MARA-MBRSH.

    PERFORM BDC_FIELD       USING 'RMMG1-MTART'

                                  WA_MARA-MTART.

    PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '0070'.

    PERFORM BDC_FIELD       USING 'BDC_CURSOR'

                                  'MSICHTAUSW-DYTXT(01)'.

    PERFORM BDC_FIELD       USING 'BDC_OKCODE'

                                  '=ENTR'.

    PERFORM BDC_FIELD       USING 'MSICHTAUSW-KZSEL(01)'

                                  'X'.

    PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4004'.

    PERFORM BDC_FIELD       USING 'BDC_OKCODE'

                                  '=BU'.

    PERFORM BDC_FIELD       USING 'MAKT-MAKTX'

                                  WA_MARA-MAKTX.

    PERFORM BDC_FIELD       USING 'BDC_CURSOR'

                                  'MARA-MEINS'.

    PERFORM BDC_FIELD       USING 'MARA-MEINS'

                                  WA_MARA-MEINS.


Viewing all articles
Browse latest Browse all 8212

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>