Help with this total number

Question

hi to all experts,
i have a requirement to print the sub total of quantity  for a particular delievery order and material . but im not getting the exact quantity ( it should be  65000) im getting 780000 what might be the error.It is happening only in DO for others the quantity is correct . what might be the error. Please help me with this issue . Here is the report
TABLES: vbak, vbrk.
TABLES: likp. "CN5
DATA: BEGIN OF t_itab OCCURS 50,
        vbeln LIKE vbrk-vbeln,
        kunag LIKE vbrk-kunag,
        name1 LIKE kna1-name1,
        fkdat LIKE vbrk-fkdat,
        kunnr LIKE likp-kunnr, "CN5
      END OF t_itab.
DATA: BEGIN OF t_itab1 OCCURS 50,
        name1 LIKE kna1-name1,
        fkdat LIKE vbrk-fkdat,
        vbeln LIKE vbrp-vbeln,
        venum LIKE vekp-venum,
        matnr LIKE vbrp-matnr,
*    start insert CN4
        matwa LIKE vbrp-matwa,
*    end insert CN4
        vhilm LIKE vekp-vhilm,
        zuonr LIKE vbrk-zuonr,
        ihrez LIKE vbkd-ihrez,
        posnr LIKE vbrp-posnr,
        aubel LIKE vbrp-aubel,
        aupos LIKE vbrp-aupos,
        vgbel LIKE vbrp-vgbel,
        maktx LIKE makt-maktx,
        desctn LIKE makt-maktx,
        bstkd LIKE vbkd-bstkd,
*        ihrez LIKE vbkd-ihrez,
        vemng TYPE p,
        brgew LIKE vekp-brgew,
        ntgew LIKE vekp-ntgew,
*        tavol LIKE vekp-tavol,
        tavol TYPE p DECIMALS 5,
        ctnno TYPE i,
        kunag LIKE vbrk-kunag,
        kunnr LIKE likp-kunnr, "CN5
      END OF t_itab1.
DATA: BEGIN OF t_canc OCCURS 50,
        sfakn LIKE vbrk-sfakn,
        fkart LIKE vbrk-fkart,
      END OF t_canc.
DATA: t_disp LIKE t_itab1 OCCURS 50 WITH HEADER LINE.
DATA: t_disp1 LIKE t_itab1 OCCURS 50 WITH HEADER LINE.
DATA: g_date(10),
      g_tot_ctnno TYPE i,
      g_tot_vemng TYPE p,
      g_tot_brgew LIKE vekp-brgew,
      g_tot_ntgew LIKE vekp-ntgew,
*      g_tot_tavol LIKE vekp-tavol,
      g_tot_tavol TYPE p DECIMALS 5,
      g_gtot_ctnno TYPE i,
      g_gtot_vemng TYPE p,
      g_gtot_brgew LIKE vekp-brgew,
      g_gtot_ntgew LIKE vekp-ntgew,
*      g_gtot_tavol LIKE vekp-tavol.
      g_gtot_tavol TYPE p DECIMALS 5.
SELECTION-SCREEN BEGIN OF BLOCK mysel WITH FRAME TITLE text-003.
SELECT-OPTIONS:
  p_vkorg FOR vbak-vkorg OBLIGATORY,
  date FOR sy-datum OBLIGATORY.
*--> Start delete "CN6
*  cust FOR vbrk-kunag,
*<--End delete "CN6
*--> Start insert "CN6
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS sold RADIOBUTTON GROUP pt.      "Sold To Party
SELECTION-SCREEN COMMENT 3(20) text-001 FOR FIELD sold.
SELECTION-SCREEN POSITION 45.
PARAMETERS ship RADIOBUTTON GROUP pt.     "Ship To Party
SELECTION-SCREEN COMMENT 48(20) text-002 FOR FIELD ship.
SELECTION-SCREEN END OF LINE.
*<-- End insert "CN6
SELECT-OPTIONS : so_kunnr FOR likp-kunnr.  "CN5
SELECTION-SCREEN END OF BLOCK mysel.
*         START-OF-SELECTION.                                          *
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM get_disp_data.
  PERFORM refresh_data.
  PERFORM display_rep.
*&      Form  CheckAuthority
*       text
*      -->VKORG      text
*      -->VTWEG      text
FORM checkauthority USING vkorg vtweg.
  CALL FUNCTION 'Z_AUTHORITY_CHECK'
    EXPORTING
      module             = 'SD'
      vkorg              = vkorg
