Document number not updating in the document

Question

hi gurus,
this is a excise invoice voucher form used by the client .
some values are not updated in document no.
could someone tell me why it is not updating.
if there are any corrections in code pls update me and solve my problem.
urs
pradeep.r
*&  Include           ZFI_PAY_ADVICE_F01_STR_2                         *
*&      Form  select_data
      text
-->  p1        text
<--  p2        text
FORM SELECT_DATA .
  REFRESH IT_BKPF.
  CLEAR   IT_BKPF.
  SELECT BELNR GJAHR XBLNR BLDAT BLART INTO CORRESPONDING FIELDS OF
  TABLE IT_BKPF FROM BKPF
  WHERE BELNR IN S_BELNR
  AND   GJAHR IN S_GJAHR
  AND   BUKRS IN S_BUKRS.
  IF IT_BKPF[] IS INITIAL.
    MESSAGE S001.
  ENDIF.
  SORT IT_BKPF BY BELNR GJAHR.
  LOOP AT IT_BKPF.
    SELECT SINGLE EBELN WRBTR WERKS LIFNR KUNNR  INTO
    (IT_BKPF-ZUONR,IT_BKPF-WRBTR,IT_BKPF-WERKS,IT_BKPF-LIFNR,IT_BKPF-KUNNR)
    FROM BSEG
    WHERE BELNR = IT_BKPF-BELNR
    AND   GJAHR = IT_BKPF-GJAHR
    AND BUKRS IN S_BUKRS
    AND   KOART = 'K'.
    IF NOT IT_BKPF-LIFNR IS INITIAL.
      DATA : WRK_ADRNR LIKE LFA1-ADRNR.
      CLEAR  WRK_ADRNR.
      SELECT SINGLE ADRNR INTO WRK_ADRNR FROM LFA1
      WHERE LIFNR = IT_BKPF-LIFNR.
      SELECT SINGLE NAME1
                    NAME2
                    NAME3
                    NAME4
                    CITY1
                    REGION
                    COUNTRY
                    STREET
     INTO (IT_BKPF-NAME1,IT_BKPF-NAME2,IT_BKPF-NAME3,IT_BKPF-NAME4,
     IT_BKPF-CITY1,IT_BKPF-REGION,IT_BKPF-COUNTRY,IT_BKPF-STREET)
     FROM ADRC
     WHERE ADDRNUMBER EQ WRK_ADRNR.
Text for Country
      SELECT SINGLE LANDX INTO IT_BKPF-LANDX FROM T005T
      WHERE LAND1 = IT_BKPF-COUNTRY
      AND   SPRAS EQ SY-LANGU.
Text for Region
      SELECT SINGLE BEZEI INTO IT_BKPF-BEZEI FROM T005U
      WHERE BLAND = IT_BKPF-REGION
      AND   SPRAS EQ SY-LANGU
      AND   LAND1 = IT_BKPF-COUNTRY.
    ENDIF.
    IF NOT IT_BKPF-KUNNR IS INITIAL.
      CLEAR  WRK_ADRNR.
      SELECT SINGLE ADRNR INTO (WRK_ADRNR) FROM KNA1
      WHERE KUNNR = IT_BKPF-KUNNR.
      SELECT SINGLE NAME1
                    NAME2
                    NAME3
                    NAME4
                    CITY1
                    REGION
                    COUNTRY
                    STREET
     INTO (IT_BKPF-NAME1,IT_BKPF-NAME2,IT_BKPF-NAME3,IT_BKPF-NAME4,
     IT_BKPF-CITY1,IT_BKPF-REGION,IT_BKPF-COUNTRY,IT_BKPF-STREET)
     FROM ADRC
     WHERE ADDRNUMBER EQ WRK_ADRNR.
Text for Country
      SELECT SINGLE LANDX INTO IT_BKPF-LANDX FROM T005T
      WHERE LAND1 = IT_BKPF-COUNTRY
      AND   SPRAS EQ SY-LANGU.
