长城电子商务系统SAP程序设计

1 长城电子商务系统之 SAP 部分设计第 1 页目录1系统概述系统概述.32业务流程业务流程.43程序设计程序设计.53.1操作数据部分 .53.1.1创建订单.53.1.2修改订单.63.1.3生成交货单.63.1.4财务审批价格.63.1.5执行拣配.83.1.6执行发货过帐.83.1.7信用检查.93.2数据查询部分 .103.2.1ATP检查.103.2.2资金检查.103.2.3查询客户余额.103.2.4查询客户财务帐.113.2.5查询订单.173.2.6查询凭证流.173.2.7查询订单总额.173.2.8查询交货单.183.2.9查询物料凭证.233.3标准数据部分 .323.3.1获取客户主数据(t_khxx).323.3.2获取销售组t_salegroup.343.3.3获取销售办公室t_saleoffice .363.3.4获取销售部门t_saledepartment.373.3.5获取销售组织t_saleorganize.383.3.6获取订单类型t_ordertype.393.3.7获取工厂t_factory .403.3.8获取库房t_store.413.3.9获取销售工厂t_saleorgfactory .423.3.10获取拒绝原因t_refuse.433.3.11获取分销渠道t_salechannel.443.3.12获取产品目录(t_catalogs) .453.3.13获取产品目录变量字典t_catalogs_variant.463.3.14获取产品目录销售区域字典t_catalogs_salesarea.462 长城电子商务系统之 SAP 部分设计第 2 页3.3.15获取目录布局区域t_pc_areas.463.3.16获取目录布局区域的项目t_pc_items .463.3.17获取目录布局区域和其项目的文本t_pc_texts.463.3.18获取目录布局区域项目的价格t_pc_prices.463 长城电子商务系统之 SAP 部分设计第 3 页1 系统概述系统概述长城电子商务系统的功能是实现网上定单业务及相关的业务流程和数据处理。该系统作为公司 SAP 系统的一个前台运行，将客户订单通过网上来传递给 SAP 系统，公司内部的业务运作完全由 SAP 来处理。所有的业务数据均由 SAP 提供，所有提交的数据也均向 SAP 转交，该系统不保留不提供任何非 SAP 的业务数据。基于这样的定位，在开发该系统的数据操作(增加/修改/删除)时，尽量使用 SAP 系统已有的功能函数进行开发，不涉及对底层数据库的直接操作，以保证 SAP 系统的一致性。4 长城电子商务系统之 SAP 部分设计第 4 页2 业务流程业务流程创建订单的工作流程如下(GS 前台 WEB 实现的功能):3开始收集订单信息ATP 检查创建 SAP 订单成功？结束客户确认资金检查删除不满足项置订单有效生成交货单失败成功不满足满足拒绝确认不满足满足拣配发货过帐5 长城电子商务系统之 SAP 部分设计第 5 页程序设计程序设计3.1 操作数据部分操作数据部分该部分涉及向 SAP 提交数据，修改 SAP 数据等操作。3.1.1 创建订单创建订单利用 SAP 现成对象 SalesOrder(BUS2032)的方法 CreateFromDat1 实现，不做任何修改。提交的数据包括：1.订单抬头：订单抬头：订单类型(DOC_TYPE)=ZOR销售组织(SALES_ORG)=分销渠道(DISTR_CHAN)=部门(DIVISION)=销售组(SALES_GRP)=销售办公室(SALES_OFF)=请求交货日期(REQ_DATE_H)=日期类型(DATE_TYPE)=1贸易条款(INCOTERMS1)=FOB贸易条款文本(INCOTERMS2)=Free Cost付款条款(PMNTTRMS)=0001订单原因(ORD_REASON)=001定价日期(PRICE_DATE)=采购单号(PURCH_NO_C)= 订单类型(SD_DOC_CAT)=C币种(CURRENCY)=CNY币种(CURRENCY_ISO)=CNY2.订单明细：订单明细：物料编号(MATERIAL)= 交货工厂(PLANT)= 交货库房(STORE_LOC)=数量(REQ_QTY)=数量(TARGET_QTY)=拒绝原因(REASON_REJ)=103.合作伙伴：合作伙伴：合作伙伴类型(PARTN_ROLE)=AG（售达方）客户代号 (PARTN_NUMB)= 国家(COUNTRY)=CN国家(COUNTRY_ISO)=CN6 长城电子商务系统之 SAP 部分设计第 6 页3.1.2 修改订单修改订单修改订单的用途包括：追加订单文本，置订单有效，删除订单(项目)等等操作。使用 SAP 标准对象 SalesOrder（BUS2032）的方法：ChangeFromData,不做任何修改。3.1.3 生成交货单生成交货单根据订单生成交货单的函数为 ZBAPI_ORDER_DELIVERY（属 Zleitz_dlv 函数组）,该函数根据事务码 VL01N 的程序 SAPMV50A 进行 BAPI 化(代替屏幕处理模块)后获得，去掉了其中的屏幕处理等模块，一切处理过程 o 依照 VL01N 的程序进行。变屏幕输入元素为函数输入参数3.1.4 财务审批价格财务审批价格对象类型：ZACNTCHK超级类型：bus2032（销售订单）功能模块：ZSTATUS_CHECK功 能： 订单状态的修改（财务审批）参 数：参数输入/输出结构参考JestInsCJESTINS STRUCTUREJestUpdzCJESTUPDZ STRUCTUREJstoInsCJSTOINS STRUCTUREJstoUpdzCJSTOUPDZ STRUCTUREObjDelCOBJDEL STRUCTURE备 注：来自 SAP 标准函数 status_update参考信息：7 长城电子商务系统之 SAP 部分设计第 7 页(1)JestIns & JestUpdz struc(JEST_UPD:每个对象的独立状态-接口结构):.INCLUDE对象状态.MANDT集团.OBJNR对象号.STAT对象状态.INACT标志: 未激活状态.CHGNR更改号码CHGKZ标志: 修改情况文件活动OBTYP对象类型STSMA状态参数文件(2)JstoIns struc(JSTO:状态对象信息):MANDT集团OBJNR对象号OBTYP对象类型STSMA状态参数文件CHGKZ标志: 修改情况文件活动CHGNR更改号码(3)JstoUpdz struc(JSTO_UPD:状态对象信息-接口结构):.INCLUDE状态对象信息8 长城电子商务系统之 SAP 部分设计第 8 页.MANDT集团.OBJNR对象号.OBTYP对象类型.STSMA状态参数文件.CHGKZ标志：修改情况文件活动.CHGNR更改号码STSMA_OLD旧状态描述文件(4)ObjDel struc(ONR00:通用对象编号):MANDT集团OBJNR对象号3.1.5 执行拣配执行拣配函数为 ZBapi_delivery_picking，根据交货单号实现一次性完全拣配（参照 SAPMV50A 完成） 。输入参数：dlvnum交货单号输出参数：Flow 凭证流数据.3.1.6 执行发货过帐执行发货过帐函数 ZBAPI_POST_ISSUE，根据交货单号实现发货过帐。(参照 SAPMV50A 完成)输入参数：dlvnum交货单号输出参数：Flow 凭证流数据.9 长城电子商务系统之 SAP 部分设计第 9 页3.1.7 信用检查信用检查函数 ZBAPI_ORDER_CREDIT_RECHECK，根据订单单号，对该订单进行信用控制检查（参照 SAPMV45K 实现）.该函数会修改订单信用控制状态。 输入参数： DOCUMENTNO订单号 RECHECKFLAG重复检查标志 TRANSACTIONTYPE事务类型 UPDATEFLAG修改标志 输出参数： CREDITCHECK检查结果(0:不检查，1：通过 4：不通过) CREDITLIMITEXCEEDED超出信用限制金额 CREDITLIMITCURRENCY信用币种 STATIC_LIMIT静态信用检查结果 DYNAMIC_LIMIT动态信用检查结果 DOCUMENTVALUE凭证值检查结果 CRITICAL_FIELDSCRITICAL_FIELDS检查结果 REVIEWDATEREVIEWDATE检查结果 OPEN_ITEMS未清项检查结果 OLDEST_OPEN_ITEMS最早未清项检查结果 DUNNING_LEVELDunning_level检查结果 USER1User1检查结果 USER2User2检查结果 USER3User3检查结果10 长城电子商务系统之 SAP 部分设计第 10 页3.2 数据查询部分数据查询部分3.2.1 ATP 检查检查利用 SAP 现成的 BAPI 函数:BAPI_Material_Availability(SD-BF-AC-MDW1),不做任何修改。3.2.2 资金检查资金检查使用客户余额中的帐户余额做为检查资金的比较对象(参见查询客户余额)。3.2.3 查询客户余额查询客户余额业务对象：bus3007财务会计(FI)-应收款(AR)-基本功能(AR)-客户(FBD)功能模块：BAPI_AR_ACC_GETCURRENTBALANCE功 能： 获取客户实际余额参 数：参数输入/输出描述COMPANYCODEIn公司代码CUSTOMERIn客户代码ACTUAL_BALANCE Out余额结转和余额RETURNOut返回代码备 注：参考结构 BAPI3007_9参考信息：BAPI3007_9 结构:11 长城电子商务系统之 SAP 部分设计第 11 页CARRY_FWD结转余额BALANCE帐户余额CRRYFWDTOT总计余额结转 (普通 + 特殊总帐业务)TOTAL_BALNUM总计帐户余额 (普通 + 特殊总帐业务)CURRENCY货币名称代码3.2.4 查询客户财务帐查询客户财务帐业务对象：bus3007财务会计(FI)-应收款(AR)-基本功能(AR)-客户(FBD)功能模块：BAPI_AR_ACC_GETSTATEMENT功 能： 获取客户历史财务帐参 数：参数输入/输出描述COMPANYCODE In公司代码CUSTOMERIn客户代码Date_FromIn启始日期Date_ToIn 终止日期NoteditemsIn 分项标志RETURNOut返回代码LineitemsC返回财务帐结构备 注：参考结构 BAPI3007_2参考信息：12 长城电子商务系统之 SAP 部分设计第 12 页BAPI3007_2 结构COMP_CODE公司代码CUSTOMER购货方编号SP_GL_IND特别总帐标识CLEAR_DATE清帐日期CLR_DOC_NO清算凭证的凭证号码ALLOC_NMBR分配编号FISC_YEAR财政年度DOC_NO财务凭证编号ITEM_NUM会计凭证中的行项目号PSTNG_DATE凭证记帐日期DOC_DATE凭证中的凭证日期ENTY_DATE会计凭证输入日期CURRENCY货币名称代码LOC_CURRCY本位币REF_DOC_NO参考凭证号DOC_TYPE凭证类型FIS_PERIOD会计期间POST_KEY记帐代码DB_CR_IND借/贷标志(S/H)BUS_AREA业务范围TAX_CODE销售/购买税代码13 长城电子商务系统之 SAP 部分设计第 13 页LC_AMOUNT按本位币计的金额AMT_DOCCUR凭证货币金额LC_TAX用本币计的税收金额TX_DOC_CUR用凭证货币表示的税收金额ITEM_TEXT项目说明文本BARNCH分支帐号BLINE_DATE用于到期日计算的基准日期PMNTTRMS收付条件代码DSCT_DAYS1现金折扣天数 1DSCT_DAYS2现金折扣天数 2NETTERMS净支付条件期段DSCT_PCT1现金折扣百分率 1DSCT_PCT2现金折扣百分率 2DISC_BASE可使用的凭证货币的现金折扣金额DSC_AMT_LC本币的现金折扣金额DSC_AMT_DC以凭证货币表示的现金折扣金额PYMT_METH收付方式PMNT_BLOCK收付冻结码FIXEDTERMS固定付款条件INV_REF业务所属的发票号码INV_YEAR有关发票的财政年度 (贷项凭单)INV_ITEM相关发票中的行项目14 长城电子商务系统之 SAP 部分设计第 14 页DUNN_BLOCK催款冻结DUNN_KEY催款码LAST_DUNN上次催款通知日期DUNN_LEVEL催款层次DUNN_AREA催款范围DOC_STATUS凭证状态NXT_DOCTYP下列凭证类型VAT_REG_NO增值税登记号REASON_CDE付款原因代码PMTMTHSUPL付款方式补充REF_KEY_1业务伙伴参考码REF_KEY_2业务伙伴参考码T_CURRENCY更新总分类帐交易数字货币AMOUNT总帐中更新的金额NET_AMOUNT净收付金额NAME名称 1NAME_2名称 2NAME_3名称 3NAME_4名称 4POSTL_CODE邮政编码CITY城市COUNTRY国家代码15 长城电子商务系统之 SAP 部分设计第 15 页STREET住宅号及街道PO_BOX邮政信箱POBX_PCD邮政信箱的邮政编码POBK_CURAC邮政银行的往来帐户号BANK_ACCT银行帐户号码BANK_KEY银行代码BANK_CIRY银行国家代码TAX_NO_1税号 1TAX_NO_2税号 2TAX指示符: 业务伙伴要用销售/购置税WQUAL_TAX标识: 业务合作伙伴属于平衡REGION地区 (州、省、县)CTRL_KEY银行控制代码INSTR_KEY数据媒介交换指令码PAYEE_CODE收款人代码LANGU语言代码BILL_LIFE汇票的有效期BE_TAXCODE汇票税码BILLTAX_LC本币计的汇票税BILLTAX_FC外币计的汇票税LC_COL_CHG汇票托收的费用 (本币计)COLL_CHARG以凭证货币计的托收汇票的费用16 长城电子商务系统之 SAP 部分设计第 16 页CHGS_TX_CD汇票费用的税码ISSUE_DATE汇票签发日USAGEDATE汇票使用日期BILL_USAGE汇票的计划用途BOMICILE可以支付汇票的银行地址(国内)DRAWER汇票出票人的名字CTRBNK_LOC国家中央银行所在地DRAW_CITY1汇票出票人的城市DRAWEE汇票受票人DRAW_CITY2汇票受票人的城市DISCT_DAYS贴现天数DISCT_RATE经过收费的汇票折扣百分率ACCEPTED标志：汇票已接收BILLSTATUS汇票状态PRTES_IND拒付汇票标志BE_DEMAND标记：即期汇票OBJ_TYPE参考过程REF_DOC参考凭证号REF_ORG_UN参考组织单位3.2.5 查询订单查询订单查询订单列表调用 SAP 标准的 SalesOrder(BUS2032)的方法:GetList 函数实现,不做任何修改。17 长城电子商务系统之 SAP 部分设计第 17 页查询订单明细为在 SAP 标准函数 SD_Select_Sales_Orders_WWW 基础上修改实现。3.2.6 查询凭证流查询凭证流查询凭证流 ZBAPI_SALESORDER_FLOW，根据凭证单号显示凭证留。(参照RV_ORDER_FLOW_INFORMATION 实现)输入参数：documentno凭证单号输出参数：SDFLOW凭证流3.2.7 查询订单总额查询订单总额查询订单总额 ZSD_ORDER_SUM，根据 SD_SALES_ORDER_SELECT_WWW 获取的订单，过滤掉凭证流中对应的订单后完成。输入参数：customer客户代号salesorg销售组织Material物料Document_Date凭证日期Document_Date_to 凭证日期Process删除完成状态的订单标志Delivery删除完成交货订单的标志Invoice删除完成发票的订单的标志输出参数：sum_value合计订单总值return返回值sales_orders订单明细3.2.8 查询交货单查询交货单3.2.6.1提货列表提货列表1结构结构提货单抬头表（ladingheader）字段数据类型说明备注MANDTINT集团VBELNCHAR(10)销售与分销单据号18 长城电子商务系统之 SAP 部分设计第 18 页FKARTCHAR(4)开票类型FKTYPCHAR(1)出具发票类别VBTYPCHAR(1)SD 凭证类别WAERKDEC凭证货币VKORGCHAR(4)销售组织VTWEGCHAR(2)分销渠道ZLSCHCHAR(1)付款方式BUKRSCHAR(4)公司代码ERNAMCHAR(12)创建对象的人员名称ERZETTIME输入时间ERDATDATE记录建立日期KUNRGCHAR(10)付款方KUNNRCHAR(10)购货方编号（客户代码）修改之前该字段为 KUNAGName1CHAR(30)客户名称FKDAT_RLDATE出据发票的清单日期BSTNK_VFCHAR(35)客户采购订单编号BUPLACHAR(4)业务地点FKDATDate出具发票索引和打印的出具发票日期VTSELCHAR(4)装运点/接收点VTEXTCHAR(20)销售渠道名称STRASCHAR(35)住宅号及街道2函数函数函数名Zb2b_lading_getlist输入参数Startdate开始日期Enddate结束日期Customer客户代号Store仓库代号order订单代号输出参数ladingheader提货单抬头表Returnbapireturn3程序程序FUNCTION ZB2B_LADING_GETLIST.*-*Local interface:* IMPORTING* VALUE(STARTDATE) LIKE SY-DATUM* VALUE(ENDDATE) LIKE SY-DATUM* VALUE(CUSTOMER) LIKE ZST_LADINGHEADER-KUNNR OPTIONAL* VALUE(STORE) LIKE ZST_LADINGDETAIL-LGORT OPTIONAL19 长城电子商务系统之 SAP 部分设计第 19 页* VALUE(ORDER) LIKE ZST_LADINGDETAIL-AUFNR OPTIONAL* EXPORTING* VALUE(RETURN) LIKE BAPIRETURN STRUCTURE BAPIRETURN* TABLES* LADINGHEADER STRUCTURE ZST_LADINGHEADER*-*data : my like zst_ladingheader-kunag.DATA: COND(72) TYPE C, ITAB LIKE TABLE OF COND.CONCATENATE AERDAT between startdate and enddate INTO COND.APPEND COND TO ITAB.if not customer is initial. CONCATENATE and Akunnr = customer INTO COND. APPEND COND TO ITAB.endif.if not store is initial. CONCATENATE and BLGORT = store INTO COND. APPEND COND TO ITAB.endif .if not order is initial. CONCATENATE and BAUFNR = order INTO COND. APPEND COND TO ITAB.endif.*select * into corresponding fields of ladingheader* from vbrk as A inner join vbrp as B* on Avbeln = Bvbeln* inner join kna1 as C* on Akunag = Ckunnr* where (ITAB). select * into corresponding fields of ladingheader from likp as A inner join lips as B on AVBELN = BVBELN inner join kna1 as C on Akunnr = Ckunnr where (ITAB). append ladingheader.endselect.20 长城电子商务系统之 SAP 部分设计第 20 页IF SY-SUBRC 0. PERFORM GET_RETURN USING E V4 213 SPACE SPACE SPACE SPACE RETURN. EXIT.ENDIF.ENDFUNCTION.2.2.6.2提货单提货单明细明细1结构结构提货单抬头表（ladingheader）字段数据类型说明备注MANDTINT集团VBELNCHAR(10)销售与分销单据号FKARTCHAR(4)开票类型FKTYPCHAR(1)出具发票类别VBTYPCHAR(1)SD 凭证类别WAERKDEC凭证货币VKORGCHAR(4)销售组织VTWEGCHAR(2)分销渠道ZLSCHCHAR(1)付款方式BUKRSCHAR(4)公司代码ERNAMCHAR(12)创建对象的人员名称ERZETTIME输入时间ERDATDATE记录建立日期KUNRGCHAR(10)付款方KUNNRCHAR(10)购货方编号（客户代码）修改之前该字段为 KUNAGName1CHAR(30)客户名称FKDAT_RLDATE出据发票的清单日期BSTNK_VFCHAR(35)客户采购订单编号BUPLACHAR(4)业务地点FKDATDate出具发票索引和打印的出具发票日期VSTELCHAR(4)装运点/接收点VTEXTCHAR(20)销售渠道名称STRASCHAR(35)住宅号及街道提货单明细表（ladingdetail）字段数据类型说明备注MATNRCHAR(10)物料号码ARKTXCHAR(40)销售订单项目短文本21 长城电子商务系统之 SAP 部分设计第 21 页VRKMECHAR(3)销售单位LFIMGDec提货数量NETWRDec凭证货币计量的净价值LGORTCHAR(4)库存地点VGBELCHAR(10)参考单据的单据编号(订单编号)LGOBECHAR(16)仓储地点的描述VKBURCHAR(4)销售办事处编号VKGRPCHAR(3)销售组编号VTEXT1CHAR(20)销售办事处名称VTEXT2CHAR(20)销售组名称VTWEGCHAR(2)分销渠道编号VTEXT3CHAR(20)分销渠道名称2函数函数函数名Zb2b_lading_getdetail输入参数warrant销售与分销单据号输出参数ladingdetail提货单明细表Ladingheader提货单抬头表Returnbapireturn3程序程序FUNCTION ZB2B_LADING_GETDETAIL.*-*Local interface:* IMPORTING* VALUE(WARRANT) LIKE VBRK-VBELN* EXPORTING* VALUE(RETURN) LIKE BAPIRETURN STRUCTURE BAPIRETURN* TABLES* LADINGHEADER STRUCTURE ZST_LADINGHEADER* LADINGDETAIL STRUCTURE ZST_LADINGDETAIL*-*select * from vbrk as A inner join kna1 as B on Akunag = Bkunnr* into corresponding fields of ladingheader* where Avbeln = warrant* and ( Avbtyp = M or Avbtyp = N or Avbtyp = 5* or Avbtyp = O or Avbtyp = S or Avbtyp = P ).select * from likp as A22 长城电子商务系统之 SAP 部分设计第 22 页 inner join kna1 as B on AMANDT = BMANDT and Akunnr = Bkunnr left join tvkot as C on AMANDT = CMANDT and Avkorg = Cvkorg and CSPRAS = 1 left join tvkbt as D on AMANDT = DMANDT and Avkbur = Dvkbur and DSPRAS = 1 into corresponding fields of ladingheader where Avbeln = warrant.* and ( Avbtyp = M or Avbtyp = N or Avbtyp = 5* or Avbtyp = O or Avbtyp = S or Avbtyp = P ). append ladingheader.endselect.*select * from vbrp* into corresponding fields of ladingdetail* where vbeln = ladingheader-vbeln.* append ladingdetail.*endselect.select AMATNR : AARKTX : AVRKME : ALFIMG : ANETWR : AAUFNR :ALGORT : AVGBEL : BLGOBE : AVKBUR : AVKGRP : CBEZEI :DBEZEI : AVTWEG : EVTEXT from lips as A left join T001L as B on AMANDT = BMANDT and Algort = Blgort and AWERKS = BWERKS left join TVGRT as C on AMANDT = CMANDT and Avkgrp = Cvkgrp and CSPRAS = 1 left join tvkbt as D on AMANDT = DMANDT and Avkbur = Dvkbur and DSPRAS = 1 left join TVTWT as E on AMANDT = EMANDT and AVTWEG = EVTWEG and ESPRAS = 1 into ladingdetail* into corresponding fields of ladingdetail where Avbeln = ladingheader-vbeln. append ladingdetail.endselect.IF SY-SUBRC 0. PERFORM GET_RETURN USING E V4 213 SPACE SPACE SPACE SPACE RETURN. EXIT.ENDIF.ENDFUNCTION.23 长城电子商务系统之 SAP 部分设计第 23 页3.2.9 查询物料凭证查询物料凭证对象类型：ZMM01超级类型：MSEG（物料凭证）功能模块：ZBAPI_MM_MATERIALDOCITEM功 能： 获得物料凭证参 数：参数输入/输出描述ZMBLNRIn物料凭证号RETURNOut返回代码ZMSEGC返回物料凭证备 注：参考 MSEG 表参考信息：表 MSEG：MANDT集团MBLNR物料凭证编号MJAHR物料凭证的年份ZEILE物料凭证中的项目BWART移动类型(库存管理)XAUTO标志: 自动建立行项目MATNR物料号码WERKS工厂LGORT库存地点24 长城电子商务系统之 SAP 部分设计第 24 页CHARG批次编号INSMK库存类型ZUSCH批量状态码ZUSTD限制使用库存中的批量SOBKZ特殊库存标识LIFNR供应商帐户号KUNNR客户的帐户编号KDAUF销售订单号KDPOS 销售订单中的条款编号KDEIN销售订单交货计划PLPLA生产仓位SHKZG借/贷标志WAERS货币名称代码DMBTR按本位币计的金额BNBTR用本币计算的交货成本BUALT用可选择的价格控制的记帐的金额SHKUM重新评估中的借项/贷项标识DMBUM上一期间返回记帐中的重估金额BWTAR评估类型MENGE数量MEINS基本计量单位ERFMG以条目单位的数量25 长城电子商务系统之 SAP 部分设计第 25 页ERFME输入单位BPMNG使用采购订单价格单位的数量BPRME订单价格单位(采购)EBELN采购订单号EBELP采购凭证的项目编号LFBJA参考凭证的会计年度LEBNR参考凭证的凭证编号LFPOS参考凭证的项目SJAHR物料凭证的年份SMBLN物料凭证编号SMBLP物料凭证中的项目ELIKZ 交货已完成 标识SGTXT项目说明文本EQUNR设备号WEMPF收货者ABLAD卸货点GSBER业务范围KOKRS成本控制范围PARGB贸易伙伴的业务范围PARBU结算公司代码KOSTL成本中心PROJN原有：项目编号：不再使用！- PS_POSNR26 长城电子商务系统之 SAP 部分设计第 26 页AUFNR订单编号ANLN1主资产号ANLN2资产次级编号XSKST标志: 统计记帐到成本中心XSAUF标志: 统计记帐到订单XSPRO标志: 统计记帐到项目XSERG标志: 利润分析记帐是统计性的GJAHR财政年度SRUEM允许记帐到上一期间(后过账)XRUEJ标识: 记帐到上一年BUKRS公司代码BELNR财务凭证编号BUZEI会计凭证中的行项目号BELUM财务凭证编号BUZUM会计凭证中的行项目号RSNUM保留数/相关需求RSPOS预定/相关需求的项目编号KZEAR该预定的最后发货PBAMG数量KZSTR事务/事件与统计相关UMMAT收货/发货物料UMWRK收货工厂/发货工厂27 长城电子商务系统之 SAP 部分设计第 27 页UMLGO收货/发货库存地点UMCHA收货/发货批量UMZST接收批量的状态UMZUS转移批量的状态代码UMBAR批量转移的估价类型UMSOK实地库存转移的特殊库存标识KZBEW移动标识KZVBR消耗记帐KZZUG收货标识WEUNB收货，无估价PALANWMS 货盘数LGNUM仓库号/混合仓库LGTYP仓储类型LGPLA仓位BESTQ仓库管理系统中的库存种类BWLVS仓库管理库存移动类型TBNUM转储请求号TBPOS转储请求项目XBLVS标识: 仓库管理系统中的记帐VSCHN标识: 源仓储类型和仓位的中间仓储记帐NSCHN标识: 目的地仓储类型和仓位的中间仓储记帐DYPLA标识: 动态仓位28 长城电子商务系统之 SAP 部分设计第 28 页UBNUM记帐修改号TBPRI转储优先级TANUM转储单号WEANZ将打印的收货/发货单据数GRUND移动原因EVERS装运须知EVERE依照装运须知IMKEY财产对象的内部码KSTRG成本对象PAOBJNR盈利性分段编号(CO-PA)PRCTR利润中心PS_PSP_PNR工作分解结构元素 (WBS 元素)NPLNR科目分配的网络号AUFPL订单中工序的工艺路线号APLZL内部计数器AUFPS订单项目号VPTNR合伙人帐户编号FIPOS承诺项目SAKTO总帐科目编号BSTMG用订货单位表示的收货数量BSTME订单单位XWSBR允许对基于 GR 的 IV 进行 GR 冲销，而不管发票29 长城电子商务系统之 SAP 部分设计第 29 页EMLIF被供应的供应商/接受供货者.INCLUDEEXBWR以本地货币计的从外部输入的记帐数量VKWRT含增值税的销售价格价值AKTNR促销ZEKKN帐户分配的序列号VFDAT货架寿命到期日期CUOBJ_CH 批分类的内部对象编号EXVKW以本地货币计的从外部输入的销售价值PPRCTR伙伴利润中心RSART记录类型GEBER基金FISTL基金中心MATBF管理库存的物料UMMAB收货/发货物料BUSTM数量的记帐字串BUSTW价值的记帐字串MENGU物料主记录中的数量更新WERTU物料主记录中的值更新LBKUM过帐前总计估价库存SALK3过帐前总计评估的库存的价值VPRSV价格控制指示符30 长城电子商务系统之 SAP 部分设计第 30 页FKBER功能范围DABRBZ决算的参考日期VKWRA排除增值税的销售价格值DABRZ决算的参考日期XBEAU在收货时间创建的采购订单LSMNG数量使用来自交货单的计量单位SLMEH交货单计量单位KZBWS标识符：特定库存的评估QINSPST货物收据检验状态URZEI物料凭证中的原始行J_1BEXBAS文件货币的交替基数金额MWSKZ销售/购买税代码TXJCD税计算的管辖权 - 税收管辖权代码EMATN按照制造商零件编号的物料编号J_1AGIRUPD已运行出货重估VKMWS销售/购买税代码HSDAT批量的生产日期BERKZ生产供应的物料待运标志MAT_KDAUF评估销售定单库存的销售定单号MAT_KDPOS评估销售定单库存的销售定单项MAT_PSPNR已估价的客户库存 WBS 元素XWOFF开放值计算31 长城电子商务系统之 SAP 部分设计第 31 页BEMOT会计指示器PRZNR业务处理LLIEF供货供应商LSTAR作业类型32 长城电子商务系统之 SAP 部分设计第 32 页3.3 标准数据部分标准数据部分3.3.1 获取客户主数据获取客户主数据(t_khxx)1结构结构客户资料表（ladingheader）字段数据类型说明备注KUNNRCHAR(10)购货方编号NAME1CHAR(30)姓名NAME2CHAR(30)名称 2KNRZACHAR(10)一个备选付款人的帐号UNKNOW1CHAR(2)属性 1UNKNOW2CHAR(10)供应商或债权人帐户号PSTLZCHAR(10)邮政编码ORT01CHAR(25)城市REGIOCHAR(3)地区 (州、省、县)STRASCHAR(30)住宅号及街道TELF1CHAR(16)第一个电话号TELFXCHAR(31)传真号TELBXCHAR(15)电子信箱号UNKNOW3CHAR(15)标题KUKLACHAR(2)客户分类UNKNOW4CHAR(10)供应商或债权人帐户号MANDTINT集团BUKRSCHAR(4)公司代码VKORGCHAR(4)销售组织VTWEGCHAR(2)分销渠道SPARTCHAR(2)部门VKGRPCHAR(3)销售组VKBURCHAR(4)销售办事处BZIRKCHAR(6)销售地区KONDACHAR(2)价格组(客户)WAERSCHAR(5)货币名称代码VWERKCHAR(4)从工厂2函数函数函数名Zb2b_customer_getdetail输出参数Customer客户资料表33 长城电子商务系统之 SAP 部分设计第 33 页Returnbapireturn3程序程序FUNCTION ZB2B_CUSTOMER_GETDETAIL.*-*Local interface:* EXPORTING* VALUE(RETURN) LIKE BAPIRETURN STRUCTURE BAPIRETURN* TABLES* CUSTOMER STRUCTURE ZST_CUSTOMER*-*集团代码*客户代码*公司代码*销售组织*分销渠道*部门*销售组*销售办事处tables : kna1, knvv.DATA: BEGIN OF line1, mandt like kna1-mandt, kunnr like kna1-kunnr,* bukrs like knb1-bukrs, vkorg like knvv-vkorg, vtweg like knvv-vtweg, spart like knvv-spart, vkgrp like knvv-vkgrp, vkbur like knvv-vkbur, END OF line1.data : custline like zst_customer.select * from kna1 into corresponding fields of custline.* append customer.* line1-mandt = custline-mandt.* line1-kunnr = custline-kunnr. select * from knvv into corresponding fields of line134 长城电子商务系统之 SAP 部分设计第 34 页 where knvvmandt = custline-mandt and knvvkunnr = custline-kunnr. custline-vkorg = line1-vkorg. custline-vtweg = line1-vtweg. custline-spart = line1-spart. custline-vkgrp = line1-vkgrp. custline-vkbur = line1-vkbur.* select * from knb1* into corresponding fields of line1* where knb1mandt = custline-mandt* and knb1kunnr = custline-kunnr .* custline-bukrs = line1-bukrs.* select * from tvko* into corresponding fields of line1* where tvkomandt = custline-mandt* and tvkobukrs = custline-bukrs.* custline-vkorg = line1-vkorg. append custline to customer.* modify table customer from line1.* endselect. endselect.endselect.IF SY-SUBRC 0. PERFORM GET_RETURN USING E V4 213 SPACE SPACE SPACE SPACE RETURN. EXIT.ENDIF.ENDFUNCTION.3.3.2 获取销售组获取销售组 t_salegroup1结构结构销售组表（zst_salegroup）35 长城电子商务系统之 SAP 部分设计第 35 页字段数据类型说明备注MANDTInt集团VKBURChar(4)销售办事处VKGRPChar(3)销售组BEZEIChar(20)描述2函数函数函数名Zb2b_salegroup_getdetail输出参数Salegroup销售组表Returnbapireturn3程序程序FUNCTION ZB2B_SALEGROUP_GETDETAIL.*-*Local interface:* EXPORTING* VALUE(RETURN) LIKE BAPIRETURN STRUCTURE BAPIRETURN* TABLES* SALEGROUP STRUCTURE ZST_SALEGROUP*-select * into corresponding fields of salegroup from TVBVK as A inner join TVKGR as B on BMANDT = AMANDT and BVKGRP = AVKGRP inner join TVGRT as C on CMANDT = BMANDT and CVKGRP = BVKGRP. append salegroup.endselect.IF SY-SUBRC 0. PERFORM GET_RETURN USING E V4 213 SPACE SPACE SPACE SPACE RETURN. EXIT.ENDIF.ENDFUNCTION.36 长城电子商务系统之 SAP 部分设计第 36 页3.3.3 获取销售办公室获取销售办公室 t_saleoffice1结构结构销售办事处表（zst_saleoffice）字段数据类型说明备注MANDTInt集团VKORGChar(4)销售组织VTWEGChar(2)分销渠道SPARTChar(2)部门VKBURChar(4)销售办事处BEZEIChar(20)描述2函数函数函数名Zb2b_saleoffice_getdetail输出参数Saleoffice销售办事处表Returnbapireturn3程序程序FUNCTION ZB2B_SALEOFFICE_GETDETAIL.*-*Local interface:* EXPORTING* VALUE(RETURN) LIKE BAPIRETURN STRUCTURE BAPIRETURN* TABLES* SALEOFFICE STRUCTURE ZST_SALEOFFICE*-select * into corresponding fields of saleoffice from TVKBZ as A inner join TVBUR as B on ( BMANDT = AMANDT and BVKBUR = AVKBUR ) inner join TVKBT as C on ( CMANDT = BMANDT and CVKBUR = BVKBUR ) . append saleoffice.endselect.IF SY-SUBRC 0.37 长城电子商务系统之 SAP 部分设计第 37 页 PERFORM GET_RETURN USING E V4 213 SPACE SPACE SPACE SPACE RETURN. EXIT.ENDIF.ENDFUNCTION.3.3.4 获取销售部门获取销售部门 t_saledepartment1结构结构分销渠道表（zst_saledepartment）字段数据类型说明备注MANDTInt集团VKORGChar(4)销售组织VTWEGChar(2)分销渠道SPARTChar(20)部门VTEXTChar(20)名称2函数函数函数名Zb2b_saledepartment_getdetail输出参数saledepartment部门表Returnbapireturn3程序程序FUNCTION ZB2B_SALEDEPARTMENT_GETDETAIL.*-*Local interface:* EXPORTING* VALUE(RETURN) LIKE BAPIRETURN STRUCTURE BAPIRETURN* TABLES* SALEDEPARTMENT STRUCTURE ZST_SALEDEPARTMENT*-select * into corresponding fields of saledepartment from TVTA as A inner join TVKOV as B on ( BMANDT = AMANDT and BVKORG = AVKORG38 长城电子商务系统之 SAP 部分设计第 38 页 and BVTWEG = AVTWEG ) inner join TVKOS as C on ( CMANDT = AMANDT and CVKORG = AVKORG and CSPART = ASPART ) inner join TVKO as D on ( DMANDT = BMANDT and DVKORG = BVKORG ) inner join TVTW as E on ( EMANDT = BMANDT and EVTWEG = BVTWEG ) inner join TSPA as F on ( FMANDT = CMANDT and FSPART = CSPART ) inner join TSPAT as G on ( GMANDT = FMANDT and GSPART = FSPART ) . append saledepartment.endselect.IF SY-SUBRC 0. PERFORM GET_RETURN USING E V4 213 SPACE SPACE SPACE SPACE RETURN. EXIT.ENDIF.ENDFUNCTION.3.3.5 获取销售组织获取销售组织 t_saleorganize1结构结构销售组织表（TVKOT）字段数据类型说明备注MANDTInt集团SPRASInt语言代码VKORGChar(4)销售组织VTEXTChar(20)名称2函数函数函数名Zb2b_saleorganize_getdetail输出参数Saleorganize销售组织表Returnbapireturn39 长城电子商务系统之 SAP 部分设计第 39 页3程序程序FUNCTION ZB2B_SALEORGANIZE_GETDETAIL.*-*Local interface:* EXPORTING* VALUE(RETURN) LIKE BAPIRETURN STRUCTURE BAPIRETURN* TABLES* SALEORGANIZE STRUCTURE TVKOT*-select * from tvkot into table saleorganize.IF SY-SUBRC 0. PERFORM GET_RETURN USING E V4 213 SPACE SPACE SPACE SPACE RETURN. EXIT.ENDIF.ENDFUNCTION.3.3.6 获取订单类型获取订单类型 t_ordertype1结构结构订单类型表（TVAKT）字段数据类型说明备注MANDTInt集团SPRASInt语言代码AUARTChar(4)销售单据类型BEZEIChar(20)描述2函数函数函数名Zb2b_ordertype_getdetail输出参数Ordertype订单类型表TVAKTReturnbapireturn40 长城电子商务系统之 SAP 部分设计第 40 页3程序程序FUNCTION ZB2B_ORDERTYPE_GETDETAIL.*-*Local interface:* EXPORTING* VALUE(RETURN) LIKE BAPIRETURN STRUCTURE BAPIRETURN* TABLES* ORDERTYPE STRUCTURE TVAKT*-select * from tvakt into table ordertype.* where AUART like Z% .IF SY-SUBRC 0. PERFORM GET_RETURN USING E V4 213 SPACE SPACE SPACE SPACE RETURN. EXIT.ENDIF.ENDFUNCTION.3.3.7 获取工厂获取工厂 t_factory1结构结构销售组表（factory）字段数据类型说明备注MANDTInt集团WERKSChar(4)工厂NAME1Char(30)姓名BWKEYChar(4)估价范围KUNNRChar(10)工厂的客户号LIFNRChar(10)工厂供应商号码2函数函数函数名Zb2b_factory_getdetail输出参数Factory工厂表41 长城电子商务系统之 SAP 部分设计第 41 页Returnbapireturn3