搜索
me12里更改信息记录的净价和有效价格，以及信息记录的条件价格REPORTztest.DATA:l_kbetrLIKEkonp-kbetr.l_kbetr='999999'.*UPDATEkonpSETkbetr=l_kbetrWHEREknumh='0002394137'.DATA:it_condctLIKETABLEOFbapicondctWITHHEADERLINE,it_condhdLIKETABLEOFbapicondhdWITHHEADERLINE,it_conditLIKETABLEOFbapiconditWITHHEADERLINE,it_condqsLIKETABLEOFbapicondqsWITHHEADERLINE,it_condvsLIKETABLEOFbapicondvsWITHHEADERLINE,it_ret_mesLIKETABLEOFbapiret2WITHHEADERLINE,it_knumhsLIKETABLEOFbapiknumhsWITHHEADERLINE,it_mem_initialLIKETABLEOFcnd_mem_initialWITHHEADERLINE.*&条件价格赋值,需要填充TI_BAPICONDCT,TI_BAPICONDHD,TI_BAPICONDIT.it_condct-table_no='017'.it_condct-cond_usage='A'.it_condct-cond_type='PB00'.it_condct-applicatio='M'.it_condct-operation='004'.it_condct-cond_no='0002394137'.it_condct-valid_from=20090907.it_condct-valid_to=99991231.DATA:l_lifnrLIKEeina-lifnr,l_matnrLIKEeina-matnr,l_keyLIKEbapicondct-varkey.l_lifnr='0000001108'.l_matnr='5940-01972'.CONCATENATEl_lifnrl_matnrINTOl_key.CONCATENATEl_key'1000'INTOl_keySEPARATEDBY''.CONCATENATEl_key'1000''0'INTOl_key.it_condct-varkey=l_key.APPENDit_condct.it_condhd-cond_no='0002394137'.it_condhd-operation='004'.it_condhd-cond_usage='A'.it_condhd-table_no='017'.it_condhd-applicatio='M'.it_condhd-cond_type='PB00'.it_condhd-varkey=l_key.it_condhd-valid_from=20090907.it_condhd-valid_to=99991231.APPENDit_condhd.it_condit-cond_no='0002394137'.it_condit-operation='004'.it_condit-cond_count='01'.it_condit-applicatio='M'.it_condit-cond_type='PB00'.it_condit-scaletype='A'.it_condit-conditidx='01'.it_condit-cond_p_unt='1'.it_condit-cond_unit='SET'.PERFORMconvert_into_inputCHANGINGit_condit-cond_unit.it_condit-calctypcon='C'.it_condit-exclusion='X'.it_condit-pmnttrms=''.it_condit-condcurr='CNY'.it_condit-cond_value=l_kbetr.APPENDit_condit.CALLFUNCTION'BAPI_PRICES_CONDITIONS'TABLESti_bapicondct=it_condctti_bapicondhd=it_condhdti_bapicondit=it_conditti_bapicondqs=it_condqsti_bapicondvs=it_condvsto_bapiret2=it_ret_mesto_bapiknumhs=it_knumhsto_mem_initial=it_mem_initialEXCEPTIONSupdate_error=1OTHERS=2.IFsy-subrc=0.CALLFUNCTION'BAPI_TRANSACTION_COMMIT'.ENDIF.DATA:it_einexLIKETABLEOFeineWITHHEADERLINE,it_einaxLIKETABLEOFeinaWITHHEADERLINE,it_einayLIKETABLEOFeinaWITHHEADERLINE,it_eineyLIKETABLEOFeineWITHHEADERLINE,it_reg_einaLIKETABLEOFeinaWITHHEADERLINE.SELECTSINGLE*INTOit_einayFROMeinaWHEREinfnr='5300268905'.it_einax=it_einay.it_reg_eina=it_einax.SELECT*INTOTABLEit_eineyFROMeineWHEREinfnr='5300268905'.LOOPATit_einey.it_einex=it_einey.it_einex-netpr=l_kbetr.it_einex-effpr=l_kbetr.APPENDit_einex.ENDLOOP.CALLFUNCTION'ME_UPDATE_INFORECORD'INUPDATETASKEXPORTINGxeina=it_einaxxeine=it_einexyeina=it_einayyeine=it_eineyreg_eina=it_reg_eina.CLASScl_badi_mmDEFINITIONLOAD.DATA:l_exitTYPEREFTOif_ex_me_inforec_send.DATA:it_eina_nTYPEmmpr_einau,it_eina_oTYPEmmpr_eina,it_eine_nTYPEmmpr_eineu,it_eine_oTYPEmmpr_eine,wa_eina_nLIKELINEOFit_eina_n,wa_eine_nLIKELINEOFit_eine_n,wa_eina_oLIKELINEOFit_eina_o,wa_eine_oLIKELINEOFit_eine_o.DATA:maxmengeLIKEekpo-mengeVALUE'9999999999'.l_exit?=cl_badi_mm=get_instance('ME_INFOREC_SEND').IFNOTl_exitISINITIAL.IFNOTit_einaxISINITIAL.MOVE-CORRESPONDINGit_einaxTOwa_eina_n.APPENDwa_eina_nTOit_eina_n.MOVE-CORRESPONDINGit_einaxTOwa_eina_o.APPENDwa_eina_oTOit_eina_o.ENDIF.IFNOTit_einexISINITIAL.MOVE-CORRESPONDINGit_einexTOwa_eine_n.MOVE'U'TOwa_eine_n-kz.APPENDwa_eine_nTOit_eine_n.MOVE-CORRESPONDINGit_eineyTOwa_eine_o.APPENDwa_eine_oTOit_eine_o.ENDIF.CALLMETHODl_exit-send_changesEXPORTINGn_eina=it_eina_no_eina=it_eina_on_eine=it_eine_no_eine=it_eine_oEXCEPTIONSerror_in_send=1.ENDIF.COMMITWORK.*&---------------------------------------------------------------------**&FormCONVERT_INTO_INPUT*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**--P_IT_CONDIT_COND_UNITtext*----------------------------------------------------------------------*FORMconvert_into_inputCHANGINGp_cond_unit.CALLFUNCTION'CONVERSION_EXIT_CUNIT_INPUT'EXPORTINGinput=p_cond_unitlanguage=sy-languIMPORTINGoutput=p_cond_unitEXCEPTIONSunit_not_found=1OTHERS=2.ENDFORM.CONVERT_INTO_INPUT