自己OJT时的一本代码

这是中文环境下做的程序，复制过来，代码间的空格错开了，下面的OJT变成日文的了,到时候再贴出来。

文本消息

000复数选择
001仓库保
002管场所
003出库路径
004出库预定日
005个别选择
006出库凭证番号
007入出库预定
008I/F
009印刷
010打印设备
011预处理
012送货
013送货(无偿)
014紧急送货
015紧急送货(无偿)
016输出
017移送
018移管
019上海大金空调有限公司
020再印刷
021提货单
022经销店名称
023提货预定日
024经销店编号
025出库凭证
026经销店电话
027出库路径
028订单号
029运货车号
030交易者号
031品名代码
032管区
033数量
034机种类别
035机型管理
036提货仓库
037签名
038印刷时间
039第
040页
041共
042送货单
043送货地址
044仓库名称
045仓库
046移送移管的指令传票

*& -- -------------------------------------------------------------------*
*& 程序名    ：ZMMR10040_3_A140
*& 分类    ：物流ー出荷管理
*& 机能番号：MM - L012
*& 机能名称：货单输出
*& 作成者      ：
*& 作成日： 2005 / 07 / 18
*& 版本          ： 1.0
*& -- -------------------------------------------------------------------*
*&
*&
*& -- -------------------------------------------------------------------*
REPORT ZMMR10040_3_A140
       NO STANDARD PAGE HEADING
       MESSAGE - ID ZXX001.
* -- --------------------------------------------------------------------*
* -- ----数据表申明
TABLES: MSEG,                          "凭证段:物料
                  MKPF,                         "抬头：物料凭证
                   LIKP.                            "SD凭证:交货抬头数据

* -- -------------------------------------------------------------------*
* -- ----屏幕参数定义
SELECTION - SCREEN BEGIN OF BLOCK BL1.
* 复数选择
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN POSITION 3 .
    PARAMETERS  P_RDO1 RADIOBUTTON
                   GROUP GRP1
                   DEFAULT ' X '
                   USER - COMMAND RADI.
    SELECTION - SCREEN COMMENT 5 ( 8 ) TEXT - 000 .
  SELECTION - SCREEN END OF LINE.
* 仓库
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN COMMENT 10 ( 8 ) TEXT - 001 .
    SELECTION - SCREEN POSITION 23 .
    PARAMETERS PA_WERKS LIKE MSEG - WERKS .
  SELECTION - SCREEN END OF LINE.
* 保管场所
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN COMMENT 10 ( 8 ) TEXT - 002 .
    SELECTION - SCREEN POSITION 23 .
    PARAMETERS  PA_LGORT LIKE MSEG - LGORT .
  SELECTION - SCREEN END OF LINE.
* 出库路径
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN COMMENT 10 ( 8 ) TEXT - 003 .
    SELECTION - SCREEN POSITION 20 .
     SELECT - OPTIONS SE_VSBED FOR LIKP - VSBED.
  SELECTION - SCREEN END OF LINE.
* 出库预定日
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN COMMENT 10 ( 10 ) TEXT - 004 .
    SELECTION - SCREEN POSITION 20 .
     SELECT - OPTIONS SE_DATUM FOR MKPF - BUDAT.
  SELECTION - SCREEN END OF LINE.
  SELECTION - SCREEN  SKIP 1 .
* 个别选择
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN POSITION 3 .
    PARAMETERS P_RDO2 RADIOBUTTON
                  GROUP GRP1.
    SELECTION - SCREEN COMMENT 5 ( 8 ) TEXT - 005 .
  SELECTION - SCREEN END OF LINE.
* 出库凭证番号
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN COMMENT 10 ( 12 ) TEXT - 006 .
    SELECTION - SCREEN POSITION 20 .
     SELECT - OPTIONS SE_VBELN FOR LIKP - VBELN.
  SELECTION - SCREEN END OF LINE.
* 入出库预定
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN COMMENT 10 ( 10 ) TEXT - 007 .
    SELECTION - SCREEN POSITION 20 .
     SELECT - OPTIONS SE_RSNUM FOR MKPF - MBLNR.
  SELECTION - SCREEN END OF LINE.

  SELECTION - SCREEN  SKIP 1 .
  SELECTION - SCREEN  ULINE 1 ( 80 ).
  SELECTION - SCREEN  SKIP 1 .

* I / F
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN POSITION 3 .
    PARAMETERS  P_RDO3  RADIOBUTTON
                   GROUP GRP2
                   DEFAULT ' X '
                   USER - COMMAND RADI.
    SELECTION - SCREEN COMMENT 5 ( 8 ) TEXT - 008 .
  SELECTION - SCREEN END OF LINE.

  SELECTION - SCREEN  SKIP 1 .

* 印刷
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN POSITION 3 .
    PARAMETERS P_RDO4  RADIOBUTTON
                  GROUP GRP2.
    SELECTION - SCREEN COMMENT 5 ( 8 ) TEXT - 009 .
  SELECTION - SCREEN END OF LINE.

  SELECTION - SCREEN  SKIP 1 .

* 打印设备
  SELECTION - SCREEN BEGIN OF LINE.
    SELECTION - SCREEN COMMENT 10 ( 8 ) TEXT - 010 .
    SELECTION - SCREEN POSITION 23 .
    PARAMETERS     PA_PDEST LIKE PRI_PARAMS - PDEST .
  SELECTION - SCREEN END OF LINE.
SELECTION - SCREEN END OF BLOCK BL1.
* -- -------------------------------------------------------------------*
* -- ----类型定义
* 提货 / 送货 / 移送抬头表
TYPES: BEGIN OF TYP_LIKP,
       ZZOP2FLG    LIKE LIPS - ZZOP2FLG,          "再印刷标志位
       NAME1         LIKE ADRC - NAME1,             "经销店名称
       WADAT           LIKE LIKP - WADAT,             "提货预定日
       KUNNR           LIKE LIKP - KUNNR,             "经销点编号
       VBELN        LIKE LIKP - VBELN,             "出库凭证
       TEL_NUMBER     LIKE ADRC - TEL_NUMBER,        "经销店电话
       VSBED                  LIKE     LIKP - VSBED,                  "装运条件
       PROCE( 20 )      TYPE C ,                     "出库路径
       VGBEL        LIKE LIPS - VGBEL,             "订单号
       STREET         LIKE ADRC - STREET,            "送货地址
       WERKS2         LIKE LIPS - WERKS,             "提货仓库
       NAME2          LIKE T001W - NAME1,            "提货仓库名称
       WERKS          LIKE LIKP - WERKS,             "交货的接收工厂
                                                  "或移送场合仓库
       Z001           LIKE TLINE - TDLINE,           "运货车号
       Z002           LIKE TLINE - TDLINE,           "交易者号
       Z003           LIKE TLINE - TDLINE,           "交易者名称
       DEL_FLG    TYPE C ,                        "删除标志
        END     OF TYP_LIKP.
* 提货 / 送货 / 移送明细数据
TYPES: BEGIN OF TYP_LIPS,
       VBELN          LIKE LIKP - VBELN,             "出库凭证
       ZZOP2FLG       LIKE LIPS - ZZOP2FLG,          "再印刷标志位
       WERKS          LIKE LIPS - WERKS,             "出库工厂
       MATNR          LIKE LIPS - MATNR,             "品名代码
       CHARG          LIKE LIPS - CHARG,             "管区
       LFIMG          LIKE LIPS - LFIMG,             "数量
       VGBEL          LIKE LIPS - VGBEL,             "单据编号
       FLG           TYPE C,                      "机型管理
       NAME2          LIKE T001W - NAME1,            "出库仓库
       MATERIAL_TYPE LIKE CAWNT - ATWTB,            "机种类别
        END     OF TYP_LIPS.
* 移管明细
TYPES: BEGIN OF TYP_RESB,
       NAME1          LIKE ADRC - NAME1,              "仓库名称
       RSNUM          LIKE RESB - RSNUM,              "入出库预定
       BDTER          LIKE RESB - BDTER,              "预定日
       WERKS          LIKE RESB - WERKS,              "工厂
       UMWRK          LIKE RESB - UMWRK,              "入库工厂
       MATNR          LIKE RESB - MATNR,              "品名代码
       CHARG          LIKE RESB - CHARG,              "管区
       BDMNG          LIKE RESB - BDMNG,              "数量
       TEL_NUMBER     LIKE ADRC - TEL_NUMBER,         "电话号码
       STREET         LIKE ADRC - STREET,             "地址
       FLG           TYPE C,                       "机型管理
       NAME2          LIKE T001W - NAME1,             "出库仓库
       MATERIAL_TYPE LIKE CAWNT - ATWTB,             "机种类别
       VGBEL          LIKE LIPS - VGBEL,              "移送移管的指令传票
       ZZOP2FLG       LIKE RESB - ZZOP2FLG,
        END     OF TYP_RESB.
* 移管抬头
TYPES: BEGIN OF TYP_RKPF,
       ZZOP2FLG       LIKE LIPS - ZZOP2FLG,           "再印刷标志位
       NAME1          LIKE ADRC - NAME1,              "仓库名称
       BDTER          LIKE RESB - BDTER,              "提货预定日
       UMWRK          LIKE RESB - UMWRK,              "仓库
       RSNUM          LIKE RESB - RSNUM,              "出库凭证
       TEL_NUMBER     LIKE ADRC - TEL_NUMBER,         "经销店电话
       VSBED          LIKE LIKP - VSBED,              "装运条件
       PROCE( 20 )     TYPE C ,                      "出库路径
       VGBEL          LIKE LIPS - VGBEL,              "移送移管的指令传票
       STREET         LIKE ADRC - STREET,             "送货地址
       WERKS          LIKE RESB - WERKS,              "提货仓库
       NAME2          LIKE T001W - NAME1,             "提货仓库名称
        END     OF TYP_RKPF.

* -- -------------------------------------------------------------------*
* -- ----工作区定义
DATA: REC_LIKP TYPE  TYP_LIKP.
DATA: REC_LIPS TYPE  TYP_LIPS.
DATA: REC_RESB TYPE  TYP_RESB.
DATA: REC_RKPF TYPE  TYP_RKPF.
DATA: REC_INDX LIKE   INDX.
* -- -------------------------------------------------------------------*
* -- ----内部表定义
DATA: TBL_LIKP TYPE TABLE OF TYP_LIKP.
DATA: TBL_LIPS TYPE TABLE OF TYP_LIPS.
DATA: TBL_RESB TYPE TABLE OF TYP_RESB.
DATA: TBL_RKPF TYPE TABLE OF TYP_RKPF.
* -- -------------------------------------------------------------------*
* -- ----全局变量定义
DATA:G_DATE             LIKE SY - DATUM.               "本地日期
DATA:G_TIME             LIKE SY - UZEIT.               "本地时间
DATA:G_TFLG            TYPE C.                      "日期标志
DATA:G_LINE( 4 )         TYPE C VALUE ' 1 ' .            "行的记数器
DATA:G_ZZOP2FLGCHAR( 6 ) TYPE C.                      " [ 再印刷 ] 字样
DATA:G_LIKP( 30 )        TYPE C,                      "TBL_LIKP的ID
     G_LIPS( 30 )        TYPE C,                      "TBL_LIPS的ID
     G_RKPF( 30 )        TYPE C,                      "TBL_RKPF的ID
     G_RESB( 30 )        TYPE C.                      "TBL_RESB的ID
* -- -------------------------------------------------------------------*
* -- ----常量定义
CONSTANTS:
  C_RADI( 4 )          TYPE C VALUE ' RADI ' ,           "常量RADI
  C_NULL             TYPE C VALUE '' ,               "常量 ''
  C_X( 1 )             TYPE C VALUE ' X '   ,            "常量X
  C_S000( 4 )          TYPE C VALUE ' S000 ' ,           "常量S000
  C_01                LIKE LIKP - VSBED VALUE ' 01 ' ,    "常量01
  C_02                LIKE LIKP - VSBED VALUE ' 02 ' ,    "常量02
  C_03                LIKE LIKP - VSBED VALUE ' 03 ' ,    "常量03
  C_04                LIKE LIKP - VSBED VALUE ' 04 ' ,    "常量04
  C_05                LIKE LIKP - VSBED VALUE ' 05 ' ,    "常量05
  C_11                LIKE LIKP - VSBED VALUE ' 11 ' ,    "常量11
  C_31                LIKE LIKP - VSBED VALUE ' 31 ' ,    "常量31
  C_ZZ                LIKE LIKP - VSBED VALUE ' ZZ ' ,    "常量ZZ
  C_000000( 6 )        TYPE C VALUE ' 000000 ' ,         "常量000000
  C_WE( 2 )            TYPE C VALUE ' WE ' ,             "常量WE
  C_261( 3 )           TYPE C VALUE ' 261 ' ,            "常量261
  C_Z001( 4 )          TYPE C VALUE ' Z001 ' ,           "常量Z001
  C_Z002( 4 )          TYPE C VALUE ' Z002 ' ,           "常量Z002
  C_Z003( 4 )          TYPE C VALUE ' Z003 ' ,           "常量Z003
  C_MATNR( 5 )         TYPE C VALUE ' MATNR ' ,          "常量MATNR
  C_UTC8( 5 )          TYPE C VALUE ' UTC+8 ' ,          "常量UTC + 8
  C_1( 1 )             TYPE C VALUE ' 1 ' ,              "常量1
  C_2( 1 )             TYPE C VALUE ' 2 ' ,              "常量2
  C_A( 1 )             TYPE C VALUE ' + ' ,              "常量 +
  C_D( 1 )             TYPE C VALUE ' - ' ,              "常量 -
  C_SAPSCRIPT_ID( 12 ) TYPE C VALUE ' ZMM001_A140 ' ,    "SAPSCRIPT的ID
  C_SMARTFORM_ID( 12 ) TYPE C VALUE ' ZMMR001_A140 ' ,   "SMARTFORM的ID
  C_LIKP( 4 )          TYPE C VALUE ' LIKP ' ,           "表名LIKP
  C_LIPS( 4 )          TYPE C VALUE ' LIPS ' ,           "表名LIPS
  C_RKPF( 4 )          TYPE C VALUE ' RKPF ' ,           "表名RKPF
  C_RESB( 4 )          TYPE C VALUE ' RESB ' ,           "表名RESB
  C_ZH                LIKE SYST - LANGU VALUE ' 1 ' ,     "中文语言
  C_JA                LIKE SYST - LANGU VALUE ' J ' ,     "日文语言
  C_VBBK              LIKE   THEAD - TDOBJECT
                          VALUE    ' VBBK ' ,           "常量VBBK
  C_MARA              LIKE BAPI1003_KEY - OBJECTTABLE
                          VALUE    ' MARA ' ,           "常量MARA
  C_ZCLASS_MAT        LIKE   BAPI1003_KEY - CLASSNUM
                          VALUE    ' ZCLASS_MAT ' ,     "常量ZCLASS_MAT
  C_001               LIKE   BAPI1003_KEY - CLASSTYPE
                          VALUE    ' 001 ' ,            "常量001
  C_TYPEC             LIKE   BAPI1003_ALLOC_VALUES_CHAR - CHARACT
                          VALUE ' ZMACHINE_TYPE ' .    "常量ZMACHINE_TYPE
