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

user exit in ob28

Former Member

‎2010 Sep 08 11:24 AM

0 Likes
684

DATA : BEGIN OF T_BSIK OCCURS 0,

UMSKZ TYPE BSIK-UMSKZ,

SHKZG TYPE BSIK-SHKZG,

WRBTR TYPE BSIK-WRBTR,

END OF T_BSIK.

DATA : BEGIN OF T_BSAK OCCURS 0,

UMSKZ TYPE BSAK-UMSKZ,

SHKZG TYPE BSAK-SHKZG,

WRBTR TYPE BSAK-WRBTR,

END OF T_BSAK.

DATA : BEGIN OF T_EKBE OCCURS 0,

EBELN TYPE EKBE-EBELN,

BEWTP TYPE EKBE-BEWTP,

WRBTR TYPE EKBE-WRBTR,

SHKZG TYPE EKBE-SHKZG,

END OF T_EKBE.

DATA : BEGIN OF T_EKPO OCCURS 0,

EBELN TYPE EKPO-EBELN,

NETWR TYPE EKPO-NETWR,

END OF T_EKPO.

CLEAR W_WRBTR_BSIK.

CLEAR W_WRBTR_BSAK.

CLEAR W_WRBTR_BSAK1.

CLEAR W_WRBTR_BSAK2.

CLEAR W_WRBTR_EKBE.

CLEAR W_WRBTR_ALL.

CLEAR W_WRBTR_EKPO.

SELECT UMSKZ SHKZG WRBTR INTO TABLE T_BSIK FROM BSIK WHERE EBELN = BSEG-EBELN

AND BUKRS = BKPF-BUKRS AND UMSKZ = 'F'.

LOOP AT T_BSIK WHERE SHKZG = 'H'.

W_WRBTR_BSIK = W_WRBTR_BSIK + T_BSIK-WRBTR.

ENDLOOP.

SELECT UMSKZ SHKZG WRBTR INTO TABLE T_BSAK FROM BSAK WHERE EBELN = BSEG-EBELN

AND BUKRS = BKPF-BUKRS AND UMSKZ <> 'F'.

LOOP AT T_BSAK WHERE UMSKZ <> ''.

IF T_BSAK-SHKZG = 'H'.

W_WRBTR_BSAK = W_WRBTR_BSAK + T_BSAK-WRBTR.

ELSEIF T_BSAK-SHKZG = 'S'.

W_WRBTR_BSAK1 = W_WRBTR_BSAK1 + T_BSAK-WRBTR.

ENDIF.

ENDLOOP.

W_WRBTR_BSAK2 = W_WRBTR_BSAK - W_WRBTR_BSAK1.

SELECT EBELN BEWTP WRBTR SHKZG INTO TABLE T_EKBE FROM EKBE WHERE EBELN = BSEG-EBELN AND BEWTP IN ('Q','E').

LOOP AT T_EKBE.

IF T_EKBE-SHKZG = 'H'.

W_WRBTR_EKBE = W_WRBTR_EKBE + T_EKBE-WRBTR.

ELSEIF T_EKBE-SHKZG = 'S'.

W_WRBTR_EKBE1 = W_WRBTR_EKBE1 + T_EKBE-WRBTR.

ENDIF.

ENDLOOP.

W_WRBTR_EKBE2 = W_WRBTR_EKBE1 + W_WRBTR_EKBE.

SELECT EBELN NETWR INTO TABLE T_EKPO FROM EKPO WHERE EBELN = BSEG-EBELN AND BUKRS = BKPF-BUKRS.

W_WRBTR_ALL = W_WRBTR_BSIK + W_WRBTR_BSAK2 + W_WRBTR_EKBE2 + BSEG-WRBTR.

LOOP AT T_EKPO .

W_WRBTR_EKPO = W_WRBTR_EKPO + T_EKPO-NETWR.

ENDLOOP.

IF W_WRBTR_ALL > W_WRBTR_EKPO.

B_RESULT = B_FALSE.

ELSE.

B_RESULT = B_TRUE.

ENDIF.

i have used this code for exit in ob28 for transaction code f-47. but when i use the t-code f-47 the system is going very slow.how can i improve the performance. plz any one advice me.

DATA : BEGIN OF T_BSIK OCCURS 0,

UMSKZ TYPE BSIK-UMSKZ,

SHKZG TYPE BSIK-SHKZG,

WRBTR TYPE BSIK-WRBTR,

END OF T_BSIK.

DATA : BEGIN OF T_BSAK OCCURS 0,

UMSKZ TYPE BSAK-UMSKZ,

SHKZG TYPE BSAK-SHKZG,

WRBTR TYPE BSAK-WRBTR,

END OF T_BSAK.

DATA : BEGIN OF T_EKBE OCCURS 0,

