ABAP FB05 清账函数:POSTING_INTERFACE_CLEARING

清账相关事物代码: FB05

相关函数:POSTING_INTERFACE_START
                  POSTING_INTERFACE_CLEARING

DATA: LT_BLNTAB  TYPE STANDARD TABLE OF BLNTAB.DATA: LS_BLNTAB  TYPE BLNTAB.DATA: LT_FTCLEAR TYPE STANDARD TABLE OF FTCLEAR.DATA: LS_FTCLEAR TYPE FTCLEAR.DATA: LT_FTPOST  TYPE STANDARD TABLE OF FTPOST.DATA: LS_FTPOST  TYPE FTPOST.DATA: LT_FTTAX   TYPE STANDARD TABLE OF FTTAX.DATA: LS_FTTAX   TYPE FTTAX.DATA: LT_GROUP   TYPE STANDARD TABLE OF TY_DATA.DATA: LS_GROUP   TYPE TY_DATA.DATA: LV_MODE    TYPE CHAR01.DATA: LV_BLART   TYPE BLART.DATA: LV_SUBRC   TYPE SY-SUBRC .DATA: LV_MESSAGE TYPE STRING.DEFINE POPULATE_FTPOST.CLEAR LS_FTPOST.LS_FTPOST-STYPE = &1.LS_FTPOST-COUNT = &2.LS_FTPOST-FNAM  = &3.LS_FTPOST-FVAL  = &4.APPEND LS_FTPOST TO LT_FTPOST.END-OF-DEFINITION.SORT LT_GROUP BY GROUP.DELETE ADJACENT DUPLICATES FROM LT_GROUP COMPARING GROUP.LOOP AT LT_GROUP INTO LS_GROUP.READ TABLE GT_DATA INTO GS_DATAWITH KEY  GROUP  = LS_GROUP-GROUPICON   = ICON_RED_LIGHT.IF SY-SUBRC = 0.CONTINUE.ENDIF.CLEAR:LT_BLNTAB,LT_FTCLEAR,LT_FTPOST,LT_FTTAX,LV_MESSAGE.POPULATE_FTPOST:   'K' 1 'BKPF-BUKRS' LS_GROUP-BUKRS, "Company code'K' 1 'BKPF-BLART' 'DR',               "凭证类型'K' 1 'BKPF-BLDAT' LS_GROUP-BUDAT,     "凭证中的凭证日期'K' 1 'BKPF-BUDAT' LS_GROUP-BUDAT,     "凭证中的过帐日期'K' 1 'BKPF-WAERS' LS_GROUP-WAERS.     "货币码LOOP AT GT_DATA INTO GS_DATA WHERE BOX IS NOT INITIAL AND GROUP  = LS_GROUP-GROUP.CLEAR LS_FTCLEAR.LS_FTCLEAR-AGKOA = 'D'.LS_FTCLEAR-AGUMS = 'D'.LS_FTCLEAR-AGKON = GS_DATA-KUNNR.LS_FTCLEAR-AGBUK = GS_DATA-BUKRS.LS_FTCLEAR-XNOPS = 'X'.LS_FTCLEAR-SELFD = 'SGTXT'.LS_FTCLEAR-SELVON = GS_DATA-SGTXT.APPEND LS_FTCLEAR TO LT_FTCLEAR.ENDLOOP.CALL FUNCTION 'POSTING_INTERFACE_START'EXPORTINGI_CLIENT   = SY-MANDTI_FUNCTION = 'C'I_MODE     = LV_MODEI_KEEP     = 'X'I_UPDATE   = 'S'I_USER     = SY-UNAME."AUSGZAHL	付款
"EINGZAHL	收款
"GUTSCHRI	贷方凭证
"UMBUCHNG	转帐并清帐CALL FUNCTION 'POSTING_INTERFACE_CLEARING'EXPORTINGI_AUGLV                    = 'EINGZAHL'   "具体选择参见上述参数说明I_TCODE                    = 'FB05'I_SGFUNCT                  = 'C'IMPORTINGE_MSGID                    = SY-MSGIDE_MSGNO                    = SY-MSGNOE_MSGTY                    = SY-MSGTYE_MSGV1                    = SY-MSGV1E_MSGV2                    = SY-MSGV2E_MSGV3                    = SY-MSGV3E_MSGV4                    = SY-MSGV4E_SUBRC                    = LV_SUBRCTABLEST_BLNTAB                   = LT_BLNTABT_FTCLEAR                  = LT_FTCLEART_FTPOST                   = LT_FTPOSTT_FTTAX                    = LT_FTTAXEXCEPTIONSCLEARING_PROCEDURE_INVALID = 1CLEARING_PROCEDURE_MISSING = 2TABLE_T041A_EMPTY          = 3TRANSACTION_CODE_INVALID   = 4AMOUNT_FORMAT_ERROR        = 5TOO_MANY_LINE_ITEMS        = 6COMPANY_CODE_INVALID       = 7SCREEN_NOT_FOUND           = 8NO_AUTHORIZATION           = 9OTHERS                     = 10.IF SY-SUBRC <> 0 OR LT_BLNTAB IS INITIAL .
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.CALL FUNCTION 'MESSAGE_TEXT_BUILD'EXPORTINGMSGID               = SY-MSGIDMSGNR               = SY-MSGNOMSGV1               = SY-MSGV1MSGV2               = SY-MSGV2MSGV3               = SY-MSGV3MSGV4               = SY-MSGV4IMPORTINGMESSAGE_TEXT_OUTPUT = LV_MESSAGE.ENDIF.IF LT_BLNTAB IS NOT INITIAL AND LV_MESSAGE IS INITIAL .READ TABLE LT_BLNTAB INTO LS_BLNTAB INDEX 1.LOOP AT GT_DATA INTO GS_DATA WHERE BOX IS NOT INITIAL AND GROUP  = LS_GROUP-GROUP..GS_DATA-BELNR1 = LS_BLNTAB-BELNR.GS_DATA-ICON = ICON_GREEN_LIGHT.MODIFY GT_DATA FROM GS_DATA.ENDLOOP.ELSE.LOOP AT GT_DATA INTO GS_DATA WHERE BOX IS NOT INITIAL AND GROUP  = LS_GROUP-GROUP..GS_DATA-ICON = ICON_RED_LIGHT.GS_DATA-MSG  = LV_MESSAGE.MODIFY GT_DATA FROM GS_DATA.ENDLOOP.ENDIF.CALL FUNCTION 'POSTING_INTERFACE_END'EXPORTINGI_BDCIMMED              = 'X'EXCEPTIONSSESSION_NOT_PROCESSABLE = 1OTHERS                  = 2.ENDLOOP.

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/70076.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

