Line vendor Items FB1LN

Question

Hi guru's,
I try to display the vendor line items in my program per Company Code, Vendor number, Profit center,  Account, for after that to do a resposting for the atypical balances.
I select the datas from BSIK/BSAK table joined to Falglflext table. The problem is when I choose the atypical balances and put them in my internal table (li_total) and when I check the amount in Faglflext, the amount are not exact.
My Result has to be the same than in FBL1N.
** Read Open Items For Vendor
  REFRESH li_vend.
  SELECT DISTINCT a~bukrs a~lifnr a~wrbtr a~dmbtr a~gjahr a~budat b~prctr
         b~segment a~waers b~kokrs a~hkont a~umskz a~shkzg
                  APPENDING CORRESPONDING FIELDS OF TABLE  li_vend
                  FROM   bsik AS a JOIN faglflexa AS b
                  ON     a~bukrs  = b~rbukrs
                  AND    a~belnr  = b~docnr
                  AND    a~gjahr  = b~ryear
                  AND    a~buzei  = b~buzei
                  and    a~hkont  = b~racct
                  WHERE  b~rldnr  = '0L'
                  AND    a~bukrs  IN sel-fi-bukrs
                  AND    a~lifnr  IN sel-fi-lifnr
                  AND    a~vbund  IN sel-fi-vbund
                  AND    a~umskz  IN sel-fi-umskz
                  AND    b~segment IN sel-fi-segment
                  AND    b~prctr  IN sel-fi-prctr
                  AND    a~budat  <= wa_sel_fi_budat.
  IF  sy-subrc NE 0.
    MESSAGE e324(zst1) DISPLAY LIKE c_error. " No Vendor Found
  ENDIF.
* Read Cleared Items For Vendor
  SELECT distinct a~bukrs a~lifnr a~wrbtr a~dmbtr a~gjahr a~budat b~prctr
         b~segment a~waers b~kokrs a~hkont a~umskz a~shkzg
                  APPENDING CORRESPONDING FIELDS OF TABLE  li_vend
                  FROM   bsak AS a join faglflexa AS b
                  ON     a~bukrs  = b~rbukrs
                  AND    a~belnr  = b~docnr
                  AND    a~gjahr  = b~ryear
                  AND    a~buzei  = b~buzei
                  and    a~hkont  = b~racct
                  WHERE  b~rldnr  = '0L'
                  AND    a~bukrs  IN sel-fi-bukrs
                  AND    a~lifnr  IN sel-fi-lifnr
                  AND    a~vbund  IN sel-fi-vbund
                  AND    a~umskz  IN sel-fi-umskz
                  AND    b~segment IN sel-fi-segment
                  AND    b~prctr  IN sel-fi-prctr
                  AND    a~budat  <= wa_sel_fi_budat
                  AND    a~augdt  > wa_sel_fi_augdt.
Edited by: rahhaoui mohamed on Aug 27, 2009 8:25 PM

Answer 1

Sorry I split the message in 2.
1) I check if the total per Compay and Vendor is atypical. I
2) I put the lines of my total per COmpany code, Vendor, profit center, Account in another table.
* Reclassification Check
*Check Local Currency is < 0.
  LOOP AT li_vend INTO wa_vend.
    wa_vend2-bukrs = wa_vend-bukrs.
    wa_vend2-lifnr = wa_vend-lifnr.
    IF wa_vend-shkzg = 'H'.
      wa_vend2-dmbtr = wa_vend-dmbtr * -1.
      wa_vend2-wrbtr = wa_vend-wrbtr * -1.
     endif.
    COLLECT wa_vend2 INTO li_vend2.
  ENDLOOP.
* Check if reposting is needed
  IF sel-rprt-flag2 = 'Y'.
    DELETE li_vend2 WHERE wrbtr < 0.
  ELSEIF sel-rprt-flag2 = 'N'.
    DELETE li_vend2 WHERE wrbtr  > 0.
  ENDIF.
  LOOP AT li_vend INTO wa_vend.                     * I'm not sure but I think my problem comes from here.
    LOOP AT li_vend2 INTO wa_vend2 WHERE bukrs = wa_vend-bukrs
                                  AND  lifnr = wa_vend-lifnr
      MOVE-CORRESPONDING wa_vend TO wa_total.
      MOVE wa_vend-lifnr TO wa_total-third.
      IF wa_vend-shkzg = 'H'.
        wa_vend-dmbtr  = wa_vend-dmbtr * -1.
        wa_vend-wrbtr  = wa_vend-wrbtr * -1.
      ENDIF.
      MOVE wa_vend-wrbtr TO wa_total-tsl.
      MOVE wa_vend-dmbtr TO wa_total-hsl.
      wa_total-flag = c_lifnr.
      COLLECT  wa_total INTO li_total.
    ENDLOOP.
  ENDLOOP.