Text for Region
      SELECT SINGLE BEZEI INTO IT_BKPF-BEZEI FROM T005U
      WHERE BLAND = IT_BKPF-REGION
      AND   SPRAS EQ SY-LANGU
      AND   LAND1 = IT_BKPF-COUNTRY.
    ENDIF.
    MODIFY IT_BKPF.
  ENDLOOP.
  REFRESH IT_DATA.
  CLEAR   IT_DATA.
  LOOP AT IT_BKPF.
    DATA : WRK_BSAKBELNR LIKE BSAK-BELNR.
    CLEAR  WRK_BSAKBELNR.
    SELECT SINGLE BELNR INTO WRK_BSAKBELNR FROM BSAK
    WHERE AUGBL = IT_BKPF-BELNR
    AND   GJAHR = IT_BKPF-GJAHR
    AND BUKRS IN S_BUKRS.
Advance
    IF WRK_BSAKBELNR IS INITIAL.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = IT_BKPF-BELNR.
      IT_DATA-GJAHR = IT_BKPF-GJAHR.
      IT_DATA-XBLNR = IT_BKPF-XBLNR.
      IT_DATA-BLDAT = IT_BKPF-BLDAT.
      IT_DATA-BLART = IT_BKPF-BLART.
      IT_DATA-ZUONR = IT_BKPF-ZUONR.
      IT_DATA-WRBTR = IT_BKPF-WRBTR.
      IT_DATA-WRBTRC = IT_DATA-WRBTR.
      APPEND IT_DATA.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = ' '.
      IT_DATA-GJAHR = ' '.
      IT_DATA-BLDAT = ' '.
      IT_DATA-BLART = ' '.
      IT_DATA-ZUONR = ' '.
TDS
      DATA : WRK_TDSWRBTR LIKE BSIS-WRBTR.
      CLEAR  WRK_TDSWRBTR.
      SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSIS
      WHERE BELNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR
      AND BUKRS IN S_BUKRS
      AND   QSSKZ NE SPACE
      AND   QSSKZ NE 'XX'
      AND   XREF3 NE SPACE
      AND   QSSKZ NE 'S1'
      AND   QSSKZ NE 'S2'.
      IF WRK_TDSWRBTR IS INITIAL.
        SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSAS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR
        AND   QSSKZ NE SPACE
        AND   QSSKZ NE 'XX'
        AND   XREF3 NE SPACE
        AND BUKRS IN S_BUKRS
        AND   QSSKZ NE 'S1'
        AND   QSSKZ NE 'S2'.
      ENDIF.
      DATA : WRK_BSCHL LIKE BSIS-BSCHL.
      CLEAR  WRK_BSCHL.
      IF NOT WRK_TDSWRBTR IS INITIAL.
        IT_DATA-XBLNR = 'TDS/ECess'.
        IT_DATA-WRBTR = WRK_TDSWRBTR.
        SELECT SINGLE BSCHL INTO WRK_BSCHL FROM BSIS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR
        AND   QSSKZ NE SPACE
        AND BUKRS IN S_BUKRS
        AND   QSSKZ NE 'XX'
        AND   XREF3 NE SPACE
        AND   QSSKZ NE 'S1'
        AND   QSSKZ NE 'S2'
        AND   BSCHL = '40'.
        IF WRK_BSCHL IS INITIAL.
          SELECT SINGLE BSCHL INTO WRK_BSCHL FROM BSAS
          WHERE BELNR = IT_BKPF-BELNR
          AND   GJAHR = IT_BKPF-GJAHR
          AND   QSSKZ NE SPACE
          AND   QSSKZ NE 'XX'
          AND   XREF3 NE SPACE
          AND BUKRS IN S_BUKRS
          AND   QSSKZ NE 'S1'
          AND   QSSKZ NE 'S2'
          AND   BSCHL = '40'.
        ENDIF.
        IF WRK_BSCHL IS INITIAL.
          IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
        ENDIF.
        IT_DATA-WRBTRC = IT_DATA-WRBTR.
        APPEND IT_DATA.
      ENDIF.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = ' '.
      IT_DATA-GJAHR = ' '.
      IT_DATA-BLDAT = ' '.
      IT_DATA-BLART = ' '.
      IT_DATA-ZUONR = ' '.