EBELN TYPE EKBE-EBELN,

BEWTP TYPE EKBE-BEWTP,

WRBTR TYPE EKBE-WRBTR,

SHKZG TYPE EKBE-SHKZG,

END OF T_EKBE.

DATA : BEGIN OF T_EKPO OCCURS 0,

EBELN TYPE EKPO-EBELN,

NETWR TYPE EKPO-NETWR,

END OF T_EKPO.

CLEAR W_WRBTR_BSIK.

CLEAR W_WRBTR_BSAK.

CLEAR W_WRBTR_BSAK1.

CLEAR W_WRBTR_BSAK2.

CLEAR W_WRBTR_EKBE.

CLEAR W_WRBTR_ALL.

CLEAR W_WRBTR_EKPO.

SELECT UMSKZ SHKZG WRBTR INTO TABLE T_BSIK FROM BSIK WHERE EBELN = BSEG-EBELN

AND BUKRS = BKPF-BUKRS AND UMSKZ = 'F'.

LOOP AT T_BSIK WHERE SHKZG = 'H'.

W_WRBTR_BSIK = W_WRBTR_BSIK + T_BSIK-WRBTR.

ENDLOOP.

SELECT UMSKZ SHKZG WRBTR INTO TABLE T_BSAK FROM BSAK WHERE EBELN = BSEG-EBELN

AND BUKRS = BKPF-BUKRS AND UMSKZ <> 'F'.

LOOP AT T_BSAK WHERE UMSKZ <> ''.

IF T_BSAK-SHKZG = 'H'.

W_WRBTR_BSAK = W_WRBTR_BSAK + T_BSAK-WRBTR.

ELSEIF T_BSAK-SHKZG = 'S'.

W_WRBTR_BSAK1 = W_WRBTR_BSAK1 + T_BSAK-WRBTR.

ENDIF.

ENDLOOP.

W_WRBTR_BSAK2 = W_WRBTR_BSAK - W_WRBTR_BSAK1.

SELECT EBELN BEWTP WRBTR SHKZG INTO TABLE T_EKBE FROM EKBE WHERE EBELN = BSEG-EBELN AND BEWTP IN ('Q','E').

LOOP AT T_EKBE.

IF T_EKBE-SHKZG = 'H'.

W_WRBTR_EKBE = W_WRBTR_EKBE + T_EKBE-WRBTR.

ELSEIF T_EKBE-SHKZG = 'S'.

W_WRBTR_EKBE1 = W_WRBTR_EKBE1 + T_EKBE-WRBTR.

ENDIF.

ENDLOOP.

W_WRBTR_EKBE2 = W_WRBTR_EKBE1 + W_WRBTR_EKBE.

SELECT EBELN NETWR INTO TABLE T_EKPO FROM EKPO WHERE EBELN = BSEG-EBELN AND BUKRS = BKPF-BUKRS.

W_WRBTR_ALL = W_WRBTR_BSIK + W_WRBTR_BSAK2 + W_WRBTR_EKBE2 + BSEG-WRBTR.

LOOP AT T_EKPO .

W_WRBTR_EKPO = W_WRBTR_EKPO + T_EKPO-NETWR.

ENDLOOP.

IF W_WRBTR_ALL > W_WRBTR_EKPO.

B_RESULT = B_FALSE.

ELSE.

B_RESULT = B_TRUE.

ENDIF.

i have used this code for exit in ob28 for transaction code f-47. but when i use the t-code f-47 the system is going very slow.how can i improve the performance. plz any one advice me.

Reply
2 REPLIES 2
Read only

Former Member

‎2010 Sep 08 11:56 AM

0 Likes
602

Hi

Please enclose the code using the markup possibilities provided. Its very tough to understand you code. However I have formatted your code & found some flaws in your code. They are as below :-



SELECT UMSKZ 
       SHKZG
       WRBTR 
       INTO TABLE T_BSIK 
       FROM BSIK 
       WHERE EBELN = BSEG-EBELN 
       AND BUKRS = BKPF-BUKRS 
       AND UMSKZ = 'F'.

In the where clause you have passed three fields EBELN , BUKRS & UMSKZ here except EBELN other are key fields & they are not in the sequence as they are in database. Amend it as follows:-



SELECT UMSKZ 
        SHKZG
        WRBTR 
        INTO TABLE T_BSIK 
       FROM BSIK 
       WHERE  BUKRS = BKPF-BUKRS 
       AND UMSKZ = 'F'.
      AND EBELN = BSEG-EBELN .

Check the same for other queries also. Also in the above query you are passing the key field make sure they have values.

Regards

Abhii

Read only

Former Member

‎2010 Sep 08 2:30 PM

0 Likes
602

Moderator message - Please see before posting - post locked Rob