*& -- ------------------------------------------------------------------*
*& -- ----初处理事件
INITIALIZATION.
  PERFORM SCREEN_INIT.
*& -- ------------------------------------------------------------------*
*& -- ----选择屏幕PBO事件
AT SELECTION - SCREEN OUTPUT.
  PERFORM SCREEN_PBO.
*& -- ------------------------------------------------------------------*
*& -- ----选择屏幕PAI事件
AT SELECTION - SCREEN.
  PERFORM SCREEN_PAI.
*& -- ------------------------------------------------------------------*
*& -- ----主处理事件
START - OF - SELECTION.
  PERFORM PROCESS_MAIN.
*& -- ------------------------------------------------------------------*
*& -- ----末处理事件
END - OF - SELECTION.
  PERFORM PROCESS_END.

*& -- -------------------------------------------------------------------*
*&   FORM  SCREEN_INIT
*&   功能: 保管场所的缺省值 S000
*& -- -------------------------------------------------------------------*
FORM SCREEN_INIT.
  PA_LGORT = C_S000.
ENDFORM.                                           " SCREEN_INIT

*& -- -------------------------------------------------------------------*
*&   FORM  SCREEN_PBO
*&   功能: 选择屏幕PBO
*& -- -------------------------------------------------------------------*
FORM SCREEN_PBO.
  LOOP AT SCREEN.                                  "循环屏幕参量
     IF P_RDO1 = C_X.                               "复数选择
       IF    SCREEN - NAME    = ' SE_VBELN-LOW '           "出库凭证前项目
         OR SCREEN - NAME    = ' SE_VBELN-HIGH '          "出库凭证后项目
         OR SCREEN - NAME    = ' SE_RSNUM-LOW '           "入出库凭证前项目
         OR SCREEN - NAME    = ' SE_RSNUM-HIGH ' .        "入出库凭证后项目
        SCREEN - INPUT   = 0 .                         "禁止输入
        SCREEN - OUTPUT = 1 .                         "允许输出
      ENDIF.
      PERFORM SCREEN_INIT.
    ENDIF.
     IF P_RDO2 = C_X.                               "个别选择
       IF SCREEN - NAME      = ' PA_WERKS '               "仓库
         OR SCREEN - NAME    = ' PA_LGORT '               "保管场所
         OR SCREEN - NAME    = ' SE_VSBED-LOW '           "出库路径前项目
         OR SCREEN - NAME    = ' SE_VSBED-HIGH '          "出库路径后项目
         OR SCREEN - NAME    = ' SE_DATUM-LOW '           "出库预定日前项目
         OR SCREEN - NAME    = ' SE_DATUM-HIGH ' .        "出库预定日后项目
        SCREEN - INPUT   = 0 .                         "禁止输入
        SCREEN - OUTPUT = 1 .                         "允许输出
      ENDIF.
    ENDIF.
     IF P_RDO3 = C_X.                               "I / F
       IF SCREEN - NAME      = ' PA_PDEST ' .             "打印设备
        SCREEN - INPUT   = 0 .
        SCREEN - OUTPUT = 1 .
      ENDIF.
    ENDIF.
    MODIFY SCREEN.                                 "修改屏幕参量
  ENDLOOP.
ENDFORM.                                           " SCREEN_PBO

*& -- -------------------------------------------------------------------*
*&   FORM  SCREEN_PAI
*&   功能: 选择屏幕PAI
*& -- -------------------------------------------------------------------*
FORM SCREEN_PAI.
IF SY - UCOMM = C_RADI.                             "判断PAI触发功能代码
   PERFORM SCREEN_FLUSH.                           "刷新屏幕
ELSE .
   PERFORM SCREEN_CHECK_INPUT.                     "输入检查
ENDIF.
ENDFORM.                                           " SCREEN_PAI

*& -- -------------------------------------------------------------------*
*&   FORM  SCREEN_FLUSH
*&   功能: 刷新屏幕
*& -- -------------------------------------------------------------------*
FORM SCREEN_FLUSH.
     IF P_RDO1 = C_X.                              "复数选择
      REFRESH: SE_VBELN,                          "出库凭证
               SE_RSNUM.                          "入出库预定
    ENDIF.
     IF P_RDO2 = C_X.                              "个别选择
      CLEAR:   PA_WERKS,                          "仓库
               PA_LGORT.                          "保管场所
      REFRESH: SE_VSBED,                          "出库路径
               SE_DATUM.                          "出库预定日
    ENDIF.
     IF P_RDO3 = C_X.                              "I / F
      CLEAR    PA_PDEST.                          "打印设备
    ENDIF.
ENDFORM.                                          "SCREEN_FLUSH

*& -- -------------------------------------------------------------------*
*&   FORM  SCREEN_CHECK_INPUT
*&   功能: 输入检查
*& -- -------------------------------------------------------------------*
FORM SCREEN_CHECK_INPUT.
   IF P_RDO1 = C_X.                                 "复数选择
     IF PA_WERKS IS INITIAL.                        "工厂未输入
        SET CURSOR FIELD ' PA_WERKS ' .
* 报消息: [ 在所有需要输入的字段中输入一个条目 ]
        MESSAGE ID ' 00 ' TYPE ' E ' NUMBER ' 055 ' .
    ENDIF.
     IF PA_LGORT IS INITIAL.                        "保管场所未输入
       SET CURSOR FIELD ' PA_LGORT ' .
* 报消息: [ 在所有需要输入的字段中输入一个条目 ]
      MESSAGE ID ' 00 ' TYPE ' E ' NUMBER ' 055 ' .
    ENDIF.
  ENDIF.
   IF P_RDO2 = C_X.                                 "个别选择
     IF     SE_VBELN [] IS INITIAL                    "出厂凭证未输入
       AND SE_RSNUM [] IS INITIAL.                   "和入出库凭未输入
       SET CURSOR FIELD ' SE_VBELN-LOW ' .
* 报消息: [ 在所有需要输入的字段中输入一个条目 ]
    MESSAGE ID ' 00 ' TYPE ' E ' NUMBER ' 055 ' .
    ENDIF.
  ENDIF.
   IF P_RDO4 = C_X.                                 "打印输出
     IF PA_PDEST IS INITIAL.                        "打印设备未输入
       SET CURSOR FIELD ' PA_PDEST ' .
* 报消息: [ 在所有需要输入的字段中输入一个条目 ]
      MESSAGE ID ' 00 ' TYPE ' E ' NUMBER ' 055 ' .
    ENDIF.
  ENDIF.
ENDFORM.                                           "SCREEN_CHECK_INPUT

*& -- -------------------------------------------------------------------*
*&   FORM  PROCESS_MAIN
*&   功能: 主处理:取得对象数据 -> 编辑数据 -> 输出帐票
*& -- -------------------------------------------------------------------*
FORM PROCESS_MAIN.
  PERFORM DATA_GET.                                "取得对象数据
  PERFORM DATA_EDIT.                               "编辑数据
   IF P_RDO3 = C_X.                                 "选择了I / F
    STOP.
  ENDIF.
   IF P_RDO4 = C_X.                                 "选择了印刷
     IF SY - LANGU = C_ZH.                            "用户登陆语言为中文
      PERFORM WRITE_SAPSCRIPT.                     "中文输出帐票
    ENDIF.
     IF SY - LANGU = C_JA.                            "用户登陆语言为日文
      PERFORM WRITE_SMARTFORM.                     "日文输出帐票
    ENDIF.
* 报消息: [ 正常执行输出 ]
    MESSAGE ID ' ZXX001 ' TYPE   ' S ' NUMBER ' 036 ' .
  ENDIF.
ENDFORM.                                           " PROCESS_MAIN

*& -- -------------------------------------------------------------------*
*&   FORM  DATA_GET
*&   功能: 对象数据取得
*& -- -------------------------------------------------------------------*
FORM DATA_GET.
  CLEAR: TBL_LIKP,
         TBL_LIPS,
         TBL_RKPF,
         TBL_RESB.
   IF P_RDO1 = C_X.                                 "如果选了 [ 复数选择 ]
    PERFORM DO_CHOOSE1.
  ENDIF.
   IF P_RDO2 = C_X.                                 "如果选了 [ 个别选择 ]
    PERFORM DO_CHOOSE2.
  ENDIF.
   IF TBL_LIKP IS INITIAL
     AND TBL_RESB IS INITIAL.                       "对象数据不存在
* 报消息: [ 对象数据不存在 ] 终止程序
    MESSAGE S035.
    STOP.
  ENDIF.
ENDFORM.                                           " DATA_GET

*& -- -------------------------------------------------------------------*
*&   FORM  DO_CHOOSE1
*&   功能: 复数选择情况
*& -- -------------------------------------------------------------------*
FORM DO_CHOOSE1 .
* 2 - 1 - 1 - 1 提货 / 送货 / 移送场合
   IF     C_01   IN    SE_VSBED                        "出库路径01 02 03 04
      OR C_02   IN    SE_VSBED                        " 05 11 31 或没输入
      OR C_03   IN    SE_VSBED
      OR C_04   IN    SE_VSBED
      OR C_05   IN    SE_VSBED
      OR C_11   IN    SE_VSBED
      OR C_31   IN    SE_VSBED
      OR ( SE_VSBED [] IS INITIAL ).
    PERFORM  DO_SE_VSBED1.                         "出库路径情况1处理
  ENDIF.
* 2 - 1 - 1 - 2 移管场合
   IF     C_ZZ   IN    SE_VSBED
     OR ( SE_VSBED [] IS INITIAL ).                  "出库路径ZZ 或没输入
    PERFORM DO_SE_VSBED2.                          "出库路径情况2处理
  ENDIF.
ENDFORM.                                           " DO_CHOOSE1
*& -- -------------------------------------------------------------------*
*&   FORM  DO_SE_VSBED1
*&   功能: 出库路径是01 02 03 04 05 11 31 时处理
*& -- -------------------------------------------------------------------*
FORM DO_SE_VSBED1.
* 局部变量
DATA: LO_ADRNR   LIKE VBPA - ADRNR.                  "销售凭证:合作伙伴地址
DATA: LO_SERAIL LIKE LIPS - SERAIL.                 "地址
* 2 - 1 - 1 - 1 - 1 查询 [ SD凭证:交货抬头数据 ] (LIKP)
   SELECT     VBELN                                 "交货
            WADAT                                 "计划货物移动日期
            KUNNR                                 "送达方
            VSBED                                 "装运条件
            WERKS                                 "交货的接收工厂
  APPENDING CORRESPONDING FIELDS OF TABLE TBL_LIKP
   FROM       LIKP                                  "交货抬头数据
   WHERE      VSBED IN SE_VSBED                     "指定条件装运条件
   AND        WADAT IN SE_DATUM.                    "指定条件移动日期
   IF SY - SUBRC <> 0 .                               "对象不存在退出FORM
     RETURN .
  ENDIF.
* 2 - 1 - 1 - 1 - 2 查询 [ 销售凭证：合作伙伴 ] (VBPA)
  CLEAR REC_LIKP.
  LOOP AT TBL_LIKP INTO REC_LIKP.
     SELECT SINGLE ADRNR
     INTO    LO_ADRNR
     FROM    VBPA                                   "销售凭证:合作伙伴
     WHERE   VBELN = REC_LIKP - VBELN                 "交货
     AND     POSNR = C_000000                       "销售和分销凭证项目号
     AND     PARVW = C_WE.                          "合作伙伴功能
* 2 - 1 - 1 - 1 - 3 查询 [ 地址 (业务地址服务) ] (ADRC)
     IF SY - SUBRC = 0 .
       SELECT    SINGLE NAME1                        "客户名称
              TEL_NUMBER                          "电话号码
              STREET                              "地址
         INTO   (REC_LIKP - NAME1,
               REC_LIKP - TEL_NUMBER,
               REC_LIKP - STREET
              )
         FROM   ADRC
        WHERE   ADDRNUMBER = LO_ADRNR               "地址号码等于LO_ADRNR
          AND   NATION = SPACE .                     "国际地址版本等于SPACE
      MODIFY  TBL_LIKP FROM   REC_LIKP
                TRANSPORTING NAME1                "客户名称
                             TEL_NUMBER           "电话号码
                             STREET.              "地址
    ENDIF.
    CLEAR REC_LIKP.
  ENDLOOP.