Discount
      DATA : WRK_DEDWRBTR LIKE BSIS-WRBTR.
      CLEAR  WRK_DEDWRBTR.
      SELECT SUM( WRBTR ) INTO WRK_DEDWRBTR FROM BSIS
      WHERE BELNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR
      AND   QSSKZ EQ SPACE
      AND BUKRS IN S_BUKRS
      AND   BSCHL NE '50'.
      IF NOT WRK_DEDWRBTR IS INITIAL.
        SELECT SUM( WRBTR ) INTO WRK_DEDWRBTR FROM BSAS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR
        AND   QSSKZ EQ SPACE
        AND BUKRS IN S_BUKRS
        AND   BSCHL NE '50'.
      ENDIF.
      IF NOT WRK_DEDWRBTR IS INITIAL.
        IT_DATA-XBLNR = 'Discount'.
        IT_DATA-WRBTR = WRK_DEDWRBTR.
        IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
        IT_DATA-WRBTRC = IT_DATA-WRBTR.
        APPEND IT_DATA.
      ENDIF.
Invoice
    ELSE.
      REFRESH IT_BELNR.
      CLEAR   IT_BELNR.
      DATA : W_YEAR(4),
             W_MONTH(2) VALUE '04',
             W_DATE(2) VALUE '01',
             W_YEAR1(8).
      W_YEAR = S_GJAHR-LOW.
      CONCATENATE W_YEAR W_MONTH W_DATE INTO W_YEAR1.
      SELECT BELNR GJAHR XBLNR BLDAT BLART ZUONR WRBTR BSCHL INTO
      TABLE IT_BELNR FROM BSAK
      WHERE AUGBL = IT_BKPF-BELNR
            AND AUGDT GE W_YEAR1
          AND   GJAHR = IT_BKPF-GJAHR
            AND   BELNR NE IT_BKPF-BELNR
            AND BUKRS IN S_BUKRS.
      SORT IT_BELNR BY BELNR GJAHR.
      LOOP AT IT_BELNR.
        CLEAR  WRK_TDSWRBTR.
        SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSIS
        WHERE BELNR = IT_BELNR-BELNR
        AND   GJAHR = IT_BELNR-GJAHR
        AND   QSSKZ NE SPACE
        AND BUKRS IN S_BUKRS
        AND   QSSKZ NE 'XX'.
        IF WRK_TDSWRBTR IS INITIAL.
          SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSAS
          WHERE BELNR = IT_BELNR-BELNR
          AND   GJAHR = IT_BELNR-GJAHR
          AND   QSSKZ NE SPACE
          AND BUKRS IN S_BUKRS
          AND   QSSKZ NE 'XX'.
        ENDIF.
        IT_DATA-VBELNR = IT_BKPF-BELNR.
        IT_DATA-BELNR = IT_BELNR-BELNR.
        IT_DATA-GJAHR = IT_BELNR-GJAHR.
        IT_DATA-XBLNR = IT_BELNR-XBLNR.
        IT_DATA-BLDAT = IT_BELNR-BLDAT.
        IT_DATA-BLART = IT_BELNR-BLART.
        IT_DATA-ZUONR = IT_BELNR-ZUONR.
        IT_DATA-WRBTR = IT_BELNR-WRBTR + WRK_TDSWRBTR .
        IF IT_BELNR-BSCHL GE '31' AND IT_BELNR-BSCHL LE '39'.
          IT_DATA-WRBTRC = IT_DATA-WRBTR.
        ELSE.
          IF IT_BELNR-BSCHL GE '21' AND IT_BELNR-BSCHL LE '29'.
            IT_DATA-WRBTRC = IT_DATA-WRBTR * - 1.
          ENDIF.
        ENDIF.
        APPEND IT_DATA.
        IT_DATA-VBELNR = IT_BKPF-BELNR.
        IT_DATA-BELNR = ' '.
        IT_DATA-GJAHR = ' '.
        IT_DATA-BLDAT = ' '.
        IT_DATA-BLART = ' '.
        IT_DATA-ZUONR = ' '.
