https://blog.csdn.net/z_x_xing_/article/details/90514715

GL_ACCT_MASTER_SAVE   创建总账科目

前台事务代码:FS00

函数功能描述

创建、修改、删除总账科目,且可测试运行

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,
      LT_RETURN              TYPE TABLE OF BAPIRET2 WITH HEADER LINE.

*--------------------------------------------------------------------*
LS_ACCOUNT_COA_KEYY-KTOPL = P_KTOPL."帐目表
LS_ACCOUNT_COA_KEYY-SAKNR = P_SAKNR."总账科目

LS_ACCOUNT_COA_DATA-KTOKS = P_KTOKS."总帐科目组
LS_ACCOUNT_COA_DATA-GVTYP = 'X'.    "损益报表科目类型

LS_ACCOUNT_COA_INFO-ERDAT = SY-DATUM."记录创建日期
LS_ACCOUNT_COA_INFO-ERNAM = SY-UNAME."创建对象的人员名称
LS_ACCOUNT_COA_INFO-SAKAN = P_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.

*--------------------------------------------------------------------*
LS_ACCOUNT_NAMES_KEYY-KTOPL = P_KTOPL.  "帐目表
LS_ACCOUNT_NAMES_KEYY-SAKNR = P_SAKNR.  "总账科目
LS_ACCOUNT_NAMES_KEYY-SPRAS = SY-LANGU. "语言代码

LS_ACCOUNT_NAMES_DATA-TXT20 = P_SAKNR && '测试'.      "总帐科目名称
LS_ACCOUNT_NAMES_DATA-TXT50 = P_SAKNR && '测试长文本'."总账科目长文本

LS_ACCOUNT_NAMES-ACTION = 'I'.   "数据记录活动: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.

*--------------------------------------------------------------------*
LS_ACCOUNT_CCODES_KEYY-BUKRS = '1000'. "公司代码
LS_ACCOUNT_CCODES_KEYY-SAKNR = P_SAKNR."总账科目

LS_ACCOUNT_CCODES_DATA-WAERS = 'CNY'. "货币
LS_ACCOUNT_CCODES_DATA-FSTAG = '1000'."字段状态组

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.
APPEND LS_ACCOUNT_CCODES TO LT_ACCOUNT_CCODES.

CALL FUNCTION 'GL_ACCT_MASTER_SAVE'
  EXPORTING
    TESTMODE           = ''
    NO_SAVE_AT_WARNING = 'X'
*   NO_AUTHORITY_CHECK =
*   STORE_DATA_ONLY    =
  TABLES
    ACCOUNT_NAMES      = LT_ACCOUNT_NAMES
*   ACCOUNT_KEYWORDS   =
    ACCOUNT_CCODES     = LT_ACCOUNT_CCODES
    RETURN             = LT_RETURN
  CHANGING
    ACCOUNT_COA        = LS_ACCOUNT_COA.

READ TABLE  LT_RETURN WITH KEY TYPE = 'E'.
IF SY-SUBRC = 0.
  MESSAGE E000(ZFI) WITH LT_RETURN-MESSAGE.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT = 'X'.

ENDIF.

原文:https://blog.csdn.net/z_x_xing_/article/details/90514715

