标签：gt gs inspcharacteristic ABAP task 批导 operation TYPE QP01
1 DATA:gt_task TYPE TABLE OF bapi1191_tsk_c, 2 gs_task TYPE bapi1191_tsk_c, 3 gt_materialtaskallocation TYPE TABLE OF bapi1191_mtk_c, 4 gs_materialtaskallocation TYPE bapi1191_mtk_c, 5 gt_return TYPE TABLE OF bapiret2, 6 gs_return TYPE bapiret2, 7 gt_operation TYPE TABLE OF bapi1191_opr_c, 8 gs_operation TYPE bapi1191_opr_c, 9 gt_inspcharacteristic TYPE TABLE OF bapi1191_cha_c, 10 gs_inspcharacteristic TYPE bapi1191_cha_c. 11 12 DATA: BEGIN OF gt_data OCCURS 0, 13 werks TYPE qpmk-werks, 14 matnr TYPE matnr, 15 maktx TYPE makt-maktx, 16 plnnr TYPE plnnr, 17 gueltigab TYPE qpmk-gueltigab, 18 verwe TYPE verwe, 19 statu TYPE statu, 20 merknr TYPE merknr, 21 verwmerkm TYPE qamv-verwmerkm, 22 kurztext TYPE qpmt-kurztext, 23 stichprver TYPE qamv-stichprver, 24 stellen TYPE qpmk-stellen, 25 masseinhsw TYPE qpmk-masseinhsw, 26 sollwert TYPE qsollwertc, "qkzsollpr, 27 toleranzun TYPE qtolunc, "qkztolun, 28 toleranzob TYPE qtolobc, "qkztolob, 29 lzeitkz TYPE qlzeitkz, 30 steuerkz TYPE qpmk-steuerkz, 31 meins TYPE mara-meins, 32 pmethode TYPE qpmz-pmethode, 33 werkpm TYPE qpmz-werkpm, 34 checkbox(1), 35 status(1), 36 message(255), 37 END OF gt_data . 38 39 DATA:gt_head LIKE TABLE OF gt_data . 40 41 SORT gt_head BY werks matnr plnnr gueltigab verwe statu . 42 DELETE ADJACENT DUPLICATES FROM gt_head COMPARING werks matnr plnnr gueltigab verwe statu. 43 44 LOOP AT gt_head ASSIGNING FIELD-SYMBOL(<fs_head>) WHERE checkbox = 'X' AND status <> 'E'. 45 46 REFRESH gt_task . 47 REFRESH gt_materialtaskallocation . 48 REFRESH gt_operation . 49 REFRESH gt_inspcharacteristic . 50 REFRESH gt_return. 51 CLEAR gs_task . 52 CLEAR gs_materialtaskallocation . 53 CLEAR gs_operation . 54 CLEAR gs_inspcharacteristic . 55 CLEAR gs_return. 56 CLEAR lv_plnnr . 57 58 gs_task-group_counter = '1'. 59 gs_task-valid_from = <fs_head>-gueltigab ."有效起始日 60 gs_task-valid_to_date = '99991231' . 61 gs_task-task_list_usage = <fs_head>-verwe ."用途 62 gs_task-plant = <fs_head>-werks."工厂 63 gs_task-task_list_status = <fs_head>-statu ."状态 64 gs_task-task_measure_unit = <fs_head>-meins ."基本单位 65 gs_task-lot_size_to = '99999999' . 66 gs_task-description = <fs_head>-maktx ."物料描述 67 APPEND gs_task TO gt_task . 68 69 gs_materialtaskallocation-material = <fs_head>-matnr ."物料编码 70 gs_materialtaskallocation-plant = <fs_head>-werks ."工厂 71 gs_materialtaskallocation-group_counter = '1'. 72 gs_materialtaskallocation-valid_from = <fs_head>-gueltigab ."有效起始日 73 APPEND gs_materialtaskallocation TO gt_materialtaskallocation . 74 75 gs_operation-group_counter = '1'. 76 gs_operation-valid_from = <fs_head>-gueltigab ."有效起始日 77 gs_operation-valid_to_date = '99991231' . 78 gs_operation-activity = '0010' . 79 gs_operation-control_key = 'QM01' . 80 gs_operation-plant = <fs_head>-werks ."工厂 81 gs_operation-operation_measure_unit = <fs_head>-meins ."基本单位 82 gs_operation-denominator = '1' . 83 gs_operation-nominator = '1' . 84 gs_operation-base_quantity = '1' . 85 APPEND gs_operation TO gt_operation . 86 87 LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<fs_data>) WHERE werks = <fs_head>-werks AND 88 matnr = <fs_head>-matnr AND plnnr = <fs_head>-plnnr AND gueltigab = <fs_head>-gueltigab AND 89 verwe = <fs_head>-verwe AND statu = <fs_head>-statu . 90 91 CLEAR gs_inspcharacteristic . 92 93 gs_inspcharacteristic-group_counter = '1' . 94 gs_inspcharacteristic-activity = '0010' . 95 gs_inspcharacteristic-inspchar = <fs_data>-merknr ."特性序号 96 gs_inspcharacteristic-valid_from = <fs_data>-gueltigab ."有效起始日 97 gs_inspcharacteristic-valid_to_date = '99991231' . 98 gs_inspcharacteristic-mstr_char = <fs_data>-verwmerkm ."检验特性编码 99 gs_inspcharacteristic-pmstr_char = <fs_data>-werks ."工厂 100 gs_inspcharacteristic-cha_master_import_modus = 'N' . 101 gs_inspcharacteristic-char_descr = <fs_data>-kurztext ."特性名称 102 gs_inspcharacteristic-method = <fs_data>-pmethode . 103 gs_inspcharacteristic-pmethod = <fs_data>-werkpm . 104 gs_inspcharacteristic-scope_ind = '=' . 105 gs_inspcharacteristic-confirmation_category = 'X' . 106 gs_inspcharacteristic-sampling_procedure_ind = 'X' . 107 gs_inspcharacteristic-smpl_procedure = <fs_data>-stichprver ."采样过程 108 gs_inspcharacteristic-smpl_unit = <fs_data>-meins ."基本单位 109 gs_inspcharacteristic-smpl_quant = '1' . 110 gs_inspcharacteristic-long_term_insp_ind = <fs_data>-lzeitkz ."长期特性 111 gs_inspcharacteristic-dec_places = <fs_data>-stellen ."小数位 112 gs_inspcharacteristic-meas_unit = <fs_data>-masseinhsw ."计量单位 113 gs_inspcharacteristic-target_val = <fs_data>-sollwert ."目标值 114 gs_inspcharacteristic-up_tol_lmt = <fs_data>-toleranzob ."规范上限 115 gs_inspcharacteristic-lw_tol_lmt = <fs_data>-toleranzun ."规范下限 116 IF <fs_data>-sollwert <> '' . 117 gs_inspcharacteristic-target_val_check_ind = 'X' . 118 ENDIF. 119 IF <fs_data>-toleranzob <> '' . 120 gs_inspcharacteristic-up_tol_lmt_ind = 'X'. 121 ENDIF. 122 IF <fs_data>-toleranzun <> ''. 123 gs_inspcharacteristic-lw_tol_lmt_ind = 'X' . 124 ENDIF. 125 IF <fs_data>-steuerkz+0(2) = 'XX'. 126 gs_inspcharacteristic-quantitative_ind = 'X'. 127 gs_inspcharacteristic-meas_value_confirm_ind = 'X' . 128 gs_inspcharacteristic-result_recording_type = '+' . 129 ENDIF. 130 APPEND gs_inspcharacteristic TO gt_inspcharacteristic . 131 ENDLOOP . 132 133 CALL FUNCTION 'BAPI_INSPECTIONPLAN_CREATE' 134 * EXPORTING 135 * TESTRUN = ' ' 136 * PROFILE = 137 IMPORTING 138 group = gv_group 139 groupcounter = gv_groupcounter 140 TABLES 141 task = gt_task 142 materialtaskallocation = gt_materialtaskallocation 143 operation = gt_operation 144 * REFERENCEOPERATION = 145 * PRODUCTIONRESOURCE = 146 inspcharacteristic = gt_inspcharacteristic 147 * TEXTALLOCATION = 148 * TEXT = 149 return = gt_return 150 * INSP_CHAR_VALUES = 151 . 152 153 READ TABLE gt_return INTO gs_return WITH KEY type = 'E' . 154 IF sy-subrc = 0 . 155 156 CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. 157 158 ELSE. 159 160 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' 161 EXPORTING 162 wait = 'X'. 163 164 ENDIF. 165 166 ENDLOOP.
标签：gt,gs,inspcharacteristic,ABAP,task,批导,operation,TYPE,QP01 来源： https://www.cnblogs.com/TigerMan/p/16643234.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。