prpcodeupd.4gl

开发工具 Informix-4gl

##        LET lv_count=1
##        FOREACH tmain_cargo_cur INTO gr_prptmain_cargo.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##
##            ## ADD BEGIN 20021012,BY LIANGNA
##            ##涉外货运险需赋初值
##            -------------------------------------------------- 
##            IF gr_prptmain_cargo.riskcode = "YII" OR 
##               gr_prptmain_cargo.riskcode = "YIE"
##            THEN
##                LET gr_prptmain_cargo.originalcount = 3
##            END IF
##            -------------------------------------------------- 
##            ## ADD END 20021012,BY LIANGNA
##
##            INSERT INTO PrpTmain_cargo VALUES(gr_prptmain_cargo.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTmain_cargo数据错误,主键:",gr_prptmain_cargo.ProposalNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##    
##        DISPLAY "正在变动 prptmain_loan 表的数据,请稍候...             " AT 10,2
##        INITIALIZE gr_prptmain_loan,lv_sqltxt TO NULL
##        LET pv_nowtabname="prptmain_loan"
##    
##        LET lv_sqltxt=" SELECT ",
##                        "proposalno,",
##                        "riskcode,",
##                        "guaranteetype,",
##                        "guaranteename,",
##                        "mortgageno,",
##                        "loanno1,",
##                        "loanno2,",
##                        "installmentflag,",
##                        "deliverdate,",
##                        "loancontractno,",
##                        "loanway,",
##                        "loannature,",
##                        "loanbankcode,",
##                        "loanbankname,",
##                        "loanusage,",
##                        "loanstartdate,",
##                        "loanenddate,",
##                        "loanyear,",
##                        "\"\",", --  planamount decimail
##                        "firstrate,",
##                        "firstpaid,",
##                        "currency,",
##                        "loanamount,",
##                        "loanrate,",
##                        "repaidtype,",
##                        "paidtimes,",
##                        "perrepaidamount,",
##                        "remark,",
##                        "flag",
##                        " FROM ",lv_sourcedb CLIPPED,":prptmain_loan"
##        PREPARE tmain_loan_pre FROM lv_sqltxt
##        DECLARE tmain_loan_cur CURSOR FOR tmain_loan_pre
##        INITIALIZE gr_prptmain_loan.* TO NULL
##        LET lv_count=1
##        FOREACH tmain_loan_cur INTO gr_prptmain_loan.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTmain_loan VALUES(gr_prptmain_loan.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTmain_loan数据错误,主键:",gr_prptmain_loan.ProposalNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##    
##            
##        DISPLAY "正在变动 prptitem_car 表的数据,请稍候...             " AT 10,2
##        INITIALIZE gr_prptitem_car,lv_sqltxt TO NULL
##        LET pv_nowtabname="prptitem_car"
##            
##        LET lv_sqltxt=" SELECT ",
##                        "proposalno,",
##                        "riskcode,",
##                        "1,", --itemno smallint not null 
##                        "insuredtype,",  --insuredtypecode char(2)
##                        "carowner,",
##                        "licenseno,",
##                        "licensecolor,",  --licensecolorcode char(1)
##                        "carkind,",  --carkindcode char(2)
##                        "\"\",", --hkflag char(1)
##                        "hklicenseno,",
##                        "engineno,",
##                        "vinno,",
##                        "frameno,",
##                        "runarea,",
##                        "enrolldate,",
##                       {enrollno}
##                        "modelcode,",
##                        "brandname,",
##                        "countrynature,",
##                        "countrycode,",
##                        "usenature,", --UseNatureCode
##                        "\"\",", --businessclasscode char(1),
##                        "seatcount,",
##                        "toncount,",
##                        "\"\",", --colorcode char(6),
##                        "owneraddress,",
##                        "othernature,",
##                        "ratecode,",
##                        "makedate,",
##                        "carusage,",
##                        "useyears,",
##                        "purchaseprice,",
##                        "\"\",", --actualvalue decimal(14,2),
##                        "invoiceno,",
##                        "\"\",", --lastinsurer varchar(40),
##                        "\"\",", --specialtreat decimal(14,2),
##                        "\"\",", --relievingareacode char(1),
##                        "\"\",", --addoncount smallint,
##                        "remark,",
##                        "flag", 
##                        " FROM ",lv_sourcedb CLIPPED,":prptmain_car"
##        PREPARE titem_car_pre FROM lv_sqltxt
##        DECLARE titem_car_cur CURSOR FOR titem_car_pre
##        INITIALIZE gr_prptitem_car.* TO NULL
##        LET lv_count=1
##        FOREACH titem_car_cur INTO gr_prptitem_car.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTitem_car VALUES(gr_prptitem_car.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTitem_car数据错误,主键:",gr_prpTitem_car.ProposalNo,"|",gr_prpTitem_car.ItemNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##    
##        DISPLAY "正在变动 prptinsured 表的数据,请稍候...          " AT 10,2    
##        LET pv_nowtabname="prptinsured"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTinsured"
##        PREPARE tinsured_pre FROM lv_sqltxt
##        DECLARE tinsured_cur CURSOR FOR tinsured_pre
##        INITIALIZE gr_prptinsured.* TO NULL
##        LET lv_count=1
##        FOREACH tinsured_cur INTO gr_prptinsured.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTinsured VALUES(gr_prptinsured.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTinsured数据错误,主键:",gr_prptinsured.ProposalNo,"|",gr_prptinsured.SerialNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##        
##                
##        DISPLAY "正在变动 prptinsuredext 表的数据,请稍候...       " AT 10,2
##        INITIALIZE gr_prptinsuredext,lv_sqltxt  TO NULL
##        LET lv_sqltxt =" select * from ",lv_sourcedb CLIPPED,":prptinsuredext"
##        PREPARE pre_data_tinsuredext FROM lv_sqltxt
##        DECLARE curr_data_tinsuredext CURSOR FOR pre_data_tinsuredext 
##        FOREACH curr_data_tinsuredext INTO gr_prptinsuredext.*
##            
##            IF gr_prptinsuredext.columnvalue IS NULL
##            THEN
##                LET gr_prptinsuredext.columnvalue =" "    --赋初值
##            END IF
##            
##            INSERT INTO prptinsuredext VALUES (gr_prptinsuredext.*)
##        END FOREACH
##    
##        DISPLAY "正在变动 prptaddress 表的数据,请稍候...          " AT 10,2     
##        LET pv_nowtabname="prptaddress"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTaddress"
##        PREPARE taddress_pre FROM lv_sqltxt
##        DECLARE taddress_cur CURSOR FOR taddress_pre
##        INITIALIZE gr_prptaddress.* TO NULL
##        LET lv_count=1
##        FOREACH taddress_cur INTO gr_prptaddress.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTaddress VALUES(gr_prptaddress.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTaddress数据错误,主键:",gr_prptaddress.ProposalNo,"|",gr_prptaddress.AddressNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##            
##        DISPLAY "正在变动 prptcoins 表的数据,请稍候...          " AT 10,2 
##        LET pv_nowtabname="prptcoins"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTcoins"
##        PREPARE tcoins_pre FROM lv_sqltxt
##        DECLARE tcoins_cur CURSOR FOR tcoins_pre
##        INITIALIZE gr_prptcoins.* TO NULL
##        LET lv_count=1
##        FOREACH tcoins_cur INTO gr_prptcoins.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTcoins VALUES(gr_prptcoins.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTcoins数据错误,主键:",gr_prptcoins.ProposalNo,"|",gr_prptcoins.SerialNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##    
##        DISPLAY "正在变动 prptengage 表的数据,请稍候...          " AT 10,2 
##        LET pv_nowtabname="prptengage"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTengage"
##        PREPARE tengage_pre FROM lv_sqltxt
##        DECLARE tengage_cur CURSOR FOR tengage_pre
##        INITIALIZE gr_prptengage.* TO NULL
##        LET lv_count=1
##        FOREACH tengage_cur INTO gr_prptengage.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTengage VALUES(gr_prptengage.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTengage数据错误,主键:",gr_prptengage.ProposalNo,"|",gr_prptengage.SerialNo,"|",gr_prptengage.LineNo,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##         
##        DISPLAY "正在变动 prptfee 表的数据,请稍候...          " AT 10,2     
##        LET pv_nowtabname="prptfee"
##        LET lv_sqltxt="SELECT * FROM ",lv_sourcedb CLIPPED,":PrpTfee"
##        PREPARE tfee_pre FROM lv_sqltxt
##        DECLARE tfee_cur CURSOR FOR tfee_pre
##        INITIALIZE gr_prptfee.* TO NULL
##        LET lv_count=1
##        FOREACH tfee_cur INTO gr_prptfee.*
##            DISPLAY "                                     "    AT 11,2
##            DISPLAY "第",lv_count,"条数据"    AT 11,2
##            INSERT INTO PrpTfee VALUES(gr_prptfee.*)
##            IF SQLCA.SQLCODE !=0 THEN
##                LET lv_errtxt="转换PrpTfee数据错误,主键:",gr_prptfee.ProposalNo,"|",gr_prptfee.Currency,
##                              "  |错误号:",SQLCA.SQLCODE
##                CALL errorlog(lv_errtxt)
##            END IF
##            LET lv_count=lv_count+1
##        END FOREACH
##        DISPLAY "                                    "  AT 10,2
##