Sales office wise Report

Question

Hi,
I want my report according to sales office. means one sales office must not see another sales office records.
But mu code is not doing the same..
please check my code...
DATA: BEGIN OF itab OCCURS 0,
vbeln LIKE vbrk-vbeln,
matnr LIKE vbrp-matnr,
fkimg TYPE i,
netwr1 LIKE vbrp-netwr,
mwsbp1 LIKE vbrp-mwsbp,
netwr2 LIKE vbrp-netwr,
mwsbp2 LIKE vbrp-mwsbp,
diff1 LIKE vbrp-netwr,
diff2 LIKE vbrp-netwr,
total LIKE vbrp-netwr,
vkbur LIKE vbrp-vkbur,
END OF itab.
DATA: line1(116),line2(116),line3(116),line10(116), line11(116),
add1 LIKE kna1-name1,
add2 LIKE add1,
add3 LIKE add1,
add4 LIKE add1,
add5 LIKE add1,
amount LIKE bseg-wrbtr,
inwords LIKE spell-word.
DATA: total_records TYPE i,
half_total_records TYPE i,
debit_line_no TYPE i,
invdt LIKE sy-datum.
DATA: vbrptab TYPE vbrp OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: vbeln FOR vbrk-vbeln.
SELECT-OPTIONS: vkbur FOR vbrp-vkbur.
SELECTION-SCREEN END OF BLOCK b1.
SELECT * FROM vbrk WHERE vbeln IN vbeln AND ( fkart = 'ZG1' OR fkart = 'ZG2' OR fkart = 'RE' OR fkart = 'ZWCN' OR fkart = 'G2' ) AND rfbsk EQ 'C'.
IF vbrk-fkart = 'ZG1'.
line10 = 'YOUR ACCOUNT WITH US HAS BEEN CREDITED WITH THE AMOUNT AS MENTIONED BELOW FOR PRICE DIFFERENCE AGAINST,'.
ELSEIF vbrk-fkart = 'ZG2'.
line10 = 'YOUR ACCOUNT WITH US HAS BEEN CREDITED WITH THE AMOUNT AS MENTIONED BELOW FOR INCENTIVE AGAINST,'.
ENDIF.
PERFORM write_address.
PERFORM write_body.
PERFORM write_line_items.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e004.
ENDIF.
*&      Form  WRITE_ADDRESS
      text
FORM write_address.
WRITE /50 line1.
WRITE /36 line2.
WRITE /38 line3.
SKIP 5.
WRITE:/ 'CUST NO :',vbrk-kunrg.
CALL FUNCTION 'ZAK_CUSTOMER_ADDRESS'
EXPORTING
kunnr = vbrk-kunrg
IMPORTING
add1  = add1
add2  = add2
add3  = add3
add4  = add4
add5  = add5.
SELECT SINGLE * FROM bseg WHERE vbeln = vbrk-vbeln.
IF sy-subrc <> 0.
MESSAGE i021.
EXIT.
ENDIF.
ENDFORM.                    "WRITE_ADDRESS
*&      Form  WRITE_BODY
      text
FORM write_body.
SKIP 3.
SELECT SINGLE * FROM vbfa WHERE vbeln = vbrk-vbeln AND vbtyp_n IN ('P','O') AND vbtyp_v = 'M'.
IF sy-subrc = 0.
SELECT SINGLE fkdat INTO invdt FROM vbrk WHERE vbeln = vbfa-vbelv.
ENDIF.
WRITE line10.
WRITE:/'INVOICE NO :', vbfa-vbelv, 'DATED :', invdt,'.'.
ULINE /1(116).
WRITE:/ 'S.NO', 10 'CATALOG CODE',36 'QTY', 47 'VALUE', 56 'VALUE SHOULD', 81 'DIFF IN', 98 'CST', 112 'TOTAL'.
WRITE:/45 'CHARGED', 56 'HAVE CHARGED', 81 'VALUES', 108 'C/N VALUE'.
ULINE /1(116).
ENDFORM.
*&      Form  WRITE_LINE_ITEMS
      text
