FUNCTION ZJ_3RF_FBCJ_PROC.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*" IMPORTING
*" VALUE(I_BKDF) LIKE BKDF STRUCTURE BKDF OPTIONAL
*" TABLES
*" T_AUSZ1 STRUCTURE AUSZ1 OPTIONAL
*" T_AUSZ2 STRUCTURE AUSZ2 OPTIONAL
*" T_BKP1 STRUCTURE BKP1
*" T_BKPF STRUCTURE BKPF
*" T_BSEC STRUCTURE BSEC
*" T_BSED STRUCTURE BSED
*" T_BSEG STRUCTURE BSEG
*" T_BSET STRUCTURE BSET
*" T_BSEU STRUCTURE BSEU OPTIONAL
*"----------------------------------------------------------------------
*{ INSERT KR1K902317 1
* TABLES: t001.
* DATA: fname(30) VALUE '(SAPLBFFM)l_bseg[]'.
data: fname(30) value '(SAPMF05A)BSEG[]'.

field-symbols: <kbseg>,
<pbseg>.

DATA: v_bseg(30) VALUE '(SAPLBFFM)L_BSEG[]'.
data: w_bseg like bseg.

*FIELD-SYMBOLS: <t_bseg>.
FIELD-SYMBOLS: <s_bseg> TYPE TABLE.

IF sy-tcode NE 'FBCJ'.
EXIT.
ENDIF.
READ TABLE t_bkpf INDEX 1.
SELECT SINGLE * FROM tcj_trans_names
WHERE comp_code = t_bkpf-bukrs AND transact_name = t_bkpf-bktxt AND
langu = sy-langu.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT SINGLE * FROM j_3rf_fbcj_sl WHERE
comp_code = tcj_trans_names-comp_code AND
transact_number = tcj_trans_names-transact_number.
IF sy-subrc NE 0.
EXIT.
ENDIF.
LOOP AT t_bseg WHERE koart = 'D' OR koart = 'K'.
* WRITE SPECIAL LEDGER CODE HERE
SELECT SINGLE * FROM t001 WHERE bukrs = t_bseg-bukrs.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT SINGLE skont INTO (t_bseg-hkont) FROM t074
WHERE ktopl = t001-ktopl AND
koart = t_bseg-koart AND
umskz = j_3rf_fbcj_sl-umskz AND
hkont = t_bseg-hkont.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT SINGLE umsks INTO (t_bseg-umsks) FROM t074u
WHERE koart = t_bseg-koart AND
umskz = j_3rf_fbcj_sl-umskz.
IF sy-subrc NE 0.
EXIT.
ENDIF.
t_bseg-umskz = j_3rf_fbcj_sl-umskz.
IF t_bseg-koart = 'K'.
t_bseg-hzuon = t_bseg-lifnr.
ELSE.
t_bseg-hzuon = t_bseg-kunnr.
ENDIF.
SELECT SINGLE xbilk gvtyp FROM ska1
INTO (t_bseg-xbilk, t_bseg-gvtyp)
WHERE ktopl = t001-ktopl AND
saknr = t_bseg-hkont.
IF sy-subrc NE 0.
EXIT.
ENDIF.
T_BSEG-XKRES = 'X'.
SELECT SINGLE XKRES FROM SKB1 INTO (T_BSEG-XHRES)
WHERE bukrs = t001-bukrs AND
saknr = t_bseg-hkont.
IF sy-subrc NE 0.
EXIT.
ENDIF.
MODIFY t_bseg.
ENDLOOP.

* ASSIGN (fname) TO <t_bseg>.
ASSIGN TABLE FIELD (v_bseg) TO <s_bseg>.
if 1 = 1.
endif.
* <t_bseg> = t_bseg[].
<s_bseg> = t_bseg[].

*} INSERT
ENDFUNCTION.

FUNCTION ZJ_3RF_FBCJ_PROC.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*" IMPORTING
*" VALUE(I_BKDF) LIKE BKDF STRUCTURE BKDF OPTIONAL
*" TABLES
*" T_AUSZ1 STRUCTURE AUSZ1 OPTIONAL
*" T_AUSZ2 STRUCTURE AUSZ2 OPTIONAL
*" T_BKP1 STRUCTURE BKP1
*" T_BKPF STRUCTURE BKPF
*" T_BSEC STRUCTURE BSEC
*" T_BSED STRUCTURE BSED
*" T_BSEG STRUCTURE BSEG
*" T_BSET STRUCTURE BSET
*" T_BSEU STRUCTURE BSEU OPTIONAL
*"----------------------------------------------------------------------
*{ INSERT KR1K902317 1
* TABLES: t001.
* DATA: fname(30) VALUE '(SAPLBFFM)l_bseg[]'.
data: fname(30) value '(SAPMF05A)BSEG[]'.

field-symbols: <kbseg>,
<pbseg>.

DATA: v_bseg(30) VALUE '(SAPLBFFM)L_BSEG[]'.
data: w_bseg like bseg.

*FIELD-SYMBOLS: <t_bseg>.
FIELD-SYMBOLS: <s_bseg> TYPE TABLE.

IF sy-tcode NE 'FBCJ'.
EXIT.
ENDIF.
READ TABLE t_bkpf INDEX 1.
SELECT SINGLE * FROM tcj_trans_names
WHERE comp_code = t_bkpf-bukrs AND transact_name = t_bkpf-bktxt AND
langu = sy-langu.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT SINGLE * FROM j_3rf_fbcj_sl WHERE
comp_code = tcj_trans_names-comp_code AND
transact_number = tcj_trans_names-transact_number.
IF sy-subrc NE 0.
EXIT.
ENDIF.
LOOP AT t_bseg WHERE koart = 'D' OR koart = 'K'.
* WRITE SPECIAL LEDGER CODE HERE
SELECT SINGLE * FROM t001 WHERE bukrs = t_bseg-bukrs.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT SINGLE skont INTO (t_bseg-hkont) FROM t074
WHERE ktopl = t001-ktopl AND
koart = t_bseg-koart AND
umskz = j_3rf_fbcj_sl-umskz AND
hkont = t_bseg-hkont.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT SINGLE umsks INTO (t_bseg-umsks) FROM t074u
WHERE koart = t_bseg-koart AND
umskz = j_3rf_fbcj_sl-umskz.
IF sy-subrc NE 0.
EXIT.
ENDIF.
t_bseg-umskz = j_3rf_fbcj_sl-umskz.
IF t_bseg-koart = 'K'.
t_bseg-hzuon = t_bseg-lifnr.
ELSE.
t_bseg-hzuon = t_bseg-kunnr.
ENDIF.
SELECT SINGLE xbilk gvtyp FROM ska1
INTO (t_bseg-xbilk, t_bseg-gvtyp)
WHERE ktopl = t001-ktopl AND
saknr = t_bseg-hkont.
IF sy-subrc NE 0.
EXIT.
ENDIF.
T_BSEG-XKRES = 'X'.
SELECT SINGLE XKRES FROM SKB1 INTO (T_BSEG-XHRES)
WHERE bukrs = t001-bukrs AND
saknr = t_bseg-hkont.
IF sy-subrc NE 0.
EXIT.
ENDIF.
MODIFY t_bseg.
ENDLOOP.

* ASSIGN (fname) TO <t_bseg>.
ASSIGN TABLE FIELD (v_bseg) TO <s_bseg>.
if 1 = 1.
endif.
* <t_bseg> = t_bseg[].
<s_bseg> = t_bseg[].

*} INSERT
ENDFUNCTION.