URGET TICKET

[Former Member]

hi experts,

i m working on salesregister report.

actually i m trying to fetch the customer rate as well as the ship to party rate as well. for a single customer it is coming absoutley ok but when i m giving a customer range its giving the wrong output. wat i have observed that the customer rate which is coming for the last customer is used for all the customers.

here i m posting the code, that will be really great if u can get the right values for me.

&----

---

*& Report ZSD_SALESREGISTER_06

*&

&----

---

*&

*&

&----

---

REPORT ZSD_SALESREGISTER_06.

TYPE-POOLS : slis.

TABLES: vbrk , kna1 , vbrp.

----

---

• Data declaration for ALV Display.

----

---

DATA : fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,

layout TYPE slis_layout_alv,

x_save TYPE disvariant,

it_listhead1 TYPE slis_t_listheader, "List Header

it_listhead TYPE slis_t_listheader. "List Header

TYPES: BEGIN OF ty_vbrk,

vbeln TYPE vbeln,

fkart TYPE fkart,

spart TYPE spart,

knumv TYPE knumv,

fkdat TYPE fkdat,

netwr TYPE netwr,

kunag TYPE kunag,

kurrf TYPE kurrf,

fksto TYPE fksto,

inco1 TYPE inco1,

END OF ty_vbrk,

BEGIN OF ty_vbrp,

vbeln TYPE vbeln,

fkart TYPE fkart,

posnr TYPE posnr,

fkimg TYPE fkimg,

vrkme TYPE vrkme,

matnr TYPE matnr,

arktx TYPE arktx,

fklmg TYPE fklmg,

meins TYPE meins,

kzwi4 TYPE kzwi4,

kbetr1 TYPE kbetr,

knumv TYPE knumh,

VAKEY TYPE VAKEY,

END OF ty_vbrp,

BEGIN OF ty_konv,

knumv TYPE knumv,

kposn TYPE kposn,

kschl TYPE kschl,

waers TYPE waers,

kbetr TYPE kbetr,

kawrt TYPE kawrt,

kwert TYPE kwert,

kappl TYPE kappl,

END OF ty_konv,

BEGIN OF ty_final,

srno TYPE i,

vbeln TYPE vbeln,

fkart TYPE fkart,

spart TYPE spart,

posnr TYPE posnr,

fkdat TYPE fkdat,

kunnr TYPE kunnr,

name1 TYPE name1,

addr(100) TYPE c,

state(50) TYPE c,

bezei TYPE bezei,

j_1iexcd TYPE j_1iexcd,

j_1icstno TYPE j_1icstno,

j_1ilstno TYPE j_1ilstno,

adrnr_shp TYPE adrnr,

kunnr_shp TYPE kunnr,

name1_shp TYPE name1,

addr_shp(100) TYPE c,

city1_shp TYPE ad_city1,

post_code1_shp TYPE ad_pstcd1,

state_shp(50) TYPE c,

region(25) TYPE c,

bezei_shp TYPE bezei,

j_1iexcd_shp TYPE j_1iexcd,

j_1icstno_shp TYPE j_1icstno,

j_1ilstno_shp TYPE j_1ilstno,

matnr TYPE matnr,

arktx TYPE arktx,

fkimg TYPE fkimg,

vrkme TYPE vrkme,

fklmg TYPE fklmg,

meins TYPE meins,

kbetr TYPE kbetr,

waers TYPE waers,

dis1 TYPE kwert, "Discount A

dis2 TYPE kwert, "FOC

jexp TYPE kwert, "BED

jcep TYPE kwert, "esess

ja1x TYPE kwert, "HSes

jivc TYPE kwert, "CSR 3%

jivp TYPE kwert, "VAT 4%

zcpr TYPE kwert, "PRICE

zpr5 TYPE kwert,

zpr7 TYPE kwert,

zcf TYPE kwert,

• disa type kwert,

ucpr TYPE kwert, "PRICE

upr5 TYPE kwert,