*     EKORG              =
*     WERKS              =
*     BUKRS              =
      vtweg              = vtweg
*     SPART              =
*     PRCTR              =
    EXCEPTIONS
      no_authority       = 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.                    "CheckAuthority
*       FORM get_data                                                 *
FORM get_data.
*--> Start delete "CN6
*  DATA:chrvkorg LIKE vbrk-vkorg,
*       chrvtweg LIKE vbrk-vtweg.
*<--End delete "CN6
*--> Start insert "CN6
  DATA: BEGIN OF l_vbrk OCCURS 0,
          vbeln LIKE t_itab-vbeln,
          fkdat LIKE t_itab-fkdat,
          kunnr LIKE t_itab-kunnr,
          chrvkorg LIKE vbrk-vkorg,
          chrvtweg LIKE vbrk-vtweg,
        END OF l_vbrk.
*<--End insert "CN6
*--> Start delete "CN5
*  SELECT vbeln fkdat kunag vkorg vtweg INTO (t_itab-vbeln, t_itab-fkdat,
*                                             t_itab-kunag, chrvkorg, chrvtweg)
*                           FROM vbrk  WHERE fkdat IN date
*                                        AND kunag IN cust
*                                        AND vkorg IN p_vkorg
*                                        AND fkart = 'ZF2'.
*<--End delete "CN5
*--> Start delete "CN6
*--> Start insert "CN5
*  SELECT a~vbeln a~fkdat a~kunag a~vkorg a~vtweg c~kunnr
*    INTO (t_itab-vbeln, t_itab-fkdat, t_itab-kunag, chrvkorg, chrvtweg, t_itab-kunnr)
*    FROM vbrk AS a
*    INNER JOIN vbrp AS b ON a~vbeln = b~vbeln
*    INNER JOIN likp AS c ON b~vgbel = c~vbeln
*    WHERE a~fkdat IN date
*      AND a~kunag IN cust
*      AND a~vkorg IN p_vkorg
*      AND a~fkart = 'ZF2'
*      AND c~kunnr IN so_kunnr.
*<--End insert "CN5
*<--End delete "CN6
*--> Start insert "CN6
  IF sold ='X'.
    SELECT vbeln fkdat kunag vkorg vtweg
      INTO TABLE l_vbrk
      FROM vbrk
      WHERE fkdat IN date
        AND vkorg IN p_vkorg
        AND fkart = 'ZF2'
        AND kunag IN so_kunnr.
  ELSEIF ship = 'X'.
    SELECT a~vbeln a~fkdat c~kunnr a~vkorg a~vtweg
      INTO TABLE l_vbrk
      FROM vbrk AS a
      INNER JOIN vbrp AS b ON a~vbeln = b~vbeln
      INNER JOIN likp AS c ON b~vgbel = c~vbeln
      WHERE a~fkdat IN date
      AND a~vkorg IN p_vkorg
      AND a~fkart = 'ZF2'
      AND c~kunnr IN so_kunnr.
  ENDIF.
  LOOP AT l_vbrk.
    t_itab-vbeln = l_vbrk-vbeln.
    t_itab-fkdat = l_vbrk-fkdat.
    t_itab-kunnr = l_vbrk-kunnr.
*<--End insert "CN6
    PERFORM checkauthority USING l_vbrk-chrvkorg l_vbrk-chrvtweg.
    IF sy-subrc = 0.
      APPEND t_itab.
      CLEAR t_itab.
    ENDIF.
*    CLEAR chrvtweg.   "CN6
  ENDLOOP.    "CN6
  PERFORM check_cancelled_doc.
  LOOP AT t_itab.
    SELECT SINGLE name1 INTO (t_itab-name1)
                        FROM kna1
*                        WHERE kunnr = t_itab-kunag. "CN5
                        WHERE kunnr = t_itab-kunnr. "CN5
    MODIFY t_itab.
    CLEAR t_itab.
  ENDLOOP.
  PERFORM get_data1.
  PERFORM get_data2.
