2. 程式人生 > >FI—關聯方交易查詢表（開發筆記）

FI—關聯方交易查詢表（開發筆記）

阿新 • • 發佈：2018-12-21

*&---------------------------------------------------------------------**& Report ZFIR093*&---------------------------------------------------------------------**& Author              :  NathanSun*& Create Date         :  2018-11-06*& Program Type        :  Report*& Description         :  

關聯方交易查詢表-三單*&---------------------------------------------------------------------*REPORT ZFIR096.*&---------------------------------------------------------------------**& 包含               ZFIR092_TOP*&---------------------------------------------------------------------*TABLES:VBAP,MSEG
,BKPF,TVKO.TYPE-POOLS:SLIS."定義ALV輸出所需變數DATA: S_LAYOUT       TYPE SLIS_LAYOUT_ALV,      GT_FIELDCAT    TYPE SLIS_T_FIELDCAT_ALV.TYPES: BEGIN OF GTS_DATA,*SO2        VLFAG             TYPE  C,                      "標記欄位        VKORG_SO2         TYPE  TVKO-VKORG,             "銷售組織        VTEXT_SO2         
TYPE  TVKOT-VTEXT,            "銷售組織描述        KUNNR_SO2         TYPE  VBAK-KUNNR,             "SO2付款方        NAME1_SO2         TYPE  KNA1-NAME1,             "付款方名稱        MATNR_SO2         TYPE  VBAP-MATNR,             "物料號        ARKTX_SO2         TYPE  VBAP-ARKTX,             "物料號描述        VBELN_SO2         TYPE  VBAP-VBELN,             "SO2銷售訂單        POSNR_SO2         TYPE  VBAP-POSNR,             "SO2行專案號        KLMENG_SO2        TYPE  VBAP-KLMENG,            "SO2訂單數量        NETPR_SO2         TYPE  VBAP-NETPR,             "SO2銷售單價        MEINS_SO2         TYPE  VBAP-MEINS,             "基本計量單位        VBELN_IM_SO2      TYPE  MSEG-VBELN_IM,          "SO2交貨單        VBELP_IM_SO2      TYPE  MSEG-VBELP_IM,          "SO2行專案        BUDAT_MKPF_SO2    TYPE  MSEG-BUDAT_MKPF,        "SO2交貨日期        MENDQ_DN_SO2      TYPE  MSEG-MENGE,             "SO2交貨單當期交貨數        NETDQ_SO2         TYPE  VBAP-NETPR,             "SO2交貨單當期銷售金額        MENLJ_DN_SO2      TYPE  MSEG-MENGE,             "SO2交貨單累計數量        NETLJ_SO2         TYPE  VBAP-NETPR,             "SO2交貨單累計金額        FKDAT_SO2         TYPE  VBRK-FKDAT,             "SO2開票日期        MENDQ_VF_SO2      TYPE  VBRP-FKLMG,             "SO2當期開票數量        DMBDQ_SO2         TYPE  VBRP-NETWR,             "SO2當期開票金額-未稅        MENLJ_VF_SO2      TYPE  VBRP-FKLMG,             "SO2累計開票數量        DMBLJ_SO2         TYPE  VBRP-NETWR,             "SO2累計開票金額-未稅 SHKZG        MBLNR_SO2         TYPE  MSEG-MBLNR,             "物料憑證編號        MJAHR_SO2         TYPE  MSEG-MJAHR,             "物料憑證年度        ZEILE_SO2         TYPE  MSEG-ZEILE,             "物料憑證中的專案        SHKZG_SO2         TYPE  MSEG-SHKZG,             "借方/貸方標識        VBELN_VF_SO2      TYPE  VBRP-VBELN,             "開票憑證        POSNR_VF_SO2      TYPE  VBRP-POSNR,             "開票專案        SHKZG_VF_SO2      TYPE  VBRP-SHKZG,             "退貨專案        UMVKN_VF_SO2      TYPE  VBRP-UMVKN,             "銷售數量轉換為 SKU 的值（除數）        UMVKZ_VF_SO2      TYPE  VBRP-UMVKZ,             "銷售數量轉換成SKU的分子(因子)        KPEIN_SO2         TYPE  VBAP-KPEIN,             "SO2條件定價單位        UMZIN_SO2         TYPE  VBAP-UMZIN,             "用於將銷售單位轉換成基本單位的因子（目標數量）        UMZIZ_SO2         TYPE  VBAP-UMZIZ,             "用於將銷售單位轉換成基本單位的因子（目標數量）*PO        EBELN_PO          TYPE  ZPO_CREATE_HIS-EBELN,   "採購憑證        EBELP_PO          TYPE  ZPO_CREATE_HIS-EBELP,   "採購憑證的專案編號        MENGE_PO          TYPE  EKPO-MENGE,             "PO數量        UMREZ_PO          TYPE  EKPO-UMREZ,             "有關訂貨價格單位轉換為基本單位的分子        UMREN_PO          TYPE  EKPO-UMREN,             "訂單單位到基本單位轉換的分母        MENDQ_PO          TYPE  MSEG-MENGE,             "P0當期收貨數量        DMBDQ_PO          TYPE  MSEG-DMBTR,             "P0當期收貨金額        MENLJ_PO          TYPE  MSEG-MENGE,             "PO累計收貨數量        DMBLJ_PO          TYPE  MSEG-DMBTR,             "P0累計收貨金額        SHKZG_PO          TYPE  MSEG-SHKZG,             "借方/貸方標識        BUDAT_MKPF_PO     TYPE  MSEG-BUDAT_MKPF,        "PO過帳日期*SO1        VBELN_SO1         TYPE  VBAP-VBELN,             "SO1銷售訂單        POSNR_SO1         TYPE  VBAP-POSNR,             "SO1行專案        KUNNR_SO1         TYPE  VBAK-KUNNR,             "SO1客戶        NAME1_SO1         TYPE  KNA1-NAME1,             "客戶名稱        KLMENG_SO1        TYPE  VBAP-KLMENG,            "SO1訂單數量        NETPR_SO1         TYPE  VBAP-NETPR,             "SO1銷售單價        MENDQ_SO1         TYPE  MSEG-MENGE,             "SO1DN當期數量        NETDQ_SO1         TYPE  VBAP-NETPR,             "SO1DN當期銷售金額        MENLJ_SO1         TYPE  MSEG-MENGE,             "SO1DN累計數量        NETLJ_SO1         TYPE  VBAP-NETPR,             "SO1DN累計金額        MENDQ_VF_SO1      TYPE  VBRP-FKLMG,             "SO1當期開票數量        DMBDQ_VF_SO1      TYPE  VBRP-NETWR,             "SO1當期開票金額        MENLJ_VF_SO1      TYPE  VBRP-FKLMG,             "SO1累計開票數量        DMBLJ_VF_SO1      TYPE  VBRP-NETWR,             "SO1累計開票金額        MBLNR_SO1         TYPE  MSEG-MBLNR,             "物料憑證編號        MJAHR_SO1         TYPE  MSEG-MJAHR,             "物料憑證年度        ZEILE_SO1         TYPE  MSEG-ZEILE,             "物料憑證中的專案        VBELN_IM_SO1      TYPE  MSEG-VBELN_IM,          "SO1交貨單        VBELP_IM_SO1      TYPE  MSEG-VBELP_IM,          "SO1行專案        BUDAT_DN_SO1      TYPE  MSEG-BUDAT_MKPF,        "SO1DN日期        SHKZG_SO1         TYPE  MSEG-SHKZG,             "借方/貸方標識        VBELN_VF_SO1      TYPE  VBRP-VBELN,             "開票憑證        POSNR_VF_SO1      TYPE  VBRP-POSNR,             "開票專案        SHKZG_VF_SO1      TYPE  VBRP-SHKZG,             "退貨專案        UMVKN_VF_SO1      TYPE  VBRP-UMVKN,             "銷售數量轉換為 SKU 的值（除數）        UMVKZ_VF_SO1      TYPE  VBRP-UMVKZ,             "銷售數量轉換成SKU的分子(因子)        KPEIN_SO1         TYPE  VBAP-KPEIN,             "SO1條件定價單位        UMZIN_SO1         TYPE  VBAP-UMZIN,             "用於將銷售單位轉換成基本單位的因子（目標數量）        UMZIZ_SO1         TYPE  VBAP-UMZIZ,             "用於將銷售單位轉換成基本單位的因子（目標數量）        FKDAT_SO1         TYPE  VBRK-FKDAT,             "SO1開票日期       END OF GTS_DATA.DATA: GT_DATA     TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_DATA_DN  TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_DATA_VF  TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_DATA_SO1 TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_DATA_CO1 TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_DATA_DN1 TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_DATA_VF1 TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_DATA_PO  TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_DATA_PC  TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GS_DATA     TYPE GTS_DATA .DATA: LV_BUDAT    TYPE BUDAT.DATA: LV_BUDAH    TYPE BUDAT.DATA: LV_BUDAL    TYPE BUDAT.DATA: LV_BUDAF    TYPE BUDAT.DATA: P_GJAHU     TYPE GJAHR.SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.SELECT-OPTIONS: S_VKORG  FOR  TVKO-VKORG  MODIF ID C1 OBLIGATORY.                     "公司程式碼PARAMETERS:     P_GJAHR  TYPE GJAHR  MODIF ID C1 OBLIGATORY .                         "會計年度SELECT-OPTIONS: S_MONAT  FOR  BKPF-MONAT  MODIF ID C1 OBLIGATORY NO-EXTENSION.        "期間SELECTION-SCREEN END OF BLOCK B1.

