2. 程式人生 > >（FI）生產入庫產值情況表

（FI）生產入庫產值情況表

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

（FI）生產入庫產值情況表

REPORT ZFIR091.

*&---------------------------------------------------------------------**& 包含               ZFIR091_TOP*&---------------------------------------------------------------------*TABLES:MSEG,BKPF.TYPE-POOLS:SLIS."定義ALV輸出所需變數DATA: S_LAYOUT       TYPE SLIS_LAYOUT_ALV

,      GT_FIELDCAT    TYPE SLIS_T_FIELDCAT_ALV.DATA: LV_SCRTEXTU1   TYPE SCRTEXT_L.DATA: LV_SCRTEXTU2   TYPE SCRTEXT_L.DATA: LV_SCRTEXTU3   TYPE SCRTEXT_L.DATA: LV_SCRTEXTU4   TYPE SCRTEXT_L.DATA: LV_SCRTEXTU5   TYPE SCRTEXT_L.DATA: LV_SCRTEXTU6   TYPE SCRTEXT_L.DATA: LV_SCRTEXTU7   TYPE SCRTEXT_L.DATA
: LV_SCRTEXTU8   TYPE SCRTEXT_L.DATA: LV_SCRTEXTU9   TYPE SCRTEXT_L.DATA: LV_SCRTEXTU10  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU11  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU12  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU13  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU14  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU15  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU16  
TYPE SCRTEXT_L.DATA: LV_SCRTEXTU17  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU18  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU19  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU20  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU21  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU22  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU23  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU24  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU25  TYPE SCRTEXT_L.DATA: LV_SCRTEXTU26  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD1   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD2   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD3   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD4   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD5   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD6   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD7   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD8   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD9   TYPE SCRTEXT_L.DATA: LV_SCRTEXTD10  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD11  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD12  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD13  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD14  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD15  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD16  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD17  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD18  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD19  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD20  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD21  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD22  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD23  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD24  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD25  TYPE SCRTEXT_L.DATA: LV_SCRTEXTD26  TYPE SCRTEXT_L.DATA: LV_BUDAT       TYPE BUDAT.DATA: LV_BUDAU       TYPE BUDAT.DATA: LV_BUDAF       TYPE BUDAT.DATA: P_GJAHU        TYPE GJAHR.DATA: P_BUKRS        TYPE BUKRS.DATA: P_VKORG        TYPE VKORG.DATA: P_WAERS        TYPE WAERS.TYPES: BEGIN OF GTS_DATA,        MENGE        TYPE  MSEG-MENGE,       "產量        WERKS        TYPE  MSEG-WERKS,       "工廠        NAME2        TYPE  T001W-NAME2,      "工廠描述        BUDAT_MKPF   TYPE  MSEG-BUDAT_MKPF,  "過賬日期        BWART        TYPE  MSEG-BWART,       "移動型別        KZBEW        TYPE  MSEG-KZBEW,       "移動標識        MATNR        TYPE  MSEG-MATNR,       "物料        BUKRS        TYPE  T001K-BUKRS,      "公司程式碼        VKORG        TYPE  TVKO-VKORG,       "銷售組織        WAERS        TYPE  T001-WAERS,       "公司程式碼取本幣        PRODH        TYPE  MVKE-PRODH,       "產品層次        VTEXT1       TYPE  T179T-VTEXT,      "大類        VTEXT2       TYPE  T179T-VTEXT,      "中類        VTEXT3       TYPE  T179T-VTEXT,      "小類        KNUMH        TYPE  A035-KNUMH,       "條件記錄編號        DATAB        TYPE  A035-DATAB,       "生效期        KBETR        TYPE  KONP-KBETR,       "條件金額        KBETRD       TYPE  KONP-KBETR,       "單價（含稅）        KBETRZ       TYPE  KONP-KBETR,       "總產值（含稅）        KONWA        TYPE  KONP-KONWA,       "條件單位（貨幣或百分比）        KPEIN        TYPE  KONP-KPEIN,       "條件定價單位        KUMZA        TYPE  KONP-KUMZA,       "轉換分子        KUMNE        TYPE  KONP-KUMNE,       "轉換分母        EXCH_RATE    TYPE  BAPI1093_0,       "匯率         RETURN       TYPE  BAPIRET1,         "報錯        MENGE1       TYPE  MSEG-MENGE,       "產量        MENGE2       TYPE  MSEG-MENGE,       "產量        MENGE3       TYPE  MSEG-MENGE,       "產量        MENGE4       TYPE  MSEG-MENGE,       "產量        MENGE5       TYPE  MSEG-MENGE,       "產量        MENGE6       TYPE  MSEG-MENGE,       "產量        MENGE7       TYPE  MSEG-MENGE,       "產量        MENGE8       TYPE  MSEG-MENGE,       "產量        MENGE9       TYPE  MSEG-MENGE,       "產量        MENGE10      TYPE  MSEG-MENGE,       "產量        MENGE11      TYPE  MSEG-MENGE,       "產量        MENGE12      TYPE  MSEG-MENGE,       "產量        MENGE13      TYPE  MSEG-MENGE,       "產量        KBETRZ1      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ2      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ3      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ4      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ5      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ6      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ7      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ8      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ9      TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ10     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ11     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ12     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ13     TYPE  KONP-KBETR,       "產值（含稅）        MENGE14      TYPE  MSEG-MENGE,       "產量        MENGE15      TYPE  MSEG-MENGE,       "產量        MENGE16      TYPE  MSEG-MENGE,       "產量        MENGE17      TYPE  MSEG-MENGE,       "產量        MENGE18      TYPE  MSEG-MENGE,       "產量        MENGE19      TYPE  MSEG-MENGE,       "產量        MENGE20      TYPE  MSEG-MENGE,       "產量        MENGE21      TYPE  MSEG-MENGE,       "產量        MENGE22      TYPE  MSEG-MENGE,       "產量        MENGE23      TYPE  MSEG-MENGE,       "產量        MENGE24      TYPE  MSEG-MENGE,       "產量        MENGE25      TYPE  MSEG-MENGE,       "產量        MENGE26      TYPE  MSEG-MENGE,       "產量        KBETRZ14     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ15     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ16     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ17     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ18     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ19     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ20     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ21     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ22     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ23     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ24     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ25     TYPE  KONP-KBETR,       "產值（含稅）        KBETRZ26     TYPE  KONP-KBETR,       "產值（含稅）        END OF GTS_DATA.DATA: GT_DATA TYPE TABLE OF GTS_DATA WITH HEADER LINE.DATA: GT_ALV  TYPE TABLE OF GTS_DATA WITH HEADER LINE.SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.PARAMETERS:     P_WERKS  LIKE MSEG-WERKS OBLIGATORY .   "工廠PARAMETERS:     P_GJAHR  LIKE BKPF-GJAHR OBLIGATORY .   "年度PARAMETERS:     P_MONAT  LIKE BKPF-MONAT OBLIGATORY .   "期間SELECTION-SCREEN END OF BLOCK B1.

