for all entiries of bseg详解编程语言

DATA subtotal_debit   TYPE p DECIMALS 3.
DATA subtotal_credit TYPE p DECIMALS 3.

DATA total_debit TYPE p DECIMALS 3.
DATA total_credit TYPE p DECIMALS 3.

DATA:BEGIN OF itab_bkpf OCCURS 0,
  bukrs LIKE bkpf-bukrs,  “Company Code
  gjahr LIKE bkpf-gjahr,  “Fiscal Year
  belnr LIKE bkpf-belnr,  “Accounting Document Number
  bktxt LIKE bkpf-bktxt,  “Document Header Text
  budat LIKE bkpf-budat,  “Posting Date in the Document
  xblnr LIKE bkpf-xblnr,  “Reference Document Number
END OF itab_bkpf.

DATA:BEGIN OF itab_bseg OCCURS 0,
  bukrs LIKE bseg-bukrs,  “Company Code
  belnr LIKE bseg-belnr,  “Accounting Document Number
  gjahr LIKE bseg-gjahr,  “Fiscal Year
  kunnr LIKE bseg-kunnr,  “Customer Number 1
  hkont LIKE bseg-hkont,  “General Ledger Account
  dmbtr LIKE bseg-dmbtr,  “Amount in Local Currency
  saknr LIKE bseg-saknr,  “G/L Account Number
  shkzg LIKE bseg-shkzg,  “Debit/Credit Indicator
  END OF itab_bseg.

DATA:BEGIN OF itab_kna1 OCCURS 0,
  kunnr LIKE kna1-kunnr,  “Customer Number 1
  name1 LIKE kna1-name1,                                    “Name 1
  END OF itab_kna1.

DATA: BEGIN OF itab_skat OCCURS 0 ,
  saknr LIKE skat-saknr,  “G/L Account Number
  txt20 LIKE skat-txt20,  “G/L account short text
  END OF itab_skat.

DATA: tmp TYPE i VALUE 0.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS s_kunnr FOR bseg-kunnr.  “Customer Number 1

PARAMETERS p_bukrs LIKE bkpf-bukrs.     “Company Code

SELECT-OPTIONS s_hkont FOR bseg-hkont MODIF ID gl.“G/L Account

SELECT-OPTIONS s_belnr FOR bkpf-belnr.  “Accounting Document Number

SELECT-OPTIONS s_budat FOR bkpf-budat OBLIGATORY.  “Posting Date in the Document

PARAMETERS: r1 RADIOBUTTON GROUP rad1
                           DEFAULT ‘X’
                           USER-COMMAND scr,
            r2 RADIOBUTTON GROUP rad1,
            r3 RADIOBUTTON GROUP rad1.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS r_hkont FOR bseg-hkont MODIF ID acc NO INTERVALS.
SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF screen-group1 EQ ‘ACC’.
      IF r1 NE ‘X’.
        screen-active = ‘1’.
        MODIFY SCREEN.
      ELSE.
        screen-active = ‘0’.
        MODIFY SCREEN.
      ENDIF.
    ELSEIF screen-group1 EQ ‘GL’.
      IF r1 NE ‘X’.
        IF screen-name CS ‘S_HKONT’.
          screen-input = ‘0’.
          MODIFY SCREEN.
          REFRESH s_hkont.
        ENDIF.
      ELSE.
        IF screen-name CS ‘S_HKONT’.
          screen-input = ‘1’.
          MODIFY SCREEN.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDLOOP.

START-OF-SELECTION.

  IF r1 EQ ‘X’.
    PERFORM get_header_data.
    PERFORM output.
  ENDIF.

END-OF-SELECTION.

**********************************************************************
* FORM    :  get_header_data
* Created :  13.08.2007 16:48:28
**********************************************************************
FORM get_header_data .
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE itab_bkpf
    FROM bkpf
    WHERE
    bukrs = p_bukrs                       “Company Code
    AND belnr IN s_belnr                  “Accounting Document Number
    AND budat IN s_budat                  “Posting Date in the Document
    AND blart = ‘DZ’                     “Document type is ‘DZ’
    .

  IF NOT itab_bkpf[] IS INITIAL.
    SELECT *
      INTO CORRESPONDING FIELDS OF TABLE itab_bseg
      FROM bseg
      FOR ALL ENTRIES IN itab_bkpf
      WHERE
      bukrs = itab_bkpf-bukrs                “Company Code
      AND belnr = itab_bkpf-belnr            “Accounting Document Number
      AND gjahr = itab_bkpf-gjahr            “Finance Year
      AND hkont IN s_hkont                   “G/L Account
      AND kunnr IN s_kunnr                   “Customer Number 1
      .

    SORT itab_bseg BY bukrs belnr gjahr.
  ENDIF.

  IF NOT itab_bseg[] IS INITIAL.
    SELECT *
        INTO CORRESPONDING FIELDS OF TABLE itab_kna1
        FROM kna1
        FOR ALL ENTRIES IN itab_bseg
        WHERE
        kunnr = itab_bseg-kunnr                 “Customer Number 1
        .
    SORT itab_kna1 BY kunnr.

    SELECT *
      INTO CORRESPONDING FIELDS OF TABLE itab_skat
      FROM skat
      FOR ALL ENTRIES IN itab_bseg
      WHERE
      saknr = itab_bseg-hkont                  “G/L Account Number
      “AND spras = sy-langu.                   ” Client language.
    .
    SORT itab_skat BY saknr.
  ENDIF.

