Skip to Content
0
Former Member
Jan 29, 2010 at 11:07 AM

help needed

137 Views

hi experts i am working on std script f110_prenum_chck, my programme is working fine for single entery but

when then do multiple enteris its not cathching what to do , to cathch all the document no s belnr

please let me know , my code is as fallows

  READ TABLE IN_TAB WITH KEY 'REGUP-BELNR'.
  CHECK SY-SUBRC = 0.

  IF IN_TAB-VALUE IS NOT INITIAL.
    IM_BELNR = IN_TAB-VALUE.
  ENDIF.

  SELECT   BELNR GJAHR  BLDAT  FROM REGUP INTO TABLE IT_REGUP WHERE
    BELNR = IM_BELNR .
*  BLDAT = IM_BLDAT.

  SELECT  HKONT GJAHR  BELNR BLDAT SHKZG DMBTR   FROM BSIS   
 INTO TABLE IT_BSIS FOR ALL ENTRIES IN IT_REGUP
    WHERE GJAHR = IT_REGUP-GJAHR AND
          BELNR = IT_REGUP-BELNR AND
          BLDAT = IT_REGUP-BLDAT AND
          HKONT  GE ACC1 AND HKONT LE  ACC2.

    LOOP AT IT_BSIS INTO WA_BSIS.
*      IF WA_BSIS-SHKZG = 'H'.
*        WA_BSIS-DMBTR = WA_BSIS-DMBTR * -1.
*      ENDIF.
      WRITE WA_BSIS-DMBTR TO LV_AMOUNT.
       CONDENSE LV_AMOUNT.
       READ TABLE OUT_TAB  WITH KEY 'LV_TAX'.
      CHECK SY-SUBRC = 0.
      OUT_TAB-VALUE = LV_AMOUNT.
      MODIFY OUT_TAB INDEX SY-TABIX.
      CLEAR: LV_AMOUNT.

    ENDLOOP.

<MOVED BY MODERATOR TO THE CORRECT FORUM>

Code Formatted by: Alvaro Tejada Galindo on Apr 20, 2010 7:34 AM