*&---------------------------------------------------------------------**& 包含               ZSDR013A_FOM*&---------------------------------------------------------------------**&---------------------------------------------------------------------**& 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 .*取所選上一年度的第一天  P_GJAHU  = P_GJAHR - 1 .  LV_BUDAU = P_GJAHU && '01' && '01' .*取所選期間的最後一天  LV_BUDAT = P_GJAHR && P_MONAT && '01' .   CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'     EXPORTING      I_DATE        = LV_BUDAT    IMPORTING      E_DATE        = LV_BUDAT       .   CLEAR:GT_DATA[].   SELECT    MSEG~MATNR     MSEG~MENGE     MSEG~BUDAT_MKPF     MSEG~BWART   INTO CORRESPONDING FIELDS OF TABLE GT_DATA[] FROM MSEG     WHERE WERKS = P_WERKS       AND BUDAT_MKPF >= LV_BUDAU       AND BUDAT_MKPF <= LV_BUDAT       AND BWART IN ( '101','102' )       AND KZBEW = 'F'       .   CLEAR P_BUKRS .   SELECT SINGLE BUKRS INTO P_BUKRS FROM T001K     WHERE BWKEY = P_WERKS     .   CLEAR P_VKORG .   SELECT SINGLE VKORG INTO P_VKORG FROM TVKO     WHERE BUKRS = P_BUKRS     .   CLEAR P_WAERS .   SELECT SINGLE WAERS INTO P_WAERS FROM T001     WHERE BUKRS = P_BUKRS     .   IF GT_DATA[] IS NOT INITIAL.     LOOP AT GT_DATA.       IF GT_DATA-BWART = '102'  .        GT_DATA-MENGE = GT_DATA-MENGE * -1 .       ENDIF.      GT_DATA-WERKS = P_WERKS .      GT_DATA-BUKRS = P_BUKRS .      GT_DATA-VKORG = P_VKORG .      GT_DATA-WAERS = P_WAERS .       SELECT SINGLE PRODH INTO GT_DATA-PRODH FROM MVKE         WHERE MATNR = GT_DATA-MATNR*          AND VKORG = GT_DATA-VKORG           .*取大類       SELECT SINGLE VTEXT INTO GT_DATA-VTEXT1 FROM T179T         WHERE PRODH = GT_DATA-PRODH(5)*          AND SPRAS = 1           .*取中類       SELECT SINGLE VTEXT INTO GT_DATA-VTEXT2 FROM T179T         WHERE PRODH = GT_DATA-PRODH+5(5)*          AND SPRAS = 1           .*取小類       SELECT SINGLE VTEXT INTO GT_DATA-VTEXT3 FROM T179T         WHERE PRODH = GT_DATA-PRODH+10(8)*          AND SPRAS = 1           .       SELECT SINGLE MAX( A305~DATAB )        A305~KNUMH         A305~DATAB         KONP~KBETR         KONP~KONWA         KONP~KPEIN         KONP~KUMZA         KONP~KUMNE         INTO CORRESPONDING FIELDS OF GT_DATA         FROM A305         INNER JOIN KONP ON 