*&---------------------------------------------------------------------**& 包含               ZFIR092_FOM*&---------------------------------------------------------------------**&---------------------------------------------------------------------**& Form SCREEN_OUTPUT*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM SCREEN_OUTPUT .*  LOOP AT SCREEN.*    CASE SCREEN-GROUP1.*      WHEN 'M1'.*        SCREEN-INPUT = '0'.*    ENDCASE.*    MODIFY SCREEN.*  ENDLOOP.ENDFORM.*&---------------------------------------------------------------------**& Form SCREEN_SETTING*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM SCREEN_SETTING .* AUTHORITY-CHECK OBJECT 'M_MATE_WRK'*  ID 'WERKS' FIELD P_WERKS.*  IF SY-SUBRC <> 0.*    MESSAGE '您沒有工廠：'&& P_WERKS && '  的許可權！' TYPE 'E' .*  ENDIF.ENDFORM.*&---------------------------------------------------------------------**& Form FOM_GETDATA*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM FOM_GETDATA .   FIELD-SYMBOLS <FS> .   DATA: G_FIELD(40).   DATA: GT_TVKO TYPE TABLE OF TVKO WITH HEADER LINE.*取所選期間的上/下限  LV_BUDAL = P_GJAHR && S_MONAT-LOW && '01' .   IF S_MONAT-HIGH IS NOT INITIAL.    LV_BUDAH = P_GJAHR && S_MONAT-HIGH && '01' .   ELSE .    LV_BUDAH = P_GJAHR && S_MONAT-LOW && '01' .   ENDIF.   CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'     EXPORTING      I_DATE        = LV_BUDAH    IMPORTING      E_DATE        = LV_BUDAH       .*  SO1     CLEAR GT_DATA[].     SELECT         ZPO_CREATE_HIS~VBELN AS VBELN_SO1          ZPO_CREATE_HIS~POSNR AS POSNR_SO1          ZPO_CREATE_HIS~VBELN_NEW AS VBELN_SO2          ZPO_CREATE_HIS~POSNR AS POSNR_SO2          ZPO_CREATE_HIS~EBELN AS EBELN_PO          ZPO_CREATE_HIS~EBELP AS EBELP_PO          ZPO_CREATE_HIS~VKORG_NEW AS VKORG_SO2          VBAK~KUNNR  AS KUNNR_SO2          VBAP~MATNR  AS MATNR_SO2          VBAP~ARKTX  AS ARKTX_SO2          VBAP~KLMENG AS KLMENG_SO2          VBAP~NETPR  AS NETPR_SO2          VBAP~MEINS  AS MEINS_SO2          LIPS~VBELN  AS VBELN_IM_SO2          LIPS~POSNR  AS VBELP_IM_SO2     INTO CORRESPONDING FIELDS OF TABLE GT_DATA[]       FROM ZPO_CREATE_HIS       INNER JOIN VBAP ON ZPO_CREATE_HIS~VBELN_NEW = VBAP~VBELN AND ZPO_CREATE_HIS~POSNR = VBAP~POSNR       INNER JOIN VBAK ON VBAK~VBELN = VBAP~VBELN       LEFT  JOIN LIPS ON LIPS~VGBEL = VBAP~VBELN AND LIPS~VGPOS = VBAP~POSNR       WHERE ZPO_CREATE_HIS~VKORG_NEW IN S_VKORG*        AND ZPO_CREATE_HIS~VBELN_NEW = '0065000008'         .     SORT GT_DATA[] BY VBELN_SO2 POSNR_SO2 VBELN_IM_SO2 VBELP_IM_SO2 .     DELETE ADJACENT DUPLICATES FROM GT_DATA[] COMPARING VBELN_SO2 POSNR_SO2 VBELN_IM_SO2 VBELP_IM_SO2.   IF GT_DATA[] IS NOT INITIAL .     CLEAR GT_DATA_DN[] .     SELECT         MSEG~VBELN_IM  AS VBELN_IM_SO2          MSEG~VBELP_IM  AS VBELP_IM_SO2          MSEG~MBLNR  AS MBLNR_SO2          MSEG~MJAHR  AS MJAHR_SO2          MSEG~ZEILE  AS ZEILE_SO2          MSEG~BUDAT_MKPF  AS BUDAT_MKPF_SO2          MSEG~MENGE  AS MENLJ_DN_SO2          MSEG~SHKZG  AS SHKZG_SO2     INTO CORRESPONDING FIELDS OF TABLE GT_DATA_DN[]       FROM MSEG       FOR ALL ENTRIES IN GT_DATA[]       WHERE MSEG~VBELN_IM = GT_DATA-VBELN_IM_SO2         AND MSEG~VBELP_IM = GT_DATA-VBELP_IM_SO2         AND MSEG~VBELN_IM <> ''         AND MSEG~VBELP_IM <> ''         AND MSEG~BUDAT_MKPF <= LV_BUDAH         .     IF GT_DATA_DN[] IS NOT INITIAL.       CLEAR GT_DATA_VF[] .       SELECT           VBRK~FKDAT  AS FKDAT_SO2            VBRP~VBELN  AS VBELN_VF_SO2            VBRP~POSNR  AS POSNR_VF_SO2            VBRP~VGBEL  AS VBELN_IM_SO2            VBRP~VGPOS  AS VBELP_IM_SO2            VBRP~FKLMG  AS MENLJ_VF_SO2            VBRP~NETWR  AS DMBLJ_SO2            VBRP~SHKZG  AS SHKZG_VF_SO2            VBRP~UMVKN  AS UMVKN_VF_SO2            VBRP~UMVKZ  AS UMVKZ_VF_SO2       INTO CORRESPONDING FIELDS OF TABLE GT_DATA_VF[]         FROM VBRP         INNER JOIN VBRK ON VBRK~VBELN = VBRP~VBELN         FOR ALL ENTRIES IN GT_DATA_DN[]         WHERE VBRP~VGBEL  = GT_DATA_DN-VBELN_IM_SO2           AND VBRP~VGPOS  = GT_DATA_DN-VBELP_IM_SO2           AND VBRK~FKDAT <= LV_BUDAH           .     ENDIF.*PO     CLEAR GT_DATA_PO[] .     SELECT        EKPO~EBELN AS EBELN_PO         EKPO~EBELP AS EBELP_PO         EKPO~

