SAP FICO 创建修改会计科目 GL_ACCT_MASTER

本人诚心接ABAP远程开发任务，价格公道，有需要的联系我，欢迎个人，甲方爸爸，乙方私信联系。

客户要求，SAP与OA对接，用户通过OA创建和修改会计科目

BAPI:GL_ACCT_MASTER_SAVE

DATA: is_import  TYPE zfis_oa_subject_create_import.
DATA: es_export  TYPE zfis_oa_subject_create_export.DATA:   ls_account_coa         TYPE glaccount_coa,ls_account_coa_keyy    TYPE glaccount_coa_key,ls_account_coa_data    TYPE glaccount_coa_data,ls_account_coa_info    TYPE glaccount_coa_info,lt_account_names       TYPE glaccount_name_table,ls_account_names       TYPE glaccount_name,ls_account_names_keyy  TYPE glaccount_name_key,ls_account_names_data  TYPE glaccount_name_data,lt_account_ccodes      TYPE glaccount_ccode_table,ls_account_ccodes      TYPE glaccount_ccode,ls_account_ccodes_keyy TYPE glaccount_ccode_key,ls_account_ccodes_data TYPE glaccount_ccode_data,ls_account_ccodes_info TYPE glaccount_ccode_info,ls_account_carea       TYPE glaccount_carea,ls_account_carea_keyy  TYPE glaccount_carea_key,ls_account_carea_data  TYPE glaccount_carea_data,ls_account_carea_info  TYPE glaccount_carea_info,lt_account_carea       TYPE glaccount_carea_table,lt_return              TYPE TABLE OF bapiret2 WITH HEADER LINE,ls_return              TYPE bapiret2,lv_action              TYPE char1,lv_message             TYPE char255,ls_fromto              TYPE glaccount_carea_fromto.CASE is_import-ifopt. "此处为OA 传来的标识符 C 表示创建 M 表示修改WHEN 'C'.lv_action = 'I'.lv_message = '会计科目创建成功'.WHEN 'M'.lv_action = 'U'.lv_message = '会计科目修改成功'.WHEN OTHERS.ENDCASE.IF is_import-rev01 = 'A'.*--------------------------------------------------------------------*ls_account_coa_keyy-ktopl = is_import-ktopl."帐目表ls_account_coa_keyy-saknr = is_import-saknr."总账科目ls_account_coa_data-ktoks = is_import-ktoks."总帐科目组ls_account_coa_data-glaccount_type = is_import-glaccount_type.    "总账科目类型IF is_import-glaccount_type = 'X'.ls_account_coa_data-xbilk = 'X'.          "标志: 此科目是资产负债表科目吗?ENDIF.IF is_import-glaccount_type = 'S'OR is_import-glaccount_type = 'N'OR is_import-glaccount_type = 'P'.ls_account_coa_data-gvtyp = 'X'.       "损益报表科目类型ENDIF.ls_account_coa_info-erdat = sy-datum.        "记录创建日期ls_account_coa_info-ernam = sy-uname.        "创建对象的人员名称ls_account_coa_info-sakan = is_import-saknr. "总账科目ls_account_coa-action = lv_action.           "数据记录活动: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.*--------------------------------------------------------------------*ls_account_names_keyy-ktopl = is_import-ktopl.  "帐目表ls_account_names_keyy-saknr = is_import-saknr.  "总账科目ls_account_names_keyy-spras = sy-langu.         "语言代码ls_account_names_data-txt20 = is_import-txt20.   "总帐科目名称ls_account_names_data-txt50 = is_import-txt50.   "总账科目长文本ls_account_names-action = lv_action.            "数据记录活动:I/插入；U/修改；D/删除ls_account_names-keyy = ls_account_names_keyy.ls_account_names-data = ls_account_names_data.APPEND ls_account_names TO lt_account_names.ENDIF.*--------------------------------------------------------------------*ls_account_ccodes_keyy-bukrs = is_import-bukrs. "公司代码IF is_import-rev01 = 'A'.ls_account_ccodes_keyy-saknr = is_import-saknr. "总账科目ELSE.ls_account_ccodes_keyy-saknr = is_import-rev02. "总账科目ENDIF.ls_account_ccodes_data-waers = is_import-waers. "货币ls_account_ccodes_data-xsalh = is_import-xsalh. "是否仅限以本币记的余额ls_account_ccodes_data-xmwno = is_import-xmwno. "允许含/不含税过账ls_account_ccodes_data-mwskz = is_import-mwskz. "税务类型ls_account_ccodes_data-mitkz = is_import-mitkz. "统驭科目的科目类型ls_account_ccodes_data-xopvw = is_import-xopvw. "未清项目管理ls_account_ccodes_data-zuawa = is_import-zuawa. "排序码ls_account_ccodes_data-fstag = is_import-fstag. "字段状态组ls_account_ccodes_data-xintb = is_import-xintb. "只能自动过账ls_account_ccodes_data-xmitk = is_import-xmitk. "统驭科目是否准备就绪可以输入"ls_account_ccodes_data-kokrs = is_import-kokrs. "成本控制范围ls_account_ccodes_info-erdat = sy-datum."记录创建日期ls_account_ccodes_info-ernam = sy-uname."创建对象的人员名称ls_account_ccodes-action = lv_action.   "数据记录活动: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.APPEND ls_account_ccodes TO lt_account_ccodes.
*--------------------------------------------------------------------*IF is_import-kokrs IS INITIAL .is_import-kokrs = 'RT00'.ENDIF.ls_account_carea_keyy-kokrs = is_import-kokrs. "控制范围ls_account_carea_keyy-saknr = is_import-saknr. "总账科目ls_account_carea_data-katyp = is_import-katyp.ls_account_carea_info-ersda = sy-datum."创建日期ls_account_carea_info-usnam = sy-uname."创建人ls_account_carea-action = lv_action."数据记录活动:I/插入；U/修改；D/删除ls_account_carea-keyy = ls_account_carea_keyy.ls_account_carea-data = ls_account_carea_data.ls_account_carea-info = ls_account_carea_info.CLEAR ls_fromto."添加开始和截止日期ls_fromto-datab = '19000101'.ls_fromto-datbi = '99991231'.ls_account_carea-fromto = ls_fromto.APPEND ls_account_carea TO lt_account_carea.CALL FUNCTION 'GL_ACCT_MASTER_SAVE'EXPORTING
*     testmode           = ''
*     NO_SAVE_AT_WARNING =no_authority_check = ''store_data_only    = ''TABLESaccount_names      = lt_account_names
*     account_keywords   = gt_glkeywordsaccount_ccodes     = lt_account_ccodesaccount_careas     = lt_account_careareturn             = lt_returnCHANGINGaccount_coa        = ls_account_coa.READ TABLE  lt_return WITH KEY type = 'E'.IF sy-subrc = 0.LOOP AT lt_return INTO ls_return WHERE type = 'E' .CONCATENATE es_export-ifmsg ls_return-message INTO es_export-ifmsg." 错误消息ENDLOOP.es_export-busno  = is_import-saknr."会计科目es_export-status = 'E'.  "状态ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.es_export-busno  = is_import-saknr."会计科目es_export-ifmsg =  lv_message.   "消息es_export-status = 'S'.  "状态ENDIF.

