SAP details:     Events  -  News -   Training  -  World wide sites  -  Sap Labs   -   SAP Magazine  -   SAP Screen saver -   Stock Price

Download ABAP source code

Program name  Program function  Author Date Added 
Z_Interactive_report_2
Version: 3.0 & above
Interactive reporting 
Module: FI
   
 

REPORT Z_Interactive_report_2  NO STANDARD PAGE HEADING.
TABLES: LFA1, LFB1, BSIK.

START-OF-SELECTION.
   GET LFB1.
      WRITE: LFA1-LIFNR, LFB1-BUKRS, (20) LFA1-NAME1, (20) LFA1-ORT01.
      HIDE: LFA1-LIFNR, LFB1-BUKRS.

TOP-OF-PAGE DURING LINE-SELECTION.
   WRITE: SY-LISEL.
   ULINE. SKIP.
   WRITE: 'COMPANY CODE:'(001), LFB1-BUKRS.
   WRITE: / 'DOC. NO. POST.DATE BA LOCAL CURRENCY'(002).
   ULINE /(45).

END-OF-SELECTION.
CLEAR LFA1-LIFNR.

AT PF13.
    CHECK NOT LFA1-LIFNR IS INITIAL.
    SELECT * FROM BSIK WHERE LIFNR = LFA1-LIFNR AND BUKRS EQ
             LFB1-BUKRS.
           WRITE: / BSIK-BELNR, BSIK-BUDAT DD/MM/YYYY, BSIK-GSBER,
                      23 BSIK-DMBTR.
     ENDSELECT.
     IF SY-SUBRC NE 0.
         SKIP 5.
         WRITE: '*** NO DOCUMENTS AVAILABLE. ***'(003).
      ENDIF.
      CLEAR LFA1-LIFNR.

 

 

 
 









   
 
PlanetSAP.com

Home     Post a article   Suggestion   Contact  

Disclaimer    Copyright; 1998-2001 Softron Systems, Inc. All rights reserved.