Check code ( urgent help needed from ABAP guys working on FI/CO)

Question

hi all,
check my code & give me solution for getting only offsetting acounts depending on particular HKONT.
plz i need its solution urgently.
REPORT zglaccline NO STANDARD PAGE HEADING                              
                   LINE-SIZE 300                                         
                   LINE-COUNT 65(3).                                                                               
TABLES : bkpf, bseg.                                                                               
DATA : BEGIN OF it_bkpf OCCURS 0,                                       
        bukrs LIKE bkpf-bukrs,                                           
        belnr LIKE bkpf-belnr,                                           
        gjahr LIKE bkpf-gjahr,                                           
        monat LIKE bkpf-monat,                                           
        budat LIKE bkpf-budat,                                           
        brnch LIKE bkpf-brnch,                                           
        xblnr LIKE bkpf-xblnr,                                           
        waers LIKE bkpf-waers,                                           
        END OF it_bkpf.                                                                               
DATA : BEGIN OF it_bseg OCCURS 0,                                        
gsber LIKE bseg-gsber,                                                   
hkont LIKE bseg-hkont,                                                   
kunnr LIKE bseg-kunnr,                                                   
sgtxt LIKE bseg-sgtxt,                                                   
bschl LIKE bseg-bschl,                                                   
wrbtr LIKE bseg-wrbtr,                                                   
dmbtr LIKE bseg-dmbtr,                                                   
pswsl LIKE bseg-pswsl,                                                   
kostl LIKE bseg-kostl,                                                   
prctr LIKE bseg-prctr,                                                   
aufnr LIKE bseg-aufnr,                                                   
shkzg LIKE bseg-shkzg,                                                   
augbl LIKE bseg-augbl,                                                   
END OF it_bseg.                                                                               
DATA : BEGIN OF it_res OCCURS 0,                                           
bukrs LIKE bkpf-bukrs,                                                    
gjahr LIKE bkpf-gjahr,                                                    
monat LIKE bkpf-monat,                                                    
belnr LIKE bkpf-belnr,                                                    
budat LIKE bkpf-budat,                                                    
brnch LIKE bkpf-brnch,                                                    
gsber LIKE bseg-gsber,                                                    
hkont LIKE bseg-hkont,                                                    
kunnr LIKE bseg-kunnr,                                                    
bschl LIKE bseg-bschl,                                                    
prctr LIKE bseg-prctr,                                                    
kostl LIKE bseg-kostl,                                                    
aufnr LIKE bseg-aufnr,                                                    
pswsl LIKE bseg-pswsl,                                                    
wrbtr LIKE bseg-wrbtr,                                                                               
waers LIKE bkpf-waers,                                                 
dmbtr LIKE bseg-dmbtr,                                                 
xblnr LIKE bkpf-xblnr,                                                 
txt50 LIKE skat-txt50,                                                 
sgtxt LIKE bseg-sgtxt,                                                 
shkzg LIKE bseg-shkzg,                                                 
END OF it_res.                                                                               
DATA : BEGIN OF itab_head OCCURS 0,                                     
       name1(20) TYPE c,                                                
       END OF itab_head.                                                
SELECTION-SCREEN BEGIN OF BLOCK b_2 WITH FRAME TITLE text-002.          
PARAMETERS : p_sel1 RADIOBUTTON GROUP sel,                              
             p_sel2 RADIOBUTTON GROUP sel,                              
             p_sel3 RADIOBUTTON GROUP sel.                              