upr7 TYPE kwert,

ucf TYPE kwert,

upric TYPE kbetr, "Unit Price

upric1 TYPE kbetr, "Unit price 1

price TYPE kwert, "final price

zd00 TYPE kwert, "Header Freight.

zf00 TYPE kwert, "Item Freight .

diff TYPE kwert,

tinv TYPE kwert,

kurrf TYPE kurrf,

cancl TYPE ztxt,

fksto TYPE fksto,

belnr TYPE bseg-belnr,

motxt TYPE txt20,

tptxt TYPE txt20,

vltxt TYPE txt20,

grtxt TYPE txt20,

rptxt TYPE txt20,

kzwi4 TYPE kzwi4,

inco1 TYPE inco1,

knumv TYPE knumv,

END OF ty_final.

DATA: wa_vbrk TYPE ty_vbrk,

wa_vbrp TYPE ty_vbrp,

wa_konv TYPE ty_konv,

wa_final TYPE ty_final.

DATA: it_vbrk LIKE STANDARD TABLE OF wa_vbrk WITH HEADER LINE INITIAL SIZE 0,

it_vbrp LIKE STANDARD TABLE OF wa_vbrp WITH HEADER LINE INITIAL SIZE 0,

it_konv LIKE STANDARD TABLE OF wa_konv WITH HEADER LINE INITIAL SIZE 0,

it_final LIKE STANDARD TABLE OF wa_final WITH HEADER LINE INITIAL SIZE 0.

data: BEGIN OF itab_vbrp occurs 0,

vbeln TYPE vbeln,

fkart TYPE fkart,

posnr TYPE posnr,

fkimg TYPE fkimg,

vrkme TYPE vrkme,

matnr TYPE matnr,

arktx TYPE arktx,

fklmg TYPE fklmg,

meins TYPE meins,

kzwi4 TYPE kzwi4,

kbetr1 TYPE kbetr,

knumv TYPE knumh,

VAKEY TYPE VAKEY,

END OF itab_vbrp.

DATA : VAR_KBT TYPE KBETR,

motxt TYPE txt20,

tptxt TYPE txt20,

vltxt TYPE txt20,

grtxt TYPE txt20,

rptxt TYPE txt20.

DATA : textline LIKE tline OCCURS 1000 WITH HEADER LINE.

DATA : thead LIKE thead.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_fkdat FOR vbrk-fkdat OBLIGATORY,

s_kunnr FOR kna1-kunnr,

s_spart FOR vbrk-spart,

s_bzirk FOR vbrk-bzirk,

s_vkgrp FOR vbrp-vkgrp,

p_vkorg FOR vbrk-vkorg,

p_vtweg FOR vbrk-vtweg.

SELECTION-SCREEN: END OF BLOCK b1.

START-OF-SELECTION.

CLEAR : wa_final, motxt, tptxt, vltxt, grtxt, rptxt.

REFRESH : it_final.

SELECT vbeln fkart spart knumv fkdat netwr kunag kurrf fksto inco1

FROM vbrk INTO TABLE it_vbrk

WHERE fkdat IN s_fkdat

AND fkart <> 'S1'

AND kunag IN s_kunnr

AND spart IN s_spart

AND bzirk IN s_bzirk

AND sfakn = ' '

AND vkorg IN p_vkorg

AND fksto <> 'X'

AND vtweg IN p_vtweg.

IF it_vbrk[] IS INITIAL.

ELSE.

*IF it_vbrk-fkart <> 'S1' or it_vbrk-fksto <> 'X' or it_vbrk-sfakn = ' ' .

SORT it_vbrk BY vbeln.

SELECT vbeln posnr fkimg vrkme matnr arktx fklmg meins kzwi4

FROM vbrp INTO CORRESPONDING FIELDS OF TABLE it_vbrp

FOR ALL ENTRIES IN it_vbrk

WHERE vbeln = it_vbrk-vbeln

AND vkgrp IN s_vkgrp

AND fkimg <> 0.

