普通贷款首次发放 -- dragon-- 编程爱好者博客

############################################################ 文件名: 221110.def ## 功能说明: 普通贷款首次会计发放 ## 环境: PL ## 作者: 赵晓龙 ## 公司: AGREE TECHNOLOGY ## 编写日期: 2004-05-13 ## 修改日期: 2004-05-13 #############################################################交易开始CB ################# 输入输出全局变量定义 ##################################### 交易局部变量定义 #########################自定义变量#临时变量##################################################CHAR sTempINT iTempINT iCount#交易变量##################################################CHAR SayNameBufINT SayNum = 1CHAR sLOAN_NO # 合同号CHAR sCI_NO # 客户号CHAR sID_TYP # 证件种类CHAR sIDNO_30 # 证件号码CHAR sLOAN_TYP # 贷款种类INT iLN_LIMIT # 贷款期限（月）CHAR iGRACE_PRED # 宽限期项CHAR sSEND_MODE # 发放方式CHAR sCCY # 币种CHAR sASSU_MODE # 担保方式MONEY mLNTOTAL_AMT # 贷款总金额MONEY mTHISTIMEPAY_AMT # 本次发放金额MONEY mSTUDY_AMT # 学杂费MONEY mLIVE_AMT # 生活费CHAR sPAY_MODE # 还款方式CHAR sPAY_PRED_TYP # 还款间隔CHAR sSEND_PATH # 放款途径CHAR sSENDCARD_NO # 放款卡号CHAR sSENDAC_NO # 放款账号CHAR sPAY_PATH # 还款途径CHAR sPAYCARD_NO # 还款卡号CHAR sPAY_AC # 还款账号CHAR sGUAR_AC # 委贷保证金账号CHAR sAMT_AC # 委贷资金账号CHAR sCORR_AC # 委托方结算账号CHAR sPAY_DAY_TYP # 还款日期确定方式INT iPAY_DAY # 每期还款日DATE dSVAL_DATE # 起息日期DATE dEXP_DATE # 到期日期CHAR sLNAMT_DIRECT # 划款方向CHAR sGATHERAC_NO # 收款账号CHAR sGATHERAC_NAME # 收款户名CHAR sOPEN_BRNM # 收款开户行名CHAR sRAT_CODE # 利率代码MONEY mRAT_PER # 利率浮动率INT imFINT_RAT # 固定利率INT imMONTH_RATE # 月利率CHAR sOFINT_RAT # 固定罚息利率代码MONEY mORAT_PER # 罚息浮动率INT imOINT_RAT # 罚息利率CHAR sINT_ADJ_TYP # 利率调整方式CHAR sDIFF_MODE # 不等额方式MONEY mDIFF_AMT # 不等额方式金额CHAR sPAYTIMES_FLAG # 阶段还款标志INT iPAY_TIMES # 阶段数INT mFEE_RAT # 手续费率INT mTAX_RAT # 营业税率CHAR sTHIS_PAY_NUM1 # 本段还款期数1MONEY mTHISTIMEPAY_AMT1 # 本段还款金额1CHAR sTHIS_PAY_NUM2 # 本段还款期数2MONEY mTHISTIMEPAY_AMT2 # 本段还款金额2CHAR sTHIS_PAY_NUM3 # 本段还款期数3MONEY mTHISTIMEPAY_AMT3 # 本段还款金额3CHAR sTHIS_PAY_NUM4 # 本段还款期数4MONEY mTHISTIMEPAY_AMT4 # 本段还款金额4CHAR sTHIS_PAY_NUM5 # 本段还款期数5MONEY mTHISTIMEPAY_AMT5 # 本段还款金额5# 修正的变量#################################################CHAR simFINT_RAT # 固定利率CHAR simMONTH_RATECHAR simOINT_RATCHAR smFEE_RATCHAR smTAX_RAT# 复核的变量#################################################CHAR sID_TYP_Ch # 证件种类CHAR sIDNO_30_Ch # 证件号码CHAR sLOAN_TYP_Ch # 贷款种类INT iLN_LIMIT_Ch # 存期（贷款期限（月）MONEY mLNTOTAL_AMT_Ch # 贷款总金额MONEY mTHISTIMEPAY_AMT_Ch # 本次发放金额CHAR sSENDCARD_NO_Ch # 放款卡号CHAR sSENDAC_NO_Ch # 放款账号CHAR sPAYCARD_NO_Ch # 还款卡号CHAR sPAY_AC_Ch # 还款账号CHAR sGUAR_AC_Ch # 委贷保证金账号CHAR sAMT_AC_Ch # 资金账号CHAR sCORR_AC_Ch # 委托方结算账号CHAR sLNAMT_DIRECT_Ch # 划款方向CHAR sGATHERAC_NO_Ch # 收款账号INT imMONTH_RATE_Ch # 月利率#############################################################INT iRetCHAR sRelationFlagCHAR sTRD_CODECHAR sTmpINT _iShowFlagCHAR sIDNO2CHAR sItemCHAR _sID_TYP # 证件种类CHAR _sSEND_PATH # 放款途径CHAR _sPAY_PATH # 还款途径CHAR _sLOAN_TYP # 贷款种类CHAR _LNAMT_DIRECTCHAR sliushui # 配款流水CHAR psCashSerialCHAR psBuffer###############变量初始化####################################_sID_TYP = "CI证件类型(01)"_sSEND_PATH = "PL放款途径(23)"_sPAY_PATH = "PL还款途径(23)"_sLOAN_TYP = "PL贷款种类"_LNAMT_DIRECT = "PL划款方向(012)"G_TRADE_NAME = "普通贷款首次会计发放"_iShowFlag = 1sRelationFlag = "0"sTRD_CODE = GETENV("TRADECODE")################# 主程序 ####################################CALL FUNC Init ()# 通过确认启动say值给输入场CALL FUNC Confirm_Init ()##签到检查iRet = CALL LIB "S_public.SignCtrl" ( 0, 0 )IF ( iRet <= 0 ) EXITENDIF#初始化交易标题CALL LIB "S_public.SetSelfTradeTitle" ("221110",G_TRADE_NAME )#交易流程控制CALL FUNC Trade_Handle ()#交易退出，释放资源EXIT################# 交易流程全部结束,以下是具体的交易逻辑实现##################################################################### 函数: Trade_Handle# 功能: Pattern交易流程控制# 作者: 贺鑫# 编写日期: 2004.05.16# 修改日期:###################################################FUNC Trade_Handle () WHILE (1) #显示交易主画面 WHILE (1) #CALL LIB "S_public.ClearTradeScreen" () CALL FUNC MainForm_Say () CALL FUNC MainForm_SayValue () CALL FUNC MainForm_Get () CALL FUNC Form2_Get () READ () CALL LIB "S_public.TradeButton" ( 1 ) IF G_CALL_FLAG = 1 CALL FUNC Init () CONTINUE ELSE IF G_CALL_FLAG = 2 #数据打包 CALL FUNC Data_Pack () #主机通讯 CALL LIB "S_commun.DsrExchange" () IF ( G_CALL_FLAG = 0 ) CALL LIB "S_input.GotoCursor" ("221110i") # 光标定位 CALL FUNC Init () CONTINUE ENDIF #主机返回数据拆包 CALL FUNC Data_UnPack () EXIT ELSE EXIT ENDIF ENDIF ENDWHILE ENDWHILEENDFUNC#################################################### 函数: Init# 功能: Pattern交易输入画面# 作者: 贺鑫# 编写日期: 2004.05.16# 修改日期:###################################################FUNC Init () CALL LIB "S_public.ClearTradeScreen" () SayNum = 1ENDFUNC#@ UI_FUNC_BEGIN#################################################### 函数: MainForm_Get# 功能: Pattern交易取输入场的值# 作者: 贺鑫# 编写日期: 2004.05.16# 修改日期: ONBLUR [FUNC IntFieldCheck (piNum , piNum_Ch , psMsg )]###################################################FUNC MainForm_Get () @ 5,20 GET (sLOAN_NO) PICTURE -19"9" \ ONBLUR [FUNC sLOAN_NO_Query ()] \ PROMPT "请输入合同号" @ 5,57 GET sCI_NO PICTURE -13"X" \ PROMPT "请输入客户号" @ 6,20 GET sID_TYP PICTURE -2"X" \ ONCHOICE [LIB "S_input.ChoiceItemSay"(_sID_TYP,sID_TYP,0,4,sItem)] \ ONBLUR [ FUNC sID_TYP_Query ()] \ PROMPT "请输入证件种类" @ 7,20 GET sIDNO_30 PICTURE -30"M" \ ONCHOICE [LIB "S_PL.FieldSelfCheck" (sIDNO_30,sIDNO_30_Ch,_iShowFlag,"证件号码30位")] \ ONBLUR [FUNC sIDNO_30_Query ()] \ PROMPT "请输入证件号码30位" @ 8,20 GET sLOAN_TYP PICTURE -3"9" \ ONCHOICE [LIB "S_input.ChoiceItemSay"(_sLOAN_TYP,sLOAN_TYP,0,5,sItem)] \ ONBLUR [ FUNC sLOAN_TYP_Query ()] \ PROMPT "请输入贷款种类" @ 9,20 GET iLN_LIMIT PICTURE 03"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (iLN_LIMIT,iLN_LIMIT_Ch,_iShowFlag,"贷款期限")] \ PROMPT "请输入贷款期限" @ 9,74 GET iGRACE_PRED PICTURE 3"9" \ PROMPT "请输入宽限期" @ 10,20 GET sSEND_MODE PICTURE -1"X" \ PROMPT "请输入发放方式" @ 10,74 GET sCCY PICTURE -3"X" \ PROMPT "请输入币种" @ 11,20 GET sASSU_MODE PICTURE -1"X" \ PROMPT "请输入担保方式"# @ 11,57 GET mLNTOTAL_AMT PICTURE "9,999,999,999,999.99" \# RANGE [0.00~9999999999999.99] \# ONBLUR [LIB "S_PL.FieldSelfCheck" (mLNTOTAL_AMT,mLNTOTAL_AMT_Ch,_iShowFlag,"贷款总金额")] \# PROMPT "请输入贷款总金额" @ 12,20 GET mTHISTIMEPAY_AMT PICTURE "9,999,999,999,999.99" \ RANGE [0.00~9999999999999.99] \ ONBLUR [ FUNC mTHISTIMEPAY_AMT_Query ()] \ PROMPT "请输入本次发放金额" @ 12,57 GET mSTUDY_AMT PICTURE "9,999,999,999,999.99" \ PROMPT "请输入学杂费" @ 13,20 GET mLIVE_AMT PICTURE "9,999,999,999,999.99" \ PROMPT "请输入生活费" @ 13,57 GET sPAY_MODE PICTURE -1"X" \ PROMPT "请输入还款方式" @ 13,76 GET sPAY_PRED_TYP PICTURE -1"X" \ PROMPT "请输入还款间隔" @ 14,20 GET sSEND_PATH PICTURE -1"X" \ ONCHOICE [LIB "S_input.ChoiceItemSay"(_sSEND_PATH,sSEND_PATH,0,2,sItem)] \ ONBLUR [ LIB "S_input.InputSayItem" (_sSEND_PATH,sSEND_PATH,0,2,sItem)] \ PROMPT "请输入放款途径" @ 15,20 GET sSENDCARD_NO PICTURE -19"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (sSENDCARD_NO,sSENDCARD_NO_Ch,_iShowFlag,"放款卡号")] \ PROMPT "请输入放款卡号" @ 15,57 GET sSENDAC_NO PICTURE -21"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (sSENDAC_NO,sSENDAC_NO_Ch,_iShowFlag,"放款账号")] \ PROMPT "请输入放款账号" @ 16,20 GET sPAY_PATH PICTURE -1"X" \ ONCHOICE [LIB "S_input.ChoiceItemSay"(_sPAY_PATH,sPAY_PATH,0,2,sItem)] \ ONBLUR [ LIB "S_input.InputSayItem" (_sPAY_PATH,sPAY_PATH,0,2,sItem)] \ PROMPT "请输入还款途径" @ 17,20 GET sPAYCARD_NO PICTURE -19"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (sPAYCARD_NO,sPAYCARD_NO_Ch,_iShowFlag,"还款卡号")] \ PROMPT "请输入还款卡号" @ 17,57 GET sPAY_AC PICTURE -21"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (sPAY_AC,sPAY_AC_Ch,_iShowFlag,"还款账号")] \ PROMPT "请输入还款账号" @ 18,20 GET sGUAR_AC PICTURE -21"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (sGUAR_AC,sGUAR_AC_Ch,_iShowFlag,"委贷保证金账号")] \ PROMPT "请输入委贷保证金账号" @ 19,20 GET sAMT_AC PICTURE -21"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (sAMT_AC ,sAMT_AC_Ch,_iShowFlag,"资金账号")] \ PROMPT "请输入资金账号" @ 20,20 GET sCORR_AC PICTURE -21"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (sCORR_AC,sCORR_AC_Ch,_iShowFlag,"委贷结算账号")] \ PROMPT "请输入委贷结算账号" @ 21,20 GET sPAY_DAY_TYP PICTURE -1"X" \ PROMPT "请输入还款日期确定方式" @ 21,39 GET iPAY_DAY PICTURE 2"9" \ PROMPT "请输入每期还款日" @ 21,40 GET sTmp PICTURE "X" \ ONFOCUS [FUNC GetUP] \ ONBLUR [FUNC GetDown]ENDFUNC FUNC Form2_Get () @ 5,21 GET dSVAL_DATE PICTURE 8"9" \ PROMPT "请输入起息日期" @ 5,45 GET dEXP_DATE PICTURE 8"9" \ PROMPT "请输入到期日期" @ 5,65 GET sLNAMT_DIRECT PICTURE -1"9" \ ENUM ["0","1","2"] \ ONCHOICE [LIB "S_input.ChoiceItemSay"(_LNAMT_DIRECT,sLNAMT_DIRECT,0,2,sItem)] \ ONBLUR [FUNC sLNAMT_DIRECT_Query ()] \ PROMPT "请输入划款方向" @ 6,21 GET sGATHERAC_NO PICTURE -32"9" \ ONBLUR [LIB "S_PL.FieldSelfCheck" (sGATHERAC_NO,sGATHERAC_NO_Ch,_iShowFlag,"收款账号")] \ PROMPT "请输入收款账号" @ 7,18 GET sGATHERAC_NAME PICTURE -60"X" \ PROMPT "请输入收款户名" @ 8,18 GET sOPEN_BRNM PICTURE -60"X" \ PROMPT "请输入开户行名" @ 9,21 GET sRAT_CODE PICTURE -4"X" \ PROMPT "请输入利率代码" @ 9,51 GET mRAT_PER PICTURE "999.99" \ PROMPT "请输入利率浮动率" @ 10,21 GET (imFINT_RAT) PICTURE "99.999999" \ PROMPT "请输入固定利率" @ 10,51 GET imMONTH_RATE PICTURE "99.999999" \ RANGE [0.00~99.999999] \ ONBLUR [LIB "S_PL.FieldSelfCheck" (imMONTH_RATE,imMONTH_RATE_Ch,_iShowFlag,"月利率")] \ PROMPT "请输入月利率" @ 11,21 GET sOFINT_RAT PICTURE -4"X" \ PROMPT "请输入固定罚息利率代码" @ 11,51 GET mORAT_PER PICTURE "999.99" \ PROMPT "请输入罚息浮动率" @ 12,21 GET imOINT_RAT PICTURE "99.999999" \ PROMPT "请输入罚息利率" @ 12,51 GET sINT_ADJ_TYP PICTURE -1"X" \ PROMPT "请输入利率调整方式" @ 13,21 GET mFEE_RAT PICTURE "99.999999" \ PROMPT "请输入手续费率" @ 13,51 GET mTAX_RAT PICTURE "99.999999" \ PROMPT "请输入营业税率" @ 14,21 GET sDIFF_MODE PICTURE -1"X" \ PROMPT "请输入不等额方式" @ 14,51 GET mDIFF_AMT PICTURE "99,999,999,999,999.99" \ PROMPT "请输入不等额金额" @ 15,21 GET sPAYTIMES_FLAG PICTURE -2"X" \ PROMPT "请输入阶段还款标志" @ 15,51 GET iPAY_TIMES PICTURE 2"9" \ PROMPT "请输入阶段数" @ 17,14 GET sTHIS_PAY_NUM1 PICTURE 3"9" \ PROMPT "请输入本段还款期数1" @ 17,31 GET mTHISTIMEPAY_AMT1 PICTURE "99,999,999,999,999.99" \ PROMPT "请输入本段还款金额1" @ 18,14 GET sTHIS_PAY_NUM2 PICTURE 3"9" \ PROMPT "请输入本段还款期数2" @ 18,31 GET mTHISTIMEPAY_AMT2 PICTURE "99,999,999,999,999.99" \ PROMPT "请输入本段还款金额2" @ 19,14 GET sTHIS_PAY_NUM3 PICTURE 3"9" \ PROMPT "请输入本段还款期数3" @ 19,31 GET mTHISTIMEPAY_AMT3 PICTURE "99,999,999,999,999.99" \ PROMPT "请输入本段还款金额3" @ 20,14 GET sTHIS_PAY_NUM4 PICTURE 3"9" \ PROMPT "请输入本段还款期数4" @ 20,31 GET mTHISTIMEPAY_AMT4 PICTURE "99,999,999,999,999.99" \ PROMPT "请输入本段还款金额4" @ 21,14 GET sTHIS_PAY_NUM5 PICTURE 3"9" \ PROMPT "请输入本段还款期数5" @ 21,31 GET mTHISTIMEPAY_AMT5 PICTURE "99,999,999,999,999.99" \ PROMPT "请输入本段还款金额5"ENDFUNC###################################################FUNC GetUP () CALL LIB "S_input.GetUP" (SayNum) IF G_CALL_FLAG = 1 SWITCH (SayNum) CASE 1: CALL LIB "S_public.ClearTradeScreen" () CALL FUNC MainForm_Say () CALL FUNC MainForm_SayValue () BREAK CASE 2: CALL LIB "S_public.ClearTradeScreen" () CALL FUNC Form2_Say () CALL FUNC Form2_SayValue () BREAK ENDSWITCH ENDIF RETURN 1ENDFUNC FUNC GetDown () CALL LIB "S_input.GetDown" (SayNum) IF G_CALL_FLAG = 1 SWITCH (SayNum) CASE 1: CALL LIB "S_public.ClearTradeScreen" () CALL FUNC MainForm_Say () CALL FUNC MainForm_SayValue () BREAK CASE 2: CALL LIB "S_public.ClearTradeScreen" () CALL FUNC Form2_Say () CALL FUNC Form2_SayValue () BREAK ENDSWITCH ENDIF RETURN 1ENDFUNC#################################################### 函数: MainForm_Say# 功能: Pattern交易输入画面# 作者: 贺鑫# 编写日期: 2004.05.16# 修改日期:###################################################FUNC MainForm_Say () CALL LIB "S_public.ClearTradeScreen" () SETINPUTFLAG(2,"sCI_NO","iGRACE_PRED","sSEND_MODE","sCCY","sASSU_MODE","mSTUDY_AMT","mLIVE_AMT","sPAY_MODE") SETINPUTFLAG(2,"sPAY_PRED_TYP","sSEND_PATH","sPAY_PATH","sPAY_DAY_TYP","iPAY_DAY","dSVAL_DATE","dEXP_DATE") SETINPUTFLAG(2,"sGATHERAC_NAME","sOPEN_BRNM","sRAT_CODE","mRAT_PER","imFINT_RAT","sOFINT_RAT","mORAT_PER") SETINPUTFLAG(2,"imOINT_RAT","sINT_ADJ_TYP","mFEE_RAT","mTAX_RAT","sDIFF_MODE","mDIFF_AMT","sPAYTIMES_FLAG") SETINPUTFLAG(2,"iPAY_TIMES","sTHIS_PAY_NUM1","mTHISTIMEPAY_AMT1","sTHIS_PAY_NUM2","mTHISTIMEPAY_AMT2") SETINPUTFLAG(2,"sTHIS_PAY_NUM3","mTHISTIMEPAY_AMT3","sTHIS_PAY_NUM4","mTHISTIMEPAY_AMT4","sTHIS_PAY_NUM5") SETINPUTFLAG(2,"mTHISTIMEPAY_AMT5") @ 5,3 SAY "合同号 [ ]" @ 5,45 SAY "客户号 [ ]" @ 6,3 SAY "证件类型 [ ]" @ 7,3 SAY "证件号码 [ ]" @ 8,3 SAY "贷款种类 [ ]" @ 9,3 SAY "贷款期限(月) [ ]" @ 9,60 SAY "宽限期（天） [ ]" @ 10,3 SAY "发放方式 [ ]" @ 10,60 SAY "币种 [ ]" @ 11,3 SAY "担保方式 [ ]" @ 11,45 SAY "贷款总金额 [ ]" @ 12,3 SAY "本次发放金额 [ ]" @ 12,45 SAY "学杂费 [ ]" @ 13,3 SAY "生活费 [ ]" @ 13,45 SAY "还款方式 [ ]" @ 13,60 SAY "还款间隔 [ ]" @ 14,3 SAY "放款途径 [ ]" @ 15,3 SAY "放款卡号 [ ]" @ 15,45 SAY "放款账号 [ ]" @ 16,3 SAY "还款途径 [ ]" @ 17,3 SAY "还款卡号 [ ]" @ 17,45 SAY "还款账号 [ ]" @ 18,3 SAY "委贷保证金账号 [ ]" @ 19,3 SAY "资金账号 [ ]" @ 20,3 SAY "委托方结算账号 [ ]" @ 21,3 SAY "还款日期确定方式[ ]" @ 21,28 SAY "每期还款日[ ]"ENDFUNC FUNC Form2_Say () CALL LIB "S_public.ClearTradeScreen" () @ 5,4 SAY "起息日期 [ ]" @ 5,31 SAY "到期日期 [ ]" @ 5,55 SAY "划款方向 [ ]" @ 6,4 SAY "收款账号 [ ]" @ 7,4 SAY "收款户名 [ ]" @ 8,4 SAY "收款开户行名 [ ]" @ 9,4 SAY "利率代码 [ ]" @ 9,37 SAY "利率浮动率 [ ]" @ 10,4 SAY "固定利率 [ ]" @ 10,37 SAY "月利率 [ ]" @ 11,4 SAY "固定罚息利率代码[ ]" @ 11,37 SAY "罚息浮动率 [ ]" @ 12,4 SAY "罚息利率 [ ]" @ 12,37 SAY "利率调整方式 [ ]" @ 13,4 SAY "手续费率% [ ]" @ 13,37 SAY "营业税率% [ ]" @ 14,4 SAY "不等额方式 [ ]" @ 14,37 SAY "不等额金额 [ ]" @ 15,4 SAY "阶段还款标志 [ ]" @ 15,37 SAY "阶段数 [ ]" @ 16,8 SAY "本段还款期数本段还款金额" @ 17,10 SAY "1 [ ]" @ 17,30 SAY "[ ]" @ 18,10 SAY "2 [ ]" @ 18,30 SAY "[ ]" @ 19,10 SAY "3 [ ]" @ 19,30 SAY "[ ]" @ 20,10 SAY "4 [ ]" @ 20,30 SAY "[ ]" @ 21,10 SAY "5 [ ]" @ 21,30 SAY "[ ]"ENDFUNC FUNC Form2_SayValue () @ 5,21 SAY dSVAL_DATE PICTURE 8"9" @ 5,45 SAY dEXP_DATE PICTURE 8"9" @ 5,65 SAY sLNAMT_DIRECT PICTURE -1"X" @ 6,21 SAY sGATHERAC_NO PICTURE -32"9" @ 7,18 SAY sGATHERAC_NAME PICTURE -60"M" @ 8,18 SAY sOPEN_BRNM PICTURE -60"M" @ 9,21 SAY sRAT_CODE PICTURE -4"X" @ 9,51 SAY mRAT_PER PICTURE "999.99" @ 10,21 SAY imFINT_RAT PICTURE "99.999999" @ 10,51 SAY imMONTH_RATE PICTURE "99.999999" @ 11,21 SAY sOFINT_RAT PICTURE -4"X" @ 11,51 SAY mORAT_PER PICTURE "999.99" @ 12,21 SAY imOINT_RAT PICTURE "99.999999" @ 12,51 SAY sINT_ADJ_TYP PICTURE -1"X" @ 13,21 SAY mFEE_RAT PICTURE "99.999999" @ 13,51 SAY mTAX_RAT PICTURE "99.999999" @ 14,21 SAY sDIFF_MODE PICTURE -1"X" @ 14,51 SAY mDIFF_AMT PICTURE "99,999,999,999,999.99" @ 15,21 SAY sPAYTIMES_FLAG PICTURE -2"X" @ 15,51 SAY iPAY_TIMES PICTURE 2"9" IF (sTHIS_PAY_NUM1 <> "0") @ 17,14 SAY sTHIS_PAY_NUM1 PICTURE 3"X" ELSE @ 17,14 SAY "" ENDIF @ 17,31 SAY mTHISTIMEPAY_AMT1 PICTURE "99,999,999,999,999.99" IF (sTHIS_PAY_NUM2 <> "0") @ 18,14 SAY sTHIS_PAY_NUM2 PICTURE 3"X" ELSE @ 18,14 SAY "" ENDIF @ 18,31 SAY mTHISTIMEPAY_AMT2 PICTURE "99,999,999,999,999.99" IF (sTHIS_PAY_NUM3 <> "0") @ 19,14 SAY sTHIS_PAY_NUM3 PICTURE 3"X" ELSE @ 19,14 SAY "" ENDIF @ 19,31 SAY mTHISTIMEPAY_AMT3 PICTURE "99,999,999,999,999.99" IF (sTHIS_PAY_NUM4 <> "0") @ 20,14 SAY sTHIS_PAY_NUM4 PICTURE 3"X" ELSE @ 20,14 SAY "" ENDIF @ 20,31 SAY mTHISTIMEPAY_AMT4 PICTURE "99,999,999,999,999.99" IF (sTHIS_PAY_NUM5 <> "0") @ 21,14 SAY sTHIS_PAY_NUM5 PICTURE 3"X" ELSE @ 21,14 SAY "" ENDIF @ 21,31 SAY mTHISTIMEPAY_AMT5 PICTURE "99,999,999,999,999.99"ENDFUNC FUNC MainForm_SayValue () @ 5,20 SAY sLOAN_NO PICTURE -19"X" @ 5,57 SAY sCI_NO PICTURE -13"X" @ 6,20 SAY sID_TYP PICTURE -2"X" @ 7,20 SAY sIDNO_30 PICTURE -30"M" @ 8,20 SAY sLOAN_TYP PICTURE -3"X" @ 9,20 SAY iLN_LIMIT PICTURE 03"9" @ 9,74 SAY iGRACE_PRED PICTURE 3"9" @ 10,20 SAY sSEND_MODE PICTURE -1"X" @ 10,74 SAY sCCY PICTURE -3"X" @ 11,20 SAY sASSU_MODE PICTURE -1"X" @ 11,57 SAY mLNTOTAL_AMT PICTURE "9,999,999,999,999.99" @ 12,20 SAY mTHISTIMEPAY_AMT PICTURE "9,999,999,999,999.99" @ 12,57 SAY mSTUDY_AMT PICTURE "9,999,999,999,999.99" @ 13,20 SAY mLIVE_AMT PICTURE "9,999,999,999,999.99" @ 13,57 SAY sPAY_MODE PICTURE -1"X" @ 13,76 SAY sPAY_PRED_TYP PICTURE -1"X" @ 14,20 SAY sSEND_PATH PICTURE -1"X" @ 15,20 SAY sSENDCARD_NO PICTURE -19"X" @ 15,57 SAY sSENDAC_NO PICTURE -21"X" @ 16,20 SAY sPAY_PATH PICTURE -1"X" @ 17,20 SAY sPAYCARD_NO PICTURE -19"X" @ 17,57 SAY sPAY_AC PICTURE -21"X" @ 18,20 SAY sGUAR_AC PICTURE -21"X" @ 19,20 SAY sAMT_AC PICTURE -21"X" @ 20,20 SAY sCORR_AC PICTURE -21"X" @ 21,20 SAY sPAY_DAY_TYP PICTURE -1"X" @ 21,39 SAY iPAY_DAY PICTURE 2"9"ENDFUNC#@ UI_END#################################################### 函数: Data_Pack# 功能: 与主机数据交换# 参数: 无# 返回值: 无###################################################FUNC Data_Pack () CALL LIB "S_commun.InitTia" () CALL LIB "S_commun.PackDsrTia" ("221110","T","HOST")# 拼包、上送时去掉利息的小数点 imFINT_RAT = ITOA (imFINT_RAT) imMONTH_RATE = ITOA (imMONTH_RATE) imOINT_RAT = ITOA (imOINT_RAT) mFEE_RAT = ITOA (mFEE_RAT) mTAX_RAT = ITOA (mTAX_RAT) QPACKCOMM ("221110i")ENDFUNC#################################################### 函数: Data_UnPack# 功能: 主机返回拆包# 参数一: 无# 返回值: G_CALL_FLAG = 0###################################################FUNC Data_UnPack ()# 拆包 CALL LIB "S_print1.AutoPrint" ("","220000","1")ENDFUNC FUNC Confirm_Init () sRelationFlag = "0" IF ( G_RELATION_BUFFER = "1" ) G_RELATION_BUFFER = "0" sRelationFlag = "1" CALL LIB "S_PL.qSingleDataUnpack" ( "22X011110g" ) CALL FUNC Format1_Data () ENDIF RETURN 1ENDFUNC FUNC sLOAN_NO_Query () IF sRelationFlag = "1" RETURN 1 ENDIF CALL LIB "S_commun.InitTia" () CALL LIB "S_commun.PackDsrTia" ("224010","T","HOST") # 拼包 QPACKCOMM("224010i") #主机通讯 CALL LIB "S_commun.DsrExchange" () IF ( G_CALL_FLAG = 0 ) RETURN 0 ENDIF CALL LIB "S_PL.qSingleDataUnpack" ( "22X011110g" ) CALL FUNC Format_Data () CALL FUNC MainForm_SayValue () RETURN 1ENDFUNC FUNC Format1_Data () simFINT_RAT = imFINT_RAT CALL LIB "S_base.TrimZero" (simFINT_RAT,imFINT_RAT,6) simMONTH_RATE = imMONTH_RATE CALL LIB "S_base.TrimZero" (simMONTH_RATE,imMONTH_RATE,6) simOINT_RAT = imOINT_RAT CALL LIB "S_base.TrimZero" (simOINT_RAT,imOINT_RAT,6) smFEE_RAT = mFEE_RAT CALL LIB "S_base.TrimZero" (smFEE_RAT,mFEE_RAT,6) smTAX_RAT = mTAX_RAT CALL LIB "S_base.TrimZero" (smTAX_RAT,mTAX_RAT,6) sID_TYP_Ch = sID_TYP sID_TYP = NULL sIDNO_30_Ch = sIDNO_30 sIDNO_30 = NULL sLOAN_TYP_Ch = sLOAN_TYP sLOAN_TYP = NULL iLN_LIMIT_Ch = iLN_LIMIT iLN_LIMIT = NULL mTHISTIMEPAY_AMT_Ch = mTHISTIMEPAY_AMT mTHISTIMEPAY_AMT = NULL sSENDCARD_NO_Ch = sSENDCARD_NO sSENDCARD_NO = NULL sSENDAC_NO_Ch = sSENDAC_NO sSENDAC_NO = NULL sPAYCARD_NO_Ch = sPAYCARD_NO sPAYCARD_NO = NULL sPAY_AC_Ch = sPAY_AC sPAY_AC = NULL sGUAR_AC_Ch = sGUAR_AC sGUAR_AC = NULL sAMT_AC_Ch = sAMT_AC sAMT_AC = NULL sCORR_AC_Ch = sCORR_AC sCORR_AC = NULL sLNAMT_DIRECT_Ch = sLNAMT_DIRECT sLNAMT_DIRECT = NULL sGATHERAC_NO_Ch = sGATHERAC_NO IF (sLNAMT_DIRECT_Ch <> "2") sGATHERAC_NO = NULL ENDIF imMONTH_RATE_Ch = imMONTH_RATE imMONTH_RATE = NULL ENDFUNC FUNC Format_Data () simFINT_RAT = imFINT_RAT CALL LIB "S_base.TrimZero" (simFINT_RAT,imFINT_RAT,6) simMONTH_RATE = imMONTH_RATE CALL LIB "S_base.TrimZero" (simMONTH_RATE,imMONTH_RATE,6) simOINT_RAT = imOINT_RAT CALL LIB "S_base.TrimZero" (simOINT_RAT,imOINT_RAT,6) smFEE_RAT = mFEE_RAT CALL LIB "S_base.TrimZero" (smFEE_RAT,mFEE_RAT,6) smTAX_RAT = mTAX_RAT CALL LIB "S_base.TrimZero" (smTAX_RAT,mTAX_RAT,6) sID_TYP_Ch = sID_TYP sID_TYP = NULL sIDNO_30_Ch = sIDNO_30 sIDNO_30 = NULL sLOAN_TYP_Ch = sLOAN_TYP sLOAN_TYP = NULL iLN_LIMIT_Ch = iLN_LIMIT iLN_LIMIT = NULL mTHISTIMEPAY_AMT_Ch = mTHISTIMEPAY_AMT mTHISTIMEPAY_AMT = NULL sSENDCARD_NO_Ch = sSENDCARD_NO sSENDCARD_NO = NULL sSENDAC_NO_Ch = sSENDAC_NO sSENDAC_NO = NULL sPAYCARD_NO_Ch = sPAYCARD_NO sPAYCARD_NO = NULL sPAY_AC_Ch = sPAY_AC sPAY_AC = NULL sGUAR_AC_Ch = sGUAR_AC sGUAR_AC = NULL sAMT_AC_Ch = sAMT_AC sAMT_AC = NULL sCORR_AC_Ch = sCORR_AC sCORR_AC = NULL sLNAMT_DIRECT_Ch = sLNAMT_DIRECT sLNAMT_DIRECT = NULL sGATHERAC_NO_Ch = sGATHERAC_NO IF (sLNAMT_DIRECT_Ch <> "2") sGATHERAC_NO = NULL ENDIF imMONTH_RATE_Ch = imMONTH_RATE imMONTH_RATE = NULL ENDFUNC FUNC sIDNO_30_Query () CALL LIB "S_check.IdCard_Check" (sID_TYP,sIDNO_30) CALL LIB "S_PL.FieldSelfCheck" (sIDNO_30,sIDNO_30_Ch,_iShowFlag,"证件号码30位") IF ( sIDNO_30_Ch <> sIDNO_30) RETURN 0 ENDIF # IF ( G_CALL_FLAG = 0 )# IF (G_TOA[4]+G_TOA[5]) <> "CI1506"# RETURN 0# ENDIF# sIDNO2 = sIDNO_30# sCI_NO = ""# SAVESCREEN( "1" )# SETENV( "TRADENAME", "个人客户信息建立" )# CALL LIB "S_public.SetSelfTradeTitle" ( "011150" )# RELATION ("sID_TYP=011150:sID_TYP","sIDNO_30=011150:sIDNO","sIDNO2=011150:sIDNO2","sCI_NO=011150:sCI_NO")# CALL DEF "011150"# RELATION ()# SETENV( "TRADENAME", "普通贷款首次会计发放" )# CALL LIB "S_public.SetSelfTradeTitle" ( "221110" )# RESUMESCREEN( "1" )# IF sCI_NO=""# RETURN 0# ENDIF# ENDIF# IF ( G_CALL_FLAG = 0 )# RETURN 0# ENDIF ENDFUNC FUNC MainForm_SayValue () @ 5,20 SAY sLOAN_NO PICTURE -19"X" @ 5,57 SAY sCI_NO PICTURE -13"X" @ 6,20 SAY sID_TYP PICTURE -2"X" @ 7,20 SAY sIDNO_30 PICTURE -30"M" @ 8,20 SAY sLOAN_TYP PICTURE -3"X" @ 9,20 SAY iLN_LIMIT PICTURE 03"9" @ 9,74 SAY iGRACE_PRED PICTURE 3"9" @ 10,20 SAY sSEND_MODE PICTURE -1"X" @ 10,74 SAY sCCY PICTURE -3"X" @ 11,20 SAY sASSU_MODE PICTURE -1"X" @ 11,57 SAY mLNTOTAL_AMT PICTURE "9,999,999,999,999.99" @ 12,20 SAY mTHISTIMEPAY_AMT PICTURE "9,999,999,999,999.99" @ 12,57 SAY mSTUDY_AMT PICTURE "9,999,999,999,999.99" @ 13,20 SAY mLIVE_AMT PICTURE "9,999,999,999,999.99" @ 13,57 SAY sPAY_MODE PICTURE -1"X" @ 13,76 SAY sPAY_PRED_TYP PICTURE -1"X" @ 14,20 SAY sSEND_PATH PICTURE -1"X" @ 15,20 SAY sSENDCARD_NO PICTURE -19"X" @ 15,57 SAY sSENDAC_NO PICTURE -21"X" @ 16,20 SAY sPAY_PATH PICTURE -1"X" @ 17,20 SAY sPAYCARD_NO PICTURE -19"X" @ 17,57 SAY sPAY_AC PICTURE -21"X" @ 18,20 SAY sGUAR_AC PICTURE -21"X" @ 19,20 SAY sAMT_AC PICTURE -21"X" @ 20,20 SAY sCORR_AC PICTURE -21"X" @ 21,20 SAY sPAY_DAY_TYP PICTURE -1"X" @ 21,39 SAY iPAY_DAY PICTURE 2"9"ENDFUNC FUNC sID_TYP_Query () CALL LIB "S_input.InputSayItem" (_sID_TYP,sID_TYP,0,4,sItem) CALL LIB "S_PL.FieldSelfCheck" (sID_TYP,sID_TYP_Ch,_iShowFlag,"证件种类") IF (sID_TYP = "") RETURN 0 ENDIF ENDFUNC FUNC sLOAN_TYP_Query () CALL LIB "S_input.InputSayItem" (_sLOAN_TYP,sLOAN_TYP,0,5,sItem) CALL LIB "S_PL.FieldSelfCheck" (sLOAN_TYP,sLOAN_TYP_Ch,_iShowFlag,"贷款种类") IF (sLOAN_TYP = "") RETURN 0 ENDIF ENDFUNC FUNC mTHISTIMEPAY_AMT_Query () CALL LIB "S_PL.FieldSelfCheck" (mTHISTIMEPAY_AMT,mTHISTIMEPAY_AMT_Ch,_iShowFlag,"本次发放金额") SETINPUTFLAG(2,"sSENDCARD_NO","sSENDAC_NO") SETINPUTFLAG(2,"sPAYCARD_NO","sPAY_AC") IF (sSEND_PATH = "2") SETINPUTFLAG(0,"sSENDCARD_NO") ENDIF IF (sSEND_PATH = "3") SETINPUTFLAG(0,"sSENDAC_NO") ENDIF SETINPUTFLAG(2,"sPAYCARD_NO","sPAY_AC") IF (sPAY_PATH = "2") SETINPUTFLAG(0,"sPAYCARD_NO") ENDIF IF (sPAY_PATH = "3") SETINPUTFLAG(0,"sPAY_AC") ENDIF IF (mTHISTIMEPAY_AMT = NULL) RETURN 0 ENDIF ENDFUNC FUNC sLNAMT_DIRECT_Query () CALL LIB "S_input.InputSayItem" (_LNAMT_DIRECT,sLNAMT_DIRECT,0,2,sItem) CALL LIB "S_PL.FieldSelfCheck" (sLNAMT_DIRECT,sLNAMT_DIRECT_Ch,_iShowFlag,"划款方向") IF ( sLNAMT_DIRECT = "2" ) SETINPUTFLAG(2,"sGATHERAC_NO") @ 6,21 SAY sGATHERAC_NO PICTURE -32"9" ENDIF IF (sLNAMT_DIRECT <> sLNAMT_DIRECT_Ch) RETURN 0 ENDIF ENDFUNC

博客介绍

正文

普通贷款首次发放2005-11-30 19:54:00

评论