Friday, November 23, 2007

ABAP Interactive reporting + BDC (RM Creation) 

REPORT ZMM01_RM .

TABLES: mara,
       marc,
       makt.

DATA: BEGIN OF bdcdata OCCURS 0.
       INCLUDE STRUCTURE bdcdata.
DATA: END OF bdcdata.

DATA: BEGIN OF waRm OCCURS 0,
       mtart LIKE mara-mtart,
       werks LIKE marc-werks,
       lgort LIKE mard-lgort,
       maktx LIKE makt-maktx,
       meins LIKE mara-meins,
       matkl LIKE mara-matkl,
       extwg LIKE mara-extwg,
       ekwsl LIKE mara-ekwsl,
       plifz LIKE marc-plifz,
       peinh LIKE mbew-peinh,
       stprs LIKE mbew-stprs,
       losgr LIKE marc-losgr,
       j_4kcsgr LIKE mara-j_4kcsgr,
     END OF waRm.

DATA itab_waRm LIKE STANDARD TABLE OF waRm.

DATA: matType LIKE mara-mtart,
     plndate(3)  TYPE C, "marc-plifz.
     stdprice(12) TYPE C, "mbew-stprs
     priceunt(5) TYPE C, "mbew-peinh
     ok_code LIKE sy-ucomm.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
 PARAMETER werks LIKE marc-werks DEFAULT '1000' OBLIGATORY.
 PARAMETER lgort LIKE mard-lgort OBLIGATORY.
 PARAMETER maktx LIKE makt-maktx OBLIGATORY.
 PARAMETER meins LIKE mara-meins OBLIGATORY.
 PARAMETER matkl LIKE mara-matkl OBLIGATORY.
 PARAMETER extwg LIKE mara-extwg OBLIGATORY.
 PARAMETER ekwsl LIKE mara-ekwsl OBLIGATORY.
 PARAMETER j_3apgnr LIKE mara-j_3apgnr OBLIGATORY.
 PARAMETER peinh LIKE mbew-peinh DEFAULT '1' OBLIGATORY.
 PARAMETER stprs LIKE mbew-stprs OBLIGATORY.
 PARAMETER losgr LIKE marc-losgr DEFAULT '1000' OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
 PARAMETERS yfab  RADIOBUTTON GROUP GR1 USER-COMMAND ACT DEFAULT 'X'.
 PARAMETERS yacc  RADIOBUTTON GROUP GR1.
 PARAMETERS ypak  RADIOBUTTON GROUP GR1.
SELECTION-SCREEN END OF BLOCK b1.

*SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
**
*SELECTION-SCREEN END OF BLOCK b2 .

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
 PARAMETER zeinr LIKE mara-zeinr.
 PARAMETER j_3afcc LIKE mara-j_3afcc MODIF ID A.
 PARAMETER j_3acol LIKE mara-j_3acol MODIF ID A.
 PARAMETER plifz LIKE marc-plifz .
 PARAMETER j_4kcsgr LIKE mara-j_4kcsgr .
 PARAMETER land1 LIKE t005-land1.
SELECTION-SCREEN END OF BLOCK b3 .

AT SELECTION-SCREEN.
 ok_code = sy-ucomm.

AT SELECTION-SCREEN OUTPUT.
 LOOP AT screen.
   IF yfab = 'X'.
     IF screen-group1 = 'B'.
       screen-active = 0.
     ENDIF.
   ELSEIF yacc = 'X' OR ypak = 'X'.
     IF screen-group1 = 'A'.
       screen-active = 0.
     ENDIF.
   ENDIF.
   MODIFY screen.
 ENDLOOP.


START-OF-SELECTION.

 CLEAR: matType, plndate, stdprice, priceunt.

 IF yfab = 'X'.
   matType = 'ZFAB'.
 ELSEIF yacc = 'X'.
   matType = 'ZACC'.
 ELSEIF ypak = 'X'.
   matType = 'ZPAK'.
 ENDIF.

 plndate  = plifz.
 stdprice = stprs.
 priceunt = peinh.

 perform bdc_dynpro      using 'SAPLMGMM' '0060'.
 perform bdc_field       using 'BDC_OKCODE'  '=ENTR'.
 perform bdc_field       using 'RMMG1-MBRSH'  'F'.
 perform bdc_field       using 'RMMG1-MTART'  matType.

 IF matType = 'ZFAB'.
   perform bdc_dynpro      using 'SAPLMGMM' '0070'.
   perform bdc_field       using 'BDC_OKCODE'  '/00'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(02)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(03)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(05)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(08)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(09)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(10)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(11)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(12)'  'X'.

   PERFORM bdc_field       USING 'BDC_OKCODE' '=P+'.
   perform bdc_dynpro      using 'SAPLMGMM' '0070'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(02)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(03)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(04)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(05)'  'X'.
   perform bdc_field       using 'BDC_OKCODE'  '=ENTR'.
 ELSEIF matType = 'ZACC' OR matType = 'ZPAK'.
   perform bdc_dynpro      using 'SAPLMGMM' '0070'.
   perform bdc_field       using 'BDC_OKCODE'  '/00'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(02)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(03)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(05)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(08)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(09)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(10)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(11)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(12)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(15)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(16)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(17)'  'X'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(18)'  'X'.

   PERFORM bdc_field       USING 'BDC_OKCODE' '=P+'.
   perform bdc_dynpro      using 'SAPLMGMM' '0070'.
   perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'  'X'.
   perform bdc_field       using 'BDC_OKCODE'  '=ENTR'.
 ENDIF.
* Organizational Level
 perform bdc_dynpro      using 'SAPLMGMM' '0080'.
 perform bdc_field       using 'BDC_OKCODE'  '=ENTR'.
 perform bdc_field       using 'RMMG1-WERKS'  werks.
 perform bdc_field       using 'RMMG1-LGORT'  lgort.
* Basic Data 1
 perform bdc_dynpro      using 'SAPLMGMM' '4004'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARA-MEINS'  meins.
 perform bdc_field       using 'MARA-MATKL'  matkl.
 perform bdc_field       using 'MARA-EXTWG'  extwg.
* Basic Data 2
 perform bdc_dynpro      using 'SAPLMGMM' '4004'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARA-ZEINR'  zeinr.
 perform bdc_field       using 'MARA-J_3AFCC'  j_3afcc.
* AFS Basic Data
 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '=AFSSTAT'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARA-J_3APGNR'  j_3apgnr.
 perform bdc_field       using 'MARA-J_3ACOL'  j_3acol.
 IF j_3apgnr <> 'NO GRID'.
   perform bdc_field       using 'MARA-J_3ANOGRID'  ''.
 ELSE.
   perform bdc_field       using 'MARA-J_3ANOGRID'  'X'.
 ENDIF.
 perform bdc_field       using 'MARA-J_4KCSGR'  j_4kcsgr.
 perform bdc_field       using 'MARA-J_4KCOVSA'  j_4kcsgr.
 perform bdc_field       using 'MARA-MEINS'  meins.

 perform bdc_dynpro      using 'SAPLSPO1' '0300'.
 perform bdc_field       using 'BDC_OKCODE'  '=YES'.

 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 IF j_3apgnr <> 'NO GRID'.
   perform bdc_field       using 'MARA-J_3ANOGRID'  ''.
 ELSE.
   perform bdc_field       using 'MARA-J_3ANOGRID'  'X'.
 ENDIF.
 perform bdc_field       using 'MARA-MEINS'  meins.

 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
* Purchasing
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARA-MEINS'  meins.
 perform bdc_field       using 'MARA-MATKL'  matkl.
 perform bdc_field       using 'MARA-EKWSL'  '2'.
* MRP 1
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARA-MEINS'  meins.
 perform bdc_field       using 'MARC-DISMM'  'PD'.
 perform bdc_field       using 'MARC-DISPO'  '100'.
 perform bdc_field       using 'MARC-DISLS'  'EX'.
* MRP 2
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARC-SOBSL'  '80'.
 perform bdc_field       using 'MARC-PLIFZ'  plndate.
 perform bdc_field       using 'MARC-FHORI'  '000'.
* MRP 3
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARC-PERKZ'  'M'.
 perform bdc_field       using 'MARC-MTVFP'  '02'.
* MRP 4
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
* AFS MRP
 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '=AFSSTATC'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARC-J_3ADISPKZ'  'N'.
 perform bdc_field       using 'MARC-J_3ACHINT'  'X'.
 perform bdc_field       using 'MARC-XCHPF'  'X'.

 perform bdc_dynpro      using 'SAPLSPO1' '0300'.
 perform bdc_field       using 'BDC_OKCODE'  '=YES'.

 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARC-J_3ADISPKZ'  'N'.
 perform bdc_field       using 'MARC-XCHPF'  'X'.

 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.

 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.

 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
* Accounting 1
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARA-MEINS'  meins.
 perform bdc_field       using 'MBEW-PEINH'  priceunt.
 perform bdc_field       using 'MBEW-STPRS'  stdprice.
* Accounting 2
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
* AFS Valuation
 perform bdc_dynpro      using 'SAPLMGMM' '4030'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARC-J_4KDEFSC'  land1.
* Costing 1
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MARA-MEINS'  meins.
 perform bdc_field       using 'MARC-NCOST'  'X'.
 perform bdc_field       using 'MBEW-HKMAT'  'X'.
 perform bdc_field       using 'MARC-PRCTR'  matkl.
 perform bdc_field       using 'MARC-LOSGR'  '1000'.
* Costing 2
 perform bdc_dynpro      using 'SAPLMGMM' '4000'.
 perform bdc_field       using 'BDC_OKCODE'  '/00'.
 perform bdc_field       using 'MAKT-MAKTX'  maktx.
 perform bdc_field       using 'MBEW-PEINH'  priceunt.
 perform bdc_field       using 'MBEW-STPRS'  stdprice.

 perform bdc_dynpro      using 'SAPLSPO1' '0300'.
 perform bdc_field       using 'BDC_OKCODE'  '=YES'.

 CALL TRANSACTION 'MM01' USING bdcdata MODE 'E' UPDATE 'S'.
 REFRESH bdcdata.
 CLEAR: lgort, maktx, meins, matkl, extwg, ekwsl, j_3apgnr,
        plifz, stprs, j_4kcsgr, land1.

*---------------------------------------------------------------------*
*       FORM BDC_DYNPRO                                               *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  PROGRAM                                                       *
*  -->  DYNPRO                                                        *
*---------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
 CLEAR bdcdata.
 bdcdata-program  = program.
 bdcdata-dynpro   = dynpro.
 bdcdata-dynbegin = 'X'.
 APPEND bdcdata.
ENDFORM.                    " BDC_DYNPRO

*---------------------------------------------------------------------*
*       FORM BDC_FIELD                                                *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  FNAM                                                          *
*  -->  FVAL                                                          *
*---------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
 CLEAR bdcdata.
 bdcdata-fnam = fnam.
 bdcdata-fval = fval.
 APPEND bdcdata.
ENDFORM.

Posted by SANJU

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)

Blog Archive