prpcodeupd.4gl
来自「开发工具 Informix-4gl」· 4GL 代码 · 共 1,289 行 · 第 1/5 页
4GL
1,289 行
## LET pv_nowtabname="prptmainsub"
## LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTmainSub"
## PREPARE tmainsub_pre FROM lv_sqltxt
## DECLARE tmainsub_cur CURSOR FOR tmainsub_pre
## INITIALIZE gr_prptmainsub.* TO NULL
## LET lv_count=1
## FOREACH tmainsub_cur INTO gr_prptmainsub.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
## INSERT INTO PrpTmainSub VALUES(gr_prptmainsub.*)
## IF SQLCA.SQLCODE !=0 THEN
## LET lv_errtxt="转换PrpTmainSub数据错误,主键:",gr_prptmainsub.ProposalNo,"|",gr_prptmainsub.MainPolicyNo,
## " |错误号:",SQLCA.SQLCODE
## CALL errorlog(lv_errtxt)
## END IF
## LET lv_count=lv_count+1
## END FOREACH
## DISPLAY " " AT 10,2
##
## DISPLAY "正在变动 prptname 表的数据,请稍候... " AT 10,2
## LET pv_nowtabname="prptname"
## LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTname"
## PREPARE tname_pre FROM lv_sqltxt
## DECLARE tname_cur CURSOR FOR tname_pre
## INITIALIZE gr_prptname.* TO NULL
## LET lv_count=1
## FOREACH tname_cur INTO gr_prptname.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
## INSERT INTO PrpTname VALUES(gr_prptname.*)
## IF SQLCA.SQLCODE !=0 THEN
## LET lv_errtxt="转换PrpTname数据错误,主键:",gr_prptname.ProposalNo,"|",gr_prptname.SerialNo,
## " |错误号:",SQLCA.SQLCODE
## CALL errorlog(lv_errtxt)
## END IF
## LET lv_count=lv_count+1
## END FOREACH
## DISPLAY " " AT 10,2
##
## DISPLAY "正在变动 prptplan 表的数据,请稍候... " AT 10,2
## LET pv_nowtabname="prptplan"
## LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTplan"
## PREPARE tplan_pre FROM lv_sqltxt
## DECLARE tplan_cur CURSOR FOR tplan_pre
## INITIALIZE gr_prptplan.* TO NULL
## LET lv_count=1
## FOREACH tplan_cur INTO gr_prptplan.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
## INSERT INTO PrpTplan VALUES(gr_prptplan.*)
## IF SQLCA.SQLCODE !=0 THEN
## LET lv_errtxt="转换PrpTplan数据错误,主键:",gr_prptplan.ProposalNo,"|",gr_prptplan.SerialNo,
## " |错误号:",SQLCA.SQLCODE
## CALL errorlog(lv_errtxt)
## END IF
## LET lv_count=lv_count+1
## END FOREACH
## DISPLAY " " AT 10,2
##
## DISPLAY "正在变动 prptrenewal 表的数据,请稍候... " AT 10,2
## LET pv_nowtabname="prptrenewal"
## LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTrenewal"
## PREPARE trenewal_pre FROM lv_sqltxt
## DECLARE trenewal_cur CURSOR FOR trenewal_pre
## INITIALIZE gr_prptrenewal.* TO NULL
## LET lv_count=1
## FOREACH trenewal_cur INTO gr_prptrenewal.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
## INSERT INTO PrpTrenewal VALUES(gr_prptrenewal.*)
## IF SQLCA.SQLCODE !=0 THEN
## LET lv_errtxt="转换PrpTrenewal数据错误,主键:",gr_prptrenewal.ProposalNo,
## " |错误号:",SQLCA.SQLCODE
## CALL errorlog(lv_errtxt)
## END IF
## LET lv_count=lv_count+1
## END FOREACH
## DISPLAY " " AT 10,2
##
## ---承保---
## DISPLAY "正在变动 prpcmain 表的数据,请稍候... " AT 10,2
## LET pv_nowtabname="prpcmain"
## INITIALIZE gr_prpcmain,lv_sqltxt TO NULL
## LET lv_sqltxt =" select * from ",lv_sourcedb CLIPPED,":prpcmain "
## PREPARE pre_data_cmain FROM lv_sqltxt
## DECLARE curr_data_cmain CURSOR FOR pre_data_cmain
## LET lv_count=1
## FOREACH curr_data_cmain INTO gr_prpcmain.*
##
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
##
## IF gr_prpcmain.businessnature IS NULL
## THEN
## --#赋初值
## LET gr_prpcmain.businessnature =" " --还没赋初值
## END IF
##
## INSERT INTO prpcmain VALUES (gr_prpcmain.*)
## LET lv_count=lv_count+1
## END FOREACH
##
## DISPLAY "正在变动 prpcinsured 表的数据,请稍候... " AT 10,2
## LET pv_nowtabname="prpcinsured"
## LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpCinsured"
## PREPARE cinsured_pre FROM lv_sqltxt
## DECLARE cinsured_cur CURSOR FOR cinsured_pre
## INITIALIZE gr_prpcinsured.* TO NULL
## LET lv_count=1
## FOREACH cinsured_cur INTO gr_prpcinsured.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
## INSERT INTO PrpCinsured VALUES(gr_prpcinsured.*)
## IF SQLCA.SQLCODE !=0 THEN
## LET lv_errtxt="转换PrpCinsured数据错误,主键:",gr_prpcinsured.PolicyNo,"|",gr_prpcinsured.SerialNo,
## " |错误号:",SQLCA.SQLCODE
## CALL errorlog(lv_errtxt)
## END IF
## LET lv_count=lv_count+1
## END FOREACH
## DISPLAY " " AT 10,2
##
## DISPLAY "正在变动 prpcinsuredext 表的数据,请稍候... " AT 10,2
## LET pv_nowtabname="prpcinsuredext"
## INITIALIZE gr_prpcinsuredext,lv_sqltxt TO NULL
## LET lv_sqltxt =" select * from ",lv_sourcedb CLIPPED,":prpcinsuredext"
## PREPARE pre_data_cinsuredext FROM lv_sqltxt
## DECLARE curr_data_cinsuredext CURSOR FOR pre_data_cinsuredext
## FOREACH curr_data_cinsuredext INTO gr_prpcinsuredext.*
##
## IF gr_prpcinsuredext.columnvalue IS NULL
## THEN
## ##***赋初值
## LET gr_prpcinsuredext.columnvalue =" " --赋初值
## END IF
##
## INSERT INTO prpcinsuredext VALUES (gr_prpcinsuredext.*)
## END FOREACH
##
## DISPLAY "正在变动 prpcmain_loan 表的数据,请稍候... " AT 10,2
## INITIALIZE gr_prpcmain_loan,lv_sqltxt TO NULL
## LET pv_nowtabname="prpcmain_loan"
##
## LET lv_sqltxt=" SELECT ",
## "policyno,",
## "riskcode,",
## "guaranteetype,",
## "guaranteename,",
## "mortgageno,",
## "loanno1,",
## "loanno2,",
## "installmentflag,",
## "deliverdate,",
## "loancontractno,",
## "loanway,",
## "loannature,",
## "loanbankcode,",
## "loanbankname,",
## "loanusage,",
## "loanstartdate,",
## "loanenddate,",
## "loanyear,",
## "\"\",", ---planamount 为新增加字段，需要赋初值
## "firstrate,",
## "firstpaid,",
## "currency,",
## "loanamount,",
## "loanrate,",
## "repaidtype,",
## "paidtimes,",
## "perrepaidamount,",
## "remark,",
## "flag",
## " FROM ",lv_sourcedb CLIPPED,":prpcmain_loan"
## PREPARE cmain_loan_pre FROM lv_sqltxt
## DECLARE cmain_loan_cur CURSOR FOR cmain_loan_pre
## INITIALIZE gr_prpcmain_loan.* TO NULL
## LET lv_count=1
## FOREACH cmain_loan_cur INTO gr_prpcmain_loan.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
## INSERT INTO PrpCmain_loan VALUES(gr_prpcmain_loan.*)
## IF SQLCA.SQLCODE !=0 THEN
## LET lv_errtxt="转换PrpCmain_loan数据错误,主键:",gr_prpcmain_loan.PolicyNo,
## " |错误号:",SQLCA.SQLCODE
## CALL errorlog(lv_errtxt)
## END IF
## LET lv_count=lv_count+1
## END FOREACH
## DISPLAY " " AT 10,2
##
##
## DISPLAY "正在变动 prpcmain_cargo 表的数据,请稍候... " AT 10,2
## INITIALIZE gr_prpcmain_cargo,lv_sqltxt TO NULL
## LET pv_nowtabname="prpcmain_cargo"
## LET lv_sqltxt=" SELECT ",
## "policyno,",
## "riskcode,",
## "pricecondition,",
## "\"\",", --##ladingno
## "invoiceno,",
## "\"\",", --##invoicecurrency
## "invoiceamount,",
## "\"\",", --plusrate
## "creditno,",
## "\"\",", --##shipnoteno
## "contractno,", --##bargainno(字段改名)
## "conveyance,",
## "\"\",", --##blname
## "\"\",", --##carrybillno
## "\"\",", --##transferconveyance,
## "blno,",
## "\"\",", --##voyageno
## "\"\",", --##preserveinfo
## "\"\",", --##toncount
## "startsitecode,",
## "startsitename,",
## "viasitecode,",
## "viasitename,",
## "\"\",", --##reshipsitename
## "endsitecode,",
## "endsitename,",
## "\"\",", --enddetailname
## "\"\",", --checkagentcode
## "claimsite,",
## "transferbank,",
## "\"\",", --OriginalCount SMALLINT v3.2
## "remark,",
## "flag",
## " FROM ",lv_sourcedb CLIPPED,":prpcmain_cargo"
## PREPARE cmain_cargo_pre FROM lv_sqltxt
## DECLARE cmain_cargo_cur CURSOR FOR cmain_cargo_pre
## INITIALIZE gr_prpcmain_cargo.* TO NULL
## LET lv_count=1
## FOREACH cmain_cargo_cur INTO gr_prpcmain_cargo.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
## INSERT INTO PrpCmain_cargo VALUES(gr_prpcmain_cargo.*)
## IF SQLCA.SQLCODE !=0 THEN
## LET lv_errtxt="转换PrpCmain_cargo数据错误,主键:",gr_prpcmain_cargo.PolicyNo,
## " |错误号:",SQLCA.SQLCODE
## CALL errorlog(lv_errtxt)
## END IF
## LET lv_count=lv_count+1
## END FOREACH
## DISPLAY " " AT 10,2
##
##
## DISPLAY "正在变动 prpcbatch 表的数据,请稍候... " AT 10,2
## INITIALIZE gr_prpcbatch,lv_sqltxt TO NULL
## LET pv_nowtabname="prpcbatch"
## LET lv_sqltxt=" SELECT ",
## "policyno,",
## "riskcode,",
## "serialno,",
## "\"\",", --##visacode
## "billstartno,",
## "billendno,",
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?