* 2 - 1 - 1 - 1 - 4 查询 [ SD凭证:交货:项目数据 ] (LIPS)
CLEAR REC_LIKP.
LOOP AT TBL_LIKP INTO REC_LIKP.
   SELECT ZZOP2FLG                                "再印刷标志
         VBELN                                   "交货凭证号
         WERKS                                   "工厂
         MATNR                                   "物料号
         CHARG                                   "批号
         LFIMG                                   "实际已交货量
         SERAIL                                  "序列号参数文件
         VGBEL                                   "参考单据的单据编号
    INTO (REC_LIPS - ZZOP2FLG,
         REC_LIPS - VBELN,
         REC_LIPS - WERKS,
         REC_LIPS - MATNR,
         REC_LIPS - CHARG,
         REC_LIPS - LFIMG,
         LO_SERAIL,
         REC_LIPS - VGBEL)
     FROM LIPS
    WHERE VBELN   = REC_LIKP - VBELN                 "交货抬头表—交货凭证号
      AND WERKS   = PA_WERKS                       "参数工厂
      AND LGORT   = PA_LGORT                       "参数保管场所
      AND ( ZZOP2FLG IS NULL
           OR ZZOP2FLG = SPACE )                  "再印刷标志位
      AND KOMKZ    <> SPACE .                       "拣配控制指示符

     IF LO_SERAIL   <> '' .                         "机种类型不为空
      REC_LIPS - FLG = C_X.                        "机型管理赋X
     ELSE .                                        "机种类型为空
      REC_LIPS - FLG = SPACE .                      "机型管理赋SPACE
    ENDIF.

    REC_LIKP - VGBEL = REC_LIPS - VGBEL.             "添加抬头订单号
    REC_LIKP - ZZOP2FLG = REC_LIPS - ZZOP2FLG.
    REC_LIKP - WERKS2 = REC_LIPS - WERKS.
    MODIFY TBL_LIKP FROM   REC_LIKP
             TRANSPORTING VGBEL                  "定单号
                          ZZOP2FLG               "再印刷标志
                          WERKS2.                "提货仓库
    APPEND REC_LIPS TO TBL_LIPS.                 "添加明细条目
  ENDSELECT.

   IF SY - SUBRC <> 0 .                              "该抬头没有明细数据
    REC_LIKP - DEL_FLG = C_X.
    MODIFY TBL_LIKP FROM   REC_LIKP
             TRANSPORTING DEL_FLG.               "删除标志
  ENDIF.
  ENDLOOP.
   DELETE TBL_LIKP WHERE DEL_FLG = C_X.           "删除没有明细的表头
* 2 - 1 - 1 - 1 - 5 查询 [ 工厂/分支机构 ] (T001W)
  CLEAR REC_LIPS.
  LOOP AT TBL_LIPS INTO REC_LIPS.
     SELECT SINGLE NAME1                          "工厂名称
     FROM    T001W
     INTO    REC_LIPS - NAME2                        "出库仓库名称
     WHERE   WERKS = REC_LIPS - WERKS.               "工厂为出库工厂
    MODIFY TBL_LIPS FROM   REC_LIPS
             TRANSPORTING NAME2.
  ENDLOOP.

  LOOP AT TBL_LIKP INTO REC_LIKP.
     SELECT SINGLE NAME1                          "工厂名称
     FROM    T001W
     INTO    REC_LIKP - NAME2                        "出库仓库名称
     WHERE   WERKS = REC_LIKP - WERKS2.              "工厂为出库工厂
    MODIFY TBL_LIKP FROM   REC_LIKP
             TRANSPORTING NAME2.                 "提货仓库名称
  ENDLOOP.

ENDFORM.                                         " DO_SE_VSBED1

*& -- -------------------------------------------------------------------*
*&   FORM  DO_SE_VSBED2
*&   功能: 出库路径是ZZ 或者没有输入时处理
*& -- -------------------------------------------------------------------*
FORM DO_SE_VSBED2.
DATA: LO_ADRNR LIKE VBPA - ADRNR,                  "地址
      LO_SERNP LIKE MARC - SERNP.                  "序列号参数文件
* 2 - 1 - 1 - 2 - 1 查询 [ 预定/相关需求 ] (RESB)
  CLEAR REC_RESB.
   SELECT   RSNUM                                  "入出库预定
          BDTER                                  "预定日
          WERKS                                  "工厂
          UMWRK                                  "入库工厂
          MATNR                                  "物料号码
          CHARG                                  "批次编号
          BDMNG                                  "需求量
          ZZOP2FLG                               "再印刷标志位
     INTO (REC_RESB - RSNUM,
          REC_RESB - BDTER,
          REC_RESB - WERKS,
          REC_RESB - UMWRK,
          REC_RESB - MATNR,
          REC_RESB - CHARG,
          REC_RESB - BDMNG,
          REC_RESB - ZZOP2FLG)
     FROM   RESB                                  "预定相关需求明细
    WHERE   BWART = C_261                         "移动类型(库存管理)
      AND   BDTER IN SE_DATUM                     "组件的需求日期
                                                "画面参数出入库预定日
      AND   WERKS = PA_WERKS                      "工厂为画面参数仓库
      AND   LGORT = PA_LGORT                      "库存地点 = 画面保管场所
      AND ( ZZOP2FLG IS NULL
           OR ZZOP2FLG = SPACE ).                "再印刷标志位
    APPEND REC_RESB TO TBL_RESB.
  ENDSELECT.
   IF SY - SUBRC <> 0 .                             "对象不存在退出FORM
     RETURN .
  ENDIF.
* 2 - 1 - 1 - 2 - 2 查询 [ 工厂/分支机构 ] (T001W)
  CLEAR REC_RESB.
  LOOP AT TBL_RESB INTO REC_RESB.
     SELECT    SINGLE ADRNR                        "地址
       INTO   LO_ADRNR
       FROM   T001W
      WHERE   WERKS = REC_RESB - UMWRK.             "相应的工厂代号
* 2 - 1 - 1 - 2 - 3 查询 [ 地址 (业务地址服务) ] (ADRC)
     IF SY - SUBRC = 0 .
       SELECT   NAME1                             "客户名称
              TEL_NUMBER                        "电话号码
              STREET                            "地址
         INTO (REC_RESB - NAME1,
              REC_RESB - TEL_NUMBER,
              REC_RESB - STREET )
         FROM   ADRC
          UP   TO 1 ROWS
        WHERE   ADDRNUMBER = LO_ADRNR             "地址号码等于LO_ADRNR
          AND   NATION      = SPACE .               "国际地址版本等于SPACE
      MODIFY  TBL_RESB FROM   REC_RESB
                TRANSPORTING NAME1
                             TEL_NUMBER
                             STREET.
      ENDSELECT.
    ENDIF.
  ENDLOOP.
* 2 - 1 - 1 - 2 - 4 查询 [ 物料的工厂数据 ] (MARC)
  CLEAR REC_RESB.
  LOOP AT TBL_RESB INTO REC_RESB.
     SELECT    SINGLE SERNP                         "序列号参数文件
       INTO   LO_SERNP
       FROM   MARC
      WHERE   MATNR = REC_RESB - MATNR               "物料号为预定表中物料号
        AND   WERKS = REC_RESB - WERKS.              "工厂为预定表中工厂
     IF LO_SERNP <> C_NULL.                       "机种类别不为空
      REC_RESB - FLG = C_X.
     ELSE .
      REC_RESB - FLG = SPACE .
    ENDIF.
    MODIFY TBL_RESB FROM   REC_RESB
             TRANSPORTING FLG .
  ENDLOOP.
* 2 - 1 - 1 - 2 - 5 查询 [ 工厂/分支机构 ] (T001W)
  LOOP AT TBL_RESB INTO REC_RESB.
     SELECT    SINGLE NAME1
       INTO   REC_RESB - NAME2                        "提货仓库名称
       FROM   T001W
      WHERE   WERKS = REC_RESB - WERKS.
     IF SY - SUBRC = 0 .
      MODIFY TBL_RESB FROM   REC_RESB
               TRANSPORTING NAME2.
    ENDIF.
  ENDLOOP.
ENDFORM.                                          "DO_SE_VSBED2

*& -- -------------------------------------------------------------------*
*&   FORM  DO_CHOOSE2
*&   功能: 个别选择情况
*& -- -------------------------------------------------------------------*
FORM DO_CHOOSE2.
   IF NOT SE_VBELN [] IS INITIAL.                   "出库凭证有输入
    PERFORM DO_SE_VBELN.
  ENDIF.
   IF NOT SE_RSNUM [] IS INITIAL.                   "入出库预定有输入
    PERFORM DO_SE_RSNUM.
  ENDIF.
ENDFORM.                                          "DO_CHOOSE2

*& -- -------------------------------------------------------------------*
*&   FORM  DO_SE_VBELN
*&   功能: 个别选择情况出库凭证番号有输入
*& -- -------------------------------------------------------------------*
FORM DO_SE_VBELN.
* 局部变量
DATA: LO_ADRNR   LIKE VBPA - ADRNR,                  "地址
      LO_SERAIL LIKE LIPS - SERAIL.                 "机种
* 2 - 1 - 2 - 1 - 1 查询 [ SD凭证:交货抬头数据 ] (LIKP)
   SELECT     VBELN                                 "出库凭证
            WADAT                                 "出库预定日
            KUNNR                                 "批发销售店号
            VSBED                                 "装运条件
            WERKS                                 "接受工厂
  APPENDING CORRESPONDING FIELDS OF TABLE TBL_LIKP
      FROM    LIKP                                  "交货抬头表
     WHERE    VBELN IN SE_VBELN.                    "指定的出库凭证号
   IF SY - SUBRC <> 0 .                               "数据不存在退出FORM
     RETURN .
  ENDIF.
* 2 - 1 - 2 - 1 - 2 查询 [ 销售凭证：合作伙伴 ] (VBPA)
  CLEAR REC_LIKP.
  LOOP AT TBL_LIKP INTO REC_LIKP.
     SELECT    SINGLE ADRNR                          "地址
       INTO   LO_ADRNR
       FROM   VBPA                                  "合作伙伴
      WHERE   VBELN = REC_LIKP - VBELN                "分销单据号 = 交货凭证号
        AND   POSNR = C_000000                      "销售项目号 = ' 000000 '
        AND   PARVW = C_WE.                         "合作伙伴功能等于SH
* 2 - 1 - 2 - 1 - 3 查询 [ 地址 (业务地址服务) ] (ADRC)
     IF SY - SUBRC = 0 .
       SELECT    SINGLE NAME1                         "客户名称
              TEL_NUMBER                           "电话号码
              STREET                               "地址
         INTO   (REC_LIKP - NAME1,
               REC_LIKP - TEL_NUMBER,
               REC_LIKP - STREET)
         FROM   ADRC
        WHERE   ADDRNUMBER = LO_ADRNR                "地址号码等于LO_ADRNR
          AND   NATION = SPACE .                      "国际地址版本 = SPACE
      MODIFY  TBL_LIKP FROM   REC_LIKP
                TRANSPORTING NAME1
                             TEL_NUMBER
                             STREET.
    ENDIF.
  ENDLOOP.
* 2 - 1 - 2 - 1 - 4 查询 [ SD凭证：交货：项目数据 ] (LIPS)
  CLEAR REC_LIKP.
  LOOP AT TBL_LIKP INTO REC_LIKP.
     SELECT   ZZOP2FLG                               "再印刷标志位
            VBELN                                  "交货凭证号
            WERKS                                  "工厂
            MATNR                                  "物料号码
            CHARG                                  "批次编号
            LFIMG                                  "实际已交货量
            SERAIL                                 "机种
            VGBEL                                  "参考单据的单据编号
       FROM   LIPS
       INTO (REC_LIPS - ZZOP2FLG,
            REC_LIPS - VBELN,
            REC_LIPS - WERKS,
            REC_LIPS - MATNR,
            REC_LIPS - CHARG,
            REC_LIPS - LFIMG,
            LO_SERAIL,
            REC_LIPS - VGBEL)
      WHERE   VBELN = REC_LIKP - VBELN.                "交货凭证号相等

       IF LO_SERAIL   <> C_NULL.                     "机种类型不为空
        REC_LIPS - FLG = C_X.                        "机型管理赋X
       ELSE .                                        "机种类型为空
        REC_LIPS - FLG = SPACE .                      "机型管理赋SPACE
      ENDIF.

      REC_LIKP - VGBEL = REC_LIPS - VGBEL.             "添加抬头订单号
      REC_LIKP - ZZOP2FLG = REC_LIPS - ZZOP2FLG.       "再印刷标志位
      REC_LIKP - WERKS2 = REC_LIPS - WERKS.
      MODIFY TBL_LIKP FROM   REC_LIKP
               TRANSPORTING VGBEL                  "定单号
                            ZZOP2FLG               "再印刷标志
                            WERKS2.                "提货仓库
      APPEND REC_LIPS TO TBL_LIPS.                 "添加明细条
    ENDSELECT.
     IF SY - SUBRC <> 0 .                              "如果没有相应明细数据
      REC_LIKP - DEL_FLG = C_X.                      "记下要删除标志
      MODIFY TBL_LIKP FROM   REC_LIKP
               TRANSPORTING DEL_FLG.
    ENDIF.
  ENDLOOP.
   DELETE TBL_LIKP WHERE DEL_FLG = C_X.             "删除没有明细的表头
* 2 - 1 - 2 - 1 - 6 查询 [ 工厂/分支机构 ] (T001W)
  LOOP AT TBL_LIPS INTO REC_LIPS.
     SELECT    SINGLE NAME1                           "工厂名称
       INTO   REC_LIPS - NAME2                         "出库仓库名称
       FROM   T001W                                  "工厂
      WHERE   WERKS = REC_LIPS - WERKS.                "工厂代码 = 出库工厂
    MODIFY TBL_LIPS FROM   REC_LIPS
             TRANSPORTING NAME2.
  ENDLOOP.

  CLEAR LIKP.
  LOOP AT TBL_LIKP INTO REC_LIKP.
     SELECT SINGLE NAME1                            "工厂名称
     FROM    T001W
     INTO    REC_LIKP - NAME2                          "出库仓库名称
     WHERE   WERKS = REC_LIKP - WERKS2.                "工厂为出库工厂
    MODIFY TBL_LIKP FROM   REC_LIKP
             TRANSPORTING NAME2.
  ENDLOOP.
ENDFORM.                                           "DO_SE_VBELN

*& -- -------------------------------------------------------------------*
*&   FORM  DO_SE_RSNUM
*&   功能: 个别选择情况入出库预定有输入
*& -- -------------------------------------------------------------------*
FORM DO_SE_RSNUM.
* 局部变量
DATA: LO_ADRNR LIKE VBPA - ADRNR,                    "地址
      LO_SERNP LIKE MARC - SERNP.                    "序列号参数文件
