1、效果圖

1.1篩選界面截圖

1.2模板數(shù)據(jù)上傳預(yù)覽圖

1.3導(dǎo)入效果圖

2、附贈源代碼

*&---------------------------------------------------------------------* *& Report ZVA01 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* report zva01. include: zotnp001."EXCEL封裝的對象，及相關(guān)的操作方法 tables: sscrfields."定義按鈕 type-pools: slis. *********************************************************************** * *數(shù)據(jù)類型定義邏輯塊 * ************************************************************************ data: gw_textfield like smp_dyntxt. data: bdcdata like bdcdata occurs 0 with header line. data: messtab like bdcmsgcoll occurs 0 with header line. *data: messtab2 like TABLE OF bdcmsgcoll . data: ctumode like ctu_params-dismode. data: g_dcount(5) type n value 0. "記錄數(shù) data: ref_grid type ref to cl_gui_alv_grid. data:it_fieldcat type lvc_t_fcat,wa_fieldcat like line of it_fieldcat. data:l_kalks type knvv-kalks , "定價(jià)過程l_kschl type a904-kschl. "條件類型 "導(dǎo)入數(shù)據(jù) data:begin of gt_tab occurs 0,txt type string,index type string, "銷售訂單auart type VBAK-auart, "銷售憑證類型vkorg type VBAK-vkorg, "銷售組織vtweg type VBAK-vtweg, "分銷渠道spart type VBAK-spart, "產(chǎn)品組vkbur type VBAK-vkbur, "銷售辦事處kunnr type string, "售達(dá)方kunag type string, "送達(dá)方bstnk type string, "客戶參考posnr type string, "行項(xiàng)目matnr type string, "物料kwmeng type string, "訂單數(shù)量werks type string, "工廠lgort type string, "庫存地點(diǎn)augru type string, "訂貨原因remarks type string, "抬頭備注lin type string, "行項(xiàng)目備注prsdt type string, "行項(xiàng)目定價(jià)日期end of gt_tab. data: begin of gt_out occurs 0, "顯示結(jié)果txt type string,index type string, "銷售訂單auart type VBAK-auart, "銷售憑證類型vkorg type VBAK-vkorg, "銷售組織vtweg type VBAK-vtweg, "分銷渠道spart type VBAK-spart, "產(chǎn)品組vkbur type VBAK-vkbur, "銷售辦事處kunnr type vbak-kunnr, "售達(dá)方kunag type likp-kunag, "送達(dá)方bstnk type string, "客戶參考posnr type vbap-posnr, "行項(xiàng)目matnr type vbap-matnr, "物料kwmeng2 type string, "訂單數(shù)量werks type string, "工廠lgort type string, "庫存地點(diǎn)augru type string, "訂貨原因remarks type string, "抬頭備注lin type string, "行項(xiàng)目備注prsdt type sy-datum, "行項(xiàng)目定價(jià)日期box(1),text type icons-text, "標(biāo)識tabix type string, "文本kschl type konp-kschl, "條件類型kbetr type konp-kbetr, "條件金額konwa type konp-konwa, "條件貨幣kpein type konp-kpein, "條件單位kmein type konp-kmein, "計(jì)量單位kwmeng type vbap-kwmeng, "訂單數(shù)量end of gt_out. data:begin of gs_a904,kschl type konp-kschl, "條件類型kbetr type konp-kbetr, "條件金額konwa type konp-konwa, "條件貨幣kpein type konp-kpein, "條件單位kmein type konp-kmein, "計(jì)量單位end of gs_a904. define init_fieldcat.CLEAR WA_FIELDCAT.WA_FIELDCAT-FIELDNAME = &1.WA_FIELDCAT-COLTEXT = &2.APPEND WA_FIELDCAT TO IT_FIELDCAT. end-of-definition.************************************************************************ * *選擇界面程序邏輯塊 * ************************************************************************ selection-screen begin of block blk1 with frame title text-100. parameters : p_file like rlgrap-filename memory id file. selection-screen end of block blk1.selection-screen function key 1.initialization.gw_textfield-icon_id = '@EZ@'.gw_textfield-icon_text = text-001.sscrfields-functxt_01 = gw_textfield."點(diǎn)擊下載模板at selection-screen.case sscrfields-ucomm.when 'FC01'.perform frm_get_excel_templet.endcase."選擇文件路徑at selection-screen output.at selection-screen on value-request for p_file.perform get_tempath.start-of-selection.if p_file is initial.message '請選擇導(dǎo)入模板路徑' type 'S' display like 'E'.exit.endif.************************************************************************ * *數(shù)據(jù)處理邏輯塊 * ************************************************************************"獲取到上傳文檔的數(shù)據(jù)perform frm_upload_data."處理上傳文檔的數(shù)據(jù)perform frm_deal_data."AVL輸出perform frm_output.form frm_upload_data .data :lt_excel like alsmex_tabline occurs 0 with header line,l_col type i.field-symbols <fs>.field-symbols: <fs_tab> type standard table,<fs_line> type any.data: dref_table type ref to data,dref_line type ref to data.create data dref_table like table of gt_tab.assign dref_table->* to <fs_tab>.create data dref_line like gt_tab.assign dref_line->* to <fs_line>.call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'exportingfilename = p_filei_begin_col = 1i_begin_row = 2i_end_col = 50i_end_row = 20000tablesintern = lt_excelexceptionsinconsistent_parameters = 1upload_ole = 2others = 3. ************把 表 LT_TAB 的內(nèi)容給到UPD_TAB1clear : gt_tab. refresh :gt_tab.delete lt_excel where row = '0001'.loop at lt_excel.l_col = lt_excel-col.assign component l_col of structure <fs_line> to <fs>.if <fs> is assigned.<fs> = lt_excel-value.endif.at end of row.append <fs_line> to <fs_tab>.clear <fs_line>.endat.endloop.append lines of <fs_tab> to gt_tab.g_dcount = lines( gt_tab ). "導(dǎo)入的記錄數(shù)unassign: <fs>,<fs_tab>,<fs_line>.clear: lt_excel[],lt_excel,l_col,dref_table,dref_line. endform. " FRM_UPLOAD_DATAform frm_va01_bapi.data:l_order_header_in like bapisdhd1, "銷售訂單抬頭l_order_header_inx like bapisdhd1x, "銷售訂單抬頭更新gt_return like table of bapiret2 with header line, "返回參數(shù)gt_order_items_in like table of bapisditm with header line, "銷售訂單項(xiàng)目gt_order_items_inx like table of bapisditmx with header line, "銷售訂單項(xiàng)目更新gt_order_partners like table of bapiparnr with header line, "銷售訂單合作伙伴l_sender like bapi_sender, "發(fā)送人邏輯系統(tǒng)l_salesdocumentin like bapivbeln-vbeln, "銷售訂單l_logic_switch like bapisdls, "邏輯切換的 SD 復(fù)選框l_order_conditions_in like table of bapicond with header line, "條件類型l_order_conditions_inx like table of bapicondx with header line, "條件類型更新l_salesdocument like bapivbeln-vbeln, "BAPI 銷售訂單gt_order_schedules_in like table of bapischdl with header line, "計(jì)劃行g(shù)t_order_schedules_inx like table of bapischdlx with header line, "計(jì)劃行更新。GT_ORDER_TEXT LIKE TABLE OF BAPISDTEXT WITH HEADER LINE."文本data:cp_eind type string,l_w type string,i_mes type char200."記錄銷售訂單抬頭，用作循環(huán)使用data:begin of gt_head occurs 0,index type string, "銷售訂單auart type string, "銷售憑證類型vkorg type string, "銷售組織vtweg type string, "分銷渠道spart type string, "產(chǎn)品組vkbur type string, "銷售辦事處bstnk type string, "客戶參考augru type string, "訂貨原因kunnr type string, "售達(dá)方kunag type string, "送達(dá)方Remarks TYPE STRING,end of gt_head."獲取到選中的訂單loop at gt_out where box = 'X'.gt_head-index = gt_out-index.gt_head-auart = gt_out-auart.gt_head-vkorg = gt_out-vkorg.gt_head-vtweg = gt_out-vtweg.gt_head-spart = gt_out-spart.gt_head-vkbur = gt_out-vkbur.gt_head-bstnk = gt_out-bstnk.gt_head-augru = gt_out-augru.gt_head-kunnr = gt_out-kunnr .gt_head-kunag = gt_out-kunag.GT_HEAD-Remarks = GT_OUT-Remarks.append gt_head.endloop."刪除重復(fù)項(xiàng)delete adjacent duplicates from gt_head comparing all fields.sort gt_head. * break k99997."進(jìn)行數(shù)據(jù)處理loop at gt_head."銷售訂單clear l_salesdocumentin. * L_SALESDOCUMENTIN = GT_HEAD-INDEX.l_logic_switch-pricing = 'G'."銷售訂單抬頭clear l_order_header_in.l_order_header_in-doc_type = gt_head-auart."銷售訂單憑證類型l_order_header_in-sales_org = gt_head-vkorg."銷售組織l_order_header_in-distr_chan = gt_head-vtweg."分銷渠道l_order_header_in-division = gt_head-spart."產(chǎn)品組l_order_header_in-sales_off = gt_head-vkbur."銷售辦事處l_order_header_in-purch_no_c = gt_head-bstnk."客戶參考l_order_header_in-req_date_h = sy-datum."要求的交貨日期l_order_header_in-doc_date = sy-datum."憑證日期（接收/發(fā)送）if gt_head-auart = 'ZRE' or gt_head-auart = 'ZFR'.l_order_header_in-ord_reason = gt_head-augru."訂單原因endif."抬頭更新clear l_order_header_inx.l_order_header_inx-doc_type = 'X'.l_order_header_inx-sales_org = 'X'.l_order_header_inx-distr_chan = 'X'.l_order_header_inx-division = 'X'.l_order_header_inx-sales_off = 'X'.l_order_header_inx-purch_no_c = 'X'.l_order_header_inx-req_date_h = 'X'.l_order_header_inx-doc_date = 'X'.if gt_out-auart = 'ZRE'.l_order_header_inx-ord_reason = 'X'.endif."銷售合作伙伴gt_order_partners-partn_role = 'AG'."售達(dá)方gt_order_partners-partn_numb = gt_head-kunnr."售達(dá)方編號 * GT_ORDER_PARTNERS-ITM_NUMBER = GT_OUT-POSNR."銷售訂單項(xiàng)目append gt_order_partners.clear gt_order_partners.gt_order_partners-partn_role = 'WE'."送達(dá)方gt_order_partners-partn_numb = gt_head-kunag."送達(dá)方編號 * GT_ORDER_PARTNERS-ITM_NUMBER = GT_OUT-POSNR."銷售訂單項(xiàng)目append gt_order_partners.clear gt_order_partners."抬頭備注GT_ORDER_TEXT-TEXT_ID = 'Z003'."文本IDGT_ORDER_TEXT-LANGU = '1'."語言GT_ORDER_TEXT-TEXT_LINE = gt_head-Remarks."文本APPEND GT_ORDER_TEXT.CLEAR GT_ORDER_TEXT.loop at gt_out where box = 'X' and index = gt_head-index.call function 'CONVERSION_EXIT_CUNIT_INPUT'exportinginput = gt_out-kmeinimportingoutput = gt_out-kmein."銷售訂單項(xiàng)目gt_order_items_in-itm_number = gt_out-posnr."銷售訂單項(xiàng)目gt_order_items_in-material = gt_out-matnr."物料編碼gt_order_items_in-plant = gt_out-werks."工廠gt_order_items_in-store_loc = gt_out-lgort."庫存地點(diǎn)gt_order_items_in-target_qty = gt_out-kwmeng."目標(biāo)數(shù)量gt_order_items_in-price_date = gt_out-prsdt."行項(xiàng)目定價(jià)日期append gt_order_items_in.clear gt_order_items_in."銷售訂單項(xiàng)目更新gt_order_items_inx-itm_number = gt_out-posnr.gt_order_items_inx-material = 'X'.gt_order_items_inx-plant = 'X'.gt_order_items_inx-store_loc = 'X'.gt_order_items_inx-target_qty = 'X'.gt_order_items_inx-price_date = 'X'.append gt_order_items_inx.clear gt_order_items_inx."計(jì)劃行g(shù)t_order_schedules_in-itm_number = gt_out-posnr."銷售憑證項(xiàng)目gt_order_schedules_in-req_qty = gt_out-kwmeng."各銷售單位訂單數(shù)量append gt_order_schedules_in.clear gt_order_schedules_in.gt_order_schedules_inx-itm_number = gt_out-posnr."銷售憑證項(xiàng)目gt_order_schedules_inx-req_qty = 'X'."各銷售單位訂單數(shù)量append gt_order_schedules_inx.clear gt_order_schedules_inx."條件類型l_order_conditions_in-itm_number = gt_out-posnr."銷售訂單項(xiàng)目l_order_conditions_in-cond_type = gt_out-kschl."條件類型l_order_conditions_in-cond_value = gt_out-kbetr."條件金額l_order_conditions_in-currency = gt_out-konwa."條件貨幣l_order_conditions_in-cond_unit = gt_out-kmein ."條件單位l_order_conditions_in-cond_p_unt = gt_out-kpein."條件定價(jià)單位l_order_conditions_in-curr_iso = gt_out-konwa."IOS代碼貨幣append l_order_conditions_in.clear l_order_conditions_in."條件類型更新l_order_conditions_inx-itm_number = gt_out-posnr."銷售訂單項(xiàng)目l_order_conditions_inx-cond_type = gt_out-kschl."條件類型l_order_conditions_inx-cond_value = 'X'."條件金額l_order_conditions_inx-currency = 'X'."條件貨幣l_order_conditions_inx-cond_unit = 'X' ."條件單位l_order_conditions_inx-cond_p_unt = 'X'."條件定價(jià)單位append l_order_conditions_inx.clear l_order_conditions_inx."項(xiàng)目備注GT_ORDER_TEXT-TEXT_ID = 'Z005'."文本 IDGT_ORDER_TEXT-ITM_NUMBER = gt_out-posnr."銷售訂單項(xiàng)目GT_ORDER_TEXT-LANGU = '1'."語言代碼GT_ORDER_TEXT-TEXT_LINE = gt_out-LIN."文本行APPEND GT_ORDER_TEXT.CLEAR GT_ORDER_TEXT.endloop."調(diào)用銷售訂單創(chuàng)建BAPIif gt_head-auart = 'ZRE'."由于BAPI:BAPI_SALESORDER_CREATEFROMDAT2把業(yè)務(wù)對象定義死了， 所以退貨訂單用此BAPI進(jìn)行創(chuàng)建call function 'SD_SALESDOCUMENT_CREATE'exporting * salesdocument = salesdocumentinsales_header_in = l_order_header_insales_header_inx = l_order_header_inx * sender = sender * binary_relationshiptype = binary_relationshiptype * int_number_assignment = int_number_assignment * behave_when_error = behave_when_errorlogic_switch = l_logic_switch * business_object = 'BUS2032' * testrun = testrun * convert_parvw_auart = convertimportingsalesdocument_ex = l_salesdocumenttablesreturn = gt_return[]sales_items_in = gt_order_items_in[]sales_items_inx = gt_order_items_inx[]sales_partners = gt_order_partners[]sales_schedules_in = gt_order_schedules_in[]sales_schedules_inx = gt_order_schedules_inx[]sales_conditions_in = l_order_conditions_in[]sales_conditions_inx = l_order_conditions_inx[] * sales_cfgs_ref = order_cfgs_ref * sales_cfgs_inst = order_cfgs_inst * sales_cfgs_part_of = order_cfgs_part_of * sales_cfgs_value = order_cfgs_value * sales_cfgs_blob = order_cfgs_blob * sales_cfgs_vk = order_cfgs_vk * sales_cfgs_refinst = order_cfgs_refinst * sales_ccard = order_ccardsales_text = GT_ORDER_TEXT[] * sales_keys = order_keys * extensionin = extensionin * partneraddresses = partneraddresses * extensionex = extensionex.else.clear l_salesdocument.call function 'BAPI_SALESORDER_CREATEFROMDAT2'exporting * SALESDOCUMENTIN = L_SALESDOCUMENTINorder_header_in = l_order_header_inorder_header_inx = l_order_header_inx * SENDER = L_SENDER * BINARY_RELATIONSHIPTYPE = * INT_NUMBER_ASSIGNMENT = * BEHAVE_WHEN_ERROR =logic_switch = l_logic_switch * TESTRUN = * CONVERT = ' 'importingsalesdocument = l_salesdocumenttablesreturn = gt_return[]order_items_in = gt_order_items_in[]order_items_inx = gt_order_items_inx[]order_partners = gt_order_partners[]order_schedules_in = gt_order_schedules_in[]order_schedules_inx = gt_order_schedules_inx[]order_conditions_in = l_order_conditions_in[]order_conditions_inx = l_order_conditions_inx[] * ORDER_CFGS_REF = * ORDER_CFGS_INST = * ORDER_CFGS_PART_OF = * ORDER_CFGS_VALUE = * ORDER_CFGS_BLOB = * ORDER_CFGS_VK = * ORDER_CFGS_REFINST = * ORDER_CCARD =ORDER_TEXT = GT_ORDER_TEXT[] * ORDER_KEYS = * EXTENSIONIN = * PARTNERADDRESSES = * EXTENSIONEX = * NFMETALLITMS =.endif.* 處理錯誤消息:通過判斷消息的類型，來判斷BAPI是否成功clear i_mes.loop at gt_return.i_mes = i_mes && '*' && gt_return-type && gt_return-number && gt_return-message.if gt_return-type eq 'E' orgt_return-type = 'A' orgt_return = 'X'.cp_eind = 'X'. "失敗endif.if gt_return-type eq 'W'.l_w = 'X'.endif.endloop.if cp_eind ne 'X'.if l_w <> 'X'."存在警告信息loop at gt_out where index = gt_head-index and box = 'X'.gt_out-tabix = i_mes.gt_out-text = icon_green_light .gt_out-index = l_salesdocument.modify gt_out.endloop.else."成功生成訂單loop at gt_out where index = gt_head-index and box = 'X'.gt_out-tabix = i_mes.gt_out-text = icon_yellow_light .gt_out-index = l_salesdocument.modify gt_out.endloop.endif."提交事務(wù)call function 'BAPI_TRANSACTION_COMMIT'exportingwait = 'X'.commit work and wait.else."存在錯誤，創(chuàng)建失敗loop at gt_out where index = gt_head-index and box = 'X'.gt_out-tabix = i_mes.gt_out-text = icon_red_light .modify gt_out.endloop."回滾事務(wù)call function 'BAPI_TRANSACTION_ROLLBACK' .endif.clear l_order_header_in.clear l_order_header_inx.clear l_logic_switch.clear l_salesdocument.clear gt_return[].clear gt_order_items_in[].clear gt_order_items_inx[].clear gt_order_partners[].clear l_order_conditions_in[].clear l_order_conditions_inx[].clear gt_order_schedules_in[].clear gt_order_schedules_inx[].clear cp_eind.clear l_w.endloop.endform. form bdc_dynpro using program dynpro.clear bdcdata.bdcdata-program = program.bdcdata-dynpro = dynpro.bdcdata-dynbegin = 'X'.append bdcdata. endform. form bdc_field using fnam fval.clear bdcdata.bdcdata-fnam = fnam.bdcdata-fval = fval.append bdcdata. endform. *&---------------------------------------------------------------------* *& FORM FRM_GET_EXCEL_TEMPLET *&---------------------------------------------------------------------* * 下載EXCEL模版 *----------------------------------------------------------------------* * --> P1 TEXT * <-- P2 TEXT *----------------------------------------------------------------------* form frm_get_excel_templet .data: l_excel_control type ref to excel_control,l_objid type string value 'ZVA01', "模板對象名l_filename type string value '銷售訂單導(dǎo)入模板', "模板的EXCEL文件名l_br, "是否顯示路徑選擇l_dst type string value 'D:\'. " 路徑"創(chuàng)建對象create object l_excel_control."下載相關(guān)的EXCEL模板call method l_excel_control->get_excel_templetexportingi_objid = l_objidi_filename = l_filenameis_back_run = l_brchangingc_destination = l_dstexceptionstemplet_is_not_fount = 1can_not_save_file = 2templet_download_failure = 3others = 4.if sy-subrc ne 0.if sy-subrc eq 1.message '沒有找到相應(yīng)的模板!' type 'S' display like 'E'.stop.elseif sy-subrc eq 2.stop.elseif sy-subrc eq 3.message '模板下載失敗!' type 'S' display like 'E'.stop.else.message '取得模板錯誤!' type 'S' display like 'E'.stop.endif.endif.clear: l_excel_control,l_objid, "模板對象名l_filename, "模板的EXCEL文件名l_br, "是否顯示路徑選擇l_dst. " 路徑 endform. " FRM_GET_EXCEL_TEMPLET *&---------------------------------------------------------------------* *& FORM GET_TEMPATH *&---------------------------------------------------------------------* * TEXT *----------------------------------------------------------------------* * --> P1 TEXT * <-- P2 TEXT *----------------------------------------------------------------------* form get_tempath .call function 'WS_FILENAME_GET'exportingdef_filename = ' 'def_path = 'C:\'mask = 'EXCEL 文件 (*.XLS)|*.XLS;*.XLSX|'mode = '0'title = 'FIND THE TEXT FILE FOR UPLOAD'importingfilename = p_fileexceptionsinv_winsys = 1no_batch = 2selection_cancel = 3selection_error = 4others = 5.endform. " GET_TEMPATH *&---------------------------------------------------------------------* *& Form FRM_DEAL_DATA *&---------------------------------------------------------------------* *& 處理文檔數(shù)據(jù) *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* form frm_deal_data ."記錄銷售訂單抬頭，用作循環(huán)使用data:begin of gt_head occurs 0,index type string, "銷售訂單auart type string, "銷售憑證類型vkorg type string, "銷售組織vtweg type string, "分銷渠道spart type string, "產(chǎn)品組vkbur type string, "銷售辦事處bstnk type string, "客戶參考augru type string, "訂貨原因kunnr type string, "售達(dá)方kunag type string, "送達(dá)方remarks type string, "抬頭備注end of gt_head.data:l_index type i.data:matcher type ref to cl_abap_matcher.data:match type c length 1.DATA:L_QX TYPE CHAR1."記錄是否有權(quán)限"獲取到選中的訂單loop at gt_tab.gt_head-index = gt_tab-index.gt_head-auart = gt_tab-auart.gt_head-vkorg = gt_tab-vkorg.gt_head-vtweg = gt_tab-vtweg.gt_head-spart = gt_tab-spart.gt_head-vkbur = gt_tab-vkbur.gt_head-bstnk = gt_tab-bstnk.gt_head-augru = gt_tab-augru.gt_head-kunnr = gt_tab-kunnr .gt_head-kunag = gt_tab-kunag.gt_head-remarks = gt_tab-remarks .append gt_head.endloop."刪除重復(fù)項(xiàng)delete adjacent duplicates from gt_head comparing all fields.sort gt_head.loop at gt_tab.move-corresponding gt_tab to gt_out.clear l_kalks.call function 'CONVERSION_EXIT_ALPHA_INPUT'exportinginput = gt_out-kunnrimportingoutput = gt_out-kunnr.call function 'CONVERSION_EXIT_ALPHA_INPUT'exportinginput = gt_out-kunagimportingoutput = gt_out-kunag.call function 'CONVERSION_EXIT_ALPHA_INPUT'exportinginput = gt_out-posnrimportingoutput = gt_out-posnr.call function 'CONVERSION_EXIT_MATN1_INPUT'exportinginput = gt_out-matnrimportingoutput = gt_out-matnr."權(quán)限校驗(yàn)CLEAR L_QX. * BREAK-POINT."銷售部門權(quán)限authority-check object 'ZVKBUR1'id 'ZVKBUR'field GT_OUT-VKBUR.if sy-subrc <> 0.gt_out-tabix = gt_out-tabix && '*沒有銷售部門' && GT_OUT-VKBUR && '的權(quán)限' .gt_out-text = icon_red_light.L_QX = 'X'.ENDIF."憑證類型權(quán)限authority-check object 'V_VBAK_AAT'id 'AUART'field GT_OUT-AUARTid 'ACTVT'FIELD '01'.if sy-subrc <> 0.gt_out-tabix = gt_out-tabix && '*沒有憑證類型' && GT_OUT-AUART && '創(chuàng)建的權(quán)限' .gt_out-text = icon_red_light.L_QX = 'X'.ENDIF. "銷售范圍權(quán)限authority-check object 'V_VBAK_VKO'id 'VKORG'field GT_OUT-VKORGid 'VTWEG'FIELD GT_OUT-VTWEGID 'SPART'FIELD GT_OUT-SPARTID 'ACTVT'FIELD '01'.if sy-subrc <> 0.gt_out-tabix = gt_out-tabix && '*沒有銷售范圍' && GT_OUT-VKORG && '創(chuàng)建的權(quán)限' .gt_out-text = icon_red_light.L_QX = 'X'.ENDIF.IF L_QX <> 'X'."有權(quán)限"檢查必填字段if gt_out-index is initial or gt_out-auart is initial or gt_out-vkorg is initial or gt_out-vtweg is initial orgt_out-spart is initial or gt_out-vkbur is initial or gt_out-kunnr is initial or gt_out-kunag is initial orgt_out-posnr is initial or gt_out-matnr is initial or gt_out-kwmeng is initial or gt_out-werks is initial orgt_out-lgort is initial.gt_out-tabix = gt_out-tabix && '*存在必填字段為空值，請檢查!' .gt_out-text = icon_red_light.endif.if gt_out-auart = 'ZOR' or gt_out-auart = 'ZYR'.if gt_out-bstnk is initial.gt_out-tabix = gt_out-tabix && '*客戶參考必填，請檢查!' .gt_out-text = icon_red_light.endif.elseif gt_out-auart = 'ZRE' or gt_out-auart = 'ZFR'.if gt_out-augru is initial.gt_out-tabix = gt_out-tabix && '*訂貨原因必填，請檢查!' .gt_out-text = icon_red_light.endif.endif."校驗(yàn)抬頭數(shù)據(jù)一致性clear l_index.loop at gt_head where index = gt_tab-index.l_index = l_index + 1.endloop.if l_index > 1.gt_out-tabix = gt_out-tabix && '*該訂單抬頭數(shù)據(jù)不一致,請檢查！' .gt_out-text = icon_red_light.endif."校驗(yàn)訂單類型是否正確if gt_out-auart = 'ZOR' or gt_out-auart = 'ZYR' or gt_out-auart = 'ZRE' or gt_out-auart = 'ZFR'.else.gt_out-tabix = gt_out-tabix && '*不能導(dǎo)入此' && gt_out-auart && '訂單類型,請檢查！' .gt_out-text = icon_red_light.endif."校驗(yàn)銷售訂單、行項(xiàng)目是否為數(shù)字clear: matcher , match ."正則表達(dá)式matcher = cl_abap_matcher=>create( pattern = '\d+' text = gt_out-index ).match = matcher->match( ).if match <> 'X'.gt_out-tabix = gt_out-tabix && '*銷售訂單' && gt_out-index && '不是數(shù)字類型，請?zhí)顚憯?shù)字！' .gt_out-text = icon_red_light.endif.clear: matcher , match ."正則表達(dá)式matcher = cl_abap_matcher=>create( pattern = '\d+' text = gt_out-posnr ).match = matcher->match( ).if match <> 'X'.gt_out-tabix = gt_out-tabix && '*行項(xiàng)目' && gt_out-posnr && '不是數(shù)字類型，請?zhí)顚憯?shù)字！' .gt_out-text = icon_red_light.endif."校驗(yàn)售達(dá)方和送達(dá)方select*from knvvinto table @data(gt_knvv)where kunnr = @gt_out-kunnrand vkorg = @gt_out-vkorgand vtweg = '00'and spart = '00'.if gt_knvv is initial.gt_out-tabix = gt_out-tabix && '*請BP維護(hù)售達(dá)方' && gt_out-kunnr && '的' && gt_out-vkorg && '銷售視圖!'.gt_out-text = icon_red_light.endif.clear gt_knvv.if gt_out-kunnr <> gt_out-kunag."售達(dá)方與送達(dá)方不一樣的時(shí)候，檢查送達(dá)方select*from knvvinto table gt_knvvwhere kunnr = gt_out-kunagand vkorg = gt_out-vkorgand vtweg = '00'and spart = '00'.if gt_knvv is initial.gt_out-tabix = gt_out-tabix && '*請BP維護(hù)送達(dá)方' && gt_out-kunag && '的' && gt_out-vkorg && '銷售視圖!'.gt_out-text = icon_red_light.endif.clear gt_knvv.endif."校驗(yàn)行項(xiàng)目gt_tab-posnr = gt_tab-posnr mod 10.if gt_tab-posnr <> 0.gt_out-tabix = gt_out-tabix && '*行項(xiàng)目，請以10為單位遞增!'.gt_out-text = icon_red_light.endif."物料工廠校驗(yàn)select*from marainto table @data(gt_mara)where matnr = @gt_out-matnr.if gt_mara is initial.gt_out-tabix = gt_out-tabix && '*該' && gt_out-matnr && '物料不存在'.gt_out-text = icon_red_light.else."物料存在"工廠檢驗(yàn)select*from marcinto table @data(gt_marc)where matnr = @gt_out-matnrand werks = @gt_out-werks.if gt_marc is initial.gt_out-tabix = gt_out-tabix && '*該' && gt_out-matnr && '物料不存在' && gt_out-werks && '工廠視圖!'.gt_out-text = icon_red_light.else."工廠存在"庫存地點(diǎn)檢驗(yàn)select*from mardinto table @data(gt_mard)where matnr = @gt_out-matnrand werks = @gt_out-werksand lgort = @gt_out-lgort.IF gt_mard is INITIAL.gt_out-tabix = gt_out-tabix && '*該' && gt_out-matnr && '物料不存在' && gt_out-werks && '工廠下的' && gt_out-lgort && '庫存地點(diǎn)！'.gt_out-text = icon_red_light.ENDIF.endif."銷售視圖校驗(yàn)SELECT*FROM MVKEINTO TABLE @DATA(GT_MVKE)WHERE matnr = @gt_out-matnrAND VKORG = @GT_OUT-VKORGAND VTWEG = '00'.IF GT_MVKE IS INITIAL.gt_out-tabix = gt_out-tabix && '*該' && gt_out-matnr && '物料不存在' && GT_OUT-VKORG && '銷售視圖!' .gt_out-text = icon_red_light.ENDIF.endif.clear gt_mara.clear gt_marc.clear gt_mard.CLEAR GT_MVKE.IF GT_OUT-AUGRU is NOT INITIAL."訂貨原因檢查SELECT*FROM TVAUINTO TABLE @DATA(GT_TVAU)WHERE AUGRU = @GT_OUT-AUGRU.IF GT_TVAU IS INITIAL.gt_out-tabix = gt_out-tabix && '*該訂貨原因不存在，請?zhí)顚懻_的訂貨原因編碼!' .gt_out-text = icon_red_light.ENDIF.ENDIF.CLEAR GT_TVAU."條件類型if gt_out-prsdt is initial.gt_out-prsdt = sy-datum.endif.if gt_out-auart <> 'ZFR'.selectkalksfrom knvvinto l_kalkswhere kunnr = gt_out-kunnrand vkorg = gt_out-vkorgand vtweg = '00'and spart = '00'.endselect.if l_kalks = 'Z1'."不含稅if gt_out-auart = 'ZYR'.gt_out-kschl = 'ZPR5'.else.gt_out-kschl = 'ZPR1'.endif.elseif l_kalks = 'Z2'."含稅if gt_out-auart = 'ZYR'.gt_out-kschl = 'ZPR4'.else.gt_out-kschl = 'ZPR0'.endif.endif.selecta904~kschlkbetrkonwakpeinkmeinfrom a904join konp on konp~knumh = a904~knumhinto gs_a904where a904~kschl = gt_out-kschland kbstat = '02'and a904~kfrst = ''and a904~vkorg = gt_out-vkorgand a904~kunnr = gt_out-kunnrand a904~vkbur = gt_out-vkburand a904~matnr = gt_out-matnrand a904~datbi >= gt_out-prsdtand a904~datab <= gt_out-prsdt.endselect.if gs_a904 is initial.gt_out-tabix = gt_out-tabix && '*不存在有效價(jià)格，請檢查！'.gt_out-text = icon_red_light.endif.gt_out-kschl = gs_a904-kschl.gt_out-kbetr = gs_a904-kbetr.gt_out-konwa = gs_a904-konwa.gt_out-kpein = gs_a904-kpein.gt_out-kmein = gs_a904-kmein.clear gs_a904.endif.call function 'CONVERSION_EXIT_CUNIT_OUTPUT'exportinginput = gt_out-kmeinimportingoutput = gt_out-kmein.ENDIF.gt_out-kwmeng = gt_tab-kwmeng .if gt_out-txt is initial.append gt_out.endif.clear gt_out.endloop.endform. *&---------------------------------------------------------------------* *& FORM FRM_OUTPUT *&---------------------------------------------------------------------* * TEXT *----------------------------------------------------------------------* * --> P1 TEXT * <-- P2 TEXT *----------------------------------------------------------------------* form frm_output .data: l_title type lvc_title,lt_layout type lvc_s_layo,l_colpos like sy-cucol value 1,lt_fieldcat type slis_t_fieldcat_alv.lt_layout-cwidth_opt = 'X'.lt_layout-box_fname = 'BOX'.refresh : lt_fieldcat."""" 憑證抬頭部份init_fieldcat 'INDEX' '銷售訂單' .init_fieldcat 'TEXT' '標(biāo)識符' .init_fieldcat 'TABIX' '錯誤信息'.init_fieldcat 'AUART' '銷售憑證類型' .init_fieldcat 'VKORG' '銷售組織' .init_fieldcat 'VTWEG' '分銷渠道' .init_fieldcat 'SPART' '產(chǎn)品組' .init_fieldcat 'VKBUR' '銷售辦事處' .init_fieldcat 'KUNNR' '售達(dá)方' .init_fieldcat 'KUNAG' '送達(dá)方' .init_fieldcat 'BSTNK' '客戶參考' .init_fieldcat 'POSNR' '行項(xiàng)目' .init_fieldcat 'MATNR' '物料' .init_fieldcat 'KWMENG' '訂單數(shù)量' .init_fieldcat 'WERKS' '工廠' .init_fieldcat 'LGORT' '庫存地點(diǎn)' .init_fieldcat 'AUGRU' '訂貨原因' .init_fieldcat 'REMARKS' '抬頭備注' .init_fieldcat 'LIN' '行項(xiàng)目備注' .init_fieldcat 'PRSDT' '行項(xiàng)目定價(jià)日期' .init_fieldcat 'KSCHL' '條件類型' .init_fieldcat 'KBETR' '條件金額' .init_fieldcat 'KONWA' '條件貨幣' .init_fieldcat 'KPEIN' '定價(jià)單位' .init_fieldcat 'KMEIN' '計(jì)量單位' .call function 'REUSE_ALV_GRID_DISPLAY_LVC'exportingi_callback_program = sy-repidi_callback_pf_status_set = 'ALV_PF_STATUS'it_fieldcat_lvc = it_fieldcatis_layout_lvc = lt_layouti_callback_user_command = 'USER_COMMAND' * I_GRID_TITLE = L_TITLE * I_DEFAULT = 'X'i_save = 'A'tablest_outtab = gt_outexceptionsprogram_error = 1others = 2.if sy-subrc <> 0.message id sy-msgid type sy-msgty number sy-msgnowith sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.endif. endform. " FRM_OUTPUT **************設(shè)置狀態(tài)欄****************************** form alv_pf_status using rt_extab type slis_t_extab.data: begin of ex_tab occurs 0,fcode like sy-ucomm,end of ex_tab.set pf-status 'ZSD_VA01' excluding ex_tab. endform. "ADD BY KDL_D02 20190624 form user_command using r_ucomm like sy-ucommrs_selfield type slis_selfield.data: l_rsnum(10), "字符型預(yù)留號l_rspos(4), "字符型預(yù)留行號l_msg type string. "存放消息"聲明一個(gè)ALV實(shí)例"取得當(dāng)前的ALV傳給聲明的實(shí)例，其目的就是取當(dāng)ALV的對象。call function 'GET_GLOBALS_FROM_SLVC_FULLSCR'importinge_grid = ref_grid."從ALV實(shí)例出來的數(shù)據(jù)更新ALV對應(yīng)的內(nèi)表call method ref_grid->check_changed_data.case r_ucomm.when 'INPUT'.data:l_x.loop at gt_out where box = 'X'.if gt_out-text = icon_red_light.l_x = 'X'.elseif gt_out-text = icon_yellow_light or gt_out-text = icon_green_light .l_x = 'S'.endif.endloop.if l_x = 'X'.message '存在錯誤數(shù)據(jù)，不能進(jìn)行導(dǎo)入!' type 'E'.elseif l_x = 'S'.message '請勿重復(fù)導(dǎo)入數(shù)據(jù)！！！' type 'E'.else.data:answer type char2.call function 'POPUP_TO_CONFIRM_STEP'exportingdefaultoption = 'Y'textline1 = '警告：'textline2 = '是否需要進(jìn)行導(dǎo)入！（PS:導(dǎo)入前請認(rèn)真核查數(shù)據(jù)是否有誤，如未核查，可以點(diǎn)擊否或者取消來取消導(dǎo)入操作）'titel = '銷售訂單導(dǎo)入'start_column = 25start_row = 6cancel_display = 'X'importinganswer = answer.if answer = 'J'.perform frm_va01_bapi.elseif answer = 'N' or answer = 'A' .message '操作已取消！！！' type 'S'.endif.endif.clear l_x.perform frm_refresh_alv.when '&IC1'.read table gt_out index rs_selfield-tabindex into data(wa_sel_temp).if rs_selfield-value is not initial.IF wa_sel_temp-text = icon_yellow_light or wa_sel_temp-text = icon_green_light.if rs_selfield-fieldname = 'INDEX'."VA03跳轉(zhuǎn)set parameter id 'AUN' field rs_selfield-value.call transaction 'VA03' and skip first screen.endif.ENDIF.endif.when others.exit.endcase. endform. form frm_refresh_alv .data: gr_alvgrid type ref to cl_gui_alv_grid.call function 'GET_GLOBALS_FROM_SLVC_FULLSCR'importinge_grid = gr_alvgrid.call method gr_alvgrid->refresh_table_displayexportingi_soft_refresh = 'X'exceptionsfinished = 1others = 2. endform.

總結(jié)

以上是生活随笔為你收集整理的ABAP 销售订单BAPI创建批导程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。