2,679
社区成员
发帖
与我相关
我的任务
分享
DATA:BEGIN OF IT_AFPO OCCURS 0,
DWERK LIKE AFPO-DWERK,
CHARG LIKE AFPO-CHARG,
AUFNR LIKE AFPO-AUFNR,
PLNBEZ LIKE AFKO-PLNBEZ,
PSMNG LIKE AFPO-PSMNG, "投入
FEVOR LIKE AFKO-FEVOR,
END OF IT_AFPO.
DATA:BEGIN OF IT_AFRU OCCURS 0,
WERKS LIKE AFRU-WERKS,
AUFNR LIKE AFPO-AUFNR,
VORNR LIKE AFRU-VORNR,
LMNGA LIKE AFRU-LMNGA, "合格品
MEINH_t LIKE AFRU-ERNAM,
NOMNG LIKE AFRU-NOMNG,
XMNGA LIKE AFRU-XMNGA, "废品
MENGE_Z LIKE AFRU-MENGE_Z, "换算数量
MEINS_Z LIKE AFRU-MEINS_Z, "换算单位
PRDUT LIKE AFRU-PRDUT, "班组
ISDD LIKE AFRU-ISDD,
ISDZ LIKE AFRU-ISDZ,
IEDD LIKE AFRU-IEDD,
IEDZ LIKE AFRU-IEDZ,
ISBD LIKE AFRU-ISBD, " 处理时间
ISBZ LIKE AFRU-ISBZ,
IEBD LIKE AFRU-IEBD,
IEBZ LIKE AFRU-IEBZ,
ISM01 LIKE AFRU-ISM01,
ISM03 LIKE AFRU-ISM03,
LTXA1 LIKE AFRU-LTXA1,
PRDAT LIKE AFRU-PRDAT,
AENAM LIKE AFRU-AENAM,
AUFPL LIKE AFKO-AUFPL,
STZHL LIKE AFRU-STZHL,
ERSDA LIKE AFRU-ERSDA,
BUDAT LIKE AFRU-BUDAT,
MEINH LIKE AFRU-MEINH,
END OF IT_AFRU.
DATA DATE LIKE SY-DATUM.
SELECT AFPO~DWERK AFKO~AUFNR AFPO~MATNR as PLNBEZ AFPO~CHARG AFPO~PSMNG AFKO~FEVOR AFKO~AUFPL
FROM AFKO INNER JOIN AFPO
ON AFKO~AUFNR = AFPO~AUFNR
INTO CORRESPONDING FIELDS OF TABLE IT_AFPO
WHERE AFPO~DWERK = P_DWERK
AND AFPO~AUFNR IN P_AUFNR
AND AFPO~MATNR IN P_MATNR
AND AFKO~FEVOR IN P_FEVOR
and AFPO~CHARG in P_CHARG.
IF F_WR = 'X' .
SELECT *
FROM AFRU
INTO CORRESPONDING FIELDS OF TABLE IT_AFRU
FOR ALL ENTRIES IN IT_AFPO
WHERE AUFNR = IT_AFPO-AUFNR
AND WERKS = IT_AFPO-DWERK
AND ERSDA IN P_ERSDA "确认输入日期
AND PRDUT IN P_PRDUT "生产班组字段
AND STOKZ <> 'X' "标识:凭证已被冲销
AND STZHL = 0 . "被取消确认的确认计数器
ELSE.
SELECT *
FROM AFRU
INTO CORRESPONDING FIELDS OF TABLE IT_AFRU
FOR ALL ENTRIES IN IT_AFPO
WHERE AUFNR = IT_AFPO-AUFNR
AND WERKS = IT_AFPO-DWERK
AND ERSDA IN P_ERSDA
AND PRDUT IN P_PRDUT.
ENDIF.