* 2 - 1 - 2 - 2 - 1 查询 [ 预定/相关需求 ] (RESB)
  CLEAR REC_RESB.
   SELECT     RSNUM                                  "入出库预定
            BDTER                                  "预定日
            WERKS                                  "工厂
            UMWRK                                  "入库工厂
            MATNR                                  "物料号码
            CHARG                                  "批次编号
            BDMNG                                  "需求量
            ZZOP2FLG                               "再印刷标志位
  APPENDING CORRESPONDING FIELDS OF TABLE TBL_RESB
     FROM     RESB
    WHERE     RSNUM IN SE_RSNUM.
   IF SY - SUBRC <> 0 .                                "数据不存在退出FORM
     RETURN .
  ENDIF.
* 2 - 1 - 2 - 2 - 3 查询 [ 工厂/分支机构 ] (T001W)
  LOOP AT TBL_RESB INTO REC_RESB.
     SELECT    SINGLE ADRNR                          "地址
       INTO   LO_ADRNR
       FROM   T001W                                 "工厂表
      WHERE   WERKS = REC_RESB - UMWRK.               "相应的工厂代号
* 2 - 1 - 2 - 2 - 4 查询 [ 地址 (业务地址服务) ] (ADRC)
     IF SY - SUBRC = 0 .
       SELECT    SINGLE NAME1                        "客户名称
              TEL_NUMBER                          "电话号码
              STREET                              "地址
         INTO (REC_RESB - NAME1,
              REC_RESB - TEL_NUMBER,
              REC_RESB - STREET)
         FROM   ADRC                                "中心地址管理
        WHERE   ADDRNUMBER = LO_ADRNR               "地址号码等于LO_ADRNR
          AND   NATION = SPACE .                     "国际地址版本等于SPACE
      MODIFY  TBL_RESB FROM   REC_RESB
                TRANSPORTING NAME1
                             TEL_NUMBER
                             STREET.
    ENDIF.
  ENDLOOP.
* 2 - 1 - 2 - 2 - 5 查询 [ 物料的工厂数据 ] (MARC)
  CLEAR REC_RESB.
  LOOP AT TBL_RESB INTO REC_RESB.
     SELECT    SINGLE SERNP                         "序列号参数文件
       INTO   LO_SERNP
       FROM   MARC
      WHERE   MATNR = REC_RESB - MATNR               "物料号为预定表中物料号
        AND   WERKS = REC_RESB - WERKS.              "工厂为预定表中工厂
     IF LO_SERNP <> C_NULL.                       "机种类别不为空情况
      REC_RESB - FLG = C_X.
     ELSE .
      REC_RESB - FLG = SPACE .                      "机种类别为空情况
    ENDIF.
    MODIFY TBL_RESB FROM   REC_RESB
             TRANSPORTING FLG .                  "机型管理
  ENDLOOP.
* 2 - 1 - 2 - 2 - 6 查询 [ 工厂/分支机构 ] (T001W)
  CLEAR REC_RESB.
  LOOP AT TBL_RESB INTO REC_RESB.
     SELECT    SINGLE NAME1                         "名称
       INTO   REC_RESB - NAME2
       FROM   T001W
      WHERE   WERKS = REC_RESB - WERKS.              "工厂为预定表中出库工厂
     IF SY - SUBRC = 0 .
      MODIFY TBL_RESB FROM   REC_RESB
               TRANSPORTING NAME2.
    ENDIF.
  ENDLOOP.
ENDFORM.                                         "DO_SE_RSNUM

*& -- -------------------------------------------------------------------*
*&   FORM  DATA_EDIT
*&   功能: 数据编辑
*& -- -------------------------------------------------------------------*
FORM DATA_EDIT.
* 2 - 2 - 1 移管的情况下处理
  LOOP AT TBL_RESB INTO REC_RESB.

    SHIFT REC_RESB - RSNUM LEFT DELETING LEADING ' 0 ' .
    MODIFY TBL_RESB FROM   REC_RESB
             TRANSPORTING RSNUM.

    REC_RKPF - NAME1       = REC_RESB - NAME1.         "仓库名称
    REC_RKPF - BDTER       = REC_RESB - BDTER.         "提货预定日
    REC_RKPF - UMWRK       = REC_RESB - UMWRK.         "仓库
    REC_RKPF - RSNUM       = REC_RESB - RSNUM.         "出库凭证
    REC_RKPF - TEL_NUMBER = REC_RESB - TEL_NUMBER.    "经销店电话
    REC_RKPF - VSBED       = C_ZZ.                   "装运条件
    REC_RKPF - PROCE       = TEXT - 018 .               "出库路径
    REC_RKPF - VGBEL       = REC_RESB - VGBEL.         "移送移管的指令传票
    REC_RKPF - STREET      = REC_RESB - STREET.        "送货地址
    REC_RKPF - WERKS       = REC_RESB - WERKS.         "提货仓库
    REC_RKPF - NAME2       = REC_RESB - NAME2.         "提货仓库名称
    REC_RKPF - ZZOP2FLG    = REC_RESB - ZZOP2FLG.      "再印刷标志位

    COLLECT REC_RKPF INTO TBL_RKPF .              "汇集移管抬头
  ENDLOOP.
* 2 - 2 - 2 项目 [ 出库路径 ] 的出力内容
  CLEAR REC_LIKP.
  LOOP AT TBL_LIKP INTO REC_LIKP.
    CASE REC_LIKP - VSBED.                           " [ 装运条件 ]
    WHEN C_01.                                     " 01 出库路径为预处理
     REC_LIKP - PROCE = TEXT - 011 .
    WHEN C_02.                                     " 02 送货
     REC_LIKP - PROCE = TEXT - 012 .
    WHEN C_03.                                     " 03 送货(无偿)
     REC_LIKP - PROCE = TEXT - 013 .
    WHEN C_04.                                     " 04 紧急送货
     REC_LIKP - PROCE = TEXT - 014 .
    WHEN C_05.                                     " 05 紧急送货(无偿)
     REC_LIKP - PROCE = TEXT - 015 .
    WHEN C_11.                                     " 11 输出
     REC_LIKP - PROCE = TEXT - 016 .
    WHEN C_31.                                     " 31 移送
     REC_LIKP - PROCE = TEXT - 017 .
    WHEN OTHERS.                                   "其它移管
     REC_LIKP - PROCE = TEXT - 018 .
   ENDCASE.
   MODIFY TBL_LIKP FROM REC_LIKP.
  ENDLOOP.
* 2 - 2 - 3 [ 装运条件 ] 是01时输出运货车号交易者号交易者名称
  PERFORM GET_TEXT.
* 2 - 2 - 4 取得机种类别
  LOOP AT TBL_LIPS INTO REC_LIPS.                 "提货 / 送货 / 移送
    PERFORM GET_LIPS_MATERIAL_TYPE.
  ENDLOOP.
  LOOP AT TBL_RESB INTO REC_RESB.                 "移管
    PERFORM GET_RESB_MATERIAL_TYPE.
  ENDLOOP.
* 2 - 2 - 5 计算印刷时间
  PERFORM GET_TIME.
   IF G_TFLG = C_1.
    G_DATE = SY - DATUM - 1 .
  ELSEIF G_TFLG = C_2.
    G_DATE = SY - DATUM + 1 .
   ELSE .
    G_DATE = SY - DATUM.
  ENDIF.
* 2 - 2 - 6 现在的页
* 2 - 2 - 7 总页数
ENDFORM.                                          " DATA_EDIT

*& -- -------------------------------------------------------------------*
*&   FORM  GET_TEXT
*&   功能: 装运条件" 01 "时输出运货车号交易者号交易者名称
*& -- -------------------------------------------------------------------*
FORM GET_TEXT.
DATA:   LO_TBL_TLINE LIKE TABLE OF TLINE.         "读取的文本行
DATA:   LO_NAME   LIKE THEAD - TDNAME.               "将要读取的文本名
DATA:   LO_REC_TLINE LIKE TLINE.                  "读取的文本行
CLEAR REC_LIKP.
* 2 - 2 - 3 装运条件" 01 "时
  LOOP AT TBL_LIKP INTO REC_LIKP.
     IF REC_LIKP - VSBED = C_01.
* 输出运货车号
       REFRESH LO_TBL_TLINE.
       LO_NAME = REC_LIKP - VBELN.                  "交货凭证号
       CALL FUNCTION ' READ_TEXT '
         EXPORTING
           CLIENT                   = SY - MANDT     "登录的客户机编号
           ID                       = C_Z001       "要读的文本的文本标识
           LANGUAGE                 = C_ZH         "将要读取的文本语言
           NAME                     = LO_NAME      "将要读取的文本名
           OBJECT                   = C_VBBK       "将要读取的文本对象
         TABLES
           LINES                    = LO_TBL_TLINE "读文本的文本标题
         EXCEPTIONS
          ID                       = 1              "无效的文本标识
          LANGUAGE                 = 2              "无效的语言
          NAME                     = 3              "无效的文本名
          NOT_FOUND                = 4              "找不到说明文本
          OBJECT                   = 5              "无效的对象名
          REFERENCE_CHECK          = 6              "参照链中断
          WRONG_ACCESS_TO_ARCHIVE = 7              "访问时存档句柄无效
          OTHERS                   = 8 .            "其他
        IF SY - SUBRC = 0 .
         LOOP AT LO_TBL_TLINE INTO LO_REC_TLINE WHERE TDLINE <> SPACE .
           REC_LIKP - Z001 = LO_REC_TLINE - TDLINE.   "运货车号
         ENDLOOP.
       ENDIF.
* 输出交易者号
       REFRESH LO_TBL_TLINE.
       LO_NAME = REC_LIKP - VBELN.
       CALL FUNCTION ' READ_TEXT '
         EXPORTING
           CLIENT                         = SY - MANDT
           ID                             = C_Z002
           LANGUAGE                       = C_ZH
           NAME                           = LO_NAME
           OBJECT                         = C_VBBK
         TABLES
           LINES                          = LO_TBL_TLINE
         EXCEPTIONS
          ID                       = 1
          LANGUAGE                 = 2
          NAME                     = 3
          NOT_FOUND                = 4
          OBJECT                   = 5
          REFERENCE_CHECK          = 6
          WRONG_ACCESS_TO_ARCHIVE = 7
          OTHERS                   = 8 .
        IF SY - SUBRC = 0 .
         LOOP AT LO_TBL_TLINE INTO LO_REC_TLINE WHERE TDLINE <> SPACE .
           REC_LIKP - Z002 = LO_REC_TLINE - TDLINE.    "交易者号
         ENDLOOP.
       ENDIF.
* 输出交易者名称
       REFRESH LO_TBL_TLINE.
       LO_NAME = REC_LIKP - VBELN.
       CALL FUNCTION ' READ_TEXT '
         EXPORTING
           CLIENT                         = SY - MANDT
           ID                             = C_Z003
           LANGUAGE                       = C_ZH
           NAME                           = LO_NAME
           OBJECT                         = C_VBBK
         TABLES
           LINES                          = LO_TBL_TLINE
         EXCEPTIONS
          ID                       = 1
          LANGUAGE                 = 2
          NAME                     = 3
          NOT_FOUND                = 4
          OBJECT                   = 5
          REFERENCE_CHECK          = 6
          WRONG_ACCESS_TO_ARCHIVE = 7
          OTHERS                   = 8 .
        IF SY - SUBRC = 0 .
         LOOP AT LO_TBL_TLINE INTO LO_REC_TLINE WHERE TDLINE <> SPACE .
           REC_LIKP - Z003 = LO_REC_TLINE - TDLINE.   "交易者名称
         ENDLOOP.
       ENDIF.
       MODIFY TBL_LIKP FROM   REC_LIKP
                TRANSPORTING Z001                 "运货车号
                             Z002                 "交易者号
                             Z003.                "交易者名称
    ENDIF.
  ENDLOOP.
ENDFORM.                                          "GET_TEXT

*& -- -------------------------------------------------------------------*
*&   FORM  GET_LIPS_MATERIAL_TYPE
*&   功能: 提货 / 送货 / 移送取得机种类别
*& -- -------------------------------------------------------------------*
FORM GET_LIPS_MATERIAL_TYPE.
* 要分类的对象码
DATA: LO_OBJKEY               LIKE BAPI1003_KEY - OBJECT,
* 分类 BAPI - 关键字字段
      LO_TBL_OBJKEY           LIKE BAPI1003_OBJECT_KEYS
                                  OCCURS 0 WITH HEADER LINE,
* 返回参数
      LO_TBL_RETURN           LIKE BAPIRET2
                                  OCCURS 0 WITH HEADER LINE,
* 分配 BAPI - NUM、DATE、TIME 类型的值
      LO_TBL_ALLOCVALUESNUM   LIKE BAPI1003_ALLOC_VALUES_NUM
                                  OCCURS 0 WITH HEADER LINE,
* 分配 BAPI - CHAR 、BOOL 类型的值
      LO_TBL_ALLOCVALUESCHAR LIKE BAPI1003_ALLOC_VALUES_CHAR
                                  OCCURS 0 WITH HEADER LINE,
