联芯科技ERP项目-技术文档-FICO-018-预收款及收款凭证销售订单合同号验证

DATE\@"yyyy-MM-dd"2009-10-28Version1.0PAGE1联芯科技ERP项目 DATE\@"M/d/yyyy"10/28/2009Version1.0 联芯科技ERP项目开发规格书第I部分:需求模块MACROBUTTONCheckIt_CheckBox£MM MACROBUTTONCheckIt_CheckBox£PP MACROBUTTONCheckIt_CheckBox£SD ■FI MACROBUTTONCheckIt_CheckBox£CO MACROBUTTONCheckIt_CheckBox£IP/FMMACROBUTTONCheckIt_CheckBox£其它Spec编号ZLC_SPEC_FICO_018短描述收款、预收款会计凭证按合同号、销售订单号验证类型MACROBUTTONCheckIt_Radiobutton报表MACROBUTTONCheckIt_RadiobuttonABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReports●OthersMACROBUTTONCheckIt_Radiobutton表单MACROBUTTONUnCheckIt_Radiobutton流程增强MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram ●Others验证eMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton数据转移需求优先级MACROBUTTONUnCheckIt_RadiobuttonHigh/关键 MACROBUTTONCheckIt_RadiobuttonMid/推荐 MACROBUTTONCheckIt_RadiobuttonLow/可选用户MACROBUTTONNextCell（必填）（关键用户岗位/领导）要求日期200预计开发天数（由功能顾问与开发顾问评估）必填_____天是否有标准功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo标准功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse参考的标准功能表单开发：列出参考的标准的Form的技术名称报表开发：列出参考的标准报表文档变更历史版本号文档维护时间姓名简要的描述1.02009-6-李翔创建2009-9-28郭潇潇增加技术文档

第III部分:技术说明ProgramnameTransactioncodeAuthorizationObjectFormFormnameN/AOutputtypeN/AFormroutineN/A程序逻辑：TCODE:OB28依据公司进入，行项目-ZFI0001，选择U107进入。对于合同，bseg-zuonr<>'0000'时，并且ZUONR中填写的数据如果在ztfi_inipo中存在，则不作此验证，如果存在，依据ZUONR中的合同号在vbak中查找是否存在，如果不存在则报错。对应SO，bseg-SGTXT+0(4)<>'0000'时，并且SGTXT中填写的数据如果在ztfi_inipo中存在，则不作此验证，如果存在，依据SGTXT中的SO号在vbak中查找是否存在，如果不存在则报错。代码实现如下。*ZLC_SPEC_FICO_018*01、11、04、17、09（且特别总账标识为A）、19（且特别总账标识为ADATA:lv_vbeln1LIKEvbak-vbeln,"合同lv_vbeln2LIKEvbak-vbeln,"销售订单lv_sgtxtLIKEbseg-sgtxt,lv_zuonrLIKEbseg-zuonr,lv_strlenTYPEi.DATA:lv_log_d(1),lv_log_k(1).DATA:lv_zuonr1LIKEbseg-zuonr,lv_zuonr2LIKEbseg-zuonr.*CHECKsy-uname='GUOXIAOXIAO'.IF(bseg-bschl='01'ORbseg-bschl='11'ORbseg-bschl='04'ORbseg-bschl='17')OR(bseg-bschl='09'ANDbseg-umskz='A')OR(bseg-bschl='09'ANDbseg-umskz='W')OR(bseg-bschl='09'ANDbseg-umskz='S')OR(bseg-bschl='19'ANDbseg-umskz='A')OR(bseg-bschl='19'ANDbseg-umskz='W')OR(bseg-bschl='19'ANDbseg-umskz='S').IF(bseg-hkont='1122010000'ORbseg-hkont='1122020000'ORbseg-hkont='1121010100'ORbseg-hkont='1121010200'ORbseg-hkont='1121020100'ORbseg-hkont='1121020200').lv_sgtxt=bseg-sgtxt.lv_zuonr=bseg-zuonr.SELECTSINGLEzuonrINTOlv_zuonr1FROMztfi_inipoWHEREzuonr=bseg-zuonrANDzlog='D'.IFsy-subrc<>0.lv_log_d='N'."找不到期初数据ENDIF.IFbseg-zuonr<>'0000'.IFlv_log_d='N'.CLEAR:lv_strlen,lv_log_d.lv_strlen=STRLEN(lv_zuonr)."判断BSEG-ZUONR的长度是否等于10位IFlv_strlen>10.b_result=b_false.EXIT.ENDIF.CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput=lv_zuonrIMPORTINGoutput=lv_vbeln1."合同SELECTSINGLEvbak~vbelnINTOlv_vbeln1FROMvbakINNERJOINvbpaONvbak~vbeln=vbpa~vbelnWHEREvbak~vbeln=lv_vbeln1ANDvbak~vkorg=bseg-bukrsANDvbpa~kunnr=bseg-kunnrANDvbpa~parvwIN('AG','RE','RG').IFsy-subrc<>0.b_result=b_false.EXIT.ENDIF.ENDIF.ENDIF.WRITElv_sgtxtTOlv_zuonr2.SELECTSINGLEzuonrINTOlv_zuonr2FROMztfi_inipoWHEREzuonr=lv_zuonr2ANDzlog='D'.IFsy-subrc<>0.lv_log_k='N'."找不到期初数据ENDIF.IFbseg-sgtxt+0(4)<>'0000'.IFlv_log_k='N'.CLEAR:lv_strlen,lv_log_k.lv_strlen=STRLEN(lv_sgtxt)."判断BSEG-SGTXT的长度是否等于10位IFlv_strlen>10.b_result=b_false.EXIT.ENDIF.CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput=lv_sgtxtIMPORTINGoutput=lv_vbeln2."销售订单SELECTSINGLEvbak~vbelnINTOlv_vbeln2FROMvbakINNERJOINvbpaONvbak~vbeln=vbpa~vbelnWHEREvbak~vbeln=lv_vbeln2ANDvbak~vkorg=bseg-bukrsANDvbpa~kunnr=bseg-kunnrANDvbpa~parvwIN('AG','RE'