ENDFORM.                    "get_data
*       FORM check_cancelled_doc                                      *
FORM check_cancelled_doc.
*--> Start delete "CN6
*SELECT fkart sfakn INTO (t_canc-fkart, t_canc-sfakn)
*                       FROM vbrk WHERE fkdat IN date
*                                 AND   kunag IN so_kunnr
*                                 AND   vkorg IN p_vkorg
*                                 AND   fkart = 'ZS1'.
*      APPEND t_canc.
*      CLEAR t_canc.
*    ENDSELECT.
*<-- End delete "CN6
*--> Start insert "CN6
  IF sold ='X'.
    SELECT fkart sfakn INTO (t_canc-fkart, t_canc-sfakn)
                       FROM vbrk WHERE fkdat IN date
                                 AND   kunag IN so_kunnr
                                 AND   vkorg IN p_vkorg
                                 AND   fkart = 'ZS1'.
      APPEND t_canc.
      CLEAR t_canc.
    ENDSELECT.
  ELSE.
    SELECT fkart sfakn INTO (t_canc-fkart, t_canc-sfakn)
                      FROM vbrk WHERE fkdat IN date
                                AND   vkorg IN p_vkorg
                                AND   fkart = 'ZS1'.
      APPEND t_canc.
      CLEAR t_canc.
    ENDSELECT.
  ENDIF.
*<-- End insert "CN6
  LOOP AT t_itab.
    READ TABLE t_canc WITH KEY sfakn = t_itab-vbeln.
    IF sy-subrc = 0.
      DELETE t_itab WHERE vbeln = t_canc-sfakn.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "check_cancelled_doc
*       FORM get_data1                                                *
FORM get_data1.
  LOOP AT t_itab.
*--> Start insert "CN6
    t_itab1-kunnr = t_itab-kunnr.
*<-- End insert "CN6
* start delete CN4
*    SELECT vbeln posnr matnr aubel aupos vgbel
*                  INTO (t_itab1-vbeln, t_itab1-posnr,
*                        t_itab1-matnr, t_itab1-aubel, t_itab1-aupos, t_itab1-vgbel)
*                  FROM vbrp
*                  WHERE vbeln = t_itab-vbeln.
* end delete CN4
*  start insert CN4
    SELECT vbeln posnr matnr aubel aupos vgbel matwa
                INTO (t_itab1-vbeln, t_itab1-posnr,
                      t_itab1-matnr, t_itab1-aubel, t_itab1-aupos, t_itab1-vgbel, t_itab1-matwa)
                FROM vbrp
                WHERE vbeln = t_itab-vbeln.
*  end insert CN4
      MOVE-CORRESPONDING t_itab TO t_itab1.
      APPEND t_itab1.
      CLEAR t_itab1.
    ENDSELECT.
  ENDLOOP.
*  SORT t_itab1 BY matnr vgbel.
*  SORT t_itab1 BY fkdat name1 ihrez.
  DELETE ADJACENT DUPLICATES FROM t_itab1 COMPARING matnr vgbel.
  LOOP AT t_itab1.
    SELECT SINGLE bstkd INTO (t_itab1-bstkd)
                        FROM vbkd
                        WHERE vbeln = t_itab1-aubel.
    SELECT SINGLE ihrez INTO (t_itab1-ihrez)
                        FROM vbkd
                        WHERE vbeln = t_itab1-aubel
                          AND posnr = t_itab1-aupos.
*CN2 inserted start by yongchun
    IF sy-subrc NE 0.
      SELECT SINGLE ihrez INTO (t_itab1-ihrez)
                          FROM vbkd
                          WHERE vbeln = t_itab1-aubel
                            AND posnr = '000000'.
    ENDIF.
*CN2 inserted end by yongchun
    SELECT SINGLE maktx INTO (t_itab1-maktx)
                        FROM makt
                        WHERE matnr = t_itab1-matnr.
    SELECT SINGLE zuonr INTO (t_itab1-zuonr)
                        FROM vbrk
                        WHERE vbeln = t_itab1-vbeln.
    MODIFY t_itab1.
    CLEAR t_itab1.
  ENDLOOP.
ENDFORM.                                                    "get_data1
*       FORM get_data2                                                *
FORM get_data2.
  LOOP AT t_itab1.
    SELECT venum vemng INTO (t_itab1-venum, t_itab1-vemng)
                        FROM vepo
                        WHERE vbeln = t_itab1-vgbel
                        AND   matnr = t_itab1-matnr.
      SELECT SINGLE brgew ntgew vhilm
                   INTO (t_itab1-brgew, t_itab1-ntgew,
                         t_itab1-vhilm)
                   FROM vekp
