联芯科技ERP项目-技术文档-FICO-036-应收应付个人往来明细表20090925

PAGEPAGE12 DATE\@"M/d/yyyy"9/29/2009Version1.0 FILENAME开发规格书--FI-资产负债表PAGE1XXXXXX项目 DATE\@"M/d/yyyy"9/29/2009Version1.0 第I部分:需求模块MACROBUTTONCheckIt_CheckBox£MM MACROBUTTONCheckIt_CheckBox£PP MACROBUTTONCheckIt_CheckBox£SD ■FI MACROBUTTONCheckIt_CheckBox£CO MACROBUTTONCheckIt_CheckBox£IP/FMMACROBUTTONCheckIt_CheckBox£其它Spec编号ZLC_SPEC_FICO_036短描述应收应付个人往来明细表类型MACROBUTTONCheckIt_Radiobutton报表MACROBUTTONCheckIt_RadiobuttonABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONUnCheckIt_Radiobutton表单MACROBUTTONCheckIt_Radiobutton流程增强MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton数据转移需求优先级MACROBUTTONUnCheckIt_RadiobuttonHigh/关键 MACROBUTTONCheckIt_RadiobuttonMid/推荐 MACROBUTTONCheckIt_RadiobuttonLow/可选用户MACROBUTTONNextCell肖丽华要求日期月结前预计开发天数（由功能顾问与开发顾问评估）必填_____天是否有标准功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo标准功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse参考的标准功能表单开发：列出参考的标准的Form的技术名称报表开发：列出参考的标准报表文档变更历史版本号文档维护时间姓名简要的描述V1.0200肖丽华初建V1.12009-09-22肖丽华修改20090925徐世兵增加技术说明文档

