Skip to Content
0
Former Member
May 16, 2008 at 06:38 AM

error in report during the activation

40 Views

HI gurus,

can any body help me solving this problem.during the activating the program i am getting problem.

REPORT ZSD_RDD0028_DELIVERY_OOP .

&----


*& STRUCTURE DECLARATION OF LIKP *

*& *

&----


TYPES : BEGIN OF TY_LIKP,

VBELN TYPE VBELN_VL, "Delivery NO"

VKORG TYPE VKORG, "Sales Organization"

LFART TYPE LFART, "Delivery Type"

KUNNR TYPE KUNNR, "Ship-To Party"

END OF TY_LIKP,

*STRUCTURE DECLARATION OF LIPS TABLE

BEGIN OF TY_LIPS,

VBELN TYPE VBELN_VL, "Delivery"

POSNR TYPE POSNR_VL, "Delivery item"

MATNR TYPE MATNR, "Material Number"

END OF TY_LIPS,

*STRUCTURE DECLARATION OF KNA1 TABLE

BEGIN OF TY_KNA1,

KUNNR TYPE KUNNR, "Ship-To Party"

NAME1 TYPE NAME1, "NAME"

ORT01 TYPE ORT01, "CITY"

PSTLZ TYPE PSTLZ, "POSTAL CODE"

END OF TY_KNA1,

  • STRUCTURE DECLARATION OF FINAL OUTPUT

BEGIN OF TY_OUTPUT,

VBELN TYPE VBELN_VL,

VKORG TYPE VKORG,

LFART TYPE LFART,

KUNNR TYPE KUNNR,

POSNR TYPE POSNR_VL,

MATNR TYPE MATNR,

NAME1 TYPE NAME1,

ORT01 TYPE ORT01,

PSTLZ TYPE PSTLZ,

END OF TY_OUTPUT.

  • INTERNAL TABLE DECLARATION FOR LIKP

DATA : T_LIKP TYPE STANDARD TABLE OF TY_LIKP INITIAL SIZE 0,

  • INTERNAL TABLE DECLARATION FOR LIPS

T_LIPS TYPE STANDARD TABLE OF TY_LIPS INITIAL SIZE 0,

  • INTERNAL TABLE DECLARATION FOR KNA1

T_KNA1 TYPE STANDARD TABLE OF TY_KNA1 INITIAL SIZE 0,

  • INTERNAL TABLE DECLARATION FOR OUTPUT.

T_OUTPUT TYPE STANDARD TABLE OF TY_OUTPUT INITIAL SIZE 0,

  • WORK-AREA DECLARATION FOR LIKP.

W_LIKP TYPE TY_LIKP,

  • WORK-AREA DECLARATION FOR LIPS.

W_LIPS TYPE TY_LIPS,

  • WORK-AREA DECLARATION FOR KNA1.

W_KNA1 TYPE TY_KNA1,

  • WORK-AREA DECLARATION FOR OUTPUT.

W_OUTPUT TYPE TY_OUTPUT,

  • DECLARATION OF CLASS.

G_MAIN TYPE REF TO ZCL_GET_SALES_DATA,

G_VBELN TYPE LIKP-VBELN.

  • SELECTION-SCREEN DECLARATION.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME .

SELECT-OPTIONS : S_VBELN FOR G_VBELN .

SELECTION-SCREEN END OF BLOCK B1.

PARAMETERS : P_R1 as CHECKBOX .

  • INITIALIZATION.

INITIALIZATION.

  • CLEAR WORKAREA AND INTERNAL TABLE

CLEAR : W_LIKP ,

W_LIPS ,

W_OUTPUT,

W_KNA1 .

  • REFRESH WORK AREA AND INTERNAL TABLE

REFRESH : T_LIKP,

T_LIPS ,

T_OUTPUT,

T_KNA1 .

*==================

  • AT SELECTION-SCREEN

*----


AT SELECTION-SCREEN.

  • START-OF-SELECTION.

START-OF-SELECTION.

  • CREATING THE OBJECT FOR THE CLASS.

CREATE OBJECT G_MAIN.

  • GET THE LIKP DATA.

CALL METHOD G_MAIN->GET_LIKP

EXPORTING

VBELN_LOW = 'S_VBELN-LOW'

VBELN_HIGH = 'S_VBELN-HIGH'

CHANGING

T_LIKP = 'T_LIKP'.

  • GET THE LIPS DATA.

CALL METHOD G_MAIN->GET_LIPS

EXPORTING

T_LIKP = 'T_LIKP'

CHANGING

T_LIPS = 'T_LIPS'.

  • GET THE KNA1 DATA.

CALL METHOD G_MAIN->GET_KNA1

EXPORTING

T_LIKP = 'T_LIKP'

CHANGING

T_KNA1 = 'T_KNA1'.

*DISPLAY THE DATA .

PERFORM SUB_DISP_DATA.

&----


*& Form SUB_DISP_DATA

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_DISP_DATA .

LOOP AT T_LIPS INTO W_LIPS.

CLEAR W_LIKP.

READ TABLE T_LIKP INTO W_LIKP WITH KEY VBELN = W_LIKP-VBELN.

CLEAR W_KNA1.

READ TABLE T_KNA1 INTO W_KNA1 WITH KEY KUNNR = W_LIKP-KUNNR.

WRITE :/ W_LIPS-VBELN,

W_LIPS-POSNR,

W_LIKP-VKORG,

W_LIKP-KUNNR,

W_KNA1-NAME1,

W_KNA1-ORT01,

W_LIPS-NTGEW.

ENDLOOP.

ENDFORM. " SUB_DISP_DATA