SELECT knumv kposn kschl waers kbetr kawrt kwert kappl

FROM konv INTO TABLE it_konv

FOR ALL ENTRIES IN it_vbrk

WHERE knumv = it_vbrk-knumv

AND kappl = 'V'.

write:'Ctnumber','ship number',' cprice ','st price'.

DATA ind TYPE i.

DATA KEY TYPE KONH-VAKEY.

LOOP AT it_vbrk INTO wa_vbrk.

LOOP AT it_vbrp .

CONCATENATE '5000' wa_vbrk-kunag 'ZDOM' IT_VBRP-MATNR INTO KEY.

ind = sy-tabix.

*select single knumh from konh into it_vbrp-knumv where vakey = key and datbi >= s_fkdat-low AND datab <= s_fkdat-high.

SELECT single knumh FROM a501 INTO it_vbrp-knumv WHERE kUNWE = WA_vbrK-kUNAG AND kschl = 'ZCPR'

AND kappl = 'V' AND auart_sd = 'ZDOM' AND matnr = it_vbrp-matnr AND datbi >= s_fkdat-low AND datab <= s_fkdat-high.

SELECT single kbetr FROM konp INTO it_vbrp-kbetr1 WHERE knumh = it_vbrp-knumv AND kschl = 'ZCPR'.

write:/ ,it_vbrp-kbetr1,it_vbrp-knumv.

if it_vbrP-knumv = ' '.

SELECT SINGLE knumh FROM a502 INTO it_vbrp-knumv WHERE kschl = 'ZPR5' AND kappl = 'V' AND

matnr = it_vbrp-matnr AND datbi >= s_fkdat-low AND datab <= s_fkdat-high.

SELECT SINGLE kbetr FROM konp INTO it_vbrp-kbetr1 WHERE knumh = it_vbrp-knumv.

MODIFY it_vbrp INDEX ind.

ENDIF.

*on change of wa_vbrk-kunag.

*exit.

*endon.

MODIFY it_vbrp INDEX ind.

ENDLOOp.

sort it_vbrp by knumv .

CLEAR : it_vbrp-knumv . " ,it_vbrp-kbetr1.

ENDLOOP.

IF sy-subrc = 0.

SORT it_konv BY knumv.

loop at itab_vbrp.

**SELECT SINGLE kbetr FROM konp INTO it_vbrp-kbetr1 WHERE knumh = it_vbrp-knumv.

write:/ ,itab_vbrp-kbetr1,itab_vbrp-knumv.

endloop.

ENDIF.

ENDIF.

PERFORM get_taxes.

SORT it_final BY VBELN POSNR.

PERFORM display_data.

END-OF-SELECTION.

&----

---

*& Form get_taxes

&----

---

FORM get_taxes .

DATA count TYPE i.

DATA: vname1 TYPE kna1-name1,

vort01 TYPE kna1-ort01,

regio TYPE kna1-regio,

region(30) TYPE c,

vstras TYPE kna1-stras,

bezei TYPE bezei,

land1 TYPE kna1-land1.

count = 0.

LOOP AT it_vbrp INTO wa_vbrp.

count = count + 1.

*write : / wa_vbrp-kbetr1.

wa_final-srno = count.

wa_final-vbeln = wa_vbrp-vbeln.

wa_final-posnr = wa_vbrp-posnr.

wa_final-matnr = wa_vbrp-matnr.

wa_final-arktx = wa_vbrp-arktx.

wa_final-fkimg = wa_vbrp-fkimg.

wa_final-vrkme = wa_vbrp-vrkme.

wa_final-fklmg = wa_vbrp-fklmg.

wa_final-meins = wa_vbrp-meins.

wa_final-kzwi4 = wa_vbrp-kzwi4.

wa_final-upric1 = wa_vbrp-kbetr1.

READ TABLE it_vbrk INTO wa_vbrk WITH KEY vbeln = wa_vbrp-vbeln

BINARY SEARCH.

