関数zfm_erp_008。
* "------------------------------------------------ ----------------------
* "*"ローカルインターフェース:
* "テーブル
* "T_DATA STRUCTURE ZFM_ERP_008_DATA
*「T_SKATSTRUCTUREZFM_ERP_008_SKAT
* "T_RETURN STRUCTURE ZFI_RETURN
* "------------------------------------------------ ----------------------
データ:
ls_account_coaタイプglaccount_coa、
ls_account_coa_keyyタイプglaccount_coa_key、
ls_account_coa_dataタイプglaccount_coa_data、
ls_account_coa_infoタイプglaccount_coa_info、
lt_account_namesタイプglaccount_name_table、
ls_account_namesタイプglaccount_name、
ls_account_names_keyyタイプglaccount_name_key、
ls_account_names_dataタイプglaccount_name_data、
lt_account_ccodesタイプglaccount_ccode_table、
ls_account_ccodesタイプglaccount_ccode、
ls_account_ccodes_keyyタイプglaccount_ccode_key、
ls_account_ccodes_dataタイプglaccount_ccode_data、
ls_account_ccodes_infoタイプglaccount_ccode_info、
ヘッダー行のあるbapiret2のlt_return型テーブル。
t_dataでループします。
関数 'CONVERSION_EXIT_ALPHA_INPUT'を呼び出す
エクスポート
入力= t_data-saknr
インポート
出力= t_data-saknr。
*被験者データ
ls_account_coa_keyy-ktopl = t_data-ktopl。 "アカウントテーブル
ls_account_coa_keyy-saknr = t_data-saknr。 "総勘定元帳
ls_account_coa_data-ktoks = t_data-ktoks。 "総勘定元帳勘定グループ
ls_account_coa_data-xbilk = t_data-xbilk。 "資産と負債の勘定科目タイプ
ls_account_coa_data-gvtyp = t_data-gvtyp。 "損益計算書の勘定科目タイプ
ls_account_coa_info-erdat = sy-datum。 "レコードの作成日
ls_account_coa_info-ernam = sy-uname。 "オブジェクトを作成した人の名前
ls_account_coa_info-sakan = t_data-saknr。 "総勘定元帳
ls_account_coa-action = 'I'。 "データ記録アクティビティ:I /挿入; U /変更; D /削除
ls_account_coa-keyy = ls_account_coa_keyy。
ls_account_coa-data = ls_account_coa_data。
ls_account_coa-info = ls_account_coa_info。
*件名テキスト
saknr = t_data-saknrであるt_skatでループします。
ls_account_names_keyy-ktopl = t_data-ktopl。 "アカウントテーブル
ls_account_names_keyy-saknr = t_data-saknr。 "総勘定元帳
ls_account_names_keyy-spras = t_skat-spras。 "言語コード
ls_account_names_data-txt20 = t_skat-txt20。 "総勘定元帳のアカウント名
ls_account_names_data-txt50 = t_skat-txt50。 "元帳アカウントの長いテキスト
ls_account_names-action = 'I'。 "データロギングアクティビティ:I /挿入; U /変更; D /削除
ls_account_names-keyy = ls_account_names_keyy。
ls_account_names-data = ls_account_names_data。
ls_account_namesをlt_account_namesに追加します。
エンドループ。
*会社コード
ls_account_ccodes_keyy-bukrs = t_data-bukrs。 "会社コード
ls_account_ccodes_keyy-saknr = t_data-saknr。 "総勘定元帳
ls_account_ccodes_data-waers = t_data-waers。「货币
ls_account_ccodes_data-fstag = t_data-fstag。 "フィールドステータスグループ
ls_account_ccodes_data-xgkon = t_data-xgkon。 "キャッシュフローに関連
ls_account_ccodes_data-xsalh = t_data-xsalh。 "識別:現地通貨でのみ残高を管理します
ls_account_ccodes_data-mitkz = t_data-mitkz。 "件名は調整件名です
ls_account_ccodes_data-mwskz = t_data-mwskz。 "販売/購入税コード
ls_account_ccodes_data-xmwno = t_data-xmwno。 "識別子:税コードは必須フィールドではありません
ls_account_ccodes_data-xopvw = t_data-xopvw。 "識別:オープンアイテム管理?
ls_account_ccodes_data-xkres = t_data-xkres。 "識別:アカウントごとにラインアイテムを表示することは可能ですか?
ls_account_ccodes_data-zuawa = t_data-zuawa。 "割り当て番号に従ってコードを並べ替えます
ls_account_ccodes_data-fstag = t_data-fstag。 "フィールドステータスグループ
ls_account_ccodes_data-xintb = t_data-xintb。 "識別:アカウントに自動的に投稿することは可能ですか?
ls_account_ccodes_data-xgkon = t_data-xgkon。 "現金収入勘定/現金支出勘定
ls_account_ccodes_info-erdat = sy-datum。 "レコードの作成日
ls_account_ccodes_info-ernam = sy-uname。 "オブジェクトを作成した人の名前
ls_account_ccodes-action = 'I'。 "データロギングアクティビティ:I /挿入; U /変更; D /削除
ls_account_ccodes-keyy = ls_account_ccodes_keyy。
ls_account_ccodes-data = ls_account_ccodes_data。
ls_account_ccodes-info = ls_account_ccodes_info。
ls_account_ccodesをlt_account_ccodesに追加します。
関数 'GL_ACCT_MASTER_SAVE'を呼び出す
エクスポート
testmode = ''
no_save_at_warning = 'X'
* NO_AUTHORITY_CHECK =
* STORE_DATA_ONLY =
テーブル
account_names = lt_account_names
* ACCOUNT_KEYWORDS =
account_ccodes = lt_account_ccodes
return = lt_return
変化
account_coa = ls_account_coa。
キータイプ= 'E'でテーブルlt_returnをlt_returnに読み込みます。
sy-subrc = 0の場合。
そうしないと。
関数 'BAPI_TRANSACTION_COMMIT'を呼び出す
エクスポート
待機= 'X'。
endif。
lt_returnが初期でない場合。
lt_returnでlt_returnにループします。
t_return-saknr = t_data-saknr。
t_return-bukrs = t_data-bukrs。
t_return-rtype = lt_return-type。
t_return-rtmsg = lt_return-メッセージ。
t_returnを追加します。
クリア:t_return。
エンドループ。
そうしないと。
t_return-saknr = t_data-saknr。
t_return-bukrs = t_data-bukrs。
t_return-rtype = 'S'。
t_return-rtmsg = '成功'。
t_returnを追加します。
クリア:t_return。
endif。
*更新:lt_ACCOUNT_NAMES、lt_ACCOUNT_CCODES、gt_carea、lt_RETURN、gt_coa。
*クリア:lt_account_names、lt_account_ccodes、gwa_carea、lt_return、lt_account_ccodes。
エンドループ。
エンドファンクション。