*                   WHERE vbeln_gen = t_itab1-vgbel
                   WHERE vpobjkey = t_itab1-vgbel
                   AND   venum = t_itab1-venum.
      SELECT SINGLE volum INTO (t_itab1-tavol)
                          FROM mara
                          WHERE matnr = t_itab1-vhilm.
      IF sy-subrc = 0.
        PERFORM convert_volume USING t_itab1-vhilm CHANGING t_itab1-tavol.
      ENDIF.
      SELECT SINGLE maktx INTO (t_itab1-desctn)
                          FROM makt
                          WHERE matnr = t_itab1-vhilm.
      MOVE-CORRESPONDING t_itab1 TO t_disp.
      APPEND t_disp.
      CLEAR t_disp.
    ENDSELECT.
  ENDLOOP.
ENDFORM.                                                    "get_data2
*       FORM get_disp_data                                            *
FORM get_disp_data.
  DATA: l_ctnno TYPE i,
        l_vemng TYPE p,
        l_brgew LIKE vekp-brgew,
        l_ntgew LIKE vekp-ntgew,
*        l_tavol LIKE vekp-tavol.
        l_tavol TYPE p DECIMALS 5.
  t_disp1[] = t_disp[].
  SORT t_disp1 BY vbeln matnr vhilm.
  SORT t_disp BY vbeln venum matnr vhilm.  "CN1 inserted by yongchun
  DELETE ADJACENT DUPLICATES FROM t_disp1 COMPARING vbeln matnr vhilm.
  LOOP AT t_disp1.
    LOOP AT t_disp WHERE vbeln = t_disp1-vbeln
                   AND   matnr = t_disp1-matnr
                   AND   vhilm = t_disp1-vhilm.
*CN1 removed start by yongchun
*      l_ctnno = l_ctnno + 1.
*      l_vemng = l_vemng + t_disp-vemng.
*      l_brgew = l_brgew + t_disp-brgew.
*      l_ntgew = l_ntgew + t_disp-ntgew.
*      l_tavol = l_tavol + t_disp-tavol.
*CN1 removed end
*CN1 insert start by yongchun
      AT NEW venum.
        READ TABLE t_disp INDEX sy-tabix.
        l_ctnno = l_ctnno + 1.
        l_brgew = l_brgew + t_disp-brgew.
        l_ntgew = l_ntgew + t_disp-ntgew.
        l_tavol = l_tavol + t_disp-tavol.
      ENDAT.
      l_vemng = l_vemng + t_disp-vemng.
*CN1 insert end
    ENDLOOP.
    MOVE l_ctnno TO t_disp1-ctnno.
    MOVE l_vemng TO t_disp1-vemng.
    MOVE l_brgew TO t_disp1-brgew.
    MOVE l_ntgew TO t_disp1-ntgew.
    MOVE l_tavol TO t_disp1-tavol.
    MODIFY t_disp1.
    CLEAR: l_ctnno, l_vemng, l_brgew,
           l_ntgew, l_tavol, t_disp1.
  ENDLOOP.
ENDFORM.                    "get_disp_data
*       FORM refresh_Data                                             *
FORM refresh_data.
  CLEAR: t_itab, t_itab1, t_disp.
  REFRESH: t_itab, t_itab1, t_disp.
ENDFORM.                    "refresh_data
*       FORM display_rep                                              *
FORM display_rep.
  DATA:
    chrctnno(12) TYPE c,
    chrihrez(12) TYPE c,
    chrvemng(13) TYPE c,
    chrbrgew(18) TYPE c,
    chrntgew(18) TYPE c,
    chrtavol(18) TYPE c,
    chrmatnr(40) TYPE c,
*--> Start insert "CN6
    chrkunnr(10) TYPE c,
*<-- End insert "CN6
    chrzuonr LIKE vbrk-zuonr,
*  CN3 start insert
      t_index LIKE sy-tabix.
*  CN3 end insert
*  SORT t_disp1 BY name1 vbeln fkdat.
*CN1 start change by yongchun
*  SORT t_disp1 BY name1 fkdat vbeln ihrez .
*-->CN5
*Note: report already sorted by name1 (changed to ship-to-party)
*<--CN5
  SORT t_disp1 BY name1 ihrez fkdat vbeln venum .
*CN1 end change by yongchun
  LOOP AT t_disp1.
*  CN3 start insert
    t_index = sy-tabix.