相關推薦

FI—關聯方交易查詢表（開發筆記）

*&---------------------------------------------------------------------**& Report ZFIR093*&-----------------------------------

FI-銷項稅調整程式（開發筆記）

*&---------------------------------------------------------------------**& Report ZFIR099*&-------------------------------------

FI-預收款（開發筆記）

*&---------------------------------------------------------------------**& Report ZFIR098*&-------------------------------------

FI-發出商品分類彙總毛利分析表（開發筆記）

*&---------------------------------------------------------------------**& Report YN_FIR090A*&--------------------------------

指尖上行--移動前端開發進階之路（讀書筆記）----1.1頁面佈局

chapter 1 移動頁面開發 頁面佈局 頁面除錯 常用庫和框架 1.1 頁面佈局 1.1.1 Vieport（視口，檢視視窗） 裝置畫素 物理畫素：螢幕解析度； 裝置獨立畫素：CSS畫素（eg:IPhone5 CSS畫素是320*568p

指尖上行--移動前端開發進階之路（讀書筆記）----2.1動畫形式

chapter 2 技術創意形式 動畫形式 移動裝置 Web API 詳解 WebVR 創意點 2.1 動畫形式 2.1.1 CSS3 CSS3 Cascading Style Sheets 層疊樣式表。 CSS3是CSS技術的一個升級版本，

