Skip to Content
0
Former Member
Sep 10, 2007 at 06:32 AM

REPORT

28 Views

hi experts,

m sendin u the code...its not workin..plz help me out.

REPORT ZFI_R_RAMAN .

DATA: BEGIN OF ITAB OCCURS 0,

ORDER TYPE C,

MAT TYPE C,

CD TYPE C,

QTY TYPE C,

CQUAN TYPE C,

DQUAN TYPE C,

CRATE TYPE C,

DRATE TYPE C,

SUM TYPE P DECIMALS 2,

RATE TYPE P DECIMALS 3,

END OF ITAB.

DATA: WCREDIT LIKE ITAB-QTY,

WDEBIT LIKE ITAB-QTY,

WACREDIT LIKE ITAB-RATE,

WADEBIT LIKE ITAB-RATE.

ITAB-ORDER = '01'.

ITAB-MAT = 'MA'.

ITAB-CD = 'H'.

ITAB-QTY = '2'.

ITAB-RATE = '1.8'.

APPEND ITAB.

ITAB-ORDER = '02'.

ITAB-MAT = 'MA'.

ITAB-CD = 'S'.

ITAB-QTY = '1'.

ITAB-RATE = '1.7'.

APPEND ITAB.

ITAB-ORDER = '03'.

ITAB-MAT = 'MA'.

ITAB-CD = 'H'.

ITAB-QTY = '3'.

ITAB-RATE = '1.8'.

APPEND ITAB.

ITAB-ORDER = '04'.

ITAB-MAT = 'SA'.

ITAB-CD = 'H'.

ITAB-QTY = '4'.

ITAB-RATE = '1.9'.

APPEND ITAB.

ITAB-ORDER = '05'.

ITAB-MAT = 'SA'.

ITAB-CD = 'S'.

ITAB-QTY = '4'.

ITAB-RATE = '20.0'.

APPEND ITAB.

ITAB-ORDER = '06'.

ITAB-MAT = 'MA'.

ITAB-CD = 'S'.

ITAB-QTY = '2'.

ITAB-RATE = '4.0'.

APPEND ITAB.

ITAB-ORDER = '07'.

ITAB-MAT = 'SA'.

ITAB-CD = 'H'.

ITAB-QTY = '3'.

ITAB-RATE = '5.0'.

APPEND ITAB.

ITAB-ORDER = '08'.

ITAB-MAT = 'JA'.

ITAB-CD = 'H'.

ITAB-QTY = '2'.

ITAB-RATE = '1.8'.

APPEND ITAB.

ITAB-ORDER = '09'.

ITAB-MAT = 'JA'.

ITAB-CD = 'S'.

ITAB-QTY = '2'.

ITAB-RATE = '1.8'.

APPEND ITAB.

LOOP AT ITAB.

IF ITAB-CD = 'H'.

WCREDIT = WCREDIT + ITAB-QTY.

WACREDIT = WACREDIT + ITAB-RATE.

ELSEIF ITAB-CD = 'S'.

WDEBIT = WDEBIT + ITAB-QTY.

WADEBIT = WADEBIT + ITAB-RATE.

ENDIF.

ITAB-CQUAN = WCREDIT.

ITAB-DQUAN = WDEBIT.

ITAB-CRATE = WACREDIT.

ITAB-DRATE = WADEBIT.

ITAB-SUM = ITAB-CRATE - ITAB-DRATE.

APPEND ITAB.

CLEAR: WACREDIT,WADEBIT,WCREDIT,WDEBIT.

ENDLOOP.

LOOP AT ITAB.

WRITE:/ ITAB-ORDER,ITAB-CQUAN,ITAB-DQUAN,ITAB-CRATE,ITAB-DRATE,ITAB-SUM.