*  CN3 end insert
    chrctnno = t_disp1-ctnno.
    chrzuonr = t_disp1-zuonr.
    chrihrez = t_disp1-ihrez.
    chrvemng = t_disp1-vemng.
    chrbrgew = t_disp1-brgew.
    chrntgew = t_disp1-ntgew.
    chrtavol = t_disp1-tavol.
*--> Start insert "CN6
    chrkunnr = t_disp1-kunnr.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input     = chrkunnr
      IMPORTING
        output    = chrkunnr.
*<-- End insert "CN6
    CONDENSE: t_disp1-desctn, chrbrgew, chrntgew, chrtavol, chrvemng, chrctnno.
*   Format material number
*start delete CN4
*    PERFORM GetLongMatnr USING t_disp1-matnr
*                      CHANGING chrMatnr.
* end delete CN4
* start insert CN4
    PERFORM getlongmatnr USING t_disp1-matnr t_disp1-matwa
                    CHANGING chrmatnr.
    PERFORM date_format.
    AT NEW name1.
      NEW-PAGE.
      WRITE: /2 t_disp1-name1, 40 chrkunnr.       "CN6
    ENDAT.
    AT NEW vbeln.
      CONDENSE t_disp1-vbeln NO-GAPS.
      CONDENSE chrzuonr NO-GAPS.
      WRITE: /4 t_disp1-vbeln, '/', chrzuonr, 59 g_date, 76 chrihrez.    "CN6
    ENDAT.
*    WRITE: /10(20) t_disp1-maktx,
*            35(20) t_disp1-bstkd,
*            55(15) t_disp1-vemng,
*            75(10) t_disp1-ctnno,
*            90(30) t_disp1-desctn,
*            120(18) t_disp1-brgew,
*            140(18) t_disp1-ntgew,
*            160(18) t_disp1-tavol.
*           /10(12) t_disp1-ihrez,
*CN1 change start by yongchun
    WRITE:/5(40) chrmatnr,
          45(20) t_disp1-bstkd,
          65(15) chrvemng.
    AT NEW venum.
*  CN3 start delete
*      READ TABLE t_disp1 INDEX sy-tabix.
*  CN3 end delete
*   CN3 start insert
      READ TABLE t_disp1 INDEX t_index.
*   CN3 end insert
      WRITE: 80(5) chrctnno,
             85(25) t_disp1-desctn,
             120(10) chrbrgew,
             130(10) chrntgew,
             140(18) chrtavol.
    ENDAT.
*CN1 change end
    PERFORM sub_total.
    AT END OF vbeln.
      PERFORM grand_total.
      PERFORM write_sub_total.
    ENDAT.
    AT END OF name1.
      PERFORM write_grand_total.
    ENDAT.
  ENDLOOP.
ENDFORM.                    "display_rep
*       FORM date_format                                              *
FORM date_format.
  CLEAR g_date.
  CONCATENATE t_disp1-fkdat+6(2)
              t_disp1-fkdat+4(2)
              t_disp1-fkdat(4) INTO g_date SEPARATED BY '.'.
ENDFORM.                    "date_format
*       FORM SUB_TOTAL                                                *
FORM sub_total.
  g_tot_vemng = g_tot_vemng + t_disp1-vemng.
  g_tot_ctnno = g_tot_ctnno + t_disp1-ctnno.
  g_tot_brgew = g_tot_brgew + t_disp1-brgew.
  g_tot_ntgew = g_tot_ntgew + t_disp1-ntgew.
  g_tot_tavol = g_tot_tavol + t_disp1-tavol.
ENDFORM.                    "sub_total
*       FORM write_sub_total                                          *
FORM write_sub_total.
  DATA:
    chrvemng(18) TYPE c,
    chrctnno(18) TYPE c,
    chrbrgew(18) TYPE c,
    chrntgew(18) TYPE c,
    chrtavol(18) TYPE c.
  chrvemng = g_tot_vemng.
  chrctnno = g_tot_ctnno.
  chrbrgew = g_tot_brgew.
  chrntgew = g_tot_ntgew.
  chrtavol = g_tot_tavol.
  CONDENSE: chrbrgew, chrntgew, chrtavol, chrvemng, chrctnno.