第II部分:详细功能描述目的：日常查询应收、应付、个人往来明细情况功能描述:在任何时候都能进行应收、应付帐龄分析表、打印选择条件见后详述运行频率MACROBUTTONUnCheckIt_Radiobutton任何时间MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton两周MACROBUTTONCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：运行方式MACROBUTTONUnCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自动MACROBUTTONCheckIt_Radiobutton批处理MACROBUTTONCheckIt_Radiobutton在线处理输出方式MACROBUTTONCheckIt_Radiobutton屏幕输出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONCheckIt_Radiobutton文件输出MACROBUTTONUnCheckIt_Radiobutton其它：打印和文件输出打印机类型激光打印机纸张大小A4横印语言简体中文选择屏幕： 顺序字段名称字段技术名称字段描述P/S必填/可选特殊需求1公司代码公司代码P必填默认值D3002过账日期起讫日期P必填默认为至当前日期3会计年度会计年度P必填默认本会计年度4科目SKB1-SAKNRS可选MITKZ=D或K5客户KNB1-KUNNR客户P必填默认为所有客户6供应商LFB1-LIFNR供应商P必填默认为所有供应商且账户组≠Z9007供应商LFB1-LIFNR员工P必填默认为所有员工且账户组＝Z900报表/表单的字段抬头字段/表尾字段见附加EXCEL（应收、应付帐龄分析表样表）。顺序字段名称字段技术名称字段描述特殊需求1企业名称T001-BUTXT公司代码对应的名称2过账日期BSID-BUDAT取选择屏幕上的过账日期格式/屏幕设计：见附件EXCEL（应收、应付、个人往来明细表）。逻辑关系：见下附件EXCEL（应收、应付、个人往来明细表公式）.一、应收往来明细表在BSEG表中取科目类型（KOART）＝D且凭证编号（BELNR）不在清帐凭证（AUGBL）范围内的凭证编码，但应包括凭证行项目中含特殊G/L标识（UMSKZ）＝S或W。根据输入条件中输入的客户（KUNNR）为关键值在上一步所找的凭证编号（BELNR）中取相应的凭证编号（BELNR）。以上一步找到凭证编码（BELNR）为关键值到BKPF表中找冲销关于(STBLG)字段为空的凭证编号（BELNR），在找到的凭证中取过账日期(BUDAT)在输入条件中过账日期（BUDAT）起讫日期期间内的凭证编号（BELNR）；取参照（XBLNR）填列为实物发票号再以找到的凭证编号（BELNR）为关键值到BSEG表中，以相同的总帐帐目（HKONT）的借方（S）本位币金额(DMBTR)填列为借方发生额；以贷方（H）本位币金额(DMBTR)填列为贷方发生额；以文本（SGTXT）为关键值到VBKD表中找到相应销售凭证（VBELN）对应的PO号码（BSTKD）填列为合同号码。以第2步中找到的凭证编码（BELNR）为关键值到BKPF表中找冲销关于(STBLG)字段为空的凭证编号（BELNR），取过账日期(BUDAT)小于输入条件中过账日期（BUDAT）起始日期的所有凭证编号（BELNR）。再以找到的凭证编号（BELNR）为关键值到BSEG表中，以借方（S）本位币金额(DMBTR)的合计数减贷方（H）本位币金额(DMBTR)合计数的差额填列为期初余额。根据输入条件中输入的客户（KUNNR）为关键值到KNA1表中找客户（KUNNR）对应的名称（NAME1）二、应付往来明细表在BSEG表中取科目类型（KOART）＝K且凭证编号（BELNR）不在清帐凭证（AUGBL）范围内的凭证编码，但应包括凭证行项目中含特殊G/L标识（UMSKZ）＝S或W。根据输入条件中输入的供应商（LIFNR）为关键值在上一步所找的凭证编号（BELNR）中取相应的凭证编号（BELNR）。以上一步找到凭证编码（BELNR）为关键值到BKPF表中找冲销关于(STBLG)字段为空的凭证编号（BELNR），在找到的凭证中取过账日期(BUDAT)在输入条件中过账日期（BUDAT）起讫日期期间内的凭证编号（BELNR）。取参照（XBLNR）填列为实物发票号再以找到的凭证编号（BELNR）为关键值到BSEG表中，以相同的总帐帐目（HKONT）的借方（S）本位币金额(DMBTR)填列为借方发生额；以贷方（H）本位币金额(DMBTR)填列为贷方发生额；以分配（ZUONR）填列为采购订单以第2步中找到的凭证编码（BELNR）为关键值到BKPF表中找冲销关于(STBLG)字段为空的凭证编号（BELNR），取过账日期(BUDAT)小于输入条件中过账日期（BUDAT）起始日期的所有凭证编号（BELNR）。再以找到的凭证编号（BELNR）为关键值到BSEG表中，以贷方（H）本位币金额(DMBTR)的合计数减借方（S）本位币金额(DMBTR)合计数的差额填列为期初余额。根据输入条件中输入的供应商（LIFNR）为关键值到LFA1表中找供应商（LIFNR）对应的名称（NAME1）三、个人往来明细表在BSEG表中取科目类型（KOART）＝K且凭证编号（BELNR）不在清帐凭证（AUGBL）范围内的凭证编码。根据输入条件中输入的供应商（LIFNR）为关键值在上一步所找的凭证编号（BELNR）中取相应的凭证编号（BELNR）。以上一步找到凭证编码（BELNR）为关键值到BKPF表中找冲销关于(STBLG)字段为空的凭证编号（BELNR），在找到的凭证中取过账日期(BUDAT)在输入条件中过账日期（BUDAT）起讫日期期间内的凭证编号（BELNR）。再以找到的凭证编号（BELNR）为关键值到BSEG表中，以相同的总帐帐目（HKONT）的借方（S）本位币金额(DMBTR)填列为借方发生额；以贷方（H）本位币金额(DMBTR)填列为贷方发生额；以分配（ZUONR）填列为借款单号以第2步中找到的凭证编码（BELNR）为关键值到BKPF表中找冲销关于(STBLG)字段为空的凭证编号（BELNR），取过账日期(BUDAT)小于输入条件中过账日期（BUDAT）起始日期期间的所有凭证编号（BELNR）。再以找到的凭证编号（BELNR）为关键值到BSEG表中，以借方（H）本位币金额(DMBTR)的合计数减贷方（S）本位币金额(DMBTR)合计数的差额填列为期初余额。根据输入条件中输入的供应商（LIFNR）为关键值到LFA1表中找供应商（LIFNR）对应的名称（NAME1）填列为名称，找名称2（NAME2）填列为部门。其它内容：权限控制在单一角色控制中查询ZR_FI_048的权限，如有此权限可查询组织结构值为D300的报表；在单一角色控制中查询ZR_FI_049的权限，如有此权限可查询组织结构值为D310的报表。

