HELP WITH SELECTION SCREENS

Question

Dear All,
    I am new to SAP(ABAP) have been given this assignment sort of ....plz help
1.     Write a program to fetch all the sales orders and line items with in a data range.
  Selection screen fields: Sales Order Number
                                       Document type
                                       Sales order date.
  To display in the output report should contain following fields:
1.     Sales Order number
2.     item number
3.     net price
4.     net value
5.     document type
Use Tables :vbak and vbap.

Answer 1

Hi,
Try this out.
REPORT yjjtest MESSAGE-ID zm.
TABLES: vbap, vbak.
DATA: BEGIN OF i_output OCCURS 0,
             vbeln LIKE vbap-vbeln,
             posnr LIKE vbap-posnr,
             netwr LIKE vbap-netwr,
             netpr LIKE vbap-netpr,
             auart LIKE vbak-auart,
           END OF i_output.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
" text-001 as Selection
SELECT-OPTIONS: s_vbeln  FOR vbap-vbeln,
                s_auart  FOR vbak-auart ,
                s_audat  FOR vbak-audat.
SELECTION-SCREEN END OF BLOCK blk1.
START-OF-SELECTION.
  SELECT a~vbeln
                a~posnr
                a~netwr
                a~netpr
                b~auart
                INTO TABLE i_output
                FROM vbap AS a
                INNER JOIN vbak AS b
                ON a~vbeln = b~vbeln
                WHERE    a~vbeln IN s_vbeln
                AND      b~auart IN s_auart
                AND      b~audat IN s_audat.
  IF sy-subrc NE 0.
  MESSAGE e000 WITH text-002. " No data found for the selection criteria
  ENDIF.
  WRITE:/  'Program to fetch all the sales orders and line items'.
  ULINE.
  WRITE:/001 'Sales Order number',
         012 'Item Number',
         025 'Net Price',
         050 'Net Value',
         070 'Document Type'.
  ULINE.
  LOOP AT i_output.
    WRITE:/001 i_output-vbeln,
           012 i_output-posnr,
           025 i_output-netwr,
           050 i_output-netpr,
           070 i_output-auart.
    CLEAR i_output.
  ENDLOOP.
Hope this solves ur query.
Sample output
TEST Program                                                                               
Program to fetch all the sales orders and line items                                                                               
Sales OrderItem Number  Net Price                Net Value           Document Type                                                                               
10000000   000010                       0.00                0.00     ZNOR                  
10000000   000020                       0.00                0.00     ZNOR                  
10000006   000010                       0.00                0.00     ZNOR                  
10000007   000060                       0.00                0.00     ZERO                  
10000007   000020                       0.00                0.00     ZERO                  
10000007   000050                       0.00                0.00     ZERO                  
10000007   000040                       0.00                0.00     ZERO                  
10000007   000030                       0.00                0.00     ZERO                  
10000007   000010                       0.00                0.00     ZERO                  
10000008   000010                  13,825.35            3,675.00     ZERO                  
10000009   000010                       0.00                0.00     ZERO                  
10000010   000010                  47,002.06            2,637.60     ZERO                  
10000011   000010                       0.00                0.00     ZERO                  
10000012   000010                  36,193.40            1,522.01     ZERO                  
10000014   000010                       0.00                0.00     ZERO                  
10000015   000050                       0.00                0.00     ZERO                  
10000015   000010                       0.00                0.00     ZERO                  
10000015   000020                       0.00                0.00     ZERO
Please reward points and clos ethe thread.