*  WRITE: /15 sy-uline(200),
*         /10 'TOTAL',
*          55(15) g_tot_vemng,
*          75(10) g_tot_ctnno,
*         120(18) g_tot_brgew,
*         140(18) g_tot_ntgew,
*         160(18) g_tot_tavol,
  WRITE: /11 sy-uline(200),
      /5 'TOTAL',
       65(15) chrvemng,
       80(10) chrctnno,
      120(18) chrbrgew,
      130(18) chrntgew,
      140(18) chrtavol,
      /11 sy-uline(200).
  CLEAR: g_tot_vemng, g_tot_ctnno, g_tot_brgew,
         g_tot_ntgew, g_tot_tavol.
ENDFORM.                    "write_sub_total
*       FORM GRAND_TOTAL                                              *
FORM grand_total.
  g_gtot_vemng = g_gtot_vemng + g_tot_vemng.
  g_gtot_ctnno = g_gtot_ctnno + g_tot_ctnno.
  g_gtot_brgew = g_gtot_brgew + g_tot_brgew.
  g_gtot_ntgew = g_gtot_ntgew + g_tot_ntgew.
  g_gtot_tavol = g_gtot_tavol + g_tot_tavol.
ENDFORM.                    "grand_total
*       FORM WRITE_GRAND_TOTAL                                        *
FORM write_grand_total.
  DATA:
    chrvemng(18) TYPE c,
    chrctnno(18) TYPE c,
    chrbrgew(18) TYPE c,
    chrntgew(18) TYPE c,
    chrtavol(18) TYPE c.
  chrvemng = g_gtot_vemng.
  chrctnno = g_gtot_ctnno.
  chrbrgew = g_gtot_brgew.
  chrntgew = g_gtot_ntgew.
  chrtavol = g_gtot_tavol.
  CONDENSE: chrbrgew, chrntgew, chrtavol, chrvemng, chrctnno.
  SKIP.
*  WRITE: /10 'GRAND TOTAL',
*          55(15) g_gtot_vemng,
*          75(10) g_gtot_ctnno,
*         120(18) g_gtot_brgew,
*         140(18) g_gtot_ntgew,
*         160(18) g_gtot_tavol,
  WRITE: /5 'GRAND TOTAL',
          65(15) chrvemng,
          80(10) chrctnno,
         120(18) chrbrgew,
         130(18) chrntgew,
         140(18) chrtavol,
         /11 sy-uline(200).
  CLEAR: g_gtot_vemng, g_gtot_ctnno, g_gtot_brgew,
         g_gtot_ntgew, g_gtot_tavol.
ENDFORM.                    "write_grand_total
*       top_of_page                                                   *
TOP-OF-PAGE.
  PERFORM sub_top_of_page.
  PERFORM column_header.
*       FORM sub_top_of_page                                          *
FORM sub_top_of_page.
  IF date-high IS INITIAL.
    date-high = date-low.
  ENDIF.
  SKIP.
  WRITE :/45 'JOHN WHILE SPRINGS (S) PTE. LTD.',
          130 'Page', 135 sy-pagno, 170 '',
         /45 'Packing List Report',
         /45 'Invoice Date FROM ', date-low , '-', date-high,
         130 'Date:', 135 sy-datum, 170 ''.
  ULINE.
ENDFORM.                    "sub_top_of_page
*       FORM column_header                                            *
FORM column_header.
*--> Start insert "CN6
  DATA: l_party(13) TYPE c.
  IF sold = 'X'.
    l_party = 'Sold To Party'.
  ELSEIF ship = 'X'.
    l_party = 'Ship To Party'.
  ENDIF.
*<-- End insert "CN6
  WRITE: /4  'Invoice / DO Number', 40 l_party, 59 'Invoice Date', 76 'Buyer Code',     "CN6
*         /10 'Part ID/Rev',
*          35 'PO No.',
*          65 'Qty',
*          75 'Carton No.',
*          95 'Carton Size',
*          125 'Gross Wt(KG)',
*          147 'Net Wt(KG)',
*          167 'Volume(M3)'.
*           /10 'Buyer Code',
            /5 'Part ID/Rev',
             45 'PO No.',
             65 'Qty',
             72 'Carton No.',
             85 'Carton Size',
            114 'Gross Wt(KG)',
            127 'Net Wt(KG)',
            138 'Volume(M3)'.
  ULINE.
