SELECT matnr serge external _ number stat oper _ date oper _ time matnr serge oper message FROM INTO CORRESPONDING FIELDS OF TABLE lt _ tplnr _ dtl FOR ALL ENTRIES IN lt _ acct _ org WHERE external _ number = lt _ acct _ org - account _ number AND matnr ='1014000' OR matnr ='1016000' OR matrr = '1135000' OR matrnr ='1136000' OR stat E0006' GROUP BY external _ number matnr HAVING COUNT (*)=1. 这段代码 FOR ALL ENTRIES IN和HAVING COUNT (*) 冲突。如何修改
时间: 2024-02-14 12:32:57 浏览: 118
可以将代码改为以下形式来避免冲突:
SELECT matnr, serge, external_number, stat, oper_date, oper_time, oper_message
FROM lt_tplnr_dtl
WHERE external_number IN (lt_acct_org-account_number)
AND matnr IN ('1014000', '1016000', '1135000', '1136000')
AND stat = 'E0006'
GROUP BY external_number, matnr, serge, stat, oper_date, oper_time, oper_message
HAVING COUNT(DISTINCT external_number, matnr) = 1.
这个修改后的代码与原代码具有相同的功能,但避免了 ALL ENTRIES 和 COUNT(*) 冲突的问题。
相关问题
帮我分析这段abap代码:FUNCTION zhs_jcy_dmt001. *"---------------------------------------------------------------------- *"*"本地接口: *" IMPORTING *" VALUE(IM_MTART) TYPE ZHS_RANGE_MTART OPTIONAL *" VALUE(IM_MATKL) TYPE ZHS_RANGE_MATKL OPTIONAL *" VALUE(IM_SENDMSG) TYPE FLAG DEFAULT SPACE *" TABLES *" ET_DATA STRUCTURE ZHS_JCY_DTM001 OPTIONAL *"---------------------------------------------------------------------- INCLUDE zgen_bc_x_fmlog_first_phase. WAIT UP TO 3 SECONDS. INCLUDE zgen_bc_x_fmlog_last_phase. EXIT. DATA: lo_jcy TYPE REF TO zcl_hans_jcy_handle, lt_dtm001 TYPE TABLE OF zhs_jcy_dtm001, ls_dtm001 TYPE zhs_jcy_dtm001, lt_dtmc01 TYPE TABLE OF zhs_jcy_dmt01, ls_dtmc01 TYPE zhs_jcy_dmt01. "实例化类 CREATE OBJECT lo_jcy EXPORTING im_hs_tcode = gc_hs_tcode_dtm001. "判断监控点是否启用 IF lo_jcy->is_active( ) EQ zcl_hans_jcy_handle=>no. RETURN. ENDIF. PERFORM frm_get_dmtc01. REFRESH:lt_dtm001. SELECT a~mtart a~matnr b~maktx a~matkl INTO CORRESPONDING FIELDS OF TABLE lt_dtm001 FROM mara AS a INNER JOIN makt AS b ON a~matnr EQ b~matnr AND b~spras EQ sy-langu WHERE mtart IN im_mtart AND matkl IN im_matkl. DATA: l_char TYPE c, l_num TYPE n, l_len TYPE i, l_cnt TYPE i. LOOP AT lt_dtm001 INTO ls_dtm001. CLEAR l_cnt. LOOP AT gt_dtmc01 INTO gs_dtmc01 WHERE mtart EQ ls_dtm001-mtart AND zmatcode NE space. CLEAR:l_char,l_len. CONDENSE: gs_dtmc01-zmatcode. l_len = strlen( gs_dtmc01-zmatcode ). DO l_len TIMES. l_char = gs_dtmc01-zmatcode+l_cnt(1). ENDDO. ENDLOOP. ENDLOOP. CHECK lt_dtm001[] IS NOT INITIAL. ls_dtm001-statm = gc_mat_statm_k. MODIFY lt_dtm001 FROM ls_dtm001 TRANSPORTING statm WHERE statm NE gc_mat_statm_k. et_data[] = lt_dtm001[]. FREE:lt_dtm001. CHECK im_sendmsg EQ 'X'. REFRESH:gt_zhs_jcy_ab_data. CLEAR: gs_return. LOOP AT et_data INTO ls_dtm001. "设置WS参数值 CLEAR gs_zhs_jcy_ab_data. * KEY值 gs_zhs_jcy_ab_data-key03 = ls_dtm001-statm. gs_zhs_jcy_ab_data-key02 = ls_dtm001-mtart. gs_zhs_jcy_ab_data-key01 = ls_dtm001-matnr. "栏位值 gs_zhs_jcy_ab_data-field01 = ls_dtm001-mtart. gs_zhs_jcy_ab_data-field02 = ls_dtm001-matnr. gs_zhs_jcy_ab_data-field03 = ls_dtm001-maktx. gs_zhs_jcy_ab_data-field04 = ls_dtm001-zmatcode. gs_zhs_jcy_ab_data-field05 = ls_dtm001-matkl. gs_zhs_jcy_ab_data-field06 = ls_dtm001-statm. APPEND gs_zhs_jcy_ab_data TO gt_zhs_jcy_ab_data. ENDLOOP. CALL METHOD lo_jcy->call_ws_monitor EXPORTING im_zhs_jcy_ab_data = gt_zhs_jcy_ab_data IMPORTING ex_return = gs_return. FREE lo_jcy. ENDFUNCTION.
这段ABAP代码是一个函数模块,名为ZHS_JCY_DMT001。以下是代码的分析:
1. 首先,代码包含了一个结构体ET_DATA,用于存储结果数据。
2. 在代码的开头,引入了一个名为ZGEN_BC_X_FMLOG_FIRST_PHASE的INCLUDE,然后等待3秒钟,最后引入了一个名为ZGEN_BC_X_FMLOG_LAST_PHASE的INCLUDE。
3. 接下来定义了一些变量,包括一个指向ZCL_HANS_JCY_HANDLE类的引用变量LO_JCY,一个内表LT_DTM001和LS_DTM001用于存储数据,以及一些其他的内表和数据对象。
4. 使用CREATE OBJECT语句实例化了LO_JCY对象,并传入了一个参数IM_HS_TCODE。
5. 通过调用LO_JCY对象的IS_ACTIVE方法判断监控点是否启用,如果未启用,则返回。
6. 调用一个名为FRM_GET_DMTC01的子程序。
7. 清空LT_DTM001内表。
8. 使用SELECT语句从MARA和MAKT表中获取数据,并将结果存储在LT_DTM001内表中。查询条件是MTART字段在IM_MTART中,MATKL字段在IM_MATKL中。
9. 定义了一些其他变量。
10. 使用循环遍历LT_DTM001内表中的每一行数据。在循环内部,使用另一个循环遍历GT_DTMCO1内表中满足条件的行,并对其中的ZMATCODE字段进行处理。
11. 检查LT_DTM001内表是否为空。
12. 修改LT_DTM001内表中的STATM字段的值为GC_MAT_STATM_K,除非STATM字段的值已经是GC_MAT_STATM_K。
13. 将LT_DTM001内表的数据赋值给ET_DATA内表。
14. 清空LT_DTM001内表。
15. 检查IM_SENDMSG是否等于'X'。
16. 清空GT_ZHS_JCY_AB_DATA内表和GS_RETURN结构体。
17. 使用循环遍历ET_DATA内表中的每一行数据,并将相应的字段值赋值给GS_ZHS_JCY_AB_DATA结构体的对应字段。
18. 将GS_ZHS_JCY_AB_DATA添加到GT_ZHS_JCY_AB_DATA内表中。
19. 调用LO_JCY对象的CALL_WS_MONITOR方法,并传入GT_ZHS_JCY_AB_DATA参数,将返回结果存储在GS_RETURN结构体中。
20. 清空LO_JCY对象。
这是一个用于处理数据并调用外部服务的ABAP函数模块。
FUNCTION ZSQ_FUN_TEXT. *"---------------------------------------------------------------------- *"*"Local interface: *" EXPORTING *" REFERENCE(PE_RESULT) TYPE I *" TABLES *" PT_DATA STRUCTURE ZSMM_MAKT *" EXCEPTIONS *" NO_ZERO *"---------------------------------------------------------------------- DATA GT_MAKT TYPE TABLE OF MAKT WITH HEADER LINE . SELECT * INTO TABLE GT_MAKT FROM MAKT FOR ALL ENTRIES IN PT_DATA WHERE MATNR = PT_DATA-MATNR AND SPRAS = 1 . LOOP AT PT_DATA. READ TABLE GT_MAKT WITH KEY MATNR = PT_DATA-MATNR . IF SY-SUBRC = 0. PT_DATA-MAKTX = GT_MAKT-MAKTX . MODIFY PT_DATA . ENDIF. ENDLOOP. ENDFUNCTION.
这段 ABAP 代码是一个函数 ZSQ_FUN_TEXT,其中主要的逻辑是根据传入的 PT_DATA 表中的 MATNR 字段值,从 MAKT 表中查询对应的 MAKTX 值,并将查询结果更新回 PT_DATA 表中的 MAKTX 字段。具体步骤如下:
1. 声明了一个内表 GT_MAKT,用于存储 MAKT 表的查询结果。
2. 使用 SELECT 语句,将满足条件的 MAKT 表记录查询出来,并存入 GT_MAKT 内表中。
3. 使用 LOOP AT 语句,遍历 PT_DATA 表中的每一行数据。
4. 使用 READ TABLE 语句,在 GT_MAKT 内表中根据 MATNR 字段查找对应的记录。
5. 如果找到了匹配的记录(即 SY-SUBRC = 0),则将 GT_MAKT-MAKTX 的值赋给 PT_DATA-MAKTX,并使用 MODIFY 语句更新 PT_DATA 表中的数据行。
这样,函数 ZSQ_FUN_TEXT 就完成了从 MAKT 表中获取 MAKTX 值,并更新到 PT_DATA 表中的逻辑。
阅读全文