IF sy-subrc = 0.

wa_final-fkdat = wa_vbrk-fkdat.

wa_final-fkart = wa_vbrk-fkart.

wa_final-spart = wa_vbrk-spart.

wa_final-fksto = wa_vbrk-fksto.

wa_final-inco1 = wa_vbrk-inco1.

IF wa_vbrk-fksto = 'X'.

wa_final-cancl = 'Cancelled'.

ENDIF.

SELECT SINGLE j_1iexcd j_1icstno j_1ilstno

FROM j_1imocust INTO (wa_final-j_1iexcd, wa_final-j_1icstno, wa_final-j_1ilstno)

WHERE kunnr = wa_vbrk-kunag.

*wa_final-J_1IEXCD = eccno.

*wa_final-J_1IEXRN = ern.

*wa_final-J_1ICSTNO = cstno.

SELECT SINGLE name1 ort01 regio stras land1 FROM kna1

INTO (vname1 , vort01 , regio , vstras, land1)

WHERE kunnr = wa_vbrk-kunag.

IF sy-subrc = 0.

wa_final-kunnr = wa_vbrk-kunag.

wa_final-name1 = vname1.

CONCATENATE vstras ',' vort01 INTO wa_final-addr.

wa_final-state = vort01.

wa_final-region = regio.

SELECT SINGLE bezei FROM t005u INTO CORRESPONDING FIELDS OF wa_final WHERE bland = regio

AND spras = 'E'

AND land1 = land1.

*wa_final-bezei = bezei.

• SHIP TO PARTY ADDRESS

CLEAR : vname1 , vort01 , regio , vstras, land1.

SELECT SINGLE kunnr adrnr FROM vbpa INTO (wa_final-kunnr_shp, wa_final-adrnr_shp)

WHERE vbeln = wa_final-vbeln AND parvw = 'WE'.

SELECT SINGLE name1 street city1 post_code1 FROM adrc INTO (wa_final-name1_shp, wa_final-addr_shp,

wa_final-city1_shp, wa_final-post_code1_shp)

WHERE addrnumber = wa_final-adrnr_shp.

SELECT SINGLE j_1iexcd j_1icstno j_1ilstno

FROM j_1imocust INTO (wa_final-j_1iexcd_shp, wa_final-j_1icstno_shp, wa_final-j_1ilstno_shp)

WHERE kunnr = wa_vbrk-kunag.

ENDIF.

LOOP AT it_konv INTO wa_konv

WHERE knumv = wa_vbrk-knumv

AND kposn = wa_vbrp-posnr.

IF sy-subrc = 0.

CASE wa_konv-kschl.

WHEN 'JEXP'. "bed 16%

wa_final-jexp = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'ZCEP'. "ECESS 2%

wa_final-jcep = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'JA1X'. "HCESS 1%

wa_final-ja1x = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'JIVP'. "vat 4%

wa_final-jivp = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'JIVC'. "CST 3%

wa_final-jivc = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'ZCPR' OR 'ZINC' OR 'ZREP' OR 'ZSCR' OR 'ZC&F'. "PRICE

wa_final-zcpr = wa_konv-kwert * wa_vbrk-kurrf .

wa_final-ucpr = wa_konv-kbetr.

WHEN 'ZPR5'. "PRICE

wa_final-zpr5 = wa_konv-kwert * wa_vbrk-kurrf .

wa_final-upr5 = wa_konv-kbetr.

WHEN 'ZPR7'. "PRICE

wa_final-zpr7 = wa_konv-kwert * wa_vbrk-kurrf .

wa_final-upr7 = wa_konv-kbetr.

WHEN 'ZDC1'. "Discount A

wa_final-dis1 = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'ZDC2'. "FOC

wa_final-dis2 = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'ZC&F'. "PRICE

wa_final-zcf = wa_konv-kwert * wa_vbrk-kurrf .

wa_final-ucf = wa_konv-kbetr.

WHEN 'ZF00'. "FREIGHT

