Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

problem P+ logic in bdc

Former Member

‎2008 Dec 11 8:16 AM

0 Likes
1,092

Hi,

I am working on a BDC for tcode MM01 in which maintainanace of Qauality Managment View is to be maintained but the problem is when i select the view of Quality Managment ('MSICHTAUSW-DYTXT(22)) which is present in view selection at number 22 where as when i specify the number 17 it picks up the Work Scheduling view and i want to select the QM view which is at number 22.

It gives the error screen does not exist but i had selected that view during recording.

Plz provide me guidelines for solving this problem.

Hi,

I am working on a BDC for tcode MM01 in which maintainanace of Qauality Managment View is to be maintained but the problem is when i select the view of Quality Managment ('MSICHTAUSW-DYTXT(22)) which is present in view selection at number 22 where as when i specify the number 17 it picks up the Work Scheduling view and i want to select the QM view which is at number 22.

It gives the error screen does not exist but i had selected that view during recording.

Plz provide me guidelines for solving this problem.

Reply
4 REPLIES 4
Read only

tarangini_katta
Active Contributor

‎2008 Dec 11 8:21 AM

0 Likes
778

Hi rick,

just go thoruogh this example it may helpful to you.

DATA: BEGIN OF itab OCCURS 0,

matnr TYPE mara-matnr,

mbrsh TYPE mara-mbrsh,

mtart TYPE mara-mtart,

END OF itab.

DATA: x_file TYPE string.

DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

messages of call transaction

DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

PARAMETER s_file TYPE rlgrap-filename.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_file.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

CHANGING

file_name = s_file.

IF s_file IS INITIAL.

MESSAGE 'Please give a proper file path' TYPE 'E'.

ENDIF.

x_file = s_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = x_file

filetype = 'ASC'

has_field_separator = 'X'

TABLES

data_tab = itab.

START-OF-SELECTION.

LOOP AT itab.

REFRESH bdcdata.

PERFORM open_group.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMMG1-MTART'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'RMMG1-MATNR'

itab-matnr.

PERFORM bdc_field USING 'RMMG1-MBRSH'

itab-mbrsh.

PERFORM bdc_field USING 'RMMG1-MTART'

itab-mtart.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(22)'.

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'

'/00'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'Finished Product'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARA-MEINS'.

PERFORM bdc_field USING 'MARA-MEINS'

'ea'.

PERFORM bdc_field USING 'MARA-MTPOS_MARA'

'NORM'.

PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=YES'.

PERFORM bdc_transaction USING 'MM01'.

PERFORM close_group.

CALL TRANSACTION 'MM01'

USING bdcdata

MODE 'N'

UPDATE 'A'

MESSAGES INTO messtab.

CLEAR itab.

ENDLOOP.

END-OF-SELECTION.

LOOP AT messtab.

WRITE: / messtab-msgtyp.

ENDLOOP.

&----

*& Form BDC_DYNPRO

&----

text

-

-->PROGRAM text

-->DYNPRO text

-

FORM bdc_dynpro USING program dynpro.

CLEAR bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

ENDFORM. "BDC_DYNPRO

-

Insert field *

-

FORM bdc_field USING fnam fval.

IF FVAL NODATA.

CLEAR bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

APPEND bdcdata.

ENDIF.

ENDFORM. "BDC_FIELD

Read only

Former Member

‎2008 Dec 11 8:58 AM

0 Likes
778

Hi Ricx,

Check the below code. as we are doing 'P+' for capturing the 22 view, the 'MSICHTAUSW-KZSEL' number resets from 01.


PERFORM bdc_dynpro      USING 'SAPLMGMM' '0060'.

  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM bdc_field       USING 'RMMG1-MATNR'
                                '100000141'.
*  PERFORM bdc_field       USING 'RMMG1-MBRSH'
*                                'P'.
*  PERFORM bdc_field       USING 'RMMG1-MTART'
*                                'ROH'.
  PERFORM bdc_field       USING 'RMMG1_REF-MATNR'
                                '100000121'.
  PERFORM bdc_dynpro      USING 'SAPLMGMM' '0070'.

  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=RESA'.
  PERFORM bdc_dynpro      USING 'SAPLMGMM' '0070'.

  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=P+'.

  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(04)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(05)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(06)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(09)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(10)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(12)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(13)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(14)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(15)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(17)'
                                'X'.
  PERFORM bdc_dynpro      USING 'SAPLMGMM' '0070'.

  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=ENTR'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(01)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(04)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(05)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(06)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(07)'
                                'X'.
  PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(08)'
                                'X'.

Read only

Former Member

‎2008 Dec 11 9:10 AM

0 Likes
778

Use BDC recording ->

SAPLMGMM | 0060

BDC_CURSOR | RMMG1-MATNR

BDC_OKCODE | =ENTR

RMMG1-MATNR | 2287043447

SAPLMGMM | 0070

BDC_CURSOR | MSICHTAUSW-DYTXT(17)

BDC_CURSOR | MSICHTAUSW-DYTXT(18)

BDC_OKCODE | =ENTR

MSICHTAUSW-KZSEL(18) | X "-> for QM view.

.

.

.

Regards,

Aparna

Read only

Former Member

‎2008 Dec 11 9:32 AM

0 Likes
778

hi,

i had solved the problem by doing the new recording and it is working and thanks a lot for all your help.