* 分配 BAPI - CURR 类型值
      LO_TBL_ALLOCVALUESCURR LIKE BAPI1003_ALLOC_VALUES_CURR
                                  OCCURS 0 WITH HEADER LINE.

  LO_TBL_OBJKEY - KEY_FIELD = C_MATNR.            "MATNR
  LO_TBL_OBJKEY - VALUE_EXT = REC_LIPS - MATNR.     "品目代码
  APPEND LO_TBL_OBJKEY.
  CLEAR: LO_OBJKEY.
  CALL FUNCTION ' BAPI_OBJCL_CONCATENATEKEY '
    EXPORTING
      OBJECTTABLE     = C_MARA
    IMPORTING
      OBJECTKEY_CONC = LO_OBJKEY
    TABLES
      OBJECTKEYTABLE = LO_TBL_OBJKEY
       RETURN           = LO_TBL_RETURN.

   IF NOT LO_TBL_RETURN IS INITIAL.                "检查是否出错
     EXIT .
  ENDIF.

  CALL FUNCTION ' BAPI_OBJCL_GETDETAIL '
    EXPORTING
      OBJECTKEY        = LO_OBJKEY
      OBJECTTABLE      = C_MARA
      CLASSNUM         = C_ZCLASS_MAT
      CLASSTYPE        = C_001
    TABLES
      ALLOCVALUESNUM   = LO_TBL_ALLOCVALUESNUM
      ALLOCVALUESCHAR = LO_TBL_ALLOCVALUESCHAR
      ALLOCVALUESCURR = LO_TBL_ALLOCVALUESCURR
       RETURN            = LO_TBL_RETURN.
   READ TABLE LO_TBL_ALLOCVALUESCHAR WITH KEY CHARACT = C_TYPEC.
   IF SY - SUBRC = 0 .
    REC_LIPS - MATERIAL_TYPE = LO_TBL_ALLOCVALUESCHAR - VALUE_CHAR.
    MODIFY TBL_LIPS FROM REC_LIPS.
  ENDIF.
  REFRESH LO_TBL_OBJKEY.
ENDFORM.                                         "GET_LIPS_MATERIAL_TYPE

*& -- -------------------------------------------------------------------*
*&   FORM  GET_RESB_MATERIAL_TYPE
*&   功能: 移管取得机种类别
*& -- -------------------------------------------------------------------*
FORM GET_RESB_MATERIAL_TYPE.
* 要分类的对象码
DATA: LO_OBJKEY
         LIKE BAPI1003_KEY - OBJECT,
* 分类 BAPI - 关键字字段
      LO_TBL_OBJKEY
        LIKE BAPI1003_OBJECT_KEYS        OCCURS 0 WITH HEADER LINE,
* 返回参数
      LO_TBL_RETURN
         LIKE BAPIRET2                   OCCURS 0 WITH HEADER LINE,
* 分配 BAPI - NUM、DATE、TIME 类型的值
      LO_TBL_ALLOCVALUESNUM
         LIKE BAPI1003_ALLOC_VALUES_NUM  OCCURS 0 WITH HEADER LINE,
* 分配 BAPI - CHAR 、BOOL 类型的值
      LO_TBL_ALLOCVALUESCHAR
         LIKE BAPI1003_ALLOC_VALUES_CHAR OCCURS 0 WITH HEADER LINE,
* 分配 BAPI - CURR 类型值
      LO_TBL_ALLOCVALUESCURR
         LIKE BAPI1003_ALLOC_VALUES_CURR OCCURS 0 WITH HEADER LINE.

  LO_TBL_OBJKEY - KEY_FIELD = C_MATNR.             "MATNR
  LO_TBL_OBJKEY - VALUE_EXT = REC_RESB - MATNR.      "品目代码
  APPEND LO_TBL_OBJKEY.
  CLEAR: LO_OBJKEY.
  CALL FUNCTION ' BAPI_OBJCL_CONCATENATEKEY '
    EXPORTING
      OBJECTTABLE     = C_MARA
    IMPORTING
      OBJECTKEY_CONC = LO_OBJKEY
    TABLES
      OBJECTKEYTABLE = LO_TBL_OBJKEY
       RETURN           = LO_TBL_RETURN.

   IF NOT LO_TBL_RETURN IS INITIAL.               "检查是否出错
     EXIT .
  ENDIF.

  CALL FUNCTION ' BAPI_OBJCL_GETDETAIL '
    EXPORTING
      OBJECTKEY        = LO_OBJKEY
      OBJECTTABLE      = C_MARA
      CLASSNUM         = C_ZCLASS_MAT
      CLASSTYPE        = C_001
    TABLES
      ALLOCVALUESNUM   = LO_TBL_ALLOCVALUESNUM
      ALLOCVALUESCHAR = LO_TBL_ALLOCVALUESCHAR
      ALLOCVALUESCURR = LO_TBL_ALLOCVALUESCURR
       RETURN            = LO_TBL_RETURN.
   READ TABLE LO_TBL_ALLOCVALUESCHAR WITH KEY CHARACT = C_TYPEC.
   IF SY - SUBRC = 0 .
    REC_RESB - MATERIAL_TYPE = LO_TBL_ALLOCVALUESCHAR - VALUE_CHAR.
                                                   "特性值
    MODIFY TBL_RESB FROM REC_RESB.
  ENDIF.
  REFRESH LO_TBL_OBJKEY.
ENDFORM.                                         "GET_RESB_MATERIAL_TYPE

*& -- -------------------------------------------------------------------*
*&   FORM  GET_TIME
*&   功能: 取得对应本地时间
*& -- -------------------------------------------------------------------*
FORM GET_TIME.
  DATA: LO_TIME1 LIKE SY - UZEIT,                    "系统时间
        LO_TIME2 LIKE SY - UZEIT,                    "用户时间
        LO_TIME3 LIKE SY - UZEIT,                    "对应本地时间
        LO_UT1    LIKE TTZR - UTCSIGN,                "差别1
        LO_UT2    LIKE TTZR - UTCSIGN,                "差别2
        LO_ZONE1 LIKE TTZZ - TZONE,                  "时区1
        LO_ZONE2 LIKE USR02 - TZONE.                 "时区2
  CLEAR: G_TIME.
  CLEAR: G_TFLG.
  CALL FUNCTION ' TZON_GET_OS_TIMEZONE '
   IMPORTING
     EF_TIMEZONE          = LO_ZONE1.               "时区1
* 取得标准时间
  PERFORM GET_TIME1
            USING
              LO_ZONE1                             "时区1
            CHANGING
              LO_TIME1                             "系统时间
              LO_UT1.                              "差别1
   SELECT SINGLE TZONE
     INTO LO_ZONE2
     FROM USR02
    WHERE BNAME = SY - UNAME.                         "用户名称
   IF LO_ZONE2 = SPACE .
    LO_ZONE2 = C_UTC8.                             "时区2
  ENDIF.
* 取得标准时间
  PERFORM GET_TIME1
            USING
              LO_ZONE2                             "时区2
            CHANGING
              LO_TIME2                             "用户时间
              LO_UT2.                              "差别2

DEFINE TIME.
  LO_TIME3 = SY - UZEIT & 1 LO_TIME1 & 2 LO_TIME2.     "对应本地时间
END - OF - DEFINITION.
   IF LO_UT1 = C_A AND LO_UT2 = C_A.
    TIME - + .
     IF LO_TIME3 > SY - UZEIT.
      G_TFLG = C_1.
    ENDIF.
  ELSEIF LO_UT1 = C_A AND LO_UT2 = C_D.
    TIME - - .
     IF LO_TIME3 > SY - UZEIT.
      G_TFLG = C_1.
    ENDIF.
  ELSEIF LO_UT1 = C_D AND LO_UT2 = C_A.
    TIME + + .
     IF LO_TIME3 < SY - UZEIT.
      G_TFLG = C_2.
    ENDIF.
  ELSEIF LO_UT1 = C_D AND LO_UT2 = C_D.
    TIME + - .
     IF LO_TIME3 < SY - UZEIT.
      G_TFLG = C_2.
    ENDIF.
  ENDIF.
  G_TIME = LO_TIME3.
ENDFORM.                                          "GET_TIME

*& -- -------------------------------------------------------------------*
*&   FORM  GET_TIME1
*&   功能: 取得标准时间
*& -- -------------------------------------------------------------------*
*        -- >P_ZONE  时区
*        < -- P_TIME  时间
*        < -- P_UT    差别
* -- --------------------------------------------------------------------*
FORM GET_TIME1
       USING
         P_ZONE
       CHANGING
         P_TIME
         P_UT.
  DATA: LO_ZONERULE LIKE TTZZ - ZONERULE.           "时区规则
   SELECT SINGLE ZONERULE
     INTO LO_ZONERULE
     FROM TTZZ
    WHERE TZONE = P_ZONE.
   SELECT SINGLE UTCDIFF
         UTCSIGN
     INTO (P_TIME,P_UT)
     FROM TTZR
    WHERE ZONERULE = LO_ZONERULE.

ENDFORM.                                          " GET_TIME1

*& -- -------------------------------------------------------------------*
*&   FORM  WRITE_SAPSCRIPT
*&   功能: 帐票输出
*& -- -------------------------------------------------------------------*
FORM WRITE_SAPSCRIPT.
DATA: LO_LINE       TYPE I,                       "条目计数
      LO_TITLE( 15 )  TYPE C,                       "当前标题
      LO_HEAD( 15 )   TYPE C,                       "当前头部
      LO_INDEX      TYPE I VALUE 0 ,               "指示变量
      LO_REC_OPTIONS LIKE   ITCPO.                 "打印选项
      LO_REC_OPTIONS - TDDEST     = PA_PDEST.        "输出设备
      LO_REC_OPTIONS - TDIMMED    = C_X.             "立即打印
      LO_REC_OPTIONS - TDDELETE   = SPACE .           "打印后立即删除
      LO_REC_OPTIONS - TDNEWID    = C_X.             "新打印请求
      LO_REC_OPTIONS - TDPREVIEW = C_X.             "打印预览
* 2 - 3 - 1排序
  SORT TBL_LIKP BY VBELN ASCENDING
                   VSBED ASCENDING.
  SORT TBL_LIPS BY MATNR ASCENDING.
  SORT TBL_RESB BY RSNUM ASCENDING
                   MATNR ASCENDING.
  SORT TBL_RKPF BY RSNUM ASCENDING.
* 2 - 3 - 2帐票出力
* 打开文档格式
   PERFORM FORM_OPEN
             USING
               C_SAPSCRIPT_ID                    "表格名称
               C_ZH                              "语言
               LO_REC_OPTIONS.                   "打印机选项
* 送货 / 提货 / 移送输出
  LOOP AT TBL_LIKP INTO REC_LIKP.
     IF LO_INDEX <> 0 .                            "是否为第1页
      PERFORM FORM_CONTROL
                USING
                   ' NEW-PAGE ' .
    ENDIF.
    LO_INDEX = LO_INDEX + 1 .
    LO_LINE = 0 .
     IF REC_LIKP - ZZOP2FLG IS INITIAL.
      G_ZZOP2FLGCHAR = SPACE .
     ELSE .
      G_ZZOP2FLGCHAR = TEXT - 020 .                  "再印刷
    ENDIF.
     CASE REC_LIKP - VSBED.                          "装运条件
* 2 - 3 - 2 - 1 [ 装运条件 ] 为常量01场合   提货格式输出
       WHEN C_01.
        PERFORM FORM_WRITE
                  USING
                     ' E_TITLE_T '                   "提货单标题
                     ' HEAD ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD '
                     ' MAIN ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD_T '                     "提货单抬头
                     ' MAIN ' .
        LO_TITLE = ' E_TITLE_T ' .
        LO_HEAD   = ' E_HEAD_T ' .
* 2 - 3 - 2 - 2 [ 装运条件 ] 为常量02 / 03 / 04 / 05 / 11场合   送货格式输出
       WHEN C_02 OR
           C_03 OR
           C_04 OR
           C_05 OR
           C_11.
        PERFORM FORM_WRITE
                  USING
                     ' E_TITLE_S '                    "送货单标题
                     ' HEAD ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD '
                     ' MAIN ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD_S '                     "送货单抬头
                     ' MAIN ' .
        LO_TITLE = ' E_TITLE_S ' .
        LO_HEAD   = ' E_HEAD_S ' .
       WHEN C_31.
* 2 - 3 - 2 - 2 [ 装运条件 ] 为常量31场合   送货格式输出
        PERFORM FORM_WRITE
                  USING
                     ' E_TITLE_S '                   "送货单标题
                     ' HEAD ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD '
                     ' MAIN ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD_YS '                    "移送单抬头
                     ' MAIN ' .
        LO_TITLE = ' E_TITLE_S ' .
        LO_HEAD = ' E_HEAD_YS ' .
       WHEN OTHERS.                                "其它场合
        PERFORM FORM_WRITE
                  USING
                     ' E_TITLE_S '
                     ' HEAD ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD '
                     ' MAIN ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD_YS '
                     ' MAIN ' .
        LO_TITLE = ' E_TITLE_YS ' .
        LO_HEAD   = ' E_HEAD_YS ' .
    ENDCASE.
    PERFORM FORM_WRITE
              USING
                 ' E_ITEM_HEAD '
                 ' MAIN ' .                           "明细头名称
    G_LINE = ' 5.2 ' .
    DO 29 TIMES.                                  "画29行明细表格行
      PERFORM FORM_WRITE
                USING
                   ' E_ITEM_BODY '
                   ' MAIN ' .
      G_LINE = G_LINE + 1 .
    ENDDO.
* 详细信息输出
    CLEAR REC_LIPS.
    LOOP AT TBL_LIPS INTO REC_LIPS
       WHERE VBELN = REC_LIKP - VBELN.               "与抬头对应的明细
        IF LO_LINE >= 29 .                          "数据明细行大于29,分页
         LO_LINE = 0 .
         PERFORM FORM_WRITE
                   USING
                      ' E_ITEM_FOOT '
                      ' MAIN ' .                      "当前页提货仓库
         PERFORM FORM_WRITE
                   USING
                      ' E_FOOT '
                      ' FOOT ' .                      "打印当前页页脚
         PERFORM FORM_CONTROL
                   USING
                      ' NEW-PAGE ' .                  "新建页
         PERFORM FORM_WRITE
                   USING
                     LO_TITLE
                      ' HEAD ' .                      "上一页标题信息
         PERFORM FORM_WRITE
                   USING
                      ' E_HEAD '
                      ' MAIN ' .
         PERFORM FORM_WRITE
                   USING
                     LO_HEAD
                      ' MAIN ' .                      "上一页头部信息
         PERFORM FORM_WRITE
                   USING
                      ' E_ITEM_HEAD '
                      ' MAIN ' .                      "明细头名称
         G_LINE = ' 5.2 ' .
         DO 29 TIMES.
           PERFORM FORM_WRITE
                     USING
                        ' E_ITEM_BODY '
                        ' MAIN ' .                    "画表格行
           G_LINE = G_LINE + 1 .                   "表格行加1
         ENDDO.
       ENDIF.
       PERFORM FORM_WRITE
                 USING
                    ' E_ITEM_DATA '                   "打印一条明细
                    ' MAIN ' .
       LO_LINE = LO_LINE + 1 .                     "明细行加1
    ENDLOOP.
    PERFORM FORM_WRITE
              USING
                 ' E_ITEM_FOOT '
                 ' MAIN ' .                           "打印提货仓库
    PERFORM FORM_WRITE
              USING
                 ' E_FOOT '
                 ' FOOT ' .                           "打印页脚
  ENDLOOP.