wa_final-zf00 = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'ZD00'. "FREIGHT

wa_final-zd00 = wa_konv-kwert * wa_vbrk-kurrf .

WHEN 'DIFF'. "Total Invoice value

wa_final-diff = wa_konv-kwert * wa_vbrk-kurrf .

• wa_final-tinv = wa_konv-kawrt.

IF wa_final-zf00 IS INITIAL.

wa_final-zf00 = wa_final-zd00 .

ELSE .

wa_final-zf00 = wa_final-zd00 + wa_final-zf00.

ENDIF.

ENDCASE.

ENDIF.

wa_final-waers = wa_konv-waers.

ENDLOOP.

IF wa_final-zcpr IS INITIAL.

IF wa_final-zpr5 IS INITIAL.

IF wa_final-zpr7 IS INITIAL.

IF wa_final-zcf IS INITIAL.

ELSE.

wa_final-price = wa_final-zcf.

wa_final-upric = wa_final-ucf.

ENDIF.

ELSE.

wa_final-price = wa_final-zpr7.

wa_final-upric = wa_final-upr7.

ENDIF.

ELSE.

wa_final-price = wa_final-zpr5.

wa_final-upric = wa_final-upr5.

ENDIF.

ELSE.

wa_final-price = wa_final-zcpr.

wa_final-upric = wa_final-ucpr.

ENDIF.

• APPEND wa_final TO it_final .

• CLEAR: wa_final,wa_konv.

ENDIF.

IF wa_final-fkart = 'ZCT2' OR wa_final-fkart = 'ZCT5' .

wa_final-jexp = 0.

wa_final-jcep = 0.

wa_final-ja1x = 0.

wa_final-tinv = wa_final-price +

• wa_final-jexp +

• wa_final-jcep +

• wa_final-ja1x +

wa_final-jivp +

wa_final-jivc +

wa_final-dis1 +

wa_final-dis2 +

wa_final-diff +

wa_final-zf00.

ELSE.

wa_final-tinv = wa_final-price +

wa_final-jexp +

wa_final-jcep +

wa_final-ja1x +

wa_final-jivp +

wa_final-jivc +

wa_final-dis1 +

wa_final-dis2 +

wa_final-diff +

wa_final-zf00.

ENDIF.

SELECT SINGLE belnr FROM bsid INTO wa_final-belnr WHERE vbeln = wa_final-vbeln.

IF wa_final-belnr IS INITIAL.

SELECT SINGLE belnr FROM bsad INTO wa_final-belnr WHERE vbeln = wa_final-vbeln.

ENDIF.

*DATA ind TYPE i.

*DATA KEY TYPE KONH-VAKEY.

*LOOP AT it_vbrk INTO wa_vbrk.

*LOOP AT it_vbrp.

*

*CONCATENATE '5000' WA_VBRK-KUNAG 'ZDOM' IT_VBRP-MATNR INTO KEY.

*

*ind = sy-tabix.

*

*

• SELECT SINGLE knumh FROM a501 INTO it_vbrp-knumv WHERE kUNWE = WA_vbrK-kUNAG AND kschl = 'ZCPR' AND kappl = 'V' AND auart_sd = 'ZDOM' AND matnr = it_vbrp-matnr AND datbi >= s_fkdat-low AND datab <= s_fkdat-high.

• SELECT SINGLE kbetr FROM konp INTO it_vbrp-kbetr1 WHERE knumh = it_vbrP-knumv AND kschl = 'ZCPR'.

**WRITE : / it_vbrp-knumv ,it_vbrp-kbetr1.

**IF it_vbrp-kNUMV = 0.

• SELECT SINGLE knumh FROM a502 INTO it_vbrp-knumv WHERE kschl = 'ZPR5' AND kappl = 'V' AND matnr = it_vbrp-matnr AND datbi >= s_fkdat-low AND datab <= s_fkdat-high.

• SELECT SINGLE kbetr FROM konp INTO it_vbrp-kbetr1 WHERE knumh = it_vbrp-knumv.