相關推薦

（FI）生產入庫產值情況表

（FI）生產入庫產值情況表 REPORT ZFIR091. *&---------------------------------------------------------------------**& 包含               ZFIR

SpringCloud從入門到進階（四）——生產環境下Eureka的完全分布式部署

分開 -s rip linux mas 此外 實例名 leo 版本 內容 　　由於前兩節的內容我們知道，開啟了preferIpAddress後，Eureka的偽分布式部署會提示replica不可用。這一節我們講解如何在生產環境下部署完全分布式的Eureka集群，確保開啟了p

SpringCloud從入門到進階（四）——生產環境下Eureka的完全分散式部署

內容 　　由於前兩節的內容我們知道，開啟了preferIpAddress後，Eureka的偽分散式部署會提示replica不可用。這一節我們講解如何在生產環境下部署完全分散式的Eureka叢集，確保開啟了preferIpAddress後replica的可用性。 版本 　　IDE：IDEA 2017.2.

Asp.Net Core 程式部署到Linux（centos）生產環境（二）：docker部署

執行環境 照例，先亮環境；軟體的話我這裡假設你已經批准好了.net core 執行環境，未配置可以看我的這篇[linux（centos）搭建.net core 執行環境] 騰訊雲 centos：7.2 cpu:1核 2G記憶體 1M頻寬 docker:18.06.1-ce 安裝dock

Asp.Net Core 程序部署到Linux（centos）生產環境（二）：docker部署

大神 生產環境 blog for 服務器 路徑 結構 dot images 運行環境 照例，先亮環境；軟件的話我這裏假設你已經批準好了.net core 運行環境，未配置可以看我的這篇[linux（centos）搭建.net core 運行環境] 騰訊雲 centos

QMUI Android的學習——（1）引入庫配置主題，並實現沉浸式狀態列效果

最近進行安卓方面的學習，其中用到了騰訊開源的Android UI框架——QMUI Android，這是一個封裝完善的Android UI元件庫，可以給專案的開發提高了很高的工作效率，但是官方的API文件並不是很詳細，所以需要花費時間通過對官方給出的QMUIDEMO進行學習。 這是官方網站：htt

機器學習 第一章 Python複習（9）資料入庫 pymysql

1 pymysql 參考文件 SQL工具 1.1 安裝 $ (env) python3 -m pip install PyMySQL 1.2基本使用 import pymysql 1.2.1 Connection 物件 connection = pymysq

Spring Boot 教程（五）-- 生產環境運維支援

本篇部落格是看了別人的部落格然後根據自己的理解整理了出來的筆記，發出來大家交流學習，如果有不足的地方請大家指正，大家也可以直接去源部落格那裡看，源部落格寫的真的很好 。 一、簡介 1.問題提出： 1> 當應用部署到生產環境時，需要各種運維相關的功能

Django學習之路（七）生產環境中的使用