华纳云:linux服务器查看端口的办法

在Linux服务器上查看端口的状态和监听情况&#xff0c;您可以使用一些命令。以下是几种常用的方法&#xff1a; netstat命令&#xff1a; 使用netstat命令可以查看服务器上的端口情况。要查看所有活动连接和监听端口&#xff0c;可以运行以下命令&#xff1a; netstat -tuln …

Vue + Element UI 前端篇(八):管理应用状态

使用 Vuex 管理应用状态 1. 引入背景 像先前我们是有导航菜单栏收缩和展开功能的&#xff0c;但是因为组件封装的原因&#xff0c;隐藏按钮在头部组件&#xff0c;而导航菜单在导航菜单组件&#xff0c;这样就涉及到了组件收缩状态的共享问题。收缩展开按钮触发收缩状态的修改…

postgresql 安装教程

postgresql 安装教程 本文以window 15版本为教程 文章目录 postgresql 安装教程1.下载地址2.以管理员身份运行3.选择安装路径&#xff0c;点击Next4.选择组件&#xff08;默认都勾选&#xff09;&#xff0c;点击Next5.选择数据存储路径&#xff0c;点击Next6.设置超级用户的…

指针和字符数组笔试题及其解析(第三组)

个人主页&#xff1a;Lei宝啊 愿所有美好如期而遇 第三组笔试题 char *p "abcdef";printf("%d\n", sizeof(p)); printf("%d\n", sizeof(p1)); printf("%d\n", sizeof(*p)); printf("%d\n", sizeof(p[0])); printf("%…

Android逆向学习(四)app修改smali函数跳过弹窗广告,等待广告,更新提醒

Android逆向学习&#xff08;四&#xff09;app修改smali函数跳过弹窗广告&#xff0c;等待广告&#xff0c;更新提醒 一、写在前面 这是吾爱破解课程的第三个练习&#xff0c;我在写这篇博客时遇到了vscode插件bug&#xff0c;已经想办法联系原作者了&#xff0c;希望能够尽…

Android WIFI工具类 特别兼容Android12

直接上代码&#xff1a; package com.realtop.commonutils.utils;import android.annotation.SuppressLint; import android.bluetooth.BluetoothDevice; import android.bluetooth.BluetoothManager; import android.bluetooth.BluetoothProfile; import android.content.Con…

Jmeter 三种提取方式 —— 关联实例

当请求之间有依赖关系&#xff0c;比如一个请求的入参是另一个请求返回的数据&#xff0c;这时候就需要用到关联处理 Jmeter中常用的关联方法&#xff1a; 正则表达式提取器、XPath提取器、JSON提取器​​​​​​ regex: (.*?)-(.*?)-(.*?)\n.: 匹配除换行符&#xff08;…