*

*select single knumh from konh into it_vbrp-knumv where vakey = key and datbi >= s_fkdat-low AND datab <= s_fkdat-high.

*SELECT SINGLE kbetr FROM konp INTO it_vbrp-kbetr1 WHERE knumh = it_vbrp-knumv.

*

*

**ENDIF.

*

*

*

*

*

**ULINE.

**WRITE : / 'KEY : - ' , KEY.

• IF it_vbrp-kNUMV = 0.

*MODIFY it_vbrp INDEX ind.

*

*CLEAR : it_vbrp-knumv ,it_vbrp-kbetr1.

*ENDLOOP.

*CLEAR : wa_vbrk-kunag.

*ENDLOOP.

CLEAR : motxt, tptxt, vltxt, grtxt, rptxt.

• Read text for Invoice Header mode of transport.

thead-tdname = wa_final-vbeln.

CALL FUNCTION 'READ_TEXT'

EXPORTING

• CLIENT = SY-MANDT

id = '0102'

language = sy-langu

name = thead-tdname

object = 'VBBK'

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

IMPORTING

header = thead

TABLES

lines = textline

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.

IF sy-subrc = 0.

CLEAR motxt.

LOOP AT textline.

IF sy-tabix = 1.

motxt = textline-tdline.

ENDIF.

• if not ( text1 is initial ).

• concatenate IM_TEXT text1 into IM_TEXT.

• endif.

ENDLOOP.

ENDIF.

wa_final-motxt = motxt.

• Read text for Invoice Header mode of transport.

• Read text for Invoice Header transporter.

thead-tdname = wa_final-vbeln.

CALL FUNCTION 'READ_TEXT'

EXPORTING

• CLIENT = SY-MANDT

id = '103'

language = sy-langu

name = thead-tdname

object = 'VBBK'

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

IMPORTING

header = thead

TABLES

lines = textline

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.

IF sy-subrc = 0.

CLEAR tptxt.

LOOP AT textline.

IF sy-tabix = 1.

tptxt = textline-tdline.

ENDIF.

• if not ( text1 is initial ).

• concatenate IM_TEXT text1 into IM_TEXT.

• endif.

ENDLOOP.

ENDIF.

wa_final-tptxt = tptxt.

• Read text for Invoice transporter.

• Read text for Invoice Header mode of transport.

thead-tdname = wa_final-vbeln.

CALL FUNCTION 'READ_TEXT'

EXPORTING

• CLIENT = SY-MANDT

id = '104'

language = sy-langu

name = thead-tdname

object = 'VBBK'

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

IMPORTING

header = thead

TABLES

lines = textline

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.

IF sy-subrc = 0.

CLEAR vltxt.

LOOP AT textline.

IF sy-tabix = 1.

vltxt = textline-tdline.

ENDIF.

• if not ( text1 is initial ).

• concatenate IM_TEXT text1 into IM_TEXT.

• endif.

ENDLOOP.

ENDIF.

wa_final-vltxt = vltxt.

• Read text for Invoice Header vehicle no.

• Read text for Invoice Header mode of transport.

thead-tdname = wa_final-vbeln.

CALL FUNCTION 'READ_TEXT'

EXPORTING

• CLIENT = SY-MANDT

id = '105'

language = sy-langu

name = thead-tdname

object = 'VBBK'

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

IMPORTING

header = thead

TABLES

lines = textline

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.

IF sy-subrc = 0.

CLEAR grtxt.

LOOP AT textline.

IF sy-tabix = 1.

grtxt = textline-tdline.

ENDIF.

• if not ( text1 is initial ).

• concatenate IM_TEXT text1 into IM_TEXT.

• endif.

ENDLOOP.

ENDIF.

wa_final-grtxt = grtxt.

• Read text for Invoice Header GR.No.

• Read text for Invoice Header mode of transport.

thead-tdname = wa_final-vbeln.

CALL FUNCTION 'READ_TEXT'