* 移管输出
  LOOP AT TBL_RKPF INTO REC_RKPF.
     IF LO_INDEX <> 0 .
      PERFORM FORM_CONTROL
                USING
                   ' NEW-PAGE ' .
    ENDIF.
    LO_INDEX = LO_INDEX + 1 .
    LO_LINE = 0 .
     IF REC_RKPF - ZZOP2FLG IS INITIAL.              "再印刷标志
      G_ZZOP2FLGCHAR = SPACE .
     ELSE .
      G_ZZOP2FLGCHAR = TEXT - 020 .                  " [ 再印刷 ]
    ENDIF.
    PERFORM FORM_WRITE
              USING
                 ' E_TITLE_S '                        "送货单标题
                 ' HEAD ' .
    PERFORM FORM_WRITE
              USING
                 ' E_HEAD '                           "抬头方框
                 ' MAIN ' .
    PERFORM FORM_WRITE
              USING
                 ' E_HEAD_YG '                        "移管抬头数据
                 ' MAIN ' .
    PERFORM FORM_WRITE
              USING
                 ' E_ITEM_HEAD '                       "明细头名称
                 ' MAIN ' .
* 打印29行明细条目框
    G_LINE = ' 5.2 ' .
    DO 29 TIMES.
      PERFORM FORM_WRITE
                USING
                   ' E_ITEM_BODY '
                   ' MAIN ' .
      G_LINE = G_LINE + 1 .
    ENDDO.
    G_LINE = ' 5.2 ' .
* 详细信息输出
    CLEAR REC_RESB.
    LOOP AT TBL_RESB INTO REC_RESB
       WHERE RSNUM = REC_RKPF - RSNUM.
        IF LO_LINE >= 29 .
         LO_LINE = 0 .
        PERFORM FORM_WRITE
                  USING
                     ' E_ITEM_FOOT_YG '
                     ' MAIN ' .                        "当前页提货仓库
        PERFORM FORM_WRITE
                  USING
                     ' E_FOOT '
                     ' FOOT ' .                        "打印当前页页脚
        PERFORM FORM_CONTROL
                  USING
                     ' NEW-PAGE ' .                    "新建页
        PERFORM FORM_WRITE
                  USING
                     ' E_TITLE_S '                     "标题
                     ' HEAD ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD '                        "抬头方框
                     ' MAIN ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_HEAD_YG '                     "抬头数据
                     ' MAIN ' .
        PERFORM FORM_WRITE
                  USING
                     ' E_ITEM_HEAD '
                     ' MAIN ' .                        "明细头名称
         G_LINE = ' 5.2 ' .
         DO 29 TIMES.
           PERFORM FORM_WRITE
                     USING
                        ' E_ITEM_BODY '
                        ' MAIN ' .
           G_LINE = G_LINE + 1 .
         ENDDO.
         G_LINE = ' 5.2 ' .
       ENDIF.
       PERFORM FORM_WRITE
                 USING
                    ' E_ITEM_DATA_YG '
                    ' MAIN ' .                        "打印一条移管数据
       LO_LINE = LO_LINE + 1 .                     "数据行加1
    ENDLOOP.
    PERFORM FORM_WRITE
              USING
                 ' E_ITEM_FOOT_YG '
                 ' MAIN ' .                           "打印提货仓库
    PERFORM FORM_WRITE
              USING
                 ' E_FOOT '
                 ' FOOT ' .                           "打印页脚
  ENDLOOP.

  PERFORM FORM_CLOSE.                             "关闭文档格式
ENDFORM.                                          " WRITE_SAPSCRIPT

*& -- -------------------------------------------------------------------*
*&   FORM  FORM_OPEN
*&   功能: 打开文档格式
*& -- -------------------------------------------------------------------*
*     -- >  I_FORM_NAME       FORM的ID
*     -- >  I_LANGUAGE        语言
*     -- >  I_OPTIONS         打印机选项
* -- --------------------------------------------------------------------*
FORM FORM_OPEN
       USING
         I_FORM_NAME TYPE ANY
         I_LANGUAGE  TYPE ANY
         I_OPTIONS   TYPE ANY .
CALL FUNCTION ' OPEN_FORM '
   EXPORTING
     FORM                               = I_FORM_NAME
     LANGUAGE                           = I_LANGUAGE
     OPTIONS                            = I_OPTIONS
   EXCEPTIONS
     CANCELED                           = 1
     DEVICE                             = 2
     FORM                               = 3
     OPTIONS                            = 4
     UNCLOSED                           = 5
     MAIL_OPTIONS                       = 6
     ARCHIVE_ERROR                      = 7
     INVALID_FAX_NUMBER                 = 8
     MORE_PARAMS_NEEDED_IN_BATCH        = 9
     SPOOL_ERROR                        = 10
     CODEPAGE                           = 11
     OTHERS                             = 12 .
   IF SY - SUBRC <> 0 .                               "出现异常报系统消息
   MESSAGE ID SY - MSGID TYPE SY - MSGTY NUMBER SY - MSGNO
            WITH SY - MSGV1 SY - MSGV2 SY - MSGV3 SY - MSGV4.
  ENDIF.

ENDFORM.                                          " FORM_OPEN
*& -- -------------------------------------------------------------------*
*&   FORM  FORM_WRITE
*&   功能: 指定WINDOW ELEMENT输出到当前打开的FORM
*& -- -------------------------------------------------------------------*
*     -- >  I_ELEMENT_NAME     文本元素名称
*     -- >  I_WINDOW_NAME      页窗口名称
* -- --------------------------------------------------------------------*
FORM FORM_WRITE USING I_ELEMENT_NAME TYPE ANY
                      I_WINDOW_NAME  TYPE ANY .
  CALL FUNCTION ' WRITE_FORM '
    EXPORTING
      ELEMENT                         = I_ELEMENT_NAME
      WINDOW                          = I_WINDOW_NAME
      EXCEPTIONS
      ELEMENT                         = 1
       FUNCTION                         = 2
      TYPE                            = 3
      UNOPENED                        = 4
      UNSTARTED                       = 5
      WINDOW                          = 6
      BAD_PAGEFORMAT_FOR_PRINT        = 7
      SPOOL_ERROR                     = 8
      CODEPAGE                        = 9
      OTHERS                          = 10 .
   IF SY - SUBRC <> 0 .                               "出现异常报系统消息
    MESSAGE ID SY - MSGID TYPE SY - MSGTY NUMBER SY - MSGNO
             WITH SY - MSGV1 SY - MSGV2 SY - MSGV3 SY - MSGV4.
  ENDIF.
ENDFORM.                                          "FORM_WRITE
*& -- -------------------------------------------------------------------*
*&   FORM  FORM_CLOSE
*&   功能: 关闭文档格式
*& -- -------------------------------------------------------------------*
FORM FORM_CLOSE.
  CALL FUNCTION ' CLOSE_FORM '
    EXCEPTIONS
      UNOPENED                        = 1
      BAD_PAGEFORMAT_FOR_PRINT        = 2
      SEND_ERROR                      = 3
      SPOOL_ERROR                     = 4
      CODEPAGE                        = 5
      OTHERS                          = 6 .
   IF SY - SUBRC <> 0 .                               "出现异常报系统消息
    MESSAGE ID SY - MSGID TYPE SY - MSGTY NUMBER SY - MSGNO
             WITH SY - MSGV1 SY - MSGV2 SY - MSGV3 SY - MSGV4.
  ENDIF.
ENDFORM.                                          "FORM_CLOSE

*& -- -------------------------------------------------------------------*
*&   FORM  FORM_CONTROL
*&   功能: FROM控制
*& -- -------------------------------------------------------------------*
*     -- >  I_COMMAND     FORM命令
* -- --------------------------------------------------------------------*
FORM FORM_CONTROL
       USING
         I_COMMAND TYPE ANY .
CALL FUNCTION ' CONTROL_FORM '
               EXPORTING
                    COMMAND = I_COMMAND
               EXCEPTIONS
                 UNOPENED         = 1
                 UNSTARTED        = 2
                 OTHERS           = 3 .
    IF SY - SUBRC <> 0 .                             "出现异常报系统消息
     MESSAGE ID SY - MSGID TYPE SY - MSGTY NUMBER SY - MSGNO
      WITH SY - MSGV1 SY - MSGV2 SY - MSGV3 SY - MSGV4.
   ENDIF.
ENDFORM.                                         "FORM_CONTROL
*& -- -------------------------------------------------------------------*
*&   FORM  WRITE_SMARTFORM
*&   功能: SMARTFROM输出
*& -- -------------------------------------------------------------------*
FORM WRITE_SMARTFORM.
  DATA LO_RS38L_FNAM TYPE RS38L_FNAM.            "SMARTFORMS文件名
  SORT TBL_LIKP BY VBELN.                        "对内部表TBL_LIKP排序
  SORT TBL_RKPF BY RSNUM.                        "对内部表TBL_RKPF排序

  CONCATENATE C_SMARTFORM_ID                     "SMARTFORM名称
              C_LIKP                             "表名LIKP
              SY - UZEIT                           "当前时间
          INTO G_LIKP.                            "生成标记ID
  REC_INDX - AEDAT = SY - DATUM.                     "SYST日期
  REC_INDX - USERA = SY - UNAME.                     "用户名
  REC_INDX - PGMID = SY - REPID.                     "ABAP 程序名
  EXPORT TBL_LIKP []                               "把内表存入数据库缓存
       TO DATABASE INDX(HK)                       "EXPORT 数据表中的区域
      ID G_LIKP                                  "INDX中用户 - 定义关键字
     FROM REC_INDX.

  CONCATENATE C_SMARTFORM_ID                     "SMARTFORM名称
              C_LIPS                             "表名LIPS
              SY - UZEIT                           "当前时间
          INTO G_LIPS.                            "生成标记ID
  REC_INDX - AEDAT = SY - DATUM.                     "SYST日期
  REC_INDX - USERA = SY - UNAME.                     "用户名
  REC_INDX - PGMID = SY - REPID.                     "ABAP 程序名
  EXPORT TBL_LIPS []                               "把内表存入数据库缓存
       TO DATABASE INDX(HK)                       "EXPORT 数据表中的区域
      ID G_LIPS                                  "INDX中用户 - 定义关键字
     FROM REC_INDX.

  CONCATENATE C_SMARTFORM_ID                     "SMARTFORM名称
              C_RKPF                             "表名RKPF
              SY - UZEIT                           "当前时间
          INTO G_RKPF.                            "生成标记ID
  REC_INDX - AEDAT = SY - DATUM.                     "SYST日期
  REC_INDX - USERA = SY - UNAME.                     "用户名
  REC_INDX - PGMID = SY - REPID.                     "ABAP 程序名
  EXPORT TBL_RKPF []                               "把内表存入数据库缓存
       TO DATABASE INDX(HK)                       "EXPORT 数据表中的区域
      ID G_RKPF                                  "INDX中用户 - 定义关键字
     FROM REC_INDX.

  CONCATENATE C_SMARTFORM_ID                     "SMARTFORM名称
              C_RESB                             "表名RESB
              SY - UZEIT                           "当前时间
          INTO G_RESB.                            "生成标记ID
  REC_INDX - AEDAT = SY - DATUM.                     "SYST日期
  REC_INDX - USERA = SY - UNAME.                     "用户名
  REC_INDX - PGMID = SY - REPID.                     "ABAP 程序名
  EXPORT TBL_RESB []                               "把内表存入数据库缓存
       TO DATABASE INDX(HK)                       "EXPORT 数据表中的区域
      ID G_RESB                                  "INDX中用户 - 定义关键字
     FROM REC_INDX.

  CALL FUNCTION ' SSF_FUNCTION_MODULE_NAME '
    EXPORTING
      FORMNAME                  = ' ZMMR001_A140 '   "SMARTFORMS程序名
   IMPORTING
      FM_NAME                   = LO_RS38L_FNAM   "对应的函数名
   EXCEPTIONS
     NO_FORM                    = 1
     NO_FUNCTION_MODULE         = 2
     OTHERS                     = 3 .
   IF SY - SUBRC <> 0 .                              "出现异常报系统消息
    MESSAGE ID SY - MSGID TYPE SY - MSGTY NUMBER SY - MSGNO
             WITH SY - MSGV1 SY - MSGV2 SY - MSGV3 SY - MSGV4.
  ENDIF.

  CALL FUNCTION LO_RS38L_FNAM
  EXPORTING
      P_LIKP                    = G_LIKP          "TBL_LIKP对应的ID
      P_LIPS                    = G_LIPS          "TBL_LIPS对应的ID
      P_RKPF                    = G_RKPF          "TBL_RKPF对应的ID
      P_RESB                    = G_RESB          "TBL_RESB对应的ID
   EXCEPTIONS
     FORMATTING_ERROR           = 1
     INTERNAL_ERROR             = 2
     SEND_ERROR                 = 3
     USER_CANCELED              = 4
     OTHERS                     = 5
            .
   IF SY - SUBRC <> 0 .                              "出现异常报系统消息
    MESSAGE ID SY - MSGID TYPE SY - MSGTY NUMBER SY - MSGNO
             WITH SY - MSGV1 SY - MSGV2 SY - MSGV3 SY - MSGV4.
  ENDIF.

   DELETE FROM DATABASE INDX(HK) ID G_LIKP.        "删除缓存数据TBL_LIKP
   DELETE FROM DATABASE INDX(HK) ID G_LIPS.        "删除缓存数据TBL_LIPS
   DELETE FROM DATABASE INDX(HK) ID G_LIKP.        "删除缓存数据TBL_RKPF
   DELETE FROM DATABASE INDX(HK) ID G_LIPS.        "删除缓存数据TBL_RESB
