for all entiries of bseg详解编程语言

生第一个ABAP程序 6个人天就是3000USD啊 感动ing

* *ir
* Report  ZFARR004
* Hershey s
*
* *

REPORT  zfarr004_tmp.
TABLES: bkpf,bseg,kna1,skat.

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.

  NEW-LINE.
  WRITE /.
  WRITE: AT 70 total_credit , AT 100 total_debit.
  ULINE AT /72(45).
  ULINE AT /72(45).
  ENDIF.
ENDFORM. output

原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/18230.html