ENDFORM.                    "column_header
*      Form  Convert_Volume
FORM convert_volume  USING    l_itab1_vhilm
                     CHANGING l_itab1_tavol.
  DATA: unit_1 LIKE t006-msehi,
        unit_2 LIKE t006-msehi VALUE 'M3',
        var1 TYPE f,
        var2 TYPE f,
        var3 TYPE f,
        var4 LIKE t006-andec VALUE 3,
        l_volum TYPE p DECIMALS 5,
        dimid  LIKE t006-dimid VALUE 'VOLUME',
        l_voleh LIKE t006-msehi.
  SELECT SINGLE voleh FROM mara INTO l_voleh
         WHERE matnr = l_itab1_vhilm.
  IF sy-subrc = 0.
    unit_1 = l_voleh.
    CALL FUNCTION 'CONVERSION_FACTOR_GET'
      EXPORTING
        no_type_check        = ' '
        unit_in              = unit_1
        unit_out             = unit_2
      IMPORTING
        add_const            = var1
        denominator          = var2
        numerator            = var3
        decimals             = var4
        dimension            = dimid
      EXCEPTIONS
        conversion_not_found = 1
        overflow             = 2
        type_invalid         = 3
        units_missing        = 4
        unit_in_not_found    = 5
        unit_out_not_found   = 6
        OTHERS               = 7.
    IF sy-subrc = 0.
      l_volum =  l_itab1_tavol  * ( var3 / var2 ) + var1.
      l_itab1_tavol = l_volum.
    ENDIF.
  ENDIF.
ENDFORM.                    " Convert_Volume
*start delete CN4
*FORM GetLongMatnr USING shortMatnr CHANGING longMatnr.
*DATA:
*  intLength TYPE i,
*  rowMARA LIKE MARA.
*  CALL FUNCTION 'CONVERSION_EXIT_MATN2_OUTPUT'
*    EXPORTING
*      INPUT         = shortMatnr
*    IMPORTING
*      OUTPUT        = longMatnr.
** Format the material number
** Get the material type
*  SELECT SINGLE *
*    INTO rowMARA
*    FROM MARA
*   WHERE matnr = shortMatnr.
*   intLength = strlen( longMatnr ).
**  Remove prefix.
*   IF rowMARA-mtart = 'ZFPT' OR rowMARA-mtart = 'ZMFG' OR rowMARA-mtart = 'ZSEC' OR
*      rowMARA-mtart = 'ZTOL' OR rowMARA-mtart = 'ZTRD'.
*      intLength = intLength - 2.
**     Remove 1st 2 characters of prefix
*      longMatnr = longMatnr+2(intLength).
**   ELSEIF rowMARA-mtart = 'ZRAW'.
***     Remove prefix - 1st 2 characters.
**      intLength = intLength - 2.
**      longMatnr = longMatnr+2(intLength).
***     Remove last 4 digits
**      intLength = intLength - 4.
**      longMatnr = longMatnr+0(intLength).
*   ENDIF.
*ENDFORM.
*end delete CN4
*start insert CN4
FORM getlongmatnr USING shortmatnr tmp_matwa CHANGING longmatnr.
  DATA:
    intlength TYPE i,
    rowmara LIKE mara.
  IF shortmatnr = tmp_matwa.
    CALL FUNCTION 'CONVERSION_EXIT_MATN2_OUTPUT'
      EXPORTING
        input  = shortmatnr
      IMPORTING
        output = longmatnr.
* Format the material number
* Get the material type
    SELECT SINGLE *
      INTO rowmara
      FROM mara
     WHERE matnr = shortmatnr.
    intlength = STRLEN( longmatnr ).
*  Remove prefix.
    IF rowmara-mtart = 'ZFPT' OR rowmara-mtart = 'ZMFG' OR rowmara-mtart = 'ZSEC' OR
       rowmara-mtart = 'ZTOL' OR rowmara-mtart = 'ZTRD'.
      intlength = intlength - 2.
*     Remove 1st 2 characters of prefix
      longmatnr = longmatnr+2(intlength).
    ENDIF.
  ELSE.
*  if material entered is different
    longmatnr = tmp_matwa.
    CALL FUNCTION 'CONVERSION_EXIT_MATN2_OUTPUT'
      EXPORTING
        input  = longmatnr
      IMPORTING
        output = longmatnr.
  ENDIF.
ENDFORM.                    "GetLongMatnr
*end insert CN4

Answer 1

But when I executed above sql query I got some of the users also listed in the output who were not using TFS and also some service accounts.
Could you please confirm why this is happening.