tcl erp项目数据转换-transcation data-财务科目余额gl.docVIP

TCL多媒体事业本部 数据转换备忘录 科目余额主数据上载 科目余额主数据批量上载（LSMW） 功能描述 这部分用来批量上载大量的科目余额数据，系统根据上载模版生成上载数据， 用户可以选择前台或后台运行。此模板进行所有财务余额数据的上载，包括总账，应收帐款，应付帐款。 菜单路径 视图/路径 产生主数据1 LSMW: PRJ_00-GL-GL_CREATE 产生主数据2 LSMW: PRJ_00-GL-GL_CREATE2 其中 GL_CREATE 为创建新的科目余额数据，按模板提供的数据进行上载，不进行数据编码的转换。 GL_CREATE2为创建已有的科目余额数据，对客户，供应商，内部订单需要进行从金碟编码到SAP编码的转化。 使用前提 在C:\建立文件夹Sapworking 此程序供ABAP开发人员使用 相关逻辑流程 使用说明： 参照科目余额主数据上载模版，填写各个视图的数据，模版详见：LSMW数据模版\科目余额主数据模版.xls 打开模版文件的脚本编辑器，分别运行宏ExportTxtBasic和ExportTxtSView,将在C:\Sapworking\下产生上载物料所需要的一系列脚本文本(*.txt),如下图： 运行LSMW,上载科目余额主数据，操作步骤参见附件-LSMW使用说明和开发流程.doc。 2．部分代码： 客户代码转换： DATA: ZNEWKO(2) TYPE C. IF ZBBSEG-RKE_KNDNR . SELECT SINGLE KUNNR FROM KNB1 INTO ZBBSEG-RKE_KNDNR WHERE BUKRS = ZBBKPF-BUKRS AND tlfxs = ZBBSEG-RKE_KNDNR . IF SY-SUBRC 0. ZBBSEG-RKE_KNDNR = . ENDIF. ENDIF. perform ur_TRAN_BLANK using ZBBSEG-RKE_KNDNR changing BBSEG-RKE_KNDNR. 2）内部订单转换： DATA: BEGIN OF WA_AUFNR OCCURS 0, AUFNR(20) TYPE C, END OF WA_AUFNR. DATA: Z1 TYPE C, ZWHERE TYPE STRING, ZWHERE1 TYPE STRING. if not ZBBSEG-AUFNR is initial. Z1 = . ZWHERE = BUKRS = ZBBKPF-BUKRS AND AUFEX = . CONCATENATE ZWHERE ZBBSEG-AUFNR INTO ZWHERE. CASE ZBBSEG-NEWKO. WHEN 5501070100 OR 5501070100. ZWHERE1 = AND AUFNR LIKE 0007%. WHEN 5501170100 OR 5501170201 OR 5501170202 OR 5501170203 OR 5501170204 OR 5501170205 OR 5501170206. ZWHERE1 = AND AUFNR LIKE 0005%. WHEN 5501140000 OR 5501140200. ZWHERE1 = AND AUFNR LIKE 0006%. ENDCASE. CONCATENATE ZWHERE ZWHERE1 INTO ZWHERE SEPARATED BY SPACE. SELECT SINGLE AUFNR FROM AUFK INTO ZBBSEG-AUFNR WHERE (ZWHERE) . if sy-subrc 0 . endif. endif. perform ur_TRAN_BLANK using ZBBSEG-AUFNR changing BBSEG-AUFNR. 根据公司，科目年份，凭证号判断是否跳过相同的纪录 tables: bkpf. select single * from bkpf where bukr