TDSBELNR
        IF NOT WRK_TDSWRBTR IS INITIAL.
          IT_DATA-XBLNR = 'TDS/ECess'.
          IT_DATA-WRBTR = WRK_TDSWRBTR.
          CLEAR  WRK_BSCHL.
          IF NOT WRK_TDSWRBTR IS INITIAL.
            IT_DATA-XBLNR = 'TDS/ECess'.
            IT_DATA-WRBTR = WRK_TDSWRBTR.
            SELECT SINGLE BSCHL INTO WRK_BSCHL FROM BSIS
            WHERE BELNR = IT_BELNR-BELNR
            AND   GJAHR = IT_BELNR-GJAHR
            AND   QSSKZ NE SPACE
            AND   QSSKZ NE 'XX'
            AND   BSCHL = '40'.
            IF WRK_BSCHL IS INITIAL.
              SELECT SINGLE BSCHL INTO WRK_BSCHL FROM BSAS
              WHERE BELNR = IT_BELNR-BELNR
              AND   GJAHR = IT_BELNR-GJAHR
              AND   QSSKZ NE SPACE
              AND   QSSKZ NE 'XX'
              AND   BSCHL = '40'.
            ENDIF.
            IF WRK_BSCHL IS INITIAL.
              IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
            ENDIF.
            IT_DATA-WRBTRC = IT_DATA-WRBTR.
            APPEND IT_DATA.
          ENDIF.
        ENDIF.
      ENDLOOP.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = ' '.
      IT_DATA-GJAHR = ' '.
      IT_DATA-BLDAT = ' '.
      IT_DATA-BLART = ' '.
      IT_DATA-ZUONR = ' '.
TDSVBELNR
      CLEAR  WRK_TDSWRBTR.
      SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSIS
      WHERE BELNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR
      AND   QSSKZ NE SPACE
      AND BUKRS IN S_BUKRS
      AND   QSSKZ NE 'XX'
      AND   QSSKZ NE 'S1'
      AND   QSSKZ NE 'S2'.
      IF WRK_TDSWRBTR IS INITIAL.
        SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSAS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR
        AND   QSSKZ NE SPACE
        AND   QSSKZ NE 'XX'
        AND   AUGBL = SPACE
        AND BUKRS IN S_BUKRS
        AND   QSSKZ NE 'S1'
        AND   QSSKZ NE 'S2'.
      ENDIF.
**INSERTED BY PALANI ON 01.04.2006
      IF WRK_TDSWRBTR IS INITIAL.
        SELECT SUM( WRBTR ) INTO WRK_TDSWRBTR FROM BSIS
        WHERE BELNR = IT_BKPF-BELNR
        AND   GJAHR = IT_BKPF-GJAHR.
      ENDIF.
***END BY PALANI.
      IF NOT WRK_TDSWRBTR IS INITIAL.
        IT_DATA-XBLNR = 'TDS/ECess'.
        IT_DATA-WRBTR = WRK_TDSWRBTR.
        IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
        IT_DATA-WRBTRC = IT_DATA-WRBTR.
        APPEND IT_DATA.
      ENDIF.
      IT_DATA-VBELNR = IT_BKPF-BELNR.
      IT_DATA-BELNR = ' '.
      IT_DATA-GJAHR = ' '.
      IT_DATA-BLDAT = ' '.
      IT_DATA-BLART = ' '.
      IT_DATA-ZUONR = ' '.
*DiscountVBELNR
      CLEAR  WRK_DEDWRBTR.
      SELECT SUM( WSKTO ) INTO WRK_DEDWRBTR FROM BSE_CLR
      WHERE BELNR_CLR = IT_BKPF-BELNR
      AND   GJAHR_CLR = IT_BKPF-GJAHR
      AND BUKRS IN S_BUKRS.
      IF NOT WRK_DEDWRBTR IS INITIAL.
        IT_DATA-XBLNR = 'Discount'.
        IT_DATA-WRBTR = WRK_DEDWRBTR.
        IT_DATA-WRBTR = IT_DATA-WRBTR * - 1.
        IT_DATA-WRBTRC = IT_DATA-WRBTR.
        APPEND IT_DATA.
      ENDIF.
    ENDIF.
  ENDLOOP.
LOOP AT IT_BKPF.
  SELECT SINGLE BUTXT ORT01 LAND1 INTO (IT_DATA-BUTXT,IT_DATA-ORT01,IT_DATA-LAND1)
  FROM T001
  WHERE BUKRS IN S_BUKRS.
  MODIFY IT_DATA INDEX SY-TABIX.
*ENDLOOP.
ENDFORM.                    " select_data
*&      Form  print_data
      text
-->  p1        text
<--  p2        text
FORM PRINT_DATA .
  PERFORM OPEN_FORM.
  PERFORM WRITE_FORM.
  PERFORM CLOSE_FORM.
  LEAVE LIST-PROCESSING.