指尖上行--移動前端開發進階之路（讀書筆記）----1.3常用庫和框架

chapter 1 移動頁面開發 頁面佈局 頁面除錯 常用庫和框架 1.3 常用庫和框架 1.3.1 jQuery Mobile jQuery Mobile是jQuery 框架的一個元件（而非jquery的移動版本）。這個框架已經很老了，本人

Gergovia的酒交易B805（移動紙牌）

alt int 直線 sys logs 線上 put div break 試題描述 直線上有 n 個等距的村莊，每個村莊要麽買酒，要麽賣酒。設第 i 個村莊對酒的需求為 ai (-1000<=ai<=1000)，其中

MYSQL和JAVA（課堂筆記）

管理工具 database 密碼 sta tint clas sel lec ace MYSQL　　數據庫管理工具 JAVA 　　 編程語言 數據庫驅動（JAVA和MYSQL對接方式） 到官網上下載驅動　　　　加載驅動 import java.sql.Connectio

fireflyLogin網絡工具設計模式——類工廠（學習筆記）

nbsp dict var class requests result ini 業務層 指向 一、RequestKeyID(業務id) 二、FireflyRequestHelper(對外提供初始化接口，提供網絡回調代理方法，供FireflySafeLoginHelper使用

（java筆記）java數據類型

java 數據類型基本數據類型整形byte 1B 8位 -128到127short 2B 16位 -2^15到2^15-1 int 4B 32位 -2^31到2^31-1 long 8B 64位 -2^63到2^63-1 2. 浮點類型 float 4B 32位

CSS 權威指南 CSS實戰手冊 第四版（閱讀筆記）

you 逗號 visit content 下載 傳播 適用於 給定 輸入 前言： 　　對於程序員,學習是無止境的,知識淘換非常快,能夠快速穩固掌握一門新技術,是一個程序員應該具備的素質.這裏將分析本人一點點不成熟的心得. 　　了解一門語言,了解它的概念非常重要,但是一些優秀

網頁排版中的浮動和定位（學習筆記）

mage hidden alt images blog clear ul li -a www CSS中的浮動和定位 在了解CSS中的浮動和定位之前有必要先了解清楚標準流和脫離標準流的特性 雖然浮動和定位很重要，但是在以後的網頁寫作中，還是盡量少用，最好別亂用，不然後

數字和表達式（學習筆記）

解釋器 結果 2.0 1.0 解決 imp 整數 oat 小數 1、交互式Python解釋器可以當做非常強大的計算器使用，試試以下的例子： 　　>>> 2 + 2 　　4 　　或者 　　>>> 53762 + 235253 　　28892

java中的try-catch-finnal異常處理（學習筆記）

不堪 java sha highlight 抽取 最終 throwable 關鍵字 學習筆記 一、異常概述 異常：Exception，是在運行發生的不正常情況。 原始異常處理： if(條件) { 　　處理辦法1　　處理辦法2　　處理辦法3} if(條件) { 　　處理辦法

1. PostgreSQL-安裝和基本配置（學習筆記）

安裝和配置 日常使用 buffer java、 note 安裝完成 for ora har 1 PostgreSQL簡介1.1 概述??PostgreSQL數據庫是目前功能最強大的開源數據庫，支持豐富的數據類型（如JSON和JSONB類型，數組類型）和自定義類型。而且它提供

python控制結構、叠代器和生成器（個人筆記）

if while參考：https://docs.python.org/2.7/reference/compound_stmts.html#whilehttps://www.cnblogs.com/lclq/p/5586198.html （python的運算與表達式）https://www.zhihu.com/

事務的傳播行為（轉載筆記）

事物 dao rop mil HR back style AR 使用 我們都知道事務的概念，那麽事務的傳播特性是什麽呢？(此處著重介紹傳播特性的概念，關於傳播特性的相關配置就不介紹了，可以查看spring的官方文檔) 在我們用SSH開發項目的時候，我們一般都是將事務設置在S

彈性盒子的梳理 （個人筆記）

只有一個 數字 tween nts strong www 進行 前行 倒序 1.誰是彈性盒，誰寫（一般是父元素）Display:box 如果不兼容寫：display:-moz-box Display:-webkit-box; Display:-o-box;

spring boot系統學習（知識點筆記）

調試接口 .com tco map aid 結果 ota http 而且 一、http的註解配置 　　1、@SpringBootAplication=@SpringBootConfiguration（其實就是個@Configuration）+@EnableAutoConfi