ENDFORM.                                          "WRITE_SMARTFORM

*& -- -------------------------------------------------------------------*
*&   FORM  PROCESS_END
*&   功能: 打印完毕后，确定已打印标志,更新数据库
*& -- -------------------------------------------------------------------*
FORM PROCESS_END.
  LOOP AT TBL_LIKP INTO REC_LIKP.
     UPDATE LIPS                                   "确定LIPS中已打印标志
     SET ZZOP2FLG = C_X
     WHERE VBELN = REC_LIKP - VBELN.
  ENDLOOP.
  LOOP AT TBL_RESB INTO REC_RESB.
     UPDATE RESB                                   "确定RESB中已打印标志
     SET ZZOP2FLG = C_X
     WHERE RSNUM = REC_RESB - RSNUM.
  ENDLOOP.
ENDFORM.                                         "PROCESS_END

你可能感兴趣的:(代码)

element实现动态路由+面包屑软件技术NINI vue案例 vue.js 前端
el-breadcrumb是ElementUI组件库中的一个面包屑导航组件，它用于显示当前页面的路径，帮助用户快速理解和导航到应用的各个部分。在Vue.js项目中，如果你已经安装了ElementUI，就可以很方便地使用el-breadcrumb组件。以下是一个基本的使用示例：安装ElementUI（如果你还没有安装的话）:你可以通过npm或yarn来安装ElementUI。bash复制代码npmi
C语言如何定义宏函数？小九格物 c语言
在C语言中，宏函数是通过预处理器定义的，它在编译之前替换代码中的宏调用。宏函数可以模拟函数的行为，但它们不是真正的函数，因为它们在编译时不会进行类型检查，也不会分配存储空间。宏函数的定义通常使用#define指令，后面跟着宏的名称和参数列表，以及宏展开后的代码。宏函数的定义方式：1.基本宏函数：这是最简单的宏函数形式，它直接定义一个表达式。#defineSQUARE(x)((x)*(x))2.带参
html 中如何使用 uniapp 的部分方法某公司摸鱼前端 html uni-app 前端
示例代码：Documentconsole.log(window);效果展示：好了，现在就可以uni.使用相关的方法了
回溯 Leetcode 332 重新安排行程 mmaerd Leetcode刷题学习记录 leetcode 算法职场和发展
重新安排行程Leetcode332学习记录自代码随想录给你一份航线列表tickets，其中tickets[i]=[fromi,toi]表示飞机出发和降落的机场地点。请你对该行程进行重新规划排序。所有这些机票都属于一个从JFK（肯尼迪国际机场）出发的先生，所以该行程必须从JFK开始。如果存在多种有效的行程，请你按字典排序返回最小的行程组合。例如，行程[“JFK”,“LGA”]与[“JFK”,“LGB
Pyecharts数据可视化大屏：打造沉浸式数据分析体验我的运维人生信息可视化数据分析数据挖掘运维开发技术共享
Pyecharts数据可视化大屏：打造沉浸式数据分析体验在当今这个数据驱动的时代，如何将海量数据以直观、生动的方式展现出来，成为了数据分析师和企业决策者关注的焦点。Pyecharts，作为一款基于Python的开源数据可视化库，凭借其丰富的图表类型、灵活的配置选项以及高度的定制化能力，成为了构建数据可视化大屏的理想选择。本文将深入探讨如何利用Pyecharts打造数据可视化大屏，并通过实际代码案例
将cmd中命令输出保存为txt文本文件落难Coder Windows cmd window
最近深度学习本地的训练中我们常常要在命令行中运行自己的代码，无可厚非，我们有必要保存我们的炼丹结果，但是复制命令行输出到txt是非常麻烦的，其实Windows下的命令行为我们提供了相应的操作。其基本的调用格式就是：运行指令>输出到的文件名称或者具体保存路径测试下，我打开cmd并且ping一下百度：pingwww.baidu.com>./data.txt看下相同目录下data.txt的输出：如果你再
基于社交网络算法优化的二维最大熵图像分割智能算法研学社（Jack旭）智能优化算法应用图像分割算法 php 开发语言
智能优化算法应用：基于社交网络优化的二维最大熵图像阈值分割-附代码文章目录智能优化算法应用：基于社交网络优化的二维最大熵图像阈值分割-附代码1.前言2.二维最大熵阈值分割原理3.基于社交网络优化的多阈值分割4.算法结果：5.参考文献：6.Matlab代码摘要：本文介绍基于最大熵的图像分割，并且应用社交网络算法进行阈值寻优。1.前言阅读此文章前，请阅读《图像分割：直方图区域划分及信息统计介绍》htt
关于提高复杂业务逻辑代码可读性的思考编程经验分享开发经验 java 数据库开发语言
目录前言需求场景常规写法拆分方法领域对象总结前言实际工作中大部分时间都是在写业务逻辑，一般都是三层架构，表示层（Controller）接收客户端请求，并对入参做检验，业务逻辑层（Service）负责处理业务逻辑，一般开发都是在这一层中写具体的业务逻辑。数据访问层（Dao）是直接和数据库交互的，用于查数据给业务逻辑层，或者是将业务逻辑层处理后的数据写入数据库。简单的增删改查接口不用多说，基本上写好一
DIV+CSS+JavaScript技术制作网页（旅游主题网页设计与制作）云南大理 STU学生网页设计网页设计期末网页作业 html静态网页 html5期末大作业网页设计 web大作业
️精彩专栏推荐作者主页:【进入主页—获取更多源码】web前端期末大作业：【HTML5网页期末作业(1000套)】程序员有趣的告白方式：【HTML七夕情人节表白网页制作(110套)】文章目录二、网站介绍三、网站效果▶️1.视频演示2.图片演示四、网站代码HTML结构代码CSS样式代码五、更多源码二、网站介绍网站布局方面：计划采用目前主流的、能兼容各大主流浏览器、显示效果稳定的浮动网页布局结构。网站程
使用Faiss进行高效相似度搜索 llzwxh888 faiss python
在现代AI应用中，快速和高效的相似度搜索是至关重要的。Faiss（FacebookAISimilaritySearch）是一个专门用于快速相似度搜索和聚类的库，特别适用于高维向量。本文将介绍如何使用Faiss来进行相似度搜索，并结合Python代码演示其基本用法。什么是Faiss？Faiss是一个由FacebookAIResearch团队开发的开源库，主要用于高维向量的相似性搜索和聚类。Faiss
数组去重好奇的猫猫猫
整理自js中基础数据结构数组去重问题思考？如何去除数组中重复的项例如数组：[1,3,4,3,5]我们在做去重的时候，一开始想到的肯定是，逐个比较，外面一层循环，内层后一个与前一个一比较，如果是久不将当前这一项放进新的数组，挨个比较完之后返回一个新的去过重复的数组不好的实践方式上述方法效率极低，代码量还多，思考？有没有更好的方法这时候不禁一想当然有了！！！hashtable啊，通过对象的hash办法
GitHub上克隆项目 bigbig猩猩 github
从GitHub上克隆项目是一个简单且直接的过程，它允许你将远程仓库中的项目复制到你的本地计算机上，以便进行进一步的开发、测试或学习。以下是一个详细的步骤指南，帮助你从GitHub上克隆项目。一、准备工作1.安装Git在克隆GitHub项目之前，你需要在你的计算机上安装Git工具。Git是一个开源的分布式版本控制系统，用于跟踪和管理代码变更。你可以从Git的官方网站（https://git-scm.
Day1笔记-Python简介&标识符和关键字&输入输出 ~在杰难逃~ Python python 开发语言大数据数据分析数据挖掘
大家好，从今天开始呢，杰哥开展一个新的专栏，当然，数据分析部分也会不定时更新的，这个新的专栏主要是讲解一些Python的基础语法和知识，帮助0基础的小伙伴入门和学习Python，感兴趣的小伙伴可以开始认真学习啦！一、Python简介【了解】1.计算机工作原理编程语言就是用来定义计算机程序的形式语言。我们通过编程语言来编写程序代码，再通过语言处理程序执行向计算机发送指令，让计算机完成对应的工作，编程
【JS】执行时长(100分) |思路参考+代码解析（C++） l939035548 JS 算法数据结构 c++
题目为了充分发挥GPU算力，需要尽可能多的将任务交给GPU执行，现在有一个任务数组，数组元素表示在这1秒内新增的任务个数且每秒都有新增任务。假设GPU最多一次执行n个任务，一次执行耗时1秒，在保证GPU不空闲情况下，最少需要多长时间执行完成。题目输入第一个参数为GPU一次最多执行的任务个数，取值范围[1,10000]第二个参数为任务数组长度，取值范围[1,10000]第三个参数为任务数组，数字范围
ARM中断处理过程落汤老狗嵌入式linux
一、前言本文主要以ARM体系结构下的中断处理为例，讲述整个中断处理过程中的硬件行为和软件动作。具体整个处理过程分成三个步骤来描述：1、第二章描述了中断处理的准备过程2、第三章描述了当发生中的时候，ARM硬件的行为3、第四章描述了ARM的中断进入过程4、第五章描述了ARM的中断退出过程本文涉及的代码来自3.14内核。另外，本文注意描述ARM指令集的内容，有些sourcecode为了简短一些，删除了T
Python 实现图片裁剪（附代码） | Python工具剑客阿良_ALiang
前言本文提供将图片按照自定义尺寸进行裁剪的工具方法，一如既往的实用主义。环境依赖ffmpeg环境安装，可以参考我的另一篇文章：windowsffmpeg安装部署_阿良的博客-CSDN博客本文主要使用到的不是ffmpeg，而是ffprobe也在上面这篇文章中的zip包中。ffmpy安装：pipinstallffmpy-ihttps://pypi.douban.com/simple代码不废话了，上代码
【华为OD技术面试真题 - 技术面】- python八股文真题题库（4) 算法大师华为od 面试 python
华为OD面试真题精选专栏：华为OD面试真题精选目录:2024华为OD面试手撕代码真题目录以及八股文真题目录文章目录华为OD面试真题精选**1.Python中的`with`**用途和功能自动资源管理示例：文件操作上下文管理协议示例代码工作流程解析优点2.\_\_new\_\_和**\_\_init\_\_**区别__new____init__区别总结3.**切片（Slicing）操作**基本切片语法
【华为OD技术面试真题 - 技术面】-测试八股文真题题库（1）算法大师华为od 面试 python 算法前端
华为OD面试真题精选专栏：华为OD面试真题精选目录:2024华为OD面试手撕代码真题目录以及八股文真题目录文章目录华为OD面试真题精选1.黑盒测试和白盒测试的区别2.假设我们公司现在开发一个类似于微信的软件1.0版本，现在要你测试这个功能：打开聊天窗口，输入文本，限制字数在200字以内。问你怎么提取测试点。功能测试性能测试安全性测试可用性测试跨平台兼容性测试网络环境测试3.接口测试的工具你了解哪些
python os 环境变量 CV矿工 python 开发语言 numpy
环境变量：环境变量是程序和操作系统之间的通信方式。有些字符不宜明文写进代码里，比如数据库密码，个人账户密码，如果写进自己本机的环境变量里，程序用的时候通过os.environ.get（）取出来就行了。os.environ是一个环境变量的字典。环境变量的相关操作importos"""设置/修改环境变量：os.environ[‘环境变量名称’]=‘环境变量值’#其中key和value均为string类
Python爬虫解析工具之xpath使用详解 eqa11 python 爬虫开发语言
文章目录Python爬虫解析工具之xpath使用详解一、引言二、环境准备1、插件安装2、依赖库安装三、xpath语法详解1、路径表达式2、通配符3、谓语4、常用函数四、xpath在Python代码中的使用1、文档树的创建2、使用xpath表达式3、获取元素内容和属性五、总结Python爬虫解析工具之xpath使用详解一、引言在Python爬虫开发中，数据提取是一个至关重要的环节。xpath作为一门
01-Git初识 Meereen Git git
01-Git初识概念：一个免费开源，分布式的代码版本控制系统，帮助开发团队维护代码作用：记录代码内容。切换代码版本，多人开发时高效合并代码内容如何学：个人本机使用：Git基础命令和概念多人共享使用：团队开发同一个项目的代码版本管理Git配置用户信息配置：用户名和邮箱，应用在每次提交代码版本时表明自己的身份命令：查看git版本号git-v配置用户名gitconfig--globaluser.name
【PG】常见数据库、表属性设置江无羡数据库
PG的常见属性配置方法数据库复制、备份相关表的复制标识单表操作批量表操作链接数据库复制、备份相关表的复制标识单表操作通过ALTER语句单独更改一张表的复制标识。ALTERTABLE[tablename]REPLICAIDENTITYFULL;批量表操作通过代码块的方式，对某个schema中的所有表一起更新其复制标识。SELECTtablename,CASErelreplidentWHEN'd'TH
【Git】常见命令(仅笔记) 好想有猫猫 Git Linux学习笔记 git 笔记 elasticsearch linux c++
文章目录创建/初始化本地仓库添加本地仓库配置项提交文件查看仓库状态回退仓库查看日志分支删除文件暂存工作区代码远程仓库使用`.gitigore`文件让git不追踪一些文件标签创建/初始化本地仓库gitinit添加本地仓库配置项gitconfig-l#以列表形式显示配置项gitconfiguser.name"ljh"#配置user.namegitconfiguser.email"[email protected]
【华为OD技术面试真题 - 技术面】- python八股文真题题库（1）算法大师华为od 面试 python
华为OD面试真题精选专栏：华为OD面试真题精选目录:2024华为OD面试手撕代码真题目录以及八股文真题目录文章目录华为OD面试真题精选1.数据预处理流程数据预处理的主要步骤工具和库2.介绍线性回归、逻辑回归模型线性回归（LinearRegression）模型形式：关键点：逻辑回归（LogisticRegression）模型形式：关键点：参数估计与评估：3.python浅拷贝及深拷贝浅拷贝（Shal
在Ubuntu中编译含有JSON的文件出现报错芝麻糊76 Linux kill_bug linux ubuntu json
在ubuntu中进行JSON相关学习的时候，我发现了一些小问题，决定与大家进行分享，减少踩坑时候出现不必要的时间耗费截取部分含有JSON部分的代码进行展示char*str="{\"title\":\"JSONExample\",\"author\":{\"name\":\"JohnDoe\",\"age\":35,\"isVerified\":true},\"tags\":[\"json\",\"
ES聚合分析原理与代码实例讲解光剑书架上的书大厂Offer收割机面试题简历程序员读书硅基计算碳基计算认知计算生物计算深度学习神经网络大数据 AIGC AGI LLM Java Python 架构设计 Agent 程序员实现财富自由
ES聚合分析原理与代码实例讲解1.背景介绍1.1问题的由来在大规模数据分析场景中，特别是在使用Elasticsearch（ES）进行数据存储和检索时，聚合分析成为了一个至关重要的功能。聚合分析允许用户对数据集进行细分和分组，以便深入探索数据的结构和模式。这在诸如实时监控、日志分析、业务洞察等领域具有广泛的应用。1.2研究现状目前，ES聚合分析已经成为现代大数据平台的核心组件之一。它支持多种类型的聚
ios GCD _Waiting_
1.GCD任务和队列学习GCD之前，先来了解GCD中两个核心概念：任务和队列。任务：就是执行操作的意思，换句话说就是你在线程中执行的那段代码。在GCD中是放在block中的。执行任务有两种方式：同步执行（sync）和异步执行（async）。两者的主要区别是：是否等待队列的任务执行结束，以及是否具备开启新线程的能力。同步执行（sync）：同步添加任务到指定的队列中，在添加的任务执行结束之前，会一直等
网络编程基础记得开心一点啊网络
目录♫什么是网络编程♫Socket套接字♪什么是Socket套接字♪数据报套接字♪流套接字♫数据报套接字通信模型♪数据报套接字通讯模型♪DatagramSocket♪DatagramPacket♪实现UDP的服务端代码♪实现UDP的客户端代码♫流套接字通信模型♪流套接字通讯模型♪ServerSocket♪Socket♪实现TCP的服务端代码♪实现TCP的客户端代码♫什么是网络编程网络编程，指网络上
Python编译器鹿鹿~ Python编译器 Python python 开发语言后端
嘿嘿嘿我又来了啊有些小盆友可能不知道Python其实是有编译器的，也就是PyCharm。你们可能会问到这个是干嘛的又不可以吃也不可以穿好像没有什么用，其实你还说对了这个还真的不可以吃也不可以穿，但是它用来干嘛的呢。用来编译你所打出的代码进行运行（可能这里说的有点不对但是只是个人认为）现在我们来说说PyCharm是用来干嘛的。PyCharm是一种PythonIDE，带有一整套可以帮助用户在使用Pyt
「豆包Marscode体验官」 | 云端 IDE 启动 & Rust 体验张风捷特烈 ide rust 开发语言后端
theme:cyanosis我正在参加「豆包MarsCode初体验」征文活动MarsCode可以看作一个运行在服务端的远程VSCode开发环境。对于我这种想要学习体验某些语言，但不想在电脑里装环境的人来说非常友好。本文就来介绍一下在MarsCode里，我的体验rust开发体验。一、MarsCode是什么它的本质是:提供代码助手和云端IDE服务的web网站，可通过下面的链接访问https://www
java线程Thread和Runnable区别和联系 zx_code java jvm thread 多线程 Runnable
我们都晓得java实现线程2种方式，一个是继承Thread，另一个是实现Runnable。模拟窗口买票，第一例子继承thread，代码如下 package thread; public class ThreadTest { public static void main(String[] args) { Thread1 t1 = new Thread1(
【转】JSON与XML的区别比较丁_新 json xml
1.定义介绍 (1).XML定义扩展标记语言 (Extensible Markup Language, XML) ，用于标记电子文件使其具有结构性的标记语言，可以用来标记数据、定义数据类型，是一种允许用户对自己的标记语言进行定义的源语言。 XML使用DTD(document type definition)文档类型定义来组织数据;格式统一，跨平台和语言，早已成为业界公认的标准。 XML是标
c++ 实现五种基础的排序算法 CrazyMizzz C++c 算法
#include<iostream> using namespace std; //辅助函数，交换两数之值 template<class T> void mySwap(T &x, T &y){ T temp = x; x = y; y = temp; } const int size = 10; //一、用直接插入排
我的软件麦田的设计者我的软件音乐类娱乐放松
这是我写的一款app软件，耗时三个月，是一个根据央视节目开门大吉改变的，提供音调，猜歌曲名。1、手机拥有者在android手机市场下载本APP，同意权限，安装到手机上。2、游客初次进入时会有引导页面提醒用户注册。（同时软件自动播放背景音乐）。3、用户登录到主页后，会有五个模块。a、点击不胫而走，用户得到开门大吉首页部分新闻，点击进入有新闻详情。b、
linux awk命令详解被触发 linux awk
awk是行处理器: 相比较屏幕处理的优点，在处理庞大文件时不会出现内存溢出或是处理缓慢的问题，通常用来格式化文本信息 awk处理过程: 依次对每一行进行处理，然后输出 awk命令形式: awk [-F|-f|-v] ‘BEGIN{} //{command1; command2} END{}’ file [-F|-f|-v]大参数，-F指定分隔符，-f调用脚本，-v定义变量 var=val
各种语言比较 _wy_ 编程语言
Java Ruby PHP 擅长领域
oracle 中数据类型为clob的编辑知了ing oracle clob
public void updateKpiStatus(String kpiStatus,String taskId){ Connection dbc=null; Statement stmt=null; PreparedStatement ps=null; try { dbc = new DBConn().getNewConnection(); //stmt = db
分布式服务框架 Zookeeper -- 管理分布式环境中的数据矮蛋蛋 zookeeper
原文地址： http://www.ibm.com/developerworks/cn/opensource/os-cn-zookeeper/ 安装和配置详解本文介绍的 Zookeeper 是以 3.2.2 这个稳定版本为基础，最新的版本可以通过官网 http://hadoop.apache.org/zookeeper/来获取，Zookeeper 的安装非常简单，下面将从单机模式和集群模式两
tomcat数据源 alafqq tomcat
数据库 JNDI(Java Naming and Directory Interface，Java命名和目录接口)是一组在Java应用中访问命名和目录服务的API。没有使用JNDI时我用要这样连接数据库： 03. Class.forName("com.mysql.jdbc.Driver"); 04. conn
遍历的方法百合不是茶遍历
遍历在java的泛
linux查看硬件信息的命令 bijian1013 linux
linux查看硬件信息的命令一.查看CPU： cat /proc/cpuinfo 二.查看内存： free 三.查看硬盘： df linux下查看硬件信息 1、lspci 列出所有PCI 设备； lspci - list all PCI devices:列出机器中的PCI设备（声卡、显卡、Modem、网卡、USB、主板集成设备也能
java常见的ClassNotFoundException bijian1013 java
1.java.lang.ClassNotFoundException: org.apache.commons.logging.LogFactory 添加包common-logging.jar2.java.lang.ClassNotFoundException: javax.transaction.Synchronization
【Gson五】日期对象的序列化和反序列化 bit1129 反序列化
对日期类型的数据进行序列化和反序列化时，需要考虑如下问题： 1. 序列化时，Date对象序列化的字符串日期格式如何 2. 反序列化时，把日期字符串序列化为Date对象，也需要考虑日期格式问题 3. Date A -> str -> Date B,A和B对象是否equals 默认序列化和反序列化 import com
【Spark八十六】Spark Streaming之DStream vs. InputDStream bit1129 Stream
1. DStream的类说明文档： /** * A Discretized Stream (DStream), the basic abstraction in Spark Streaming, is a continuous * sequence of RDDs (of the same type) representing a continuous st
通过nginx获取header信息 ronin47 nginx header
1. 提取整个的Cookies内容到一个变量，然后可以在需要时引用，比如记录到日志里面， if ( $http_cookie ~* "(.*)$") { set $all_cookie $1; } 变量$all_cookie就获得了cookie的值，可以用于运算了
java-65.输入数字n，按顺序输出从1最大的n位10进制数。比如输入3，则输出1、2、3一直到最大的3位数即999 bylijinnan java
参考了网上的http://blog.csdn.net/peasking_dd/article/details/6342984 写了个java版的： public class Print_1_To_NDigit { /** * Q65.输入数字n，按顺序输出从1最大的n位10进制数。比如输入3，则输出1、2、3一直到最大的3位数即999 * 1.使用字符串
Netty源码学习-ReplayingDecoder bylijinnan java netty
ReplayingDecoder是FrameDecoder的子类，不熟悉FrameDecoder的，可以先看看 http://bylijinnan.iteye.com/blog/1982618 API说，ReplayingDecoder简化了操作，比如： FrameDecoder在decode时，需要判断数据是否接收完全： public class IntegerH
js特殊字符过滤 cngolon js特殊字符 js特殊字符过滤
1.js中用正则表达式过滤特殊字符, 校验所有输入域是否含有特殊符号function stripscript(s) { var pattern = new RegExp("[`~!@#$^&*()=|{}':;',\\[\\].<>/?~！@#￥……&*（）——|{}【】‘；：”“'。，、？]"
hibernate使用sql查询 ctrain Hibernate
import java.util.Iterator; import java.util.List; import java.util.Map; import org.hibernate.Hibernate; import org.hibernate.SQLQuery; import org.hibernate.Session; import org.hibernate.Transa
linux shell脚本中切换用户执行命令方法 daizj linux shell 命令切换用户
经常在写shell脚本时，会碰到要以另外一个用户来执行相关命令，其方法简单记下： 1、执行单个命令：su - user -c "command" 如：下面命令是以test用户在/data目录下创建test123目录 [root@slave19 /data]# su - test -c "mkdir /data/test123"
好的代码里只要一个 return 语句 dcj3sjt126com return
别再这样写了：public boolean foo() { if (true) { return true; } else { return false;
Android动画效果学习 dcj3sjt126com android
1、透明动画效果方法一：代码实现 public View onCreateView(LayoutInflater inflater, ViewGroup container, Bundle savedInstanceState) { View rootView = inflater.inflate(R.layout.fragment_main, container, fals
linux复习笔记之bash shell (4)管道命令 eksliang linux管道命令汇总 linux管道命令 linux常用管道命令
转载请出自出处： http://eksliang.iteye.com/blog/2105461 bash命令执行的完毕以后，通常这个命令都会有返回结果，怎么对这个返回的结果做一些操作呢？那就得用管道命令‘|’。上面那段话，简单说了下管道命令的作用，那什么事管道命令呢？答：非常的经典的一句话，记住了，何为管
Android系统中自定义按键的短按、双击、长按事件 gqdy365 android
在项目中碰到这样的问题：由于系统中的按键在底层做了重新定义或者新增了按键，此时需要在APP层对按键事件（keyevent）做分解处理，模拟Android系统做法，把keyevent分解成： 1、单击事件：就是普通key的单击； 2、双击事件：500ms内同一按键单击两次； 3、长按事件：同一按键长按超过1000ms（系统中长按事件为500ms）； 4、组合按键：两个以上按键同时按住；
asp.net获取站点根目录下子目录的名称 hvt .net C#asp.net hovertree Web Forms
使用Visual Studio建立一个.aspx文件(Web Forms)，例如hovertree.aspx,在页面上加入一个ListBox代码如下： <asp:ListBox runat="server" ID="lbKeleyiFolder" /> 那么在页面上显示根目录子文件夹的代码如下： string[] m_sub
Eclipse程序员要掌握的常用快捷键 justjavac java eclipse 快捷键 ide
判断一个人的编程水平，就看他用键盘多，还是鼠标多。用键盘一是为了输入代码（当然了，也包括注释），再有就是熟练使用快捷键。曾有人在豆瓣评《卓有成效的程序员》：“人有多大懒，才有多大闲”。之前我整理了一个程序员图书列表，目的也就是通过读书，让程序员变懒。写道程序员作为特殊的群体，有的人可以这么懒，懒到事情都交给机器去做，而有的人又可
c++编程随记 lx.asymmetric C++笔记
为了字体更好看，改变了格式…… &&运算符： #include<iostream> using namespace std; int main(){ int a=-1,b=4,k; k=(++a<0)&&!(b--
linux标准IO缓冲机制研究音频数据 linux
一、什么是缓存I/O(Buffered I/O)缓存I/O又被称作标准I/O,大多数文件系统默认I/O操作都是缓存I/O。在Linux的缓存I/O机制中，操作系统会将I/O的数据缓存在文件系统的页缓存(page cache)中，也就是说，数据会先被拷贝到操作系统内核的缓冲区中，然后才会从操作系统内核的缓冲区拷贝到应用程序的地址空间。1.缓存I/O有以下优点:A.缓存I/O使用了操作系统内核缓冲区，
随想生活暗黑小菠萝生活
其实账户之前就申请了，但是决定要自己更新一些东西看也是最近。从毕业到现在已经一年了。没有进步是假的，但是有多大的进步可能只有我自己知道。毕业的时候班里12个女生，真正最后做到软件开发的只要两个包括我，PS：我不是说测试不好。当时因为考研完全放弃找工作，考研失败，我想这只是我的借口。那个时候才想到为什么大学的时候不能好好的学习技术，增强自己的实战能力，以至于后来找工作比较费劲。我
我认为POJO是一个错误的概念 windshome java POJO 编程 J2EE 设计
这篇内容其实没有经过太多的深思熟虑，只是个人一时的感觉。从个人风格上来讲，我倾向简单质朴的设计开发理念；从方法论上，我更加倾向自顶向下的设计；从做事情的目标上来看，我追求质量优先，更愿意使用较为保守和稳妥的理念和方法。 &