SAP FICO 创建修改会计科目 GL_ACCT_MASTER_SAVE相关推荐

SAP FICO 创建及修改成本中心
本人诚心接ABAP远程开发任务,价格公道,有需要的联系我,欢迎个人,甲方爸爸,乙方私信联系. 业务要求 SAP 与OA 对接,客户从OA填完数据后在SAP端创建成本中心 BAPI_COSTCENTER ...
SAP FICO 创建利润中心 BAPI_COSTCENTER_CHANGEMULTIPLE
本人诚心接ABAP远程开发任务,价格公道,有需要的联系我,欢迎个人,甲方爸爸,乙方私信联系. DATA: LS_PROFITCENTERID TYPE BAPI0015ID2.DATA: LS_BAS ...
SAP物料主数据创建/修改（MM01/MM02），在 “分类” 页签输入比较特殊的特征值，例如：希腊字母 “ μ ”，结果却显示别的英文字符（例如： “M“）的问题原因及解决方法
处理方法为付费资源,如果介意,请勿下载 SAP物料主数据创建/修改(MM01/MM02),在 "分类" 页签输入比较特殊的特征值,例如: 希腊字母 " μ " ...
【TUTU SAP】SAP FICO 财务入门第一步-创建公司和公司代码
SAP的总体概念的话,有许多的大佬都介绍的很明白,我在这里就不叙述了,本篇文章开始,主要是针对SAP FICO模块(也就是财务模块)进行总体的讲解和配置的介绍,也希望各位多多指教,如果有问题可以提出来 ...
SAP ABAP 供应商主数据的查询-创建-修改-锁定 API或BAPI
文章目录前言范例代码总结前言采用BDC创建客商主数据复用性低,且时常发生错误,比如字段必输性调整造成报错等现通过API或BAPI去查询,创建,修改,锁定以下为实际做的一个RFC接口范例 ...
SAP FI-CO总账科目简析
更多内容关注公众号:SAP Technical 各位可以关注我的公众号:SAP Technical 浅谈SAP FICO-总账科目一.总账科目的概述总账科目,它起到统驭整个财务的作用.不同的会计科 ...
转载 sap FI-CO总账科目简析
浅谈SAP FICO-总账科目一.总账科目的概述总账科目,它起到统驭整个财务的作用.不同的会计科目在总账主数据中创建会应用到不同的"字段"(field),通过这些不同" ...
SAP FICO MM SD后台配置-汇总篇
写在前言: 陆陆续续接触SAP快5年了,从最初的懵懵懂懂,到现在的大概了解,期间辛苦难以言表,但是收货很大. 所谓预学SAP,首通财务.财务通,完事通. 其实整个SAP都是围绕财务来转的,如果财务基本 ...
SAP FICO 财务成本知识
SAP FICO 财务成本知识 -------------------------------------------------------------------------------- 网上找 ...

SAP FICO 创建修改会计科目 GL_ACCT_MASTER_SAVE

BAPI:GL_ACCT_MASTER_SAVE

SAP FICO 创建修改会计科目 GL_ACCT_MASTER_SAVE相关推荐

最新文章

热门文章