第III部分:技术说明ProgramnameZ_FI_EXEC_INTERCOURSETransactioncodeZFI036AuthorizationObjectZR_FI_048、ZR_FI_049（ROLE）FormFormnameN/AOutputtypeN/AFormroutineN/A程序逻辑：初始化选择屏幕：根据系统日期填充默认的过账日期为当前期间的第一天至最后一天S_BUDAT-SIGN='I'.S_BUDAT-OPTION='EQ'.CONCATENATESY-DATUM+0(6)'01'INTOS_BUDAT-LOW.CALLFUNCTION'BKK_GET_MONTH_LASTDAY'EXPORTINGI_DATE=S_BUDAT-LOWIMPORTINGE_DATE=S_BUDAT-HIGH.APPENDS_BUDAT.2.PERFORMAUTHORITY_CHECK."权限检查检查当前操作用户有无角色ZR_FI_048、ZR_FI_049，并分别匹配对应的公司代码：FORMAUTHORITY_CHECK."公司代码检查TABLES:AGR_USERS.TYPES:BEGINOFTY_AGR_NAME,AGR_NAMELIKEAGR_USERS-AGR_NAME,ENDOFTY_AGR_NAME.DATA:LT_AGR_NAMETYPETABLEOFTY_AGR_NAME,LS_AGR_NAMETYPETY_AGR_NAME.DATA:L_LINETYPEI.SELECTAGR_NAMEINTOTABLELT_AGR_NAMEFROMAGR_USERSWHEREUNAME=SY-UNAMEANDAGR_NAMEIN('ZR_FI_048','ZR_FI_049').DESCRIBETABLELT_AGR_NAMELINESL_LINE.IFL_LINE=1.READTABLELT_AGR_NAMEINTOLS_AGR_NAMEWITHKEYAGR_NAME='ZR_FI_048'.IFSY-SUBRC=0.IFP_BUKRS='D300'.ELSE.MESSAGEI002(Z_1)WITH'没有权限进行查看'.LEAVELIST-PROCESSING.ENDIF.ENDIF.READTABLELT_AGR_NAMEINTOLS_AGR_NAMEWITHKEYAGR_NAME='ZR_FI_049'.IFSY-SUBRC=0.IFP_BUKRS='D310'.ELSE.MESSAGEI002(Z_1)WITH'没有权限进行查看'.LEAVELIST-PROCESSING.ENDIF.ENDIF.ENDIF.IFL_LINE=0.MESSAGEI002(Z_1)WITH'没有权限进行查看'.LEAVELIST-PROCESSING.ENDIF.ENDFORM."AUTHORITY_CHECK3.数据选取处理PERFORMFRM_GET_DETAIL.3.1选取选择日期范围内的非冲销凭证：SELECTBUKRSBELNRGJAHRBUDATXBLNRINTOTABLEGT_BELNRFROMBKPFWHEREBUKRS=P_BUKRSANDGJAHR=P_GJARHANDBUDATINS_BUDATANDSTBLG=''.”冲销3.2按选择屏幕对应的应付个人、应付供应商、应收客户分别选取在第一步得到的凭证范围的内凭证明细。3.3"当凭证号等于清帐凭证号且G/L标识（UMSKZ）不为S或W排除LOOPATGT_OUTINTOGS_OUTWHEREUMSKZ<>'S'ORUMSKZ<>'W'.IFGS_OUT-BELNR=GS_OUT-AUGBL.DELETEGT_OUT.ENDIF.ENDLOOP.3.4"当凭证在清帐凭证范围内排除IFP_YS='X'.“客户LOOPATGT_OUTINTOGS_OUT.SELECTSINGLE*FROMBSADWHEREAUGBL=GS_OUT-BELNRANDGJAHR=P_GJARHANDBUKRS=P_BUKRS.IFSY-SUBRC=0.DELETEGT_OUT.ENDIF.ENDLOOP.ENDIF.IFP_YF='X'ORP_YFGR='X'.“供应商个人LOOPATGT_OUTINTOGS_OUT.SELECTSINGLE*FROMBSAKWHEREAUGBL=GS_OUT-BELNRANDGJAHR=P_GJARHANDBUKRS=P_BUKRS.IFSY-SUBRC=0.DELETEGT_OUT.ENDIF.ENDLOOP.ENDIF.3.5按屏幕输入，对应选取供应商或客户的基本信息如名称等"选取供应商名称组织IFP_YFGR='X'ORP_YF='X'."应付个人/应付SELECTLFA1~LIFNRNAME1NAME2KTOKKAKONTINTOTABLEGT_LIFNRFROMLFA1INNERJOINLFB1ONLFA1~LIFNR=LFB1~LIFNRFORALLENTRIESINGT_OUTWHERELFA1~LIFNR=GT_OUT-LIFNRANDBUKRS=P_BUKRS.ENDIF."选取客户名称IFP_YS='X'."应收SELECTKNA1~KUNNRNAME1AKONTINTOTABLEGT_KUNNRFROMKNA1INNERJOINKNB1ONKNB1~KUNNR=KNA1~KUNNRFORALLENTRIESINGT_OUTWHEREKNA1~KUNNR=GT_OUT-KUNNRANDBUKRS=P_BUKRS.ENDIF.3.6按屏幕输入分别对数据进行处理，其中对于供应商和个人用用户组Z900区别"合并数据"处理个人应付、应付IFP_YFGR='X'ORP_YF='X'.LOOPATGT_OUTINTOGS_OUT."合并供应商READTABLEGT_LIFNRINTOGS_LIFNRWITHKEYLIFNR=GS_OUT-LIFNR.IFSY-SUBRC=0.GS_OUT-NAME1=GS_LIFNR-NAME1.GS_OUT-STEXT=GS_LIFNR-NAME2.GS_OUT-KTOKK=GS_LIFNR-KTOKK.GS_OUT-AKONT=GS_LIFNR-AKONT."统驭科目ENDIF.IFP_YFGR='X'.IFGS_OUT-KTOKK='Z900'.ELSE.DELETEGT_OUT.CONTINUE.ENDIF.ENDIF.IFP_YF='X'.IFGS_OUT-KTOKK<>'Z900'.ELSE.DELETEGT_OUT.CONTINUE.ENDIF.ENDIF."合并凭证日期READTABLEGT_BELNRINTOGS_BELNRWITHKEYBELNR=GS_OUT-BELNR.IFSY-SUBRC=0.GS_OUT-BUDAT=GS_BELNR-BUDAT.GS_OUT-XBLNR=GS_BELNR-XBLNR.ENDIF.IFGS_OUT-SHKZG='H'.GS_OUT-WRBTRH=ABS(GS_OUT-DMBTR).ELSE.GS_OUT-WRBTRS=ABS(GS_OUT-DMBTR).ENDIF.MODIFYGT_OUTFROMGS_OUT.CLEAR:GS_OUT,LS_BALANCE.ENDLOOP.ENDIF."处理应收DATA:VBELNTYPEVBELN.IFP_YS='X'.LOOPATGT_OUTINTOGS_OUT."选取合同号CLEAR:VBELN.VBELN=GS_OUT-SGTXT+0(10).SELECTSINGLEBSTKDINTOGS_OUT-VBELNFROMVBKDWHEREVBELN=VBELN."合并客户名称READTABLEGT_KUNNRINTOGS_KUNNRWITHKEYKUNNR=GS_OUT-KUNNR.IFSY-SUBRC=0.GS_OUT-NAME1=GS_KUNNR-NAME1.GS_OUT-AKONT=GS_KUNNR-AKONT."统驭科目ENDIF."合并凭证日期READTABLEGT_BELNRINTOGS_BELNRWITHKEYBELNR=GS_OUT-BELNR.IFSY-SUBRC=0.GS_OUT-BUDAT=GS_BELNR-BUDAT.GS_OUT-XBLNR=GS_BELNR-XBLNR.ENDIF.IFGS_OUT-SHKZG='H'.GS_OUT-WRBTRH=ABS(GS_OUT-DMBTR).ELSE.GS_OUT-WRBTRS=ABS(GS_OUT-DMBTR).ENDIF.MODIFYGT_OUTFROMGS_OUT.CLEAR:GS_OUT,LS_BALANCE.ENDLOOP.ENDIF.SELECT*FROMT074INTOTABLELT_T074WHEREKTOPL='DTDX'.3.7根据输入日期范围的开始日-1取并利用统驭科目和特别总账标示匹配对应科目的期初科目余额。LOOPATGT_OUTINTOGS_OUT."处理期初S_BUDAT-LOW=S_BUDAT-LOW-1.IFP_YFGR='X'ORP_YF='X'.GS_OUT-EBELN=GS_OUT-ZUONR.CALLFUNCTION'BAPI_AP_ACC_GETKEYDATEBALANCE'EXPORTINGCOMPANYCODE=P_BUKRSVENDOR=GS_OUT-LIFNRKEYDATE=S_BUDAT-LOWBALANCESPGLI='X'TABLESKEYBALANCE=LT_BALANCE.S_BUDAT-LOW=S_BUDAT-LOW.LOOPATLT_T074INTOLS_T074WHEREHKONT=GS_OUT-AKONTANDSKONT=GS_OUT-HKONTANDKOART='K'.LOOPATLT_BALANCEINTOLS_BALANCEWHERESP_GL_IND=LS_T074-UMSKZ.GS_OUT-QCYE=LS_BALANCE-T_CURR_BAL.CLEAR:LS_BALANCE.ENDLOOP.