- 浏览: 169243 次
- 性别:
- 来自: 成都
文章分类
from: http://help-sap.blogspot.com/2011/01/miro.html,
http://space.itpub.net/9859323/viewspace-684596
If you want to mimic the quantity shown in MIRO (transaction) while posting incoming invoice, you need to use the following function module
http://space.itpub.net/9859323/viewspace-684596
If you want to mimic the quantity shown in MIRO (transaction) while posting incoming invoice, you need to use the following function module
CALL FUNCTION 'MRM_ASSIGNMENT' EXPORTING i_display = v_display ti_drseg_old = i_drseg TABLES t_drseg = ti_drseg t_rbselbest = ti_rbselbest t_rbsellifs = ti_rbsellifs t_rbselfrbr = ti_rbselfrbr t_rbselwerk = ti_rbselwerk t_rbselerfb = ti_rbselerfb t_errprot = ti_errprot t_ebelntab = ti_ebelntab CHANGING c_rbkpv = w_rbkpv t_limit = w_limit. IF sy-subrc = 0. IF ti_errprot[] IS INITIAL AND ti_drseg[] IS NOT INITIAL. LOOP AT ti_drseg ASSIGNING w_drseg WHERE koart = c_koart_initial. w_drseg-tbtkz = w_rbkpv-tbtkz. CALL FUNCTION 'MRM_AMOUNT_QUANTITY_PROPOSE_N' EXPORTING i_rbkpv = w_rbkpv CHANGING c_drseg = w_drseg . ENDLOOP. " ENDIF. " ENDIF. "
FUNCTION Z_MME_CALLSAP_GETPOITEMS. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(IVORGANG) LIKE RM08M-VORGANG *" VALUE(IREFERENZBELEGTYP) LIKE RM08M-REFERENZBELEGTYP *" VALUE(IEBELN) LIKE RM08M-EBELN OPTIONAL *" VALUE(IXWARE_BNK) LIKE RM08M-XWARE_BNK *" VALUE(IEBELP) LIKE RM08M-EBELP OPTIONAL *" VALUE(IBLDAT) LIKE INVFO-BLDAT OPTIONAL *" VALUE(IBUDAT) LIKE INVFO-BUDAT *" VALUE(IBUKRS) LIKE BKPF-BUKRS *" VALUE(ISUPERFIELD) LIKE RM08M-SUPERFIELD OPTIONAL *" VALUE(IXZUORDLIDELIVERY) LIKE RBKPB-XZUORDLI OPTIONAL *" VALUE(IXZUORDLIRETURN) LIKE RBKPB-XZUORDLI OPTIONAL *" VALUE(IDELIVERYBEGIN) LIKE RBKPB-LFDATABLI OPTIONAL *" VALUE(IDELIVERYEND) LIKE RBKPB-LFDATBISLI OPTIONAL *" VALUE(IRETURNBEGIN) LIKE RBKPB-LFDATABLI OPTIONAL *" VALUE(IRETURNEND) LIKE RBKPB-LFDATBISLI OPTIONAL *" EXPORTING *" VALUE(RETURNMSG) LIKE ZRETURNMSG STRUCTURE ZRETURNMSG *" TABLES *" IDRSEG STRUCTURE DRSEG OPTIONAL *"---------------------------------------------------------------------- TYPES: BEGIN OF MRM_RBVS. INCLUDE STRUCTURE RBVS. TYPES: SELKZ(1) TYPE C, END OF MRM_RBVS. TYPES: BEGIN OF MRM_RBKPV. INCLUDE STRUCTURE RBKP_V. TYPES: RBTX LIKE RBTX OCCURS 0, THEAD TYPE THEAD, " Note header TNOTE TYPE TLINE OCCURS 0, " Note lines H_RBVS TYPE MRM_RBVS OCCURS 0, " vendor split H_RBWS LIKE RBWS OCCURS 0, " extended withholding tax * bupla LIKE accit-bupla, " Business place Korea WWERT LIKE ACCIT-WWERT, " Umrechnungsdatum f黵 Kufix MRM_ZLSPR TYPE MRM_ZLSPR, " Log. Zahlsperre XCPDD TYPE XCPDD, " CPD Dialog bearbeitet ADRNR TYPE ADRNR, " CPD Adresse PENRC TYPE PENRC, " Cause for late Payment "(PS/USA) BAPI_EXTBLNR TYPE RE_BELNR, " External doc. no. for BAPI when BAPI_PROCESS TYPE C, " changing fiscal year / flag " that doc. comes from BAPI END OF MRM_RBKPV. TYPES: BEGIN OF MMCR_DRSEG_CO. INCLUDE STRUCTURE COBL_MRM_D. TYPES: CR LIKE DRSEG_CR OCCURS 0, UNPL_REFWR TYPE REFWR, END OF MMCR_DRSEG_CO. TYPES: BEGIN OF MMCR_DRSEG. INCLUDE STRUCTURE DRSEG. TYPES: CR LIKE DRSEG_CR OCCURS 0, CO TYPE MMCR_DRSEG_CO OCCURS 0, SM LIKE DRSEG_SM OCCURS 0, CHARACT TYPE RBCHARACT_INSTANCE OCCURS 3, "instances of characteristics UEBGMAT TYPE MATNR, UEBRBLGP TYPE RBLGP, SELKZ_DB TYPE SELKZ, RBLGP_OLD TYPE RBLGP, "rblgp before aggregation END OF MMCR_DRSEG. TYPES: MMCR_LIMIT LIKE RELIMIT. * TYPES: MMCR_TLIMIT TYPE SORTED TABLE OF MMCR_LIMIT * WITH UNIQUE KEY EBELN EBELP. * DATA: BEGIN OF MM_ERRPROT OCCURS 0, MSGTY LIKE SY-MSGTY, MSGID LIKE SY-MSGID, MSGNO LIKE SY-MSGNO, MSGV1 LIKE SY-MSGV1, MSGV2 LIKE SY-MSGV2, MSGV3 LIKE SY-MSGV3, MSGV4 LIKE SY-MSGV4, SOURCE TYPE C, RBLGP LIKE DRSEG-RBLGP, SHOWN LIKE BOOLE-BOOLE, END OF MM_ERRPROT. DATA: LIN TYPE P, TEXT(30), "返回消息文本 MM_RBKPV TYPE MRM_RBKPV, I_RBSELBEST LIKE RBSELBEST OCCURS 0 WITH HEADER LINE, I_RBSELLIFS LIKE RBSELLIFS OCCURS 0 WITH HEADER LINE, I_RBSELFRBR LIKE RBSELFRBR OCCURS 0 WITH HEADER LINE, I_RBSELWERK LIKE RBSELWERK OCCURS 0 WITH HEADER LINE, I_RBSELERFB LIKE RBSELERFB OCCURS 0 WITH HEADER LINE, MM_TLIMIT TYPE SORTED TABLE OF MMCR_LIMIT WITH UNIQUE KEY EBELN EBELP, MM_DRSEG TYPE MMCR_DRSEG OCCURS 0 WITH HEADER LINE. CLEAR I_RBSELBEST. I_RBSELBEST-EBELN = IEBELN. I_RBSELBEST-EBELP = IEBELP. APPEND I_RBSELBEST. MM_RBKPV-BLDAT = IBLDAT. MM_RBKPV-BUDAT = IBUDAT. MM_RBKPV-BUKRS = IBUKRS. *请货款 IF IVORGANG = '1' AND IREFERENZBELEGTYP = '1' AND IXWARE_BNK = '1'. MM_RBKPV-XRECH = 'X'. "标识: 记帐发票 MM_RBKPV-XZUORDLI = 'X'. "显示交货项目分配 MM_RBKPV-XZUORDRT = 'X'. "显示退货分配 MM_RBKPV-XBNK = ''. "计划交货成本标识 MM_RBKPV-XWARE = 'X'. "货物发票/服务标识符 MM_RBKPV-TBTKZ = ''. "标识: 后续借/贷 MM_RBKPV-XBEST = 'X'. "复选框: 分配 MM_RBKPV-XRECHL = 'S'. "交货项目的过帐逻辑(发票/贷项清单) MM_RBKPV-XRECHR = 'H'. "交货项目的过帐逻辑(发票/贷项清单) TEXT = '没有需要请的货款'. *请已计划费用 ELSEIF IVORGANG = '1' AND IREFERENZBELEGTYP = '1' AND IXWARE_BNK = '2'. MM_RBKPV-XRECH = 'X'. MM_RBKPV-XZUORDLI = 'X'. MM_RBKPV-XZUORDRT = 'X'. MM_RBKPV-XBNK = 'X'. MM_RBKPV-XWARE = ''. MM_RBKPV-TBTKZ = ''. MM_RBKPV-XBEST = 'X'. MM_RBKPV-XRECHL = 'S'. MM_RBKPV-XRECHR = 'H'. TEXT = '没有需要请的已计划费用'. *请未计划费用 ELSEIF IVORGANG = '3' AND IREFERENZBELEGTYP = '1' AND IXWARE_BNK = '1'. MM_RBKPV-XRECH = 'X'. MM_RBKPV-XZUORDLI = 'X'. MM_RBKPV-XZUORDRT = 'X'. MM_RBKPV-XBNK = ''. MM_RBKPV-XWARE = 'X'. MM_RBKPV-TBTKZ = 'X'. MM_RBKPV-XBEST = 'X'. MM_RBKPV-XRECHL = 'S'. MM_RBKPV-XRECHR = 'H'. TEXT = '没有需要请未计划费用'. *货款、已计划费用和未计划费用同时请款 ELSEIF IVORGANG = '1' AND IREFERENZBELEGTYP = '1' AND IXWARE_BNK = '3'. MM_RBKPV-XRECH = 'X'. MM_RBKPV-XZUORDLI = 'X'. MM_RBKPV-XZUORDRT = 'X'. MM_RBKPV-XBNK = 'X'. MM_RBKPV-XWARE = 'X'. MM_RBKPV-TBTKZ = ''. MM_RBKPV-XBEST = 'X'. MM_RBKPV-XRECHL = 'S'. MM_RBKPV-XRECHR = 'H'. TEXT = '没有需要请的货款、已计划费用和未计划费用'. *退货订单请款 ELSEIF IVORGANG = '2' AND IREFERENZBELEGTYP = '1' AND IXWARE_BNK = '1'. MM_RBKPV-XRECH = ''. MM_RBKPV-XZUORDLI = 'X'. MM_RBKPV-XZUORDRT = 'X'. MM_RBKPV-XBNK = ''. MM_RBKPV-XWARE = 'X'. MM_RBKPV-TBTKZ = ''. MM_RBKPV-XBEST = 'X'. MM_RBKPV-XRECHL = 'H'. MM_RBKPV-XRECHR = 'H'. TEXT = '没有需要请的退货货款'. *批次请款 ELSEIF IVORGANG = '1' AND IREFERENZBELEGTYP = '5' AND IXWARE_BNK = '3'. TEXT = '此供应商没有需要请的货款及费用'. IF IXZUORDLIDELIVERY = 'X' AND IXZUORDLIRETURN = 'X'. "交货和退货 MM_RBKPV-LFDATABLI = IDELIVERYBEGIN. MM_RBKPV-LFDATBISLI = IDELIVERYEND. MM_RBKPV-LFDATABRT = IRETURNBEGIN. MM_RBKPV-LFDATBISRT = IRETURNEND. MM_RBKPV-XZUORDLI = 'X'. MM_RBKPV-XZUORDRT = 'X'. MM_RBKPV-XBNK = 'X'. MM_RBKPV-XWARE = 'X'. MM_RBKPV-TBTKZ = ''. MM_RBKPV-XBEST = ''. MM_RBKPV-SELIF = ISUPERFIELD. MM_RBKPV-XRECHL = 'S'. MM_RBKPV-XRECHR = 'H'. ELSEIF IXZUORDLIDELIVERY = 'X' AND IXZUORDLIRETURN = ''. "交货 MM_RBKPV-LFDATABLI = IDELIVERYBEGIN. MM_RBKPV-LFDATBISLI = IDELIVERYEND. MM_RBKPV-LFDATABRT = IRETURNBEGIN. MM_RBKPV-LFDATBISRT = IRETURNEND. MM_RBKPV-XZUORDLI = ''. MM_RBKPV-XZUORDRT = 'X'. MM_RBKPV-XBNK = 'X'. MM_RBKPV-XWARE = 'X'. MM_RBKPV-TBTKZ = ''. MM_RBKPV-XBEST = ''. MM_RBKPV-SELIF = ISUPERFIELD. MM_RBKPV-XRECHL = 'S'. MM_RBKPV-XRECHR = 'H'. ELSEIF IXZUORDLIDELIVERY = '' AND IXZUORDLIRETURN = 'X'. "退货 ENDIF. ENDIF. CALL FUNCTION 'MRM_ASSIGNMENT' EXPORTING I_DISPLAY = 'X' * TI_DRSEG_OLD = * IMPORTING * E_CANCEL = TABLES T_DRSEG = MM_DRSEG T_RBSELBEST = I_RBSELBEST T_RBSELLIFS = I_RBSELLIFS T_RBSELFRBR = I_RBSELFRBR T_RBSELWERK = I_RBSELWERK T_RBSELERFB = I_RBSELERFB T_ERRPROT = MM_ERRPROT * T_EBELNTAB = * T_RBSELTRAN = CHANGING C_RBKPV = MM_RBKPV T_LIMIT = MM_TLIMIT . LOOP AT MM_DRSEG WHERE KOART = ''. MOVE MM_RBKPV-TBTKZ TO MM_DRSEG-TBTKZ. CALL FUNCTION 'MRM_AMOUNT_QUANTITY_PROPOSE_N' EXPORTING I_RBKPV = MM_RBKPV CHANGING C_DRSEG = MM_DRSEG. MODIFY MM_DRSEG. ENDLOOP. LOOP AT MM_DRSEG. MOVE-CORRESPONDING MM_DRSEG TO IDRSEG. APPEND IDRSEG. CLEAR MM_DRSEG. ENDLOOP. DESCRIBE TABLE MM_DRSEG LINES LIN. IF LIN = 0. RETURNMSG-MTYPE = 'W'. RETURNMSG-MTEXT = TEXT. ENDIF. ENDFUNCTION
发表评论
-
DISABLE button(FCODE) from the GUI-Status
2014-08-04 15:54 5741. Goto-> Attributes->Pus ... -
Handy SAP function module to automate user events
2013-11-28 09:49 696*Begin-Auto triggers ENTER comm ... -
set Billing block to blank for Sals Order
2013-04-17 15:16 744FM: SD_WF_ORDER_DEL_BILLING_BLO ... -
set Billing block to blank for Sals Order
2013-04-17 15:16 714FM: SD_WF_ORDER_DEL_BILLING_BLO ... -
Unpermitted combination of business object BUS2032 and sales doc. category H
2013-01-25 14:20 4049Q: create New Sales Order using ... -
Function Module: get all users who have specific role
2013-01-25 14:16 588CALL FUNCTION 'RSRA_USERS_O ... -
Create a SELECT-OPTIONS in a module pool screen
2012-03-07 15:35 987source:http://abap-explorer.blo ... -
Converting OTF data from script to Spool Request
2012-03-06 17:25 0source:http://forums.sdn.sap.co ... -
Calculate the days, months and years between 2 dates.
2012-02-21 16:14 794FORM compute_2date_diff. DAT ... -
Retrieving Domain fixed values
2012-02-16 11:13 783source:http://www.saptechnical. ... -
If 1 equals 2, what’s the purpose?
2012-02-16 10:59 794source:http://sapport.blogspot. ... -
get status name for batch input session
2012-01-31 14:47 886Line 601 in program SAPMSBDC_CC ... -
create zip folder with cl_abap_zip
2011-12-05 18:11 1177REPORT ztest. DATA: gv_file ... -
Create Vendor or Customer_master Data
2011-11-23 16:22 2846To Create or Change Vendor_mast ... -
Pay attention to the following points when using append structures
2011-10-27 13:43 1273You cannot create append str ... -
Help Views
2011-10-20 10:46 690source:http://help.sap.com/saph ... -
What is the Different Types and Usage of Views
2011-10-19 23:06 810source:http://www.sap-img.com/a ... -
Upload a Comma Delimited CSV file that contains commas in data
2011-09-23 17:22 2187source:http://wiki.sdn.sap.com/ ... -
What is the difference between SET SCREEN and CALL SCREEN ?
2011-09-19 21:50 700source:http://www.saptechies.co ... -
cl_gui_frontend_services=>file_open_dialog
2011-09-09 09:21 1376CALL METHOD cl_gui_frontend_ser ...
相关推荐
由Participatory Culture基金会开发的Miro,目的是让在线视频“和看电视一样简单”,让每一个人都能轻松接触互联网新媒体,它支持开放性标准。 Miro(开源影音播放器)功能介绍 - 播放大部分的流行格式的视频文件比如...
用户在使用Tcode:MIRO做总帐调整时,默认带出一个变式,该变式限制了很多必输项,造成业务无法进行
MIRO LUA 2 (PSP开发软件) 开发PSP软件的工具 <br>收集来的。
如何定制发票校验MIRO格式
穆尔电子 MIRO BT 无线信号传输pdf,在大多数行业中,不同应用程序以及不同工业数据采集系统间的数据交换量正在不断上升,此外,这些行业对机器设备和系统组件的移动性要求也越来越高。
发票校验与税码分析及设置----> 为了满足税务以及审计等要求而设定税额容差的控制!
Miro Video Converter是一款免费视频转换小软件。支持Windows及Mac OS X平台。支持的视频格式包括:AVI、H.264、MOV、WMV、XVID、Theora、MKV、FLV,可以将上述格式的视频转换到 Android、iPod/iPhone及Theora设备上...
MIRO-合并机器人! Miro旨在帮助合并来自Github Pull Requests的代码。 部署中 Miro是一个用.NET Core编写的完全开放源代码的项目。 要在您的org / team / projects中使用Miro,您需要做的就是pull + run miro ...
在会议和研讨会之前附加和共享Miro董事会 Miro Google日历扩展程序使组织者不必为会议设置烦恼,并为与会人员提供了提高会议效率所需的访问权限。 轻松将Miro面板直接添加到Google日历活动中,并确保会议参与者可以...
SAP公司间采购EDI配置-如何触发自动MIRO.docx
Miro的团队拓扑Web插件使用此插件,用户可以构建团队拓扑。此插件是出于培训目的而创建的,尚未准备好投入生产[尚未]。功能如何运作去做如何建造您将需要使用npm ENV VAR集在全局安装Webpack-cli。运行npm install...
犹尼康 M91 Miro-OPLC 信号模块英文说明zip,犹尼康 M91 Miro-OPLC 信号模块英文说明
SAP_MIRO_Free-Tutorial-on-Invoice-Verification
使用Miro Google Chrome扩展程序,添加文件和屏幕截图变得非常容易。 使用此扩展程序,您可以将文件从桌面或文件管理器直接拖放到板上。 您还可以在浏览器中拍摄网站的屏幕截图,并将其立即保存到Miro库中。 第一种...
微乳胶基于Mathjax的Miro的LateX Web插件
Project-Miro这是一个废弃的 javascript discord bot 项目。 我有它的代码,所以想把它开源。 它使用基于 SQL 的 quick.db。 里面可能有很多错误,音乐系统不完整。我将来可能会参与这个项目并使其活跃起来。要获得...
我这里隆重推荐一本:《Practical Statecharts in C/C++ Quantum Programming for Embedded Systems》,中文名叫做《嵌入式系统的微模块化程序设计-实用状态图C/C++实现》,北航出版的,作者是Miro Samek博士,长期...
米罗用Rust编写的GPU加速的终端模拟器。主题miro -t pika|kirby|sonic状态 Mac OS支持Cocoa和OpenGL。 Linux支持XCB和OpenGL。