ENDFORM.                    " print_data
*&      Form  open_form
      text
-->  p1        text
<--  p2        text
FORM OPEN_FORM .
  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      FORM     = 'ZFI_PAY_ADV_MODN'
      LANGUAGE = SY-LANGU.
ENDFORM.                    " open_form
*&      Form  write_form
      text
-->  p1        text
<--  p2        text
FORM WRITE_FORM .
  LOOP AT IT_BKPF.
    IF SY-TABIX GT 1.
      AT NEW BELNR.
        CALL FUNCTION 'WRITE_FORM'
          EXPORTING
            ELEMENT = 'NEW'
            WINDOW  = 'MAIN'.
      ENDAT.
    ENDIF.
    LOOP AT IT_DATA WHERE VBELNR = IT_BKPF-BELNR.
      DATA : BEGIN OF IT_HKONT OCCURS 0,
               HKONT LIKE BSIS-HKONT,
               WRBTR LIKE BSIS-WRBTR,
             END OF IT_HKONT.
      REFRESH IT_HKONT.
      CLEAR   IT_HKONT.
      SELECT HKONT WRBTR INTO TABLE IT_HKONT FROM BSIS
      WHERE BELNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR.
      DELETE IT_HKONT WHERE HKONT(3) NE '005'.
      IF NOT IT_HKONT[] IS INITIAL.
        LOOP AT IT_HKONT.
          IT_DATA-TOTAL = IT_DATA-TOTAL + IT_HKONT-WRBTR.
          MODIFY IT_DATA.
        ENDLOOP.
      ELSE.
        IT_DATA-TOTAL = IT_DATA-TOTAL + IT_DATA-WRBTR.
        MODIFY IT_DATA.
      ENDIF.
    ENDLOOP.
    LOOP AT IT_DATA WHERE VBELNR = IT_BKPF-BELNR.
      IF IT_DATA-BLART EQ ''. " for invoice Date
        IT_DATA-BLDAT = IT_BKPF-BLDAT.
      ENDIF.
      IT_DATA-LIFNR = IT_BKPF-LIFNR.
      IT_DATA-KUNNR = IT_BKPF-KUNNR.
      IT_DATA-NAME1 = IT_BKPF-NAME1.
      IT_DATA-NAME2 = IT_BKPF-NAME2.
      IT_DATA-NAME3 = IT_BKPF-NAME3.
      IT_DATA-NAME4 = IT_BKPF-NAME4.
      IT_DATA-CITY1 = IT_BKPF-CITY1.
      IT_DATA-REGION = IT_BKPF-REGION.
      IT_DATA-COUNTRY = IT_BKPF-COUNTRY.
      IT_DATA-STREET = IT_BKPF-STREET.
      IT_DATA-LANDX = IT_BKPF-LANDX.
      IT_DATA-BEZEI = IT_BKPF-BEZEI.
      CLEAR : WRK_HBKID , WRK_BANKL.
      SELECT SINGLE CHECT ZALDT HBKID INTO
      (IT_DATA-CHECT , IT_DATA-ZALDT , WRK_HBKID)
      FROM PAYR
      WHERE VBLNR = IT_BKPF-BELNR
      AND   GJAHR = IT_BKPF-GJAHR
      AND   VOIDR = '00'.
      SELECT SINGLE BANKL INTO WRK_BANKL
      FROM T012
      WHERE HBKID = WRK_HBKID.
     AND spras EQ 'EN'.
      SELECT SINGLE BANKA INTO IT_DATA-BANKA
      FROM BNKA
      WHERE BANKL = WRK_BANKL.
      MODIFY IT_DATA.
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          ELEMENT = 'ITEMS'
          WINDOW  = 'MAIN'.
    ENDLOOP.
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        ELEMENT = 'TOTAL'
        WINDOW  = 'MAIN'.
  ENDLOOP.
ENDFORM.                    " write_form
*&      Form  close_form
      text
-->  p1        text
<--  p2        text
FORM CLOSE_FORM .
  CALL FUNCTION 'CLOSE_FORM' .
ENDFORM.                    " close_form

Answer 1

Hi
Could you tell us what fields are not updated?
Regards,
Raj