基本思路 1，方案：Nginx+uwsgi 這個方案的大體思路就是：nginx作為伺服器最前端，負責接收client的所有請求，統一管理。 靜態請求由Nginx自己處理，非動態請求通過uwsgi傳遞給Django，由Django來進行處理，從而完成一次web請求。 2，通訊請求

超級賬本（hyperledger）生產多節點部署

環境準備 * 安裝docker * 安裝docker-compose * 安裝mysql * 安裝node * 安裝dnsmasq 架構設計 四臺伺服器 docker0 ca1 couchdb0 zk0 kafka0 peer0-

Zabbix監控平臺（三）生產環境案例

Zabbix監控平臺（三）生產環境案例 　　一，Zabbix生產環境監測案例概述 1.1 專案規劃 1.2 SNMP監控流程 1.3 IPMI 1.4 JMX（使用Zabbix Java Gateway代理

（轉）生產消費者模型

在平時的程式設計中，經常遇到一個執行緒要產生資料，而另一個執行緒要處理產生出來的資料，這其實就是生產者和消費者的關係。生產者在產生資料後可以直接呼叫消費者處理資料；也可以把資料放在一個緩衝區中，讓消費者從緩衝區中取出資料處理，兩種方式從呼叫方式上來說，第一種可是說是同步的，即生產者在生產出資料後要等待消費者消

微信小程式-人臉識別（1）照片入庫

現在我們的科技是越來越發達了，我們現在有的手機有一個功能就是刷臉登入，那這是什麼原理呢？那就是人臉識別。首先你要把你的照片（包括整張人臉）傳給伺服器，他將你的照片傳入到資料庫當中。在你要登入的時候，將你刷臉是的照片與傳入伺服器資料庫裡面的照片進行對比，從而實現刷臉登入。下面是

Java併發（八）生產消費問題&虛假喚醒

描述 生產消費問題在java多執行緒的學習中是經常遇到的問題 ，多個執行緒共享通一個資源的時候會出現各種多執行緒中經常出現的各種問題。 例項說明 三個類：售貨員Clerk，工廠Factory，消費者Consumer Factory和Consumer共享C

spring boot（六） 加入庫連線池（alibaba druid 資料）及分頁外掛

前言 上一遍只是簡單的說明了怎麼加入Mybatis，但這遠遠還是不夠，我們還需要加入資料庫連池來幫助我們來管理資料庫連線。 ##1、加spring boot druid 依賴 <dependency> <groupId>com.alib

python從零開始寫爬蟲（5）-- 資料入庫

寫好的爬蟲，現在就讓他跑起來，把資料load到資料庫 具體操作： 1.安裝python 連結mysql的庫:pip install PyMySql 2.新建資料庫及表： DROP TABLE IF

Java提高——多執行緒（五）生產消費者問題

生產者/消費者問題是個典型的多執行緒問題，類似於hello world對於一門程式語言而言，涉及的物件包括“生產者”、“消費者”、“倉庫”和“產品”。該模型需要注意以下幾點：1、生產者只有在倉庫未滿的時候生產，倉滿則停止生產。2、消費者只有在倉庫有產品的情況下才能消費，空倉則

Kubernetes（k8s）生產級實踐指南 從部署到核心應用

gin 發展 新版本 第2章 web 學習 ins 多層 jenkin 第1章 課程簡介【學前須知】本章對這門課程進行說明，包括：課程整體設計思路、課程使用的技術介紹、課程的學習規劃、高效學習的方式方法等。 第2章 kubernetes快速入門【k8s必知必會】本章中將從

百億資料入庫elasticsearch生產實踐（二）

一、前言    前情回顧，hive中有三個具有關聯關係的表，依次是一對多的關係，當前歷史資料總量在500億左右，每日增量依次是百萬、千萬、億級的體量。其中，這500億資料只是一個領域，還有另一個塊更大領域的資料第三層日增量在10～25億之間，這塊還沒來得及去啃。這一塊資料，需

ELK部署生產實踐部署（1）

elasticsearch elk elkstack ### 日誌采集前規範解決事項：1、開發人員不能登錄線上服務器查看詳細日誌。2、各個系統都有日誌，日誌數據分散難以查找。3、日誌數據量大、查詢速度慢4、日誌數據大量延遲5、服務器時間不同步，導致日期錯誤### 解決問題 1. 方便快速查看各種日