C# 获取Json对象中指定属性的值

在C#中获取JSON对象中指定属性的值&#xff0c;可以使用Newtonsoft.JSON库的JObject类 using Newtonsoft.Json.Linq; using System; public class Program { public static void Main(string[] args) { string json "{ Name: John, age: 30, City: New York }"; …

python实现对excel表中的某列数据进行排序

如下需要对webCms中的B列数据进行升序排序&#xff0c;且不能影响到其他列、工作表中的数据和格式。 import pandas as pd import openpyxl from openpyxl.utils.dataframe import dataframe_to_rows# 读取 Excel 文件 file_path 1.xlsx sheet_name webCms# 读取 Excel 文件并…

pc-签字画板vue-esign的使用

使用的是vue-esign组件 npm install vue-esign 首先下载组件在main.js中引入vue-esign&#xff0c;并且挂载 import { createApp } from vue; import App from ./App.vue; const app createApp(App);import vueEsign from vue-esign app.use(vueEsign ) 页面使用&#xff0…

mysql场景题:最近7天连续3天登陆用户,字段,id,date(已去重)

1.最近7天连续3天登陆用户&#xff0c;字段&#xff0c;id&#xff0c;date&#xff08;已去重&#xff09; 思路&#xff1a; lag对时间开窗&#xff08;注意时间得转换为时间戳&#xff08;int类型才可以添加后续条件&#xff09;&#xff0c;跳行为2&#xff08;连续3天&am…

uniapp移动端地图,点击气泡弹窗并实现精准定位

记录移动端地图map组件的使用 需求记录&#xff1a; 移动端地图部分需要展示两个定位点&#xff0c;上报点及人员定位点。通过右上角的两个按钮实现地图定位。点击对应定位气泡&#xff0c;弹出定位点的信息。 效果图如下&#xff1a; map在nvue中的使用。直接用nvue可以直接…

JavaScript闭包漏洞与修补措施

请先看下面一段代码 var obj (function () {var sonObj {a: 1,b: 2}return {get: function (v) {return sonObj[v]}}})()可以看出,这是一段很典型的js闭包代码,可以通过obj调用get方法传一个参数,如果传的是a就可以得到闭包内的对象sonObj.a var obj (function () {var sonO…

edge浏览器无法登录账号!Microsoft 帐户无法登录!

种种原因&#xff0c;将笔记本重置了&#xff0c;重新下载装了系统&#xff0c;但是麻烦也来了&#xff0c;Microsoft 帐户无法登录&#xff01;edge浏览器无法登录账号&#xff0c;之前的保存的密码&#xff0c;加星的书签页同步不过去&#xff0c;这不完犊子了&#xff01;干…

Redis7入门概述

✅作者简介&#xff1a;大家好&#xff0c;我是Leo&#xff0c;热爱Java后端开发者&#xff0c;一个想要与大家共同进步的男人&#x1f609;&#x1f609; &#x1f34e;个人主页&#xff1a;Leo的博客 &#x1f49e;当前专栏&#xff1a; Java从入门到精通 ✨特色专栏&#xf…

微信小程序引入地图

微信小程序引入地图 <map longitude"{{markers[0].longitude}}" scale"11" latitude"{{markers[0].latitude}}" markers"{{markers}}" style"width: 100%; height:81vh;"></map>1.可以直接在页面设置map标签显…

谈谈你的未来吧(励志成为CV算法工程师的第一天)

谈谈你的未来吧&#xff08;励志成为CV算法工程师的第一天&#xff09; 前言一、不知道该怎么选择的大一&#xff0c;大二二&#xff0c;好像知道未来路的大三三&#xff0c;谈谈博主我吧四&#xff0c;朝着一个方向前进吧 前言 仅以此篇记录我的学习经过&#xff0c;大家有什…

解决WebSocket通信:前端拿不到最后一条数据的问题

&#x1f337;&#x1f341; 博主猫头虎&#xff08;&#x1f405;&#x1f43e;&#xff09;带您 Go to New World✨&#x1f341; &#x1f984; 博客首页——&#x1f405;&#x1f43e;猫头虎的博客&#x1f390; &#x1f433; 《面试题大全专栏》 &#x1f995; 文章图文…

服务器上装conda

服务器从0搭建-【anaconda3cudacudnnconda环境创建修改conda源】_bashrc中的conda initialize和cuda_冲上云霄&#xff01;的博客-CSDN博客

C# 子类如何访问子类的方法(同一父类)

在继承关系中&#xff0c;子类可以通过创建另一个子类的对象来访问其方法。下面是一个示例&#xff0c;展示了子类如何访问另一个子类的方法&#xff1a; public class Animal {public virtual void Speak(){Console.WriteLine("我是动物。");} }public class Cat :…