SELECTION-SCREEN END OF BLOCK b_2.                                      
SELECTION-SCREEN SKIP 1.                                                
SELECTION-SCREEN BEGIN OF BLOCK b_1 WITH FRAME TITLE text-001.          
PARAMETER p_bukrs LIKE bkpf-bukrs DEFAULT 'ML' OBLIGATORY.              
SELECT-OPTIONS : s_belnr FOR bkpf-belnr.                                
SELECT-OPTIONS : s_gjahr FOR bkpf-gjahr OBLIGATORY.                     
SELECT-OPTIONS : s_monat FOR bkpf-monat.                                
SELECT-OPTIONS : s_blart FOR bkpf-blart.                                
SELECT-OPTIONS : s_budat FOR bkpf-budat.                                
SELECT-OPTIONS : s_waers FOR bkpf-waers.                                
SELECT-OPTIONS : s_hkont FOR bseg-hkont.                                
SELECT-OPTIONS : s_bldat FOR bkpf-bldat.                                
SELECTION-SCREEN END OF BLOCK b_1.                                                                               
SELECT bukrs belnr gjahr monat budat brnch xblnr waers                  
   INTO CORRESPONDING FIELDS OF TABLE it_bkpf                           
   FROM bkpf                                                            
   WHERE bukrs = p_bukrs                                                
   AND belnr IN s_belnr                                                 
   AND gjahr IN s_gjahr                                                 
   AND monat IN s_monat                                                 
   AND blart IN s_blart                                                 
   AND budat IN s_budat                                                 
   AND bldat IN s_bldat                                                 
   AND waers IN s_waers.                                                                               
IF NOT it_bkpf[] IS INITIAL.                                            
  LOOP AT it_bkpf.                                                      
IF p_sel1 = 'X'.                                                        
    SELECT gsber hkont kunnr sgtxt bschl wrbtr pswsl kostl shkzg        
                        dmbtr prctr aufnr augdt augbl                               
       INTO CORRESPONDING FIELDS OF TABLE it_bseg                       
       FROM bseg                                                        
       WHERE bukrs = it_bkpf-bukrs                                      
       AND belnr   = it_bkpf-belnr                                      
       AND gjahr   = it_bkpf-gjahr                                      
       AND pswsl   = it_bkpf-waers                                      
       AND hkont  IN s_hkont.                                           
ELSEIF p_sel2 = 'X'.                                                    
    SELECT gsber hkont kunnr sgtxt bschl wrbtr pswsl kostl shkzg        
            dmbtr prctr aufnr augdt augbl                               
       INTO CORRESPONDING FIELDS OF TABLE it_bseg                       
       FROM bseg                                                        
       WHERE bukrs = it_bkpf-bukrs                                      
       AND belnr   = it_bkpf-belnr                                      
       AND gjahr   = it_bkpf-gjahr                                      
       AND pswsl   = it_bkpf-waers.                                    
      AND koart <> 'S'.                                              
ENDIF.                                                                 
    IF sy-subrc EQ 0.                                                  
      LOOP AT it_bseg.                                                 
        SELECT SINGLE txt50 INTO it_res-txt50                          
             FROM skat                                                 
             WHERE spras = 'EN'                                        
             AND   ktopl = 'PCA'                                       
             AND   saknr = it_bseg-hkont.                                                                               
it_res-bukrs = it_bkpf-bukrs.                                  
        it_res-gjahr = it_bkpf-gjahr.                                  
        it_res-monat = it_bkpf-monat.                                  
        it_res-gsber = it_bseg-gsber.                                  
        it_res-belnr = it_bkpf-belnr.                                  
        it_res-budat = it_bkpf-budat.                                  
        it_res-brnch = it_bkpf-brnch.                                  
        it_res-kunnr = it_bseg-kunnr.                                  
        it_res-hkont = it_bseg-hkont.                                  
        it_res-sgtxt = it_bseg-sgtxt.                                  
        it_res-bschl = it_bseg-bschl.                                  
        it_res-wrbtr = it_bseg-wrbtr.                                  
        it_res-pswsl = it_bseg-pswsl.                                  
        it_res-waers = it_bkpf-waers.                                  
        it_res-dmbtr = it_bseg-dmbtr.                                  
        it_res-kostl = it_bseg-kostl.                                  
        it_res-prctr = it_bseg-prctr.                                  
        it_res-aufnr = it_bseg-aufnr.                                  
        it_res-shkzg = it_bseg-shkzg.                                  
       it_res-augbl = it_bseg-augbl.                                 
        it_res-xblnr = it_bkpf-xblnr.                                  
        APPEND it_res.                                                 
        CLEAR it_res.                                                  
      ENDLOOP.                                                         
      CLEAR it_bkpf.                                                   
    ENDIF.                                                             
  ENDLOOP.                                                             
