COOIS选择条件增强.docx

一：数据字典增加新字段(如果字段在结构IOHEADER需要增强)IOHEADER二：输入界面新增输入字段IOCTOPSLZPP_COOIS_BADI©程序(E)编辑(E)转到(6)实用程序(5) Environment 系统(丫)帮助(H)e7 «taies-T丁附借1为由4为力团i曲弊ABAP编辑器:更改增强ZPP_COO工S_BADI1 少安哈僧强 用净 晶盘DCS 专电模式 D创建 /更改 魏替换 今髓肖包含文件IOCTOPSL活动5 6 7 8 9 789012345 777778888888888999999s_scatFOR ioitem sgt_scat.SELECTION-SCREEN ENDOF BLOCK sll.求 F熨S - Enahnceent for Fashion attributes* season , collection , the卷e , combined order , master ENHANCEMENT-POINT ioctopsl_04 SPOTS es_ioctopsl STATIC1 ZPP_t：OOIS_BADI.“active versionSELECTION-SCREEN BEGIN OF BLOCK Z01 WITH FRAME TITLESELECT-OPTIONS: S_IDAT2 FOR IOHEADER-IDAT2 MODIF SELECTION-SCREEN END OF BLOCK Z01.§ lERDENHANCE1ENT.SELECTION-SCREEN BEGIN OF BLOCK SELECT-OPTIONS:s_arbplFORiooper-arbpls_parbplFORiooper-arbpls_owerkFORiooper-werksPARAMETERS:p_selopr LIKE tj48t-selid SELECTION-SCREEN BEGIN OF LINE.orderINCLUDE BOUND .TEXT-ZO1.ID Z01.sl2 WITH FRAME TITLE TEXT-sl2.MATCHCODE OBJECT cram MODIF ID fau, MATCHCODE OBJECT cram MODIF ID fau, MODIF ID fau.MODIF ID fau.设置只有清单字段选择PPIOHOOO订单抬头 时字段才显示程序：PPIO_ENTRY_AT_SEL_SCR_OUTFORM at_selection_screen_out增强点：ENHANCEMENT-SECTION EHP603_PPIO_ENT AT_SCR_OUT 02 SPOTS ES_PPIO_ENTRY.©程序(E)编辑(E)转到(6)实用程序S)Environment系统(Y)帮助国)« sie®eiaffic&ieeee as 弟ABAP编辑器:显示包含文件 PP1O_ENTRY_AT_SEL_SCR_OUT岛拈 撤俏包含文件-P265266267268269270271272273274275276277278279280281282JPIO ENTRY AT SEL SCR OUT活动ENHANCEMENT POINT EHP603 PPIO ENT AT SCR OUT 01 SPOTS ES PPIO ENTRY.* PBO for screen 1206ELSEIF i_dynnr = con_screen_t ab_select ions.中* selection criteria for production orders is only displayed, if* production orders are selectee* selection criteria for planned orders is only displayed, if比planned orders are selecteabENHANCEMENT-SECTIONEHP603 PPIO ENT AT SCR OUT 02 SPOTS ES PPIO ENTRY.PERFORM dyn_ 1200_pbo 7 E飒 COIS_ SFWS_PPIO_ENT_AT_ SEL_ SCR PP-SFCSFWS_SC_OIS PERFORM dyn 1200 pbo 01 "/ ENHO COIS SFWS PPIO ENTAT SEL SCR PP-SFC 弧 SFWS SC OIS ) USINGcs_scl100-select_prodordscs_scl100-select_plannedordscs_scl 100-ppio_listtyp. "/初初 COIS_ SFWS_PPIO_ENT_AT_ SEL_ SCR PP-SFC XAN_ SFWS_前|通函|1ANCFWRNT SECT TON.用5： ?弗 沼表 田小2goi 29 r ?92： ?93： ?94； ?95： ?96： ?9不 ?98： 299： 而了 )01 )02? 江 山不 汇15； m玮307?$-St art: EHP603_ PPIO_ E肛 A7 SCR_ OUT_ 02C ENHANCEMENT 1 ZPP COOIS BAD I 03.“active versionPERFORM dyn_ 1200_pbo " ENHO COIS_ SFVS_PPIO_ENT_AT_ SEL_ SCR PP-SFC SFWS_SC_OIS PERFORM dyn 1200 pbo (H 7 ENHO COIS SNS PPIO ENTAT SEL SCR PP-SFC XAN SFWS SC OIS )USINGcs_scl100-select_prodordscs_scl100-select_plannedordscs_scl 100-ppio_llsttyp. ENHO COIS_ SFWS_PPIO_ENT_AT_ SEL_ SCR PP-SFC XAN. SFLOOP AT SCREEN.IF P SCllOO-PPIO LISTTYP = ,PPIOHOOO,.ELSE.IF SCREEN GROUP 1 = 'Z(H' SCREEN ACTIVE = 0.ENDIF.ENDIF.MODIFY SCREEN.ENDLOOP.ENDENHANCEMENT.比静比£一茎nd，ENPSC? 萍TC RMT)了 9方 NFT C2PO少d哈京，耳4 A X S ©电模式席4插入d替换二删除365 37K 380 395 40R 41& 42K 43R 445 45R 46s> 475 48R 49?> 50K 51R 525 53R 5啖 555Uux 57$58：5眩 605blR62为63gp_noalsqTYPE iocsel-flg_no_alt_seq ,p_pickTYPE iocsel-flg_rework ,p_pickhvTYPE iocsel-flg_rework ,p_fuzzyTYPE iocsel-ft s_flg_fuzzy ,p_keywrdTYPE iocsel-ft s_keywords ,p_no_relTYPE flag.pa_nmontTYPE flag,Start:- Changes for Mass Processing With Ch aract eristics selection-p_atnamTYPE cabn-atnam,p_atwrtTYPE cawn-atwrt.p_at innTYPE cawn-at inn,p_atwrt 1TYPE cawn-atwrt,p_atf orTYPE cabn-atfor,p_atf IvTYPE c awn-at fl v.p_atf lbTYPE cawn-atfib,End: Changes for Mass ProcessingCh ar act erz stz cjt selectionp_aitypTYPE ioheader-autyp VALUE T0'.RANGES:三：取数程序条件字段定义增强点程序：LCOISSELECTTOP，q '口 « a®®eieGalecaeissT©ABAP编辑器;更改增强 ZPP_COOIS_BAD1_OT1 寺 少4咕 07僧强:同4 品金R国 后电模式 D创建 /更改 温替换 今撤俏 文才i包含文件LCOISSELECTTOP活动DATA: p_wb_dev TYPE co_flg_wipbdev.DATA: p_pc_dev TYPE fl£_pc二deviation. ” £JW /SAPXP/PFOC_BTCH_LCOISSELECOOO IS-XP-PP /SAP黜/PROCESSENHANCEMENT-POINT LCOISSELECTTOP_01 SPOTS ES_PRIO_ENTRY_F_START_OF_S STATIC .$兴 $*E ENHANCEMENT 1 ZPP_COOIS_BADI_01. active versionRANGES: S_IDAT2 FOR IOHEADER-IDAT2.ENDENHANCEMENT.'M-End:选手久瓦访流2 Oi检於程序：SAPDBIOC报表活动SAPDBIOC求 SELECT-OPTIONS and PARAMETERS will be checked automatically.PROGRAM sapdbioc DEFINING DATABASE ioc.然 Dat endekl arati onen INCLUDE dbioctop.DATA: p_wb_dev TYPE co_flg_wipbdev. / Begin £JWf LO_ SGT_ SFWS_ 03_ SAPDBIOC LO-SGT LO_ SGT_ SFWS_ 03 Stock Segment次 RA6ES: s_scat FOR afpo-sgt_scat .End LO_ SGT_ SFWS_ 03_ SAPDBIOC LO-SGT LO_ SGT_ SFWS_ 03 7 Begin E脸 /SAPMP/PROC_BTCH_ SAPDBIOC IS-1IP-PP /SAPJP/PROCESS_ BA TCH 然 only defined to be syntactically correctis only used in tx. COOIS)DATA: p_pc_dev type f1g_pc_deviation. / End 1幅 /SAPMP/PROCBTCH_ SAPDBIOC IS-MP-PP /SAPMP/PROCESS_ BA TCH ENHANCEMENT-POINT SAPDBIOC 01 SPOTS ES SAPDBIOC STATIC .fl-78wyol23456733333333EHHANCEMENT 1 ZPP_COOIS_BADI_04.| RANGES: S_IDAT2 FOR IOHEADER-IDAT2.KAWGE3：*UDA1 FUK lUW3NF-bUDAl . ENDENHANCEMENT. 'M-End:SAP 'i)BlbC_ 01“w ?tive version然欢欣康虎然比次次威比比欢然然或欢然就然欢欢欢欢欢成然欢成欢欢然欢欢就欢康欢成就欢然欢欢然欢欢然欣就欢坎威威米就就就就然求或 / PLEASE DO WT CHANGE DUALLY (BEGI OF BLOCK) / *次求求 Data structures for search pattern selection求/ / apasf nn mt ea越"济a俎工 v 仔g op wmc) / a四：取数程序-条件数据传递增强点LCOISSELECTU03FORM reset_parameters.函数：COIS SELECT PARAMETERS SETU"叱保吠l 口涮祖I=/衣土"幺/ 为用区抒 9) Cl iviiuiimeiii.示玩 UJ¥助1口/o o o o Q o o o o o 1- 1- 1A 11 1- 1-0 12 345678901=22222233s_aufnr Ls_matnrs_werks,s_pwerk Ls_auart1,s_dispo :,s_f evor ,s_kunnr ,s_kdauf1,s_kdpos ：,s_projn ,s_seqnr ：,s_aprio 口，s_arbpl口，s_owerk ,s_compo ,s_cwerk ,s_lgort j,s_bdter 门，s_eckst js_ecken ,s_terst,s_teren Ls_terf r ,s_istst ，s_isten ,s_istfr ：,函数构建器:增强ZPP_8SS_BAD1_01更改so 堂G哈 引7再4 品叁口 U 霍模式函数模块文档 D创建 /更改函数模块COI S_SELECT_PARAMETERS_SET活动属性导入r导出【正在更改屋表r例外/源代码IStart：- Change for Mass Processing with Ch aracteristics Selection p_atnam5 p_atwrt, p_at inn, p_atflv, p_atfor, p_atflb, p_atwrt 1,End：- Change for 熨ass Processing with Ch ar act eri st i cs Selection-* planned orders pa_umonlj pa_kapfx, pa_peonl, p_auffx, p_fullav, p_partav, p_noconf, p_ncheck, p_ncheck, p_t imfen, p_tfoff,* clear range tables - note 2387378s_plnum , so_verid , so_m01_f , so_m01_p , so_m02_p , s_sernr , s_pertr ."/ End £JW COIS_ SFWS_LC0ISSELECTU03 PP-SFC.蹴 SFWS_SC_OIS )EMD-ENHANCEMENT-SEC TION.$-Start: (1)ENHANCEMENT 2 ZPP_COOIS_BADI_01. active version“4/ *CLEAR: S_IDAT2.""""4""""*"*"*""""""""""'4"""，""""""""乂ENDENHANCEMENT. ENDFORM.clear parameters成4决I 成名 Forjn fill parsjuetersI蟋求E FORM fill_parameters USING it_parameter TYPE rsparams_tt."""“，4"4""，“"4“4，“4“，4""“，4”“数据在以下代码中动态传输(变量名相同，此处只是介结不需要更改) LCOISSELECTU03FORM fill_parameters函数：COIS SELECT PARAMETERS SET1391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781 7Q函数构建器:显示 COIS_SELECT_PARAMETERS_SET口 ：空哈领加/耳号晶111Ptri后电限电插入r"卅后数模块COIS SELECT PARAMETERS SET活动属性 导入 导出正在更改表 例外 源代码<low>.欢 fill selection parametersLOOP AT it_parameter ASSIGNING <ls_rsparams>.IF <ls_rsparams>-kind = P ,CHECK NOT <ls_rsparams>-low IS INITIAL.CASE <ls_rsparams>-selname.WHEN '比KZ_E1'.欣capping P_XZ_E1 to P_EXCL1ASSIGN (P.EXCLT) TO <field>.WHEN 'P_KZ_E2,.就capping _P_KZ_E2 to P_EXCL2ASSIGN (,P_EXCL2,) TO <field>.WHEN OTHERS.ASSIGN <ls_rsparams>-selname TO <field>. ENDCASE.CHECK sy-subrc = 0.<field> = <ls rsDarams>-low.ELSE.CHECK NOT <ls_rsparams>-sign IS INITIAL.ASSIGN ：<ls_rsparams>-selname TO <field>.CHECK sy-subrc = 0.CONCATENATE <ls_rsparams>-selname INTO lv_table.ASSIGN ：lv_table' TO table.CHECK sy-subrc = 0.field)= <ls_rsparams>-sign.< field>+l(2) = <ls_rsparams>-option.ASSIGN COMPONENT 7 LOWOF STRUCTURE <field> TO <low>.CHECK sy-subrc = 0.< low> = <ls_rsparams> low.ASSIGN COMPONENT 'HIGH' OF STRUCTURE <field> TO <high>.CHECK sy-subrc = 0.< high> = <ls_rsparams>-high.APPEND <field> TO <table>.ENDIF." Begin E崛 COIS_ SFWS_ L COISSELECTU03 PP-SFC &碌 SFWS_SC_OIS ) READ TABLE it.parameter WITH KEY seiname = ? P_AUTFP，ASSIGNING ls_rsparams>.五：取数程序取数增强点DBIOC_FILL_IOHEADER_TABFORM/ FILL_IOHEADER_TAB增强：ENHANCEMENT-SECTION DBIOC_FILL_IOHEADER_TAB_06 SPOTS ES_DBIOC_FILL_IOHEADER TAB INCLUDE BOUND .e «01包6念1+的值14伫1£1为1句团10）理ABAP编辑器:更改增强 ZPP_COOIS_BADI_02O 投哈片匕，熠强 耳号 A X C3 I后电模式 口创建 /更改 选替换包含文件DBI OC_FI LL_I OHEADER_TAB活动106107108ANDcaufv ftrmi IN s_istfrANDcaufv loekz IN r_loekz.ENDIF.109110111112113114115H6117148119120121122123124125126127END-EmAWEIRNT-SECTION." $-Start:DBIOCyiLL_IOHEADER_TAB_066 ENHANCEMENT 1 ZPP_COOIS_BADI_02. "active version 中 IF s_isten IS INITIAL.SELECT * FROM caufv INTO TABLE caufv_tmpFOR ALL ENTRIES IN aufnr.rangeWHEREaufnraufnr_range-lowANDwerksIN s_werkysANDautypINr_autypANDgstrpINs_ecksxANDgltrpINs_eckenANDgstrsINs_terstANDgltrsINs_terenANDft rmsINs.terfrANDgstriINs_iststANDft rmiINs_istfrAWTJXUtJKZI_XUCKZANDJfeSfcIDAT2INS_IDAT2.128129130131132133134135136137138139140141142143144145146147148149 心Fur Selektion uber Istende anderen Select verwenden wegen GLTRI! SELECT * FROM caufvJOIN afpo ON afpo aufnr = caufv aufnrINTO CORRESPONDING FIELDS OF TABLE caufv_tmpFOR ALL ENTRIES IN aufnr,rangeWHERE AND AND AND AND AND AND AND ANDcaufv aufnr =caufv werks caufv autyp caufv gstrp caufv gitrp caufv gstrs caufv gltrs caufv ftrms caufv gstriIN IN IN IN IN IN IN INaufnr_range-low s_werksr_autyp s_eckst s_ecken s_terst s_teren s_terfr s iststfur 1st ende t erjjtin AFPO-LTRMI verwendenANDANDANDANDANDENDIF.1afpo Itrmi IN s_istenafpo posnr = 1afpo scat IN r_ scat caufv ftrmi IN s_istfr1 hpVt TN r 1 hpVtIDAT2 IN S IDAT2.DBIOC FILL IOHEADER TAB 06-其他先则虹取数逻辑更改处函数：COIS SELECT ORDERS READ