全友家私sap管理平臺(tái)實(shí)施項(xiàng)目技術(shù)說明書訂單類型確定科目分配類別

: 日期 : 日期 ：編寫目的及背界面設(shè)詳細(xì)設(shè)1.1.寫目的及背SE19:ZBBP_DOC_CHANGE_BADI-"獲取后端系DATAetlogicalsystemsTYPEbbptlogical_system.DATAetmessagesTYPEbbptbalmi.DATAldestinationTYPElogsys.DATAl_destination_bcTYPEstring.CALLFUNCTION'BBP_GET_BACKEND_SYSTEMS'et_logical_systems=et_logical_systemsetmessages =etmessages.FIELD-SYMBOLS<lgs>LIKELINEOFet_logical_systems.READTABLEetlogical_systemsINDEX1ASSIGNING<lgs>.IFsy-subrc=0.MOVE<lgs>TO"獲取po數(shù)據(jù)庫(kù)版本數(shù)data:ls_headertypebbp_pds_po_header_d,lt_itemtypetableofbbp_pds_po_item_d,waitemtypebbppdspoitemd,lt_partnertypetableofbbp_pds_partner,wapartnertypebbppdspartner,ltorgdatatypetableofbbp_pds_org,waorgdatatypebbppdsorg.DATA:lt_accountTYPETABLEOFbbp_pds_accINITIALSIZE0,waaccountTYPEbbp_pds_acc.***用于賦值傳出FIELD-SYMBOLS:<account>LIKELINEOF<partner>LIKELINEOFlt<orgdata>LIKELINEOF"定義傳入傳出參數(shù)的數(shù)isheaderctypebbppdspoheaderu,esheaderctypebbppoheaderbadi,it_item_ctypetableofBBP_PDS_PO_ITEM_ICU,isitemctypeBBPPDSPOITEMICU,etitemctypetableofbbppoitem_badi,es_item_ctypebbp_po_item_badi,itaccctypetableofbbp_pds_acc,isaccctypebbppdsacc,et_acc_ctypetableofBBPS_ACC_BADI,es_acc_ctypeBBPS_ACC_BADI.****---->AccountDATA:wazssrmaccountassignmentTYPEzssrm_account_assignment.DATA:pg_l_acctTYPEsaknr.DATA:lv_product_idTYPECALLFUNCTION'BBP_PD_PO_GETDETAIL' =is_header-iattachwith ='iwith =i_read_be_data=''iwithoutheadertotals='X'ireadfrom_archive='eheader =ls_header = =e =lt =e =lte =lt =.IFiv_mode'C'."創(chuàng)IFiv_process_typeISNOTlsheader-process_type="header數(shù)is_header_c=move-correspondingisheader_ctoes_header_c.esheader=es_header_c."item數(shù)it_item_c[]=loopatititemcintoisitemmove-correspondingis_item_ctoIFls_header-PROCESS_TYPE='CG05'orls_header-PROCESS_TYPE='XS06'.esitem_c-subtype='EP'.es_item_c-subtype=READTABLEitaccASSIGNINGWITHKEYpguid=es_item_c-guiddel_ind=IFsy-subrc=<account>-del_ind=appendesitemctoetitemc.clear:is_item_c,es_item_c.et_item[]="acc數(shù)it_acc_c[]=loopatitacccintoisaccmove-correspondingis_acc_ctoCASElsheader-PROCESS_TYPE.WHEN'CG05'.es_acc_c-acc_cat=WHENesaccc-acc_cat='ZXGL'.****---->AccountREADTABLEit_item_cINTOis_item_cWITHKEYguid=es_acc_c-p_guid.IFsy-subrc=CLEAR:wazssrmaccountCALLFUNCTION'CONVERSION_EXIT_PRID1_OUTPUT' =is_item_c-ordered_prod =wa_zssrm_account_assignment- = =.IFsy-subrc<>MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-wa_zssrm_account_assignment-bukrs=ls_header-CO_CODE.IFisitemc-categoryidISINITIAL.CALLFUNCTION'NUMERIC_CHECK' =is_item_c-ordered_prodstring = .SELECTSINGLEcategoryidproducttypeINTO(wazssrmaccountassignment-FROMbbpvf4prWHEREhierarchyid='R3MATCLASS'ANDproduct_id =lv_product_id.wazssrmaccountassignment-matkl=isitemc-categoryid.wa_zssrm_account_assignment-product_type=is_item_c-product_type.CASEesaccc-WHENwa_zssrm_account_assignment-knttp=WHENwazssrmaccount_assignment-knttp=WHENOTHERS.wa_zssrm_account_assignment-ps_posid=es_acc_c-CALLFUNCTION'ZRFCSRMDESTINATIONl_destinationitacc=wa_zssrm_account_assignmente_konto=IFesaccc-glacctISINITIAL.esacc_c-g_l_acct=p_g_l_acct.IFpglacct<>esaccc-glacctANDp_g_l_acctISNOTINITIAL.esacc_c-g_l_acct=