ENDIF.                                                                 
LOOP AT it_res.                                                        
  IF it_res-shkzg EQ 'H'.                                              
    it_res-wrbtr = it_res-wrbtr * -1.                                  
    it_res-dmbtr = it_res-dmbtr * -1.                                  
  ENDIF.                                                               
  WRITE : /2(4) it_res-bukrs,                                          
           13(4) it_res-gjahr,                                         
           21(2) it_res-monat,                                         
           31(10) it_res-belnr,                                        
           44(10) it_res-budat,                                        
           55(4) it_res-brnch,                                         
           60(4) it_res-gsber,                                          
           70(10) it_res-hkont,                                         
           82(10) it_res-kunnr,                                         
           94(2) it_res-bschl,                                          
           104(10) it_res-prctr,                                        
          116(10)  it_res-kostl,                                        
          128(12)  it_res-aufnr,                                        
          142(5)  it_res-pswsl,                                         
          148(13)  it_res-wrbtr,                                        
          164(5)  it_res-waers,                                         
          170(13)  it_res-dmbtr,                                        
         187(16)   it_res-xblnr,                                        
          205(50)  it_res-sgtxt.                                        
  MODIFY it_res.                                                        
  CLEAR it_res.                                                         
ENDLOOP.                                                                
plz give soltuion i am looking for it.
i will aslo reward all ur precious effort.
otherwise if anyone have any code on my reqirement then plz send it to me in my id- [email protected]
thanks
Message was edited by: sanjeev singh

Answer 1

Hi
You should a selection in BSIS and BSAS table instead of BKPF and BSEG:
DATA : BEGIN OF it_res OCCURS 0,
bukrs LIKE bkpf-bukrs,
gjahr LIKE bkpf-gjahr,
monat LIKE bkpf-monat,
belnr LIKE bkpf-belnr,
budat LIKE bkpf-budat,
brnch LIKE bkpf-brnch,
gsber LIKE bseg-gsber,
hkont LIKE bseg-hkont,
kunnr LIKE bseg-kunnr,
bschl LIKE bseg-bschl,
prctr LIKE bseg-prctr,
kostl LIKE bseg-kostl,
aufnr LIKE bseg-aufnr,
pswsl LIKE bseg-pswsl,
wrbtr LIKE bseg-wrbtr,
waers LIKE bkpf-waers,
dmbtr LIKE bseg-dmbtr,
xblnr LIKE bkpf-xblnr,
txt50 LIKE skat-txt50,
sgtxt LIKE bseg-sgtxt,
shkzg LIKE bseg-shkzg,
END OF it_res.
Open Item
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_res
FROM <b>BSIS</b>
WHERE bukrs = p_bukrs
<b>AND HKONT IN S_HKONT</b>
AND belnr IN s_belnr
AND gjahr IN s_gjahr
AND monat IN s_monat
AND blart IN s_blart
AND budat IN s_budat
AND bldat IN s_bldat
AND waers IN s_waers.
Cleared Item
SELECT *
APPENDING CORRESPONDING FIELDS OF TABLE it_res
FROM <b>BSAS</b>
WHERE bukrs = p_bukrs
<b>AND HKONT IN S_HKONT</b>
AND belnr IN s_belnr
AND gjahr IN s_gjahr
AND monat IN s_monat
AND blart IN s_blart
AND budat IN s_budat
AND bldat IN s_bldat
AND waers IN s_waers.
Max
Message was edited by: max bianchi