ABAP 订单-交货单-发货过账自动完成 案例
2016-12-28 10:10
597 查看
*&---------------------------------------------------------------------*
*& Report ZSDR006
*&
*&---------------------------------------------------------------------*
*&程序名称：
*&事物代码
*&导入模板：
*&作者
*&时间
*&---------------------------------------------------------------------*
REPORT zsdr006_1 MESSAGE-ID 00.
TYPE-POOLS:ole2,slis,icon.
FIELD-SYMBOLS: <fs>.
TABLES: sscrfields,ztsd014,ztsd015,mchb,t001l.
TYPES: BEGIN OF ty_output,
sel TYPE c,
batno TYPE ztsd015-batno, "批导序号
batpo TYPE ztsd015-batpo, "验单批导序号
verno TYPE ztsd016-verno, "版本号
indat TYPE ztsd015-indat, "日期
* KUNNR TYPE KUNNR, "客户号
* NAME1 TYPE KNA1-NAME1, "客户名称
lgort TYPE lgort_d, "库存地点
lgobe TYPE lgobe, "库存地点描述
matnr TYPE ztsd015-matnr, "物料号
maktx TYPE makt-maktx, "物料描述
menge TYPE ztsd015-menge, "退货数量
meins TYPE meins, "数量单位
zsl1 TYPE menge_d,
zdw1 TYPE meins,
* CHARG TYPE CHARG_D, "批次
* ZYDJG TYPE ZTSD009-ZYDJG, "验单价格
* ZYDDH TYPE ZTSD009-ZYDDH, "验单单号
zthdd TYPE ztsd016-zthdd, "退货订单
zthdn TYPE likp-vbeln, "退货发货单号
zmfck TYPE ztsd016-zmfck, "免费出库订单
zdn TYPE ztsd015-zdn, "免费出库交货单
zstat TYPE ztsd015-zstat, "退货已过帐
ztext TYPE char10, "状态描述
zicon1 TYPE char4, "导入状态
* VKBUR TYPE VKBUR, "销售部门
* BEZEI TYPE TVKBT-BEZEI, "销售部门描述
shpto TYPE kunnr, "送达方
name2 TYPE kna1-name1,
sldto TYPE kunnr, "售达方
name3 TYPE kna1-name1,
zyddh(35), "验单单号
zthlx TYPE zthlx, "退货类型
zthms TYPE char4, "退货类型描述
augru TYPE augru, "退货原因
zthyy TYPE ztsd015-zthyy, "退货原因
cellcolor TYPE lvc_t_scol, "控制单元格颜色
style TYPE lvc_t_styl, "控制单元格可否编辑
zddjg TYPE kbetr_kond, "订单价格
zddje TYPE kbetr_kond, "总金额
zr TYPE char30, "主任
zywy TYPE char30, "业务员
pstyv TYPE lips-pstyv, "交货项目类型
mssg TYPE bapi_msg, "消息内容
zuser TYPE ztsd014-zuser,
zdate TYPE ztsd014-zdate,
wbstk1 TYPE vbuk-wbstk, "货物移动状态1
fkstk1 TYPE vbuk-fkstk, "开票状态
fkstk2 TYPE vbuk-fkstk, "开票状态
wbstk2 TYPE vbuk-wbstk, "货物移动状态
key TYPE char15,
budat TYPE mkpf-budat,
END OF ty_output.
TYPES: BEGIN OF ty_load,
indat TYPE ztsd015-indat, "日期 1
sldto TYPE kunnr, "售达方 2
shpto TYPE kunnr, "送达方 3
zywy TYPE char30, "业务员 4
zr TYPE char30, "主任 5
zyddh TYPE char35, "退单单号 6
augru TYPE tvau-augru, "退货原因编码 7
lgort TYPE lgort_d, "库存地 点 8
pstyv TYPE lips-pstyv, "交货项目类型 9
matnr TYPE ztsd015-matnr, "物料编码 10
menge TYPE menge_d, "退货数量 11
meins TYPE meins, "数量单位 12
zddjg TYPE kbetr_kond, "订单价格 13
zddje TYPE kbetr_kond, "订单金额 14
budat TYPE mkpf-budat,
END OF ty_load.
TYPES: BEGIN OF ty_sodata,
* ZYDDH TYPE ZTSD009-ZYDDH, "验单单号
zstring TYPE string,
indat TYPE ztsd009-indat,
* KUNNR TYPE KNA1-KUNNR,
shpto TYPE kunnr,
sldto TYPE kunnr,
vkorg TYPE vbak-vkorg, "销售组织
vtweg TYPE vbak-vtweg, "分销渠道
spart TYPE vbak-spart, "产品组
vkgrp TYPE vbak-vkgrp, "销售组
vsbed TYPE knvv-vsbed, "装运条件
augru TYPE tvau-augru, "退货原因编码
vkbur TYPE vbak-vkbur, "销售部门
matnr TYPE ekpo-matnr, "物料代码
lgort TYPE ekpo-lgort, "收货库存地点 8
werks TYPE vbap-werks, "
menge TYPE menge_d, "数量
meins TYPE meins, "单位
charg TYPE charg_d, "批次
* ZDDJG TYPE ZTSD015-ZDDJG, "退货价格
zddje TYPE ztsd015-zddje, "退货价格
batno TYPE ztsd015-batno, "批导序号
batpo TYPE ztsd015-batpo, "批导行项目号
pstyv TYPE lips-pstyv, "交货项目类型
zyddh(35), "验单单号
so TYPE vbak-vbeln, "销售订单号
zdn TYPE likp-vbeln, "交货单号
* SO1 TYPE VBAK-VBELN, "销售订单号
* ZDN1 TYPE LIKP-VBELN, "交货单号
kpein TYPE komv-kpein, "条件定价单位
kmein TYPE komv-kmein, "条件单位
key TYPE char15,
budat TYPE mkpf-budat,
END OF ty_sodata.
TYPES: BEGIN OF typ_header,
ztext(10),
END OF typ_header.
TYPES: BEGIN OF ty_charg,
charg TYPE mchb-charg,
clabs TYPE mchb-clabs,
END OF ty_charg.
TYPES: BEGIN OF ty_dn,
kunnr TYPE kunnr,
matnr TYPE matnr,
lgort TYPE lgort_d,
werks TYPE werks,
charg TYPE charg_d.
TYPES END OF ty_dn.
TYPES: BEGIN OF ty_mesg,
mesg TYPE char255,
END OF ty_mesg.
DATA: BEGIN OF gt_batno OCCURS 0,
batno TYPE zbatno,
batpo TYPE zbatpo,
END OF gt_batno.
DATA: gt_mesg TYPE TABLE OF ty_mesg,
gs_mesg TYPE ty_mesg.
DATA : gt_exclude TYPE ui_functions.
DATA: gs_layout TYPE lvc_s_layo,
gs_cellcolor TYPE lvc_s_scol,
gs_style TYPE lvc_s_styl,
gs_stable TYPE lvc_s_stbl,
gs_variant TYPE disvariant,
gt_structure TYPE lvc_t_fcat,
gs_structure TYPE lvc_s_fcat.
DATA: itab TYPE TABLE OF alsmex_tabline WITH HEADER LINE.
DATA: gt_load TYPE STANDARD TABLE OF ty_load,
gt_output TYPE TABLE OF ty_output,
gt_sodata TYPE TABLE OF ty_sodata,
gt_charg TYPE TABLE OF ty_charg,
gs_charg TYPE ty_charg,
gt_f4 TYPE lvc_t_f4,
gs_f4 TYPE lvc_s_f4.
DATA: gs_load TYPE ty_load,
gs_output TYPE ty_output,
gs_sodata TYPE ty_sodata.
DATA: gds_bdcdata TYPE bdcdata,
gdt_bdcdata
TYPE TABLE OF bdcdata.
DATA: gds_messtab TYPE bdcmsgcoll,
gdt_messtab
TYPE TABLE OF bdcmsgcoll.
DATA: g_message TYPE balmsgtxtp.
DATA: gds_return TYPE bapiret2,
gdt_return
TYPE TABLE OF bapiret2.
DATA: g_check_auth TYPE c.
DATA:gt_knvp TYPE knvp OCCURS 0,
gs_knvp
TYPE knvp.
DATA: status_buff_init TYPE c VALUE 'X',
call_activity
(4), " Aktiver Aufrufer bei Call
g_no_dequeue_sd_sales
TYPE c.
*DATA P_MODE TYPE C VALUE 'N'.
DATA: gv_charg TYPE charg_d VALUE 'INISTOCK'."期初库存批次
DATA: gv_charg1 TYPE charg_d VALUE 'A999999999'."期初库存批次
DATA: gt_header TYPE STANDARD TABLE OF typ_header,
gs_header
TYPE typ_header.
CLASS gc_event_receiver DEFINITION DEFERRED.
* Define objects used in screen
*DATA: GCTR_ALV TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA:
gctr_alv
TYPE REF TO cl_gui_docking_container,
gct_alv
TYPE REF TO cl_gui_alv_grid,
g_event
TYPE REF TO gc_event_receiver.
DATA:p_filepath TYPE string.
DATA: me TYPE REF TO cl_akb_progress_indicator.
CONSTANTS: c_yes TYPE c VALUE 'X'.
*DATA: C_PATH TYPE RLGRAP-FILENAME VALUE 'C:\TMP\财务批导模板.xls',
DATA: c_path TYPE string VALUE 'C:\TMP\',
c_fullpath
TYPE string VALUE 'C:\TMP\退货批导模板.xls',
c_filename
TYPE string VALUE '退货批导模板.xls',
user_action
TYPE i,
encoding TYPE abap_encoding.
*定义OLE变量
DATA:g_excel TYPE ole2_object,
g_applica
TYPE ole2_object,
g_sheet
TYPE ole2_object,
g_cell
TYPE ole2_object,
g_workbook
TYPE ole2_object.
FIELD-SYMBOLS:<wa_data> TYPE ty_output,
<wa_sodata>
TYPE ty_sodata.
*----------------------------------------------------------------
* SELECTION-SCREEN DEFINITION
*----------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_ufile LIKE rlgrap-filename MODIF ID m1."上传文件路径
SELECT-OPTIONS:
s_lgort
FOR t001l-lgort MODIF ID m2,"库存地点
s_indat
FOR ztsd015-indat MODIF ID m2,"退货日期
s_zdate
FOR ztsd014-zdate MODIF ID m2,"导入日期
s_batno
FOR ztsd015-batno MODIF ID m2 NO-DISPLAY,"批导编号
s_zuser
FOR ztsd014-zuser MODIF ID m2,"导入人
s_sndto
FOR ztsd015-shpto MODIF ID m2,"送达方
s_selto
FOR ztsd015-sldto MODIF ID m2,"客户编号
s_matnr
FOR ztsd015-matnr MODIF ID m2,"物料编号
s_zyddh
FOR ztsd015-zyddh LOWER CASE MODIF ID m2,"验单单号
s_zthdd
FOR ztsd015-zthdd MODIF ID m3,"退货订单
s_zmfck
FOR ztsd015-zmfck MODIF ID m3,"免费出库订单
s_zthdn
FOR ztsd015-zthdn MODIF ID m3."退货交货单
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN: FUNCTION KEY 1. "激活按钮
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: r1 RADIOBUTTON GROUP rg1 USER-COMMAND fcode DEFAULT 'X', "上传批导
r2
RADIOBUTTON GROUP rg1, "退货审批
r3
RADIOBUTTON GROUP rg1 MODIF ID m4 , "免费发货
r6
RADIOBUTTON GROUP rg1 "查询
. "
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE title.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: r4 RADIOBUTTON GROUP rg2 USER-COMMAND fcode DEFAULT 'X' MODIF ID m5."实退
SELECTION-SCREEN COMMENT (5) text-004 FOR FIELD r4.
PARAMETERS: r5 RADIOBUTTON GROUP rg2."空退
SELECTION-SCREEN COMMENT (5) text-005 FOR FIELD r5."空退
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE title4.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: r7 RADIOBUTTON GROUP rg3 USER-COMMAND fcode."石家庄
SELECTION-SCREEN COMMENT (8) text-007 FOR FIELD r7.
PARAMETERS: r8 RADIOBUTTON GROUP rg3 DEFAULT 'X'."外阜
SELECTION-SCREEN COMMENT (8) text-008 FOR FIELD r8."
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b4.
*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
INITIALIZATION.
sscrfields
-functxt_01 = '下载模板'. "定义按钮文本
title = '退货类型'.
title4
= '业务类型'.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
CASE sscrfields-ucomm. "处理按钮命令
WHEN'FC01'.
PERFORM frm_download_template.
ENDCASE.
AT SELECTION-SCREEN OUTPUT.
IF r7 EQ 'X'.
SUBMIT zsdr006
WITH p_ufile = p_ufile
WITH r1 = r1
WITH r2 = r2
WITH r3 = r3
WITH r4 = r4
WITH r5 = r5
WITH r6 = r6
VIA
SELECTION-SCREEN.
ENDIF.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'M1'.
IF r1 EQ 'X'.
screen-active = 1.
ELSE.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
WHEN 'M2'.
IF ( r2 EQ 'X' OR r6 EQ 'X' ) OR ( r3 EQ 'X' AND r5 EQ 'X' ).
screen-active = 1.
ELSE.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
WHEN 'M3'.
IF r5 EQ 'X' AND r3 EQ 'X'.
screen-active = 1.
ELSE.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
WHEN 'M4'.
IF r5 EQ 'X'.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
WHEN 'M5'.
IF r3 EQ 'X'.
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ufile.
PERFORM frm_get_filepath.
*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
START-OF-SELECTION.
FREE MEMORY ID :'GT_OUTPUT','BATNO'.
*上传文件
IF r1 EQ 'X'.
IF p_ufile IS INITIAL.
MESSAGE '请选择需要上传的文件' TYPE 'S' DISPLAY LIKE 'E'.
EXIT.
ENDIF.
PERFORM frm_upload_file USING p_ufile.
PERFORM frm_post_upload.
ELSE."R2 EQ 'X'
*显示保存的数据
IF s_lgort-low IS INITIAL.
MESSAGE '请输入库存地点。' TYPE 'S' DISPLAY LIKE 'E'.
EXIT.
ENDIF.
PERFORM frm_authority_check.
*DELETE FROM: ZTSD014,ZTSD015,ZTSD016. COMMIT WORK AND WAIT.
PERFORM frm_get_data.
PERFORM frm_process_data.
ENDIF.
IF gt_output IS INITIAL.
MESSAGE '没有符合条件的数据。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
IF r1 NE 'X' AND r6 NE 'X'.
PERFORM frm_check_lock.
CHECK gt_mesg IS NOT INITIAL.
LOOP AT gt_mesg INTO gs_mesg.
WRITE: / gs_mesg-mesg.
ENDLOOP.
RETURN.
ENDIF.
*----------------------------------------------------------------------*
* END-OF-SELECTION *
*----------------------------------------------------------------------*
END-OF-SELECTION.
PERFORM frm_define_layout.
PERFORM frm_build_fieldcat.
PERFORM frm_exclude_buttons TABLES gt_exclude.
* PERFORM FRM_DISPLAY_DATA.
CALL SCREEN 9000.
*----------------------------------------------------------------
* CLASS GC_EVENT_RECEIVER DEFINITION
*----------------------------------------------------------------
CLASS gc_event_receiver DEFINITION.
PUBLIC SECTION.
"添加工具条
METHODS toolbar FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING
e_object
e_interactive
.
*
"字段修改时触发
* METHODS HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
* IMPORTING
* ER_DATA_CHANGED.
*
*
* METHODS HANDLE_CHANGE_FINISH FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID
* IMPORTING
* E_MODIFIED
* ET_GOOD_CELLS.
* "某字段设置热键后，单击此单元格时触发
* METHODS HANDLE_CELL_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
* IMPORTING
* E_ROW_ID
* E_COLUMN_ID
* ES_ROW_NO.
*
* "双击时触发
METHODS handle_double_click FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING
e_row
e_column
es_row_no
.
*
* "按F1时触发
* METHODS HANDLE_ONF1 FOR EVENT ONF1 OF CL_GUI_ALV_GRID
* IMPORTING
* E_FIELDNAME
* ES_ROW_NO
* ER_EVENT_DATA.
*
* "当用户按屏幕上按钮时触发
METHODS handle_user_command FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING
e_ucomm
.
*F4帮助
METHODS on_f4 FOR EVENT onf4 OF cl_gui_alv_grid
IMPORTING
e_fieldname
es_row_no
er_event_data
et_bad_cells
e_display
.
ENDCLASS. "GC_EVENT_RECEIVER DEFINITION
*----------------------------------------------------------------
* CLASS GC_EVENT_RECEIVER IMPLEMENTATION
*----------------------------------------------------------------
CLASS gc_event_receiver IMPLEMENTATION.
METHOD on_f4.
DATA: lv_menge TYPE menge_d.
CASE e_fieldname.
WHEN 'CHARG'.
READ TABLE gt_output ASSIGNING <wa_data> INDEX es_row_no-row_id.
IF sy-subrc = 0.
* PERFORM FRM_CHARG_F4 CHANGING <WA_DATA>-CHARG .
*实发数量
* LV_MENGE = <WA_DATA>-ZSFSL.
* IF <WA_DATA>-CHARG IS NOT INITIAL.
* LOOP AT GT_DETAIL ASSIGNING <DETAIL>
* WHERE INDAT EQ <WA_DATA>-INDAT
* AND MATNR EQ <WA_DATA>-MATNR
* AND SHPTO EQ <WA_DATA>-SHPTO
* AND SLDTO EQ <WA_DATA>-SLDTO .
**自动分配实发数量到明细表
* IF LV_MENGE GT 0.
* <DETAIL>-ZSFSL = <DETAIL>-ZWFSL.
*
* IF <DETAIL>-ZSFSL LT LV_MENGE.
* LV_MENGE = ABS( <DETAIL>-ZSFSL - LV_MENGE ).
* ELSE.
* <DETAIL>-ZSFSL = LV_MENGE.
* LV_MENGE = 0.
* ENDIF.
* ENDIF.
**分配批次到明细表
* MOVE <WA_DATA>-CHARG TO <DETAIL>-CHARG .
* ENDLOOP.
* CALL METHOD GCT_ALV->REFRESH_TABLE_DISPLAY.
* ENDIF.
ENDIF.
UNASSIGN
: <wa_data>.
ENDCASE.
ENDMETHOD.
METHOD handle_double_click.
* BREAK B012.
* IF R6 EQ 'X'.
IF e_column-fieldname EQ 'ZTHDN'.
READ TABLE gt_output INTO gs_output INDEX e_row-index.
CHECK gs_output-zthdn IS NOT INITIAL.
SET PARAMETER ID 'VL' FIELD gs_output-zthdn.
CALL TRANSACTION 'VL03N' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
*返回时检查是否已过账
* BREAK B012.
WAIT UP TO 1 SECONDS.
PERFORM frm_check_post USING gs_output-zthdn 1.
ENDIF.
IF e_column-fieldname EQ 'ZDN'.
READ TABLE gt_output INTO gs_output INDEX e_row-index.
CHECK gs_output-zdn IS NOT INITIAL.
SET PARAMETER ID 'VL' FIELD gs_output-zdn.
CALL TRANSACTION 'VL03N' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
*返回时检查是否已过账
WAIT UP TO 1 SECONDS.
PERFORM frm_check_post USING gs_output-zdn 2.
ENDIF.
* ENDIF.
CALL METHOD gct_alv->refresh_table_display
EXPORTING
is_stable
= gs_stable
i_soft_refresh
= 'X'.
ENDMETHOD.
METHOD toolbar.
DATA: ls_toolbar TYPE stb_button.
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type. "分隔符
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'SEL_ALL' TO ls_toolbar-function. "添加全选
MOVE icon_select_all TO ls_toolbar-icon.
MOVE '全选' TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'CAN_ALL' TO ls_toolbar-function. "取消全选
MOVE icon_deselect_all TO ls_toolbar-icon.
MOVE '全部取消 ' TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type."分隔符
APPEND ls_toolbar TO e_object->mt_toolbar.
IF r1 EQ 'X' OR r2 EQ 'X'.
CLEAR ls_toolbar.
MOVE 'DEL' TO ls_toolbar-function.
MOVE icon_delete_row TO ls_toolbar-icon.
MOVE '删除行' TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
ENDIF.
IF r2 EQ 'X' OR r3 EQ 'X'.
* CLEAR LS_TOOLBAR.
* MOVE 'ADD' TO LS_TOOLBAR-FUNCTION.
* MOVE ICON_INSERT_ROW TO LS_TOOLBAR-ICON.
* MOVE '添加行' TO LS_TOOLBAR-QUICKINFO.
* MOVE ' ' TO LS_TOOLBAR-DISABLED.
* APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
*
* CLEAR LS_TOOLBAR.
* MOVE 'DEL' TO LS_TOOLBAR-FUNCTION.
* MOVE ICON_DELETE_ROW TO LS_TOOLBAR-ICON.
* MOVE '删除行' TO LS_TOOLBAR-QUICKINFO.
* MOVE ' ' TO LS_TOOLBAR-DISABLED.
* APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
CLEAR ls_toolbar.
MOVE 'OKAY' TO ls_toolbar-function.
MOVE icon_okay TO ls_toolbar-icon.
MOVE '审批通过' TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
ENDIF.
* IF R6 EQ 'X'.
* CLEAR LS_TOOLBAR.
* MOVE 'POST_GMVT' TO LS_TOOLBAR-FUNCTION.
** MOVE ICON_OKAY TO LS_TOOLBAR-ICON.
* MOVE 0 TO LS_TOOLBAR-BUTN_TYPE.
* MOVE '发货过账' TO LS_TOOLBAR-TEXT.
* APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* ENDIF.
ENDMETHOD.
METHOD handle_user_command.
DATA(ok_code) = e_ucomm.
DATA: error TYPE c,
lv_result
TYPE string.
DATA: ans TYPE string."GUI返回值
CASE ok_code.
WHEN 'SEL_ALL'.
PERFORM frm_sel_all.
* CLEAR GS_OUTPUT.
* GS_OUTPUT-SEL = 'X'.
* MODIFY GT_OUTPUT FROM GS_OUTPUT TRANSPORTING SEL WHERE SEL EQ SPACE AND ZICON1 NE '@0A@'."红灯
WHEN 'CAN_ALL'.
CLEAR gs_output.
gs_output
-sel = ' '.
MODIFY gt_output FROM gs_output TRANSPORTING sel WHERE sel EQ 'X'.
WHEN 'OKAY'.
PERFORM frm_confirm_data CHANGING lv_result.
IF lv_result EQ 'S'.
CLEAR lv_result.
PERFORM frm_save_data USING 'APPROVAL' CHANGING lv_result.
IF lv_result EQ 'S'.
MESSAGE '审批成功！' TYPE 'S'.
ELSE.
MESSAGE '审批失败！' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
CLEAR lv_result.
ENDIF.
* WHEN 'ADD'.
* PERFORM FRM_ADD_ROW.
*
WHEN 'DEL'.
*询问是否确认
READ TABLE gt_output TRANSPORTING NO FIELDS WITH KEY sel = 'X'.
IF sy-subrc NE 0.
MESSAGE '请至少选择一条数据！' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question
= '确认删除所选数据？'
text_button_1
= '是'(009)
text_button_2
= '否'(010)
default_button
= '1'
display_cancel_button
= 'X'
start_column
= 25
start_row
= 6
IMPORTING
answer
= ans
EXCEPTIONS
text_not_found
= 1
OTHERS = 2.
IF ans EQ '1'."是
IF r1 EQ 'X'.
DELETE gt_output WHERE sel EQ 'X'.
ELSE.
PERFORM frm_delete_data.
ENDIF.
ENDIF.
WHEN 'POST_GMVT'.
PERFORM frm_post_gmvt CHANGING lv_result.
IF lv_result EQ 'S'.
CLEAR lv_result.
PERFORM frm_save_data USING 'POST' CHANGING lv_result.
IF lv_result EQ 'S'.
MESSAGE '过账成功！' TYPE 'S'.
ELSE.
MESSAGE '过账失败！' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
CLEAR lv_result.
ENDIF.
WHEN OTHERS.
ENDCASE.
CALL METHOD gct_alv->refresh_table_display
EXPORTING
is_stable
= gs_stable
i_soft_refresh
= 'X'.
ENDMETHOD.
ENDCLASS.
*&---------------------------------------------------------------------*
*& Form FRM_GET_FILEPATH
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
FORM frm_get_filepath .
DATA: l_rc TYPE i.
DATA: lt_filetab TYPE filetable.
CREATE OBJECT me.
CALL METHOD me->display
EXPORTING
message = '选择上传文件路径......'.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
window_title
= '请选择本地文件'
multiselection
= space
CHANGING
file_table
= lt_filetab
rc
= l_rc
EXCEPTIONS
file_open_dialog_failed
= 1
cntl_error
= 2
error_no_gui
= 3
not_supported_by_gui
= 4
OTHERS = 5.
IF sy-subrc EQ 0 AND l_rc EQ 1.
READ TABLE lt_filetab INTO p_ufile INDEX 1.
ENDIF.
ENDFORM. " FRM_GET_FILEPATH
*&---------------------------------------------------------------------*
*& Form FRM_UPLOAD_FILE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_UFILE text
*----------------------------------------------------------------------*
FORM frm_upload_file USING p_ufile TYPE rlgrap-filename.
DATA: ls_rowdata TYPE truxs_t_text_data,
lv_lines
TYPE i,
lv_msg
TYPE string,
lv_n
TYPE i,
lv_count
TYPE i. "计数器
DATA: lv_posnr(4) TYPE n."批导行项目号
CREATE OBJECT me.
CALL METHOD me->display
EXPORTING
message = '读取上传文件内容...'.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
i_line_header
= '1'
i_tab_raw_data
= ls_rowdata
i_filename
= p_ufile
TABLES
i_tab_converted_data
= gt_load[]
EXCEPTIONS
conversion_failed
= 1.
IF sy-subrc NE 0.
* MESSAGE SY-MSGID WITH 'Excel导入错误。'.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
* BREAK B012.
CREATE OBJECT me.
CALL METHOD me->display
EXPORTING
message = '检查数据...'.
DELETE gt_load WHERE menge EQ 0.
DESCRIBE TABLE gt_load LINES lv_lines.
LOOP AT gt_load INTO gs_load.
lv_msg
= '检查数据...' && sy-tabix && '/' && lv_lines.
CALL METHOD me->display
EXPORTING
message = lv_msg.
*检查日期格式
ASSIGN COMPONENT 1 OF STRUCTURE gs_load TO <fs>.
CALL FUNCTION 'RP_CHECK_DATE'
EXPORTING
date = <fs>
EXCEPTIONS
date_invalid
= 1
OTHERS = 2.
IF sy-subrc NE 0.
* MESSAGE '日期格式不正确' TYPE 'S' DISPLAY LIKE 'E'.
* STOP.
PERFORM set_callsytle USING 1 gs_load '日期格式错误' CHANGING gs_output-cellcolor gs_output-mssg.
ELSEIF <fs> GT sy-datum.
PERFORM set_callsytle USING 1 gs_load '日期大于当天' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查客户编号是否存在
* ASSIGN COMPONENT 2 OF STRUCTURE GS_LOAD TO <FS>.
*
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = <FS>
* IMPORTING
* OUTPUT = <FS>.
*
** SELECT SINGLE NAME1 INTO GS_OUTPUT-NAME1
** FROM KNA1
** WHERE KUNNR EQ <FS>
** AND KTOKD EQ 'Z003'
* .
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING 2 GS_LOAD '客户不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*检查送达方售达方是否存在
*添加前置零
ASSIGN COMPONENT 2 OF STRUCTURE gs_load TO <fs>.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = <fs>
IMPORTING
output = <fs>.
SELECT SINGLE name1 INTO gs_output-name3
FROM kna1
WHERE kunnr EQ <fs>
* AND KTOKD EQ 'Z003'
.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 2 gs_load '售达方不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*添加前置零
ASSIGN COMPONENT 3 OF STRUCTURE gs_load TO <fs>.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = <fs>
IMPORTING
output = <fs>.
SELECT SINGLE name1 INTO gs_output-name2
FROM kna1
WHERE kunnr EQ <fs>
.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 3 gs_load '送达方不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查退货原因是否存在
ASSIGN COMPONENT 7 OF STRUCTURE gs_load TO <fs>.
PERFORM add_lead_zero USING 3 CHANGING <fs>.
SELECT SINGLE bezei INTO gs_output-zthyy
FROM tvaut
WHERE augru EQ <fs>.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 7 gs_load '原因代码不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查产品是否存在
*取物料描述
*添加前置零
ASSIGN COMPONENT 10 OF STRUCTURE gs_load TO <fs>.
UNPACK <fs> TO <fs>.
SELECT SINGLE maktx INTO gs_output-maktx
FROM makt
WHERE matnr EQ <fs>
AND spras EQ 1.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 10 gs_load '物料不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
****检查单位
ASSIGN COMPONENT 12 OF STRUCTURE gs_load TO <fs>.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
EXPORTING
input = <fs>
language = sy-langu
IMPORTING
output = <fs>
EXCEPTIONS
unit_not_found
= 1
OTHERS = 2.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 12 gs_load '单位不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查库存地点
ASSIGN COMPONENT 8 OF STRUCTURE gs_load TO <fs>.
SELECT SINGLE lgort FROM t001l
INTO @DATA(lv_lgort)
WHERE lgort EQ @<fs>.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 8 gs_load '库存地不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查订单行项目类型
ASSIGN COMPONENT 9 OF STRUCTURE gs_load TO <fs>.
TRANSLATE <fs> TO UPPER CASE.
IF <fs> NE 'REN' AND <fs> NE 'REN4'.
PERFORM set_callsytle USING 9 gs_load '行项目类型不正确' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
MOVE-CORRESPONDING gs_load TO gs_output.
ADD 1 TO lv_posnr.
MOVE lv_posnr TO gs_output-batpo.
APPEND gs_output TO gt_output.
CLEAR:gs_load,gs_output.
ENDLOOP.
* DATA: LV_LENTH TYPE I.
* DATA: LV_FLAG TYPE C.
* DATA: LV_POSNR(4) TYPE N."批导行项目号
* DATA: L_EXCEPTION TYPE REF TO CX_ROOT.
*
* DATA: LV_LINES TYPE I,
* LV_ROW TYPE I,
* LV_COL TYPE I,
* LV_COL1 TYPE I,
* LV_COL2 TYPE I,
* LV_FIXED TYPE I.
*
* DATA: LT_TAB TYPE TABLE OF ALSMEX_TABLINE,
* LT_TAB1 TYPE TABLE OF ALSMEX_TABLINE,
* LS_TAB TYPE ALSMEX_TABLINE,
* LS_TAB1 TYPE ALSMEX_TABLINE.
*
* DATA: X TYPE I."两个物料列的间隔
*
* FIELD-SYMBOLS: <L_FS> TYPE ALSMEX_TABLINE.
*
* CLEAR: LV_COUNT,X,LV_LINES.
* CREATE OBJECT ME.
* CALL METHOD ME->DISPLAY
* EXPORTING
* MESSAGE = '读取上传文件内容...'.
*
* CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
* EXPORTING
* FILENAME = P_UFILE
* I_BEGIN_COL = 1
* I_BEGIN_ROW = 1
* I_END_COL = 13555
* I_END_ROW = 65536
* TABLES
* INTERN = ITAB[]
* EXCEPTIONS
* INCONSISTENT_PARAMETERS = 1
* UPLOAD_OLE = 2
* OTHERS = 3.
* IF SY-SUBRC NE 0.
* MESSAGE E001 WITH 'Excel导入错误。'.
* ENDIF.
*
**行列转换
* CALL FUNCTION 'ZSDF001'
* IMPORTING
* FIXED_COL = LV_FIXED
* TABLES
* ITAB_IN = ITAB[]
* ITAB_OUT = ITAB[].
*
*
* SORT ITAB[] BY ROW COL.
**删除不必要的列
* DELETE ITAB[] WHERE COL EQ 3 AND COL EQ 5 AND COL EQ 7 AND COL EQ 12.
* DESCRIBE TABLE ITAB[] LINES LV_LINES.
*
* LOOP AT ITAB.
* LV_MSG = '检查数据...' && SY-TABIX && '/' && LV_LINES.
*
* ON CHANGE OF ITAB-ROW.
* IF SY-TABIX NE 1.
*
* IF GS_LOAD-MENGE GT 0.
* APPEND GS_LOAD TO GT_LOAD.
* MOVE-CORRESPONDING GS_LOAD TO GS_OUTPUT.
*
* ADD 1 TO LV_POSNR.
* MOVE LV_POSNR TO GS_OUTPUT-BATPO.
*
* IF GS_OUTPUT-CELLCOLOR IS NOT INITIAL.
* GS_OUTPUT-ZICON1 = '@0A@'."红灯
* ELSE.
* GS_OUTPUT-ZICON1 = '@08@'."绿灯
*
* ENDIF.
*
* IF GS_OUTPUT-ZICON1 = '@0A@'."红灯
* PERFORM SET_STYLE USING 'SEL' 'DISABLE' CHANGING GS_OUTPUT-STYLE.
* ENDIF.
* APPEND GS_OUTPUT TO GT_OUTPUT.
*
* CLEAR GS_LOAD.
* CLEAR GS_OUTPUT.
* CLEAR GS_CELLCOLOR.
* ELSE.
* CLEAR GS_LOAD.
* CLEAR GS_OUTPUT.
* CLEAR GS_CELLCOLOR.
* ENDIF.
* ENDIF.
* ENDON.
*
* ASSIGN COMPONENT ITAB-COL OF STRUCTURE GS_LOAD TO <FS>.
* IF SY-SUBRC NE 0.
* CONTINUE.
* ENDIF.
*
* "动态方法将值传到相应的内表
** <FS> = ITAB-VALUE.
* TRY.
* MOVE ITAB-VALUE TO <FS>.
* CATCH CX_ROOT INTO L_EXCEPTION.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '数据格式不正确' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* CONTINUE.
* ENDTRY.
*
* CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
* EXPORTING
* PERCENTAGE = 0
** TEXT = '检查数据... '.
* TEXT = LV_MSG.
*
**检查日期格式
* IF ITAB-COL EQ 1.
*
* CALL FUNCTION 'RP_CHECK_DATE'
* EXPORTING
* DATE = <FS>
* EXCEPTIONS
* DATE_INVALID = 1
* OTHERS = 2.
*
* IF SY-SUBRC NE 0.
** MESSAGE '日期格式不正确' TYPE 'S' DISPLAY LIKE 'E'.
** STOP.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '日期格式错误' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ELSEIF <FS> GT SY-DATUM.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '日期大于当天' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
* ENDIF.
**检查客户编号是否存在
* IF ITAB-COL EQ 2.
**取客户名称
**添加前置零
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = <FS>
* IMPORTING
* OUTPUT = <FS>.
*
* SELECT SINGLE NAME1 INTO GS_OUTPUT-NAME1
* FROM KNA1
* WHERE KUNNR EQ <FS>
** AND KTOKD EQ 'Z003'
* .
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '客户不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
* ENDIF.
*
**检查送达方售达方是否存在
* IF ITAB-COL EQ 4.
**添加前置零
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = <FS>
* IMPORTING
* OUTPUT = <FS>.
*
* SELECT SINGLE NAME1 INTO GS_OUTPUT-NAME3
* FROM KNA1
* WHERE KUNNR EQ <FS>
** AND KTOKD EQ 'Z003'
* .
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '售达方不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*
* ENDIF.
*
* IF ITAB-COL EQ 6.
**添加前置零
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = <FS>
* IMPORTING
* OUTPUT = <FS>.
*
* SELECT SINGLE NAME1 INTO GS_OUTPUT-NAME2
* FROM KNA1
* WHERE KUNNR EQ <FS>
** AND KTOKD EQ 'Z003'
* .
*
* ENDIF.
*
* IF ITAB-COL EQ 11.
**检查退货原因是否存在
* PERFORM ADD_LEAD_ZERO USING 3 CHANGING <FS>.
*
* SELECT SINGLE * INTO @DATA(LS_TVAU)
* FROM TVAU
* WHERE AUGRU EQ @<FS>.
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '原因代码不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
* ENDIF.
*
**检查产品是否存在
* IF ITAB-COL EQ LV_FIXED.
**取物料描述
**添加前置零
*
* UNPACK <FS> TO <FS>.
*
* SELECT SINGLE MAKTX INTO GS_OUTPUT-MAKTX
* FROM MAKT
* WHERE MATNR EQ <FS>
* AND SPRAS EQ 1.
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '物料不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*
*****检查单位
* IF ITAB-COL EQ 15.
*
* CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
* EXPORTING
* INPUT = <FS>
* LANGUAGE = SY-LANGU
* IMPORTING
* OUTPUT = <FS>
* EXCEPTIONS
* UNIT_NOT_FOUND = 1
* OTHERS = 2.
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '单位不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
* ENDIF.
*
**检查库存地点
* IF ITAB-COL EQ 13.
* SELECT SINGLE LGORT FROM T001L
* INTO @DATA(LV_LGORT)
* WHERE LGORT EQ @<FS>.
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '库存地不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*
* ENDIF.
*
**检查订单行项目类型
* IF ITAB-COL EQ 14.
* IF <FS> NE 'REN' AND <FS> NE 'REN2'.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '行项目类型不正确' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*
* ENDIF.
*
** ENDIF.
** AT END OF ROW.
** IF SY-TABIX NE 1.
** APPEND GS_LOAD TO GT_LOAD.
** MOVE-CORRESPONDING GS_LOAD TO GS_OUTPUT.
**
** ADD 1 TO LV_POSNR.
** MOVE LV_POSNR TO GS_OUTPUT-BATPO.
**
** IF GS_OUTPUT-CELLCOLOR IS NOT INITIAL.
** GS_OUTPUT-ZICON1 = '@0A@'."红灯
** ELSE.
** GS_OUTPUT-ZICON1 = '@08@'."绿灯
**
** ENDIF.
**
*** GS_OUTPUT-ZICON2 = ICON_SET_STATE.
** IF GS_OUTPUT-ZICON1 = '@0A@'."红灯
** PERFORM SET_STYLE USING 'SEL' 'DISABLE' CHANGING GS_OUTPUT-STYLE.
** ENDIF.
** APPEND GS_OUTPUT TO GT_OUTPUT.
**
** CLEAR GS_LOAD.
** CLEAR GS_OUTPUT.
** CLEAR GS_CELLCOLOR.
** ENDIF.
** ENDAT.
* ENDLOOP.
*
* IF GS_LOAD-MENGE GT 0.
*
* APPEND GS_LOAD TO GT_LOAD.
*
* MOVE-CORRESPONDING GS_LOAD TO GS_OUTPUT.
** MOVE GS_LOAD-ZJHSL TO GS_OUTPUT-ZTZSL.
* ADD 1 TO LV_POSNR.
* MOVE LV_POSNR TO GS_OUTPUT-BATPO.
*
* IF GS_OUTPUT-CELLCOLOR IS NOT INITIAL.
* GS_OUTPUT-ZICON1 = '@0A@'."红灯
* ELSE.
* GS_OUTPUT-ZICON1 = '@08@'."绿灯
* ENDIF.
*
** GS_OUTPUT-ZICON2 = ICON_SET_STATE.
* IF GS_OUTPUT-ZICON1 = '@0A@'."红灯
* PERFORM SET_STYLE USING 'SEL' 'DISABLE' CHANGING GS_OUTPUT-STYLE.
* ENDIF.
* APPEND GS_OUTPUT TO GT_OUTPUT.
* CLEAR: GS_OUTPUT,GS_CELLCOLOR.
* ELSE.
* CLEAR: GS_OUTPUT,GS_CELLCOLOR.
* ENDIF.
*
* IF GT_LOAD[] IS INITIAL.
* MESSAGE '文件名或数据为空,请确认后重试!' TYPE 'I'.
* ELSE.
* ENDIF.
ENDFORM. " FRM_UPLOAD_FILE
*&---------------------------------------------------------------------*
*& Form FRM_DOWNLOAD_TEMPLATE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_download_template .
CLEAR: gt_header.
*填充抬头
*财务批导模板抬头
gs_header
-ztext = '日期'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
* GS_HEADER-ZTEXT = '客户编码'.
* APPEND GS_HEADER TO GT_HEADER.
* CLEAR GS_HEADER.
*
gs_header
-ztext = '售达方编码'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
*
gs_header
-ztext = '送达方编码'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
*
gs_header
-ztext = '业务员'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
*
gs_header
-ztext = '主任'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退单单号'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退货原因编码'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '库存地点编码'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退货项目类型'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '产品编号'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退货数量'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '数量单位'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退货价格'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '金额'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '过账日期'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
*下载模板
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
window_title
= '财务批导模板'
with_encoding
= 'X'
initial_directory
= c_path
prompt_on_overwrite
= 'X'
default_file_name
= c_filename
CHANGING
filename
= c_filename
path
= c_path
fullpath
= c_fullpath
user_action
= user_action
file_encoding
= encoding
EXCEPTIONS
cntl_error
= 1
error_no_gui
= 2
not_supported_by_gui
= 3
OTHERS = 4.
IF user_action <> cl_gui_frontend_services=>action_ok.
EXIT.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename
= c_fullpath
filetype
= 'DAT'
TABLES
data_tab
= gt_load
fieldnames
= gt_header
EXCEPTIONS
file_write_error
= 1
no_batch
= 2
gui_refuse_filetransfer
= 3
invalid_type
= 4.
* DATA: LV_OBJDATA LIKE WWWDATATAB,
* LV_OBJ_NAME LIKE WWWDATATAB-OBJID,
* LV_DESTINATION LIKE RLGRAP-FILENAME,
* LV_OBJID LIKE SY-REPID,
* LV_SUBRC LIKE SY-SUBRC.
* DATA:L_RET TYPE ABAP_BOOL,
* LV_ANSWER.
* DATA:LV_FILE TYPE STRING.
*
* MOVE C_PATH TO LV_FILE.
* CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
* EXPORTING
* WINDOW_TITLE = '退货批导模板'
* WITH_ENCODING = 'X'
* INITIAL_DIRECTORY = C_PATH
* PROMPT_ON_OVERWRITE = 'X'
* DEFAULT_FILE_NAME = C_FILENAME
* CHANGING
* FILENAME = C_FILENAME
* PATH = C_PATH
* FULLPATH = C_FULLPATH
* USER_ACTION = USER_ACTION
* FILE_ENCODING = ENCODING
* EXCEPTIONS
* CNTL_ERROR = 1
* ERROR_NO_GUI = 2
* NOT_SUPPORTED_BY_GUI = 3
* OTHERS = 4.
*
* IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* EXIT.
* ENDIF.
*
* CREATE OBJECT G_EXCEL 'EXCEL.APPLICATION'.
* GET PROPERTY OF G_EXCEL 'Workbooks' = G_WORKBOOK .
* CALL METHOD OF
* G_WORKBOOK
* 'Close'.
*
* IF USER_ACTION EQ '0'.
* MOVE 'ZSD_XLS_005' TO LV_OBJ_NAME.
* SELECT SINGLE RELID OBJID
* FROM WWWDATA
* INTO CORRESPONDING FIELDS OF LV_OBJDATA
* WHERE SRTF2 = 0 AND RELID = 'MI'
* AND OBJID = LV_OBJ_NAME.
*
* LV_DESTINATION = C_FULLPATH.
*
* CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
* EXPORTING
* KEY = LV_OBJDATA
* DESTINATION = LV_DESTINATION
* IMPORTING
* RC = LV_SUBRC.
* IF LV_SUBRC = 0.
* P_FILEPATH = C_PATH.
* ENDIF.
* ENDIF.
*
* CALL METHOD OF
* G_WORKBOOK
* 'open'
* EXPORTING
* #1 = C_FULLPATH.
*
* CALL METHOD OF
* G_EXCEL
* 'worksheets' = G_SHEET
* EXPORTING
* #1 = 1.
*
* CALL METHOD OF
* G_SHEET
* 'activate'.
*
* SET PROPERTY OF G_EXCEL 'visible' = 1.
*
* FREE OBJECT G_SHEET.
* FREE OBJECT G_APPLICA.
* FREE OBJECT G_WORKBOOK.
* FREE OBJECT G_EXCEL.
ENDFORM. " FRM_DOWNLOAD_TEMPLATE
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_get_data .
IF r4 EQ 'X'.
*IF R2 EQ 'X'.
SELECT
a
~*,
b
~zthlx,
b
~zuser,
b
~zdate
INTO CORRESPONDING FIELDS OF TABLE @gt_output
FROM ztsd015 AS a
INNER
JOIN ztsd014 AS b ON a~batno EQ b~batno
WHERE a~batno IN @s_batno
AND a~indat IN @s_indat
AND a~zyddh IN @s_zyddh
AND a~lgort IN @s_lgort
* AND KUNNR IN @S_KUNNR
AND shpto IN @s_sndto
AND sldto IN @s_selto
AND matnr IN @s_matnr
AND b~zdate IN @s_zdate
AND b~zuser IN @s_zuser
* AND A~ZSTAT EQ 'A'"初始状态
AND b~zthlx EQ 'A'."实退
*elseIF R6 EQ 'X'."过账货物移动
* SELECT
* A~*,
* B~ZTHLX
* INTO CORRESPONDING FIELDS OF TABLE @GT_OUTPUT
* FROM ZTSD015 AS A
* INNER JOIN ZTSD014 AS B ON A~BATNO EQ B~BATNO
* WHERE A~BATNO IN @S_BATNO
* AND A~INDAT IN @S_INDAT
* AND KUNNR IN @S_KUNNR
* AND SHPTO IN @S_SNDTO
* AND SLDTO IN @S_SELTO
* AND MATNR IN @S_MATNR
* AND A~ZSTAT EQ 'B'"未过账
* AND B~ZTHLX EQ 'A'."实退
ELSEIF r5 EQ 'X'.
SELECT
a
~*,
b
~zthlx,
b
~zuser,
b
~zdate
INTO CORRESPONDING FIELDS OF TABLE @gt_output
FROM ztsd015 AS a
INNER
JOIN ztsd014 AS b ON a~batno EQ b~batno
WHERE a~batno IN @s_batno
AND a~indat IN @s_indat
AND a~zyddh IN @s_zyddh
AND a~lgort IN @s_lgort
* AND KUNNR IN @S_KUNNR
AND shpto IN @s_sndto
AND sldto IN @s_selto
AND matnr IN @s_matnr
AND zthdd IN @s_zthdd
AND zmfck IN @s_zmfck
AND zdn IN @s_zthdn
AND b~zdate IN @s_zdate
AND b~zuser IN @s_zuser
AND b~zthlx EQ 'B'."空退
ENDIF.
ENDFORM. " FRM_GET_DATA
*&---------------------------------------------------------------------*
*& Form FRM_PROCESS_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_process_data .
DATA: lt_output TYPE TABLE OF ty_output.
DATA lv_meins TYPE meins.
DATA:lv_auart TYPE auart.
" DATA:lv_bstkd TYPE vbkd-bstkd_e.
LOOP AT gt_output ASSIGNING <wa_data>.
gt_batno
-batno = <wa_data>-batno.
gt_batno
-batpo = <wa_data>-batpo.
APPEND gt_batno.
<wa_data>
-key = <wa_data>-batno && <wa_data>-batpo.
*客户名称
SELECT SINGLE name1 INTO <wa_data>-name2
FROM kna1
WHERE kunnr EQ <wa_data>-shpto.
*客户名称
SELECT SINGLE name1 INTO <wa_data>-name3
FROM kna1
WHERE kunnr EQ <wa_data>-sldto.
*物料描述
SELECT SINGLE maktx INTO <wa_data>-maktx
FROM makt
WHERE matnr EQ <wa_data>-matnr
AND spras EQ 1.
*库存底单描述
SELECT SINGLE lgobe INTO <wa_data>-lgobe
FROM t001l
WHERE werks EQ '1000'
AND lgort EQ <wa_data>-lgort.
IF <wa_data>-zthlx EQ 'A'.
<wa_data>
-zthms = '实退'.
ELSEIF <wa_data>-zthlx EQ 'B'.
<wa_data>
-zthms = '空退'.
ENDIF.
<wa_data>
-zddjg = <wa_data>-zddje / <wa_data>-menge.
lv_meins
= 'EA'.
<wa_data>
-zdw1 = lv_meins.
PERFORM frm_convert_unit(zsdr019) USING <wa_data>-matnr
<wa_data>
-meins
lv_meins
<wa_data>
-menge
CHANGING <wa_data>-zsl1.
PERFORM frm_get_stat USING <wa_data>-zthdd.
*已审批的不允许再选择
IF <wa_data>-zthdd NE space
OR <wa_data>-zmfck NE space.
* <WA_DATA>-SEL = '-'.
gs_style
-fieldname = 'MENGE'.
gs_style
-style = cl_gui_alv_grid=>mc_style_disabled.
READ TABLE <wa_data>-style TRANSPORTING NO FIELDS WITH KEY fieldname = gs_style-fieldname.
IF sy-subrc EQ 0.
MODIFY <wa_data>-style FROM gs_style INDEX sy-tabix.
ELSE.
INSERT gs_style INTO TABLE <wa_data>-style .
ENDIF.
CLEAR gs_style.
gs_style
-fieldname = 'ZDDJE'.
gs_style
-style = cl_gui_alv_grid=>mc_style_disabled.
READ TABLE <wa_data>-style TRANSPORTING NO FIELDS WITH KEY fieldname = gs_style-fieldname.
IF sy-subrc EQ 0.
MODIFY <wa_data>-style FROM gs_style INDEX sy-tabix.
ELSE.
INSERT gs_style INTO TABLE <wa_data>-style .
ENDIF.
CLEAR gs_style.
gs_style
-fieldname = 'ZYDDH'.
gs_style
-style = cl_gui_alv_grid=>mc_style_disabled.
READ TABLE <wa_data>-style TRANSPORTING NO FIELDS WITH KEY fieldname = gs_style-fieldname.
IF sy-subrc EQ 0.
MODIFY <wa_data>-style FROM gs_style INDEX sy-tabix.
ELSE.
INSERT gs_style INTO TABLE <wa_data>-style .
ENDIF.
CLEAR gs_style.
ENDIF.
SELECT SINGLE mseg~budat_mkpf INTO <wa_data>-budat
FROM vbkd
INNER
JOIN lips ON vbkd~vbeln EQ lips~vgbel AND vbkd~posnr EQ lips~vgpos
INNER
JOIN mseg ON lips~vbeln EQ mseg~vbeln_im AND lips~posnr EQ mseg~vbelp_im
WHERE vbkd~bstkd_e EQ <wa_data>-key.
ENDLOOP.
* IF R6 EQ 'X'.
*过账只显示生成了交货单且未过账的项目
* DELETE GT_OUTPUT WHERE ( ZTHDN IS INITIAL AND ZDN IS INITIAL )
* OR ( WBSTK1 EQ 'C' OR WBSTK2 EQ 'C' ).
* ENDIF.
IF r3 EQ 'X'.
*空退免费发货只显示已退货过账且未生成免费订单的项目
DELETE gt_output WHERE ( zthdd IS INITIAL OR zmfck IS NOT INITIAL )
OR wbstk1 NE 'C'.
ENDIF.
IF r2 EQ 'X'.
DELETE gt_output WHERE zthdd IS NOT INITIAL." AND wbstk1 EQ 'C'.
ENDIF.
SORT gt_output BY indat zyddh matnr.
*将初始内表放入内存
lt_output
= gt_output.
EXPORT lt_output TO MEMORY ID 'GT_OUTPUT'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DEFINE_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_define_layout .
gs_layout
-zebra = 'X'.
gs_layout
-cwidth_opt = 'A'.
gs_layout
-ctab_fname = 'CELLCOLOR'.
gs_layout
-stylefname = 'STYLE'.
* GS_LAYOUT-NO_ROWMARK = 'X'.
gs_variant
-report = sy-repid.
gs_stable
-row = 'X'.
gs_stable
-col = 'X'.
ENDFORM. " FRM_DEFINE_LAYOUT
*&---------------------------------------------------------------------*
*& Form FRM_BUILD_FIELDCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_build_fieldcat .
DEFINE build_fc.
GS_STRUCTURE
-FIELDNAME = &1.
GS_STRUCTURE
-COLTEXT = &2.
GS_STRUCTURE
-JUST = &3.
GS_STRUCTURE
-REF_TABLE = &4.
GS_STRUCTURE
-REF_FIELD = &5.
GS_STRUCTURE
-NO_ZERO = 'X'.
GS_STRUCTURE
-EMPHASIZE = &6.
IF &1 EQ 'SEL'.
GS_STRUCTURE
-CHECKBOX = 'X'.
GS_STRUCTURE
-EDIT = 'X'.
ENDIF.
IF &1 EQ 'ZYDDH' .
GS_STRUCTURE
-NO_ZERO = ' '.
ENDIF.
IF ( &1 EQ 'MENGE' OR &1 EQ 'ZDDJE' OR &1 EQ 'ZYDDH' OR &1 EQ 'BUDAT' ) AND ( R1 EQ 'X' OR R2 EQ 'X' ).
GS_STRUCTURE
-EDIT = 'X'.
ENDIF.
*批次F4
* IF GS_STRUCTURE-FIELDNAME EQ 'CHARG'.
* GS_STRUCTURE-F4AVAILABL = 'X'.
* GS_STRUCTURE-EDIT = 'X'.
* ENDIF.
APPEND GS_STRUCTURE TO GT_STRUCTURE.
CLEAR GS_STRUCTURE.
END-OF-DEFINITION.
IF r6 NE 'X'.
build_fc
:
'SEL' '选择列' '' '' '' ''.
ENDIF.
build_fc
:
'INDAT' '退货日期' '' 'ZTSD015' 'INDAT' '',
'BUDAT' '过账日期' '' 'MKPF' 'BUDAT' '',
'SHPTO' '送达方编号' '' 'KNA1' 'KUNNR' '',
'NAME2' '送达方名称' '' 'KNA1' 'NAME1' '',
'SLDTO' '售达方编号' '' 'KNA1' 'KUNNR' '',
'NAME3' '售达方名称' '' 'KNA1' 'NAME1' '',
'ZYDDH' '退货单号' '' 'ZTSD015' 'ZYDDH' '',
* 'VKBUR' '销售部门' '' '' '' '',
'ZR' '主任' '' 'ZTSD015' 'ZR' '',
'ZYWY' '业务员' '' 'ZTSD015' 'ZYWY' '',
'LGORT' '库存地点编号' '' 'T001L' 'LGORT' '',
'LGOBE' '库存地点' '' 'T001L' 'LGOBE' '',
* 'ZDATE' '导入日期' '' 'ZTSD014' 'ZDATE' '',
'MATNR' '物料编号' '' 'MARA' 'MATNR' '',
'MAKTX' '物料名称' '' 'MAKT' 'MAKTX' '',
* 'CHARG' '批次' '' '' '',
'MENGE' '退货数量' '' 'LIPS' 'LFIMG' '',
'MEINS' '单位' '' 'MARA' 'MEINS' '',
'ZDDJG' '价格' '' 'ZTSD015' 'ZDDJG' '' ,
'ZDDJE' '金额' '' 'ZTSD015' 'ZDDJG' '',
'ZSL1' '基本单位数量' '' 'LIPS' 'LFIMG' '',
'ZDW1' '基本单位' '' 'MARA' 'MEINS' '',
'ZTHMS' '退货类型' '' '' '' '',
'PSTYV' '行项目类型' '' 'LIPS' 'PSTYV' 'C111',
'AUGRU' '退货原因编码' '' 'TVAU' 'AUGRU' '',
'ZTHYY' '退货原因' '' 'ZTSD015' 'ZTHYY' '',
'ZTHDD' '退货订单号' '' 'ZTSD015' 'ZTHDD' '',
'ZTHDN' '退货交货单' '' 'ZTSD015' 'ZDN' 'C111',
'WBSTK1' '退货状态' '' 'VBUK' 'WBSTK' '', "退货货物移动状态
'FKSTK1' '退货开票状态' '' 'VBUK' 'FKSTK' '', "退货开票状态
'ZMFCK' '免费出库单号' '' 'ZTSD015' 'ZMFCK' '',
'ZDN' '免费交货单号' '' 'ZTSD015' 'ZTHDN' 'C111',
* 'ZTEXT' '发货状态' '' '' '' ''.
'WBSTK2' '免费发货状态' '' 'VBUK' 'WBSTK' '', "免费发货货物移动状态
'FKSTK2' '免费开票状态' '' 'VBUK' 'FKSTK' '', "退货开票状态
'ZUSER' '导入人员' '' 'ZTSD014' 'ZUSER' '',
'ZDATE' '导入日期' '' 'ZTSD014' 'ZDATE' ''.
IF r1 EQ 'X'.
build_fc
:
'ZICON1' '指示灯' '' 'ICON' 'ID' '',
'MSSG' '消息' '' '' '' ''.
ENDIF.
gs_f4
-fieldname = 'CHARG'.
gs_f4
-register = 'X'.
gs_f4
-getbefore = 'X'.
gs_f4
-chngeafter = 'X'.
INSERT gs_f4 INTO TABLE gt_f4.
ENDFORM. " FRM_BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
DATA: lv_lines TYPE i.
DESCRIBE TABLE gt_output LINES lv_lines.
SET PF-STATUS '9000' .
SET TITLEBAR 'TITLE01' WITH '条目数：' lv_lines.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
DATA(ok_code) = sy-ucomm.
DATA lv_result TYPE string.
DATA: lt_output TYPE TABLE OF ty_output.
CLEAR lt_output.
CASE ok_code.
WHEN 'SAVE'.
IF r1 NE 'X'.
RETURN.
ENDIF.
PERFORM frm_save_data USING ' ' CHANGING lv_result.
IF lv_result EQ 'S'.
MESSAGE '保存成功！' TYPE 'S'.
*更新内存
lt_output
= gt_output.
EXPORT lt_output TO MEMORY ID 'GT_OUTPUT'.
ELSEIF lv_result EQ 'E'.
MESSAGE '保存失败！' TYPE 'S' DISPLAY LIKE 'E'.
ELSEIF lv_result EQ 'N'.
MESSAGE '数据没有修改！' TYPE 'S'.
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
CALL METHOD gct_alv->refresh_table_display
EXPORTING
is_stable
= gs_stable
i_soft_refresh
= 'X'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module MOD_ALV_DISPLAY OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE mod_alv_display OUTPUT.
IF gctr_alv IS INITIAL.
*创建底层容器
CREATE OBJECT gctr_alv
EXPORTING
repid
= sy-repid
dynnr
= '9000'
side
= cl_gui_docking_container=>dock_at_left "ALV贴屏幕左边，从左边算屏幕宽度，
extension
= 1500 "屏幕宽度
* STYLE = CL_GUI_CONTROL=>WS_CHILD "可选参数，设置ALV是否可用手动拖动大小
EXCEPTIONS
cntl_error
= 1
cntl_system_error
= 2
create_error
= 3
lifetime_error
= 4
lifetime_dynpro_dynpro_link
= 5
OTHERS = 6.
IF sy-subrc <> 0.
MESSAGE s001(00) WITH '屏幕初始化失败'.
LEAVE LIST-PROCESSING.
ENDIF.
*创建ALV控件
CREATE OBJECT gct_alv
EXPORTING
i_parent
= gctr_alv.
IF r6 EQ 'X'.
CALL METHOD gct_alv->set_ready_for_input
EXPORTING
i_ready_for_input
= 0.
ENDIF.
CREATE OBJECT g_event.
*注册自定义工具条
SET HANDLER g_event->toolbar FOR gct_alv.
CALL METHOD gct_alv->register_f4_for_fields
EXPORTING
it_f4
= gt_f4[].
*显示ALV
CALL METHOD gct_alv->set_table_for_first_display
EXPORTING
is_variant
= gs_variant
i_save
= 'A'
i_default
= 'X'
is_layout
= gs_layout
it_toolbar_excluding
= gt_exclude
CHANGING
it_outtab
= gt_output
it_fieldcatalog
= gt_structure[].
*注册F4
SET HANDLER g_event->on_f4 FOR gct_alv.
**注册double click
SET HANDLER g_event->handle_double_click FOR gct_alv.
*注册User command
SET HANDLER g_event->handle_user_command FOR gct_alv.
*注册data_change
* SET HANDLER G_EVENT->HANDLE_DATA_CHANGED FOR GCT_ALV.
* SET HANDLER G_EVENT->HANDLE_CHANGE_FINISH FOR GCT_ALV.
*以下两个方法达到的效果是：光标离开正在编辑的单元格时，就触发handle_data_changed
CALL METHOD gct_alv->register_edit_event
EXPORTING
i_event_id
= cl_gui_alv_grid=>mc_evt_modified.
CALL METHOD gct_alv->register_edit_event
EXPORTING
i_event_id
= cl_gui_alv_grid=>mc_evt_enter.
*
CALL METHOD cl_gui_control=>set_focus "设置焦点在REF_ALVG1上
EXPORTING
control = gct_alv.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form FRM_EXCLUDE_BUTTONS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_exclude_buttons TABLES t_exclude TYPE ui_functions.
CLEAR gt_exclude.
DATA: ls_exclude TYPE ui_func.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_MAXIMUM .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_MINIMUM .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SUBTOT .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SUM .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_AVERAGE .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_SUM .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_SUBTOT .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SORT_ASC.
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SORT_DSC .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ls_exclude
= cl_gui_alv_grid=>mc_fc_find .
APPEND ls_exclude TO gt_exclude.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_FILTER .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ls_exclude
= cl_gui_alv_grid=>mc_fc_print .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_print_prev .
APPEND ls_exclude TO gt_exclude.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_EXPORT .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ls_exclude
= cl_gui_alv_grid=>mc_fc_graph .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_mb_view .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_detail .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_help .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_info .
APPEND ls_exclude TO gt_exclude.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_VARIANT.
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_delete_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_cut.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_copy.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_copy_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_insert_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_append_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_paste.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_undo.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_check.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_refresh.
APPEND ls_exclude TO gt_exclude.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SAVE_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_save_data USING u_str TYPE string CHANGING c_result TYPE string.
DATA:
lt_ztsd014
TYPE TABLE OF ztsd014,
lt_ztsd015
TYPE TABLE OF ztsd015,
lt_ztsd016
TYPE TABLE OF ztsd016,
lt_output
TYPE TABLE OF ty_output,
ls_ztsd014
TYPE ztsd014, "直营平台-销售退货抬头
ls_ztsd015
TYPE ztsd015, "直营平台-销售退货行项目
ls_ztsd016
TYPE ztsd016, "直营平台-销售退货行项目修改日志
ls_output
TYPE ty_output.
DATA: lv_batno TYPE char10, "批导编号
lv_verno
TYPE char3. "版本号
DATA: check_ok TYPE string.
DATA: check_okay TYPE string.
CLEAR c_result.
CLEAR:
lt_ztsd014
,
lt_ztsd015
,
lt_ztsd016
,
lt_output
,
ls_ztsd014
,
ls_ztsd015
,
ls_ztsd016
,
ls_output
.
*检查数据是否有修改
PERFORM frm_check_changes CHANGING check_okay.
*如果是批导数据，则生成批导序号和版本号
IF r1 EQ 'X'.
*检查是否选择了数据
READ TABLE gt_output TRANSPORTING NO FIELDS WITH KEY sel = 'X'.
IF sy-subrc NE 0.
MESSAGE '请至少选择一条数据！' TYPE 'S' DISPLAY LIKE 'E'.
EXIT.
ENDIF.
LOOP AT gt_output INTO gs_output WHERE sel = 'X'.
IF gs_output-zicon1 EQ '@0A@'.
MESSAGE '数据有误，请检查。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
ENDLOOP.
*检查是否当前已经生成了批导流水号
* BREAK-POINT.
IMPORT lv_batno FROM MEMORY ID 'BATNO'.
IF lv_batno IS INITIAL.
*若没有生成则新生成
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr
= '03'
object
= 'ZSD001'
* QUANTITY = '1'
* SUBOBJECT = ' '
* TOYEAR = '0000'
* IGNORE_BUFFER = ' '
IMPORTING
number = lv_batno
* QUANTITY =
* RETURNCODE =
EXCEPTIONS
interval_not_found
= 1
number_range_not_intern
= 2
object_not_found
= 3
quantity_is_0
= 4
quantity_is_not_1
= 5
interval_overflow
= 6
buffer_overflow
= 7
OTHERS = 8.
*将生成的流水号保存到内存
EXPORT lv_batno TO MEMORY ID 'BATNO'.
*新版本号
MOVE 1 TO lv_verno.
*填充抬头表ZTSD014
MOVE lv_batno TO ls_ztsd014-batno.
MOVE sy-uname TO ls_ztsd014-zuser.
MOVE sy-datum TO ls_ztsd014-zdate.
MOVE sy-uzeit TO ls_ztsd014-ztime.
IF r4 EQ 'X'.
MOVE 'A' TO ls_ztsd014-zthlx.
ELSEIF r5 EQ 'X'.
MOVE 'B' TO ls_ztsd014-zthlx.
ENDIF.
MODIFY ztsd014 FROM ls_ztsd014.
*若已生成流水号
ELSEIF lv_batno IS NOT INITIAL
AND check_okay EQ 'F'.
*若没有修改则不进行保存
c_result
= 'N'."表示没有修改
EXIT.
ENDIF.
LOOP AT gt_output INTO gs_output WHERE sel EQ 'X'.
*更新内表
MOVE lv_batno TO gs_output-batno.
IF lv_verno IS NOT INITIAL.
MOVE lv_verno TO gs_output-verno.
ENDIF.
MODIFY gt_output FROM gs_output.
*填充退货订单明细表
MOVE-CORRESPONDING gs_output TO ls_ztsd015.
APPEND ls_ztsd015 TO lt_ztsd015.
CLEAR ls_ztsd015.
*填充退货订单日志表
MOVE-CORRESPONDING gs_output TO ls_ztsd016.
* MOVE LV_BATNO TO LS_ZTSD003-BATNO.
* MOVE LV_VERNO TO LS_ZTSD003-VERNO.
MOVE sy-uname TO ls_ztsd016-zuser.
MOVE sy-datum TO ls_ztsd016-zdate.
MOVE sy-uzeit TO ls_ztsd016-ztime.
APPEND ls_ztsd016 TO lt_ztsd016.
CLEAR ls_ztsd016.
ENDLOOP.
ELSE."IF." R2 EQ 'X' ."如果是显示已导入数据，则检查是否有修改数据
c_result
= 'N'.
* LT_OUTPUT = GT_OUTPUT.
SORT gt_output BY batno."按批导编号排序
* SORT LT_OUTPUT BY BATNO."按批导编号排序
LOOP AT gt_output ASSIGNING <wa_data> WHERE sel EQ 'X'.
ls_output
= <wa_data>.
AT NEW batno.
lv_verno
= ls_output-verno + 1."产生下一个版本,否则C_RESULT EQ SPACE
ls_output
-verno = lv_verno.
*填充抬头表ZTSD014
* MOVE LS_OUTPUT-BATNO TO LS_ZTSD014-BATNO.
* MOVE LS_OUTPUT-ZTHLX TO LS_ZTSD014-ZTHLX.
* MOVE SY-UNAME TO LS_ZTSD014-ZUSER.
* MOVE SY-DATUM TO LS_ZTSD014-ZDATE.
* MOVE SY-UZEIT TO LS_ZTSD014-ZTIME.
*
* MODIFY ZTSD014 FROM LS_ZTSD014.
*按批导编号更新版本号
MODIFY gt_output FROM ls_output TRANSPORTING verno
WHERE batno EQ ls_output-batno.
* CLEAR LS_OUTPUT.
ENDAT.
*填充退货订单日志表
MOVE-CORRESPONDING ls_output TO ls_ztsd016.
* MOVE LS_OUTPUT-BATNO TO LS_ZTSD003-BATNO.
* MOVE LS_OUTPUT-VERNO TO LS_ZTSD003-VERNO.
* MOVE LS_OUTPUT-ZMFCK TO LS_ZTSD016-ZMFCK.
* MOVE LS_OUTPUT-ZTHDD TO LS_ZTSD016-ZTHDD.
MOVE sy-uname TO ls_ztsd016-zuser.
MOVE sy-datum TO ls_ztsd016-zdate.
MOVE sy-uzeit TO ls_ztsd016-ztime.
APPEND ls_ztsd016 TO lt_ztsd016.
CLEAR ls_ztsd016.
*填充退货订单明细表
* MOVE-CORRESPONDING LS_OUTPUT TO LS_ZTSD015.
CLEAR ls_output.
ENDLOOP.
ENDIF.
DELETE gt_output WHERE sel EQ 'X'.
UNASSIGN <wa_data>
.
*更新数据库表
IF lt_ztsd014 IS NOT INITIAL.
MODIFY ztsd014 FROM TABLE lt_ztsd014.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
c_result
= 'S'.
ELSE.
ROLLBACK WORK.
c_result
= 'E'.
ENDIF.
ENDIF.
IF lt_ztsd015 IS NOT INITIAL.
MODIFY ztsd015 FROM TABLE lt_ztsd015.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
c_result
= 'S'.
ELSE.
ROLLBACK WORK.
c_result
= 'E'.
ENDIF.
ENDIF.
IF lt_ztsd016 IS NOT INITIAL.
MODIFY ztsd016 FROM TABLE lt_ztsd016.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
c_result
= 'S'.
ELSE.
ROLLBACK WORK.
c_result
= 'E'.
ENDIF.
ENDIF.
lt_output
= gt_output.
EXPORT lt_output TO MEMORY ID 'GT_OUTPUT'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CONFIRM_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LV_RESULT text
*----------------------------------------------------------------------*
FORM frm_confirm_data CHANGING c_result.
DATA:
* LT_OUTPUT TYPE TABLE OF TY_OUTPUT,
ls_output
TYPE ty_output.
DATA: lv_csyd TYPE char10, "超市验单
lv_so
TYPE vbeln. "SO
DATA: lv_result TYPE string.
CLEAR:c_result,lv_csyd,ls_output.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage
= 0
text = '正在操作销售订单... '.
*整理创建SO的数据
PERFORM frm_prepare_so_data CHANGING lv_result.
*创建SO
IF lv_result EQ 'E'.
c_result
= 'E'.
EXIT.
ENDIF.
PERFORM frm_create_so CHANGING lv_result.
CHECK lv_result EQ 'S'.
MOVE 'S' TO c_result.
LOOP AT gt_sodata INTO gs_sodata.
READ TABLE gt_output ASSIGNING <wa_data>
WITH KEY batno = gs_sodata-batno batpo = gs_sodata-batpo.
IF sy-subrc EQ 0.
* IF R4 EQ 'X'.
IF r2 EQ 'X'.
MOVE: gs_sodata-so TO <wa_data>-zthdd,
gs_sodata
-zdn TO <wa_data>-zthdn
.
ENDIF.
* ELSEIF R5 EQ 'X'.
IF r3 EQ 'X'.
MOVE: gs_sodata-so TO <wa_data>-zmfck,
gs_sodata
-zdn TO <wa_data>-zdn
.
ENDIF.
ENDIF.
ENDLOOP.
PERFORM frm_show_message.
UNASSIGN <wa_data>
.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_PREPARE_SO_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_prepare_so_data CHANGING c_result.
DATA:
ls_a515
TYPE a515,
ls_ztsd007
TYPE ztsd007.
DATA: lv_result TYPE string.
DATA lv_msg TYPE string.
CLEAR gt_sodata.
LOOP AT gt_output INTO gs_output WHERE sel EQ 'X' ."AND SO IS INITIAL.
IF r2 EQ 'X' AND gs_output-zthdd NE space.
CONTINUE.
ENDIF.
IF r3 EQ 'X' AND gs_output-zmfck NE space.
CONTINUE.
ENDIF.
MOVE-CORRESPONDING gs_output TO gs_sodata.
gs_sodata
-zstring = gs_sodata-sldto && gs_sodata-shpto && gs_sodata-zyddh && gs_sodata-budat.
MOVE gs_output-menge TO gs_sodata-kpein.
MOVE gs_output-meins TO gs_sodata-kmein.
MOVE '1000' TO gs_sodata-werks.
PERFORM frm_check_partner USING gs_sodata-sldto CHANGING lv_result.
IF lv_result EQ 'E'.
c_result
= 'E'.
RETURN.
ENDIF.
*检查销售组织对应的成本中心是否存在
SELECT SINGLE * INTO ls_ztsd007
FROM ztsd007
WHERE vkbur EQ gs_sodata-vkbur
AND vkgrp EQ gs_sodata-vkgrp.
IF sy-subrc NE 0.
c_result
= 'E'.
* LV_MSG = '售达方' && GS_SODATA-SLDTO && '的销售组' && GS_SODATA-VKBUR && '和销售部门' && GS_SODATA-VKGRP && '对应的成本中心不存在。'.
lv_msg
= '销售组' && gs_sodata-vkbur && '和销售部门' && gs_sodata-vkgrp && '对应的成本中心不存在。'.
MESSAGE s001 WITH lv_msg DISPLAY LIKE 'E'.
* MESSAGE '客户的销售组和销售办部门对应的成本中心不存在。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
APPEND gs_sodata TO gt_sodata.
CLEAR: gs_sodata,gs_output.
c_result
= 'S'.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_SO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LV_RESULT text
*----------------------------------------------------------------------*
FORM frm_create_so CHANGING c_result.
DATA:lt_sodata TYPE TABLE OF ty_sodata,
ls_sodata
TYPE ty_sodata.
DATA:lv_posnr(6) TYPE n,
lv_string
TYPE string.
DATA: lv_so TYPE vbeln,
* LV_SO1 TYPE VBELN,
lv_dn
TYPE vbeln_vl,
* LV_DN1 TYPE VBELN_VL,
l_update
,
l_kschl
TYPE kschl, "条件类型
l_st_no
TYPE stunr.
DATA: ls_output TYPE ty_output.
DATA:
ls_header
TYPE bapisdhd1,
ls_headerx
TYPE bapisdhd1x,
testrun
TYPE bapiflag-bapiflag VALUE 'X',
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2,
lt_item
TYPE TABLE OF bapisditm,
ls_item
TYPE bapisditm,
lt_itemx
TYPE TABLE OF bapisditmx,
ls_itemx
TYPE bapisditmx,
lt_pnr
TYPE TABLE OF bapiparnr,
ls_pnr
TYPE bapiparnr,
lt_sch
TYPE TABLE OF bapischdl,
ls_sch
TYPE bapischdl,
lt_schx
TYPE TABLE OF bapischdlx,
ls_schx
TYPE bapischdlx,
lt_cond
TYPE TABLE OF bapicond,
ls_cond
TYPE bapicond,
lt_condx
TYPE TABLE OF bapicondx,
ls_condx
TYPE bapicondx.
DATA: lt_so_item TYPE TABLE OF bapidlvreftosalesorder,
ls_so_item
TYPE bapidlvreftosalesorder.
* DATA: LV_POSNR TYPE POSNR.
DATA: status_buff_init TYPE c VALUE 'X',
call_activity
(4), " Aktiver Aufrufer bei Call
g_no_dequeue_sd_sales
TYPE c.
* DATA: LV_POSNR TYPE POSNR.
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
SORT gt_sodata BY zstring.
* PERFORM FRM_CHECK_SODATA CHANGING C_RESULT.
LOOP AT gt_sodata ASSIGNING <wa_sodata>.
*做标记
<wa_sodata>
-so = 'X'.
<wa_sodata>
-zdn = 'X'.
* <WA_SODATA>-SO1 = 'X'.
* <WA_SODATA>-ZDN1 = 'X'.
*
ls_sodata
= <wa_sodata>.
ADD 10 TO lv_posnr.
ls_item
-itm_number = lv_posnr.
ls_item
-material = <wa_sodata>-matnr.
ls_item
-target_qty = <wa_sodata>-menge.
ls_item
-plant = <wa_sodata>-werks.
ls_item
-store_loc = <wa_sodata>-lgort.
ls_item
-target_qu = <wa_sodata>-meins.
ls_item
-sales_unit = <wa_sodata>-meins.
ls_item
-purch_no_s = <wa_sodata>-key.
* IF <wa_sodata>-key IS NOT INITIAL.
*
* IF r3 EQ 'X'.
* SELECT SINGLE vbeln INTO @DATA(lv_vbelnso)
* FROM vbkd
* WHERE bstkd_e EQ @<wa_sodata>-key AND bstkd EQ 'WFZYTH'.
* IF sy-subrc EQ 0.
* MESSAGE '已有免费订单:' && lv_vbelnso && '生成！' TYPE 'S' DISPLAY LIKE 'E'.
* EXIT.
* ENDIF.
* ENDIF.
*
** IF r2 EQ 'X'.
** SELECT SINGLE vbeln INTO @DATA(lv_vbelnso1)
** FROM vbkd
** WHERE bstkd_e EQ @<wa_sodata>-key AND bstkd NE 'WFZYTH'.
** IF sy-subrc EQ 0.
** MESSAGE '已有退货订单:' && lv_vbelnso1 && '生成！' TYPE 'S' DISPLAY LIKE 'E'.
** EXIT.
** ENDIF.
** ENDIF.
*
* ENDIF.
IF r5 EQ 'X' OR r4 EQ 'X'.
*检查物料是否启用了批次管理
SELECT SINGLE xchpf INTO @DATA(xchpf)
FROM mara
WHERE matnr EQ @ls_item-material.
IF xchpf EQ 'X'.
ls_item
-batch = gv_charg.
IF R4 EQ 'X'.
ls_item
-batch = gv_charg1.
ENDIF.
ls_itemx
-batch = 'X'.
ENDIF.
ENDIF.
* LS_ITEM-SHIP_POINT = <WA_SODATA>-LGORT."装运点与库存地点相同
IF r3 EQ 'X'."
ls_item
-item_categ = 'ZTN1'.
ls_itemx
-item_categ = 'X'.
ENDIF.
IF r2 EQ 'X'."实退需指定行项目类型
ls_item
-item_categ = <wa_sodata>-pstyv.
ls_itemx
-item_categ = 'X'.
ENDIF.
APPEND ls_item TO lt_item.
CLEAR ls_item.
ls_itemx
-itm_number = lv_posnr.
ls_itemx
-material = 'X'.
ls_itemx
-target_qty = 'X'.
ls_itemx
-plant = 'X'.
ls_itemx
-store_loc = 'X'.
ls_itemx
-target_qu = 'X'.
ls_itemx
-sales_unit = 'X'.
ls_itemx
-purch_no_s = 'X'.
* LS_ITEMX-SHIP_POINT = 'X'.
APPEND ls_itemx TO lt_itemx.
CLEAR ls_itemx.
ls_pnr
-partn_role = 'AG'." 'SP'."售达方
ls_pnr
-partn_numb = <wa_sodata>-sldto.
APPEND ls_pnr TO lt_pnr.
CLEAR ls_pnr.
ls_pnr
-partn_role = 'WE'." 'SH'."送达方
ls_pnr
-partn_numb = <wa_sodata>-shpto.
APPEND ls_pnr TO lt_pnr.
CLEAR ls_pnr.
ls_sch
-itm_number = lv_posnr.
ls_sch
-sched_line = 1.
ls_sch
-req_qty = <wa_sodata>-menge.
APPEND ls_sch TO lt_sch.
CLEAR ls_sch.
ls_schx
-itm_number = lv_posnr.
ls_schx
-sched_line = 1.
ls_schx
-req_qty = 'X'.
APPEND ls_schx TO lt_schx.
CLEAR ls_schx.
*费用类型退货不需要检查手工条件
IF <wa_sodata>-pstyv NE 'REN4'.
PERFORM get_kschl(zsdr021)
USING 'ZRE1'
<wa_sodata>
-vkorg
<wa_sodata>
-vtweg
<wa_sodata>
-spart
<wa_sodata>
-sldto
CHANGING l_kschl l_update l_st_no.
ls_cond
-itm_number = lv_posnr.
ls_cond
-cond_st_no = l_st_no.
ls_cond
-cond_count = 1.
ls_cond
-cond_type = l_kschl.
ls_cond
-cond_updat = l_update.
* LS_COND-COND_VALUE = <WA_SODATA>-ZDDJG.
ls_cond
-cond_value = <wa_sodata>-zddje.
ls_cond
-cond_p_unt = <wa_sodata>-kpein.
ls_cond
-cond_unit = <wa_sodata>-kmein.
*LS_COND-CONDCHAMAN = 'X'.
ls_cond
-currency = 'CNY'.
APPEND ls_cond TO lt_cond.
CLEAR ls_cond.
ls_condx
-itm_number = lv_posnr.
ls_condx
-cond_st_no = l_st_no.
ls_condx
-cond_count = 1.
ls_condx
-cond_type = l_kschl.
ls_condx
-updateflag = l_update.
ls_condx
-cond_value = 'X'.
ls_condx
-cond_p_unt = 'X'.
ls_condx
-cond_unit = 'X'.
APPEND ls_condx TO lt_condx.
CLEAR ls_condx.
ENDIF.
UPDATE ztsd015 SET zthdd = 'X'
WHERE batno EQ <wa_sodata>-batno
AND batpo EQ <wa_sodata>-batpo.
AT END OF zstring.
CLEAR lv_posnr.
ls_header
-sales_org = <wa_sodata>-vkorg.
ls_header
-distr_chan = <wa_sodata>-vtweg.
ls_header
-division = <wa_sodata>-spart.
ls_header
-sales_grp = <wa_sodata>-vkgrp.
ls_header
-sales_off = <wa_sodata>-vkbur.
ls_header
-ord_reason = <wa_sodata>-augru."退货原因
ls_header
-purch_no_s = <wa_sodata>-zyddh.
ls_header
-purch_no_c = 'WFZYTH'.
*实退
*SO
IF r2 EQ 'X'.
ls_header
-doc_type = 'ZRE1'."不关联退货订单
PERFORM frm_create_returnso
TABLES lt_item lt_itemx lt_pnr lt_sch lt_schx lt_cond lt_condx
USING ls_header
CHANGING lv_so c_result.
*创建DN
IF c_result EQ 'S'.
"WAIT UP TO 1 SECONDS.
DO 1000 TIMES.
SELECT SINGLE vbeln INTO @DATA(kk)
FROM vbak
WHERE vbeln EQ @lv_so.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDDO.
"IF sy-subrc EQ 0.
"PERFORM frm_create_dn USING lv_so CHANGING lv_dn c_result.
"ENDIF.
PERFORM frm_create_dn(zsdr006)
USING lv_so CHANGING lv_dn c_result.
ENDIF.
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
WAIT UP TO 1 SECONDS.
IF lv_so IS NOT INITIAL.
IF lv_dn IS INITIAL.
DO 1000 TIMES.
SELECT SINGLE vbeln INTO lv_dn FROM vbfa
WHERE ( vbelv EQ lv_so
AND vbtyp_n EQ 'J' )
OR ( vbelv EQ lv_so
AND vbtyp_n EQ 'T' ).
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDDO.
ENDIF.
PERFORM frm_modify_sodata USING lv_so lv_dn
CHANGING c_result.
ENDIF.
ENDIF.
*空退后继免费
IF r3 EQ 'X'.
ls_header
-doc_type = 'ZSD9'."后继免费订单
*SO
PERFORM frm_create_returnso1
TABLES lt_item lt_itemx lt_pnr lt_sch lt_schx lt_cond lt_condx
USING ls_header
CHANGING lv_so c_result.
*DN
IF c_result EQ 'S'.
DO 1000 TIMES.
SELECT SINGLE vbeln INTO @DATA(kkk)
FROM vbak
WHERE vbeln EQ @lv_so.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDDO.
"IF sy-subrc EQ 0.
"PERFORM frm_create_dn USING lv_so CHANGING lv_dn c_result.
"ENDIF.
PERFORM frm_create_dn(zsdr006)
USING lv_so CHANGING lv_dn c_result.
ENDIF.
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
WAIT UP TO 1 SECONDS.
IF lv_so IS NOT INITIAL.
IF lv_dn IS INITIAL.
DO 1000 TIMES.
SELECT SINGLE vbeln INTO lv_dn FROM vbfa
WHERE ( vbelv EQ lv_so
AND vbtyp_n EQ 'J' )
OR ( vbelv EQ lv_so
AND vbtyp_n EQ 'T' ).
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDDO.
ENDIF.
PERFORM frm_modify_sodata USING lv_so lv_dn
CHANGING c_result.
ENDIF.
ENDIF.
CLEAR: lt_return,
lt_item
,
lt_itemx
,
lt_pnr
,
lt_sch
,
lt_schx
,
lt_cond
,
lt_condx
,
ls_header
.
ENDAT.
ENDLOOP.
UNASSIGN <wa_sodata>
.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_CHANGES
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_CHECK_OKAY text
*----------------------------------------------------------------------*
FORM frm_check_changes CHANGING c_ok TYPE string.
DATA: lt_output TYPE TABLE OF ty_output,
lt_output1
TYPE TABLE OF ty_output.
DATA: ls_output TYPE ty_output,
ls_output1
TYPE ty_output.
MOVE 'F' TO c_ok.
CLEAR: lt_output,lt_output1.
*从内存读取最初的内表
IMPORT lt_output FROM MEMORY ID 'GT_OUTPUT'.
*将当前全局内表赋予本地内表
lt_output1
= gt_output.
*排序
* SORT: LT_OUTPUT1 BY INDAT KUNNR ZCSDD.
SORT: lt_output BY batno batpo.
*检查勾选项是否有修改
LOOP AT lt_output1 INTO ls_output1 WHERE sel EQ 'X'.
READ TABLE lt_output INTO ls_output
WITH KEY batno = ls_output1-batno
batpo
= ls_output1-batpo BINARY SEARCH.
IF sy-subrc EQ 0.
*比较当前数据与初始数据是否有区别
CLEAR: ls_output1-sel,
ls_output
-sel.
IF ls_output1 NE ls_output.
MOVE 'T' TO c_ok."有区别
EXIT."只要有一个数据有区别就要记录
ELSE.
MOVE 'F' TO c_ok."没有区别
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_POST_GOODS_ISSUE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_post_dn USING u_dn TYPE vbeln_vl.
DATA: lt_sodata TYPE TABLE OF ty_sodata,
ls_sodata
TYPE ty_sodata.
DATA: lv_result TYPE c,
lv_vbeln
TYPE vbeln_vl,
lv_posnr
TYPE posnr.
DATA: lv_tstmp TYPE tzntstmps.
DATA:
lv_vbkok
TYPE vbkok,
lv_wabuc
TYPE wabuc VALUE 'X',
lt_vbpok
TYPE TABLE OF vbpok,
ls_vbpok
TYPE vbpok,
lt_prott
TYPE TABLE OF prott WITH HEADER LINE,
ls_prott
TYPE prott,
lt_return
TYPE TABLE OF bapiret2,
wa_return
TYPE bapiret2
.
* LT_SODATA = GT_SODATA.
*
* SORT LT_SODATA BY ZDN.
*
* DELETE ADJACENT DUPLICATES FROM LT_SODATA COMPARING ZDN.
*
* LOOP AT LT_SODATA INTO LS_SODATA.
* LV_VBELN = LS_SODATA-ZDN.
lv_vbeln
= u_dn.
UNPACK lv_vbeln TO lv_vbeln.
lv_posnr
= 10.
lv_vbkok
-vbeln_vl = lv_vbeln .
* LV_VBKOK-KOMUE = 'X' .
lv_vbkok
-wabuc = lv_wabuc .
lv_vbkok
-wadat_ist = <wa_sodata>-budat .
lv_vbkok
-bldat = <wa_sodata>-budat .
WAIT UP TO 1 SECONDS.
CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
EXPORTING
vbkok_wa
= lv_vbkok
* SYNCHRON = ' '
* NO_MESSAGES_UPDATE = ' '
* NICHT_SPERREN = ' '
* AUFRUFER_T = ' '
* IF_ERROR_MESSAGES_SEND = 'X'
TABLES
vbpok_tab
= lt_vbpok[]
prot
= lt_prott[].
READ TABLE lt_prott TRANSPORTING NO FIELDS WITH KEY msgty = 'E'.
IF sy-subrc EQ 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
LOOP AT lt_prott WHERE msgty EQ 'E'.
CLEAR wa_return.
wa_return
-type = 'E'.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid
= lt_prott-msgid
msgnr
= lt_prott-msgno
msgv1
= lt_prott-msgv1
msgv2
= lt_prott-msgv2
msgv3
= lt_prott-msgv3
msgv4
= lt_prott-msgv4
IMPORTING
message_text_output
= wa_return-message.
APPEND wa_return TO gdt_return.
CLEAR lt_prott.
ENDLOOP.
RETURN.
ENDIF.
CLEAR wa_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = wa_return.
IF wa_return-type EQ 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
APPEND wa_return TO lt_return.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
* C_RESULT = 'E'.
EXIT.
ELSE.
* C_RESULT = 'S'.
* RETURN.
ENDIF.
* ENDLOOP.
CLEAR: lv_vbkok,lt_vbpok,lt_prott.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form bdc_dynpro
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PROGRAM text
* -->DYNPRO text
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
CLEAR gds_bdcdata.
gds_bdcdata
-program = program.
gds_bdcdata
-dynpro = dynpro.
gds_bdcdata
-dynbegin = 'X'.
APPEND gds_bdcdata TO gdt_bdcdata.
ENDFORM. "bdc_dynpro
*&---------------------------------------------------------------------*
*& Form bdc_field
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->FNAM text
* -->FVAL text
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
CLEAR gds_bdcdata.
gds_bdcdata
-fnam = fnam.
gds_bdcdata
-fval = fval.
CONDENSE gds_bdcdata-fval NO-GAPS.
APPEND gds_bdcdata TO gdt_bdcdata.
ENDFORM. "bdc_field
*&---------------------------------------------------------------------*
*& Form FRM_OUT_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_out_message .
LOOP AT gdt_return INTO gds_return.
WRITE:gds_return-type, gds_return-message.
ENDLOOP.
ENDFORM. " FRM_OUT_MESSAGE
*&---------------------------------------------------------------------*
*& Form GET_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GDS_MESSTAB text
* <--P_G_MESSAGE text
*----------------------------------------------------------------------*
FORM get_message USING u_message TYPE bdcmsgcoll
CHANGING cg_message TYPE balmsgtxtp.
CLEAR cg_message.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid
= u_message-msgid
msgnr
= u_message-msgnr
msgv1
= u_message-msgv1
msgv2
= u_message-msgv2
msgv3
= u_message-msgv3
msgv4
= u_message-msgv4
IMPORTING
message_text_output
= cg_message.
ENDFORM. " GET_MESSAGE
*&---------------------------------------------------------------------*
*& Form FRM_CALL_TRANSACTION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
*FORM FRM_CALL_TRANSACTION CHANGING C_SO TYPE VBELN
* C_DN TYPE VBELN_VL.
** DATA L_MODE TYPE C VALUE 'N'.
** BREAK B012.
* CALL TRANSACTION 'VA01' USING GDT_BDCDATA MODE P_MODE MESSAGES INTO GDT_MESSTAB.
*
* LOOP AT GDT_MESSTAB INTO GDS_MESSTAB.
**提取SO和DN号
* IF GDS_MESSTAB-MSGTYP EQ 'S'.
* MOVE GDS_MESSTAB-MSGV3+0(10) TO C_DN.
* MOVE GDS_MESSTAB-MSGV2+0(10) TO C_SO.
*
* CONDENSE C_DN NO-GAPS.
* CONDENSE C_SO NO-GAPS.
* ENDIF.
* PERFORM GET_MESSAGE USING GDS_MESSTAB
* CHANGING G_MESSAGE .
* GDS_RETURN-TYPE = GDS_MESSTAB-MSGTYP.
** CONCATENATE GS_OUTPUT-IDNRK GS_OUTPUT-POSNR G_MESSAGE INTO GDS_RETURN-MESSAGE SEPARATED BY ''.
* MOVE G_MESSAGE TO GDS_RETURN-MESSAGE.
* APPEND GDS_RETURN TO GDT_RETURN.
* CLEAR GDS_RETURN.
* CLEAR G_MESSAGE.
* ENDLOOP.
* SORT GDT_RETURN BY MESSAGE.
* DELETE ADJACENT DUPLICATES FROM GDT_RETURN COMPARING MESSAGE.
*
*ENDFORM. " FRM_CALL_TRANSACTION
*&---------------------------------------------------------------------*
*& Form FRM_CALL_TRANSACTION1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
*FORM FRM_CALL_TRANSACTION1 CHANGING C_RESULT TYPE C .
* CLEAR:GDT_MESSTAB.
*
* CALL TRANSACTION 'VL02N' USING GDT_BDCDATA MODE P_MODE MESSAGES INTO GDT_MESSTAB.
* LOOP AT GDT_MESSTAB INTO GDS_MESSTAB.
* PERFORM GET_MESSAGE USING GDS_MESSTAB
* CHANGING G_MESSAGE .
* GDS_RETURN-TYPE = GDS_MESSTAB-MSGTYP.
* IF GDS_MESSTAB-MSGTYP EQ 'E'.
* C_RESULT = 'E'.
* ELSEIF GDS_MESSTAB-MSGTYP EQ 'S'.
* C_RESULT = 'S'.
* ENDIF.
*
** CONCATENATE GS_OUTPUT-IDNRK GS_OUTPUT-POSNR G_MESSAGE INTO GDS_RETURN-MESSAGE SEPARATED BY ''.
* MOVE G_MESSAGE TO GDS_RETURN-MESSAGE.
* APPEND GDS_RETURN TO GDT_RETURN.
* CLEAR GDS_RETURN.
* CLEAR G_MESSAGE.
*
* ENDLOOP.
* SORT GDT_RETURN BY MESSAGE.
* DELETE ADJACENT DUPLICATES FROM GDT_RETURN COMPARING MESSAGE.
*
*ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CALL_TRANSACTION2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
*FORM FRM_CALL_TRANSACTION2 .
* CLEAR: GDT_MESSTAB.
** BREAK B012.
* WAIT UP TO 1 SECONDS.
*
* CALL TRANSACTION 'VF01' USING GDT_BDCDATA MODE P_MODE MESSAGES INTO GDT_MESSTAB.
*
* LOOP AT GDT_MESSTAB INTO GDS_MESSTAB.
* PERFORM GET_MESSAGE USING GDS_MESSTAB
* CHANGING G_MESSAGE .
* GDS_RETURN-TYPE = GDS_MESSTAB-MSGTYP.
** CONCATENATE GS_OUTPUT-IDNRK GS_OUTPUT-POSNR G_MESSAGE INTO GDS_RETURN-MESSAGE SEPARATED BY ''.
* MOVE G_MESSAGE TO GDS_RETURN-MESSAGE.
* APPEND GDS_RETURN TO GDT_RETURN.
* CLEAR GDS_RETURN.
* CLEAR G_MESSAGE.
* ENDLOOP.
* SORT GDT_RETURN BY MESSAGE.
* DELETE ADJACENT DUPLICATES FROM GDT_RETURN COMPARING MESSAGE.
*
*
*ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SHOW_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_show_message .
DATA lv_title TYPE string.
DATA:lt_return TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2,
ls_layout
TYPE slis_layout_alv.
DATA: lt_fieldcat TYPE slis_t_fieldcat_alv.
CLEAR: lt_return,ls_layout.
CLEAR:lt_fieldcat.
ls_layout
-zebra = 'X'.
ls_layout
-colwidth_optimize = 'A'.
PERFORM frm_set_catalog CHANGING lt_fieldcat.
IMPORT lt_return FROM MEMORY ID 'LT_RETURN'.
APPEND LINES OF gdt_return TO lt_return.
CHECK lt_return IS NOT INITIAL.
lv_title
= '退货操作日志'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
is_layout
= ls_layout
it_fieldcat
= lt_fieldcat
i_screen_start_column
= 10
i_screen_start_line
= 1
i_screen_end_column
= 120
i_screen_end_line
= 25
TABLES
t_outtab
= lt_return
EXCEPTIONS
program_error
= 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
FREE MEMORY ID 'LT_RETURN'.
REFRESH gdt_return.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SET_CATALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LT_FIELDCAT text
*----------------------------------------------------------------------*
FORM frm_set_catalog CHANGING c_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
DEFINE add_fieldcat.
LS_FIELDCAT
-FIELDNAME = &1.
LS_FIELDCAT
-SELTEXT_L = &2.
APPEND LS_FIELDCAT TO C_FIELDCAT.
CLEAR LS_FIELDCAT.
END-OF-DEFINITION.
add_fieldcat
:
'TYPE' '消息类型',
'NUMBER' '消息编号',
'MESSAGE' '消息文本',
'MESSAGE_V1' '消息变量',
'MESSAGE_V2' '消息变量',
'MESSAGE_V3' '消息变量',
'MESSAGE_V4' '消息变量',
'PARAMETER' '参数名称',
'ROW' '参数中的行',
'FIELD' '参数中的字段'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_POST_UPLOAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_post_upload .
DATA: lt_output TYPE TABLE OF ty_output.
DATA: lv_meins TYPE mara-meins.
DATA: l_line1 TYPE i,
l_line2
TYPE i.
DATA:
lv_string1
TYPE string,
s1
TYPE string,
s2
TYPE string.
DATA:
lv_zthlx_con
TYPE string.
CLEAR: lt_output,lt_output[].
APPEND LINES OF gt_output TO lt_output.
SORT lt_output BY zyddh sldto shpto matnr.
DELETE ADJACENT DUPLICATES FROM lt_output COMPARING zyddh sldto shpto matnr.
l_line1
= lines( gt_output[] ).
l_line2
= lines( lt_output[] ).
IF l_line1 NE l_line2.
CLEAR gs_output.
gs_output
-zicon1 = '@0A@'.
CONCATENATE gs_output-mssg '数据存在重复' INTO gs_output-mssg.
MODIFY gt_output FROM gs_output TRANSPORTING zicon1 mssg WHERE matnr IS NOT INITIAL.
ENDIF.
CLEAR: lt_output,lt_output[].
IF gt_output IS NOT INITIAL.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE gt_knvp
FROM knvp
FOR ALL ENTRIES IN gt_output
WHERE kunnr EQ gt_output-sldto
AND parvw EQ 'WE'.
ENDIF.
SORT gt_knvp BY kunnr kunn2.
LOOP AT gt_output ASSIGNING <wa_data> WHERE zicon1 NE '@0A@'."红灯.
*检查单位是否为空
IF <wa_data>-meins IS INITIAL.
PERFORM set_callsytle USING 12 gs_load '单位不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
*判断数量是否含小数
IF <wa_data>-menge IS NOT INITIAL.
lv_string1
= <wa_data>-menge.
SPLIT lv_string1 AT '.' INTO s1 s2.
IF s2 NE 0.
PERFORM set_callsytle USING 17 gs_load '数量不能有小数' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
ENDIF.
* TRANSLATE <WA_DATA>-ZYDDH TO UPPER CASE.
IF r4 EQ 'X'."实退
lv_zthlx_con
= 'B~ZTHLX EQ ''A'''.
* <WA_DATA>-ZTHLX = 'A'.
* <WA_DATA>-ZTHMS = '实退'.
ELSEIF r5 EQ 'X'.
lv_zthlx_con
= 'B~ZTHLX EQ ''B'''.
* <WA_DATA>-ZTHLX = 'B'."空退
* <WA_DATA>-ZTHMS = '空退'.
ENDIF.
*****检查是否存在重复 的已导入
SELECT SINGLE zyddh INTO <wa_data>-zyddh
FROM ztsd015 AS a
INNER
JOIN ztsd014 AS b
ON a~batno EQ b~batno
WHERE zyddh = <wa_data>-zyddh
AND (lv_zthlx_con)
AND sldto = <wa_data>-sldto
AND matnr = <wa_data>-matnr.
IF sy-subrc EQ 0.
<wa_data>
-zicon1 = '@0A@'.
<wa_data>
-mssg = '系统已存在该条目'.
CONTINUE.
ENDIF.
IF <wa_data>-pstyv IS INITIAL.
PERFORM set_callsytle USING 9 gs_load '行项目类型不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-zr IS INITIAL.
PERFORM set_callsytle USING 5 gs_load '主任不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-zywy IS INITIAL.
PERFORM set_callsytle USING 5 gs_load '业务员不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-lgort IS INITIAL.
PERFORM set_callsytle USING 8 gs_load '库存地点不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-augru IS INITIAL.
PERFORM set_callsytle USING 7 gs_load '退货原因不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-zyddh IS INITIAL.
PERFORM set_callsytle USING 6 gs_load '退单号不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
*****
* SELECT SINGLE meins INTO lv_meins
* FROM mara
* WHERE matnr EQ <wa_data>-matnr.
**数量单位转换
*
* TRANSLATE <wa_data>-meins TO UPPER CASE.
*
* CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
* EXPORTING
* i_matnr = <wa_data>-matnr
* i_in_me = <wa_data>-meins
* i_out_me = lv_meins
* i_menge = <wa_data>-menge
* IMPORTING
* e_menge = <wa_data>-menge
* EXCEPTIONS
* error_in_application = 1
* error = 2
* OTHERS = 3.
* IF sy-subrc <> 0.
** Implement suitable error handling here
* ENDIF.
*
* MOVE lv_meins TO <wa_data>-meins.
* MODIFY GT_OUTPUT FROM GS_OUTPUT TRANSPORTING MENGE MEINS.
* CLEAR GS_OUTPUT.
* IF <WA_DATA>-SHPTO IS INITIAL.
* MOVE <WA_DATA>-KUNNR TO <WA_DATA>-SHPTO.
*
* SELECT SINGLE NAME1 INTO <WA_DATA>-NAME2
* FROM KNA1
* WHERE KUNNR EQ <WA_DATA>-KUNNR
** AND KTOKD EQ 'Z003'
* .
*
* ENDIF.
* IF <WA_DATA>-SLDTO IS INITIAL.
* MOVE <WA_DATA>-KUNNR TO <WA_DATA>-SLDTO.
* ENDIF.
READ TABLE gt_knvp INTO gs_knvp WITH KEY kunnr = <wa_data>-sldto kunn2 = <wa_data>-shpto BINARY SEARCH.
IF sy-subrc NE 0 .
PERFORM set_callsytle(zsdr006) USING 10 gs_load '客户与送达方没有对应关系' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
<wa_data>
-zicon1 = '@0A@'."红灯
ENDIF.
SELECT SINGLE name1 INTO <wa_data>-name3
FROM kna1
WHERE kunnr EQ <wa_data>-sldto
* AND KTOKD EQ 'Z003'
.
IF r4 EQ 'X'."实退
<wa_data>
-zthlx = 'A'.
<wa_data>
-zthms = '实退'.
ELSEIF r5 EQ 'X'.
<wa_data>
-zthlx = 'B'."空退
<wa_data>
-zthms = '空退'.
ENDIF.
SELECT SINGLE lgobe INTO <wa_data>-lgobe
FROM t001l
WHERE lgort EQ <wa_data>-lgort
AND werks EQ '1000'.
* <WA_DATA>-ZDDJE = <WA_DATA>-ZDDJG * <WA_DATA>-MENGE.
<wa_data>
-zddjg = <wa_data>-zddje / <wa_data>-menge.
IF <wa_data>-mssg IS NOT INITIAL.
<wa_data>
-zicon1 = '@0A@'."红灯
ELSE.
<wa_data>
-zicon1 = '@08@'."绿灯
ENDIF.
IF <wa_data>-zicon1 = '@0A@'."红灯
MOVE '-' TO <wa_data>-sel.
PERFORM set_style USING 'SEL' 'DISABLE' CHANGING <wa_data>-style.
ENDIF.
ENDLOOP.
UNASSIGN <wa_data>
.
*将初始内表放入内存
lt_output
= gt_output.
EXPORT gt_output TO MEMORY ID 'GT_OUTPUT'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_SODATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_C_RESULT text
*----------------------------------------------------------------------*
FORM frm_check_sodata CHANGING c_result.
DATA:
ls_header
TYPE bapisdhd1,
ls_headerx
TYPE bapisdhd1x,
testrun
TYPE bapiflag-bapiflag VALUE 'X',
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2,
lt_item
TYPE TABLE OF bapisditm,
ls_item
TYPE bapisditm,
lt_itemx
TYPE TABLE OF bapisditmx,
ls_itemx
TYPE bapisditmx,
lt_pnr
TYPE TABLE OF bapiparnr,
ls_pnr
TYPE bapiparnr,
lt_sch
TYPE TABLE OF bapischdl,
ls_sch
TYPE bapischdl,
lt_schx
TYPE TABLE OF bapischdlx,
ls_schx
TYPE bapischdlx
.
DATA: lv_posnr TYPE posnr.
* LOOP AT GT_SODATA ASSIGNING <WA_SODATA>.
*
* ADD 10 TO LV_POSNR.
*
* LS_ITEM-ITM_NUMBER = LV_POSNR.
* LS_ITEM-MATERIAL = <WA_SODATA>-MATNR.
* LS_ITEM-TARGET_QTY = <WA_SODATA>-MENGE.
* LS_ITEM-PLANT = <WA_SODATA>-WERKS.
* LS_ITEM-STORE_LOC = <WA_SODATA>-LGORT.
* LS_ITEM-TARGET_QU = <WA_SODATA>-MEINS.
* LS_ITEM-BATCH = <WA_SODATA>-CHARG.
* LS_ITEM-SHIP_POINT = <WA_SODATA>-LGORT."装运点与库存地点相同
** LS_ITEM-ITEM_CATEG = 'REN'.
* APPEND LS_ITEM TO LT_ITEM.
* CLEAR LS_ITEM.
*
* LS_ITEMX-ITM_NUMBER = LV_POSNR.
* LS_ITEMX-MATERIAL = 'X'.
* LS_ITEMX-TARGET_QTY = 'X'.
* LS_ITEMX-PLANT = 'X'.
* LS_ITEMX-STORE_LOC = 'X'.
* LS_ITEMX-TARGET_QU = 'X'.
* LS_ITEMX-BATCH = 'X'.
* LS_ITEMX-SHIP_POINT = 'X'.
** LS_ITEMX-ITEM_CATEG = 'X'.
* APPEND LS_ITEMX TO LT_ITEMX.
* CLEAR LS_ITEMX.
*
* LS_PNR-PARTN_ROLE = 'AG'." 'SP'."售达方
* LS_PNR-PARTN_NUMB = <WA_SODATA>-SLDTO.
* APPEND LS_PNR TO LT_PNR.
* CLEAR LS_PNR.
*
* LS_PNR-PARTN_ROLE = 'WE'." 'SH'."送达方
* LS_PNR-PARTN_NUMB = <WA_SODATA>-SHPTO.
* APPEND LS_PNR TO LT_PNR.
* CLEAR LS_PNR.
*
* LS_SCH-ITM_NUMBER = LV_POSNR.
* LS_SCH-SCHED_LINE = 1.
* LS_SCH-REQ_QTY = <WA_SODATA>-MENGE.
*
* APPEND LS_SCH TO LT_SCH.
* CLEAR LS_SCH.
*
* LS_SCHX-ITM_NUMBER = LV_POSNR.
* LS_SCHX-SCHED_LINE = 1.
* LS_SCHX-REQ_QTY = 'X'.
*
* APPEND LS_SCHX TO LT_SCHX.
* CLEAR LS_SCHX.
*
* AT END OF KUNNR.
*
* CLEAR LV_POSNR.
*
* LS_HEADER-DOC_TYPE = 'ZRE1'."不关联退货订单
* LS_HEADER-SALES_ORG = <WA_SODATA>-VKORG.
* LS_HEADER-DISTR_CHAN = <WA_SODATA>-VTWEG.
* LS_HEADER-DIVISION = <WA_SODATA>-SPART.
* LS_HEADER-SALES_GRP = <WA_SODATA>-VKGRP.
* LS_HEADER-SALES_OFF = <WA_SODATA>-VKBUR.
* LS_HEADER-ORD_REASON = <WA_SODATA>-AUGRU."退货原因
**实退
* CALL FUNCTION 'SD_SALESDOCUMENT_CREATE'
* EXPORTING
* SALES_HEADER_IN = LS_HEADER
** SALES_HEADER_INX =
* TESTRUN = TESTRUN
* TABLES
* RETURN = LT_RETURN
* SALES_ITEMS_IN = LT_ITEM
* SALES_ITEMS_INX = LT_ITEMX
* SALES_PARTNERS = LT_PNR.
**空退后继免费
* IF R5 EQ 'X'.
* LS_HEADER-DOC_TYPE = 'ZSD9'."后继免费订单
*
* CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
* EXPORTING
* ORDER_HEADER_IN = LS_HEADER
* TESTRUN = TESTRUN
* TABLES
* RETURN = LT_RETURN
* ORDER_ITEMS_IN = LT_ITEM
* ORDER_ITEMS_INX = LT_ITEMX
* ORDER_PARTNERS = LT_PNR
* ORDER_SCHEDULES_IN = LT_SCH
* ORDER_SCHEDULES_INX = LT_SCHX.
*
* ENDIF.
* ENDAT.
*
* READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE = 'W'.
* IF SY-SUBRC EQ 0.
* C_RESULT = 'E'.
*
* EXPORT LT_RETURN TO MEMORY ID 'LT_RETURN'.
* PERFORM FRM_SHOW_MESSAGE.
* RETURN.
* ENDIF.
*
* READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE = 'E'.
*
* IF SY-SUBRC EQ 0.
* C_RESULT = 'E'.
*
* EXPORT LT_RETURN TO MEMORY ID 'LT_RETURN'.
* PERFORM FRM_SHOW_MESSAGE.
* RETURN.
* ELSE.
* C_RESULT = 'S'.
* ENDIF.
* ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_BILLING
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LV_RESULT text
*----------------------------------------------------------------------*
*FORM FRM_BILLING CHANGING C_RESULT.
* DATA: LT_SODATA TYPE TABLE OF TY_SODATA,
* LS_SODATA TYPE TY_SODATA.
*
* DATA: LV_RESULT TYPE C.
* LT_SODATA = GT_SODATA.
*
* SORT LT_SODATA BY ZDN.
*
* DELETE ADJACENT DUPLICATES FROM LT_SODATA COMPARING ZDN.
*
* LOOP AT LT_SODATA INTO LS_SODATA.
*
* CLEAR GDT_BDCDATA.
* PERFORM BDC_DYNPRO USING 'SAPMV60A' '0102'.
* PERFORM BDC_FIELD USING 'BDC_CURSOR' 'KOMFK-VBELN(01)'.
* PERFORM BDC_FIELD USING 'BDC_OKCODE' '=SICH'.
* PERFORM BDC_FIELD USING 'KOMFK-VBELN(01)' LS_SODATA-SO.
*
* PERFORM FRM_CALL_TRANSACTION2."调用事务
*
* IF LV_RESULT EQ 'E'.
* PERFORM FRM_SHOW_MESSAGE.
* C_RESULT = 'E'.
* EXIT.
* ELSE.
* C_RESULT = 'S'.
* ENDIF.
* ENDLOOP.
*
*ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHARG_F4
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_<WA_DATA>_CHARG text
* <--P_<WA_DATA>_ZSFSL text
*----------------------------------------------------------------------*
FORM frm_charg_f4 CHANGING
c_charg
TYPE charg_d"批次
* C_ZSFSL TYPE MENGE_D "实发数量
.
DATA: lt_ddshretval TYPE STANDARD TABLE OF ddshretval,
ls_return
TYPE ddshretval,
l_it_cells
TYPE lvc_t_cell,
l_gw_cells
TYPE lvc_s_cell.
DATA: lt_ftab TYPE TABLE OF dfies,
ls_ftab
TYPE dfies,
lt_dn
TYPE TABLE OF ty_dn,
ls_dn
TYPE ty_dn.
DATA:
l_tabname
TYPE dd03v-tabname,
l_fieldname
TYPE dd03v-fieldname,
l_help_valu
TYPE help_info-fldvalue.
REFRESH gt_charg.
REFRESH lt_ddshretval.
*取已发货的批次
SELECT
a
~kunnr
b
~matnr
b
~charg
b
~werks
b
~lgort
INTO CORRESPONDING FIELDS OF TABLE lt_dn
FROM likp AS a
INNER
JOIN lips AS b ON a~vbeln EQ b~vbeln
WHERE a~kunnr EQ <wa_data>-shpto
AND b~matnr EQ <wa_data>-matnr
AND b~werks EQ 1000
AND b~lgort EQ <wa_data>-lgort.
*取批次数量
IF lt_dn IS NOT INITIAL.
* SELECT CHARG CLABS
* FROM MCHB INTO TABLE GT_CHARG
* WHERE MATNR EQ <WA_DATA>-MATNR
* AND WERKS = '1000'
* AND LGORT = <WA_DATA>-LGORT.
SELECT charg clabs
FROM mchb INTO TABLE gt_charg
FOR ALL ENTRIES IN lt_dn
WHERE matnr EQ lt_dn-matnr
AND werks = '1000'
AND lgort = lt_dn-lgort
AND charg EQ lt_dn-charg
.
ENDIF.
SORT gt_charg BY charg.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield
= 'CHARG' "指定ALV用F4的字段
dynpprog
= sy-repid
value_org
= 'S'
TABLES
value_tab
= gt_charg
field_tab
= lt_ftab
return_tab
= lt_ddshretval
EXCEPTIONS
parameter_error
= 1
no_values_found
= 2
OTHERS = 3.
IF sy-subrc = 0 AND lt_ddshretval IS NOT INITIAL .
CLEAR ls_return.
READ TABLE lt_ddshretval INTO ls_return INDEX 1.
c_charg
= ls_return-fieldval.
READ TABLE gt_charg INTO gs_charg WITH KEY charg = c_charg BINARY SEARCH.
IF sy-subrc EQ 0.
IF gs_charg-clabs LT <wa_data>-menge."批次数量大于实发数量
MESSAGE '批次数量小于退货数量' TYPE 'S' DISPLAY LIKE 'E'.
CLEAR c_charg.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_POST_GMVT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_post_gmvt CHANGING c_result.
DATA:
lv_vbkok
TYPE vbkok,
lv_wabuc
TYPE wabuc VALUE 'X',
lt_vbpok
TYPE TABLE OF vbpok,
ls_vbpok
TYPE vbpok,
lt_prott
TYPE TABLE OF prott WITH HEADER LINE,
ls_prott
TYPE prott,
lt_return
TYPE TABLE OF bapiret2,
wa_return
TYPE bapiret2.
DATA: lv_result TYPE c,
lv_vbeln
TYPE vbeln_vl,
lv_posnr
TYPE posnr_vl.
DATA: lt_output TYPE TABLE OF ty_output,
ls_output
TYPE ty_output.
*
* DATA:
* LS_HEADER TYPE BAPIOBDLVHDRCON,
* LS_CONTROL TYPE BAPIOBDLVHDRCTRLCON,
* DELIVERY TYPE BAPIOBDLVHDRCON-DELIV_NUMB,
* LS_TECH TYPE BAPIDLVCONTROL,
* LV_VBELN TYPE VBELN_VL,
* LT_RETURN TYPE TABLE OF BAPIRET2 WITH HEADER LINE
* .
c_result
= 'S'.
lt_output
= gt_output.
DELETE lt_output WHERE sel NE 'X'.
* IF R4 EQ 'X'.
SORT lt_output BY zthdn.
DELETE ADJACENT DUPLICATES FROM lt_output COMPARING zthdn.
* ELSEIF R5 EQ 'X'.
* SORT LT_OUTPUT BY ZDN.
* ENDIF.
LOOP AT lt_output INTO ls_output.
IF r6 EQ 'X'.
lv_vbkok
-vbeln_vl = ls_output-zthdn.
lv_vbkok
-wabuc = lv_wabuc .
lv_vbkok
-wadat_ist = sy-datum .
lv_vbkok
-bldat = sy-datum .
* LS_CONTROL-DELIV_NUMB = LS_OUTPUT-ZTHDN.
*
* LS_CONTROL-POST_GI_FLG = 'X'.
*
* DELIVERY = LS_OUTPUT-ZTHDN.
ENDIF.
IF r3 EQ 'X'.
lv_vbkok
-vbeln_vl = ls_output-zdn.
lv_vbkok
-wabuc = lv_wabuc .
lv_vbkok
-wadat_ist = sy-datum .
lv_vbkok
-bldat = sy-datum .
* LS_CONTROL-DELIV_NUMB = LS_OUTPUT-ZDN.
*
* LS_CONTROL-POST_GI_FLG = 'X'.
*
* DELIVERY = LS_OUTPUT-ZDN.
ENDIF.
WAIT UP TO 1 SECONDS.
CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
EXPORTING
vbkok_wa
= lv_vbkok
* SYNCHRON = ' '
* NO_MESSAGES_UPDATE = ' '
* NICHT_SPERREN = ' '
* AUFRUFER_T = ' '
* IF_ERROR_MESSAGES_SEND = 'X'
TABLES
vbpok_tab
= lt_vbpok[]
prot
= lt_prott[].
READ TABLE lt_prott TRANSPORTING NO FIELDS WITH KEY msgty = 'E'.
IF sy-subrc EQ 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
LOOP AT lt_prott WHERE msgty EQ 'E'.
CLEAR wa_return.
wa_return
-type = 'E'.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid
= lt_prott-msgid
msgnr
= lt_prott-msgno
msgv1
= lt_prott-msgv1
msgv2
= lt_prott-msgv2
msgv3
= lt_prott-msgv3
msgv4
= lt_prott-msgv4
IMPORTING
message_text_output
= wa_return-message.
APPEND wa_return TO lt_return.
CLEAR lt_prott.
ENDLOOP.
RETURN.
ENDIF.
CLEAR wa_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = wa_return.
IF wa_return-type EQ 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
APPEND wa_return TO lt_return.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
* C_RESULT = 'E'.
RETURN.
ELSE.
* C_RESULT = 'S'.
* RETURN.
ENDIF.
* LS_TECH-UPD_IND = 'U'.
**发货过账
* CALL FUNCTION 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
* EXPORTING
* HEADER_DATA = LS_HEADER
* HEADER_CONTROL = LS_CONTROL
* DELIVERY = DELIVERY
* TECHN_CONTROL = LS_TECH
* TABLES
* RETURN = LT_RETURN[].
* READ TABLE LT_RETURN TRANSPORTING NO FIELDS WITH KEY TYPE = 'E'.
* IF SY-SUBRC EQ 0.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
** IMPORTING
** RETURN =
* .
* C_RESULT = 'E'.
* EXPORT LT_RETURN TO MEMORY ID 'LT_RETURN'.
* PERFORM FRM_SHOW_MESSAGE.
*
* RETURN.
* ENDIF.
ENDLOOP.
* IF C_RESULT EQ 'S'.
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'
** IMPORTING
** RETURN =
* .
* ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_STYLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM set_style USING fieldname
style
TYPE string
CHANGING it_styles TYPE lvc_t_styl.
DATA: ls_style TYPE lvc_s_styl.
CLEAR ls_style.
ls_style
-fieldname = fieldname.
IF style EQ 'ENABLE'.
ls_style
-style = cl_gui_alv_grid=>mc_style_enabled.
ELSE.
ls_style
-style = cl_gui_alv_grid=>mc_style_disabled.
ENDIF.
READ TABLE it_styles TRANSPORTING NO FIELDS WITH KEY fieldname = fieldname.
IF sy-subrc EQ 0.
MODIFY it_styles FROM ls_style INDEX sy-tabix.
ELSE.
INSERT ls_style INTO TABLE it_styles.
ENDIF.
FREE: ls_style.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_CALLSYTLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM set_callsytle USING p_pos
wa_struct
p_mssg
CHANGING it_cellcolor TYPE lvc_t_scol e_mssg.
DATA: wa_cellcolor TYPE lvc_s_scol.
CLEAR wa_cellcolor.
PERFORM get_fieldname_load USING p_pos wa_struct CHANGING wa_cellcolor-fname.
wa_cellcolor
-color-col = '6'.
wa_cellcolor
-color-int = '1'.
wa_cellcolor
-color-inv = '1'.
SORT it_cellcolor BY fname.
READ TABLE it_cellcolor TRANSPORTING NO FIELDS WITH KEY fname = wa_cellcolor-fname BINARY SEARCH.
IF sy-subrc EQ 0.
MODIFY it_cellcolor FROM wa_cellcolor INDEX sy-tabix.
ELSE.
APPEND wa_cellcolor TO it_cellcolor.
ENDIF.
PERFORM biuld_message USING wa_cellcolor-fname p_mssg CHANGING e_mssg.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_FIELDNAME_LOAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM get_fieldname_load USING p_pos gs_struct
CHANGING p_fname.
DATA: po_struct TYPE REF TO cl_abap_structdescr,
lt_comptab
TYPE cl_abap_structdescr=>component_table.
FIELD-SYMBOLS: <f_comp> TYPE cl_abap_structdescr=>component.
po_struct ?= cl_abap_structdescr
=>describe_by_data( gs_struct ).
lt_comptab
= po_struct->get_components( ).
CHECK lt_comptab[] IS NOT INITIAL.
READ TABLE lt_comptab ASSIGNING <f_comp> INDEX p_pos.
CHECK sy-subrc EQ 0.
p_fname
= <f_comp>-name.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ADD_LEAD_ZERO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM add_lead_zero USING p_len
CHANGING e_field.
DATA: l_line TYPE i.
CLEAR l_line.
l_line
= strlen( e_field ).
l_line
= p_len - l_line.
DO l_line TIMES.
CONCATENATE '0' e_field INTO e_field.
ENDDO.
FREE: l_line.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form BIULD_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM biuld_message USING p_fname
p_mssg
CHANGING e_mssg.
DATA: l_temp TYPE string.
CONCATENATE p_fname ':' p_mssg INTO l_temp.
IF e_mssg IS INITIAL.
e_mssg
= l_temp.
ELSE.
CONCATENATE e_mssg ';' l_temp INTO e_mssg.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_POST
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_check_post USING u_vbeln u_flag.
DATA lv_result TYPE string.
SELECT SINGLE wbstk INTO @DATA(lv_wbstk)
FROM vbuk
WHERE vbeln EQ @u_vbeln.
*BREAK B012.
IF lv_wbstk EQ 'C'.
gs_output
-sel = 'X'.
IF u_flag EQ 1.
MODIFY gt_output FROM gs_output TRANSPORTING sel
WHERE zthdn EQ u_vbeln.
PERFORM frm_save_data USING 'POST1' CHANGING lv_result.
ELSEIF u_flag EQ 2.
MODIFY gt_output FROM gs_output TRANSPORTING sel
WHERE zdn EQ u_vbeln.
PERFORM frm_save_data USING 'POST2' CHANGING lv_result.
ENDIF.
* IF LV_RESULT EQ 'S'.
* MESSAGE '过账成功！' TYPE 'S'.
* ELSE.
* MESSAGE '过账失败！' TYPE 'S' DISPLAY LIKE 'E'.
* ENDIF.
CLEAR lv_result.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_RETURNSO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LS_HEADER text
* -->P_LT_ITEM text
* -->P_LT_ITEMX text
* -->P_LT_PNR text
* -->P_LT_SCH text
* -->P_LT_SCHX text
* -->P_LT_COND text
* -->P_LT_CONDX text
* <--P_LV_SO text
* <--P_LT_RETURN text
*----------------------------------------------------------------------*
FORM frm_create_returnso
TABLES
* ,T_RETURN STRUCTURE BAPIRET2
t_item
STRUCTURE bapisditm
t_itemx
STRUCTURE bapisditmx
t_pnr
STRUCTURE bapiparnr
t_sch
STRUCTURE bapischdl
t_schx
STRUCTURE bapischdlx
t_cond
STRUCTURE bapicond
t_condx
STRUCTURE bapicondx
USING
u_header
CHANGING c_so c_result.
DATA:
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2.
CALL FUNCTION 'BAPI_CUSTOMERRETURN_CREATE'
EXPORTING
return_header_in
= u_header
* return_header_inx = ls_bapisdhdx
IMPORTING
salesdocument
= c_so
TABLES
return = lt_return[]
return_items_in
= t_item[]
return_items_inx
= t_itemx[]
return_partners
= t_pnr[]
return_schedules_in
= t_sch[]
return_schedules_inx
= t_schx[]
return_conditions_in
= t_cond[].
* READ TABLE lt_return INTO ls_return WITH KEY type = 'W'.
* IF sy-subrc EQ 0.
* c_result = 'E'.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
** IMPORTING
** RETURN =
* .
*
* EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
* PERFORM frm_show_message.
* RETURN.
* ENDIF.
READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
IF sy-subrc EQ 0.
c_result
= 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
RETURN.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
c_result
= 'S'.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_RETURNSO1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LT_RETURN text
* -->P_LS_HEADER text
* -->P_LT_ITEM text
* -->P_LT_ITEMX text
* -->P_LT_PNR text
* -->P_LT_SCH text
* -->P_LT_SCHX text
* -->P_LT_COND text
* -->P_LT_CONDX text
* <--P_LV_SO text
*----------------------------------------------------------------------*
FORM frm_create_returnso1
TABLES
* T_RETURN STRUCTURE BAPIRET2
t_item
STRUCTURE bapisditm
t_itemx
STRUCTURE bapisditmx
t_pnr
STRUCTURE bapiparnr
t_sch
STRUCTURE bapischdl
t_schx
STRUCTURE bapischdlx
t_cond
STRUCTURE bapicond
t_condx
STRUCTURE bapicondx
USING
u_header
CHANGING c_so
c_result
.
DATA:
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2.
* BREAK B012.
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
order_header_in
= u_header
IMPORTING
salesdocument
= c_so
TABLES
return = lt_return[]
order_items_in
= t_item[]
order_items_inx
= t_itemx[]
order_partners
= t_pnr[]
order_schedules_in
= t_sch[]
order_schedules_inx
= t_schx[]
* ORDER_CONDITIONS_IN = T_COND[]
* ORDER_CONDITIONS_INX = T_CONDX[]
.
* READ TABLE lt_return INTO ls_return WITH KEY type = 'W'.
* IF sy-subrc EQ 0.
* c_result = 'E'.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
** IMPORTING
** RETURN =
* .
*
* EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
* PERFORM frm_show_message.
* RETURN.
* ENDIF.
READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
IF sy-subrc EQ 0.
c_result
= 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
RETURN.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
c_result
= 'S'.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_DN
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LV_SO text
* <--P_LV_DN text
*----------------------------------------------------------------------*
FORM frm_create_dn USING u_so
CHANGING c_dn c_result.
DATA: lt_so_item TYPE TABLE OF bapidlvreftosalesorder,
ls_so_item
TYPE bapidlvreftosalesorder,
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2.
ls_so_item
-ref_doc = u_so.
APPEND ls_so_item TO lt_so_item.
CLEAR ls_so_item.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'
IMPORTING
delivery
= c_dn
TABLES
sales_order_items
= lt_so_item
return = lt_return.
READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
IF sy-subrc EQ 0.
c_result
= 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
RETURN.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
c_result
= 'S'.
ENDIF.
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_MODIFY_SODATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LV_SO text
* -->P_LV_DN text
*----------------------------------------------------------------------*
FORM frm_modify_sodata USING u_so
u_dn
CHANGING c_result.
DATA ls_sodata TYPE ty_sodata.
DATA: lv_so TYPE vbeln,
lv_dn
TYPE vbeln_vl.
lv_so
= u_so.
lv_dn
= u_dn.
IF lv_so IS NOT INITIAL.
ls_sodata
-so = lv_so.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_sodata-so
IMPORTING
output = ls_sodata-so.
ls_sodata
-zdn = lv_dn.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_sodata-zdn
IMPORTING
output = ls_sodata-zdn.
MODIFY gt_sodata FROM ls_sodata TRANSPORTING so zdn
WHERE so EQ 'X' AND zdn EQ 'X'.
PERFORM frm_post_dn USING lv_dn .
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
CLEAR:lv_so,lv_dn.
ELSE.
PERFORM frm_show_message.
c_result
= 'E'.
EXIT.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_MODIFY_SODATA1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LV_SO1 text
* -->P_LV_DN1 text
* <--P_C_RESULT text
*----------------------------------------------------------------------*
*FORM FRM_MODIFY_SODATA USING U_SO
* U_DN
* CHANGING C_RESULT.
* DATA LS_SODATA TYPE TY_SODATA.
* DATA: LV_SO TYPE VBELN,
* LV_DN TYPE VBELN_VL.
*
* LV_SO = U_SO.
* LV_DN = U_DN.
*
* IF LV_SO IS NOT INITIAL.
* LS_SODATA-SO = LV_SO.
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = LS_SODATA-SO1
* IMPORTING
* OUTPUT = LS_SODATA-SO1.
*
* LS_SODATA-ZDN = LV_DN.
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = LS_SODATA-ZDN1
* IMPORTING
* OUTPUT = LS_SODATA-ZDN1.
*
*
* MODIFY GT_SODATA FROM LS_SODATA TRANSPORTING SO1 ZDN1
* WHERE SO1 EQ 'X' AND ZDN1 EQ 'X'.
*
* CLEAR:LV_SO,LV_DN.
*
* ELSE.
* PERFORM FRM_SHOW_MESSAGE.
* C_RESULT = 'E'.
* EXIT.
* ENDIF.
*ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_PARTNER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GS_OUTPUT_SLDTO text
* <--P_LV_RESULT text
*----------------------------------------------------------------------*
FORM frm_check_partner USING u_sldto
CHANGING c_result.
DATA:lv_msg TYPE string.
DATA:
ls_a515
TYPE a515,
lt_a515
TYPE TABLE OF a515.
SELECT SINGLE vkorg vtweg spart vkbur vkgrp vsbed
INTO ( gs_sodata-vkorg,gs_sodata-vtweg,gs_sodata-spart,
gs_sodata
-vkbur,gs_sodata-vkgrp,gs_sodata-vsbed )
FROM knvv
WHERE kunnr EQ u_sldto
AND vtweg EQ '20'"直营
AND loevm NE 'X'"删除标记
* AND VSBED EQ '99'"装运条件
.
IF sy-subrc NE 0.
c_result
= 'E'.
lv_msg
= '售达方' && u_sldto && '销售组织数据不正确，请检查。'.
MESSAGE s001 WITH lv_msg DISPLAY LIKE 'E'.
RETURN.
ENDIF.
* SELECT SINGLE SPOFI INTO @DATA(LV_SPOFI)
* FROM TVLK
* WHERE LFART EQ 'ZLR'."退货交货
*
* IF SY-SUBRC EQ 0.
*
* IF LV_SPOFI EQ SPACE. "特定工厂装运点
* SELECT SINGLE VSTEL INTO @DATA(LV_VSTEL)
* FROM TVSTZ
* WHERE VSBED EQ @GS_SODATA-VSBED
* AND LADGR EQ '0001'
* AND WERKS EQ '1000'.
* IF SY-SUBRC NE 0.
* C_RESULT = 'E'.
* LV_MSG = '售达方' && U_SLDTO && '按工厂1000确定的装运点不存在。'.
* MESSAGE S001 WITH LV_MSG DISPLAY LIKE 'E'.
* RETURN.
* ENDIF.
* ELSE."按库存地点确定装运点
*
* SELECT SINGLE LGORT INTO @DATA(LV_LGORT)
* FROM KNA1
* WHERE KUNNR EQ @U_SLDTO.
*
* SELECT SINGLE VSTEL INTO LV_VSTEL
* FROM TVSTZ_STORLOC
* WHERE VSBED EQ GS_SODATA-VSBED
* AND LADGR EQ '0001'
* AND WERKS EQ '1000'
* AND LGORT EQ LV_LGORT.
*
* IF SY-SUBRC NE 0.
* C_RESULT = 'E'.
* LV_MSG = '售达方' && U_SLDTO && '按库存地点' && LV_LGORT && '确定的装运点不存在。'.
* MESSAGE S001 WITH LV_MSG DISPLAY LIKE 'E'.
* RETURN.
* ENDIF.
* ENDIF.
*
**检查条件记录是否存在
* SELECT
* *
* INTO TABLE LT_A515
* FROM A515
* WHERE KSCHL EQ 'PRZ0'
* AND KUNNR EQ U_SLDTO
* AND MATNR EQ GS_SODATA-MATNR.
*
* IF SY-SUBRC NE 0.
* C_RESULT = 'E'.
*
* LV_MSG = '售达方' && U_SLDTO && '物料' && GS_SODATA-MATNR && '条件记录PRZ0不存在。'.
* MESSAGE S001 WITH LV_MSG DISPLAY LIKE 'E'.
*
* RETURN.
*
* ELSE.
* SORT LT_A515 BY DATBI DESCENDING.
* DELETE ADJACENT DUPLICATES FROM LT_A515 COMPARING KAPPL KSCHL KUNNR MATNR.
*
* READ TABLE LT_A515 INTO LS_A515 INDEX 1.
*
* SELECT SINGLE KBETR INTO @DATA(KBETR)
* FROM KONP
* WHERE KNUMH EQ @LS_A515-KNUMH
* AND KSCHL EQ 'PRZ0'
* AND KBETR EQ 0.
*
* IF SY-SUBRC EQ 0.
* C_RESULT = 'E'.
*
* LV_MSG = '售达方' && U_SLDTO && '物料' && GS_SODATA-MATNR && '条件记录PRZ0价格不能为0。'.
* MESSAGE S001 WITH LV_MSG DISPLAY LIKE 'E'.
*
* RETURN.
* ENDIF.
* ENDIF.
*
c_result
= 'S'.
* ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SEL_ALL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_sel_all .
DATA : lt_filtered_entries TYPE lvc_t_fidx.
FREE lt_filtered_entries.
CALL METHOD gct_alv->get_filtered_entries
IMPORTING
et_filtered_entries
= lt_filtered_entries.
LOOP AT gt_output ASSIGNING <wa_data> WHERE sel EQ space.
READ TABLE lt_filtered_entries TRANSPORTING NO FIELDS WITH KEY table_line = sy-tabix.
IF sy-subrc NE 0.
<wa_data>
-sel = 'X'.
ENDIF.
ENDLOOP.
UNASSIGN <wa_data>
.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_LOCK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_check_lock .
SORT gt_batno[] BY batno batpo.
DELETE ADJACENT DUPLICATES FROM gt_batno[] COMPARING ALL FIELDS.
LOOP AT gt_batno.
CALL FUNCTION 'ENQUEUE_EZSD001'
EXPORTING
mode_ztsd002
= 'E'
batno
= gt_batno-batno
batpo
= gt_batno-batpo
* X_BATNO = ' '
* X_BATPO = ' '
* _SCOPE = '2'
* _WAIT = ' '
* _COLLECT = ' '
EXCEPTIONS
foreign_lock
= 1
system_failure
= 2
OTHERS = 3.
IF sy-subrc <> 0.
gs_mesg
-mesg = '批导编号' && gt_batno-batno && '行号' && gt_batno-batpo && '的订单' && '被用户' && sy-msgv1 && '锁定'.
* GS_MESG-MSGNO = SY-MSGNO.
* GS_MESG-MSGTY = SY-MSGTY.
* GS_MESG-MSGV1 = SY-MSGV1.
* GS_MESG-MSGV2 = SY-MSGV2.
* GS_MESG-MSGV3 = SY-MSGV3.
* GS_MESG-MSGV4 = SY-MSGV4.
APPEND gs_mesg TO gt_mesg.
CLEAR gs_mesg.
ENDIF.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_RESET_LOCK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_reset_lock .
LOOP AT gt_batno.
CALL FUNCTION 'DEQUEUE_EZSD001'
EXPORTING
mode_ztsd002
= 'E'
batno
= gt_batno-batno
batpo
= gt_batno-batpo
x_batno
= ' '
x_batpo
= ' '
_scope
= '3'
_synchron
= ' '
_collect
= ' '.
ENDLOOP.
FREE gt_batno.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DELETE_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_delete_data .
DATA: lt_del TYPE TABLE OF ztsd015 WITH HEADER LINE.
LOOP AT gt_output INTO gs_output WHERE sel EQ 'X'.
* IF GS_OUTPUT-ZTHDD IS INITIAL.
* DELETE GT_OUTPUT.
* DELETE FROM ZTSD015 WHERE BATNO EQ GS_OUTPUT-BATNO AND BATPO EQ GS_OUTPUT-BATPO.
** DELETE FROM ZTSD016 WHERE BATNO EQ GS_OUTPUT-BATNO AND BATPO EQ GS_OUTPUT-BATPO.
* ELSE.
SELECT SINGLE vbeln INTO @DATA(lv_vbeln)
FROM likp
WHERE vbeln EQ @gs_output-zthdd.
IF sy-subrc EQ 0.
MESSAGE '已生成退货订单不允许删除。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
* ENDIF.
ENDLOOP.
CLEAR gs_output.
LOOP AT gt_output INTO gs_output WHERE sel EQ 'X'.
IF gs_output-zuser NE sy-uname.
MESSAGE '不允许删除其他用户的验单数据。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
CLEAR lt_del.
lt_del
-batno = gs_output-batno.
lt_del
-batpo = gs_output-batpo.
lt_del
-sldto = gs_output-sldto.
lt_del
-shpto = gs_output-shpto.
lt_del
-matnr = gs_output-matnr.
APPEND lt_del TO lt_del.
CLEAR gs_output.
ENDLOOP.
DELETE gt_output WHERE sel EQ 'X'.
IF lt_del[] IS NOT INITIAL.
DELETE ztsd015 FROM TABLE lt_del[].
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
MESSAGE '删除成功！' TYPE 'S'.
ELSE.
ROLLBACK WORK.
MESSAGE '删除失败！' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
CLEAR: lt_del,lt_del[].
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_GET_STAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_<WA_DATA>_ZTHDD text
*----------------------------------------------------------------------*
FORM frm_get_stat USING u_so TYPE vbeln.
DATA: lv_so TYPE vbeln,
lv_dn
TYPE vbeln_vl.
lv_so
= u_so.
CHECK lv_so IS NOT INITIAL.
SELECT SINGLE a~vbeln INTO <wa_data>-zthdd
FROM vbkd AS a
INNER
JOIN vbap AS b
ON a~vbeln EQ b~vbeln
AND a~posnr EQ b~posnr
INNER
JOIN vbak AS c
ON a~vbeln EQ c~vbeln
WHERE bstkd_e EQ <wa_data>-key
AND b~abgru EQ space
AND c~auart EQ 'ZRE1'.
* SELECT SINGLE A~VBELN INTO <WA_DATA>-ZTHDD
* FROM VBKD AS A
* INNER JOIN VBAK AS B
* ON A~VBELN EQ B~VBELN
* WHERE ( BSTKD_E = <WA_DATA>-KEY
* AND B~AUART EQ 'ZRE1'
* AND A~POSNR NE SPACE )
* OR ( BSTKD_E = <WA_DATA>-ZYDDH
* AND B~AUART EQ 'ZRE1'
* AND A~POSNR EQ SPACE )
* OR ( BSTKD = <WA_DATA>-ZYDDH
* AND B~AUART EQ 'ZRE1'
* AND A~POSNR EQ SPACE ).
IF sy-subrc EQ 0.
SELECT SINGLE vbeln INTO <wa_data>-zthdn
FROM vbfa
WHERE ( vbelv EQ <wa_data>-zthdd
AND vbtyp_n EQ 'J' )
OR ( vbelv EQ <wa_data>-zthdd AND vbtyp_n EQ 'T' ).
IF sy-subrc EQ 0.
ELSE.
CLEAR <wa_data>-zthdn.
ENDIF.
ELSE.
CLEAR <wa_data>-zthdd.
CLEAR <wa_data>-zthdn.
ENDIF.
*取状态
lv_dn
= <wa_data>-zthdn.
SELECT SINGLE wbstk fkstk
INTO ( <wa_data>-wbstk1, <wa_data>-fkstk1 )
FROM vbuk
WHERE vbeln EQ lv_dn.
CLEAR lv_dn.
SELECT SINGLE a~vbeln INTO <wa_data>-zmfck
FROM vbkd AS a
INNER
JOIN vbap AS b
ON a~vbeln EQ b~vbeln
AND a~posnr EQ b~posnr
INNER
JOIN vbak AS c
ON a~vbeln EQ c~vbeln
WHERE bstkd_e EQ <wa_data>-key
AND b~abgru EQ space
AND c~auart EQ 'ZSD9'.
* SELECT SINGLE A~VBELN INTO <WA_DATA>-ZMFCK
* FROM VBKD AS A
* INNER JOIN VBAK AS B
* ON A~VBELN EQ B~VBELN
* WHERE ( BSTKD_E = <WA_DATA>-KEY
* AND B~AUART EQ 'ZSD9'
* AND A~POSNR NE SPACE )
* OR ( BSTKD_E = <WA_DATA>-ZYDDH
* AND B~AUART EQ 'ZSD9'
* AND A~POSNR EQ SPACE )
* OR ( BSTKD = <WA_DATA>-ZYDDH
* AND B~AUART EQ 'ZSD9'
* AND A~POSNR EQ SPACE ).
IF sy-subrc EQ 0.
SELECT SINGLE vbeln INTO <wa_data>-zdn
FROM vbfa
WHERE ( vbelv EQ <wa_data>-zmfck
AND vbtyp_n EQ 'J' )
OR ( vbelv EQ <wa_data>-zmfck AND vbtyp_n EQ 'T' ).
IF sy-subrc EQ 0.
ELSE.
"CLEAR <wa_data>-zmfck.
CLEAR <wa_data>-zdn.
ENDIF.
ELSE.
CLEAR <wa_data>-zdn.
CLEAR <wa_data>-zmfck.
ENDIF.
*取状态
lv_dn
= <wa_data>-zdn.
IF lv_dn IS NOT INITIAL.
SELECT SINGLE wbstk fkstk
INTO ( <wa_data>-wbstk2,<wa_data>-fkstk2 )
FROM vbuk
WHERE vbeln EQ lv_dn.
ENDIF.
CLEAR lv_dn.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_AUTHORITY_CHECK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_authority_check .
DATA: l_temp TYPE string.
DATA: lt_t001l TYPE TABLE OF t001l WITH HEADER LINE.
SELECT lgort
INTO CORRESPONDING FIELDS OF TABLE lt_t001l
FROM t001l
WHERE werks EQ 1000
AND lgort IN s_lgort.
IF lt_t001l[] IS INITIAL.
MESSAGE '没有库存地点记录' TYPE 'S' DISPLAY LIKE 'E'.
STOP.
ENDIF.
LOOP AT lt_t001l.
AUTHORITY-CHECK OBJECT 'M_MSEG_LGO'
ID 'ACTVT' DUMMY
ID 'WERKS' FIELD '1000'
ID 'LGORT' FIELD lt_t001l-lgort
ID 'BWART' DUMMY.
IF sy-subrc <> 0.
MESSAGE '您没有库存地点' && lt_t001l-lgort && '的权限' TYPE 'E'.
RETURN.
* Implement a suitable exception handling here
ENDIF.
ENDLOOP.
FREE lt_t001l.
FREE: l_temp.
ENDFORM.
*& Report ZSDR006
*&
*&---------------------------------------------------------------------*
*&程序名称：
*&事物代码
*&导入模板：
*&作者
*&时间
*&---------------------------------------------------------------------*
REPORT zsdr006_1 MESSAGE-ID 00.
TYPE-POOLS:ole2,slis,icon.
FIELD-SYMBOLS: <fs>.
TABLES: sscrfields,ztsd014,ztsd015,mchb,t001l.
TYPES: BEGIN OF ty_output,
sel TYPE c,
batno TYPE ztsd015-batno, "批导序号
batpo TYPE ztsd015-batpo, "验单批导序号
verno TYPE ztsd016-verno, "版本号
indat TYPE ztsd015-indat, "日期
* KUNNR TYPE KUNNR, "客户号
* NAME1 TYPE KNA1-NAME1, "客户名称
lgort TYPE lgort_d, "库存地点
lgobe TYPE lgobe, "库存地点描述
matnr TYPE ztsd015-matnr, "物料号
maktx TYPE makt-maktx, "物料描述
menge TYPE ztsd015-menge, "退货数量
meins TYPE meins, "数量单位
zsl1 TYPE menge_d,
zdw1 TYPE meins,
* CHARG TYPE CHARG_D, "批次
* ZYDJG TYPE ZTSD009-ZYDJG, "验单价格
* ZYDDH TYPE ZTSD009-ZYDDH, "验单单号
zthdd TYPE ztsd016-zthdd, "退货订单
zthdn TYPE likp-vbeln, "退货发货单号
zmfck TYPE ztsd016-zmfck, "免费出库订单
zdn TYPE ztsd015-zdn, "免费出库交货单
zstat TYPE ztsd015-zstat, "退货已过帐
ztext TYPE char10, "状态描述
zicon1 TYPE char4, "导入状态
* VKBUR TYPE VKBUR, "销售部门
* BEZEI TYPE TVKBT-BEZEI, "销售部门描述
shpto TYPE kunnr, "送达方
name2 TYPE kna1-name1,
sldto TYPE kunnr, "售达方
name3 TYPE kna1-name1,
zyddh(35), "验单单号
zthlx TYPE zthlx, "退货类型
zthms TYPE char4, "退货类型描述
augru TYPE augru, "退货原因
zthyy TYPE ztsd015-zthyy, "退货原因
cellcolor TYPE lvc_t_scol, "控制单元格颜色
style TYPE lvc_t_styl, "控制单元格可否编辑
zddjg TYPE kbetr_kond, "订单价格
zddje TYPE kbetr_kond, "总金额
zr TYPE char30, "主任
zywy TYPE char30, "业务员
pstyv TYPE lips-pstyv, "交货项目类型
mssg TYPE bapi_msg, "消息内容
zuser TYPE ztsd014-zuser,
zdate TYPE ztsd014-zdate,
wbstk1 TYPE vbuk-wbstk, "货物移动状态1
fkstk1 TYPE vbuk-fkstk, "开票状态
fkstk2 TYPE vbuk-fkstk, "开票状态
wbstk2 TYPE vbuk-wbstk, "货物移动状态
key TYPE char15,
budat TYPE mkpf-budat,
END OF ty_output.
TYPES: BEGIN OF ty_load,
indat TYPE ztsd015-indat, "日期 1
sldto TYPE kunnr, "售达方 2
shpto TYPE kunnr, "送达方 3
zywy TYPE char30, "业务员 4
zr TYPE char30, "主任 5
zyddh TYPE char35, "退单单号 6
augru TYPE tvau-augru, "退货原因编码 7
lgort TYPE lgort_d, "库存地 点 8
pstyv TYPE lips-pstyv, "交货项目类型 9
matnr TYPE ztsd015-matnr, "物料编码 10
menge TYPE menge_d, "退货数量 11
meins TYPE meins, "数量单位 12
zddjg TYPE kbetr_kond, "订单价格 13
zddje TYPE kbetr_kond, "订单金额 14
budat TYPE mkpf-budat,
END OF ty_load.
TYPES: BEGIN OF ty_sodata,
* ZYDDH TYPE ZTSD009-ZYDDH, "验单单号
zstring TYPE string,
indat TYPE ztsd009-indat,
* KUNNR TYPE KNA1-KUNNR,
shpto TYPE kunnr,
sldto TYPE kunnr,
vkorg TYPE vbak-vkorg, "销售组织
vtweg TYPE vbak-vtweg, "分销渠道
spart TYPE vbak-spart, "产品组
vkgrp TYPE vbak-vkgrp, "销售组
vsbed TYPE knvv-vsbed, "装运条件
augru TYPE tvau-augru, "退货原因编码
vkbur TYPE vbak-vkbur, "销售部门
matnr TYPE ekpo-matnr, "物料代码
lgort TYPE ekpo-lgort, "收货库存地点 8
werks TYPE vbap-werks, "
menge TYPE menge_d, "数量
meins TYPE meins, "单位
charg TYPE charg_d, "批次
* ZDDJG TYPE ZTSD015-ZDDJG, "退货价格
zddje TYPE ztsd015-zddje, "退货价格
batno TYPE ztsd015-batno, "批导序号
batpo TYPE ztsd015-batpo, "批导行项目号
pstyv TYPE lips-pstyv, "交货项目类型
zyddh(35), "验单单号
so TYPE vbak-vbeln, "销售订单号
zdn TYPE likp-vbeln, "交货单号
* SO1 TYPE VBAK-VBELN, "销售订单号
* ZDN1 TYPE LIKP-VBELN, "交货单号
kpein TYPE komv-kpein, "条件定价单位
kmein TYPE komv-kmein, "条件单位
key TYPE char15,
budat TYPE mkpf-budat,
END OF ty_sodata.
TYPES: BEGIN OF typ_header,
ztext(10),
END OF typ_header.
TYPES: BEGIN OF ty_charg,
charg TYPE mchb-charg,
clabs TYPE mchb-clabs,
END OF ty_charg.
TYPES: BEGIN OF ty_dn,
kunnr TYPE kunnr,
matnr TYPE matnr,
lgort TYPE lgort_d,
werks TYPE werks,
charg TYPE charg_d.
TYPES END OF ty_dn.
TYPES: BEGIN OF ty_mesg,
mesg TYPE char255,
END OF ty_mesg.
DATA: BEGIN OF gt_batno OCCURS 0,
batno TYPE zbatno,
batpo TYPE zbatpo,
END OF gt_batno.
DATA: gt_mesg TYPE TABLE OF ty_mesg,
gs_mesg TYPE ty_mesg.
DATA : gt_exclude TYPE ui_functions.
DATA: gs_layout TYPE lvc_s_layo,
gs_cellcolor TYPE lvc_s_scol,
gs_style TYPE lvc_s_styl,
gs_stable TYPE lvc_s_stbl,
gs_variant TYPE disvariant,
gt_structure TYPE lvc_t_fcat,
gs_structure TYPE lvc_s_fcat.
DATA: itab TYPE TABLE OF alsmex_tabline WITH HEADER LINE.
DATA: gt_load TYPE STANDARD TABLE OF ty_load,
gt_output TYPE TABLE OF ty_output,
gt_sodata TYPE TABLE OF ty_sodata,
gt_charg TYPE TABLE OF ty_charg,
gs_charg TYPE ty_charg,
gt_f4 TYPE lvc_t_f4,
gs_f4 TYPE lvc_s_f4.
DATA: gs_load TYPE ty_load,
gs_output TYPE ty_output,
gs_sodata TYPE ty_sodata.
DATA: gds_bdcdata TYPE bdcdata,
gdt_bdcdata
TYPE TABLE OF bdcdata.
DATA: gds_messtab TYPE bdcmsgcoll,
gdt_messtab
TYPE TABLE OF bdcmsgcoll.
DATA: g_message TYPE balmsgtxtp.
DATA: gds_return TYPE bapiret2,
gdt_return
TYPE TABLE OF bapiret2.
DATA: g_check_auth TYPE c.
DATA:gt_knvp TYPE knvp OCCURS 0,
gs_knvp
TYPE knvp.
DATA: status_buff_init TYPE c VALUE 'X',
call_activity
(4), " Aktiver Aufrufer bei Call
g_no_dequeue_sd_sales
TYPE c.
*DATA P_MODE TYPE C VALUE 'N'.
DATA: gv_charg TYPE charg_d VALUE 'INISTOCK'."期初库存批次
DATA: gv_charg1 TYPE charg_d VALUE 'A999999999'."期初库存批次
DATA: gt_header TYPE STANDARD TABLE OF typ_header,
gs_header
TYPE typ_header.
CLASS gc_event_receiver DEFINITION DEFERRED.
* Define objects used in screen
*DATA: GCTR_ALV TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA:
gctr_alv
TYPE REF TO cl_gui_docking_container,
gct_alv
TYPE REF TO cl_gui_alv_grid,
g_event
TYPE REF TO gc_event_receiver.
DATA:p_filepath TYPE string.
DATA: me TYPE REF TO cl_akb_progress_indicator.
CONSTANTS: c_yes TYPE c VALUE 'X'.
*DATA: C_PATH TYPE RLGRAP-FILENAME VALUE 'C:\TMP\财务批导模板.xls',
DATA: c_path TYPE string VALUE 'C:\TMP\',
c_fullpath
TYPE string VALUE 'C:\TMP\退货批导模板.xls',
c_filename
TYPE string VALUE '退货批导模板.xls',
user_action
TYPE i,
encoding TYPE abap_encoding.
*定义OLE变量
DATA:g_excel TYPE ole2_object,
g_applica
TYPE ole2_object,
g_sheet
TYPE ole2_object,
g_cell
TYPE ole2_object,
g_workbook
TYPE ole2_object.
FIELD-SYMBOLS:<wa_data> TYPE ty_output,
<wa_sodata>
TYPE ty_sodata.
*----------------------------------------------------------------
* SELECTION-SCREEN DEFINITION
*----------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_ufile LIKE rlgrap-filename MODIF ID m1."上传文件路径
SELECT-OPTIONS:
s_lgort
FOR t001l-lgort MODIF ID m2,"库存地点
s_indat
FOR ztsd015-indat MODIF ID m2,"退货日期
s_zdate
FOR ztsd014-zdate MODIF ID m2,"导入日期
s_batno
FOR ztsd015-batno MODIF ID m2 NO-DISPLAY,"批导编号
s_zuser
FOR ztsd014-zuser MODIF ID m2,"导入人
s_sndto
FOR ztsd015-shpto MODIF ID m2,"送达方
s_selto
FOR ztsd015-sldto MODIF ID m2,"客户编号
s_matnr
FOR ztsd015-matnr MODIF ID m2,"物料编号
s_zyddh
FOR ztsd015-zyddh LOWER CASE MODIF ID m2,"验单单号
s_zthdd
FOR ztsd015-zthdd MODIF ID m3,"退货订单
s_zmfck
FOR ztsd015-zmfck MODIF ID m3,"免费出库订单
s_zthdn
FOR ztsd015-zthdn MODIF ID m3."退货交货单
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN: FUNCTION KEY 1. "激活按钮
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: r1 RADIOBUTTON GROUP rg1 USER-COMMAND fcode DEFAULT 'X', "上传批导
r2
RADIOBUTTON GROUP rg1, "退货审批
r3
RADIOBUTTON GROUP rg1 MODIF ID m4 , "免费发货
r6
RADIOBUTTON GROUP rg1 "查询
. "
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE title.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: r4 RADIOBUTTON GROUP rg2 USER-COMMAND fcode DEFAULT 'X' MODIF ID m5."实退
SELECTION-SCREEN COMMENT (5) text-004 FOR FIELD r4.
PARAMETERS: r5 RADIOBUTTON GROUP rg2."空退
SELECTION-SCREEN COMMENT (5) text-005 FOR FIELD r5."空退
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE title4.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: r7 RADIOBUTTON GROUP rg3 USER-COMMAND fcode."石家庄
SELECTION-SCREEN COMMENT (8) text-007 FOR FIELD r7.
PARAMETERS: r8 RADIOBUTTON GROUP rg3 DEFAULT 'X'."外阜
SELECTION-SCREEN COMMENT (8) text-008 FOR FIELD r8."
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b4.
*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
INITIALIZATION.
sscrfields
-functxt_01 = '下载模板'. "定义按钮文本
title = '退货类型'.
title4
= '业务类型'.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
CASE sscrfields-ucomm. "处理按钮命令
WHEN'FC01'.
PERFORM frm_download_template.
ENDCASE.
AT SELECTION-SCREEN OUTPUT.
IF r7 EQ 'X'.
SUBMIT zsdr006
WITH p_ufile = p_ufile
WITH r1 = r1
WITH r2 = r2
WITH r3 = r3
WITH r4 = r4
WITH r5 = r5
WITH r6 = r6
VIA
SELECTION-SCREEN.
ENDIF.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'M1'.
IF r1 EQ 'X'.
screen-active = 1.
ELSE.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
WHEN 'M2'.
IF ( r2 EQ 'X' OR r6 EQ 'X' ) OR ( r3 EQ 'X' AND r5 EQ 'X' ).
screen-active = 1.
ELSE.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
WHEN 'M3'.
IF r5 EQ 'X' AND r3 EQ 'X'.
screen-active = 1.
ELSE.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
WHEN 'M4'.
IF r5 EQ 'X'.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
WHEN 'M5'.
IF r3 EQ 'X'.
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ufile.
PERFORM frm_get_filepath.
*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
START-OF-SELECTION.
FREE MEMORY ID :'GT_OUTPUT','BATNO'.
*上传文件
IF r1 EQ 'X'.
IF p_ufile IS INITIAL.
MESSAGE '请选择需要上传的文件' TYPE 'S' DISPLAY LIKE 'E'.
EXIT.
ENDIF.
PERFORM frm_upload_file USING p_ufile.
PERFORM frm_post_upload.
ELSE."R2 EQ 'X'
*显示保存的数据
IF s_lgort-low IS INITIAL.
MESSAGE '请输入库存地点。' TYPE 'S' DISPLAY LIKE 'E'.
EXIT.
ENDIF.
PERFORM frm_authority_check.
*DELETE FROM: ZTSD014,ZTSD015,ZTSD016. COMMIT WORK AND WAIT.
PERFORM frm_get_data.
PERFORM frm_process_data.
ENDIF.
IF gt_output IS INITIAL.
MESSAGE '没有符合条件的数据。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
IF r1 NE 'X' AND r6 NE 'X'.
PERFORM frm_check_lock.
CHECK gt_mesg IS NOT INITIAL.
LOOP AT gt_mesg INTO gs_mesg.
WRITE: / gs_mesg-mesg.
ENDLOOP.
RETURN.
ENDIF.
*----------------------------------------------------------------------*
* END-OF-SELECTION *
*----------------------------------------------------------------------*
END-OF-SELECTION.
PERFORM frm_define_layout.
PERFORM frm_build_fieldcat.
PERFORM frm_exclude_buttons TABLES gt_exclude.
* PERFORM FRM_DISPLAY_DATA.
CALL SCREEN 9000.
*----------------------------------------------------------------
* CLASS GC_EVENT_RECEIVER DEFINITION
*----------------------------------------------------------------
CLASS gc_event_receiver DEFINITION.
PUBLIC SECTION.
"添加工具条
METHODS toolbar FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING
e_object
e_interactive
.
*
"字段修改时触发
* METHODS HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
* IMPORTING
* ER_DATA_CHANGED.
*
*
* METHODS HANDLE_CHANGE_FINISH FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID
* IMPORTING
* E_MODIFIED
* ET_GOOD_CELLS.
* "某字段设置热键后，单击此单元格时触发
* METHODS HANDLE_CELL_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
* IMPORTING
* E_ROW_ID
* E_COLUMN_ID
* ES_ROW_NO.
*
* "双击时触发
METHODS handle_double_click FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING
e_row
e_column
es_row_no
.
*
* "按F1时触发
* METHODS HANDLE_ONF1 FOR EVENT ONF1 OF CL_GUI_ALV_GRID
* IMPORTING
* E_FIELDNAME
* ES_ROW_NO
* ER_EVENT_DATA.
*
* "当用户按屏幕上按钮时触发
METHODS handle_user_command FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING
e_ucomm
.
*F4帮助
METHODS on_f4 FOR EVENT onf4 OF cl_gui_alv_grid
IMPORTING
e_fieldname
es_row_no
er_event_data
et_bad_cells
e_display
.
ENDCLASS. "GC_EVENT_RECEIVER DEFINITION
*----------------------------------------------------------------
* CLASS GC_EVENT_RECEIVER IMPLEMENTATION
*----------------------------------------------------------------
CLASS gc_event_receiver IMPLEMENTATION.
METHOD on_f4.
DATA: lv_menge TYPE menge_d.
CASE e_fieldname.
WHEN 'CHARG'.
READ TABLE gt_output ASSIGNING <wa_data> INDEX es_row_no-row_id.
IF sy-subrc = 0.
* PERFORM FRM_CHARG_F4 CHANGING <WA_DATA>-CHARG .
*实发数量
* LV_MENGE = <WA_DATA>-ZSFSL.
* IF <WA_DATA>-CHARG IS NOT INITIAL.
* LOOP AT GT_DETAIL ASSIGNING <DETAIL>
* WHERE INDAT EQ <WA_DATA>-INDAT
* AND MATNR EQ <WA_DATA>-MATNR
* AND SHPTO EQ <WA_DATA>-SHPTO
* AND SLDTO EQ <WA_DATA>-SLDTO .
**自动分配实发数量到明细表
* IF LV_MENGE GT 0.
* <DETAIL>-ZSFSL = <DETAIL>-ZWFSL.
*
* IF <DETAIL>-ZSFSL LT LV_MENGE.
* LV_MENGE = ABS( <DETAIL>-ZSFSL - LV_MENGE ).
* ELSE.
* <DETAIL>-ZSFSL = LV_MENGE.
* LV_MENGE = 0.
* ENDIF.
* ENDIF.
**分配批次到明细表
* MOVE <WA_DATA>-CHARG TO <DETAIL>-CHARG .
* ENDLOOP.
* CALL METHOD GCT_ALV->REFRESH_TABLE_DISPLAY.
* ENDIF.
ENDIF.
UNASSIGN
: <wa_data>.
ENDCASE.
ENDMETHOD.
METHOD handle_double_click.
* BREAK B012.
* IF R6 EQ 'X'.
IF e_column-fieldname EQ 'ZTHDN'.
READ TABLE gt_output INTO gs_output INDEX e_row-index.
CHECK gs_output-zthdn IS NOT INITIAL.
SET PARAMETER ID 'VL' FIELD gs_output-zthdn.
CALL TRANSACTION 'VL03N' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
*返回时检查是否已过账
* BREAK B012.
WAIT UP TO 1 SECONDS.
PERFORM frm_check_post USING gs_output-zthdn 1.
ENDIF.
IF e_column-fieldname EQ 'ZDN'.
READ TABLE gt_output INTO gs_output INDEX e_row-index.
CHECK gs_output-zdn IS NOT INITIAL.
SET PARAMETER ID 'VL' FIELD gs_output-zdn.
CALL TRANSACTION 'VL03N' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
*返回时检查是否已过账
WAIT UP TO 1 SECONDS.
PERFORM frm_check_post USING gs_output-zdn 2.
ENDIF.
* ENDIF.
CALL METHOD gct_alv->refresh_table_display
EXPORTING
is_stable
= gs_stable
i_soft_refresh
= 'X'.
ENDMETHOD.
METHOD toolbar.
DATA: ls_toolbar TYPE stb_button.
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type. "分隔符
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'SEL_ALL' TO ls_toolbar-function. "添加全选
MOVE icon_select_all TO ls_toolbar-icon.
MOVE '全选' TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'CAN_ALL' TO ls_toolbar-function. "取消全选
MOVE icon_deselect_all TO ls_toolbar-icon.
MOVE '全部取消 ' TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type."分隔符
APPEND ls_toolbar TO e_object->mt_toolbar.
IF r1 EQ 'X' OR r2 EQ 'X'.
CLEAR ls_toolbar.
MOVE 'DEL' TO ls_toolbar-function.
MOVE icon_delete_row TO ls_toolbar-icon.
MOVE '删除行' TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
ENDIF.
IF r2 EQ 'X' OR r3 EQ 'X'.
* CLEAR LS_TOOLBAR.
* MOVE 'ADD' TO LS_TOOLBAR-FUNCTION.
* MOVE ICON_INSERT_ROW TO LS_TOOLBAR-ICON.
* MOVE '添加行' TO LS_TOOLBAR-QUICKINFO.
* MOVE ' ' TO LS_TOOLBAR-DISABLED.
* APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
*
* CLEAR LS_TOOLBAR.
* MOVE 'DEL' TO LS_TOOLBAR-FUNCTION.
* MOVE ICON_DELETE_ROW TO LS_TOOLBAR-ICON.
* MOVE '删除行' TO LS_TOOLBAR-QUICKINFO.
* MOVE ' ' TO LS_TOOLBAR-DISABLED.
* APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
CLEAR ls_toolbar.
MOVE 'OKAY' TO ls_toolbar-function.
MOVE icon_okay TO ls_toolbar-icon.
MOVE '审批通过' TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
ENDIF.
* IF R6 EQ 'X'.
* CLEAR LS_TOOLBAR.
* MOVE 'POST_GMVT' TO LS_TOOLBAR-FUNCTION.
** MOVE ICON_OKAY TO LS_TOOLBAR-ICON.
* MOVE 0 TO LS_TOOLBAR-BUTN_TYPE.
* MOVE '发货过账' TO LS_TOOLBAR-TEXT.
* APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* ENDIF.
ENDMETHOD.
METHOD handle_user_command.
DATA(ok_code) = e_ucomm.
DATA: error TYPE c,
lv_result
TYPE string.
DATA: ans TYPE string."GUI返回值
CASE ok_code.
WHEN 'SEL_ALL'.
PERFORM frm_sel_all.
* CLEAR GS_OUTPUT.
* GS_OUTPUT-SEL = 'X'.
* MODIFY GT_OUTPUT FROM GS_OUTPUT TRANSPORTING SEL WHERE SEL EQ SPACE AND ZICON1 NE '@0A@'."红灯
WHEN 'CAN_ALL'.
CLEAR gs_output.
gs_output
-sel = ' '.
MODIFY gt_output FROM gs_output TRANSPORTING sel WHERE sel EQ 'X'.
WHEN 'OKAY'.
PERFORM frm_confirm_data CHANGING lv_result.
IF lv_result EQ 'S'.
CLEAR lv_result.
PERFORM frm_save_data USING 'APPROVAL' CHANGING lv_result.
IF lv_result EQ 'S'.
MESSAGE '审批成功！' TYPE 'S'.
ELSE.
MESSAGE '审批失败！' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
CLEAR lv_result.
ENDIF.
* WHEN 'ADD'.
* PERFORM FRM_ADD_ROW.
*
WHEN 'DEL'.
*询问是否确认
READ TABLE gt_output TRANSPORTING NO FIELDS WITH KEY sel = 'X'.
IF sy-subrc NE 0.
MESSAGE '请至少选择一条数据！' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question
= '确认删除所选数据？'
text_button_1
= '是'(009)
text_button_2
= '否'(010)
default_button
= '1'
display_cancel_button
= 'X'
start_column
= 25
start_row
= 6
IMPORTING
answer
= ans
EXCEPTIONS
text_not_found
= 1
OTHERS = 2.
IF ans EQ '1'."是
IF r1 EQ 'X'.
DELETE gt_output WHERE sel EQ 'X'.
ELSE.
PERFORM frm_delete_data.
ENDIF.
ENDIF.
WHEN 'POST_GMVT'.
PERFORM frm_post_gmvt CHANGING lv_result.
IF lv_result EQ 'S'.
CLEAR lv_result.
PERFORM frm_save_data USING 'POST' CHANGING lv_result.
IF lv_result EQ 'S'.
MESSAGE '过账成功！' TYPE 'S'.
ELSE.
MESSAGE '过账失败！' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
CLEAR lv_result.
ENDIF.
WHEN OTHERS.
ENDCASE.
CALL METHOD gct_alv->refresh_table_display
EXPORTING
is_stable
= gs_stable
i_soft_refresh
= 'X'.
ENDMETHOD.
ENDCLASS.
*&---------------------------------------------------------------------*
*& Form FRM_GET_FILEPATH
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
FORM frm_get_filepath .
DATA: l_rc TYPE i.
DATA: lt_filetab TYPE filetable.
CREATE OBJECT me.
CALL METHOD me->display
EXPORTING
message = '选择上传文件路径......'.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
window_title
= '请选择本地文件'
multiselection
= space
CHANGING
file_table
= lt_filetab
rc
= l_rc
EXCEPTIONS
file_open_dialog_failed
= 1
cntl_error
= 2
error_no_gui
= 3
not_supported_by_gui
= 4
OTHERS = 5.
IF sy-subrc EQ 0 AND l_rc EQ 1.
READ TABLE lt_filetab INTO p_ufile INDEX 1.
ENDIF.
ENDFORM. " FRM_GET_FILEPATH
*&---------------------------------------------------------------------*
*& Form FRM_UPLOAD_FILE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_UFILE text
*----------------------------------------------------------------------*
FORM frm_upload_file USING p_ufile TYPE rlgrap-filename.
DATA: ls_rowdata TYPE truxs_t_text_data,
lv_lines
TYPE i,
lv_msg
TYPE string,
lv_n
TYPE i,
lv_count
TYPE i. "计数器
DATA: lv_posnr(4) TYPE n."批导行项目号
CREATE OBJECT me.
CALL METHOD me->display
EXPORTING
message = '读取上传文件内容...'.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
i_line_header
= '1'
i_tab_raw_data
= ls_rowdata
i_filename
= p_ufile
TABLES
i_tab_converted_data
= gt_load[]
EXCEPTIONS
conversion_failed
= 1.
IF sy-subrc NE 0.
* MESSAGE SY-MSGID WITH 'Excel导入错误。'.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
* BREAK B012.
CREATE OBJECT me.
CALL METHOD me->display
EXPORTING
message = '检查数据...'.
DELETE gt_load WHERE menge EQ 0.
DESCRIBE TABLE gt_load LINES lv_lines.
LOOP AT gt_load INTO gs_load.
lv_msg
= '检查数据...' && sy-tabix && '/' && lv_lines.
CALL METHOD me->display
EXPORTING
message = lv_msg.
*检查日期格式
ASSIGN COMPONENT 1 OF STRUCTURE gs_load TO <fs>.
CALL FUNCTION 'RP_CHECK_DATE'
EXPORTING
date = <fs>
EXCEPTIONS
date_invalid
= 1
OTHERS = 2.
IF sy-subrc NE 0.
* MESSAGE '日期格式不正确' TYPE 'S' DISPLAY LIKE 'E'.
* STOP.
PERFORM set_callsytle USING 1 gs_load '日期格式错误' CHANGING gs_output-cellcolor gs_output-mssg.
ELSEIF <fs> GT sy-datum.
PERFORM set_callsytle USING 1 gs_load '日期大于当天' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查客户编号是否存在
* ASSIGN COMPONENT 2 OF STRUCTURE GS_LOAD TO <FS>.
*
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = <FS>
* IMPORTING
* OUTPUT = <FS>.
*
** SELECT SINGLE NAME1 INTO GS_OUTPUT-NAME1
** FROM KNA1
** WHERE KUNNR EQ <FS>
** AND KTOKD EQ 'Z003'
* .
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING 2 GS_LOAD '客户不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*检查送达方售达方是否存在
*添加前置零
ASSIGN COMPONENT 2 OF STRUCTURE gs_load TO <fs>.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = <fs>
IMPORTING
output = <fs>.
SELECT SINGLE name1 INTO gs_output-name3
FROM kna1
WHERE kunnr EQ <fs>
* AND KTOKD EQ 'Z003'
.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 2 gs_load '售达方不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*添加前置零
ASSIGN COMPONENT 3 OF STRUCTURE gs_load TO <fs>.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = <fs>
IMPORTING
output = <fs>.
SELECT SINGLE name1 INTO gs_output-name2
FROM kna1
WHERE kunnr EQ <fs>
.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 3 gs_load '送达方不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查退货原因是否存在
ASSIGN COMPONENT 7 OF STRUCTURE gs_load TO <fs>.
PERFORM add_lead_zero USING 3 CHANGING <fs>.
SELECT SINGLE bezei INTO gs_output-zthyy
FROM tvaut
WHERE augru EQ <fs>.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 7 gs_load '原因代码不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查产品是否存在
*取物料描述
*添加前置零
ASSIGN COMPONENT 10 OF STRUCTURE gs_load TO <fs>.
UNPACK <fs> TO <fs>.
SELECT SINGLE maktx INTO gs_output-maktx
FROM makt
WHERE matnr EQ <fs>
AND spras EQ 1.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 10 gs_load '物料不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
****检查单位
ASSIGN COMPONENT 12 OF STRUCTURE gs_load TO <fs>.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
EXPORTING
input = <fs>
language = sy-langu
IMPORTING
output = <fs>
EXCEPTIONS
unit_not_found
= 1
OTHERS = 2.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 12 gs_load '单位不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查库存地点
ASSIGN COMPONENT 8 OF STRUCTURE gs_load TO <fs>.
SELECT SINGLE lgort FROM t001l
INTO @DATA(lv_lgort)
WHERE lgort EQ @<fs>.
IF sy-subrc NE 0.
PERFORM set_callsytle USING 8 gs_load '库存地不存在' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
*检查订单行项目类型
ASSIGN COMPONENT 9 OF STRUCTURE gs_load TO <fs>.
TRANSLATE <fs> TO UPPER CASE.
IF <fs> NE 'REN' AND <fs> NE 'REN4'.
PERFORM set_callsytle USING 9 gs_load '行项目类型不正确' CHANGING gs_output-cellcolor gs_output-mssg.
ENDIF.
MOVE-CORRESPONDING gs_load TO gs_output.
ADD 1 TO lv_posnr.
MOVE lv_posnr TO gs_output-batpo.
APPEND gs_output TO gt_output.
CLEAR:gs_load,gs_output.
ENDLOOP.
* DATA: LV_LENTH TYPE I.
* DATA: LV_FLAG TYPE C.
* DATA: LV_POSNR(4) TYPE N."批导行项目号
* DATA: L_EXCEPTION TYPE REF TO CX_ROOT.
*
* DATA: LV_LINES TYPE I,
* LV_ROW TYPE I,
* LV_COL TYPE I,
* LV_COL1 TYPE I,
* LV_COL2 TYPE I,
* LV_FIXED TYPE I.
*
* DATA: LT_TAB TYPE TABLE OF ALSMEX_TABLINE,
* LT_TAB1 TYPE TABLE OF ALSMEX_TABLINE,
* LS_TAB TYPE ALSMEX_TABLINE,
* LS_TAB1 TYPE ALSMEX_TABLINE.
*
* DATA: X TYPE I."两个物料列的间隔
*
* FIELD-SYMBOLS: <L_FS> TYPE ALSMEX_TABLINE.
*
* CLEAR: LV_COUNT,X,LV_LINES.
* CREATE OBJECT ME.
* CALL METHOD ME->DISPLAY
* EXPORTING
* MESSAGE = '读取上传文件内容...'.
*
* CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
* EXPORTING
* FILENAME = P_UFILE
* I_BEGIN_COL = 1
* I_BEGIN_ROW = 1
* I_END_COL = 13555
* I_END_ROW = 65536
* TABLES
* INTERN = ITAB[]
* EXCEPTIONS
* INCONSISTENT_PARAMETERS = 1
* UPLOAD_OLE = 2
* OTHERS = 3.
* IF SY-SUBRC NE 0.
* MESSAGE E001 WITH 'Excel导入错误。'.
* ENDIF.
*
**行列转换
* CALL FUNCTION 'ZSDF001'
* IMPORTING
* FIXED_COL = LV_FIXED
* TABLES
* ITAB_IN = ITAB[]
* ITAB_OUT = ITAB[].
*
*
* SORT ITAB[] BY ROW COL.
**删除不必要的列
* DELETE ITAB[] WHERE COL EQ 3 AND COL EQ 5 AND COL EQ 7 AND COL EQ 12.
* DESCRIBE TABLE ITAB[] LINES LV_LINES.
*
* LOOP AT ITAB.
* LV_MSG = '检查数据...' && SY-TABIX && '/' && LV_LINES.
*
* ON CHANGE OF ITAB-ROW.
* IF SY-TABIX NE 1.
*
* IF GS_LOAD-MENGE GT 0.
* APPEND GS_LOAD TO GT_LOAD.
* MOVE-CORRESPONDING GS_LOAD TO GS_OUTPUT.
*
* ADD 1 TO LV_POSNR.
* MOVE LV_POSNR TO GS_OUTPUT-BATPO.
*
* IF GS_OUTPUT-CELLCOLOR IS NOT INITIAL.
* GS_OUTPUT-ZICON1 = '@0A@'."红灯
* ELSE.
* GS_OUTPUT-ZICON1 = '@08@'."绿灯
*
* ENDIF.
*
* IF GS_OUTPUT-ZICON1 = '@0A@'."红灯
* PERFORM SET_STYLE USING 'SEL' 'DISABLE' CHANGING GS_OUTPUT-STYLE.
* ENDIF.
* APPEND GS_OUTPUT TO GT_OUTPUT.
*
* CLEAR GS_LOAD.
* CLEAR GS_OUTPUT.
* CLEAR GS_CELLCOLOR.
* ELSE.
* CLEAR GS_LOAD.
* CLEAR GS_OUTPUT.
* CLEAR GS_CELLCOLOR.
* ENDIF.
* ENDIF.
* ENDON.
*
* ASSIGN COMPONENT ITAB-COL OF STRUCTURE GS_LOAD TO <FS>.
* IF SY-SUBRC NE 0.
* CONTINUE.
* ENDIF.
*
* "动态方法将值传到相应的内表
** <FS> = ITAB-VALUE.
* TRY.
* MOVE ITAB-VALUE TO <FS>.
* CATCH CX_ROOT INTO L_EXCEPTION.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '数据格式不正确' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* CONTINUE.
* ENDTRY.
*
* CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
* EXPORTING
* PERCENTAGE = 0
** TEXT = '检查数据... '.
* TEXT = LV_MSG.
*
**检查日期格式
* IF ITAB-COL EQ 1.
*
* CALL FUNCTION 'RP_CHECK_DATE'
* EXPORTING
* DATE = <FS>
* EXCEPTIONS
* DATE_INVALID = 1
* OTHERS = 2.
*
* IF SY-SUBRC NE 0.
** MESSAGE '日期格式不正确' TYPE 'S' DISPLAY LIKE 'E'.
** STOP.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '日期格式错误' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ELSEIF <FS> GT SY-DATUM.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '日期大于当天' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
* ENDIF.
**检查客户编号是否存在
* IF ITAB-COL EQ 2.
**取客户名称
**添加前置零
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = <FS>
* IMPORTING
* OUTPUT = <FS>.
*
* SELECT SINGLE NAME1 INTO GS_OUTPUT-NAME1
* FROM KNA1
* WHERE KUNNR EQ <FS>
** AND KTOKD EQ 'Z003'
* .
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '客户不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
* ENDIF.
*
**检查送达方售达方是否存在
* IF ITAB-COL EQ 4.
**添加前置零
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = <FS>
* IMPORTING
* OUTPUT = <FS>.
*
* SELECT SINGLE NAME1 INTO GS_OUTPUT-NAME3
* FROM KNA1
* WHERE KUNNR EQ <FS>
** AND KTOKD EQ 'Z003'
* .
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '售达方不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*
* ENDIF.
*
* IF ITAB-COL EQ 6.
**添加前置零
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = <FS>
* IMPORTING
* OUTPUT = <FS>.
*
* SELECT SINGLE NAME1 INTO GS_OUTPUT-NAME2
* FROM KNA1
* WHERE KUNNR EQ <FS>
** AND KTOKD EQ 'Z003'
* .
*
* ENDIF.
*
* IF ITAB-COL EQ 11.
**检查退货原因是否存在
* PERFORM ADD_LEAD_ZERO USING 3 CHANGING <FS>.
*
* SELECT SINGLE * INTO @DATA(LS_TVAU)
* FROM TVAU
* WHERE AUGRU EQ @<FS>.
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '原因代码不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
* ENDIF.
*
**检查产品是否存在
* IF ITAB-COL EQ LV_FIXED.
**取物料描述
**添加前置零
*
* UNPACK <FS> TO <FS>.
*
* SELECT SINGLE MAKTX INTO GS_OUTPUT-MAKTX
* FROM MAKT
* WHERE MATNR EQ <FS>
* AND SPRAS EQ 1.
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '物料不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*
*****检查单位
* IF ITAB-COL EQ 15.
*
* CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
* EXPORTING
* INPUT = <FS>
* LANGUAGE = SY-LANGU
* IMPORTING
* OUTPUT = <FS>
* EXCEPTIONS
* UNIT_NOT_FOUND = 1
* OTHERS = 2.
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '单位不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
* ENDIF.
*
**检查库存地点
* IF ITAB-COL EQ 13.
* SELECT SINGLE LGORT FROM T001L
* INTO @DATA(LV_LGORT)
* WHERE LGORT EQ @<FS>.
*
* IF SY-SUBRC NE 0.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '库存地不存在' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*
* ENDIF.
*
**检查订单行项目类型
* IF ITAB-COL EQ 14.
* IF <FS> NE 'REN' AND <FS> NE 'REN2'.
* PERFORM SET_CALLSYTLE USING ITAB-COL GS_LOAD '行项目类型不正确' CHANGING GS_OUTPUT-CELLCOLOR GS_OUTPUT-MSSG.
* ENDIF.
*
* ENDIF.
*
** ENDIF.
** AT END OF ROW.
** IF SY-TABIX NE 1.
** APPEND GS_LOAD TO GT_LOAD.
** MOVE-CORRESPONDING GS_LOAD TO GS_OUTPUT.
**
** ADD 1 TO LV_POSNR.
** MOVE LV_POSNR TO GS_OUTPUT-BATPO.
**
** IF GS_OUTPUT-CELLCOLOR IS NOT INITIAL.
** GS_OUTPUT-ZICON1 = '@0A@'."红灯
** ELSE.
** GS_OUTPUT-ZICON1 = '@08@'."绿灯
**
** ENDIF.
**
*** GS_OUTPUT-ZICON2 = ICON_SET_STATE.
** IF GS_OUTPUT-ZICON1 = '@0A@'."红灯
** PERFORM SET_STYLE USING 'SEL' 'DISABLE' CHANGING GS_OUTPUT-STYLE.
** ENDIF.
** APPEND GS_OUTPUT TO GT_OUTPUT.
**
** CLEAR GS_LOAD.
** CLEAR GS_OUTPUT.
** CLEAR GS_CELLCOLOR.
** ENDIF.
** ENDAT.
* ENDLOOP.
*
* IF GS_LOAD-MENGE GT 0.
*
* APPEND GS_LOAD TO GT_LOAD.
*
* MOVE-CORRESPONDING GS_LOAD TO GS_OUTPUT.
** MOVE GS_LOAD-ZJHSL TO GS_OUTPUT-ZTZSL.
* ADD 1 TO LV_POSNR.
* MOVE LV_POSNR TO GS_OUTPUT-BATPO.
*
* IF GS_OUTPUT-CELLCOLOR IS NOT INITIAL.
* GS_OUTPUT-ZICON1 = '@0A@'."红灯
* ELSE.
* GS_OUTPUT-ZICON1 = '@08@'."绿灯
* ENDIF.
*
** GS_OUTPUT-ZICON2 = ICON_SET_STATE.
* IF GS_OUTPUT-ZICON1 = '@0A@'."红灯
* PERFORM SET_STYLE USING 'SEL' 'DISABLE' CHANGING GS_OUTPUT-STYLE.
* ENDIF.
* APPEND GS_OUTPUT TO GT_OUTPUT.
* CLEAR: GS_OUTPUT,GS_CELLCOLOR.
* ELSE.
* CLEAR: GS_OUTPUT,GS_CELLCOLOR.
* ENDIF.
*
* IF GT_LOAD[] IS INITIAL.
* MESSAGE '文件名或数据为空,请确认后重试!' TYPE 'I'.
* ELSE.
* ENDIF.
ENDFORM. " FRM_UPLOAD_FILE
*&---------------------------------------------------------------------*
*& Form FRM_DOWNLOAD_TEMPLATE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_download_template .
CLEAR: gt_header.
*填充抬头
*财务批导模板抬头
gs_header
-ztext = '日期'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
* GS_HEADER-ZTEXT = '客户编码'.
* APPEND GS_HEADER TO GT_HEADER.
* CLEAR GS_HEADER.
*
gs_header
-ztext = '售达方编码'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
*
gs_header
-ztext = '送达方编码'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
*
gs_header
-ztext = '业务员'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
*
gs_header
-ztext = '主任'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退单单号'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退货原因编码'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '库存地点编码'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退货项目类型'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '产品编号'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退货数量'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '数量单位'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '退货价格'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '金额'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
gs_header
-ztext = '过账日期'.
APPEND gs_header TO gt_header.
CLEAR gs_header.
*下载模板
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
window_title
= '财务批导模板'
with_encoding
= 'X'
initial_directory
= c_path
prompt_on_overwrite
= 'X'
default_file_name
= c_filename
CHANGING
filename
= c_filename
path
= c_path
fullpath
= c_fullpath
user_action
= user_action
file_encoding
= encoding
EXCEPTIONS
cntl_error
= 1
error_no_gui
= 2
not_supported_by_gui
= 3
OTHERS = 4.
IF user_action <> cl_gui_frontend_services=>action_ok.
EXIT.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename
= c_fullpath
filetype
= 'DAT'
TABLES
data_tab
= gt_load
fieldnames
= gt_header
EXCEPTIONS
file_write_error
= 1
no_batch
= 2
gui_refuse_filetransfer
= 3
invalid_type
= 4.
* DATA: LV_OBJDATA LIKE WWWDATATAB,
* LV_OBJ_NAME LIKE WWWDATATAB-OBJID,
* LV_DESTINATION LIKE RLGRAP-FILENAME,
* LV_OBJID LIKE SY-REPID,
* LV_SUBRC LIKE SY-SUBRC.
* DATA:L_RET TYPE ABAP_BOOL,
* LV_ANSWER.
* DATA:LV_FILE TYPE STRING.
*
* MOVE C_PATH TO LV_FILE.
* CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
* EXPORTING
* WINDOW_TITLE = '退货批导模板'
* WITH_ENCODING = 'X'
* INITIAL_DIRECTORY = C_PATH
* PROMPT_ON_OVERWRITE = 'X'
* DEFAULT_FILE_NAME = C_FILENAME
* CHANGING
* FILENAME = C_FILENAME
* PATH = C_PATH
* FULLPATH = C_FULLPATH
* USER_ACTION = USER_ACTION
* FILE_ENCODING = ENCODING
* EXCEPTIONS
* CNTL_ERROR = 1
* ERROR_NO_GUI = 2
* NOT_SUPPORTED_BY_GUI = 3
* OTHERS = 4.
*
* IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* EXIT.
* ENDIF.
*
* CREATE OBJECT G_EXCEL 'EXCEL.APPLICATION'.
* GET PROPERTY OF G_EXCEL 'Workbooks' = G_WORKBOOK .
* CALL METHOD OF
* G_WORKBOOK
* 'Close'.
*
* IF USER_ACTION EQ '0'.
* MOVE 'ZSD_XLS_005' TO LV_OBJ_NAME.
* SELECT SINGLE RELID OBJID
* FROM WWWDATA
* INTO CORRESPONDING FIELDS OF LV_OBJDATA
* WHERE SRTF2 = 0 AND RELID = 'MI'
* AND OBJID = LV_OBJ_NAME.
*
* LV_DESTINATION = C_FULLPATH.
*
* CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
* EXPORTING
* KEY = LV_OBJDATA
* DESTINATION = LV_DESTINATION
* IMPORTING
* RC = LV_SUBRC.
* IF LV_SUBRC = 0.
* P_FILEPATH = C_PATH.
* ENDIF.
* ENDIF.
*
* CALL METHOD OF
* G_WORKBOOK
* 'open'
* EXPORTING
* #1 = C_FULLPATH.
*
* CALL METHOD OF
* G_EXCEL
* 'worksheets' = G_SHEET
* EXPORTING
* #1 = 1.
*
* CALL METHOD OF
* G_SHEET
* 'activate'.
*
* SET PROPERTY OF G_EXCEL 'visible' = 1.
*
* FREE OBJECT G_SHEET.
* FREE OBJECT G_APPLICA.
* FREE OBJECT G_WORKBOOK.
* FREE OBJECT G_EXCEL.
ENDFORM. " FRM_DOWNLOAD_TEMPLATE
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_get_data .
IF r4 EQ 'X'.
*IF R2 EQ 'X'.
SELECT
a
~*,
b
~zthlx,
b
~zuser,
b
~zdate
INTO CORRESPONDING FIELDS OF TABLE @gt_output
FROM ztsd015 AS a
INNER
JOIN ztsd014 AS b ON a~batno EQ b~batno
WHERE a~batno IN @s_batno
AND a~indat IN @s_indat
AND a~zyddh IN @s_zyddh
AND a~lgort IN @s_lgort
* AND KUNNR IN @S_KUNNR
AND shpto IN @s_sndto
AND sldto IN @s_selto
AND matnr IN @s_matnr
AND b~zdate IN @s_zdate
AND b~zuser IN @s_zuser
* AND A~ZSTAT EQ 'A'"初始状态
AND b~zthlx EQ 'A'."实退
*elseIF R6 EQ 'X'."过账货物移动
* SELECT
* A~*,
* B~ZTHLX
* INTO CORRESPONDING FIELDS OF TABLE @GT_OUTPUT
* FROM ZTSD015 AS A
* INNER JOIN ZTSD014 AS B ON A~BATNO EQ B~BATNO
* WHERE A~BATNO IN @S_BATNO
* AND A~INDAT IN @S_INDAT
* AND KUNNR IN @S_KUNNR
* AND SHPTO IN @S_SNDTO
* AND SLDTO IN @S_SELTO
* AND MATNR IN @S_MATNR
* AND A~ZSTAT EQ 'B'"未过账
* AND B~ZTHLX EQ 'A'."实退
ELSEIF r5 EQ 'X'.
SELECT
a
~*,
b
~zthlx,
b
~zuser,
b
~zdate
INTO CORRESPONDING FIELDS OF TABLE @gt_output
FROM ztsd015 AS a
INNER
JOIN ztsd014 AS b ON a~batno EQ b~batno
WHERE a~batno IN @s_batno
AND a~indat IN @s_indat
AND a~zyddh IN @s_zyddh
AND a~lgort IN @s_lgort
* AND KUNNR IN @S_KUNNR
AND shpto IN @s_sndto
AND sldto IN @s_selto
AND matnr IN @s_matnr
AND zthdd IN @s_zthdd
AND zmfck IN @s_zmfck
AND zdn IN @s_zthdn
AND b~zdate IN @s_zdate
AND b~zuser IN @s_zuser
AND b~zthlx EQ 'B'."空退
ENDIF.
ENDFORM. " FRM_GET_DATA
*&---------------------------------------------------------------------*
*& Form FRM_PROCESS_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_process_data .
DATA: lt_output TYPE TABLE OF ty_output.
DATA lv_meins TYPE meins.
DATA:lv_auart TYPE auart.
" DATA:lv_bstkd TYPE vbkd-bstkd_e.
LOOP AT gt_output ASSIGNING <wa_data>.
gt_batno
-batno = <wa_data>-batno.
gt_batno
-batpo = <wa_data>-batpo.
APPEND gt_batno.
<wa_data>
-key = <wa_data>-batno && <wa_data>-batpo.
*客户名称
SELECT SINGLE name1 INTO <wa_data>-name2
FROM kna1
WHERE kunnr EQ <wa_data>-shpto.
*客户名称
SELECT SINGLE name1 INTO <wa_data>-name3
FROM kna1
WHERE kunnr EQ <wa_data>-sldto.
*物料描述
SELECT SINGLE maktx INTO <wa_data>-maktx
FROM makt
WHERE matnr EQ <wa_data>-matnr
AND spras EQ 1.
*库存底单描述
SELECT SINGLE lgobe INTO <wa_data>-lgobe
FROM t001l
WHERE werks EQ '1000'
AND lgort EQ <wa_data>-lgort.
IF <wa_data>-zthlx EQ 'A'.
<wa_data>
-zthms = '实退'.
ELSEIF <wa_data>-zthlx EQ 'B'.
<wa_data>
-zthms = '空退'.
ENDIF.
<wa_data>
-zddjg = <wa_data>-zddje / <wa_data>-menge.
lv_meins
= 'EA'.
<wa_data>
-zdw1 = lv_meins.
PERFORM frm_convert_unit(zsdr019) USING <wa_data>-matnr
<wa_data>
-meins
lv_meins
<wa_data>
-menge
CHANGING <wa_data>-zsl1.
PERFORM frm_get_stat USING <wa_data>-zthdd.
*已审批的不允许再选择
IF <wa_data>-zthdd NE space
OR <wa_data>-zmfck NE space.
* <WA_DATA>-SEL = '-'.
gs_style
-fieldname = 'MENGE'.
gs_style
-style = cl_gui_alv_grid=>mc_style_disabled.
READ TABLE <wa_data>-style TRANSPORTING NO FIELDS WITH KEY fieldname = gs_style-fieldname.
IF sy-subrc EQ 0.
MODIFY <wa_data>-style FROM gs_style INDEX sy-tabix.
ELSE.
INSERT gs_style INTO TABLE <wa_data>-style .
ENDIF.
CLEAR gs_style.
gs_style
-fieldname = 'ZDDJE'.
gs_style
-style = cl_gui_alv_grid=>mc_style_disabled.
READ TABLE <wa_data>-style TRANSPORTING NO FIELDS WITH KEY fieldname = gs_style-fieldname.
IF sy-subrc EQ 0.
MODIFY <wa_data>-style FROM gs_style INDEX sy-tabix.
ELSE.
INSERT gs_style INTO TABLE <wa_data>-style .
ENDIF.
CLEAR gs_style.
gs_style
-fieldname = 'ZYDDH'.
gs_style
-style = cl_gui_alv_grid=>mc_style_disabled.
READ TABLE <wa_data>-style TRANSPORTING NO FIELDS WITH KEY fieldname = gs_style-fieldname.
IF sy-subrc EQ 0.
MODIFY <wa_data>-style FROM gs_style INDEX sy-tabix.
ELSE.
INSERT gs_style INTO TABLE <wa_data>-style .
ENDIF.
CLEAR gs_style.
ENDIF.
SELECT SINGLE mseg~budat_mkpf INTO <wa_data>-budat
FROM vbkd
INNER
JOIN lips ON vbkd~vbeln EQ lips~vgbel AND vbkd~posnr EQ lips~vgpos
INNER
JOIN mseg ON lips~vbeln EQ mseg~vbeln_im AND lips~posnr EQ mseg~vbelp_im
WHERE vbkd~bstkd_e EQ <wa_data>-key.
ENDLOOP.
* IF R6 EQ 'X'.
*过账只显示生成了交货单且未过账的项目
* DELETE GT_OUTPUT WHERE ( ZTHDN IS INITIAL AND ZDN IS INITIAL )
* OR ( WBSTK1 EQ 'C' OR WBSTK2 EQ 'C' ).
* ENDIF.
IF r3 EQ 'X'.
*空退免费发货只显示已退货过账且未生成免费订单的项目
DELETE gt_output WHERE ( zthdd IS INITIAL OR zmfck IS NOT INITIAL )
OR wbstk1 NE 'C'.
ENDIF.
IF r2 EQ 'X'.
DELETE gt_output WHERE zthdd IS NOT INITIAL." AND wbstk1 EQ 'C'.
ENDIF.
SORT gt_output BY indat zyddh matnr.
*将初始内表放入内存
lt_output
= gt_output.
EXPORT lt_output TO MEMORY ID 'GT_OUTPUT'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DEFINE_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_define_layout .
gs_layout
-zebra = 'X'.
gs_layout
-cwidth_opt = 'A'.
gs_layout
-ctab_fname = 'CELLCOLOR'.
gs_layout
-stylefname = 'STYLE'.
* GS_LAYOUT-NO_ROWMARK = 'X'.
gs_variant
-report = sy-repid.
gs_stable
-row = 'X'.
gs_stable
-col = 'X'.
ENDFORM. " FRM_DEFINE_LAYOUT
*&---------------------------------------------------------------------*
*& Form FRM_BUILD_FIELDCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_build_fieldcat .
DEFINE build_fc.
GS_STRUCTURE
-FIELDNAME = &1.
GS_STRUCTURE
-COLTEXT = &2.
GS_STRUCTURE
-JUST = &3.
GS_STRUCTURE
-REF_TABLE = &4.
GS_STRUCTURE
-REF_FIELD = &5.
GS_STRUCTURE
-NO_ZERO = 'X'.
GS_STRUCTURE
-EMPHASIZE = &6.
IF &1 EQ 'SEL'.
GS_STRUCTURE
-CHECKBOX = 'X'.
GS_STRUCTURE
-EDIT = 'X'.
ENDIF.
IF &1 EQ 'ZYDDH' .
GS_STRUCTURE
-NO_ZERO = ' '.
ENDIF.
IF ( &1 EQ 'MENGE' OR &1 EQ 'ZDDJE' OR &1 EQ 'ZYDDH' OR &1 EQ 'BUDAT' ) AND ( R1 EQ 'X' OR R2 EQ 'X' ).
GS_STRUCTURE
-EDIT = 'X'.
ENDIF.
*批次F4
* IF GS_STRUCTURE-FIELDNAME EQ 'CHARG'.
* GS_STRUCTURE-F4AVAILABL = 'X'.
* GS_STRUCTURE-EDIT = 'X'.
* ENDIF.
APPEND GS_STRUCTURE TO GT_STRUCTURE.
CLEAR GS_STRUCTURE.
END-OF-DEFINITION.
IF r6 NE 'X'.
build_fc
:
'SEL' '选择列' '' '' '' ''.
ENDIF.
build_fc
:
'INDAT' '退货日期' '' 'ZTSD015' 'INDAT' '',
'BUDAT' '过账日期' '' 'MKPF' 'BUDAT' '',
'SHPTO' '送达方编号' '' 'KNA1' 'KUNNR' '',
'NAME2' '送达方名称' '' 'KNA1' 'NAME1' '',
'SLDTO' '售达方编号' '' 'KNA1' 'KUNNR' '',
'NAME3' '售达方名称' '' 'KNA1' 'NAME1' '',
'ZYDDH' '退货单号' '' 'ZTSD015' 'ZYDDH' '',
* 'VKBUR' '销售部门' '' '' '' '',
'ZR' '主任' '' 'ZTSD015' 'ZR' '',
'ZYWY' '业务员' '' 'ZTSD015' 'ZYWY' '',
'LGORT' '库存地点编号' '' 'T001L' 'LGORT' '',
'LGOBE' '库存地点' '' 'T001L' 'LGOBE' '',
* 'ZDATE' '导入日期' '' 'ZTSD014' 'ZDATE' '',
'MATNR' '物料编号' '' 'MARA' 'MATNR' '',
'MAKTX' '物料名称' '' 'MAKT' 'MAKTX' '',
* 'CHARG' '批次' '' '' '',
'MENGE' '退货数量' '' 'LIPS' 'LFIMG' '',
'MEINS' '单位' '' 'MARA' 'MEINS' '',
'ZDDJG' '价格' '' 'ZTSD015' 'ZDDJG' '' ,
'ZDDJE' '金额' '' 'ZTSD015' 'ZDDJG' '',
'ZSL1' '基本单位数量' '' 'LIPS' 'LFIMG' '',
'ZDW1' '基本单位' '' 'MARA' 'MEINS' '',
'ZTHMS' '退货类型' '' '' '' '',
'PSTYV' '行项目类型' '' 'LIPS' 'PSTYV' 'C111',
'AUGRU' '退货原因编码' '' 'TVAU' 'AUGRU' '',
'ZTHYY' '退货原因' '' 'ZTSD015' 'ZTHYY' '',
'ZTHDD' '退货订单号' '' 'ZTSD015' 'ZTHDD' '',
'ZTHDN' '退货交货单' '' 'ZTSD015' 'ZDN' 'C111',
'WBSTK1' '退货状态' '' 'VBUK' 'WBSTK' '', "退货货物移动状态
'FKSTK1' '退货开票状态' '' 'VBUK' 'FKSTK' '', "退货开票状态
'ZMFCK' '免费出库单号' '' 'ZTSD015' 'ZMFCK' '',
'ZDN' '免费交货单号' '' 'ZTSD015' 'ZTHDN' 'C111',
* 'ZTEXT' '发货状态' '' '' '' ''.
'WBSTK2' '免费发货状态' '' 'VBUK' 'WBSTK' '', "免费发货货物移动状态
'FKSTK2' '免费开票状态' '' 'VBUK' 'FKSTK' '', "退货开票状态
'ZUSER' '导入人员' '' 'ZTSD014' 'ZUSER' '',
'ZDATE' '导入日期' '' 'ZTSD014' 'ZDATE' ''.
IF r1 EQ 'X'.
build_fc
:
'ZICON1' '指示灯' '' 'ICON' 'ID' '',
'MSSG' '消息' '' '' '' ''.
ENDIF.
gs_f4
-fieldname = 'CHARG'.
gs_f4
-register = 'X'.
gs_f4
-getbefore = 'X'.
gs_f4
-chngeafter = 'X'.
INSERT gs_f4 INTO TABLE gt_f4.
ENDFORM. " FRM_BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
DATA: lv_lines TYPE i.
DESCRIBE TABLE gt_output LINES lv_lines.
SET PF-STATUS '9000' .
SET TITLEBAR 'TITLE01' WITH '条目数：' lv_lines.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
DATA(ok_code) = sy-ucomm.
DATA lv_result TYPE string.
DATA: lt_output TYPE TABLE OF ty_output.
CLEAR lt_output.
CASE ok_code.
WHEN 'SAVE'.
IF r1 NE 'X'.
RETURN.
ENDIF.
PERFORM frm_save_data USING ' ' CHANGING lv_result.
IF lv_result EQ 'S'.
MESSAGE '保存成功！' TYPE 'S'.
*更新内存
lt_output
= gt_output.
EXPORT lt_output TO MEMORY ID 'GT_OUTPUT'.
ELSEIF lv_result EQ 'E'.
MESSAGE '保存失败！' TYPE 'S' DISPLAY LIKE 'E'.
ELSEIF lv_result EQ 'N'.
MESSAGE '数据没有修改！' TYPE 'S'.
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
CALL METHOD gct_alv->refresh_table_display
EXPORTING
is_stable
= gs_stable
i_soft_refresh
= 'X'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module MOD_ALV_DISPLAY OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE mod_alv_display OUTPUT.
IF gctr_alv IS INITIAL.
*创建底层容器
CREATE OBJECT gctr_alv
EXPORTING
repid
= sy-repid
dynnr
= '9000'
side
= cl_gui_docking_container=>dock_at_left "ALV贴屏幕左边，从左边算屏幕宽度，
extension
= 1500 "屏幕宽度
* STYLE = CL_GUI_CONTROL=>WS_CHILD "可选参数，设置ALV是否可用手动拖动大小
EXCEPTIONS
cntl_error
= 1
cntl_system_error
= 2
create_error
= 3
lifetime_error
= 4
lifetime_dynpro_dynpro_link
= 5
OTHERS = 6.
IF sy-subrc <> 0.
MESSAGE s001(00) WITH '屏幕初始化失败'.
LEAVE LIST-PROCESSING.
ENDIF.
*创建ALV控件
CREATE OBJECT gct_alv
EXPORTING
i_parent
= gctr_alv.
IF r6 EQ 'X'.
CALL METHOD gct_alv->set_ready_for_input
EXPORTING
i_ready_for_input
= 0.
ENDIF.
CREATE OBJECT g_event.
*注册自定义工具条
SET HANDLER g_event->toolbar FOR gct_alv.
CALL METHOD gct_alv->register_f4_for_fields
EXPORTING
it_f4
= gt_f4[].
*显示ALV
CALL METHOD gct_alv->set_table_for_first_display
EXPORTING
is_variant
= gs_variant
i_save
= 'A'
i_default
= 'X'
is_layout
= gs_layout
it_toolbar_excluding
= gt_exclude
CHANGING
it_outtab
= gt_output
it_fieldcatalog
= gt_structure[].
*注册F4
SET HANDLER g_event->on_f4 FOR gct_alv.
**注册double click
SET HANDLER g_event->handle_double_click FOR gct_alv.
*注册User command
SET HANDLER g_event->handle_user_command FOR gct_alv.
*注册data_change
* SET HANDLER G_EVENT->HANDLE_DATA_CHANGED FOR GCT_ALV.
* SET HANDLER G_EVENT->HANDLE_CHANGE_FINISH FOR GCT_ALV.
*以下两个方法达到的效果是：光标离开正在编辑的单元格时，就触发handle_data_changed
CALL METHOD gct_alv->register_edit_event
EXPORTING
i_event_id
= cl_gui_alv_grid=>mc_evt_modified.
CALL METHOD gct_alv->register_edit_event
EXPORTING
i_event_id
= cl_gui_alv_grid=>mc_evt_enter.
*
CALL METHOD cl_gui_control=>set_focus "设置焦点在REF_ALVG1上
EXPORTING
control = gct_alv.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form FRM_EXCLUDE_BUTTONS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_exclude_buttons TABLES t_exclude TYPE ui_functions.
CLEAR gt_exclude.
DATA: ls_exclude TYPE ui_func.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_MAXIMUM .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_MINIMUM .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SUBTOT .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SUM .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_AVERAGE .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_SUM .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_SUBTOT .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SORT_ASC.
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SORT_DSC .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ls_exclude
= cl_gui_alv_grid=>mc_fc_find .
APPEND ls_exclude TO gt_exclude.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_FILTER .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ls_exclude
= cl_gui_alv_grid=>mc_fc_print .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_print_prev .
APPEND ls_exclude TO gt_exclude.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_EXPORT .
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ls_exclude
= cl_gui_alv_grid=>mc_fc_graph .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_mb_view .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_detail .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_help .
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_info .
APPEND ls_exclude TO gt_exclude.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_VARIANT.
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_delete_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_cut.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_copy.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_copy_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_insert_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_append_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_paste.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_loc_undo.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_check.
APPEND ls_exclude TO gt_exclude.
ls_exclude
= cl_gui_alv_grid=>mc_fc_refresh.
APPEND ls_exclude TO gt_exclude.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
* LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
* APPEND LS_EXCLUDE TO GT_EXCLUDE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SAVE_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_save_data USING u_str TYPE string CHANGING c_result TYPE string.
DATA:
lt_ztsd014
TYPE TABLE OF ztsd014,
lt_ztsd015
TYPE TABLE OF ztsd015,
lt_ztsd016
TYPE TABLE OF ztsd016,
lt_output
TYPE TABLE OF ty_output,
ls_ztsd014
TYPE ztsd014, "直营平台-销售退货抬头
ls_ztsd015
TYPE ztsd015, "直营平台-销售退货行项目
ls_ztsd016
TYPE ztsd016, "直营平台-销售退货行项目修改日志
ls_output
TYPE ty_output.
DATA: lv_batno TYPE char10, "批导编号
lv_verno
TYPE char3. "版本号
DATA: check_ok TYPE string.
DATA: check_okay TYPE string.
CLEAR c_result.
CLEAR:
lt_ztsd014
,
lt_ztsd015
,
lt_ztsd016
,
lt_output
,
ls_ztsd014
,
ls_ztsd015
,
ls_ztsd016
,
ls_output
.
*检查数据是否有修改
PERFORM frm_check_changes CHANGING check_okay.
*如果是批导数据，则生成批导序号和版本号
IF r1 EQ 'X'.
*检查是否选择了数据
READ TABLE gt_output TRANSPORTING NO FIELDS WITH KEY sel = 'X'.
IF sy-subrc NE 0.
MESSAGE '请至少选择一条数据！' TYPE 'S' DISPLAY LIKE 'E'.
EXIT.
ENDIF.
LOOP AT gt_output INTO gs_output WHERE sel = 'X'.
IF gs_output-zicon1 EQ '@0A@'.
MESSAGE '数据有误，请检查。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
ENDLOOP.
*检查是否当前已经生成了批导流水号
* BREAK-POINT.
IMPORT lv_batno FROM MEMORY ID 'BATNO'.
IF lv_batno IS INITIAL.
*若没有生成则新生成
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr
= '03'
object
= 'ZSD001'
* QUANTITY = '1'
* SUBOBJECT = ' '
* TOYEAR = '0000'
* IGNORE_BUFFER = ' '
IMPORTING
number = lv_batno
* QUANTITY =
* RETURNCODE =
EXCEPTIONS
interval_not_found
= 1
number_range_not_intern
= 2
object_not_found
= 3
quantity_is_0
= 4
quantity_is_not_1
= 5
interval_overflow
= 6
buffer_overflow
= 7
OTHERS = 8.
*将生成的流水号保存到内存
EXPORT lv_batno TO MEMORY ID 'BATNO'.
*新版本号
MOVE 1 TO lv_verno.
*填充抬头表ZTSD014
MOVE lv_batno TO ls_ztsd014-batno.
MOVE sy-uname TO ls_ztsd014-zuser.
MOVE sy-datum TO ls_ztsd014-zdate.
MOVE sy-uzeit TO ls_ztsd014-ztime.
IF r4 EQ 'X'.
MOVE 'A' TO ls_ztsd014-zthlx.
ELSEIF r5 EQ 'X'.
MOVE 'B' TO ls_ztsd014-zthlx.
ENDIF.
MODIFY ztsd014 FROM ls_ztsd014.
*若已生成流水号
ELSEIF lv_batno IS NOT INITIAL
AND check_okay EQ 'F'.
*若没有修改则不进行保存
c_result
= 'N'."表示没有修改
EXIT.
ENDIF.
LOOP AT gt_output INTO gs_output WHERE sel EQ 'X'.
*更新内表
MOVE lv_batno TO gs_output-batno.
IF lv_verno IS NOT INITIAL.
MOVE lv_verno TO gs_output-verno.
ENDIF.
MODIFY gt_output FROM gs_output.
*填充退货订单明细表
MOVE-CORRESPONDING gs_output TO ls_ztsd015.
APPEND ls_ztsd015 TO lt_ztsd015.
CLEAR ls_ztsd015.
*填充退货订单日志表
MOVE-CORRESPONDING gs_output TO ls_ztsd016.
* MOVE LV_BATNO TO LS_ZTSD003-BATNO.
* MOVE LV_VERNO TO LS_ZTSD003-VERNO.
MOVE sy-uname TO ls_ztsd016-zuser.
MOVE sy-datum TO ls_ztsd016-zdate.
MOVE sy-uzeit TO ls_ztsd016-ztime.
APPEND ls_ztsd016 TO lt_ztsd016.
CLEAR ls_ztsd016.
ENDLOOP.
ELSE."IF." R2 EQ 'X' ."如果是显示已导入数据，则检查是否有修改数据
c_result
= 'N'.
* LT_OUTPUT = GT_OUTPUT.
SORT gt_output BY batno."按批导编号排序
* SORT LT_OUTPUT BY BATNO."按批导编号排序
LOOP AT gt_output ASSIGNING <wa_data> WHERE sel EQ 'X'.
ls_output
= <wa_data>.
AT NEW batno.
lv_verno
= ls_output-verno + 1."产生下一个版本,否则C_RESULT EQ SPACE
ls_output
-verno = lv_verno.
*填充抬头表ZTSD014
* MOVE LS_OUTPUT-BATNO TO LS_ZTSD014-BATNO.
* MOVE LS_OUTPUT-ZTHLX TO LS_ZTSD014-ZTHLX.
* MOVE SY-UNAME TO LS_ZTSD014-ZUSER.
* MOVE SY-DATUM TO LS_ZTSD014-ZDATE.
* MOVE SY-UZEIT TO LS_ZTSD014-ZTIME.
*
* MODIFY ZTSD014 FROM LS_ZTSD014.
*按批导编号更新版本号
MODIFY gt_output FROM ls_output TRANSPORTING verno
WHERE batno EQ ls_output-batno.
* CLEAR LS_OUTPUT.
ENDAT.
*填充退货订单日志表
MOVE-CORRESPONDING ls_output TO ls_ztsd016.
* MOVE LS_OUTPUT-BATNO TO LS_ZTSD003-BATNO.
* MOVE LS_OUTPUT-VERNO TO LS_ZTSD003-VERNO.
* MOVE LS_OUTPUT-ZMFCK TO LS_ZTSD016-ZMFCK.
* MOVE LS_OUTPUT-ZTHDD TO LS_ZTSD016-ZTHDD.
MOVE sy-uname TO ls_ztsd016-zuser.
MOVE sy-datum TO ls_ztsd016-zdate.
MOVE sy-uzeit TO ls_ztsd016-ztime.
APPEND ls_ztsd016 TO lt_ztsd016.
CLEAR ls_ztsd016.
*填充退货订单明细表
* MOVE-CORRESPONDING LS_OUTPUT TO LS_ZTSD015.
CLEAR ls_output.
ENDLOOP.
ENDIF.
DELETE gt_output WHERE sel EQ 'X'.
UNASSIGN <wa_data>
.
*更新数据库表
IF lt_ztsd014 IS NOT INITIAL.
MODIFY ztsd014 FROM TABLE lt_ztsd014.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
c_result
= 'S'.
ELSE.
ROLLBACK WORK.
c_result
= 'E'.
ENDIF.
ENDIF.
IF lt_ztsd015 IS NOT INITIAL.
MODIFY ztsd015 FROM TABLE lt_ztsd015.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
c_result
= 'S'.
ELSE.
ROLLBACK WORK.
c_result
= 'E'.
ENDIF.
ENDIF.
IF lt_ztsd016 IS NOT INITIAL.
MODIFY ztsd016 FROM TABLE lt_ztsd016.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
c_result
= 'S'.
ELSE.
ROLLBACK WORK.
c_result
= 'E'.
ENDIF.
ENDIF.
lt_output
= gt_output.
EXPORT lt_output TO MEMORY ID 'GT_OUTPUT'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CONFIRM_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LV_RESULT text
*----------------------------------------------------------------------*
FORM frm_confirm_data CHANGING c_result.
DATA:
* LT_OUTPUT TYPE TABLE OF TY_OUTPUT,
ls_output
TYPE ty_output.
DATA: lv_csyd TYPE char10, "超市验单
lv_so
TYPE vbeln. "SO
DATA: lv_result TYPE string.
CLEAR:c_result,lv_csyd,ls_output.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage
= 0
text = '正在操作销售订单... '.
*整理创建SO的数据
PERFORM frm_prepare_so_data CHANGING lv_result.
*创建SO
IF lv_result EQ 'E'.
c_result
= 'E'.
EXIT.
ENDIF.
PERFORM frm_create_so CHANGING lv_result.
CHECK lv_result EQ 'S'.
MOVE 'S' TO c_result.
LOOP AT gt_sodata INTO gs_sodata.
READ TABLE gt_output ASSIGNING <wa_data>
WITH KEY batno = gs_sodata-batno batpo = gs_sodata-batpo.
IF sy-subrc EQ 0.
* IF R4 EQ 'X'.
IF r2 EQ 'X'.
MOVE: gs_sodata-so TO <wa_data>-zthdd,
gs_sodata
-zdn TO <wa_data>-zthdn
.
ENDIF.
* ELSEIF R5 EQ 'X'.
IF r3 EQ 'X'.
MOVE: gs_sodata-so TO <wa_data>-zmfck,
gs_sodata
-zdn TO <wa_data>-zdn
.
ENDIF.
ENDIF.
ENDLOOP.
PERFORM frm_show_message.
UNASSIGN <wa_data>
.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_PREPARE_SO_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_prepare_so_data CHANGING c_result.
DATA:
ls_a515
TYPE a515,
ls_ztsd007
TYPE ztsd007.
DATA: lv_result TYPE string.
DATA lv_msg TYPE string.
CLEAR gt_sodata.
LOOP AT gt_output INTO gs_output WHERE sel EQ 'X' ."AND SO IS INITIAL.
IF r2 EQ 'X' AND gs_output-zthdd NE space.
CONTINUE.
ENDIF.
IF r3 EQ 'X' AND gs_output-zmfck NE space.
CONTINUE.
ENDIF.
MOVE-CORRESPONDING gs_output TO gs_sodata.
gs_sodata
-zstring = gs_sodata-sldto && gs_sodata-shpto && gs_sodata-zyddh && gs_sodata-budat.
MOVE gs_output-menge TO gs_sodata-kpein.
MOVE gs_output-meins TO gs_sodata-kmein.
MOVE '1000' TO gs_sodata-werks.
PERFORM frm_check_partner USING gs_sodata-sldto CHANGING lv_result.
IF lv_result EQ 'E'.
c_result
= 'E'.
RETURN.
ENDIF.
*检查销售组织对应的成本中心是否存在
SELECT SINGLE * INTO ls_ztsd007
FROM ztsd007
WHERE vkbur EQ gs_sodata-vkbur
AND vkgrp EQ gs_sodata-vkgrp.
IF sy-subrc NE 0.
c_result
= 'E'.
* LV_MSG = '售达方' && GS_SODATA-SLDTO && '的销售组' && GS_SODATA-VKBUR && '和销售部门' && GS_SODATA-VKGRP && '对应的成本中心不存在。'.
lv_msg
= '销售组' && gs_sodata-vkbur && '和销售部门' && gs_sodata-vkgrp && '对应的成本中心不存在。'.
MESSAGE s001 WITH lv_msg DISPLAY LIKE 'E'.
* MESSAGE '客户的销售组和销售办部门对应的成本中心不存在。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
APPEND gs_sodata TO gt_sodata.
CLEAR: gs_sodata,gs_output.
c_result
= 'S'.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_SO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LV_RESULT text
*----------------------------------------------------------------------*
FORM frm_create_so CHANGING c_result.
DATA:lt_sodata TYPE TABLE OF ty_sodata,
ls_sodata
TYPE ty_sodata.
DATA:lv_posnr(6) TYPE n,
lv_string
TYPE string.
DATA: lv_so TYPE vbeln,
* LV_SO1 TYPE VBELN,
lv_dn
TYPE vbeln_vl,
* LV_DN1 TYPE VBELN_VL,
l_update
,
l_kschl
TYPE kschl, "条件类型
l_st_no
TYPE stunr.
DATA: ls_output TYPE ty_output.
DATA:
ls_header
TYPE bapisdhd1,
ls_headerx
TYPE bapisdhd1x,
testrun
TYPE bapiflag-bapiflag VALUE 'X',
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2,
lt_item
TYPE TABLE OF bapisditm,
ls_item
TYPE bapisditm,
lt_itemx
TYPE TABLE OF bapisditmx,
ls_itemx
TYPE bapisditmx,
lt_pnr
TYPE TABLE OF bapiparnr,
ls_pnr
TYPE bapiparnr,
lt_sch
TYPE TABLE OF bapischdl,
ls_sch
TYPE bapischdl,
lt_schx
TYPE TABLE OF bapischdlx,
ls_schx
TYPE bapischdlx,
lt_cond
TYPE TABLE OF bapicond,
ls_cond
TYPE bapicond,
lt_condx
TYPE TABLE OF bapicondx,
ls_condx
TYPE bapicondx.
DATA: lt_so_item TYPE TABLE OF bapidlvreftosalesorder,
ls_so_item
TYPE bapidlvreftosalesorder.
* DATA: LV_POSNR TYPE POSNR.
DATA: status_buff_init TYPE c VALUE 'X',
call_activity
(4), " Aktiver Aufrufer bei Call
g_no_dequeue_sd_sales
TYPE c.
* DATA: LV_POSNR TYPE POSNR.
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
SORT gt_sodata BY zstring.
* PERFORM FRM_CHECK_SODATA CHANGING C_RESULT.
LOOP AT gt_sodata ASSIGNING <wa_sodata>.
*做标记
<wa_sodata>
-so = 'X'.
<wa_sodata>
-zdn = 'X'.
* <WA_SODATA>-SO1 = 'X'.
* <WA_SODATA>-ZDN1 = 'X'.
*
ls_sodata
= <wa_sodata>.
ADD 10 TO lv_posnr.
ls_item
-itm_number = lv_posnr.
ls_item
-material = <wa_sodata>-matnr.
ls_item
-target_qty = <wa_sodata>-menge.
ls_item
-plant = <wa_sodata>-werks.
ls_item
-store_loc = <wa_sodata>-lgort.
ls_item
-target_qu = <wa_sodata>-meins.
ls_item
-sales_unit = <wa_sodata>-meins.
ls_item
-purch_no_s = <wa_sodata>-key.
* IF <wa_sodata>-key IS NOT INITIAL.
*
* IF r3 EQ 'X'.
* SELECT SINGLE vbeln INTO @DATA(lv_vbelnso)
* FROM vbkd
* WHERE bstkd_e EQ @<wa_sodata>-key AND bstkd EQ 'WFZYTH'.
* IF sy-subrc EQ 0.
* MESSAGE '已有免费订单:' && lv_vbelnso && '生成！' TYPE 'S' DISPLAY LIKE 'E'.
* EXIT.
* ENDIF.
* ENDIF.
*
** IF r2 EQ 'X'.
** SELECT SINGLE vbeln INTO @DATA(lv_vbelnso1)
** FROM vbkd
** WHERE bstkd_e EQ @<wa_sodata>-key AND bstkd NE 'WFZYTH'.
** IF sy-subrc EQ 0.
** MESSAGE '已有退货订单:' && lv_vbelnso1 && '生成！' TYPE 'S' DISPLAY LIKE 'E'.
** EXIT.
** ENDIF.
** ENDIF.
*
* ENDIF.
IF r5 EQ 'X' OR r4 EQ 'X'.
*检查物料是否启用了批次管理
SELECT SINGLE xchpf INTO @DATA(xchpf)
FROM mara
WHERE matnr EQ @ls_item-material.
IF xchpf EQ 'X'.
ls_item
-batch = gv_charg.
IF R4 EQ 'X'.
ls_item
-batch = gv_charg1.
ENDIF.
ls_itemx
-batch = 'X'.
ENDIF.
ENDIF.
* LS_ITEM-SHIP_POINT = <WA_SODATA>-LGORT."装运点与库存地点相同
IF r3 EQ 'X'."
ls_item
-item_categ = 'ZTN1'.
ls_itemx
-item_categ = 'X'.
ENDIF.
IF r2 EQ 'X'."实退需指定行项目类型
ls_item
-item_categ = <wa_sodata>-pstyv.
ls_itemx
-item_categ = 'X'.
ENDIF.
APPEND ls_item TO lt_item.
CLEAR ls_item.
ls_itemx
-itm_number = lv_posnr.
ls_itemx
-material = 'X'.
ls_itemx
-target_qty = 'X'.
ls_itemx
-plant = 'X'.
ls_itemx
-store_loc = 'X'.
ls_itemx
-target_qu = 'X'.
ls_itemx
-sales_unit = 'X'.
ls_itemx
-purch_no_s = 'X'.
* LS_ITEMX-SHIP_POINT = 'X'.
APPEND ls_itemx TO lt_itemx.
CLEAR ls_itemx.
ls_pnr
-partn_role = 'AG'." 'SP'."售达方
ls_pnr
-partn_numb = <wa_sodata>-sldto.
APPEND ls_pnr TO lt_pnr.
CLEAR ls_pnr.
ls_pnr
-partn_role = 'WE'." 'SH'."送达方
ls_pnr
-partn_numb = <wa_sodata>-shpto.
APPEND ls_pnr TO lt_pnr.
CLEAR ls_pnr.
ls_sch
-itm_number = lv_posnr.
ls_sch
-sched_line = 1.
ls_sch
-req_qty = <wa_sodata>-menge.
APPEND ls_sch TO lt_sch.
CLEAR ls_sch.
ls_schx
-itm_number = lv_posnr.
ls_schx
-sched_line = 1.
ls_schx
-req_qty = 'X'.
APPEND ls_schx TO lt_schx.
CLEAR ls_schx.
*费用类型退货不需要检查手工条件
IF <wa_sodata>-pstyv NE 'REN4'.
PERFORM get_kschl(zsdr021)
USING 'ZRE1'
<wa_sodata>
-vkorg
<wa_sodata>
-vtweg
<wa_sodata>
-spart
<wa_sodata>
-sldto
CHANGING l_kschl l_update l_st_no.
ls_cond
-itm_number = lv_posnr.
ls_cond
-cond_st_no = l_st_no.
ls_cond
-cond_count = 1.
ls_cond
-cond_type = l_kschl.
ls_cond
-cond_updat = l_update.
* LS_COND-COND_VALUE = <WA_SODATA>-ZDDJG.
ls_cond
-cond_value = <wa_sodata>-zddje.
ls_cond
-cond_p_unt = <wa_sodata>-kpein.
ls_cond
-cond_unit = <wa_sodata>-kmein.
*LS_COND-CONDCHAMAN = 'X'.
ls_cond
-currency = 'CNY'.
APPEND ls_cond TO lt_cond.
CLEAR ls_cond.
ls_condx
-itm_number = lv_posnr.
ls_condx
-cond_st_no = l_st_no.
ls_condx
-cond_count = 1.
ls_condx
-cond_type = l_kschl.
ls_condx
-updateflag = l_update.
ls_condx
-cond_value = 'X'.
ls_condx
-cond_p_unt = 'X'.
ls_condx
-cond_unit = 'X'.
APPEND ls_condx TO lt_condx.
CLEAR ls_condx.
ENDIF.
UPDATE ztsd015 SET zthdd = 'X'
WHERE batno EQ <wa_sodata>-batno
AND batpo EQ <wa_sodata>-batpo.
AT END OF zstring.
CLEAR lv_posnr.
ls_header
-sales_org = <wa_sodata>-vkorg.
ls_header
-distr_chan = <wa_sodata>-vtweg.
ls_header
-division = <wa_sodata>-spart.
ls_header
-sales_grp = <wa_sodata>-vkgrp.
ls_header
-sales_off = <wa_sodata>-vkbur.
ls_header
-ord_reason = <wa_sodata>-augru."退货原因
ls_header
-purch_no_s = <wa_sodata>-zyddh.
ls_header
-purch_no_c = 'WFZYTH'.
*实退
*SO
IF r2 EQ 'X'.
ls_header
-doc_type = 'ZRE1'."不关联退货订单
PERFORM frm_create_returnso
TABLES lt_item lt_itemx lt_pnr lt_sch lt_schx lt_cond lt_condx
USING ls_header
CHANGING lv_so c_result.
*创建DN
IF c_result EQ 'S'.
"WAIT UP TO 1 SECONDS.
DO 1000 TIMES.
SELECT SINGLE vbeln INTO @DATA(kk)
FROM vbak
WHERE vbeln EQ @lv_so.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDDO.
"IF sy-subrc EQ 0.
"PERFORM frm_create_dn USING lv_so CHANGING lv_dn c_result.
"ENDIF.
PERFORM frm_create_dn(zsdr006)
USING lv_so CHANGING lv_dn c_result.
ENDIF.
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
WAIT UP TO 1 SECONDS.
IF lv_so IS NOT INITIAL.
IF lv_dn IS INITIAL.
DO 1000 TIMES.
SELECT SINGLE vbeln INTO lv_dn FROM vbfa
WHERE ( vbelv EQ lv_so
AND vbtyp_n EQ 'J' )
OR ( vbelv EQ lv_so
AND vbtyp_n EQ 'T' ).
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDDO.
ENDIF.
PERFORM frm_modify_sodata USING lv_so lv_dn
CHANGING c_result.
ENDIF.
ENDIF.
*空退后继免费
IF r3 EQ 'X'.
ls_header
-doc_type = 'ZSD9'."后继免费订单
*SO
PERFORM frm_create_returnso1
TABLES lt_item lt_itemx lt_pnr lt_sch lt_schx lt_cond lt_condx
USING ls_header
CHANGING lv_so c_result.
*DN
IF c_result EQ 'S'.
DO 1000 TIMES.
SELECT SINGLE vbeln INTO @DATA(kkk)
FROM vbak
WHERE vbeln EQ @lv_so.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDDO.
"IF sy-subrc EQ 0.
"PERFORM frm_create_dn USING lv_so CHANGING lv_dn c_result.
"ENDIF.
PERFORM frm_create_dn(zsdr006)
USING lv_so CHANGING lv_dn c_result.
ENDIF.
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
WAIT UP TO 1 SECONDS.
IF lv_so IS NOT INITIAL.
IF lv_dn IS INITIAL.
DO 1000 TIMES.
SELECT SINGLE vbeln INTO lv_dn FROM vbfa
WHERE ( vbelv EQ lv_so
AND vbtyp_n EQ 'J' )
OR ( vbelv EQ lv_so
AND vbtyp_n EQ 'T' ).
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDDO.
ENDIF.
PERFORM frm_modify_sodata USING lv_so lv_dn
CHANGING c_result.
ENDIF.
ENDIF.
CLEAR: lt_return,
lt_item
,
lt_itemx
,
lt_pnr
,
lt_sch
,
lt_schx
,
lt_cond
,
lt_condx
,
ls_header
.
ENDAT.
ENDLOOP.
UNASSIGN <wa_sodata>
.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_CHANGES
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_CHECK_OKAY text
*----------------------------------------------------------------------*
FORM frm_check_changes CHANGING c_ok TYPE string.
DATA: lt_output TYPE TABLE OF ty_output,
lt_output1
TYPE TABLE OF ty_output.
DATA: ls_output TYPE ty_output,
ls_output1
TYPE ty_output.
MOVE 'F' TO c_ok.
CLEAR: lt_output,lt_output1.
*从内存读取最初的内表
IMPORT lt_output FROM MEMORY ID 'GT_OUTPUT'.
*将当前全局内表赋予本地内表
lt_output1
= gt_output.
*排序
* SORT: LT_OUTPUT1 BY INDAT KUNNR ZCSDD.
SORT: lt_output BY batno batpo.
*检查勾选项是否有修改
LOOP AT lt_output1 INTO ls_output1 WHERE sel EQ 'X'.
READ TABLE lt_output INTO ls_output
WITH KEY batno = ls_output1-batno
batpo
= ls_output1-batpo BINARY SEARCH.
IF sy-subrc EQ 0.
*比较当前数据与初始数据是否有区别
CLEAR: ls_output1-sel,
ls_output
-sel.
IF ls_output1 NE ls_output.
MOVE 'T' TO c_ok."有区别
EXIT."只要有一个数据有区别就要记录
ELSE.
MOVE 'F' TO c_ok."没有区别
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_POST_GOODS_ISSUE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_post_dn USING u_dn TYPE vbeln_vl.
DATA: lt_sodata TYPE TABLE OF ty_sodata,
ls_sodata
TYPE ty_sodata.
DATA: lv_result TYPE c,
lv_vbeln
TYPE vbeln_vl,
lv_posnr
TYPE posnr.
DATA: lv_tstmp TYPE tzntstmps.
DATA:
lv_vbkok
TYPE vbkok,
lv_wabuc
TYPE wabuc VALUE 'X',
lt_vbpok
TYPE TABLE OF vbpok,
ls_vbpok
TYPE vbpok,
lt_prott
TYPE TABLE OF prott WITH HEADER LINE,
ls_prott
TYPE prott,
lt_return
TYPE TABLE OF bapiret2,
wa_return
TYPE bapiret2
.
* LT_SODATA = GT_SODATA.
*
* SORT LT_SODATA BY ZDN.
*
* DELETE ADJACENT DUPLICATES FROM LT_SODATA COMPARING ZDN.
*
* LOOP AT LT_SODATA INTO LS_SODATA.
* LV_VBELN = LS_SODATA-ZDN.
lv_vbeln
= u_dn.
UNPACK lv_vbeln TO lv_vbeln.
lv_posnr
= 10.
lv_vbkok
-vbeln_vl = lv_vbeln .
* LV_VBKOK-KOMUE = 'X' .
lv_vbkok
-wabuc = lv_wabuc .
lv_vbkok
-wadat_ist = <wa_sodata>-budat .
lv_vbkok
-bldat = <wa_sodata>-budat .
WAIT UP TO 1 SECONDS.
CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
EXPORTING
vbkok_wa
= lv_vbkok
* SYNCHRON = ' '
* NO_MESSAGES_UPDATE = ' '
* NICHT_SPERREN = ' '
* AUFRUFER_T = ' '
* IF_ERROR_MESSAGES_SEND = 'X'
TABLES
vbpok_tab
= lt_vbpok[]
prot
= lt_prott[].
READ TABLE lt_prott TRANSPORTING NO FIELDS WITH KEY msgty = 'E'.
IF sy-subrc EQ 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
LOOP AT lt_prott WHERE msgty EQ 'E'.
CLEAR wa_return.
wa_return
-type = 'E'.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid
= lt_prott-msgid
msgnr
= lt_prott-msgno
msgv1
= lt_prott-msgv1
msgv2
= lt_prott-msgv2
msgv3
= lt_prott-msgv3
msgv4
= lt_prott-msgv4
IMPORTING
message_text_output
= wa_return-message.
APPEND wa_return TO gdt_return.
CLEAR lt_prott.
ENDLOOP.
RETURN.
ENDIF.
CLEAR wa_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = wa_return.
IF wa_return-type EQ 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
APPEND wa_return TO lt_return.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
* C_RESULT = 'E'.
EXIT.
ELSE.
* C_RESULT = 'S'.
* RETURN.
ENDIF.
* ENDLOOP.
CLEAR: lv_vbkok,lt_vbpok,lt_prott.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form bdc_dynpro
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PROGRAM text
* -->DYNPRO text
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
CLEAR gds_bdcdata.
gds_bdcdata
-program = program.
gds_bdcdata
-dynpro = dynpro.
gds_bdcdata
-dynbegin = 'X'.
APPEND gds_bdcdata TO gdt_bdcdata.
ENDFORM. "bdc_dynpro
*&---------------------------------------------------------------------*
*& Form bdc_field
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->FNAM text
* -->FVAL text
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
CLEAR gds_bdcdata.
gds_bdcdata
-fnam = fnam.
gds_bdcdata
-fval = fval.
CONDENSE gds_bdcdata-fval NO-GAPS.
APPEND gds_bdcdata TO gdt_bdcdata.
ENDFORM. "bdc_field
*&---------------------------------------------------------------------*
*& Form FRM_OUT_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_out_message .
LOOP AT gdt_return INTO gds_return.
WRITE:gds_return-type, gds_return-message.
ENDLOOP.
ENDFORM. " FRM_OUT_MESSAGE
*&---------------------------------------------------------------------*
*& Form GET_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GDS_MESSTAB text
* <--P_G_MESSAGE text
*----------------------------------------------------------------------*
FORM get_message USING u_message TYPE bdcmsgcoll
CHANGING cg_message TYPE balmsgtxtp.
CLEAR cg_message.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid
= u_message-msgid
msgnr
= u_message-msgnr
msgv1
= u_message-msgv1
msgv2
= u_message-msgv2
msgv3
= u_message-msgv3
msgv4
= u_message-msgv4
IMPORTING
message_text_output
= cg_message.
ENDFORM. " GET_MESSAGE
*&---------------------------------------------------------------------*
*& Form FRM_CALL_TRANSACTION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
*FORM FRM_CALL_TRANSACTION CHANGING C_SO TYPE VBELN
* C_DN TYPE VBELN_VL.
** DATA L_MODE TYPE C VALUE 'N'.
** BREAK B012.
* CALL TRANSACTION 'VA01' USING GDT_BDCDATA MODE P_MODE MESSAGES INTO GDT_MESSTAB.
*
* LOOP AT GDT_MESSTAB INTO GDS_MESSTAB.
**提取SO和DN号
* IF GDS_MESSTAB-MSGTYP EQ 'S'.
* MOVE GDS_MESSTAB-MSGV3+0(10) TO C_DN.
* MOVE GDS_MESSTAB-MSGV2+0(10) TO C_SO.
*
* CONDENSE C_DN NO-GAPS.
* CONDENSE C_SO NO-GAPS.
* ENDIF.
* PERFORM GET_MESSAGE USING GDS_MESSTAB
* CHANGING G_MESSAGE .
* GDS_RETURN-TYPE = GDS_MESSTAB-MSGTYP.
** CONCATENATE GS_OUTPUT-IDNRK GS_OUTPUT-POSNR G_MESSAGE INTO GDS_RETURN-MESSAGE SEPARATED BY ''.
* MOVE G_MESSAGE TO GDS_RETURN-MESSAGE.
* APPEND GDS_RETURN TO GDT_RETURN.
* CLEAR GDS_RETURN.
* CLEAR G_MESSAGE.
* ENDLOOP.
* SORT GDT_RETURN BY MESSAGE.
* DELETE ADJACENT DUPLICATES FROM GDT_RETURN COMPARING MESSAGE.
*
*ENDFORM. " FRM_CALL_TRANSACTION
*&---------------------------------------------------------------------*
*& Form FRM_CALL_TRANSACTION1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
*FORM FRM_CALL_TRANSACTION1 CHANGING C_RESULT TYPE C .
* CLEAR:GDT_MESSTAB.
*
* CALL TRANSACTION 'VL02N' USING GDT_BDCDATA MODE P_MODE MESSAGES INTO GDT_MESSTAB.
* LOOP AT GDT_MESSTAB INTO GDS_MESSTAB.
* PERFORM GET_MESSAGE USING GDS_MESSTAB
* CHANGING G_MESSAGE .
* GDS_RETURN-TYPE = GDS_MESSTAB-MSGTYP.
* IF GDS_MESSTAB-MSGTYP EQ 'E'.
* C_RESULT = 'E'.
* ELSEIF GDS_MESSTAB-MSGTYP EQ 'S'.
* C_RESULT = 'S'.
* ENDIF.
*
** CONCATENATE GS_OUTPUT-IDNRK GS_OUTPUT-POSNR G_MESSAGE INTO GDS_RETURN-MESSAGE SEPARATED BY ''.
* MOVE G_MESSAGE TO GDS_RETURN-MESSAGE.
* APPEND GDS_RETURN TO GDT_RETURN.
* CLEAR GDS_RETURN.
* CLEAR G_MESSAGE.
*
* ENDLOOP.
* SORT GDT_RETURN BY MESSAGE.
* DELETE ADJACENT DUPLICATES FROM GDT_RETURN COMPARING MESSAGE.
*
*ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CALL_TRANSACTION2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
*FORM FRM_CALL_TRANSACTION2 .
* CLEAR: GDT_MESSTAB.
** BREAK B012.
* WAIT UP TO 1 SECONDS.
*
* CALL TRANSACTION 'VF01' USING GDT_BDCDATA MODE P_MODE MESSAGES INTO GDT_MESSTAB.
*
* LOOP AT GDT_MESSTAB INTO GDS_MESSTAB.
* PERFORM GET_MESSAGE USING GDS_MESSTAB
* CHANGING G_MESSAGE .
* GDS_RETURN-TYPE = GDS_MESSTAB-MSGTYP.
** CONCATENATE GS_OUTPUT-IDNRK GS_OUTPUT-POSNR G_MESSAGE INTO GDS_RETURN-MESSAGE SEPARATED BY ''.
* MOVE G_MESSAGE TO GDS_RETURN-MESSAGE.
* APPEND GDS_RETURN TO GDT_RETURN.
* CLEAR GDS_RETURN.
* CLEAR G_MESSAGE.
* ENDLOOP.
* SORT GDT_RETURN BY MESSAGE.
* DELETE ADJACENT DUPLICATES FROM GDT_RETURN COMPARING MESSAGE.
*
*
*ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SHOW_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_show_message .
DATA lv_title TYPE string.
DATA:lt_return TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2,
ls_layout
TYPE slis_layout_alv.
DATA: lt_fieldcat TYPE slis_t_fieldcat_alv.
CLEAR: lt_return,ls_layout.
CLEAR:lt_fieldcat.
ls_layout
-zebra = 'X'.
ls_layout
-colwidth_optimize = 'A'.
PERFORM frm_set_catalog CHANGING lt_fieldcat.
IMPORT lt_return FROM MEMORY ID 'LT_RETURN'.
APPEND LINES OF gdt_return TO lt_return.
CHECK lt_return IS NOT INITIAL.
lv_title
= '退货操作日志'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
is_layout
= ls_layout
it_fieldcat
= lt_fieldcat
i_screen_start_column
= 10
i_screen_start_line
= 1
i_screen_end_column
= 120
i_screen_end_line
= 25
TABLES
t_outtab
= lt_return
EXCEPTIONS
program_error
= 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
FREE MEMORY ID 'LT_RETURN'.
REFRESH gdt_return.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SET_CATALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LT_FIELDCAT text
*----------------------------------------------------------------------*
FORM frm_set_catalog CHANGING c_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
DEFINE add_fieldcat.
LS_FIELDCAT
-FIELDNAME = &1.
LS_FIELDCAT
-SELTEXT_L = &2.
APPEND LS_FIELDCAT TO C_FIELDCAT.
CLEAR LS_FIELDCAT.
END-OF-DEFINITION.
add_fieldcat
:
'TYPE' '消息类型',
'NUMBER' '消息编号',
'MESSAGE' '消息文本',
'MESSAGE_V1' '消息变量',
'MESSAGE_V2' '消息变量',
'MESSAGE_V3' '消息变量',
'MESSAGE_V4' '消息变量',
'PARAMETER' '参数名称',
'ROW' '参数中的行',
'FIELD' '参数中的字段'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_POST_UPLOAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_post_upload .
DATA: lt_output TYPE TABLE OF ty_output.
DATA: lv_meins TYPE mara-meins.
DATA: l_line1 TYPE i,
l_line2
TYPE i.
DATA:
lv_string1
TYPE string,
s1
TYPE string,
s2
TYPE string.
DATA:
lv_zthlx_con
TYPE string.
CLEAR: lt_output,lt_output[].
APPEND LINES OF gt_output TO lt_output.
SORT lt_output BY zyddh sldto shpto matnr.
DELETE ADJACENT DUPLICATES FROM lt_output COMPARING zyddh sldto shpto matnr.
l_line1
= lines( gt_output[] ).
l_line2
= lines( lt_output[] ).
IF l_line1 NE l_line2.
CLEAR gs_output.
gs_output
-zicon1 = '@0A@'.
CONCATENATE gs_output-mssg '数据存在重复' INTO gs_output-mssg.
MODIFY gt_output FROM gs_output TRANSPORTING zicon1 mssg WHERE matnr IS NOT INITIAL.
ENDIF.
CLEAR: lt_output,lt_output[].
IF gt_output IS NOT INITIAL.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE gt_knvp
FROM knvp
FOR ALL ENTRIES IN gt_output
WHERE kunnr EQ gt_output-sldto
AND parvw EQ 'WE'.
ENDIF.
SORT gt_knvp BY kunnr kunn2.
LOOP AT gt_output ASSIGNING <wa_data> WHERE zicon1 NE '@0A@'."红灯.
*检查单位是否为空
IF <wa_data>-meins IS INITIAL.
PERFORM set_callsytle USING 12 gs_load '单位不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
*判断数量是否含小数
IF <wa_data>-menge IS NOT INITIAL.
lv_string1
= <wa_data>-menge.
SPLIT lv_string1 AT '.' INTO s1 s2.
IF s2 NE 0.
PERFORM set_callsytle USING 17 gs_load '数量不能有小数' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
ENDIF.
* TRANSLATE <WA_DATA>-ZYDDH TO UPPER CASE.
IF r4 EQ 'X'."实退
lv_zthlx_con
= 'B~ZTHLX EQ ''A'''.
* <WA_DATA>-ZTHLX = 'A'.
* <WA_DATA>-ZTHMS = '实退'.
ELSEIF r5 EQ 'X'.
lv_zthlx_con
= 'B~ZTHLX EQ ''B'''.
* <WA_DATA>-ZTHLX = 'B'."空退
* <WA_DATA>-ZTHMS = '空退'.
ENDIF.
*****检查是否存在重复 的已导入
SELECT SINGLE zyddh INTO <wa_data>-zyddh
FROM ztsd015 AS a
INNER
JOIN ztsd014 AS b
ON a~batno EQ b~batno
WHERE zyddh = <wa_data>-zyddh
AND (lv_zthlx_con)
AND sldto = <wa_data>-sldto
AND matnr = <wa_data>-matnr.
IF sy-subrc EQ 0.
<wa_data>
-zicon1 = '@0A@'.
<wa_data>
-mssg = '系统已存在该条目'.
CONTINUE.
ENDIF.
IF <wa_data>-pstyv IS INITIAL.
PERFORM set_callsytle USING 9 gs_load '行项目类型不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-zr IS INITIAL.
PERFORM set_callsytle USING 5 gs_load '主任不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-zywy IS INITIAL.
PERFORM set_callsytle USING 5 gs_load '业务员不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-lgort IS INITIAL.
PERFORM set_callsytle USING 8 gs_load '库存地点不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-augru IS INITIAL.
PERFORM set_callsytle USING 7 gs_load '退货原因不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
IF <wa_data>-zyddh IS INITIAL.
PERFORM set_callsytle USING 6 gs_load '退单号不能为空' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
ENDIF.
*****
* SELECT SINGLE meins INTO lv_meins
* FROM mara
* WHERE matnr EQ <wa_data>-matnr.
**数量单位转换
*
* TRANSLATE <wa_data>-meins TO UPPER CASE.
*
* CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
* EXPORTING
* i_matnr = <wa_data>-matnr
* i_in_me = <wa_data>-meins
* i_out_me = lv_meins
* i_menge = <wa_data>-menge
* IMPORTING
* e_menge = <wa_data>-menge
* EXCEPTIONS
* error_in_application = 1
* error = 2
* OTHERS = 3.
* IF sy-subrc <> 0.
** Implement suitable error handling here
* ENDIF.
*
* MOVE lv_meins TO <wa_data>-meins.
* MODIFY GT_OUTPUT FROM GS_OUTPUT TRANSPORTING MENGE MEINS.
* CLEAR GS_OUTPUT.
* IF <WA_DATA>-SHPTO IS INITIAL.
* MOVE <WA_DATA>-KUNNR TO <WA_DATA>-SHPTO.
*
* SELECT SINGLE NAME1 INTO <WA_DATA>-NAME2
* FROM KNA1
* WHERE KUNNR EQ <WA_DATA>-KUNNR
** AND KTOKD EQ 'Z003'
* .
*
* ENDIF.
* IF <WA_DATA>-SLDTO IS INITIAL.
* MOVE <WA_DATA>-KUNNR TO <WA_DATA>-SLDTO.
* ENDIF.
READ TABLE gt_knvp INTO gs_knvp WITH KEY kunnr = <wa_data>-sldto kunn2 = <wa_data>-shpto BINARY SEARCH.
IF sy-subrc NE 0 .
PERFORM set_callsytle(zsdr006) USING 10 gs_load '客户与送达方没有对应关系' CHANGING <wa_data>-cellcolor <wa_data>-mssg.
<wa_data>
-zicon1 = '@0A@'."红灯
ENDIF.
SELECT SINGLE name1 INTO <wa_data>-name3
FROM kna1
WHERE kunnr EQ <wa_data>-sldto
* AND KTOKD EQ 'Z003'
.
IF r4 EQ 'X'."实退
<wa_data>
-zthlx = 'A'.
<wa_data>
-zthms = '实退'.
ELSEIF r5 EQ 'X'.
<wa_data>
-zthlx = 'B'."空退
<wa_data>
-zthms = '空退'.
ENDIF.
SELECT SINGLE lgobe INTO <wa_data>-lgobe
FROM t001l
WHERE lgort EQ <wa_data>-lgort
AND werks EQ '1000'.
* <WA_DATA>-ZDDJE = <WA_DATA>-ZDDJG * <WA_DATA>-MENGE.
<wa_data>
-zddjg = <wa_data>-zddje / <wa_data>-menge.
IF <wa_data>-mssg IS NOT INITIAL.
<wa_data>
-zicon1 = '@0A@'."红灯
ELSE.
<wa_data>
-zicon1 = '@08@'."绿灯
ENDIF.
IF <wa_data>-zicon1 = '@0A@'."红灯
MOVE '-' TO <wa_data>-sel.
PERFORM set_style USING 'SEL' 'DISABLE' CHANGING <wa_data>-style.
ENDIF.
ENDLOOP.
UNASSIGN <wa_data>
.
*将初始内表放入内存
lt_output
= gt_output.
EXPORT gt_output TO MEMORY ID 'GT_OUTPUT'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_SODATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_C_RESULT text
*----------------------------------------------------------------------*
FORM frm_check_sodata CHANGING c_result.
DATA:
ls_header
TYPE bapisdhd1,
ls_headerx
TYPE bapisdhd1x,
testrun
TYPE bapiflag-bapiflag VALUE 'X',
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2,
lt_item
TYPE TABLE OF bapisditm,
ls_item
TYPE bapisditm,
lt_itemx
TYPE TABLE OF bapisditmx,
ls_itemx
TYPE bapisditmx,
lt_pnr
TYPE TABLE OF bapiparnr,
ls_pnr
TYPE bapiparnr,
lt_sch
TYPE TABLE OF bapischdl,
ls_sch
TYPE bapischdl,
lt_schx
TYPE TABLE OF bapischdlx,
ls_schx
TYPE bapischdlx
.
DATA: lv_posnr TYPE posnr.
* LOOP AT GT_SODATA ASSIGNING <WA_SODATA>.
*
* ADD 10 TO LV_POSNR.
*
* LS_ITEM-ITM_NUMBER = LV_POSNR.
* LS_ITEM-MATERIAL = <WA_SODATA>-MATNR.
* LS_ITEM-TARGET_QTY = <WA_SODATA>-MENGE.
* LS_ITEM-PLANT = <WA_SODATA>-WERKS.
* LS_ITEM-STORE_LOC = <WA_SODATA>-LGORT.
* LS_ITEM-TARGET_QU = <WA_SODATA>-MEINS.
* LS_ITEM-BATCH = <WA_SODATA>-CHARG.
* LS_ITEM-SHIP_POINT = <WA_SODATA>-LGORT."装运点与库存地点相同
** LS_ITEM-ITEM_CATEG = 'REN'.
* APPEND LS_ITEM TO LT_ITEM.
* CLEAR LS_ITEM.
*
* LS_ITEMX-ITM_NUMBER = LV_POSNR.
* LS_ITEMX-MATERIAL = 'X'.
* LS_ITEMX-TARGET_QTY = 'X'.
* LS_ITEMX-PLANT = 'X'.
* LS_ITEMX-STORE_LOC = 'X'.
* LS_ITEMX-TARGET_QU = 'X'.
* LS_ITEMX-BATCH = 'X'.
* LS_ITEMX-SHIP_POINT = 'X'.
** LS_ITEMX-ITEM_CATEG = 'X'.
* APPEND LS_ITEMX TO LT_ITEMX.
* CLEAR LS_ITEMX.
*
* LS_PNR-PARTN_ROLE = 'AG'." 'SP'."售达方
* LS_PNR-PARTN_NUMB = <WA_SODATA>-SLDTO.
* APPEND LS_PNR TO LT_PNR.
* CLEAR LS_PNR.
*
* LS_PNR-PARTN_ROLE = 'WE'." 'SH'."送达方
* LS_PNR-PARTN_NUMB = <WA_SODATA>-SHPTO.
* APPEND LS_PNR TO LT_PNR.
* CLEAR LS_PNR.
*
* LS_SCH-ITM_NUMBER = LV_POSNR.
* LS_SCH-SCHED_LINE = 1.
* LS_SCH-REQ_QTY = <WA_SODATA>-MENGE.
*
* APPEND LS_SCH TO LT_SCH.
* CLEAR LS_SCH.
*
* LS_SCHX-ITM_NUMBER = LV_POSNR.
* LS_SCHX-SCHED_LINE = 1.
* LS_SCHX-REQ_QTY = 'X'.
*
* APPEND LS_SCHX TO LT_SCHX.
* CLEAR LS_SCHX.
*
* AT END OF KUNNR.
*
* CLEAR LV_POSNR.
*
* LS_HEADER-DOC_TYPE = 'ZRE1'."不关联退货订单
* LS_HEADER-SALES_ORG = <WA_SODATA>-VKORG.
* LS_HEADER-DISTR_CHAN = <WA_SODATA>-VTWEG.
* LS_HEADER-DIVISION = <WA_SODATA>-SPART.
* LS_HEADER-SALES_GRP = <WA_SODATA>-VKGRP.
* LS_HEADER-SALES_OFF = <WA_SODATA>-VKBUR.
* LS_HEADER-ORD_REASON = <WA_SODATA>-AUGRU."退货原因
**实退
* CALL FUNCTION 'SD_SALESDOCUMENT_CREATE'
* EXPORTING
* SALES_HEADER_IN = LS_HEADER
** SALES_HEADER_INX =
* TESTRUN = TESTRUN
* TABLES
* RETURN = LT_RETURN
* SALES_ITEMS_IN = LT_ITEM
* SALES_ITEMS_INX = LT_ITEMX
* SALES_PARTNERS = LT_PNR.
**空退后继免费
* IF R5 EQ 'X'.
* LS_HEADER-DOC_TYPE = 'ZSD9'."后继免费订单
*
* CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
* EXPORTING
* ORDER_HEADER_IN = LS_HEADER
* TESTRUN = TESTRUN
* TABLES
* RETURN = LT_RETURN
* ORDER_ITEMS_IN = LT_ITEM
* ORDER_ITEMS_INX = LT_ITEMX
* ORDER_PARTNERS = LT_PNR
* ORDER_SCHEDULES_IN = LT_SCH
* ORDER_SCHEDULES_INX = LT_SCHX.
*
* ENDIF.
* ENDAT.
*
* READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE = 'W'.
* IF SY-SUBRC EQ 0.
* C_RESULT = 'E'.
*
* EXPORT LT_RETURN TO MEMORY ID 'LT_RETURN'.
* PERFORM FRM_SHOW_MESSAGE.
* RETURN.
* ENDIF.
*
* READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE = 'E'.
*
* IF SY-SUBRC EQ 0.
* C_RESULT = 'E'.
*
* EXPORT LT_RETURN TO MEMORY ID 'LT_RETURN'.
* PERFORM FRM_SHOW_MESSAGE.
* RETURN.
* ELSE.
* C_RESULT = 'S'.
* ENDIF.
* ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_BILLING
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LV_RESULT text
*----------------------------------------------------------------------*
*FORM FRM_BILLING CHANGING C_RESULT.
* DATA: LT_SODATA TYPE TABLE OF TY_SODATA,
* LS_SODATA TYPE TY_SODATA.
*
* DATA: LV_RESULT TYPE C.
* LT_SODATA = GT_SODATA.
*
* SORT LT_SODATA BY ZDN.
*
* DELETE ADJACENT DUPLICATES FROM LT_SODATA COMPARING ZDN.
*
* LOOP AT LT_SODATA INTO LS_SODATA.
*
* CLEAR GDT_BDCDATA.
* PERFORM BDC_DYNPRO USING 'SAPMV60A' '0102'.
* PERFORM BDC_FIELD USING 'BDC_CURSOR' 'KOMFK-VBELN(01)'.
* PERFORM BDC_FIELD USING 'BDC_OKCODE' '=SICH'.
* PERFORM BDC_FIELD USING 'KOMFK-VBELN(01)' LS_SODATA-SO.
*
* PERFORM FRM_CALL_TRANSACTION2."调用事务
*
* IF LV_RESULT EQ 'E'.
* PERFORM FRM_SHOW_MESSAGE.
* C_RESULT = 'E'.
* EXIT.
* ELSE.
* C_RESULT = 'S'.
* ENDIF.
* ENDLOOP.
*
*ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHARG_F4
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_<WA_DATA>_CHARG text
* <--P_<WA_DATA>_ZSFSL text
*----------------------------------------------------------------------*
FORM frm_charg_f4 CHANGING
c_charg
TYPE charg_d"批次
* C_ZSFSL TYPE MENGE_D "实发数量
.
DATA: lt_ddshretval TYPE STANDARD TABLE OF ddshretval,
ls_return
TYPE ddshretval,
l_it_cells
TYPE lvc_t_cell,
l_gw_cells
TYPE lvc_s_cell.
DATA: lt_ftab TYPE TABLE OF dfies,
ls_ftab
TYPE dfies,
lt_dn
TYPE TABLE OF ty_dn,
ls_dn
TYPE ty_dn.
DATA:
l_tabname
TYPE dd03v-tabname,
l_fieldname
TYPE dd03v-fieldname,
l_help_valu
TYPE help_info-fldvalue.
REFRESH gt_charg.
REFRESH lt_ddshretval.
*取已发货的批次
SELECT
a
~kunnr
b
~matnr
b
~charg
b
~werks
b
~lgort
INTO CORRESPONDING FIELDS OF TABLE lt_dn
FROM likp AS a
INNER
JOIN lips AS b ON a~vbeln EQ b~vbeln
WHERE a~kunnr EQ <wa_data>-shpto
AND b~matnr EQ <wa_data>-matnr
AND b~werks EQ 1000
AND b~lgort EQ <wa_data>-lgort.
*取批次数量
IF lt_dn IS NOT INITIAL.
* SELECT CHARG CLABS
* FROM MCHB INTO TABLE GT_CHARG
* WHERE MATNR EQ <WA_DATA>-MATNR
* AND WERKS = '1000'
* AND LGORT = <WA_DATA>-LGORT.
SELECT charg clabs
FROM mchb INTO TABLE gt_charg
FOR ALL ENTRIES IN lt_dn
WHERE matnr EQ lt_dn-matnr
AND werks = '1000'
AND lgort = lt_dn-lgort
AND charg EQ lt_dn-charg
.
ENDIF.
SORT gt_charg BY charg.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield
= 'CHARG' "指定ALV用F4的字段
dynpprog
= sy-repid
value_org
= 'S'
TABLES
value_tab
= gt_charg
field_tab
= lt_ftab
return_tab
= lt_ddshretval
EXCEPTIONS
parameter_error
= 1
no_values_found
= 2
OTHERS = 3.
IF sy-subrc = 0 AND lt_ddshretval IS NOT INITIAL .
CLEAR ls_return.
READ TABLE lt_ddshretval INTO ls_return INDEX 1.
c_charg
= ls_return-fieldval.
READ TABLE gt_charg INTO gs_charg WITH KEY charg = c_charg BINARY SEARCH.
IF sy-subrc EQ 0.
IF gs_charg-clabs LT <wa_data>-menge."批次数量大于实发数量
MESSAGE '批次数量小于退货数量' TYPE 'S' DISPLAY LIKE 'E'.
CLEAR c_charg.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_POST_GMVT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_post_gmvt CHANGING c_result.
DATA:
lv_vbkok
TYPE vbkok,
lv_wabuc
TYPE wabuc VALUE 'X',
lt_vbpok
TYPE TABLE OF vbpok,
ls_vbpok
TYPE vbpok,
lt_prott
TYPE TABLE OF prott WITH HEADER LINE,
ls_prott
TYPE prott,
lt_return
TYPE TABLE OF bapiret2,
wa_return
TYPE bapiret2.
DATA: lv_result TYPE c,
lv_vbeln
TYPE vbeln_vl,
lv_posnr
TYPE posnr_vl.
DATA: lt_output TYPE TABLE OF ty_output,
ls_output
TYPE ty_output.
*
* DATA:
* LS_HEADER TYPE BAPIOBDLVHDRCON,
* LS_CONTROL TYPE BAPIOBDLVHDRCTRLCON,
* DELIVERY TYPE BAPIOBDLVHDRCON-DELIV_NUMB,
* LS_TECH TYPE BAPIDLVCONTROL,
* LV_VBELN TYPE VBELN_VL,
* LT_RETURN TYPE TABLE OF BAPIRET2 WITH HEADER LINE
* .
c_result
= 'S'.
lt_output
= gt_output.
DELETE lt_output WHERE sel NE 'X'.
* IF R4 EQ 'X'.
SORT lt_output BY zthdn.
DELETE ADJACENT DUPLICATES FROM lt_output COMPARING zthdn.
* ELSEIF R5 EQ 'X'.
* SORT LT_OUTPUT BY ZDN.
* ENDIF.
LOOP AT lt_output INTO ls_output.
IF r6 EQ 'X'.
lv_vbkok
-vbeln_vl = ls_output-zthdn.
lv_vbkok
-wabuc = lv_wabuc .
lv_vbkok
-wadat_ist = sy-datum .
lv_vbkok
-bldat = sy-datum .
* LS_CONTROL-DELIV_NUMB = LS_OUTPUT-ZTHDN.
*
* LS_CONTROL-POST_GI_FLG = 'X'.
*
* DELIVERY = LS_OUTPUT-ZTHDN.
ENDIF.
IF r3 EQ 'X'.
lv_vbkok
-vbeln_vl = ls_output-zdn.
lv_vbkok
-wabuc = lv_wabuc .
lv_vbkok
-wadat_ist = sy-datum .
lv_vbkok
-bldat = sy-datum .
* LS_CONTROL-DELIV_NUMB = LS_OUTPUT-ZDN.
*
* LS_CONTROL-POST_GI_FLG = 'X'.
*
* DELIVERY = LS_OUTPUT-ZDN.
ENDIF.
WAIT UP TO 1 SECONDS.
CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
EXPORTING
vbkok_wa
= lv_vbkok
* SYNCHRON = ' '
* NO_MESSAGES_UPDATE = ' '
* NICHT_SPERREN = ' '
* AUFRUFER_T = ' '
* IF_ERROR_MESSAGES_SEND = 'X'
TABLES
vbpok_tab
= lt_vbpok[]
prot
= lt_prott[].
READ TABLE lt_prott TRANSPORTING NO FIELDS WITH KEY msgty = 'E'.
IF sy-subrc EQ 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
LOOP AT lt_prott WHERE msgty EQ 'E'.
CLEAR wa_return.
wa_return
-type = 'E'.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid
= lt_prott-msgid
msgnr
= lt_prott-msgno
msgv1
= lt_prott-msgv1
msgv2
= lt_prott-msgv2
msgv3
= lt_prott-msgv3
msgv4
= lt_prott-msgv4
IMPORTING
message_text_output
= wa_return-message.
APPEND wa_return TO lt_return.
CLEAR lt_prott.
ENDLOOP.
RETURN.
ENDIF.
CLEAR wa_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = wa_return.
IF wa_return-type EQ 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
APPEND wa_return TO lt_return.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
* C_RESULT = 'E'.
RETURN.
ELSE.
* C_RESULT = 'S'.
* RETURN.
ENDIF.
* LS_TECH-UPD_IND = 'U'.
**发货过账
* CALL FUNCTION 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
* EXPORTING
* HEADER_DATA = LS_HEADER
* HEADER_CONTROL = LS_CONTROL
* DELIVERY = DELIVERY
* TECHN_CONTROL = LS_TECH
* TABLES
* RETURN = LT_RETURN[].
* READ TABLE LT_RETURN TRANSPORTING NO FIELDS WITH KEY TYPE = 'E'.
* IF SY-SUBRC EQ 0.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
** IMPORTING
** RETURN =
* .
* C_RESULT = 'E'.
* EXPORT LT_RETURN TO MEMORY ID 'LT_RETURN'.
* PERFORM FRM_SHOW_MESSAGE.
*
* RETURN.
* ENDIF.
ENDLOOP.
* IF C_RESULT EQ 'S'.
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'
** IMPORTING
** RETURN =
* .
* ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_STYLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM set_style USING fieldname
style
TYPE string
CHANGING it_styles TYPE lvc_t_styl.
DATA: ls_style TYPE lvc_s_styl.
CLEAR ls_style.
ls_style
-fieldname = fieldname.
IF style EQ 'ENABLE'.
ls_style
-style = cl_gui_alv_grid=>mc_style_enabled.
ELSE.
ls_style
-style = cl_gui_alv_grid=>mc_style_disabled.
ENDIF.
READ TABLE it_styles TRANSPORTING NO FIELDS WITH KEY fieldname = fieldname.
IF sy-subrc EQ 0.
MODIFY it_styles FROM ls_style INDEX sy-tabix.
ELSE.
INSERT ls_style INTO TABLE it_styles.
ENDIF.
FREE: ls_style.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_CALLSYTLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM set_callsytle USING p_pos
wa_struct
p_mssg
CHANGING it_cellcolor TYPE lvc_t_scol e_mssg.
DATA: wa_cellcolor TYPE lvc_s_scol.
CLEAR wa_cellcolor.
PERFORM get_fieldname_load USING p_pos wa_struct CHANGING wa_cellcolor-fname.
wa_cellcolor
-color-col = '6'.
wa_cellcolor
-color-int = '1'.
wa_cellcolor
-color-inv = '1'.
SORT it_cellcolor BY fname.
READ TABLE it_cellcolor TRANSPORTING NO FIELDS WITH KEY fname = wa_cellcolor-fname BINARY SEARCH.
IF sy-subrc EQ 0.
MODIFY it_cellcolor FROM wa_cellcolor INDEX sy-tabix.
ELSE.
APPEND wa_cellcolor TO it_cellcolor.
ENDIF.
PERFORM biuld_message USING wa_cellcolor-fname p_mssg CHANGING e_mssg.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_FIELDNAME_LOAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM get_fieldname_load USING p_pos gs_struct
CHANGING p_fname.
DATA: po_struct TYPE REF TO cl_abap_structdescr,
lt_comptab
TYPE cl_abap_structdescr=>component_table.
FIELD-SYMBOLS: <f_comp> TYPE cl_abap_structdescr=>component.
po_struct ?= cl_abap_structdescr
=>describe_by_data( gs_struct ).
lt_comptab
= po_struct->get_components( ).
CHECK lt_comptab[] IS NOT INITIAL.
READ TABLE lt_comptab ASSIGNING <f_comp> INDEX p_pos.
CHECK sy-subrc EQ 0.
p_fname
= <f_comp>-name.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ADD_LEAD_ZERO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM add_lead_zero USING p_len
CHANGING e_field.
DATA: l_line TYPE i.
CLEAR l_line.
l_line
= strlen( e_field ).
l_line
= p_len - l_line.
DO l_line TIMES.
CONCATENATE '0' e_field INTO e_field.
ENDDO.
FREE: l_line.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form BIULD_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM biuld_message USING p_fname
p_mssg
CHANGING e_mssg.
DATA: l_temp TYPE string.
CONCATENATE p_fname ':' p_mssg INTO l_temp.
IF e_mssg IS INITIAL.
e_mssg
= l_temp.
ELSE.
CONCATENATE e_mssg ';' l_temp INTO e_mssg.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_POST
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_check_post USING u_vbeln u_flag.
DATA lv_result TYPE string.
SELECT SINGLE wbstk INTO @DATA(lv_wbstk)
FROM vbuk
WHERE vbeln EQ @u_vbeln.
*BREAK B012.
IF lv_wbstk EQ 'C'.
gs_output
-sel = 'X'.
IF u_flag EQ 1.
MODIFY gt_output FROM gs_output TRANSPORTING sel
WHERE zthdn EQ u_vbeln.
PERFORM frm_save_data USING 'POST1' CHANGING lv_result.
ELSEIF u_flag EQ 2.
MODIFY gt_output FROM gs_output TRANSPORTING sel
WHERE zdn EQ u_vbeln.
PERFORM frm_save_data USING 'POST2' CHANGING lv_result.
ENDIF.
* IF LV_RESULT EQ 'S'.
* MESSAGE '过账成功！' TYPE 'S'.
* ELSE.
* MESSAGE '过账失败！' TYPE 'S' DISPLAY LIKE 'E'.
* ENDIF.
CLEAR lv_result.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_RETURNSO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LS_HEADER text
* -->P_LT_ITEM text
* -->P_LT_ITEMX text
* -->P_LT_PNR text
* -->P_LT_SCH text
* -->P_LT_SCHX text
* -->P_LT_COND text
* -->P_LT_CONDX text
* <--P_LV_SO text
* <--P_LT_RETURN text
*----------------------------------------------------------------------*
FORM frm_create_returnso
TABLES
* ,T_RETURN STRUCTURE BAPIRET2
t_item
STRUCTURE bapisditm
t_itemx
STRUCTURE bapisditmx
t_pnr
STRUCTURE bapiparnr
t_sch
STRUCTURE bapischdl
t_schx
STRUCTURE bapischdlx
t_cond
STRUCTURE bapicond
t_condx
STRUCTURE bapicondx
USING
u_header
CHANGING c_so c_result.
DATA:
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2.
CALL FUNCTION 'BAPI_CUSTOMERRETURN_CREATE'
EXPORTING
return_header_in
= u_header
* return_header_inx = ls_bapisdhdx
IMPORTING
salesdocument
= c_so
TABLES
return = lt_return[]
return_items_in
= t_item[]
return_items_inx
= t_itemx[]
return_partners
= t_pnr[]
return_schedules_in
= t_sch[]
return_schedules_inx
= t_schx[]
return_conditions_in
= t_cond[].
* READ TABLE lt_return INTO ls_return WITH KEY type = 'W'.
* IF sy-subrc EQ 0.
* c_result = 'E'.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
** IMPORTING
** RETURN =
* .
*
* EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
* PERFORM frm_show_message.
* RETURN.
* ENDIF.
READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
IF sy-subrc EQ 0.
c_result
= 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
RETURN.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
c_result
= 'S'.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_RETURNSO1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LT_RETURN text
* -->P_LS_HEADER text
* -->P_LT_ITEM text
* -->P_LT_ITEMX text
* -->P_LT_PNR text
* -->P_LT_SCH text
* -->P_LT_SCHX text
* -->P_LT_COND text
* -->P_LT_CONDX text
* <--P_LV_SO text
*----------------------------------------------------------------------*
FORM frm_create_returnso1
TABLES
* T_RETURN STRUCTURE BAPIRET2
t_item
STRUCTURE bapisditm
t_itemx
STRUCTURE bapisditmx
t_pnr
STRUCTURE bapiparnr
t_sch
STRUCTURE bapischdl
t_schx
STRUCTURE bapischdlx
t_cond
STRUCTURE bapicond
t_condx
STRUCTURE bapicondx
USING
u_header
CHANGING c_so
c_result
.
DATA:
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2.
* BREAK B012.
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
order_header_in
= u_header
IMPORTING
salesdocument
= c_so
TABLES
return = lt_return[]
order_items_in
= t_item[]
order_items_inx
= t_itemx[]
order_partners
= t_pnr[]
order_schedules_in
= t_sch[]
order_schedules_inx
= t_schx[]
* ORDER_CONDITIONS_IN = T_COND[]
* ORDER_CONDITIONS_INX = T_CONDX[]
.
* READ TABLE lt_return INTO ls_return WITH KEY type = 'W'.
* IF sy-subrc EQ 0.
* c_result = 'E'.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
** IMPORTING
** RETURN =
* .
*
* EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
* PERFORM frm_show_message.
* RETURN.
* ENDIF.
READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
IF sy-subrc EQ 0.
c_result
= 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
RETURN.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
c_result
= 'S'.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_DN
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LV_SO text
* <--P_LV_DN text
*----------------------------------------------------------------------*
FORM frm_create_dn USING u_so
CHANGING c_dn c_result.
DATA: lt_so_item TYPE TABLE OF bapidlvreftosalesorder,
ls_so_item
TYPE bapidlvreftosalesorder,
lt_return
TYPE TABLE OF bapiret2,
ls_return
TYPE bapiret2.
ls_so_item
-ref_doc = u_so.
APPEND ls_so_item TO lt_so_item.
CLEAR ls_so_item.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'
IMPORTING
delivery
= c_dn
TABLES
sales_order_items
= lt_so_item
return = lt_return.
READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
IF sy-subrc EQ 0.
c_result
= 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
EXPORT lt_return TO MEMORY ID 'LT_RETURN'.
PERFORM frm_show_message.
RETURN.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
c_result
= 'S'.
ENDIF.
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_MODIFY_SODATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LV_SO text
* -->P_LV_DN text
*----------------------------------------------------------------------*
FORM frm_modify_sodata USING u_so
u_dn
CHANGING c_result.
DATA ls_sodata TYPE ty_sodata.
DATA: lv_so TYPE vbeln,
lv_dn
TYPE vbeln_vl.
lv_so
= u_so.
lv_dn
= u_dn.
IF lv_so IS NOT INITIAL.
ls_sodata
-so = lv_so.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_sodata-so
IMPORTING
output = ls_sodata-so.
ls_sodata
-zdn = lv_dn.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_sodata-zdn
IMPORTING
output = ls_sodata-zdn.
MODIFY gt_sodata FROM ls_sodata TRANSPORTING so zdn
WHERE so EQ 'X' AND zdn EQ 'X'.
PERFORM frm_post_dn USING lv_dn .
CALL FUNCTION 'RV_DELIVERY_INIT'
EXPORTING
status_buff_init
= status_buff_init
i_call_activity
= call_activity
if_no_deque
= g_no_dequeue_sd_sales.
CLEAR:lv_so,lv_dn.
ELSE.
PERFORM frm_show_message.
c_result
= 'E'.
EXIT.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_MODIFY_SODATA1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LV_SO1 text
* -->P_LV_DN1 text
* <--P_C_RESULT text
*----------------------------------------------------------------------*
*FORM FRM_MODIFY_SODATA USING U_SO
* U_DN
* CHANGING C_RESULT.
* DATA LS_SODATA TYPE TY_SODATA.
* DATA: LV_SO TYPE VBELN,
* LV_DN TYPE VBELN_VL.
*
* LV_SO = U_SO.
* LV_DN = U_DN.
*
* IF LV_SO IS NOT INITIAL.
* LS_SODATA-SO = LV_SO.
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = LS_SODATA-SO1
* IMPORTING
* OUTPUT = LS_SODATA-SO1.
*
* LS_SODATA-ZDN = LV_DN.
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* INPUT = LS_SODATA-ZDN1
* IMPORTING
* OUTPUT = LS_SODATA-ZDN1.
*
*
* MODIFY GT_SODATA FROM LS_SODATA TRANSPORTING SO1 ZDN1
* WHERE SO1 EQ 'X' AND ZDN1 EQ 'X'.
*
* CLEAR:LV_SO,LV_DN.
*
* ELSE.
* PERFORM FRM_SHOW_MESSAGE.
* C_RESULT = 'E'.
* EXIT.
* ENDIF.
*ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_PARTNER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GS_OUTPUT_SLDTO text
* <--P_LV_RESULT text
*----------------------------------------------------------------------*
FORM frm_check_partner USING u_sldto
CHANGING c_result.
DATA:lv_msg TYPE string.
DATA:
ls_a515
TYPE a515,
lt_a515
TYPE TABLE OF a515.
SELECT SINGLE vkorg vtweg spart vkbur vkgrp vsbed
INTO ( gs_sodata-vkorg,gs_sodata-vtweg,gs_sodata-spart,
gs_sodata
-vkbur,gs_sodata-vkgrp,gs_sodata-vsbed )
FROM knvv
WHERE kunnr EQ u_sldto
AND vtweg EQ '20'"直营
AND loevm NE 'X'"删除标记
* AND VSBED EQ '99'"装运条件
.
IF sy-subrc NE 0.
c_result
= 'E'.
lv_msg
= '售达方' && u_sldto && '销售组织数据不正确，请检查。'.
MESSAGE s001 WITH lv_msg DISPLAY LIKE 'E'.
RETURN.
ENDIF.
* SELECT SINGLE SPOFI INTO @DATA(LV_SPOFI)
* FROM TVLK
* WHERE LFART EQ 'ZLR'."退货交货
*
* IF SY-SUBRC EQ 0.
*
* IF LV_SPOFI EQ SPACE. "特定工厂装运点
* SELECT SINGLE VSTEL INTO @DATA(LV_VSTEL)
* FROM TVSTZ
* WHERE VSBED EQ @GS_SODATA-VSBED
* AND LADGR EQ '0001'
* AND WERKS EQ '1000'.
* IF SY-SUBRC NE 0.
* C_RESULT = 'E'.
* LV_MSG = '售达方' && U_SLDTO && '按工厂1000确定的装运点不存在。'.
* MESSAGE S001 WITH LV_MSG DISPLAY LIKE 'E'.
* RETURN.
* ENDIF.
* ELSE."按库存地点确定装运点
*
* SELECT SINGLE LGORT INTO @DATA(LV_LGORT)
* FROM KNA1
* WHERE KUNNR EQ @U_SLDTO.
*
* SELECT SINGLE VSTEL INTO LV_VSTEL
* FROM TVSTZ_STORLOC
* WHERE VSBED EQ GS_SODATA-VSBED
* AND LADGR EQ '0001'
* AND WERKS EQ '1000'
* AND LGORT EQ LV_LGORT.
*
* IF SY-SUBRC NE 0.
* C_RESULT = 'E'.
* LV_MSG = '售达方' && U_SLDTO && '按库存地点' && LV_LGORT && '确定的装运点不存在。'.
* MESSAGE S001 WITH LV_MSG DISPLAY LIKE 'E'.
* RETURN.
* ENDIF.
* ENDIF.
*
**检查条件记录是否存在
* SELECT
* *
* INTO TABLE LT_A515
* FROM A515
* WHERE KSCHL EQ 'PRZ0'
* AND KUNNR EQ U_SLDTO
* AND MATNR EQ GS_SODATA-MATNR.
*
* IF SY-SUBRC NE 0.
* C_RESULT = 'E'.
*
* LV_MSG = '售达方' && U_SLDTO && '物料' && GS_SODATA-MATNR && '条件记录PRZ0不存在。'.
* MESSAGE S001 WITH LV_MSG DISPLAY LIKE 'E'.
*
* RETURN.
*
* ELSE.
* SORT LT_A515 BY DATBI DESCENDING.
* DELETE ADJACENT DUPLICATES FROM LT_A515 COMPARING KAPPL KSCHL KUNNR MATNR.
*
* READ TABLE LT_A515 INTO LS_A515 INDEX 1.
*
* SELECT SINGLE KBETR INTO @DATA(KBETR)
* FROM KONP
* WHERE KNUMH EQ @LS_A515-KNUMH
* AND KSCHL EQ 'PRZ0'
* AND KBETR EQ 0.
*
* IF SY-SUBRC EQ 0.
* C_RESULT = 'E'.
*
* LV_MSG = '售达方' && U_SLDTO && '物料' && GS_SODATA-MATNR && '条件记录PRZ0价格不能为0。'.
* MESSAGE S001 WITH LV_MSG DISPLAY LIKE 'E'.
*
* RETURN.
* ENDIF.
* ENDIF.
*
c_result
= 'S'.
* ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SEL_ALL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_sel_all .
DATA : lt_filtered_entries TYPE lvc_t_fidx.
FREE lt_filtered_entries.
CALL METHOD gct_alv->get_filtered_entries
IMPORTING
et_filtered_entries
= lt_filtered_entries.
LOOP AT gt_output ASSIGNING <wa_data> WHERE sel EQ space.
READ TABLE lt_filtered_entries TRANSPORTING NO FIELDS WITH KEY table_line = sy-tabix.
IF sy-subrc NE 0.
<wa_data>
-sel = 'X'.
ENDIF.
ENDLOOP.
UNASSIGN <wa_data>
.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_LOCK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_check_lock .
SORT gt_batno[] BY batno batpo.
DELETE ADJACENT DUPLICATES FROM gt_batno[] COMPARING ALL FIELDS.
LOOP AT gt_batno.
CALL FUNCTION 'ENQUEUE_EZSD001'
EXPORTING
mode_ztsd002
= 'E'
batno
= gt_batno-batno
batpo
= gt_batno-batpo
* X_BATNO = ' '
* X_BATPO = ' '
* _SCOPE = '2'
* _WAIT = ' '
* _COLLECT = ' '
EXCEPTIONS
foreign_lock
= 1
system_failure
= 2
OTHERS = 3.
IF sy-subrc <> 0.
gs_mesg
-mesg = '批导编号' && gt_batno-batno && '行号' && gt_batno-batpo && '的订单' && '被用户' && sy-msgv1 && '锁定'.
* GS_MESG-MSGNO = SY-MSGNO.
* GS_MESG-MSGTY = SY-MSGTY.
* GS_MESG-MSGV1 = SY-MSGV1.
* GS_MESG-MSGV2 = SY-MSGV2.
* GS_MESG-MSGV3 = SY-MSGV3.
* GS_MESG-MSGV4 = SY-MSGV4.
APPEND gs_mesg TO gt_mesg.
CLEAR gs_mesg.
ENDIF.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_RESET_LOCK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_reset_lock .
LOOP AT gt_batno.
CALL FUNCTION 'DEQUEUE_EZSD001'
EXPORTING
mode_ztsd002
= 'E'
batno
= gt_batno-batno
batpo
= gt_batno-batpo
x_batno
= ' '
x_batpo
= ' '
_scope
= '3'
_synchron
= ' '
_collect
= ' '.
ENDLOOP.
FREE gt_batno.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DELETE_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_delete_data .
DATA: lt_del TYPE TABLE OF ztsd015 WITH HEADER LINE.
LOOP AT gt_output INTO gs_output WHERE sel EQ 'X'.
* IF GS_OUTPUT-ZTHDD IS INITIAL.
* DELETE GT_OUTPUT.
* DELETE FROM ZTSD015 WHERE BATNO EQ GS_OUTPUT-BATNO AND BATPO EQ GS_OUTPUT-BATPO.
** DELETE FROM ZTSD016 WHERE BATNO EQ GS_OUTPUT-BATNO AND BATPO EQ GS_OUTPUT-BATPO.
* ELSE.
SELECT SINGLE vbeln INTO @DATA(lv_vbeln)
FROM likp
WHERE vbeln EQ @gs_output-zthdd.
IF sy-subrc EQ 0.
MESSAGE '已生成退货订单不允许删除。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
* ENDIF.
ENDLOOP.
CLEAR gs_output.
LOOP AT gt_output INTO gs_output WHERE sel EQ 'X'.
IF gs_output-zuser NE sy-uname.
MESSAGE '不允许删除其他用户的验单数据。' TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
CLEAR lt_del.
lt_del
-batno = gs_output-batno.
lt_del
-batpo = gs_output-batpo.
lt_del
-sldto = gs_output-sldto.
lt_del
-shpto = gs_output-shpto.
lt_del
-matnr = gs_output-matnr.
APPEND lt_del TO lt_del.
CLEAR gs_output.
ENDLOOP.
DELETE gt_output WHERE sel EQ 'X'.
IF lt_del[] IS NOT INITIAL.
DELETE ztsd015 FROM TABLE lt_del[].
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
MESSAGE '删除成功！' TYPE 'S'.
ELSE.
ROLLBACK WORK.
MESSAGE '删除失败！' TYPE 'S' DISPLAY LIKE 'E'.
ENDIF.
CLEAR: lt_del,lt_del[].
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_GET_STAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_<WA_DATA>_ZTHDD text
*----------------------------------------------------------------------*
FORM frm_get_stat USING u_so TYPE vbeln.
DATA: lv_so TYPE vbeln,
lv_dn
TYPE vbeln_vl.
lv_so
= u_so.
CHECK lv_so IS NOT INITIAL.
SELECT SINGLE a~vbeln INTO <wa_data>-zthdd
FROM vbkd AS a
INNER
JOIN vbap AS b
ON a~vbeln EQ b~vbeln
AND a~posnr EQ b~posnr
INNER
JOIN vbak AS c
ON a~vbeln EQ c~vbeln
WHERE bstkd_e EQ <wa_data>-key
AND b~abgru EQ space
AND c~auart EQ 'ZRE1'.
* SELECT SINGLE A~VBELN INTO <WA_DATA>-ZTHDD
* FROM VBKD AS A
* INNER JOIN VBAK AS B
* ON A~VBELN EQ B~VBELN
* WHERE ( BSTKD_E = <WA_DATA>-KEY
* AND B~AUART EQ 'ZRE1'
* AND A~POSNR NE SPACE )
* OR ( BSTKD_E = <WA_DATA>-ZYDDH
* AND B~AUART EQ 'ZRE1'
* AND A~POSNR EQ SPACE )
* OR ( BSTKD = <WA_DATA>-ZYDDH
* AND B~AUART EQ 'ZRE1'
* AND A~POSNR EQ SPACE ).
IF sy-subrc EQ 0.
SELECT SINGLE vbeln INTO <wa_data>-zthdn
FROM vbfa
WHERE ( vbelv EQ <wa_data>-zthdd
AND vbtyp_n EQ 'J' )
OR ( vbelv EQ <wa_data>-zthdd AND vbtyp_n EQ 'T' ).
IF sy-subrc EQ 0.
ELSE.
CLEAR <wa_data>-zthdn.
ENDIF.
ELSE.
CLEAR <wa_data>-zthdd.
CLEAR <wa_data>-zthdn.
ENDIF.
*取状态
lv_dn
= <wa_data>-zthdn.
SELECT SINGLE wbstk fkstk
INTO ( <wa_data>-wbstk1, <wa_data>-fkstk1 )
FROM vbuk
WHERE vbeln EQ lv_dn.
CLEAR lv_dn.
SELECT SINGLE a~vbeln INTO <wa_data>-zmfck
FROM vbkd AS a
INNER
JOIN vbap AS b
ON a~vbeln EQ b~vbeln
AND a~posnr EQ b~posnr
INNER
JOIN vbak AS c
ON a~vbeln EQ c~vbeln
WHERE bstkd_e EQ <wa_data>-key
AND b~abgru EQ space
AND c~auart EQ 'ZSD9'.
* SELECT SINGLE A~VBELN INTO <WA_DATA>-ZMFCK
* FROM VBKD AS A
* INNER JOIN VBAK AS B
* ON A~VBELN EQ B~VBELN
* WHERE ( BSTKD_E = <WA_DATA>-KEY
* AND B~AUART EQ 'ZSD9'
* AND A~POSNR NE SPACE )
* OR ( BSTKD_E = <WA_DATA>-ZYDDH
* AND B~AUART EQ 'ZSD9'
* AND A~POSNR EQ SPACE )
* OR ( BSTKD = <WA_DATA>-ZYDDH
* AND B~AUART EQ 'ZSD9'
* AND A~POSNR EQ SPACE ).
IF sy-subrc EQ 0.
SELECT SINGLE vbeln INTO <wa_data>-zdn
FROM vbfa
WHERE ( vbelv EQ <wa_data>-zmfck
AND vbtyp_n EQ 'J' )
OR ( vbelv EQ <wa_data>-zmfck AND vbtyp_n EQ 'T' ).
IF sy-subrc EQ 0.
ELSE.
"CLEAR <wa_data>-zmfck.
CLEAR <wa_data>-zdn.
ENDIF.
ELSE.
CLEAR <wa_data>-zdn.
CLEAR <wa_data>-zmfck.
ENDIF.
*取状态
lv_dn
= <wa_data>-zdn.
IF lv_dn IS NOT INITIAL.
SELECT SINGLE wbstk fkstk
INTO ( <wa_data>-wbstk2,<wa_data>-fkstk2 )
FROM vbuk
WHERE vbeln EQ lv_dn.
ENDIF.
CLEAR lv_dn.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_AUTHORITY_CHECK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_authority_check .
DATA: l_temp TYPE string.
DATA: lt_t001l TYPE TABLE OF t001l WITH HEADER LINE.
SELECT lgort
INTO CORRESPONDING FIELDS OF TABLE lt_t001l
FROM t001l
WHERE werks EQ 1000
AND lgort IN s_lgort.
IF lt_t001l[] IS INITIAL.
MESSAGE '没有库存地点记录' TYPE 'S' DISPLAY LIKE 'E'.
STOP.
ENDIF.
LOOP AT lt_t001l.
AUTHORITY-CHECK OBJECT 'M_MSEG_LGO'
ID 'ACTVT' DUMMY
ID 'WERKS' FIELD '1000'
ID 'LGORT' FIELD lt_t001l-lgort
ID 'BWART' DUMMY.
IF sy-subrc <> 0.
MESSAGE '您没有库存地点' && lt_t001l-lgort && '的权限' TYPE 'E'.
RETURN.
* Implement a suitable exception handling here
ENDIF.
ENDLOOP.
FREE lt_t001l.
FREE: l_temp.
ENDFORM.
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 【南京】根据销售订单创建交货单并自动拣配、过账发货程序
- SAP交货单过账自动生产采购订单、采购订单自动收货入库
- abap对采购订单强制置为”交货已完成“状态（BAPI_PO_CHANGE、BAPI_PO_RELEASE、BAPI_PO_RESET_RELEASE）
- abap对采购订单强制置为”交货已完成“状态（BAPI_PO_CHANGE、BAPI_PO_RELEASE、BAPI_PO_RESET_RELEASE）
- abap对采购订单强制置为”交货已完成“状态（BAPI_PO_CHANGE、BAPI_PO_RELEASE、BAPI_PO_RESET_RELEASE）
- sap-abap-交货出口-交货单保存前设定所有行项发货仓位且过账前检查是否仓位一致
- VL01N/VL02N增强-退货订单(ZRE,ZWRE,ZRD)在VL01N对于发货过账时判断成本是否为0碰到的问题
- ABAP中，利用函数WS_DELIVERY_UPDATE进行VL02N发货过账时获取凭证号（mblnr）
- jquery autocomplete 自动完成插件及插件常用属性及项目案例
- SAP ABAP编程 采购订单过账
- sap-abap-销售订单的订货，生产，存货，发货情况统计报表
- ABAP 编辑器设置(自动完成KEY WORDS输入)
- SAP ABAP编程 采购订单过账冲销
- 订单、支付、退款、发货、退货等编号自动生成类
- 订单、支付、退款、发货、退货等编号自动生成类
- ABAP 编辑器设置(自动完成KEY WORDS输入)
- ABAP BAPI 销售订单生产交货单函数
- 交货单批次拆分（BAPI_OUTB_DELIVERY_CHANGE ）并更改拣配数量，发货过账（WS_DELIVERY_UPDATE）
- ABAP模块-根据销售订单创建交货单BAPI
- shopnc订单不自动完成