📄 frmphsmodifyinfo.pas
字号:
ls_value_o:=trim(Frmyhxx.LwlUserInfoOld.fieldbyname('fax').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'E7','29','fax','联系传真','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('email').AsString);
ls_value_o:=trim(Frmyhxx.LwlUserInfoOld.fieldbyname('email').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'E7','30','email','联系EMAIL','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('comm_addr').AsString);
ls_value_o:=trim(Frmyhxx.LwlUserInfoOld.fieldbyname('comm_addr').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'E7','31','comm_addr','联系地址','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('zip').AsString);
ls_value_o:=trim(Frmyhxx.LwlUserInfoOld.fieldbyname('zip').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'E7','32','zip','联系邮编','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
if ls_flag='1' then
begin
ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('cust_id').AsString);
appendvalue(Lwlphsmodify,'E7','2','cust_id','客户编号','number','M','1',ls_value,ls_value);
end;
//比较产品信息的变动情况
if prodinfo.DblcAddrNo.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('exch_code').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('exch_code').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DblcAddrNo.Tag),'exch_code','入网局','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbePostalCode.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('prod_zip').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('prod_zip').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DbePostalCode.Tag),'prod_zip','邮政编码','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbeNearPhon.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('near_tel').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('near_tel').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DbeNearPhon.Tag),'near_tel','临近电话','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DblcTownId.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('town_id').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('town_id').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DblcTownId.Tag),'town_id','行政区','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbeAddress.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('prod_addr').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('prod_addr').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DbeAddress.Tag),'prod_addr','安装地址','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbeConfNo.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('prot_code').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('prot_code').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DbeConfNo.Tag),'prot_code','协议编号','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DblcMonRent.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('month_rent').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('month_rent').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DblcMonRent.Tag),'month_rent','月租类别','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbeUseTime.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('time_len').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('time_len').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DbeUseTime.Tag),'time_len','使用时长','number','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DblcProdProp.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('prod_prop').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('prod_prop').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DblcProdProp.Tag),'prod_prop','产品性质','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbeProdPwd.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('prod_pwd').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('prod_pwd').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0',inttostr(prodinfo.DbeProdPwd.Tag),'prod_pwd','产品密码','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DblcPostFlag.enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('post_flag').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('post_flag').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0','32','post_flag','帐单投递方式','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DblcPostInfo.enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('post_info').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('post_info').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0','33','post_info','帐单投递内容','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbePostAddr.enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('post_addr').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('post_addr').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0','34','post_addr','帐单投递地址','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbePostName.enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('post_name').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('post_name').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0','35','Post_name','帐单收件人','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbePostZip.enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('post_zip').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('post_zip').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0','36','post_zip','帐单投递邮编','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DbeComment.Enabled then
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('comments').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('comments').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0','29','comments','备注','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if prodinfo.DblProdServLevel.Enabled then //古凤远:20040726修改产品售后服务等级
begin
ls_value:=trim(prodinfo.LwlProdInfo.fieldbyname('spare_fld0').AsString);
ls_value_o:=trim(prodinfo.LwlProdInfoOld.fieldbyname('spare_fld0').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0','42','spare_fld0','产品服务等级','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
//号码信息
ls_flag:='0';
if phoneinfo.DbePhoneNo.Enabled then
begin
ls_value:=trim(phoneinfo.LwlPhoneInfo.fieldbyname('product_no').AsString);
ls_value_o:=trim(phoneinfo.LwlPhoneInfoOld.fieldbyname('product_no').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A0','6','product_no','产品号码','varchar2','M','1',ls_value,ls_value_o);
appendvalue(Lwlphsmodify,'A1',inttostr(phoneinfo.DbePhoneNo.Tag),'product_no','产品号码','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
ls_znwflag:='Y';
end;
end;
if phoneinfo.DbeProdGrad.Enabled then
begin
ls_value:=trim(phoneinfo.LwlPhoneInfo.fieldbyname('prodno_grade').AsString);
ls_value_o:=trim(phoneinfo.LwlPhoneInfoOld.fieldbyname('prodno_grade').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A1',inttostr(phoneinfo.DbeProdGrad.Tag),'prodno_grade','产品号码等级','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if phoneinfo.DblcSecrMode.Enabled then
begin
ls_value:=trim(phoneinfo.LwlPhoneInfo.fieldbyname('secrecy_mode').AsString);
ls_value_o:=trim(phoneinfo.LwlPhoneInfoOld.fieldbyname('secrecy_mode').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A1',inttostr(phoneinfo.DblcSecrMode.Tag),'secrecy_mode','保密方式','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
//增加查号名称(2003.11.03)
if phoneinfo.DbeProdnoName.Enabled then
begin
ls_value:=trim(phoneinfo.LwlPhoneInfo.fieldbyname('prodno_name').AsString);
ls_value_o:=trim(phoneinfo.LwlPhoneInfoOld.fieldbyname('prodno_name').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A1',inttostr(phoneinfo.DbeProdnoName.Tag),'prodno_name','查号名称','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
//增加CENTREX和phs判断(modify on kenshine 20040609)
if phoneinfo.DbeGroupNo.Enabled then
begin
ls_value:=trim(phoneinfo.LwlPhoneInfo.fieldbyname('group_no').AsString);
ls_value_o:=trim(phoneinfo.LwlPhoneInfoOld.fieldbyname('group_no').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A1',inttostr(phoneinfo.DbeGroupNo.Tag),'group_no','组群号码','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
if phoneinfo.DbeInsideNo.Enabled then
begin
ls_value:=trim(phoneinfo.LwlPhoneInfo.fieldbyname('inside_no').AsString);
ls_value_o:=trim(phoneinfo.LwlPhoneInfoOld.fieldbyname('inside_no').AsString);
if ls_value<>ls_value_o then
begin
appendvalue(Lwlphsmodify,'A1',inttostr(phoneinfo.DbeInsideNo.Tag),'inside_no','内部号码','varchar2','M','1',ls_value,ls_value_o);
ls_flag:='1';
end;
end;
//mod by zgw
///如果PS编码变动，则修改相应电话表中的设备号
if framephsinfo.DBEdtpscode.Enabled then
begin
ls_value:=trim(framephsinfo.lwlphs.fieldbyname('ps_code').AsString);
ls_value_o:=trim(framephsinfo.lwlphsold.fieldbyname('ps_code').AsString);
if ls_value <> ls_value_o then
begin
ls_flag:='1';
if FrmYyslzx.Getywm() = '' then
begin
if pos('I8',FrmYyslzx.GetOldywmstr) <= 0 then
begin
appendvalue(Lwlphsmodify,'A1','16','fac_code','设备号','varchar2','M','1',ls_value,ls_value_o);
end;
end;
end;
end;
//addby zgw 20050425 phssim处理
if phssiminfo1.DbeCardIccid.Enabled then
begin
ls_value:=trim( phssiminfo1.LwlPhsSim.fieldbyname('card_iccid').AsString);
ls_value_o:=trim(phssiminfo1.LwlPhsSimold.fieldbyname('card_iccid').AsString);
if ls_value <> ls_value_o then
begin
appendvalue(Lwlphsmodify,'J2','4','card_iccid','SIM卡号','varchar2','M','1',ls_value,ls_value_o);
ls_flagps:='0';
ls_flag:='1';
if FrmYyslzx.Getywm()<> '' then
begin
ls_flagps:='1';
end;
end;
//add by zgw
ls_value:=trim( phssiminfo1.LwlPhsSim.fieldbyname('card_psnm').AsString);
ls_value_o:=trim(phssiminfo1.LwlPhsSimold.fieldbyname('card_psnm').AsString);
if ls_value <> ls_value_o then
begin
appendvalue(Lwlphsmodify,'J2','5','card_psnm','PS编码','varchar2','M','1',ls_value,ls_value_o);
ls_flagps:='0';
ls_flag:='1';
if FrmYyslzx.Getywm()<> '' then
begin
ls_flagps:='1';
end;
end;
end;
if phssiminfo1.Dbeprodsecno.Enabled then
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -