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
Showing results for 
Search instead for 
Did you mean: 
Read only

Table or FM to get released information

Former Member
0 Likes
2,879

Hello, I wnat to get realsed information, (Which is the person pending to authorization?) I wnat to get this information:

http://s24.postimg.org/wqm5ppzk5/Captura.png

Anyone knows where can I find this information?

Regards

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
2,514

Hello, I did solved my problem,

Here my solution:

Go to Ekko with EBELN and Get the field:

FRGSX <- Rel. Strategy

   FRGGR  <-    Release group

FRGZU  <- Release status

Then

SELECT SINGLE * FROM T16FS

      INTO WA_T16FS

      WHERE FRGSX EQ WA_ALV-FRGSX

      AND FRGGR EQ WA_ALV-FRGGR.

         IF wa_alv-frgke EQ '0'.

           v_cant_lib = 0.

           v_cant_lib = strlen( wa_alv-frgzu ).

*           IF WA_ALV-FRGGR = 'VR' .

               CASE v_cant_lib.

             WHEN 0.

              v_cod_lib = WA_T16FS-FRGC1.

             WHEN 1.

               v_cod_lib = WA_T16FS-FRGC2.

            WHEN 2.

              v_cod_lib = WA_T16FS-FRGC3.

             WHEN 3.

             v_cod_lib = WA_T16FS-FRGC4.

            WHEN 4.

             v_cod_lib = WA_T16FS-FRGC5.

             WHEN 5.

              v_cod_lib = WA_T16FS-FRGC6.

            WHEN 6.

             v_cod_lib = WA_T16FS-FRGC7.

             WHEN 7.

              v_cod_lib = WA_T16FS-FRGC8.

              ENDCASE.

           READ TABLE it_t16 INTO wa_t16

             WITH KEY frggr = wa_alv-frggr

                      frgco = v_cod_lib.

           IF sy-subrc = 0.

             wa_alv-frgct = wa_t16-frgct.

           ENDIF.

         ELSEIF wa_alv-frgke EQ '5' or

                wa_alv-frgke EQ '6'.

           wa_alv-frgct = "Total released'.

         ELSEIF wa_alv-frgke IS INITIAL.

           wa_alv-frgct = 'Without Strategy'.

         ENDIF.

         MODIFY IT_ALV FROM WA_ALV TRANSPORTING OBMNG ZTER2 ERNAMT DATVR UDATE FRGCT.

ENDLOOP.


Thanks all and regards

7 REPLIES 7
Read only

Former Member
0 Likes
2,514

Hello,

I am unable to view the screen shot! can you please attach it in another way!

Read only

Former Member
0 Likes
2,514

Could you let us know the transaction code being used?

Pasting a screenshot in English language would help in getting accurate replies.

Read only

0 Likes
2,513

ME23N

Read only

Former Member
0 Likes
2,513

Fields are in table EKKO starting with FRG- SX for strategy and FRG-ZU for Releasestatus. Another important field in EKKO is procstat. Look at F4-help for the field.

Read only

0 Likes
2,513

Hello, Thanks for information, but I want to know how is the person pending for autorization? (yellow triangle) for this example the person pending for autorization is "Sub-Director Planta"  (yellow triangle)

Do you know which table I need to see this information?

Regards

Read only

0 Likes
2,513

I believe you would be getting it from   Class

CL_PO_HEADER_HANDLE_MM  Interface/method :

IF_RELEASABLE_MM~GET_RESPONSIBLE

this in turn calls the FM ME_REL_GET_RESPONSIBLE_EKKO

Regards

Ram

Message was edited by: Ramachandran Rakhunathan

Read only

Former Member
0 Likes
2,515

Hello, I did solved my problem,

Here my solution:

Go to Ekko with EBELN and Get the field:

FRGSX <- Rel. Strategy

   FRGGR  <-    Release group

FRGZU  <- Release status

Then

SELECT SINGLE * FROM T16FS

      INTO WA_T16FS

      WHERE FRGSX EQ WA_ALV-FRGSX

      AND FRGGR EQ WA_ALV-FRGGR.

         IF wa_alv-frgke EQ '0'.

           v_cant_lib = 0.

           v_cant_lib = strlen( wa_alv-frgzu ).

*           IF WA_ALV-FRGGR = 'VR' .

               CASE v_cant_lib.

             WHEN 0.

              v_cod_lib = WA_T16FS-FRGC1.

             WHEN 1.

               v_cod_lib = WA_T16FS-FRGC2.

            WHEN 2.

              v_cod_lib = WA_T16FS-FRGC3.

             WHEN 3.

             v_cod_lib = WA_T16FS-FRGC4.

            WHEN 4.

             v_cod_lib = WA_T16FS-FRGC5.

             WHEN 5.

              v_cod_lib = WA_T16FS-FRGC6.

            WHEN 6.

             v_cod_lib = WA_T16FS-FRGC7.

             WHEN 7.

              v_cod_lib = WA_T16FS-FRGC8.

              ENDCASE.

           READ TABLE it_t16 INTO wa_t16

             WITH KEY frggr = wa_alv-frggr

                      frgco = v_cod_lib.

           IF sy-subrc = 0.

             wa_alv-frgct = wa_t16-frgct.

           ENDIF.

         ELSEIF wa_alv-frgke EQ '5' or

                wa_alv-frgke EQ '6'.

           wa_alv-frgct = "Total released'.

         ELSEIF wa_alv-frgke IS INITIAL.

           wa_alv-frgct = 'Without Strategy'.

         ENDIF.

         MODIFY IT_ALV FROM WA_ALV TRANSPORTING OBMNG ZTER2 ERNAMT DATVR UDATE FRGCT.

ENDLOOP.


Thanks all and regards