BELNR LIKE EKBE-BELNR, "物料凭证编号 BEWTPLIKEEKBE-BEWTP, "e收货 q发票 BUDAT LIKE EKBE-BUDAT, "过账日期 MENGELIKEEKBE-MENGE, " DMBTR LIKE EKBE-DMBTR, ""库存现金 SHKZG LIKE EKBE-SHKZG, "S借 h贷 WESBSLIKEEKBE-WESBS, "库存数量 BPWES LIKE EKBE-DMBTR, MWSKZ LIKE EKBE-MWSKZ, "税码...
具体代码如下: IFSY-TCODE <>'ME22N'ANDSY-TCODE <>'ME22'ANDSY-TCODE <>'ME23N'ANDSY-TCODE <>'ME23'.EXIT.ENDIF.DATA T_NETPR TYPE EKPO-NETPR.DATA TT_SUM TYPE EKBE-BPMNG.DATA T_SUM TYPE EKBE-BPMNG.DATA T_SHKZG TYPE EKBE-SHKZG.LOOP AT TEKPO.SELECT SINGLE NETPR INTO T_NET...
check SY-TCODE = 'ME22N ' or SY-TCODE = 'ME22N' or SY-TCODE = 'ME23N' . ***EKBE是PO history 表,如有Q,R表示有发票校验历史,不允许更改价## SELECT SINGLE * FROM EKBE WHERE EBELN = I_EKPO-EBELN AND EBELP = I_EKPO-EBELP AND ( BEWTP = 'Q' OR BEWTP = 'R' ) . *如...
check SY-TCODE = 'ME22N ' or SY-TCODE = 'ME22N' or SY-TCODE = 'ME23N' . ***EKBE是PO history 表,如有Q,R表示有发票校验历史,不允许更改价## SELECT SINGLE_ * FROM EKBE WHERE EBELN = I_EKPO-EBELN AND EBELP = I_EKPO-EBELP AND ( BEWTP = 'Q' OR BEWTP = 'R' ) . *...
bewtp LIKE ekbe-bewtp, menge_sh LIKE ekbe-menge, "收货数量 menge_yk LIKE ekbe-menge, "已开发票数量 menge_xk LIKE ekbe-menge, "需开发票数量 = 收货数量 - 已开发票数量 menge_fh LIKE ekbe-menge, "发货数量 menge_yz LIKE ekbe-menge, "预制发票数量 ...
SELECT BPMNG SHKZG INTO (T_SUM,T_SHKZG) FROM EKBE WHERE EBELN = TEKPO-EBELN AND EBELP = TEKPO-EBELP AND BEWTP = 'E'. IF T_SHKZG = 'S'. TT_SUM = TT_SUM + T_SUM. ELSE. TT_SUM = TT_SUM - T_SUM. ENDIF. ENDSELECT. ...
(T_SUM,T_SHKZG) FROM EKBE WHERE EBELN = TEKPO-EBELNAND EBELP = TEKPO-EBELPAND BEWTP = 'E'.IF T_SHKZG = 'S'.TT_SUM = TT_SUM + T_SUM.ELSE.TT_SUM = TT_SUM - T_SUM.ENDIF.ENDSELECT.IF TT_SUM <> 0.MESSAGE E899(MM) WITH TEKPO-EBELN TEKPO-EBELP '由于已收货,不允许...
where ebeln= @tekpo-ebelnandebelp = @tekpo-ebelpandbewtp ='E'. loop at lt_ekbe assigning field-symbol(<ls_ekbe>). if<ls_ekbe>-shkzg ='S'. sum_menge= sum_menge + <ls_ekbe>-menge. else. sum_menge= sum_menge - <ls_ekbe>-menge. ...
B）内表程序语句 C）字符数字日期 D）语句程序表 7.语句loop at itab into wa. 的准确意思是. （ D）A）把wa中的值进行循环，每一次循环都写回内表 B）对内表itab进行循环，把循环中每一行的结果写入内表wa中 C）对内表itab的数值列进行累加放入wa中 D）对内表itab进行循环，把循环中每一行的结果...
SELECT BPMNG SHKZG INTO (T_SUM,T_SHKZG) FROM EKBE WHERE EBELN = TEKPO-EBELN AND EBELP = TEKPO-EBELP AND BEWTP = 'E'. IF T_SHKZG = 'S'. TT_SUM = TT_SUM + T_SUM. ELSE. TT_SUM = TT_SUM - T_SUM. ENDIF. ENDSELECT. ...