📄 prpcodeupd.4gl
字号:
##############################################################
#/--@CLASS main
#@DESC the main function
#@AUTHOR sam ying
#@CREATEDATE 2002/08/21
#@MODIFYLIST
# NAME DATE REASON
#-/liangna 2002/08/22
##############################################################
DATABASE a_prpins
DEFINE pv_nowtabname CHAR (20)
DEFINE gr_prptmain RECORD LIKE PrpTmain.*,
gr_prptbatch RECORD LIKE PrpTbatch.*,
gr_prptmain_cargo RECORD LIKE PrpTmain_cargo.*,
gr_prptmain_loan RECORD LIKE PrpTmain_loan.*,
gr_prptitem_car RECORD LIKE PrpTitem_car.*,
gr_prptinsured RECORD LIKE PrpTinsured.*,
gr_prptinsuredext RECORD LIKE PrpTinsuredExt.*,
gr_prptaddress RECORD LIKE PrpTaddress.*,
gr_prptcoins RECORD LIKE PrpTcoins.*,
gr_prptengage RECORD LIKE PrpTengage.*,
gr_prptfee RECORD LIKE PrpTfee.*,
gr_prptitem RECORD LIKE PrpTitem.*,
gr_prptitem_cargo RECORD LIKE PrpTitem_cargo.*,
gr_prptitem_device RECORD LIKE PrpTitem_device.*,
gr_prptitem_house RECORD LIKE PrpTitem_house.*,
gr_prptitem_prop RECORD LIKE PrpTitem_prop.*,
gr_prptitemkind RECORD LIKE PrpTitemKind.*,
gr_prptlimit RECORD LIKE PrpTlimit.*,
gr_prptmain_construct RECORD LIKE PrpTmain_construct.*,
gr_prptmain_credit RECORD LIKE PrpTmain_credit.*,
gr_prptmain_invest RECORD LIKE PrpTmain_invest.*,
gr_prptmain_liab RECORD LIKE PrpTmain_liab.*,
gr_prptmain_prop RECORD LIKE PrpTmain_prop.*,
gr_prptmainsub RECORD LIKE PrpTmainSub.*,
gr_prptname RECORD LIKE PrpTname.*,
gr_prptplan RECORD LIKE PrpTplan.*,
gr_prptrenewal RECORD LIKE PrpTrenewal.*,
gr_prpcmain RECORD LIKE PrpCmain.*,
gr_prpcinsured RECORD LIKE PrpCinsured.*,
gr_prpcinsuredext RECORD LIKE PrpCinsuredExt.*,
gr_prpcmain_loan RECORD LIKE PrpCmain_loan.*,
gr_prpcmain_cargo RECORD LIKE PrpCmain_cargo.*,
gr_prpcbatch RECORD LIKE PrpCbatch.*,
gr_prpcmainsub RECORD LIKE PrpCmainSub.*,
gr_prpcitem_car RECORD LIKE PrpCitem_car.*,
gr_prpcaddress RECORD LIKE PrpCaddress.*,
gr_prpccoins RECORD LIKE PrpCcoins.*,
gr_prpcengage RECORD LIKE PrpCengage.*,
gr_prpcfee RECORD LIKE PrpCfee.*,
gr_prpcitem RECORD LIKE PrpCitem.*,
gr_prpcitem_cargo RECORD LIKE PrpCitem_cargo.*,
gr_prpcitem_device RECORD LIKE PrpCitem_device.*,
gr_prpcitem_house RECORD LIKE PrpCitem_house.*,
gr_prpcitem_prop RECORD LIKE PrpCitem_prop.*,
gr_prpcitemkind RECORD LIKE PrpCitemKind.*,
gr_prpclimit RECORD LIKE PrpClimit.*,
gr_prpcmain_construct RECORD LIKE PrpCmain_construct.*,
gr_prpcmain_credit RECORD LIKE PrpCmain_credit.*,
gr_prpcmain_invest RECORD LIKE PrpCmain_invest.*,
gr_prpcmain_liab RECORD LIKE PrpCmain_liab.*,
gr_prpcmain_prop RECORD LIKE PrpCmain_prop.*,
gr_prpcname RECORD LIKE PrpCname.*,
gr_prpcplan RECORD LIKE PrpCplan.*,
gr_prpcrenewal RECORD LIKE PrpCrenewal.*,
gr_prpphead RECORD LIKE PrpPhead.*,
gr_prppmain RECORD LIKE PrpPmain.*,
gr_prppinsured RECORD LIKE PrpPinsured.*,
gr_prppinsuredext RECORD LIKE PrpPinsuredExt.*,
gr_prppmain_cargo RECORD LIKE PrpPmain_cargo.*,
gr_prppmain_loan RECORD LIKE PrpPmain_loan.*,
gr_prppundo RECORD LIKE PrpPundo.*,
gr_prppitem_car RECORD LIKE PrpPitem_car.*,
gr_prppaddress RECORD LIKE PrpPaddress.*,
gr_prppcoins RECORD LIKE PrpPcoins.*,
gr_prppengage RECORD LIKE PrpPengage.*,
gr_prppfee RECORD LIKE PrpPfee.*,
gr_prppitem RECORD LIKE PrpPitem.*,
gr_prppitem_cargo RECORD LIKE PrpPitem_cargo.*,
gr_prppitem_device RECORD LIKE PrpPitem_device.*,
gr_prppitem_house RECORD LIKE PrpPitem_house.*,
gr_prppitem_prop RECORD LIKE PrpPitem_prop.*,
gr_prppitemkind RECORD LIKE PrpPitemKind.*,
gr_prpplimit RECORD LIKE PrpPlimit.*,
gr_prppmain_construct RECORD LIKE PrpPmain_construct.*,
gr_prppmain_credit RECORD LIKE PrpPmain_credit.*,
gr_prppmain_invest RECORD LIKE PrpPmain_invest.*,
gr_prppmain_liab RECORD LIKE PrpPmain_liab.*,
gr_prppmain_prop RECORD LIKE PrpPmain_prop.*,
gr_prppname RECORD LIKE PrpPname.*,
gr_prppplan RECORD LIKE PrpPplan.*,
gr_prpptext RECORD LIKE PrpPtext.*,
gr_prplregist RECORD LIKE PrpLregist.*,
gr_prplclaim RECORD LIKE PrpLclaim.*,
gr_prplcompensate RECORD LIKE PrpLcompensate.*,
gr_prplloss RECORD LIKE PrpLloss.*,
gr_prplperson RECORD LIKE PrpLperson.*,
gr_prplpersonloss RECORD LIKE PrpLpersonLoss.*,
gr_prplprop RECORD LIKE PrpLprop.*,
gr_Prplreplevydetail RECORD LIKE PrpLreplevyDetail.*,
gr_prplafterward RECORD LIKE PrpLafterward.*,
gr_prplarrearage RECORD LIKE PrpLarrearage.*,
gr_prplcfee RECORD LIKE PrpLCfee.*,
gr_prplcharge RECORD LIKE PrpLcharge.*,
gr_prplcheck RECORD LIKE PrpLcheck.*,
gr_prplclaimfee RECORD LIKE PrpLclaimFee.*,
gr_prplclaimpolicy RECORD LIKE PrpLclaimPolicy.*,
gr_prplctext RECORD LIKE PrpLCtext.*,
gr_prpldoc RECORD LIKE PrpLdoc.*,
gr_prpldriver RECORD LIKE PrpLdriver.*,
gr_prplendor RECORD LIKE PrpLendor.*,
gr_prplltext RECORD LIKE PrpLLtext.*,
gr_prplmedicine RECORD LIKE PrpLmedicine.*,
gr_prplprepay RECORD LIKE PrpLprepay.*,
gr_prplptext RECORD LIKE PrpLPtext.*,
gr_prplreclaim RECORD LIKE PrpLreclaim.*,
gr_prpjpayrec RECORD LIKE PrpJpayrec.*,
gr_prpgtask RECORD LIKE PrpGtask.*,
gr_prpgtask1 RECORD LIKE PrpGtask1.*,
gr_prpjallocmid RECORD LIKE PrpJallocmid.*,
gr_prpjcommalloc RECORD LIKE PrpJcommalloc.*,
gr_prpjpremalloc RECORD LIKE PrpJPremalloc.*,
gr_prpjrefrec RECORD LIKE PrpJrefrec.*,
gr_prpqana RECORD LIKE PrpQana.*,
gr_tracerec RECORD LIKE TraceRec.*
----------------------------------------------------------------------
##LN ADD BEGIN
##############################################################
#/--@METHOD
#@DESC a_prpins3.0.0版本更新函数
#@RETURN
#-/
##############################################################
FUNCTION prpcode_update(iv_productid)
#--/@PARAMETER
DEFINE iv_productid CHAR(30)
#-/
##DEFINE lv_answer CHAR(1)
## ## lv_result SMALLINT
##DEFINE lv_dbname CHAR(10)
##DEFINE lv_count INTEGER
##
##--# 定义局部变量
##DEFINE lv_sqltxt CHAR(1000)
##DEFINE lv_errtxt CHAR(500)
##DEFINE lv_sourcedb CHAR(30)
##
## # LET lv_result = 0
## LET lv_count = 0
## LET lv_dbname=fgl_getenv(iv_productid)
## LET lv_sourcedb="prpdb151"
## DATABASE lv_dbname
## --------------------------------------------------------------
## DISPLAY "正在变动数表的数据,请稍候.... " AT 10,2
##
## WHENEVER ERROR CONTINUE
##
## DISPLAY "正在变动 prptmain 表的数据,请稍候... " AT 10,2
## LET pv_nowtabname="prptmain"
##
## INITIALIZE gr_prptmain,lv_sqltxt TO NULL
## LET lv_sqltxt =" select * from ",lv_sourcedb CLIPPED,":prptmain "
## PREPARE pre_data_tmain FROM lv_sqltxt
## DECLARE curr_data_tmain CURSOR FOR pre_data_tmain
## LET lv_count=1
## FOREACH curr_data_tmain INTO gr_prptmain.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
##
## IF gr_prptmain.businessnature IS NULL
## THEN
## --##赋初值
## LET gr_prptmain.businessnature =" " --还没赋初值
## END IF
##
## INSERT INTO prptmain VALUES (gr_prptmain.*)
## LET lv_count=lv_count+1
## END FOREACH
##
## DISPLAY "正在变动 prptbatch 表的数据,请稍候... " AT 10,2
## INITIALIZE gr_prptbatch,lv_sqltxt TO NULL
## LET pv_nowtabname="prptbatch"
##
## LET lv_sqltxt =" SELECT ",
## " proposalno,",
## "riskcode,",
## "serialno,",
## "\"\",", -- visacode char(20),
## "billstartno,",
## "billendno ",
## "billcount,",
## "currency,",
## "sumamount,",
## "sumpremium,",
## "flag",
## " FROM ",lv_sourcedb CLIPPED,":prptbatch"
##
## PREPARE tbatch_pre FROM lv_sqltxt
## DECLARE tbatch_cur CURSOR FOR tbatch_pre
## LET lv_count=1
## FOREACH tbatch_cur INTO gr_prptbatch.*
## DISPLAY " " AT 11,2
## DISPLAY "第",lv_count,"条数据" AT 11,2
## INSERT INTO PrpTbatch VALUES (gr_prptbatch.*)
## IF SQLCA.SQLCODE !=0 THEN
## LET lv_errtxt="转换PrpTbatch数据错误,主键:",gr_prptbatch.ProposalNo,"|",gr_prptbatch.SerialNo,
## " |错误号:",SQLCA.SQLCODE
## CALL errorlog(lv_errtxt)
## END IF
## LET lv_count=lv_count+1
## END FOREACH
##
##
## DISPLAY "正在变动 prptmain_cargo 表的数据,请稍候... "
## AT 10,2
## INITIALIZE gr_prptmain_cargo,lv_sqltxt TO NULL
## LET pv_nowtabname="prptmain_cargo"
##
## LET lv_sqltxt=" SELECT ",
## "proposalno,",
## "riskcode,",
## "pricecondition,",
## "\"\",", -- ladingno char(20),
## "invoiceno,",
## "\"\",", -- invoicecurrency char(3),
## "invoiceamount,",
## "\"\",", -- plusrate decimal(8,4),
## "creditno,",
## "\"\",", -- shipnoteno char(20),(contractno)
## "contractno,",-- bargainno char(30),
## "conveyance,",
## "\"\",", -- blname varchar(40),
## "\"\",", -- carrybillno char(60),
## "\"\",", -- transferconveyance char(30),
## "blno,",
## "\"\",", -- voyageno char(14),
## "\"\",", -- preserveinfo varchar(40),
## "\"\",", -- toncount decimal(8,2),
## "startsitecode,",
## "startsitename,",
## "viasitecode,",
## "viasitename,",
## "\"\",", -- reshipsitename varchar(100),
## "endsitecode,",
## "endsitename,",
## "\"\",", -- enddetailname varchar(100),
## "\"\",", -- checkagentcode char(8),
## "claimsite,",
## "transferbank,",
## "\"\",", --OriginalCount SMALLINT v3.2
## "remark,",
## "flag",
## " FROM ",lv_sourcedb CLIPPED,":prptmain_cargo"
## PREPARE tmain_cargo_pre FROM lv_sqltxt
## DECLARE tmain_cargo_cur CURSOR FOR tmain_cargo_pre
## INITIALIZE gr_prptmain_cargo.* TO NULL
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -