Go on link..

link us with ...

Thursday, December 30, 2010

Quotation Comparison Statement in MM Module

*&---------------------------------------------------------------------*
*& Report ZVVF_MM_005_QUOTATION *
*& *
*&---------------------------------------------------------------------*
*& Quotation Comparison Statement
*& *
*&---------------------------------------------------------------------*


REPORT ZVVF_MM_005_QUOTATION NO STANDARD PAGE HEADING LINE-COUNT 100 line-size 142 .

TABLES : EKKO , EKPO,esll,eslh,eket.

Data : BEGIN OF IT_HEAD occurs 0,
* EKORG LIKE EKKO-EKORG,
EBELN LIKE EKKO-EBELN,
cnt(3) TYPE N,
* LIFNR LIKE EKKO-LIFNR,
* SUBMI LIKE EKKO-SUBMI,
* MATNR LIKE EKPO-MATNR,
* MAKTX LIKE MAKT-MAKTX,
* NAME1 LIKE LFA1-NAME1,
END OF IT_head.


Data : Begin OF IT_DETAIL occurs 0,
MATNR LIKE EKPO-MATNR,
EKORG LIKE EKKO-EKORG,
SUBMI LIKE EKKO-SUBMI,
MAKTX LIKE MAKT-MAKTX,
MENGE LIKE EKPO-MENGE,
WERKS LIKE EKPO-WERKS,
EKGRP LIKE EKKO-EKGRP,
NAME1 LIKE LFA1-NAME1,
EBELN LIKE EKKO-EBELN,
LIFNR LIKE EKKO-LIFNR,
MATNR_NO(3) TYPE N,
MAT_CNT(3) TYPE N,

BUKRS LIKE EKKO-BUKRS,
WAERS LIKE EKKO-WAERS,
MEINS LIKE EKPO-MEINS,
MTART LIKE EKPO-MTART,
MWSKZ LIKE EKPO-MWSKZ,

END OF IT_DETAIL.
DATA : W_NAME TYPE THEAD-TDNAME.
Data : Begin OF IT_DETAIL1 occurs 0,
MATNR LIKE EKPO-MATNR,
EKORG LIKE EKKO-EKORG,
SUBMI LIKE EKKO-SUBMI,
MAKTX LIKE MAKT-MAKTX,
MENGE LIKE EKPO-MENGE,
WERKS LIKE EKPO-WERKS,
EKGRP LIKE EKKO-EKGRP,

EBELP LIKE EKPO-EBELP,
NETWR LIKE EKPO-NETWR,
AEDAT LIKE EKPO-AEDAT,
BRTWR LIKE EKPO-BRTWR,
MATKL LIKE EKPO-MATKL,

knumv like ekko-knumv,
packno like ekpo-packno,
SUB_PACKNO like esll-SUB_PACKNO,
ktmng like ekpo-ktmng,

knumv_1 like eslh-knumv,
knumv_2 like eslh-knumv,
knumv_3 like eslh-knumv,
knumv_4 like eslh-knumv,
knumv_5 like eslh-knumv,

INTROW_1 LIKE ESLL-INTROW,
INTROW_2 LIKE ESLL-INTROW,
INTROW_3 LIKE ESLL-INTROW,
INTROW_4 LIKE ESLL-INTROW,
INTROW_5 LIKE ESLL-INTROW,

LIFNR_1 LIKE EKKO-LIFNR,
NAME1 LIKE LFA1-NAME1,
EBELN_1 LIKE EKKO-EBELN,

W_BASIC_1 LIKE KONP-KBETR,
W_DISC_1 LIKE KONP-KBETR,
W_DISC_11 LIKE KONP-KBETR,

W_ECSS_1 LIKE KONP-KBETR,
W_EXCISE_1 LIKE KONP-KBETR,
W_INSURANCE1 LIKE KONP-KBETR,
W_FREIGHT_1 LIKE KONP-KBETR,
W_INSCHARGE_1 LIKE KONP-KBETR,
W_OCT_1 LIKE KONP-KBETR,
W_COMM_1 LIKE KONP-KBETR,
W_INST_1 LIKE KONP-KBETR,
W_HAND_1 LIKE KONP-KBETR,
W_PKG_1 LIKE KONP-KBETR,
W_FWD_1 LIKE KONP-KBETR,
W_inco1 LIKE EKKO-inco1,
W_inco11 LIKE EKKO-inco2,



LIFNR_2 LIKE EKKO-LIFNR,
NAME2 LIKE LFA1-NAME1,
EBELN_2 LIKE EKKO-EBELN,
W_BASIC_2 LIKE KONP-KBETR,
W_DISC_2 LIKE KONP-KBETR,
W_DISC_22 LIKE KONP-KBETR,

W_ECSS_2 LIKE KONP-KBETR,
W_EXCISE_2 LIKE KONP-KBETR,
W_INSURANCE2 LIKE KONP-KBETR,
W_FREIGHT_2 LIKE KONP-KBETR,
W_INSCHARGE_2 LIKE KONP-KBETR,
W_OCT_2 LIKE KONP-KBETR,
W_COMM_2 LIKE KONP-KBETR,
W_INST_2 LIKE KONP-KBETR,
W_HAND_2 LIKE KONP-KBETR,
W_PKG_2 LIKE KONP-KBETR,
W_FWD_2 LIKE KONP-KBETR,
W_inco2 LIKE EKKO-inco1,
W_inco22 LIKE EKKO-inco2,



LIFNR_3 LIKE EKKO-LIFNR,
NAME3 LIKE LFA1-NAME1,
EBELN_3 LIKE EKKO-EBELN,
W_BASIC_3 LIKE KONP-KBETR,
W_DISC_3 LIKE KONP-KBETR,
W_DISC_33 LIKE KONP-KBETR,

W_ECSS_3 LIKE KONP-KBETR,
W_EXCISE_3 LIKE KONP-KBETR,
W_INSURANCE3 LIKE KONP-KBETR,
W_FREIGHT_3 LIKE KONP-KBETR,
W_INSCHARGE_3 LIKE KONP-KBETR,
W_OCT_3 LIKE KONP-KBETR,
W_COMM_3 LIKE KONP-KBETR,
W_INST_3 LIKE KONP-KBETR,
W_HAND_3 LIKE KONP-KBETR,
W_PKG_3 LIKE KONP-KBETR,
W_FWD_3 LIKE KONP-KBETR,
W_inco3 LIKE EKKO-inco1,
W_inco33 LIKE EKKO-inco2,



LIFNR_4 LIKE EKKO-LIFNR,
NAME4 LIKE LFA1-NAME1,
EBELN_4 LIKE EKKO-EBELN,
W_BASIC_4 LIKE KONP-KBETR,
W_DISC_4 LIKE KONP-KBETR,
W_DISC_44 LIKE KONP-KBETR,

W_ECSS_4 LIKE KONP-KBETR,
W_EXCISE_4 LIKE KONP-KBETR,
W_INSURANCE4 LIKE KONP-KBETR,
W_FREIGHT_4 LIKE KONP-KBETR,
W_INSCHARGE_4 LIKE KONP-KBETR,
W_OCT_4 LIKE KONP-KBETR,
W_COMM_4 LIKE KONP-KBETR,
W_INST_4 LIKE KONP-KBETR,
W_HAND_4 LIKE KONP-KBETR,
W_PKG_4 LIKE KONP-KBETR,
W_FWD_4 LIKE KONP-KBETR,
W_inco4 LIKE EKKO-inco1,
W_inco44 LIKE EKKO-inco2,


LIFNR_5 LIKE EKKO-LIFNR,
NAME5 LIKE LFA1-NAME1,
EBELN_5 LIKE EKKO-EBELN,
W_BASIC_5 LIKE KONP-KBETR,
W_DISC_5 LIKE KONP-KBETR,
W_DISC_55 LIKE KONP-KBETR,

W_ECSS_5 LIKE KONP-KBETR,
W_EXCISE_5 LIKE KONP-KBETR,
W_INSURANCE5 LIKE KONP-KBETR,
W_FREIGHT_5 LIKE KONP-KBETR,
W_INSCHARGE_5 LIKE KONP-KBETR,
W_OCT_5 LIKE KONP-KBETR,
W_COMM_5 LIKE KONP-KBETR,
W_INST_5 LIKE KONP-KBETR,
W_HAND_5 LIKE KONP-KBETR,
W_PKG_5 LIKE KONP-KBETR,
W_FWD_5 LIKE KONP-KBETR,
W_inco5 LIKE EKKO-inco1,
W_inco55 LIKE EKKO-inco2,



MATNR_NO(3) TYPE N,
MAT_CNT(3) TYPE N,


EXCISE_D1 LIKE KONV-KWERT,
EXCISE_D2 LIKE KONV-KWERT,
EXCISE_D3 LIKE KONV-KWERT,
EXCISE_D4 LIKE KONV-KWERT,
EXCISE_D5 LIKE KONV-KWERT,

ECESS1 LIKE KONV-KWERT,
ECESS2 LIKE KONV-KWERT,
ECESS3 LIKE KONV-KWERT,
ECESS4 LIKE KONV-KWERT,
ECESS5 LIKE KONV-KWERT,

CENTRALST1 LIKE KONV-KWERT,
CENTRALST2 LIKE KONV-KWERT,
CENTRALST3 LIKE KONV-KWERT,
CENTRALST4 LIKE KONV-KWERT,
CENTRALST5 LIKE KONV-KWERT,

LOCALST1 LIKE KONV-KWERT,
LOCALST2 LIKE KONV-KWERT,
LOCALST3 LIKE KONV-KWERT,
LOCALST4 LIKE KONV-KWERT,
LOCALST5 LIKE KONV-KWERT,


SURCHARGE1 LIKE KONV-KWERT,
SURCHARGE2 LIKE KONV-KWERT,
SURCHARGE3 LIKE KONV-KWERT,
SURCHARGE4 LIKE KONV-KWERT,
SURCHARGE5 LIKE KONV-KWERT,

TURNOVERT1 LIKE KONV-KWERT,
TURNOVERT2 LIKE KONV-KWERT,
TURNOVERT3 LIKE KONV-KWERT,
TURNOVERT4 LIKE KONV-KWERT,
TURNOVERT5 LIKE KONV-KWERT,

RESALE1 LIKE KONV-KWERT,
RESALE2 LIKE KONV-KWERT,
RESALE3 LIKE KONV-KWERT,
RESALE4 LIKE KONV-KWERT,
RESALE5 LIKE KONV-KWERT,

**********
STAX1 LIKE KONV-KWERT,
STAX2 LIKE KONV-KWERT,
STAX3 LIKE KONV-KWERT,
STAX4 LIKE KONV-KWERT,
STAX5 LIKE KONV-KWERT,

ESTAX1 LIKE KONV-KWERT,
ESTAX2 LIKE KONV-KWERT,
ESTAX3 LIKE KONV-KWERT,
ESTAX4 LIKE KONV-KWERT,
ESTAX5 LIKE KONV-KWERT,

VATR1 LIKE KONV-KWERT,
VATR2 LIKE KONV-KWERT,
VATR3 LIKE KONV-KWERT,
VATR4 LIKE KONV-KWERT,
VATR5 LIKE KONV-KWERT,


VATRM1 LIKE KONV-KWERT,
VATRM2 LIKE KONV-KWERT,
VATRM3 LIKE KONV-KWERT,
VATRM4 LIKE KONV-KWERT,
VATRM5 LIKE KONV-KWERT,


VATCG1 LIKE KONV-KWERT,
VATCG2 LIKE KONV-KWERT,
VATCG3 LIKE KONV-KWERT,
VATCG4 LIKE KONV-KWERT,
VATCG5 LIKE KONV-KWERT,

VATCGN1 LIKE KONV-KWERT,
VATCGN2 LIKE KONV-KWERT,
VATCGN3 LIKE KONV-KWERT,
VATCGN4 LIKE KONV-KWERT,
VATCGN5 LIKE KONV-KWERT,


APMC1 LIKE KONV-KWERT,
APMC2 LIKE KONV-KWERT,
APMC3 LIKE KONV-KWERT,
APMC4 LIKE KONV-KWERT,
APMC5 LIKE KONV-KWERT,

MIS1 LIKE KONV-KWERT,
MIS2 LIKE KONV-KWERT,
MIS3 LIKE KONV-KWERT,
MIS4 LIKE KONV-KWERT,
MIS5 LIKE KONV-KWERT,

SUP1 LIKE KONV-KWERT,
SUP2 LIKE KONV-KWERT,
SUP3 LIKE KONV-KWERT,
SUP4 LIKE KONV-KWERT,
SUP5 LIKE KONV-KWERT,

PACK1 LIKE KONV-KWERT,
PACK2 LIKE KONV-KWERT,
PACK3 LIKE KONV-KWERT,
PACK4 LIKE KONV-KWERT,
PACK5 LIKE KONV-KWERT,

FOR1 LIKE KONV-KWERT,
FOR2 LIKE KONV-KWERT,
FOR3 LIKE KONV-KWERT,
FOR4 LIKE KONV-KWERT,
FOR5 LIKE KONV-KWERT,

EXP1 LIKE KONV-KWERT,
EXP2 LIKE KONV-KWERT,
EXP3 LIKE KONV-KWERT,
EXP4 LIKE KONV-KWERT,
EXP5 LIKE KONV-KWERT,

tot1 like konv-KSTBS,
tot2 like konv-KSTBS,
tot3 like konv-KSTBS,
tot4 like konv-KSTBS,
tot5 like konv-KSTBS,

deliv_dat1 like eket-eindt,
deliv_dat2 like eket-eindt,
deliv_dat3 like eket-eindt,
deliv_dat4 like eket-eindt,
deliv_dat5 like eket-eindt,

PACK1_R LIKE KONV-KWERT,
PACK2_R LIKE KONV-KWERT,
PACK3_R LIKE KONV-KWERT,
PACK4_R LIKE KONV-KWERT,
PACK5_R LIKE KONV-KWERT,


FOR1_R LIKE KONV-KWERT,
FOR2_R LIKE KONV-KWERT,
FOR3_R LIKE KONV-KWERT,
FOR4_R LIKE KONV-KWERT,
FOR5_R LIKE KONV-KWERT,
KZWI6 LIKE EKPO-KZWI6,
KZWI4 LIKE EKPO-KZWI4,


END OF IT_DETAIL1.
data : w_cnt type i value 1.
DATA : IT_CAL_TAX LIKE TAXCOM OCCURS 0 WITH HEADER LINE.
DATA : WA_KONV TYPE table of TAXCOM with header line.
data : i_konv type table of konp with header line.

data : t_c like konv-KSTBS.

data : begin of it_r occurs 0,
r type i,
tot like konv-kstbs,
r1 type i,
end of it_r.
data : LW_OUTLEN TYPE I.
data : begin of it_range occurs 0,
w_r1 type i,
tot1 like konv-KSTBS,
w_r2 type i,
tot2 like konv-KSTBS,
w_r3 type i,
tot3 like konv-KSTBS,
w_r4 type i,
tot4 like konv-KSTBS,
w_r5 type i,
tot5 like konv-KSTBS,


end of it_range.
DATA : BEGIN OF ST_LINE OCCURS 0,
TDFORMAT LIKE TLINE-TDFORMAT,
TDLINE LIKE TLINE-TDLINE,

END OF ST_LINE.

DATA : W_DESC(255) TYPE C.
DATA : W_DESC1(125) TYPE C.
DATA : W_DESC2(125) TYPE C.
DATA : W_DESC3(125) TYPE C.

data : w_ebp like konh-vakey.
DATA : W_SPECK LIKE TLINE-TDLINE.
data : w_cntt type i.
DATA : IT_CAL_TAX_OUT LIKE KOMV OCCURS 0 WITH HEADER LINE.

DATA : W_CNT1(3) TYPE N.
data : w_tot like konv-kstbs.
SELECTION-SCREEN : BEGIN OF BLOCK MMPARA WITH FRAME TITLE text-002.
PARAMETERS : pa_EKORG LIKE EKKO-EKORG.
* pa_SUBMI LIKE EKKO-SUBMI,
* pa_LIFNR LIKE EKKO-LIFNR,

select-options : so_submi for EKKO-SUBMI.
* so_LIFNR for EKKO-LIFNR,
* so_ebeln for ekko-ebeln,
* SO_MATNR FOR EKPO-MATNR.
SELECTION-SCREEN : END OF BLOCK MMPARA.


START-OF-SELECTION.
PERFORM GET_DATA.

END-OF-SELECTION.
PERFORM DISPLAY_DATA.

TOP-OF-PAGE.
ULINE.
WRITE :/50 'QUOTATION COMPARISON STATEMENT'.
ULINE.

END-OF-PAGE.



*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> pa_banfn Requisition Number
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .
data w_cnt(3) type n.

SELECT EBELN
INTO CORRESPONDING FIELDS OF TABLE IT_HEAD
FROM EKKO
WHERE EKORG = pa_EKORG
and SUBMI in so_SUBMI
* and lifnr in so_lifnr
* and ebeln in so_ebeln
order by ebeln.

loop at it_head.
w_cnt = w_cnt + 1.
it_head-cnt = w_cnt.
modify it_head.
endloop.
clear it_head.
check sy-subrc = 0.

clear it_head.

select EBELN ekgrp LIFNR ekorg submi BUKRS WAERS from ekko
into corresponding fields of TABLE it_detail
for all entries in it_head
where ebeln = it_head-ebeln.


LOOP AT IT_detail.

select single MENGE WERKS MATNR MEINS MWSKZ
into (it_detail-MENGE,IT_DETAIL-WERKS,IT_DETAIL-MATNR,
IT_DETAIL-MEINS,IT_DETAIL-MWSKZ)
from ekpo where ebeln = it_DETAIL-ebeln.



SELECT SINGLE maktx INTO IT_detail-MAktx
FROM makt WHERE matnr = IT_detail-matnr.



MODIFY IT_DETAIL.

ENDLOOP.

SORT IT_DETAIL BY MATNR.
W_CNT = 0.

LOOP AT IT_DETAIL.
AT NEW MATNR.
W_CNT = W_CNT + 1.
W_CNT1 = 0.
ENDAT.
W_CNT1 = W_CNT1 + 1.
IT_DETAIL-MAT_CNT = W_CNT1.
IT_DETAIL-MATNR_NO = W_CNT.
MODIFY IT_DETAIL.
ENDLOOP.

SORT IT_DETAIL BY MATNR.
LOOP AT IT_DETAIL.
ON CHANGE OF IT_DETAIL-MATNR.
MOVE IT_DETAIL-MATNR TO IT_DETAIL1-MATNR.
MOVE IT_DETAIL-EKORG TO IT_DETAIL1-EKORG.
MOVE IT_DETAIL-SUBMI TO IT_DETAIL1-SUBMI.
MOVE IT_DETAIL-MAKTX TO IT_DETAIL1-MAKTX.
MOVE IT_DETAIL-EKGRP TO IT_DETAIL1-EKGRP.
MOVE IT_DETAIL-MATNR_NO TO IT_DETAIL1-MATNR_NO.
MOVE IT_DETAIL-EKORG TO IT_DETAIL1-EKORG.
MOVE IT_DETAIL-SUBMI TO IT_DETAIL1-SUBMI.
MOVE IT_DETAIL-WERKS TO IT_DETAIL1-WERKS.


MOVE IT_DETAIL-BUKRS TO IT_CAL_TAX-BUKRS.
MOVE IT_DETAIL-WAERS TO IT_CAL_TAX-WAERS.
MOVE IT_DETAIL-LIFNR TO IT_CAL_TAX-LIFNR.
MOVE IT_DETAIL-EKORG TO IT_CAL_TAX-EKORG.
MOVE IT_DETAIL-MATNR TO IT_CAL_TAX-MATNR.
MOVE IT_DETAIL-WERKS TO IT_CAL_TAX-WERKS.
MOVE IT_DETAIL-MEINS TO IT_CAL_TAX-MEINS.

APPEND IT_CAL_TAX.
APPEND IT_DETAIL1.
ENDON.
ENDLOOP.

W_CNT = 0.
CLEAR IT_CAL_TAX.
CLEAR IT_DETAIL1.
CLEAR IT_DETAIL.

SORT IT_DETAIL BY MATNR_NO MAT_CNT.
SORT IT_DETAIL BY MATNR_NO.
LOOP AT IT_DETAIL1.
LOOP AT IT_DETAIL WHERE MATNR_NO = IT_DETAIL1-MATNR_NO.
* MOVE IT_DETAIL-LIFNR TO IT_DETAIL1-LIFNR_1.
* MOVE IT_DETAIL-EBELN TO IT_DETAIL1-EBELN_1.
READ TABLE IT_CAL_TAX WITH KEY MATNR = IT_DETAIL-MATNR.
SELECT SINGLE KPOSN INTO IT_CAL_TAX-KPOSN FROM KONV
WHERE LIFNR = IT_DETAIL-LIFNR.

IT_CAL_TAX-SHKZG = 'H'.

SELECT SINGLE AEDAT WAERS LIFNR EKORG EBELN knumv INTO (IT_CAL_TAX-BUDAT,IT_CAL_TAX-WAERS,IT_CAL_TAX-LIFNR,IT_CAL_TAX-EKORG,
IT_CAL_TAX-EBELN,it_detail1-knumv)
FROM EKKO WHERE EKORG = pa_EKORG
and lifnr = IT_DETAIL-lifnr AND
ebeln = IT_DETAIL-ebeln.

select SINGLE EBELP NETpR MENGE MTART MATKL packno ktmng KZWI4 KZWI6 INTO
(IT_CAL_TAX-EBELP,IT_CAL_TAX-WRBTR,IT_CAL_TAX-MGLME,IT_CAL_TAX-MTART,IT_CAL_TAX-MATKL,it_detail1-packno,it_detail1-ktmng,IT_DETAIL1-KZWI4,IT_DETAIL1-KZWI6)
from ekpo where ebeln = it_DETAIL-ebeln AND
MATNR = IT_DETAIL1-MATNR.





CONCATENATE it_cal_tax-EBELN IT_cal_tax-EBELP INTO W_ebp.


select single knumh into it_detail1-knumv from konh where vakey = w_ebp and erdat = it_cal_tax-budat.


* SELECT * into table i_konv from KONP
* WHERE knumh = IT_DETAIL1-knumv. "and kposn = IT_DETAIL1-introw_1
* LOOP AT I_KONV.
* if ( i_konv-kschl = 'ZR11' ) OR ( i_konv-kschl = 'ZR12' ) OR ( i_konv-kschl = 'ZR13' ) OR
* ( i_konv-kschl = 'ZPK1' ) OR ( i_konv-kschl = 'ZPK2' ) OR ( i_konv-kschl = 'ZFW1' ) OR ( i_konv-kschl = 'ZFW2' ) .
*
* IT_CAL_TAX-WRBTR = IT_CAL_TAX-WRBTR + I_KONV-kbetr.
*
* ENDIF.
* ENDLOOP.
* refresh i_konv.
* clear i_konv.

IT_DETAIL1-EBELP = IT_CAL_TAX-EBELP.
IF IT_DETAIL-MAT_CNT = 1.
IT_DETAIL1-LIFNR_1 = IT_CAL_TAX-LIFNR.
IT_DETAIL1-ebeln_1 = IT_CAL_TAX-ebeln.

select single eindt into it_detail1-deliv_dat1 from eket where ebeln = it_detail1-ebeln_1 and ebelp = it_cal_tax-ebelp.
if it_detail1-knumv eq space.
SELECT SINGLE SUB_PACKNO into it_detail1-SUB_PACKNO from esll where esll~packno = it_detail1-packno.
SELECT SINGLE knumv into it_detail1-knumv_1 from eslh where eslh~packno = it_detail1-SUB_PACKNO.
SELECT SINGLE INTROW INTO it_detail1-INTROW_1 FROM ESLL WHERE PACKNO = IT_DETAIL1-SUB_PACKNO.
else.
it_detail1-knumv_1 = it_detail1-knumv.
endif.

ELSEIF IT_DETAIL-MAT_CNT = 2.
IT_DETAIL1-LIFNR_2 = IT_CAL_TAX-LIFNR.
IT_DETAIL1-ebeln_2 = IT_CAL_TAX-ebeln.
select single eindt into it_detail1-deliv_dat2 from eket where ebeln = it_detail1-ebeln_2 and ebelp = it_cal_tax-ebelp.

if it_detail1-knumv eq space.
SELECT SINGLE SUB_PACKNO into it_detail1-SUB_PACKNO from esll where esll~packno = it_detail1-packno.
SELECT SINGLE knumv into it_detail1-knumv_2 from eslh where eslh~packno = it_detail1-SUB_PACKNO.
SELECT SINGLE INTROW INTO it_detail1-INTROW_2 FROM ESLL WHERE PACKNO = IT_DETAIL1-SUB_PACKNO.

else.
it_detail1-knumv_2 = it_detail1-knumv.
endif.

ELSEIF IT_DETAIL-MAT_CNT = 3.
IT_DETAIL1-LIFNR_3 = IT_CAL_TAX-LIFNR.
IT_DETAIL1-ebeln_3 = IT_CAL_TAX-ebeln.
select single eindt into it_detail1-deliv_dat3 from eket where ebeln = it_detail1-ebeln_3 and ebelp = it_cal_tax-ebelp.

if it_detail1-knumv eq space.
SELECT SINGLE SUB_PACKNO into it_detail1-SUB_PACKNO from esll where esll~packno = it_detail1-packno.
SELECT SINGLE knumv into it_detail1-knumv_3 from eslh where eslh~packno = it_detail1-SUB_PACKNO.
SELECT SINGLE INTROW INTO it_detail1-INTROW_3 FROM ESLL WHERE PACKNO = IT_DETAIL1-SUB_PACKNO.
else.
it_detail1-knumv_3 = it_detail1-knumv.
endif.

ELSEIF IT_DETAIL-MAT_CNT = 4.
IT_DETAIL1-LIFNR_4 = IT_CAL_TAX-LIFNR.
IT_DETAIL1-ebeln_4 = IT_CAL_TAX-ebeln.
select single eindt into it_detail1-deliv_dat4 from eket where ebeln = it_detail1-ebeln_4 and ebelp = it_cal_tax-ebelp.

if it_detail1-knumv eq space.
SELECT SINGLE SUB_PACKNO into it_detail1-SUB_PACKNO from esll where esll~packno = it_detail1-packno.
SELECT SINGLE knumv into it_detail1-knumv_4 from eslh where eslh~packno = it_detail1-SUB_PACKNO.
SELECT SINGLE INTROW INTO it_detail1-INTROW_4 FROM ESLL WHERE PACKNO = IT_DETAIL1-SUB_PACKNO.
else.
it_detail1-knumv_4 = it_detail1-knumv.
endif.

ELSEIF IT_DETAIL-MAT_CNT = 5.
IT_DETAIL1-LIFNR_5 = IT_CAL_TAX-LIFNR.
IT_DETAIL1-ebeln_5 = IT_CAL_TAX-ebeln.
select single eindt into it_detail1-deliv_dat5 from eket where ebeln = it_detail1-ebeln_5 and ebelp = it_cal_tax-ebelp.

if it_detail1-knumv eq space.
SELECT SINGLE SUB_PACKNO into it_detail1-SUB_PACKNO from esll where esll~packno = it_detail1-packno.
SELECT SINGLE knumv into it_detail1-knumv_5 from eslh where eslh~packno = it_detail1-SUB_PACKNO.
SELECT SINGLE INTROW INTO it_detail1-INTROW_5 FROM ESLL WHERE PACKNO = IT_DETAIL1-SUB_PACKNO.
else.
it_detail1-knumv_5 = it_detail1-knumv.
endif.

ENDIF.

* WRITE IT_CAL_TAX-BUDAT TO IT_CAL_TAX-BUDAT.
IT_CAL_TAX-BLDAT = IT_CAL_TAX-BUDAT.
IT_CAL_TAX-KPOSN = IT_CAL_TAX-EBELP.
MOVE IT_DETAIL-EBELN TO IT_CAL_TAX-EBELN.
MOVE IT_DETAIL-MWSKZ TO IT_CAL_TAX-MWSKZ.
MOVE IT_DETAIL-WAERS TO IT_CAL_TAX-HWAER.
select single land1 into it_cal_tax-land1 from lfa1 where lifnr = it_detail-lifnr.
MOVE 'X' TO IT_CAL_TAX-XMWST.

* PACK IT_CAL_TAX-LIFNR TO IT_CAL_TAX-LIFNR.
* PACK IT_CAL_TAX-MATNR TO IT_CAL_TAX-MATNR.
* CONDENSE IT_CAL_TAX-LIFNR no-gaps.
* CONDENSE IT_CAL_TAX-MATNR no-gaps.

*CALL FUNCTION 'J_1I4_SET_KWERT'
* EXPORTING
* KWERT = IT_DETAIL1-KZWI6
* ALT_KWERT = IT_DETAIL1-KZWI4.


MODIFY IT_CAL_TAX TRANSPORTING
KPOSN SHKZG WRBTR EBELP BUDAT BLDAT HWAER XMWST MTART
EBELN MWSKZ MGLME LAND1 MATKL LIFNR MATNR
WHERE MATNR = IT_DETAIL-MATNR.

READ TABLE IT_CAL_TAX INTO WA_KONV INDEX 1.
append wa_konv.
* READ TABLE IT_CAL_TAX INDEX 1.
if it_cal_tax-mwskz ne space.
CLEAR IT_CAL_TAX.

CALL FUNCTION 'CALCULATE_TAX_ITEM'
EXPORTING
I_TAXCOM = WA_KONV
TABLES
T_XKOMV = IT_CAL_TAX_OUT.

IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endif.
PERFORM CAL_TAX.


IF IT_DETAIL-MAT_CNT = 1.

LOOP AT IT_CAL_TAX_OUT where kposn = wA_KONV-EBELP.
CASE IT_CAL_TAX_OUT-KSCHL.
WHEN 'JMO1'.
it_detail1-excise_d1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JA01'.
it_detail1-excise_d1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JS01'.
IT_DETAIL1-EXCISE_D1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC1'.
IT_DETAIL1-ECESS1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC2'.
IT_DETAIL1-ECESS1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP1'.
IT_DETAIL1-CENTRALST1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP2'.
IT_DETAIL1-LOCALST1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZSUR'.
IT_DETAIL1-SURCHARGE1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZTOT'.
IT_DETAIL1-TURNOVERT1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZRST'.
IT_DETAIL1-RESALE1 = IT_CAL_TAX_OUT-KWERT.

WHEN 'JSRT'.
IT_DETAIL1-STAX1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC3'.
IT_DETAIL1-ESTAX1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP5'.
IT_DETAIL1-VATR1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP6'.
IT_DETAIL1-VATRM1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP7'.
IT_DETAIL1-VATCG1 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP8'.
IT_DETAIL1-VATCGN1 = IT_CAL_TAX_OUT-KWERT.

ENDCASE.

endloop.
refresh wa_konv.
clear wa_konv.
* REFRESH IT_CAL_TAX.
* CLEAR IT_CAL_TAX.
REFRESH IT_CAL_TAX_OUT.
CLEAR IT_CAL_TAX_OUT.

SELECT * into table i_konv from KONp
WHERE knumh = IT_DETAIL1-knumv_1 AND loevm_ko EQ SPACE. "and kposn = IT_DETAIL1-introw_1
* AND KSCHL IN ('ZP00','ZP001').

loop at i_konv.
case i_konv-kschl.
when 'ZP00' or 'ZP001'. "basic
IT_DETAIL1-W_BASIC_1 = IT_DETAIL1-W_BASIC_1 + i_konv-kbetr.
when 'ZR01' or 'ZR02' or 'ZR03'. "discount
IT_DETAIL1-W_DISC_1 = IT_DETAIL1-W_DISC_1 + i_konv-kbetr.
when 'ZR11' or 'ZR12' or 'ZR13'. "discount
IT_DETAIL1-W_DISC_11 = IT_DETAIL1-W_DISC_11 + i_konv-kbetr.
when 'ZPK1' or 'ZPK2' .
IT_DETAIL1-PACK1_R = IT_DETAIL1-PACK1_R + i_konv-kbetr.
when 'ZFW1' or 'ZFW2' .
IT_DETAIL1-FOR1_R = IT_DETAIL1-FOR1_R + i_konv-kbetr.

WHEN 'ZPC1' OR 'ZPC2'."when 'ZPK1' or 'ZPK2'. "packing
IT_DETAIL1-W_PKG_1 = IT_DETAIL1-W_PKG_1 + i_konv-kbetr.
when 'ZFW1' or 'ZFW2'.
IT_DETAIL1-W_FWD_1 = IT_DETAIL1-W_FWD_1 + i_konv-kbetr.
when 'ZINS'. "insurance
IT_DETAIL1-W_INSURANCE1 = IT_DETAIL1-W_INSURANCE1 + i_konv-kbetr.
when 'ZFA1' or 'ZFB1' or 'ZFC1'. "freight
IT_DETAIL1-W_FREIGHT_1 = IT_DETAIL1-W_FREIGHT_1 + i_konv-kbetr.
when 'ZICH'. "inspection charges
IT_DETAIL1-W_INSCHARGE_1 = IT_DETAIL1-W_INSCHARGE_1 + i_konv-kbetr.
when 'ZOCM'."'ZOCT'. "octroi
IT_DETAIL1-W_OCT_1 = IT_DETAIL1-W_OCT_1 + i_konv-kbetr.
when 'ZCOM'. "comm/brokerage
IT_DETAIL1-W_COMM_1 = IT_DETAIL1-W_COMM_1 + i_konv-kbetr.
when 'ZIST'. "instal;lation charges
IT_DETAIL1-W_INST_1 = IT_DETAIL1-W_INST_1 + i_konv-kbetr.
when 'ZHAN'.
IT_DETAIL1-W_HAND_1 = IT_DETAIL1-W_HAND_1 + i_konv-kbetr.

WHEN 'ZAPM'.
IT_DETAIL1-APMC1 = IT_DETAIL1-APMC1 + i_konv-kbetr.
WHEN 'ZMIS'.
IT_DETAIL1-MIS1 = IT_DETAIL1-MIS1 + i_konv-kbetr.
WHEN 'ZSUP'.
IT_DETAIL1-SUP1 = IT_DETAIL1-SUP1 + i_konv-kbetr.
WHEN 'ZPC1' OR 'ZPC2'.
IT_DETAIL1-PACK1 = IT_DETAIL1-PACK1 + i_konv-kbetr.
WHEN 'ZFH1' OR 'ZFH2'.
IT_DETAIL1-FOR1 = IT_DETAIL1-FOR1 + i_konv-kbetr.
WHEN 'ZEXP'.
IT_DETAIL1-EXP1 = IT_DETAIL1-EXP1 + i_konv-kbetr.
endcase.
endloop.


refresh i_konv.
clear i_konv.

* VENDOR NAME
SELECT SINGLE NAME1 INTO IT_DETAIL1-NAME1 FROM LFA1 WHERE LIFNR = it_detail1-LIFNR_1.

* Incoterms
SELECT SINGLE INCO1 INCO2 INTO (IT_DETAIL1-W_inco1,IT_DETAIL1-W_inco11) FROM EKKO WHERE LIFNR = it_detail1-LIFNR_1.
MODIFY IT_DETAIL1.


ENDIF.
IF IT_DETAIL-MAT_CNT = 2.
LOOP AT IT_CAL_TAX_OUT where kposn = wA_KONV-EBELP.
CASE IT_CAL_TAX_OUT-KSCHL.
WHEN 'JMO1'.
it_detail1-excise_d2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JA01'.
it_detail1-excise_d2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JS01'.
IT_DETAIL1-EXCISE_D2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC1'.
IT_DETAIL1-ECESS2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC2'.
IT_DETAIL1-ECESS2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP1'.
IT_DETAIL1-CENTRALST2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP2'.
IT_DETAIL1-LOCALST2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZSUR'.
IT_DETAIL1-SURCHARGE2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZTOT'.
IT_DETAIL1-TURNOVERT2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZRST'.
IT_DETAIL1-RESALE2 = IT_CAL_TAX_OUT-KWERT.

WHEN 'JSRT'.
IT_DETAIL1-STAX2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC3'.
IT_DETAIL1-ESTAX2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP5'.
IT_DETAIL1-VATR2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP6'.
IT_DETAIL1-VATRM2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP7'.
IT_DETAIL1-VATCG2 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP8'.
IT_DETAIL1-VATCGN2 = IT_CAL_TAX_OUT-KWERT.

ENDCASE.

endloop.

SELECT * into table i_konv from KONp
WHERE knumh = IT_DETAIL1-knumv_2 AND loevm_ko EQ SPACE. "and kposn = IT_DETAIL1-introw_2
* AND KSCHL IN ('ZP00','ZP001').

loop at i_konv.
case i_konv-kschl.
when 'ZP00' or 'ZP001'. "basic
IT_DETAIL1-W_BASIC_2 = IT_DETAIL1-W_BASIC_2 + i_konv-kbetr.
when 'ZR01' or 'ZR02' or 'ZR03'. "discount
IT_DETAIL1-W_DISC_2 = IT_DETAIL1-W_DISC_2 + i_konv-kbetr.
when 'ZR11' or 'ZR12' or 'ZR13'. "discount
IT_DETAIL1-W_DISC_22 = IT_DETAIL1-W_DISC_22 + i_konv-kbetr.
when 'ZPK1' or 'ZPK2' .
IT_DETAIL1-PACK2_R = IT_DETAIL1-PACK2_R + i_konv-kbetr.
when 'ZFW1' or 'ZFW2' .
IT_DETAIL1-FOR2_R = IT_DETAIL1-FOR2_R + i_konv-kbetr.

WHEN 'ZPC1' OR 'ZPC2'."when 'ZPK1' or 'ZPK2'. "packing
IT_DETAIL1-W_PKG_2 = IT_DETAIL1-W_PKG_2 + i_konv-kbetr.
when 'ZFW1' or 'ZFW2'.
IT_DETAIL1-W_FWD_2 = IT_DETAIL1-W_FWD_2 + i_konv-kbetr.
when 'ZINS'. "insurance
IT_DETAIL1-W_INSURANCE2 = IT_DETAIL1-W_INSURANCE2 + i_konv-kbetr.
when 'ZFA1' or 'ZFB1' or 'ZFC1'. "freight
IT_DETAIL1-W_FREIGHT_2 = IT_DETAIL1-W_FREIGHT_2 + i_konv-kbetr.
when 'ZICH'. "inspection charges
IT_DETAIL1-W_INSCHARGE_2 = IT_DETAIL1-W_INSCHARGE_2 + i_konv-kbetr.
when 'ZOCM'."'ZOCT'. "octroi
IT_DETAIL1-W_OCT_2 = IT_DETAIL1-W_OCT_2 + i_konv-kbetr.
when 'ZCOM'. "comm/brokerage
IT_DETAIL1-W_COMM_2 = IT_DETAIL1-W_COMM_2 + i_konv-kbetr.
when 'ZIST'. "instal;lation charges
IT_DETAIL1-W_INST_2 = IT_DETAIL1-W_INST_2 + i_konv-kbetr.
when 'ZHAN'.
IT_DETAIL1-W_HAND_2 = IT_DETAIL1-W_HAND_2 + i_konv-kbetr.

WHEN 'ZAPM'.
IT_DETAIL1-APMC2 = IT_DETAIL1-APMC2 + i_konv-kbetr.
WHEN 'ZMIS'.
IT_DETAIL1-MIS2 = IT_DETAIL1-MIS2 + i_konv-kbetr.
WHEN 'ZSUP'.
IT_DETAIL1-SUP2 = IT_DETAIL1-SUP2 + i_konv-kbetr.
WHEN 'ZPC1' OR 'ZPC2'.
IT_DETAIL1-PACK2 = IT_DETAIL1-PACK2 + i_konv-kbetr.
WHEN 'ZFH1' OR 'ZFH2'.
IT_DETAIL1-FOR2 = IT_DETAIL1-FOR2 + i_konv-kbetr.
WHEN 'ZEXP'.
IT_DETAIL1-EXP2 = IT_DETAIL1-EXP2 + i_konv-kbetr.

endcase.
endloop.

* VENDOR NAME
SELECT SINGLE NAME1 INTO IT_DETAIL1-NAME2 FROM LFA1 WHERE LIFNR = it_detail1-LIFNR_2.

* Incoterms
SELECT SINGLE INCO1 INCO2 INTO (IT_DETAIL1-W_inco2,IT_DETAIL1-W_inco22) FROM EKKO WHERE LIFNR = it_detail1-LIFNR_2.

MODIFY IT_DETAIL1.
ENDIF.
IF IT_DETAIL-MAT_CNT = 3.
LOOP AT IT_CAL_TAX_OUT where kposn = wA_KONV-EBELP.
CASE IT_CAL_TAX_OUT-KSCHL.
WHEN 'JMO1'.
it_detail1-excise_d3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JA01'.
it_detail1-excise_d3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JS01'.
IT_DETAIL1-EXCISE_D3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC1'.
IT_DETAIL1-ECESS3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC2'.
IT_DETAIL1-ECESS3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP1'.
IT_DETAIL1-CENTRALST3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP2'.
IT_DETAIL1-LOCALST3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZSUR'.
IT_DETAIL1-SURCHARGE3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZTOT'.
IT_DETAIL1-TURNOVERT3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZRST'.
IT_DETAIL1-RESALE3 = IT_CAL_TAX_OUT-KWERT.

WHEN 'JSRT'.
IT_DETAIL1-STAX3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC3'.
IT_DETAIL1-ESTAX3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP5'.
IT_DETAIL1-VATR3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP6'.
IT_DETAIL1-VATRM3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP7'.
IT_DETAIL1-VATCG3 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP8'.
IT_DETAIL1-VATCGN3 = IT_CAL_TAX_OUT-KWERT.

ENDCASE.

endloop.

SELECT * into table i_konv from KONp
WHERE knumh = IT_DETAIL1-knumv_3 AND loevm_ko EQ SPACE. "and kposn = IT_DETAIL1-introw_3
* AND KSCHL IN ('ZP00','ZP001').

loop at i_konv.
case i_konv-kschl.
when 'ZP00' or 'ZP001'. "basic
IT_DETAIL1-W_BASIC_3 = IT_DETAIL1-W_BASIC_3 + i_konv-kbetr.
when 'ZR01' or 'ZR02' or 'ZR03'. "discount
IT_DETAIL1-W_DISC_3 = IT_DETAIL1-W_DISC_3 + i_konv-kbetr.
when 'ZR11' or 'ZR12' or 'ZR13'. "discount
IT_DETAIL1-W_DISC_33 = IT_DETAIL1-W_DISC_33 + i_konv-kbetr.

when 'ZPK1' or 'ZPK2' .
IT_DETAIL1-PACK3_R = IT_DETAIL1-PACK3_R + i_konv-kbetr.
when 'ZFW1' or 'ZFW2' .
IT_DETAIL1-FOR3_R = IT_DETAIL1-FOR3_R + i_konv-kbetr.

WHEN 'ZPC1' OR 'ZPC2'."when 'ZPK1' or 'ZPK2'. "packing
IT_DETAIL1-W_PKG_3 = IT_DETAIL1-W_PKG_3 + i_konv-kbetr.
when 'ZFW1' or 'ZFW2'.
IT_DETAIL1-W_FWD_3 = IT_DETAIL1-W_FWD_3 + i_konv-kbetr.
when 'ZINS'. "insurance
IT_DETAIL1-W_INSURANCE3 = IT_DETAIL1-W_INSURANCE3 + i_konv-kbetr.
when 'ZFA1' or 'ZFB1' or 'ZFC1'. "freight
IT_DETAIL1-W_FREIGHT_3 = IT_DETAIL1-W_FREIGHT_3 + i_konv-kbetr.
when 'ZICH'. "inspection charges
IT_DETAIL1-W_INSCHARGE_3 = IT_DETAIL1-W_INSCHARGE_3 + i_konv-kbetr.
when 'ZOCM'."'ZOCT'. "octroi
IT_DETAIL1-W_OCT_3 = IT_DETAIL1-W_OCT_3 + i_konv-kbetr.
when 'ZCOM'. "comm/brokerage
IT_DETAIL1-W_COMM_3 = IT_DETAIL1-W_COMM_3 + i_konv-kbetr.
when 'ZIST'. "instal;lation charges
IT_DETAIL1-W_INST_3 = IT_DETAIL1-W_INST_3 + i_konv-kbetr.
when 'ZHAN'.
IT_DETAIL1-W_HAND_3 = IT_DETAIL1-W_HAND_3 + i_konv-kbetr.
WHEN 'ZAPM'.
IT_DETAIL1-APMC3 = IT_DETAIL1-APMC3 + i_konv-kbetr.
WHEN 'ZMIS'.
IT_DETAIL1-MIS3 = IT_DETAIL1-MIS3 + i_konv-kbetr.
WHEN 'ZSUP'.
IT_DETAIL1-SUP3 = IT_DETAIL1-SUP3 + i_konv-kbetr.
WHEN 'ZPC1' OR 'ZPC2'.
IT_DETAIL1-PACK3 = IT_DETAIL1-PACK3 + i_konv-kbetr.
WHEN 'ZFH1' OR 'ZFH2'.
IT_DETAIL1-FOR3 = IT_DETAIL1-FOR3 + i_konv-kbetr.
WHEN 'ZEXP'.
IT_DETAIL1-EXP3 = IT_DETAIL1-EXP3 + i_konv-kbetr.

endcase.
endloop.
* VENDOR NAME
SELECT SINGLE NAME1 INTO IT_DETAIL1-NAME3 FROM LFA1 WHERE LIFNR = it_detail1-LIFNR_3.
* Incoterms
SELECT SINGLE INCO1 INCO2 INTO (IT_DETAIL1-W_inco3,IT_DETAIL1-W_inco33) FROM EKKO WHERE LIFNR = it_detail1-LIFNR_3.

MODIFY IT_DETAIL1.
ENDIF.
IF IT_DETAIL-MAT_CNT = 4.
LOOP AT IT_CAL_TAX_OUT where kposn = wA_KONV-EBELP.
CASE IT_CAL_TAX_OUT-KSCHL.
WHEN 'JMO1'.
it_detail1-excise_d4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JA01'.
it_detail1-excise_d4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JS01'.
IT_DETAIL1-EXCISE_D4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC1'.
IT_DETAIL1-ECESS4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC2'.
IT_DETAIL1-ECESS4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP1'.
IT_DETAIL1-CENTRALST4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP2'.
IT_DETAIL1-LOCALST4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZSUR'.
IT_DETAIL1-SURCHARGE4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZTOT'.
IT_DETAIL1-TURNOVERT4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZRST'.
IT_DETAIL1-RESALE4 = IT_CAL_TAX_OUT-KWERT.

WHEN 'JSRT'.
IT_DETAIL1-STAX4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC3'.
IT_DETAIL1-ESTAX4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP5'.
IT_DETAIL1-VATR4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP6'.
IT_DETAIL1-VATRM4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP7'.
IT_DETAIL1-VATCG4 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP8'.
IT_DETAIL1-VATCGN4 = IT_CAL_TAX_OUT-KWERT.

ENDCASE.

endloop.

SELECT * into table i_konv from KONp
WHERE knumh = IT_DETAIL1-knumv_4 AND loevm_ko EQ SPACE. "and kposn = IT_DETAIL1-introw_4
* AND KSCHL IN ('ZP00','ZP001').

loop at i_konv.
case i_konv-kschl.
when 'ZP00' or 'ZP001'. "basic
IT_DETAIL1-W_BASIC_4 = IT_DETAIL1-W_BASIC_4 + i_konv-kbetr.
when 'ZR01' or 'ZR02' or 'ZR03'. "discount
IT_DETAIL1-W_DISC_4 = IT_DETAIL1-W_DISC_4 + i_konv-kbetr.
when 'ZR11' or 'ZR12' or 'ZR13'. "discount
IT_DETAIL1-W_DISC_44 = IT_DETAIL1-W_DISC_44 + i_konv-kbetr.
when 'ZPK1' or 'ZPK2' .
IT_DETAIL1-PACK4_R = IT_DETAIL1-PACK4_R + i_konv-kbetr.
when 'ZFW1' or 'ZFW2' .
IT_DETAIL1-FOR4_R = IT_DETAIL1-FOR4_R + i_konv-kbetr.

WHEN 'ZPC1' OR 'ZPC2'."when 'ZPK1' or 'ZPK2'. "packing
IT_DETAIL1-W_PKG_4 = IT_DETAIL1-W_PKG_4 + i_konv-kbetr.
when 'ZFW1' or 'ZFW2'.
IT_DETAIL1-W_FWD_4 = IT_DETAIL1-W_FWD_4 + i_konv-kbetr.
when 'ZINS'. "insurance
IT_DETAIL1-W_INSURANCE4 = IT_DETAIL1-W_INSURANCE4 + i_konv-kbetr.
when 'ZFA1' or 'ZFB1' or 'ZFC1'. "freight
IT_DETAIL1-W_FREIGHT_4 = IT_DETAIL1-W_FREIGHT_4 + i_konv-kbetr.
when 'ZICH'. "inspection charges
IT_DETAIL1-W_INSCHARGE_4 = IT_DETAIL1-W_INSCHARGE_4 + i_konv-kbetr.
when 'ZOCM'."'ZOCT'. "octroi
IT_DETAIL1-W_OCT_4 = IT_DETAIL1-W_OCT_4 + i_konv-kbetr.
when 'ZCOM'. "comm/brokerage
IT_DETAIL1-W_COMM_4 = IT_DETAIL1-W_COMM_4 + i_konv-kbetr.
when 'ZIST'. "instal;lation charges
IT_DETAIL1-W_INST_4 = IT_DETAIL1-W_INST_4 + i_konv-kbetr.
when 'ZHAN'.
IT_DETAIL1-W_HAND_4 = IT_DETAIL1-W_HAND_4 + i_konv-kbetr.

WHEN 'ZAPM'.
IT_DETAIL1-APMC4 = IT_DETAIL1-APMC4 + i_konv-kbetr.
WHEN 'ZMIS'.
IT_DETAIL1-MIS4 = IT_DETAIL1-MIS4 + i_konv-kbetr.
WHEN 'ZSUP'.
IT_DETAIL1-SUP4 = IT_DETAIL1-SUP4 + i_konv-kbetr.
WHEN 'ZPC1' OR 'ZPC2'.
IT_DETAIL1-PACK4 = IT_DETAIL1-PACK4 + i_konv-kbetr.
WHEN 'ZFH1' OR 'ZFH2'.
IT_DETAIL1-FOR4 = IT_DETAIL1-FOR4 + i_konv-kbetr.
WHEN 'ZEXP'.
IT_DETAIL1-EXP4 = IT_DETAIL1-EXP4 + i_konv-kbetr.

endcase.
endloop.

* VENDOR NAME
SELECT SINGLE NAME1 INTO IT_DETAIL1-NAME4 FROM LFA1 WHERE LIFNR = it_detail1-LIFNR_4.

* Incoterms
SELECT SINGLE INCO1 INCO2 INTO (IT_DETAIL1-W_inco4,IT_DETAIL1-W_inco44) FROM EKKO WHERE LIFNR = it_detail1-LIFNR_4.

MODIFY IT_DETAIL1.
ENDIF.
IF IT_DETAIL-MAT_CNT = 5.
LOOP AT IT_CAL_TAX_OUT where kposn = wA_KONV-EBELP.
CASE IT_CAL_TAX_OUT-KSCHL.
WHEN 'JMO1'.
it_detail1-excise_d5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JA01'.
it_detail1-excise_d5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JS01'.
IT_DETAIL1-EXCISE_D5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC1'.
IT_DETAIL1-ECESS5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC2'.
IT_DETAIL1-ECESS5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP1'.
IT_DETAIL1-CENTRALST5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP2'.
IT_DETAIL1-LOCALST5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZSUR'.
IT_DETAIL1-SURCHARGE5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZTOT'.
IT_DETAIL1-TURNOVERT5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'ZRST'.
IT_DETAIL1-RESALE5 = IT_CAL_TAX_OUT-KWERT.

WHEN 'JSRT'.
IT_DETAIL1-STAX5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JEC3'.
IT_DETAIL1-ESTAX5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP5'.
IT_DETAIL1-VATR5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP6'.
IT_DETAIL1-VATRM5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP7'.
IT_DETAIL1-VATCG5 = IT_CAL_TAX_OUT-KWERT.
WHEN 'JIP8'.
IT_DETAIL1-VATCGN5 = IT_CAL_TAX_OUT-KWERT.

ENDCASE.

endloop.

SELECT * into table i_konv from KONp
WHERE knumh = IT_DETAIL1-knumv_5 AND loevm_ko EQ SPACE. "and kposn = IT_DETAIL1-introw_5
* AND KSCHL IN ('ZP00','ZP001').

loop at i_konv.
case i_konv-kschl.
when 'ZP00' or 'ZP001'. "basic
IT_DETAIL1-W_BASIC_5 = IT_DETAIL1-W_BASIC_5 + i_konv-kbetr.
when 'ZR01' or 'ZR02' or 'ZR03'. "discount
IT_DETAIL1-W_DISC_5 = IT_DETAIL1-W_DISC_5 + i_konv-kbetr.
when 'ZR11' or 'ZR12' or 'ZR13'. "discount
IT_DETAIL1-W_DISC_55 = IT_DETAIL1-W_DISC_55 + i_konv-kbetr.
when 'ZPK1' or 'ZPK2' .
IT_DETAIL1-PACK5_R = IT_DETAIL1-PACK5_R + i_konv-kbetr.
when 'ZFW1' or 'ZFW2' .
IT_DETAIL1-FOR5_R = IT_DETAIL1-FOR5_R + i_konv-kbetr.

WHEN 'ZPC1' OR 'ZPC2'."when 'ZPK1' or 'ZPK2'. "packing
IT_DETAIL1-W_PKG_5 = IT_DETAIL1-W_PKG_5 + i_konv-kbetr.
when 'ZFW1' or 'ZFW2'.
IT_DETAIL1-W_FWD_5 = IT_DETAIL1-W_FWD_5 + i_konv-kbetr.
when 'ZINS'. "insurance
IT_DETAIL1-W_INSURANCE5 = IT_DETAIL1-W_INSURANCE5 + i_konv-kbetr.
when 'ZFA1' or 'ZFB1' or 'ZFC1'. "freight
IT_DETAIL1-W_FREIGHT_5 = IT_DETAIL1-W_FREIGHT_5 + i_konv-kbetr.
when 'ZICH'. "inspection charges
IT_DETAIL1-W_INSCHARGE_5 = IT_DETAIL1-W_INSCHARGE_5 + i_konv-kbetr.
when 'ZOCM'."'ZOCT'. "octroi
IT_DETAIL1-W_OCT_5 = IT_DETAIL1-W_OCT_5 + i_konv-kbetr.
when 'ZCOM'. "comm/brokerage
IT_DETAIL1-W_COMM_5 = IT_DETAIL1-W_COMM_5 + i_konv-kbetr.
when 'ZIST'. "instal;lation charges
IT_DETAIL1-W_INST_5 = IT_DETAIL1-W_INST_5 + i_konv-kbetr.
when 'ZHAN'.
IT_DETAIL1-W_HAND_5 = IT_DETAIL1-W_HAND_5 + i_konv-kbetr.
WHEN 'ZAPM'.
IT_DETAIL1-APMC5 = IT_DETAIL1-APMC5 + i_konv-kbetr.
WHEN 'ZMIS'.
IT_DETAIL1-MIS5 = IT_DETAIL1-MIS5 + i_konv-kbetr.
WHEN 'ZSUP'.
IT_DETAIL1-SUP5 = IT_DETAIL1-SUP5 + i_konv-kbetr.
WHEN 'ZPC1' OR 'ZPC2'.
IT_DETAIL1-PACK5 = IT_DETAIL1-PACK5 + i_konv-kbetr.
WHEN 'ZFH1' OR 'ZFH2'.
IT_DETAIL1-FOR5 = IT_DETAIL1-FOR5 + i_konv-kbetr.
WHEN 'ZEXP'.
IT_DETAIL1-EXP5 = IT_DETAIL1-EXP5 + i_konv-kbetr.

endcase.
endloop.
* VENDOR NAME
SELECT SINGLE NAME1 INTO IT_DETAIL1-NAME5 FROM LFA1 WHERE LIFNR = it_detail1-LIFNR_5.

* Incoterms
SELECT SINGLE INCO1 INCO2 INTO (IT_DETAIL1-W_inco5,IT_DETAIL1-W_inco55) FROM EKKO WHERE LIFNR = it_detail1-LIFNR_5.

MODIFY IT_DETAIL1.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDFORM. "GET_DATA
*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISPLAY_DATA.



write :/1 'Purchasing Organisation : ',
32 pa_ekorg,
* / 'RFQ Nos :',
* 32 SO_ebeln-LOW,
* 40 SO_ebeln-HIGH,
/ 'Collective RFQ Nos :' ,
32 SO_SUBMI-LOW ,
40 SO_SUBMI-HIGH.
* / 'Vendor No :',
* 32 SO_LIFNR-LOW,
* 40 SO_LIFNR-HIGH,
* / 'Material No : ',
* 32 SO_LIFNR-LOW,
* 40 SO_LIFNR-HIGH.
uline.
loop at it_DETAIL1.

it_detail1-tot1 = it_detail1-W_BASIC_1 + it_detail1-W_DISC_1 + it_DETAIL1-EXCISE_D1 + IT_DETAIL1-ECESS1 + IT_DETAIL1-CENTRALST1 + IT_DETAIL1-LOCALST1 +
IT_DETAIL1-SURCHARGE1 + IT_DETAIL1-TURNOVERT1 + IT_DETAIL1-RESALE1 + IT_DETAIL1-stax1 + IT_DETAIL1-estax1 + IT_DETAIL1-vatr1 +
IT_DETAIL1-vatrm1 + IT_DETAIL1-vatcg1 + IT_DETAIL1-vatcgn1 + it_DETAIL1-W_INSURANCE1 + it_DETAIL1-W_FREIGHT_1 + it_DETAIL1-W_INSCHARGE_1 +
it_DETAIL1-W_OCT_1 + it_DETAIL1-W_COMM_1 + it_DETAIL1-W_INST_1 + it_DETAIL1-W_HAND_1 + it_DETAIL1-apmc1 + it_DETAIL1-mis1 + it_DETAIL1-sup1 +
it_DETAIL1-pack1 + it_DETAIL1-for1 + it_DETAIL1-exp1 + it_detail1-w_disc_11 + it_detail1-pack1_r + it_detail1-for1_r.

it_detail1-tot2 = it_detail1-W_BASIC_2 + it_detail1-W_DISC_2 + it_DETAIL1-EXCISE_D2 + IT_DETAIL1-ECESS2 + IT_DETAIL1-CENTRALST2 + IT_DETAIL1-LOCALST2 +
IT_DETAIL1-SURCHARGE2 + IT_DETAIL1-TURNOVERT2 + IT_DETAIL1-RESALE2 + IT_DETAIL1-stax2 + IT_DETAIL1-estax2 + IT_DETAIL1-vatr2 +
IT_DETAIL1-vatrm2 + IT_DETAIL1-vatcg2 + IT_DETAIL1-vatcgn2 + it_DETAIL1-W_INSURANCE2 + it_DETAIL1-W_FREIGHT_2 + it_DETAIL1-W_INSCHARGE_2 +
it_DETAIL1-W_OCT_2 + it_DETAIL1-W_COMM_2 + it_DETAIL1-W_INST_2 + it_DETAIL1-W_HAND_2 + it_DETAIL1-apmc2 + it_DETAIL1-mis2 + it_DETAIL1-sup2 +
it_DETAIL1-pack2 + it_DETAIL1-for2 + it_DETAIL1-exp2 + it_detail1-w_disc_22 + it_detail1-pack2_r + it_detail1-for2_r.

it_detail1-tot3 = it_detail1-W_BASIC_3 + it_detail1-W_DISC_3 + it_DETAIL1-EXCISE_D3 + IT_DETAIL1-ECESS3 + IT_DETAIL1-CENTRALST3 + IT_DETAIL1-LOCALST3 +
IT_DETAIL1-SURCHARGE3 + IT_DETAIL1-TURNOVERT3 + IT_DETAIL1-RESALE3 + IT_DETAIL1-stax3 + IT_DETAIL1-estax3 + IT_DETAIL1-vatr3 +
IT_DETAIL1-vatrm3 + IT_DETAIL1-vatcg3 + IT_DETAIL1-vatcgn3 + it_DETAIL1-W_INSURANCE3 + it_DETAIL1-W_FREIGHT_3 + it_DETAIL1-W_INSCHARGE_3 +
it_DETAIL1-W_OCT_3 + it_DETAIL1-W_COMM_3 + it_DETAIL1-W_INST_3 + it_DETAIL1-W_HAND_3 + it_DETAIL1-apmc3 + it_DETAIL1-mis3 + it_DETAIL1-sup3 +
it_DETAIL1-pack3 + it_DETAIL1-for3 + it_DETAIL1-exp3 + it_detail1-w_disc_33 + it_detail1-pack3_r + it_detail1-for3_r.

it_detail1-tot4 = it_detail1-W_BASIC_4 + it_detail1-W_DISC_4 + it_DETAIL1-EXCISE_D4 + IT_DETAIL1-ECESS4 + IT_DETAIL1-CENTRALST4 + IT_DETAIL1-LOCALST4 +
IT_DETAIL1-SURCHARGE4 + IT_DETAIL1-TURNOVERT4 + IT_DETAIL1-RESALE4 + IT_DETAIL1-stax4 + IT_DETAIL1-estax4 + IT_DETAIL1-vatr4 +
IT_DETAIL1-vatrm4 + IT_DETAIL1-vatcg4 + IT_DETAIL1-vatcgn4 + it_DETAIL1-W_INSURANCE4 + it_DETAIL1-W_FREIGHT_4 + it_DETAIL1-W_INSCHARGE_4 +
it_DETAIL1-W_OCT_4 + it_DETAIL1-W_COMM_4 + it_DETAIL1-W_INST_4 + it_DETAIL1-W_HAND_4 + it_DETAIL1-apmc4 + it_DETAIL1-mis4 + it_DETAIL1-sup4 +
it_DETAIL1-pack4 + it_DETAIL1-for4 + it_DETAIL1-exp4 + it_detail1-w_disc_44 + it_detail1-pack4_r + it_detail1-for4_r.

it_detail1-tot5 = it_detail1-W_BASIC_5 + it_detail1-W_DISC_5 + it_DETAIL1-EXCISE_D5 + IT_DETAIL1-ECESS5 + IT_DETAIL1-CENTRALST5 + IT_DETAIL1-LOCALST5 +
IT_DETAIL1-SURCHARGE5 + IT_DETAIL1-TURNOVERT5 + IT_DETAIL1-RESALE5 + IT_DETAIL1-stax5 + IT_DETAIL1-estax5 + IT_DETAIL1-vatr5 +
IT_DETAIL1-vatrm5 + IT_DETAIL1-vatcg5 + IT_DETAIL1-vatcgn5 + it_DETAIL1-W_INSURANCE5 + it_DETAIL1-W_FREIGHT_5 + it_DETAIL1-W_INSCHARGE_5 +
it_DETAIL1-W_OCT_5 + it_DETAIL1-W_COMM_5 + it_DETAIL1-W_INST_5 + it_DETAIL1-W_HAND_5 + it_DETAIL1-apmc5 + it_DETAIL1-mis5 + it_DETAIL1-sup5 +
it_DETAIL1-pack5 + it_DETAIL1-for5 + it_DETAIL1-exp5 + it_detail1-w_disc_55 + it_detail1-pack5_r + it_detail1-for5_r.

move 1 to it_r-r.
move it_detail1-tot1 to it_r-tot.
append it_r.
clear it_r.
move 2 to it_r-r.
move it_detail1-tot2 to it_r-tot.
append it_r.
clear it_r.
move 3 to it_r-r.
move it_detail1-tot3 to it_r-tot.
append it_r.
clear it_r.
move 4 to it_r-r.
move it_detail1-tot4 to it_r-tot.
append it_r.
clear it_r.
move 5 to it_r-r.
move it_detail1-tot5 to it_r-tot.
append it_r.
clear it_r.

sort it_r by tot.



loop at it_r.
if w_cntt = 0.
w_tot = it_r-tot.
w_cntt = 1.
endif.
if w_tot eq it_r-tot.
it_r-r1 = w_cnt.
elseif w_tot lt it_r-tot.
w_cnt = w_cnt + 1.
it_r-r1 = w_cnt.

endif.
w_tot = it_r-tot.
modify it_r.

endloop.
sort it_r by r.
w_cnt = 0.
loop at it_r.
w_cnt = w_cnt + 1.
if w_cnt = 1.
move it_r-r1 to it_range-w_r1.
move it_r-tot to it_range-tot1.
append it_range.
elseif w_cnt = 2.
move it_r-r1 to it_range-w_r2.
move it_r-tot to it_range-tot2.
modify it_range index 1.
elseif w_cnt = 3.
move it_r-r1 to it_range-w_r3.
move it_r-tot to it_range-tot3.
modify it_range index 1.
elseif w_cnt = 4.
move it_r-r1 to it_range-w_r4.
move it_r-tot to it_range-tot4.
modify it_range index 1.
elseif w_cnt = 5.
move it_r-r1 to it_range-w_r5.
move it_r-tot to it_range-tot5.
modify it_range index 1.
endif.

endloop.
sort it_r by r.
w_cnt = 0.
Write :/1 'Item Code ',
22 sy-vline,
23 'Material Description',
* 43 sy-vline,
* 45 'Specification / Details',
68 sy-vline,
69 'Quantity Required ',
90 sy-vline,
91 'Plant',
112 sy-vline,
113 'Purchasing Group',
142 sy-vline.
uline.
CONCATENATE IT_DETAIL1-EBELN_1 IT_DETAIL1-EBELP INTO W_NAME.
oN CHANGE OF IT_DETAIL1-MATNR.
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
ID = 'A03'
LANGUAGE = SY-LANGU
NAME = W_NAME
OBJECT = 'EKPO'
TABLES
LINES = ST_LINE
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT ST_LINE.
* IF ST_LINE-TDLINE NE SPACE.
* MOVE ST_LINE-TDLINE TO W_SPECK.
CONCATENATE W_DESC ST_LINE-TDLINE INTO W_DESC.
* ENDIF.
ENDLOOP.

LW_OUTLEN = 125.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
textline = W_DESC
* DELIMITER = ' '
OUTPUTLEN = LW_OUTLEN
IMPORTING
OUT_LINE1 = W_DESC1
OUT_LINE2 = W_DESC2
OUT_LINE3 = W_DESC3
* TABLES
* OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.



ENDON.


write :/2 it_DETAIL-MATNR,
22 sy-vline,
23 it_DETAIL-MAKTX,
* 43 sy-vline,
* 45 W_SPECK(20),
68 sy-vline,
69 it_DETAIL1-KTMNG left-justified,
90 sy-vline,
91 it_DETAIL1-werks,
112 sy-vline,
113 it_DETAIL1-ekgrp,
142 sy-vline.
uline.
WRITE :/ 'Specification / ',W_DESC1.
WRITE :/ 'Details : ',W_DESC2.

uline.


write : /1 'Elements of Cost' .
ULINE.
write : /1 'RFQ',
34 it_DETAIL1-EBELN_1 , 56 it_DETAIL1-EBELN_2,
80 it_DETAIL1-EBELN_3 , 102 it_DETAIL1-EBELN_4 , 124
it_DETAIL1-EBELN_5.

write : 33 sy-vline.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Vendor Code'.
write : 33 sy-vline,34 it_DETAIL1-lifnr_1 , 56 it_DETAIL1-lifnr_2,
80 it_DETAIL1-lifnr_3 ,102 it_DETAIL1-lifnr_4, 124 It_DETAIL1-lifnr_5.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Vendor Name'.
WRITE : 33 sy-vline,34 it_DETAIL1-NAME1(20) , 56 it_DETAIL1-NAME2(20),
80 it_DETAIL1-NAME3(20) ,102 it_DETAIL1-NAME4(20) , 124 it_DETAIL1-NAME5(20).
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
write : 33 sy-vline.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Basic'.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_BASIC_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_BASIC_2 LEFT-JUSTIFIED, 80 it_DETAIL1-W_BASIC_3 LEFT-JUSTIFIED, 102
it_DETAIL1-W_BASIC_4 LEFT-JUSTIFIED, 124 it_DETAIL1-W_BASIC_5 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Discount (Not Tax Relevant)'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_DISC_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_DISC_2 LEFT-JUSTIFIED, 80 it_DETAIL1-W_DISC_3 LEFT-JUSTIFIED,
102 it_DETAIL1-W_DISC_4 LEFT-JUSTIFIED, 124 it_DETAIL1-W_DISC_5 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Discount (Tax Relevant)'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_DISC_11 LEFT-JUSTIFIED,
56 it_DETAIL1-W_DISC_22 LEFT-JUSTIFIED, 80 it_DETAIL1-W_DISC_33 LEFT-JUSTIFIED,
102 it_DETAIL1-W_DISC_44 LEFT-JUSTIFIED, 124 it_DETAIL1-W_DISC_55 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Packing (Tax Relevant)'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-pack1_r LEFT-JUSTIFIED,
56 it_DETAIL1-pack2_r LEFT-JUSTIFIED, 80 it_DETAIL1-pack3_r LEFT-JUSTIFIED,
102 it_DETAIL1-pack4_r LEFT-JUSTIFIED, 124 it_DETAIL1-pack5_r LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Forwarding (Tax Relevant)'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-for1_r LEFT-JUSTIFIED,
56 it_DETAIL1-for2_r LEFT-JUSTIFIED, 80 it_DETAIL1-for3_r LEFT-JUSTIFIED,
102 it_DETAIL1-for4_r LEFT-JUSTIFIED, 124 it_DETAIL1-for5_r LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.

write : /1 'Excise Duty'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-EXCISE_D1 LEFT-JUSTIFIED,
56 it_DETAIL1-EXCISE_D2 LEFT-JUSTIFIED, 80 it_DETAIL1-EXCISE_D3 LEFT-JUSTIFIED,
102 IT_DETAIL1-EXCISE_D4 LEFT-JUSTIFIED, 124 it_DETAIL1-EXCISE_D1 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Ecess'.
write : 33 sy-vline, 34 IT_DETAIL1-ECESS1 LEFT-JUSTIFIED,56 it_DETAIL1-ECESS2 LEFT-JUSTIFIED
, 80 it_DETAIL1-ECESS3 LEFT-JUSTIFIED,
102 it_DETAIL1-ECESS4 LEFT-JUSTIFIED, 124 it_DETAIL1-ECESS5 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Central Sales Tax'.
write : 33 sy-vline, 34 IT_DETAIL1-CENTRALST1 LEFT-JUSTIFIED,56 it_DETAIL1-CENTRALST2 LEFT-JUSTIFIED
, 80 it_DETAIL1-CENTRALST3 LEFT-JUSTIFIED,102 it_DETAIL1-CENTRALST4 LEFT-JUSTIFIED, 124 it_DETAIL1-CENTRALST5 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Local Sales Tax'.
write : 33 sy-vline, 34 IT_DETAIL1-LOCALST1 LEFT-JUSTIFIED,56 it_DETAIL1-LOCALST2 LEFT-JUSTIFIED
, 80 it_DETAIL1-LOCALST3 LEFT-JUSTIFIED,102 it_DETAIL1-LOCALST4 LEFT-JUSTIFIED, 124 it_DETAIL1-LOCALST5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Surcharge'.
write : 33 sy-vline, 34 IT_DETAIL1-SURCHARGE1 LEFT-JUSTIFIED,56 it_DETAIL1-SURCHARGE2 LEFT-JUSTIFIED
, 80 it_DETAIL1-SURCHARGE3 LEFT-JUSTIFIED,102 it_DETAIL1-SURCHARGE4 LEFT-JUSTIFIED, 124 it_DETAIL1-SURCHARGE5 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Turn over Tax'.
write : 33 sy-vline, 34 IT_DETAIL1-TURNOVERT1 LEFT-JUSTIFIED,56 it_DETAIL1-TURNOVERT2 LEFT-JUSTIFIED
, 80 it_DETAIL1-TURNOVERT3 LEFT-JUSTIFIED,102 it_DETAIL1-TURNOVERT4 LEFT-JUSTIFIED, 124 it_DETAIL1-TURNOVERT5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Resale Tax'.
write : 33 sy-vline, 34 IT_DETAIL1-RESALE1 LEFT-JUSTIFIED,56 it_DETAIL1-RESALE2 LEFT-JUSTIFIED
, 80 it_DETAIL1-RESALE3 LEFT-JUSTIFIED,102 it_DETAIL1-RESALE4 LEFT-JUSTIFIED, 124 it_DETAIL1-RESALE5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.

write : /1 'Service Tax'.
write : 33 sy-vline, 34 IT_DETAIL1-stax1 LEFT-JUSTIFIED,56 it_DETAIL1-stax2 LEFT-JUSTIFIED
, 80 it_DETAIL1-stax3 LEFT-JUSTIFIED,102 it_DETAIL1-stax4 LEFT-JUSTIFIED, 124 it_DETAIL1-stax5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Exess on Service Tax'.
write : 33 sy-vline, 34 IT_DETAIL1-estax1 LEFT-JUSTIFIED ,56 it_DETAIL1-estax2 LEFT-JUSTIFIED
, 80 it_DETAIL1-estax3 LEFT-JUSTIFIED,102 it_DETAIL1-estax4 LEFT-JUSTIFIED, 124 it_DETAIL1-estax5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Vat RM Set Off'.
write : 33 sy-vline, 34 IT_DETAIL1-vatr1 LEFT-JUSTIFIED,56 it_DETAIL1-vatr2 LEFT-JUSTIFIED
, 80 it_DETAIL1-vatr3 LEFT-JUSTIFIED,102 it_DETAIL1-vatr4 LEFT-JUSTIFIED, 124 it_DETAIL1-vatr5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Vat RM Non-ded'.
write : 33 sy-vline, 34 IT_DETAIL1-vatrm1 LEFT-JUSTIFIED,56 it_DETAIL1-vatrm2 LEFT-JUSTIFIED
, 80 it_DETAIL1-vatrm3 LEFT-JUSTIFIED,102 it_DETAIL1-vatrm4 LEFT-JUSTIFIED, 124 it_DETAIL1-vatrm5 LEFT-JUSTIFIED .

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Vat CG Setoff'.
write : 33 sy-vline, 34 IT_DETAIL1-vatcg1 LEFT-JUSTIFIED,56 it_DETAIL1-vatcg2 LEFT-JUSTIFIED
, 80 it_DETAIL1-vatcg3 LEFT-JUSTIFIED,102 it_DETAIL1-vatcg4 LEFT-JUSTIFIED, 124 it_DETAIL1-vatcg5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Vat CG Non ded'.
write : 33 sy-vline, 34 IT_DETAIL1-vatcgn1 LEFT-JUSTIFIED,56 it_DETAIL1-vatcgn2 LEFT-JUSTIFIED
, 80 it_DETAIL1-vatcgn3 LEFT-JUSTIFIED,102 it_DETAIL1-vatcgn4 LEFT-JUSTIFIED, 124 it_DETAIL1-vatcgn5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.


write : /1 'Insurance'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_INSURANCE1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_INSURANCE2 LEFT-JUSTIFIED, 80 it_DETAIL1-W_INSURANCE3 LEFT-JUSTIFIED, 102
it_DETAIL1-W_INSURANCE4 LEFT-JUSTIFIED,
124 it_DETAIL1-W_INSURANCE5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Freight'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_FREIGHT_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_FREIGHT_2 LEFT-JUSTIFIED, 80 it_DETAIL1-W_FREIGHT_3 LEFT-JUSTIFIED, 102
it_DETAIL1-W_FREIGHT_4 LEFT-JUSTIFIED,
124 it_DETAIL1-W_FREIGHT_5 LEFT-JUSTIFIED.

write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Inspection Charges'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_INSCHARGE_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_INSCHARGE_2 LEFT-JUSTIFIED, 80 it_DETAIL1-W_INSCHARGE_3 LEFT-JUSTIFIED, 102 it_DETAIL1-W_INSCHARGE_4 LEFT-JUSTIFIED,
124 it_DETAIL1-W_INSCHARGE_5 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Octroi'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_OCT_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_OCT_2 LEFT-JUSTIFIED, 80 it_DETAIL1-W_OCT_3 LEFT-JUSTIFIED,102
it_DETAIL1-W_OCT_4 LEFT-JUSTIFIED,
124 it_DETAIL1-W_OCT_5 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Comission / Brokerage'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_COMM_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_COMM_2 LEFT-JUSTIFIED, 80 it_DETAIL1-W_COMM_3 LEFT-JUSTIFIED,102
it_DETAIL1-W_COMM_4 LEFT-JUSTIFIED,
124 it_DETAIL1-W_COMM_5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Installation Charges'.
* Write : 32 sy-vline.
WRITE : 33 sy-vline,34 it_DETAIL1-W_INST_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_INST_2 LEFT-JUSTIFIED , 80 it_DETAIL1-W_INST_3 LEFT-JUSTIFIED ,102
it_DETAIL1-W_INST_4 LEFT-JUSTIFIED,
124 it_DETAIL1-W_INST_5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Handling Charges'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_HAND_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_HAND_2 LEFT-JUSTIFIED , 80 it_DETAIL1-W_HAND_3 LEFT-JUSTIFIED,102
it_DETAIL1-W_HAND_4 LEFT-JUSTIFIED,
124 it_DETAIL1-W_HAND_5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'APMC Charges'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-apmc1 LEFT-JUSTIFIED,
56 it_DETAIL1-apmc2 LEFT-JUSTIFIED, 80 it_DETAIL1-apmc3 LEFT-JUSTIFIED,102
it_DETAIL1-apmc4 LEFT-JUSTIFIED,
124 it_DETAIL1-apmc5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
write : /1 'Miscellaneous Charges'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-mis1 LEFT-JUSTIFIED,
56 it_DETAIL1-mis2 LEFT-JUSTIFIED, 80 it_DETAIL1-mis3 LEFT-JUSTIFIED,103
it_DETAIL1-mis4 LEFT-JUSTIFIED,
124 it_DETAIL1-mis5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.

write : /1 'Supervision Charges'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-sup1 LEFT-JUSTIFIED,
56 it_DETAIL1-sup2 LEFT-JUSTIFIED, 80 it_DETAIL1-sup3 LEFT-JUSTIFIED,102
it_DETAIL1-sup4 LEFT-JUSTIFIED,
124 it_DETAIL1-sup5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.

write : /1 'Packing Charges'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_PKG_1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_PKG_2 LEFT-JUSTIFIED, 80 it_DETAIL1-W_PKG_3 LEFT-JUSTIFIED,102
it_DETAIL1-W_PKG_4 LEFT-JUSTIFIED,
124 it_DETAIL1-W_PKG_5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.

write : /1 'Forwarding Charges'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-for1 LEFT-JUSTIFIED,
56 it_DETAIL1-W_FWD_2 LEFT-JUSTIFIED , 80 it_DETAIL1-for3 LEFT-JUSTIFIED,102
it_DETAIL1-for4 LEFT-JUSTIFIED,
124 it_DETAIL1-for5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.

write : /1 'Export Fees'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-exp1 LEFT-JUSTIFIED,
56 it_DETAIL1-exp2 LEFT-JUSTIFIED, 80 it_DETAIL1-exp3 LEFT-JUSTIFIED,102
it_DETAIL1-exp4 LEFT-JUSTIFIED ,
124 it_DETAIL1-exp5 LEFT-JUSTIFIED.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
*
*
* write : 33 sy-vline.
* write : 55 sy-vline.
* write : 79 sy-vline.
* write : 101 sy-vline.
* write : 123 sy-vline.
* write : 142 sy-vline.
* uline.
write : /1 'TOTAL VALUE'.
WRITE : 33 sy-vline, 34 it_DETAIL1-tot1 LEFT-JUSTIFIED ,
56 it_DETAIL1-tot2 LEFT-JUSTIFIED, 80 it_DETAIL1-tot3 LEFT-JUSTIFIED,102
it_DETAIL1-tot4 LEFT-JUSTIFIED,
124 it_DETAIL1-tot5 LEFT-JUSTIFIED .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
loop at it_range.
write : /1 'Ranking'.
WRITE : 33 sy-vline, 34 it_range-w_r1 ,
56 it_range-w_r2 , 80 it_range-w_r3 ,102
it_range-w_r4 ,
124 it_range-w_r5 .
endloop.
write : 33 sy-vline.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
uline.
* write : 22 sy-vline.
* write : 43 sy-vline.
* write : 68 sy-vline.
* write : 90 sy-vline.
* write : 112 sy-vline.
* write : 134 sy-vline.
* uline.
* write : 22 sy-vline.
* write : 43 sy-vline.
* write : 68 sy-vline.
* write : 90 sy-vline.
* write : 112 sy-vline.
* write : 134 sy-vline.
* uline.
* write : /1 'Other Details'.
* write : 33 sy-vline.
* write : 55 sy-vline.
* write : 79 sy-vline.
* write : 101 sy-vline.
* write : 123 sy-vline.
* write : 142 sy-vline.
* uline.
write : /1 'Delivery Date'.

write : 33 sy-vline , 34 it_DETAIL1-deliv_dat1,
56 it_DETAIL1-deliv_dat2 , 80 it_DETAIL1-deliv_dat3 ,102 it_detail1-deliv_dat4,
124 it_DETAIL1-deliv_dat5.
.
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
* uline.
* write : /1 'Delivery Schedule'.
* write : 22 sy-vline.
* write : 43 sy-vline.
* write : 68 sy-vline.
* write : 90 sy-vline.
* write : 112 sy-vline.
* write : 134 sy-vline.
uline.
write : /1 'Incoterms'.
* write : 32 sy-vline.
WRITE : 33 sy-vline, 34 it_DETAIL1-W_inco1 ,
56 it_DETAIL1-W_inco2 ,80
it_DETAIL1-W_inco3 ,102 it_DETAIL1-W_inco4 , 124 it_DETAIL1-W_inco5 .
write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.
* uline.
WRITE :/33 sy-vline, 34 it_DETAIL1-W_inco11,
56 it_DETAIL1-W_inco22 , 80 it_DETAIL1-W_inco33 ,102 it_DETAIL1-W_inco44 ,
124 it_DETAIL1-W_inco55.


write : 55 sy-vline.
write : 79 sy-vline.
write : 101 sy-vline.
write : 123 sy-vline.
write : 142 sy-vline.

* uline.
* write : /1 'Details Of Warranty'.
* write : 22 sy-vline.
* write : 43 sy-vline.
* write : 68 sy-vline.
* write : 90 sy-vline.
* write : 112 sy-vline.
* write : 134 sy-vline.
uline.


refresh it_range.
clear it_range.

ENDLOOP.
refresh it_detail1.
clear it_detail1.
ENDFORM. " DISPLAY_DATA

*&--------------------------------------------------------------------*
*& Form get_tax_data
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM get_tax_data.

ENDFORM. "get_tax_data

*&---------------------------------------------------------------------*
*& Form FOOTER_DISPLAY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FOOTER_DISPLAY .
ULINE.
ENDFORM. " FOOTER_DISPLAY

*&--------------------------------------------------------------------*
*& Form cal_tax
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
form cal_tax.
endform. "cal_tax

No comments:

link us...

For Visitors

if you want to publish or Add something on ERP, SAP , SAP FUNCTIONAL, SAP ABAP then mail us along with your email-id. contain must be yours

email-id :- avinashkr_raj@yahoo.com(any email)

email-id :- avinaskr_raj.abap@blogger.com ( use only gmail)