ENDFORM. “get_data

**********************************************************************
* FORM    :  output
* Created :  13.08.2007 16:48:41
**********************************************************************
FORM output.
  NEW-PAGE.
  WRITE:/ ‘Hershey Philippines, Inc.’ .
  WRITE:/ ‘CASH RECEIPTS REGISTER’.
  IF s_budat-low = 0.
    WRITE:/ ‘Inclusive Dates:’,AT 40 s_budat-high.
  ELSEIF s_budat-high = 0.
    WRITE:/ ‘Inclusive Dates:’,AT 40 s_budat-low.
  ELSE.
    WRITE:/ ‘Inclusive Dates:’,AT 40 s_budat-low,’ to ‘,s_budat-high.
  ENDIF.

  NEW-LINE.
  WRITE: AT 10 ‘Date’,AT 18 ‘Account No.’, AT 32 ‘Account Description ‘, AT 72 ‘Debit’ , AT 103 ‘Credit’.
  NEW-LINE.
  ULINE (120).
  NEW-LINE.
  IF NOT itab_bkpf[] IS INITIAL.

    LOOP AT itab_bkpf INTO line_bkpf.

      READ TABLE itab_bseg INTO line_bseg
      WITH KEY
      bukrs = line_bkpf-bukrs
      belnr = line_bkpf-belnr
      gjahr = line_bkpf-gjahr .” to check that wethere there is a bseg item for the bkpf.

      IF NOT line_bseg IS INITIAL.
        CLEAR line_bseg.
        ” out put the detailed infomation.
        LOOP AT itab_bseg INTO line_bseg
          WHERE
          bukrs = line_bkpf-bukrs
          AND belnr = line_bkpf-belnr
          AND gjahr = line_bkpf-gjahr .

          READ TABLE itab_kna1 INTO line_kna1
            WITH KEY kunnr = line_bseg-kunnr BINARY SEARCH.
          READ TABLE itab_skat INTO line_skat
            WITH KEY saknr = line_bseg-hkont BINARY SEARCH.

          IF tmp = 0 .
            “out put the document header infomation.
            WRITE:/’OR No.: ‘,line_bkpf-xblnr,AT 32 ‘Document No.:’,line_bkpf-belnr.
            NEW-LINE.
            WRITE :/’Received from: ‘, line_bseg-kunnr, AT 30 line_kna1-name1.
            NEW-LINE.
            WRITE :/ ‘Particulars: ‘,line_bkpf-bktxt.
            NEW-LINE.
            tmp = tmp + 1.
          ENDIF.

          WRITE: AT 10 line_bkpf-budat , line_bseg-hkont ,  line_skat-txt20.
          CASE line_bseg-shkzg .
            WHEN ‘S’.
              subtotal_debit = subtotal_debit + line_bseg-dmbtr.
              total_debit = total_debit + line_bseg-dmbtr.
              WRITE: AT 100 line_bseg-dmbtr.
            WHEN ‘H’.
              subtotal_credit = subtotal_credit + line_bseg-dmbtr.
              total_credit = total_credit + line_bseg-dmbtr.
              WRITE: AT 70 line_bseg-dmbtr.
            WHEN OTHERS.
          ENDCASE.
          NEW-LINE.
          CLEAR line_bseg.
        ENDLOOP.
      ENDIF.

      CLEAR line_bkpf.

      “NEW-LINE.
      ULINE AT /72(45).
      NEW-LINE.
      WRITE: AT 70 subtotal_credit , AT 100 subtotal_debit.
      NEW-LINE.
      WRITE /.
      CLEAR subtotal_credit.
      CLEAR subtotal_debit.
      CLEAR line_skat.
      CLEAR line_kna1.
      tmp = 0 .
    ENDLOOP.