EXPORTING

• CLIENT = SY-MANDT

id = '106'

language = sy-langu

name = thead-tdname

object = 'VBBK'

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

IMPORTING

header = thead

TABLES

lines = textline

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.

IF sy-subrc = 0.

CLEAR rptxt.

LOOP AT textline.

IF sy-tabix = 1.

rptxt = textline-tdline.

ENDIF.

• if not ( text1 is initial ).

• concatenate IM_TEXT text1 into IM_TEXT.

• endif.

ENDLOOP.

ENDIF.

wa_final-rptxt = rptxt.

• Read text for Invoice Header Road Permit.

APPEND wa_final TO it_final .

CLEAR: wa_final,wa_konv.

ENDLOOP.

CLEAR: wa_vbrp, wa_vbrk.

ENDFORM. " get_taxes

&----

---

*& Form display_data

&----

---

FORM display_data .

PERFORM build_fieldcatalog.

PERFORM disp_alv.

ENDFORM. " display_data

&----

---

*& Form BUILD_FIELDCATALOG

&----

---

FORM build_fieldcatalog .

CLEAR: fieldcatalog,fieldcatalog[].

fieldcatalog-fieldname = 'SRNO'.

*fieldcatalog-tabname = 'IT_FINAL'.

fieldcatalog-seltext_s = 'Sr.No.'.

fieldcatalog-key = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'VBELN'.

fieldcatalog-seltext_m = 'Invoice No'.

fieldcatalog-key = 'X'.

fieldcatalog-no_zero = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'BELNR'.

fieldcatalog-seltext_m = 'Acc.Doc.No'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'FKART'.

fieldcatalog-seltext_m = 'Document Type'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'SPART'.

fieldcatalog-seltext_m = 'Division'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'FKDAT'.

fieldcatalog-seltext_m = 'Date'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'KUNNR'.

fieldcatalog-seltext_m = 'Customer Code'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'NAME1'.

fieldcatalog-seltext_m = 'Customer Name'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'ADDR'.

fieldcatalog-seltext_m = 'Address'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'STATE'.

fieldcatalog-seltext_m = 'State'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'REGION'.

fieldcatalog-seltext_m = 'Region'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

• Additional Fields *************

*wa_final-J_1ICSTNO

fieldcatalog-fieldname = 'J_1IEXCD'.

fieldcatalog-seltext_m = 'ECC No'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'J_1ICSTNO'.

fieldcatalog-seltext_m = 'CST No'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'J_1ILSTNO'.

fieldcatalog-seltext_m = 'LST No'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'KUNNR_SHP'.

fieldcatalog-seltext_m = 'Ship to Party'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'NAME1_SHP'.

fieldcatalog-seltext_m = 'STP Name'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'ADDR_SHP'.

fieldcatalog-seltext_m = 'STP Address'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

*fieldcatalog-fieldname = 'STATE'.

*fieldcatalog-seltext_m = 'State'.

*APPEND fieldcatalog TO fieldcatalog.

*CLEAR fieldcatalog.

*

*fieldcatalog-fieldname = 'REGION'.

*fieldcatalog-seltext_m = 'Region'.

*APPEND fieldcatalog TO fieldcatalog.

*CLEAR fieldcatalog.

• Additional Fields *************

*wa_final-J_1ICSTNO

fieldcatalog-fieldname = 'J_1IEXCD_SHP'.

fieldcatalog-seltext_m = 'STP ECC No'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'J_1ICSTNO_SHP'.

fieldcatalog-seltext_m = 'STP CST No'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'J_1ILSTNO_SHP'.

fieldcatalog-seltext_m = 'STP LST No'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MOTXT'.

fieldcatalog-seltext_m = 'Mode Of Transport'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'TPTXT'.

fieldcatalog-seltext_m = 'Transporter'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'VLTXT'.

fieldcatalog-seltext_m = 'Vehicle No.'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'GRTXT'.