TR-FS00会计科目创建GL_ACCT_MASTER_SAVE的更多相关文章

  1. QT 初阶 第二章 创建对话框(查找对话框实例)

    最终效果图: 该对话框由三个文件组成:finddialog.h .finddialog.cpp. main.cpp 代码+注释 /*--finddialog.h--*/ #ifndef FINDDIA ...

  2. 示例-创建表格&使用表格对象

    @charset "utf-8";/* CSS Document */table{ border:#249bdb 1px solid; width:500px; border-co ...

  3. JS,Jquery,ExtJs不同脚本动态创建DOM对象

    好久不来写东西了,这段时间太慢了,闲了下来看了几篇文章,觉得很好,同时也许咱们大家都能遇到,所以就把它记录下来... 简单使用JavaScript.JQuery.ExtJs进行DOM对象创建的测试,主 ...

  4. js在table指定tr行上或底下添加tr行

    js在table指定tr行上或下面添加tr行 function onAddTR(trIndex)         {             var tb = document.getElementB ...

  5. Thead基础及两种创建方式

    今天本人给大家讲解一下多线程,如有不对的或者讲的不好的可以多多提出,我会进行相应的更改,先提前感谢提出意见的各位了!!! 说说多线程本人自己对它理解的定义:因计算机的CPU支持能够在同一时间执行多于一 ...

  6. MVC使用ajax异步刷新时怎样输出从后台中传过来的JSON数据

    前言 这几天在学习MVC使用AJAX异步刷,因为是新手.所以在js中传参数到后台以及后台返回数据到前台怎么接受,怎么前台遍历出JSON数据都开始不知道,相信新手在使用时跟我一样会遇到,这里我就和大家分 ...

  7. MVC学习系列8--分页和排序

    分页和排序,应该是软件开发中,需要必知必会的技能了,对于分页,网上很多教程,当然,别人终究是别人的,只有自己理解,会了,并且吸收之后,再用自己的语言,传授出来,这才是硬道理.好了,废话说多了.现在我们 ...

  8. php : DOM 操作 XML

    DOM 操作 XML 基本用法 XML文件: person.XML <?xml version="1.0" encoding="utf-8" ?> ...

  9. jquery 源码解析 节点遍历

    jquery遍历,用于根据其相对于其他元素的关系来查找或选取html元素,以某项选择开始,并沿着这个选择移动,知道移动被称为对dom进行遍历 ☑ <div> 元素是 <ul> ...

随机推荐

  1. 对有序特征进行离散化(继承Spark的机器学习Estimator类)

    采用信息增益或基尼指数寻找最优离散化点 package org.apache.spark.ml.feature import org.apache.spark.sql.SparkSession imp ...

  2. Influxdb修改数据保留策略

    retention policy: 存储策略,用于设置数据保留的时间,每个数据库刚开始会自动创建一个默认的存储策略 autogen,数据保留时间为永久,之后用户可以自己设置,例如保留最近2小时的数据. ...

  3. ES6深入浅出-12 ES6新增的API(下)-1.录屏

    String.includes es5里面判断字符串是否存在的方法 search searcg的厉害之处是可以使用正则 match正则的方式 repeat -1遍,就不合法 startsWith 判断 ...

  4. 软件定义网络基础---SDN的主流构架

    一:基于不同标准的主流构架 二: ONF定义的SDN基本构架 (一) 四个平面.两大接口 三:四个平面 (一)数据平面 数据平面是由若干网元(Netword Element)构成,每个网元包括一个或多 ...

  5. AnyCAD三维控件(转)

    在WinForm中可以方便的集成AnyCAD.Net三维控件,只需要以下几部即可完成. 一.添加DLL程序集 AnyCAD.Foundation.Net.dll AnyCAD.Presentation ...

  6. .Net MVC 下载网站的文件

    目录 前言 C#文件的下载 ajax 返回文件路径,使用window.open打开 前言 上传文件我使用的是Bootstrap的插件FileInput,这个抽时间看看写个博客 现在下载我遇到坑了,而这 ...

  7. LODOP带空格和不带空格的字体对齐

    有时候需要用到字体上下对齐,有些需要的文字较多,较少的文字需要加部分空格才能向上面的文字对齐.本文实际测试了一下字体对齐需要的空格.代码是在editplus里写的,该编辑软件里的字体首选项设置的是Co ...

  8. 内存运行PE文件

    内存中运行文件 拿exe并在HxD或010中打开 - cntrl+a copy as C 粘贴到encrypt.cpp 编译并运行encrypt.cpp - 创建shellcode.txt 从shel ...

  9. Charles 抓包配置

    本文参考:charles 抓包配置 proxy setting (代理设置) 设置的主界面如下: 动态端口 启用动态端口选项来监听动态端口,每次查询启动时选择.这样可以避免与计算机上可能运行的其他网络 ...

  10. 【HTML5校企公益课】第二天

    1.上午讲昨天的作业. <!DOCTYPE html> <html> <head> <meta charset="UTF-8"> & ...