FORM write_line_items.
SELECT * INTO CORRESPONDING FIELDS OF TABLE vbrptab FROM vbrp WHERE vbeln = vbrk-vbeln ."and vkbur = vbrp-vkbur.
DESCRIBE TABLE vbrptab LINES total_records.
half_total_records = total_records / 2.
DO half_total_records TIMES.
READ TABLE vbrptab INDEX sy-index.
MOVE vbrptab-vbeln TO itab-vbeln.
MOVE vbrptab-matnr TO itab-matnr.
MOVE vbrptab-fkimg TO itab-fkimg.
MOVE vbrptab-netwr TO itab-netwr1.
MOVE vbrptab-mwsbp TO itab-mwsbp1.
MOVE vbrptab-vkbur TO itab-vkbur.
debit_line_no = sy-index + half_total_records.
READ TABLE vbrptab INDEX debit_line_no.
MOVE vbrptab-netwr TO itab-netwr2.
MOVE vbrptab-mwsbp TO itab-mwsbp2.
itab-netwr2 = itab-netwr2 * ( -1 ).
itab-mwsbp2 = itab-mwsbp2 * ( -1 ).
itab-diff1 = itab-netwr1 - itab-netwr2.
itab-diff2 = itab-mwsbp1 - itab-mwsbp2.
itab-total = itab-diff1 + itab-diff2.
IF itab-total NE 0.
APPEND itab.
ENDIF.
CLEAR itab.
ENDDO.
LOOP AT itab.
WRITE:/1(5) sy-tabix, 10 itab-matnr, 30(9) itab-fkimg, 40(12) itab-netwr1, 56(12) itab-netwr2, 76(12) itab-diff1, 90(12) itab-diff2, 105(12) itab-total.
AT LAST.
SUM.
ULINE /1(116).
WRITE:/10 'TOTAL VALUE',40(12) itab-netwr1, 56(12) itab-netwr2, 76(12) itab-diff1, 90(12) itab-diff2, 105(12) itab-total.
ULINE /1(116).
amount = itab-total.
CALL FUNCTION 'Z_SPELL_WORD'
EXPORTING
amount   = amount
IMPORTING
in_words = inwords.
CONCATENATE 'Amount in Words : Rupees' inwords 'Only' INTO inwords SEPARATED BY space.
WRITE:/ inwords.
SKIP 6.
WRITE:/'BCH Electric Limited'.
SKIP 4.
WRITE:/'AUTHORISED SIGNATORY'.
NEW-PAGE.
ENDAT.
ENDLOOP.
REFRESH itab.
ENDFORM.
Regards

Answer 1

Please check this code..
DATA: BEGIN OF itab OCCURS 0,
vbeln LIKE vbrk-vbeln,
matnr LIKE vbrp-matnr,
fkimg TYPE i,
netwr1 LIKE vbrp-netwr,
mwsbp1 LIKE vbrp-mwsbp,
netwr2 LIKE vbrp-netwr,
mwsbp2 LIKE vbrp-mwsbp,
diff1 LIKE vbrp-netwr,
diff2 LIKE vbrp-netwr,
total LIKE vbrp-netwr,
vkbur LIKE vbrp-vkbur,
END OF itab.
DATA: line1(116),line2(116),line3(116),line10(116), line11(116),
add1 LIKE kna1-name1,
add2 LIKE add1,
add3 LIKE add1,
add4 LIKE add1,
add5 LIKE add1,
amount LIKE bseg-wrbtr,
inwords LIKE spell-word.
DATA: total_records TYPE i,
half_total_records TYPE i,
debit_line_no TYPE i,
invdt LIKE sy-datum.
DATA: vbrptab TYPE vbrp OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS: vbeln FOR vbrk-vbeln.
SELECT-OPTIONS: vkbur FOR vbrp-vkbur.
SELECT * FROM vbrk WHERE vbeln IN vbeln AND ( fkart = 'ZG1' OR fkart = 'ZG2' OR fkart = 'RE' OR fkart = 'ZWCN' OR fkart = 'G2' ) AND rfbsk EQ 'C'.
IF vbrk-fkart = 'ZG1'.
line10 = 'YOUR ACCOUNT WITH US HAS BEEN CREDITED WITH THE AMOUNT AS MENTIONED BELOW FOR PRICE DIFFERENCE AGAINST,'.
ENDIF.
PERFORM write_address.
PERFORM write_body.
PERFORM write_line_items.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e004.
ENDIF.
FORM write_line_items.
SELECT * INTO CORRESPONDING FIELDS OF TABLE vbrptab FROM vbrp WHERE vbeln = vbrk-vbeln ."and vkbur = vbrp-vkbur.
DESCRIBE TABLE vbrptab LINES total_records.
half_total_records = total_records / 2.
DO half_total_records TIMES.
READ TABLE vbrptab INDEX sy-index.
MOVE vbrptab-vbeln TO itab-vbeln.
MOVE vbrptab-matnr TO itab-matnr.
MOVE vbrptab-fkimg TO itab-fkimg.
MOVE vbrptab-netwr TO itab-netwr1.
MOVE vbrptab-mwsbp TO itab-mwsbp1.
MOVE vbrptab-vkbur TO itab-vkbur.
debit_line_no = sy-index + half_total_records.
READ TABLE vbrptab INDEX debit_line_no.
MOVE vbrptab-netwr TO itab-netwr2.
MOVE vbrptab-mwsbp TO itab-mwsbp2.
itab-netwr2 = itab-netwr2 * ( -1 ).
itab-mwsbp2 = itab-mwsbp2 * ( -1 ).
itab-diff1 = itab-netwr1 - itab-netwr2.
itab-diff2 = itab-mwsbp1 - itab-mwsbp2.
itab-total = itab-diff1 + itab-diff2.
IF itab-total NE 0.
APPEND itab.
ENDIF.
CLEAR itab.
ENDDO.