BAPI for CJ30

[william_andradebatista]

Hello Experts!!!

I am an ABAP developer and I need 2 BAPI:

1 for read data from CJ30 or budget of a project

1 to save data in CJ30 or modified budget of a project

Can anyone help me?

Very thanks in advance and regards

[Former Member · Accepted solution]

Check out the note

Note 625613 - Interface for overall planning and budgeting

Regards

Sreenivas

[william_andradebatista · Accepted solution]

Thanks Sreenivas!!

but this FM just write data for CJ30... but for me, more important at this time is READ data from CJ30...

Regards

[Former Member · Accepted solution]

Hi,

Pls see BAPI_BUS2054_GETDATA. I think u have to make Z functional Module using this and get budget value in User field .

regards,

Amit

Edited by: Amit More on Mar 26, 2009 4:43 PM

[william_andradebatista · Accepted solution]

First of all, thanks Amit!!!

I knew this FM, but the field WERT1 doesn't appear and its values it is what I need

Thanks and Regards

[Former Member · Accepted solution]

Hi all,

is there any BAPI for cost element planning.

thnx in adv.

ashis

[william_andradebatista]

People,

E solved in another way(via ABAP), because I was intended to validate data (according to user authorization) on CJ30, CJ32, CJ37and CJ38... I was wondering create a Z program to simulate these transactions and that is why I was looking for a FM to read(field WERT1) and write to...

The solution to whom interest is:

$$ Exit : EXIT_SAPLCNAU_002 $$

$$ Project : ZPS0000 $$

$$ Enhancement : CNEX0002 $$

$$ -

-

---

$$

*&----

---

*

*& Include ZXCN1U06 *

*&----

---

*

• declaração de dados para tratamento das transações CJ30, CJ32, CJ37, CJ38

DATA: tvarvc TYPE tvarvc.

DATA: v_text(40) TYPE c.

DATA: i_tget_exp LIKE bpge_id.

DATA: li_qtdreg TYPE i.

FIELD-SYMBOLS: TO i_tget_exp.

• Export to class ZCL_IM__IM_BEHAVIOUR

EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.

EXIT.

ENDIF.

WHEN 'CJ37'.

IF TO i_tget_exp.

• Export to class ZCL_IM__IM_BEHAVIOUR

EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.

EXIT.

ELSEIF sy-tabix = li_qtdreg.

READ TABLE TO i_tget_exp.

CLEAR: i_tget_exp-wtges.

• Export to class ZCL_IM__IM_BEHAVIOUR

EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.

ENDIF.

WHEN 'CJ38'.

IF TO i_tget_exp.

• Export to class ZCL_IM__IM_BEHAVIOUR

EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.

EXIT.

ELSEIF sy-tabix = li_qtdreg.

READ TABLE TO i_tget_exp.

CLEAR: i_tget_exp-wtges.

• Export to class ZCL_IM__IM_BEHAVIOUR

EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.

ENDIF.

ENDCASE.

ENDLOOP.

ENDIF.

-

-

---

$$ Class : ZCL_IM__IM_BEHAVIOUR $$

$$ BAdI : IM_BEHAVIOUR $$

$$ Implementation : Z_IM_BEHAVIOUR $$

METHOD if_ex_im_behaviour~get_behaviour .

• Declaração de dados para implementação das transações CJ30, CJ32,

• CJ38 e

DATA: tvarvc TYPE tvarvc.

DATA: v_text(40) TYPE c.

DATA: i_tget_exp TYPE bpge_id.

FIELD-SYMBOLS: TYPE bpge_id.

IF sy-tcode EQ 'CJ30' OR

sy-tcode EQ 'CJ32' OR

sy-tcode EQ 'CJ37' OR

sy-tcode EQ 'CJ38'.

• Import da EXIT_SAPLCNAU_002

IMPORT i_tget_exp TO i_tget_exp FROM MEMORY ID 'i_tget_exp'.

v_text = '(SAPLKBPP)T_GE[]'.

ASSIGN (v_text) TO -epos = 'X'.

• Conditions CJ30

IF ( sy-tcode = 'CJ30' AND -wtges NE i_tget_exp-wtges AND

i_tget_exp-objnr IS INITIAL ) )

• Conditions CJ32

OR ( sy-tcode = 'CJ32' AND -vorga = '*ADD' )

• Conditions CJ37

OR ( sy-tcode = 'CJ37' AND -wtges NE i_tget_exp-wtges )

• Conditions CJ38

OR ( sy-tcode = 'CJ38' AND -wtges NE i_tget_exp-wtges ).

SELECT SINGLE *

FROM tvarvc

INTO tvarvc

WHERE name = 'PS_CONT_ORC_N1'

AND low = sy-uname.

IF sy-subrc NE 0.

MESSAGE ID 'ZPS' TYPE 'E' NUMBER '117' WITH sy-uname.

ENDIF.

ENDIF.

ENDIF.

ENDLOOP.

ENDIF. " Fim CJ30, CJ32, CJ37 e CJ38

ENDIF.