fieldcatalog-seltext_m = 'GR.No.'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'RPTXT'.

fieldcatalog-seltext_m = 'Road Permit'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MATNR'.

fieldcatalog-seltext_m = 'ITEM No'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'ARKTX'.

fieldcatalog-seltext_m = 'Item Description'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

• Additional Fields *************

*fieldcatalog-fieldname = 'FKIMG'.

*fieldcatalog-seltext_m = 'Qty'.

*APPEND fieldcatalog TO fieldcatalog.

*CLEAR fieldcatalog.

*

*fieldcatalog-fieldname = 'VRKME'.

*fieldcatalog-seltext_m = 'Unit'.

*APPEND fieldcatalog TO fieldcatalog.

*CLEAR fieldcatalog.

fieldcatalog-fieldname = 'FKLMG'.

fieldcatalog-seltext_m = 'Qty'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MEINS'.

fieldcatalog-seltext_m = 'Unit'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'UPRIC1'.

fieldcatalog-seltext_m = 'Customer Rate Per Unit'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'UPRIC'.

fieldcatalog-seltext_m = 'Shipping Rate Per Unit'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'PRICE'.

fieldcatalog-seltext_m = 'Total Value'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'WAERS'.

fieldcatalog-seltext_m = 'Curr'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

• Additional Fields *************

*

fieldcatalog-fieldname = 'DIS1'.

fieldcatalog-seltext_m = 'Discount A'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

*fieldcatalog-fieldname = 'DIS2'.

*fieldcatalog-seltext_m = 'FOC'.

*APPEND fieldcatalog TO fieldcatalog.

*CLEAR fieldcatalog.

• Additional Fields *************

fieldcatalog-fieldname = 'JEXP'.

fieldcatalog-seltext_m = 'BED @16%'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'JCEP'.

fieldcatalog-seltext_m = 'CEss @2%'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'JA1X'.

fieldcatalog-seltext_m = 'HEc @1%'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

• Additional Fields *************

fieldcatalog-fieldname = 'DIS2'.

fieldcatalog-seltext_m = 'FOC'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

• Additional Fields *************

fieldcatalog-fieldname = 'JIVC'.

fieldcatalog-seltext_m = 'CST @3%'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'JIVP'.

fieldcatalog-seltext_m = 'VAT 4%'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

*fieldcatalog-fieldname = 'ZF00'.

*fieldcatalog-seltext_m = 'Freight chg.'.

*APPEND fieldcatalog TO fieldcatalog.

*CLEAR fieldcatalog.

fieldcatalog-fieldname = 'ZF00'.

fieldcatalog-seltext_m = 'Freight chg.'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'INCO1'.

fieldcatalog-seltext_m = 'Incoterms.'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'DIFF'.

fieldcatalog-seltext_m = 'Round Off '.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'TINV'.

fieldcatalog-seltext_m = 'Total Amt with tax'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'CANCL'.

fieldcatalog-seltext_m = 'Status'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

ENDFORM. " BUILD_FIELDCATALOG

&----

---

*& Form disp_alv

&----

---

FORM disp_alv .

layout-colwidth_optimize = 'X'.

DATA: w_repid TYPE sy-repid.

w_repid = sy-repid.

*----

---

*----

---

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = w_repid

is_layout = layout

it_fieldcat = fieldcatalog[]

i_save = 'A'

is_variant = x_save

TABLES

t_outtab = it_final[]

EXCEPTIONS

program_error = 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.

ENDFORM. " disp_alv

[Former Member]

ever heard abt debugging??

pk

[Former Member]

hi all,

is there any way in sap through which we can mantain the G/L A/c Balance?

i.e if an a/c balance goes below the particular balance the system should not allow the user to make any outgoing payment.

plz reply asap.

raman bhardwaj.

Edited by: Raman Bhardwaj on Oct 15, 2008 1:38 PM

[Former Member]

Edit:Subject Change.

Edited by: Ámit Güjärgoüd on Oct 15, 2008 1:46 PM