frmphsmodifyinfo.pas

小灵通机卡分离模块的设计.建立在数据库服务器

  FrmYhxx.DbeRelEmail.Color := clWhite;
  FrmYhxx.DbeRelAddr.Enabled :=true;
  FrmYhxx.DbeRelAddr.Color := clWhite;
  FrmYhxx.DbeRelPost.Enabled :=true;
  FrmYhxx.DbeRelPost.Color := clWhite;
  FrmYhxx.DbeRelFax.Enabled :=true;
  FrmYhxx.DbeRelFax.Color := clWhite;
  FrmYhxx.DbeRelDepa.Enabled :=true;
  FrmYhxx.DbeRelDepa.Color := clWhite;
  FrmYhxx.DblcCommMode.Enabled :=true;
  FrmYhxx.DblcCommMode.Color := clWhite;
  
  //如果当前受理单为补机业务受理单，则只能修改补机选项
  OperationJudge();

  //Cbxrepair.checked:=FrmYyslzx.BeCurrRepair(currcpbh);
  //产品安装地址不允许进行修改
  prodinfo.DblcAddrNo.Enabled:=false;
  prodinfo.DblcTownId.Enabled:=false;
  prodinfo.DbeAddress.Enabled:=false;
  prodinfo.BtnAddress.Enabled:=false;
  prodinfo.DblcProdClas.Enabled:=false;
  Oldprodno:='';
  if iscbh <> '' then
  begin
     Oldprodno:=phoneinfo.LwlPhoneInfo.fieldbyname('product_no').asstring;
  end;
  PhoneInfo.iOldNum := trim(PhoneInfo.LwlPhoneInfo.FieldByName('product_no').AsString);
  PhoneInfo.itempNum := trim(PhoneInfo.LwlPhoneInfo.FieldByName('product_no').AsString);
  PhoneInfo.DbeInsideNo.MaxLength := Length(trim(PhoneInfo.LwlPhoneInfo.FieldByName('inside_no').AsString));  
  framephsinfo.oldpscode:=trim(framephsinfo.lwlphs.fieldbyname('ps_code').asstring);

 //add by zgw 20050427
  phssiminfo1.iOldSim :=trim(phssiminfo1.LwlPhsSim.fieldbyname('card_iccid').asstring);
  phssiminfo1.itempSim :=trim(phssiminfo1.LwlPhsSim.fieldbyname('card_iccid').asstring);
  //
 { if phssiminfo1.LwlCardType.FieldByName('scode').AsString ='A' then
  begin
  cbxMend.Visible :=false;
  phssiminfo1.DbeProdsecNo.Visible :=false;
  end
  else if phssiminfo1.LwlCardType.FieldByName ('scode').AsString ='B' then
  begin
  cbxMend.Visible :=true;
  phssiminfo1.DbeProdsecNo.Visible :=true;
  end;     }
  //测量室不能修改
  prodinfo.DblcMeasureCode.Enabled := false;
  //SIM卡类型不能修改
  PhsSimInfo1.DblcCardType.Enabled:=false;//暂时不能修改，modify by lizh 20050516
  //modify kenshine 20040831
  if trim(FrmYyslzx.GetShowmodal()) = '1' then
  begin
    disablePanel(ProdInfo);
    disablePanel(FrmYhxx);
    disablePanel(PhoneInfo);
    ProgFunc.BtnDevice.Enabled := false;
    disablePanel(Framephsinfo);
  end;
end;

//进行选号
procedure TFrmPhsmodify.PhoneInfoBtnNumSelClick(Sender: TObject);
begin
  inherited;
  if ProdInfo.DblcAddrNo.KeyValue = null then
  begin
    MessageDlg('客户地址错误或模糊，重新确定局向！',mtWarning,[mbok],0);
    exit;
  end;
  PhoneInfo.iSwithId := PhoneInfo.LwlPhoneInfo.FieldByName('switch_id').AsString; //交换机
  PhoneInfo.iExchCode := ProdInfo.LwlProdInfo.FieldByName('exch_code').AsString;  //地址局向
  PhoneInfo.iProtCode := ProdInfo.LwlProdInfo.FieldByName('prot_code').AsString;  //协议编号
  PhoneInfo.iProdClass := ProdInfo.LwlProdInfo.FieldByName('prod_class').AsString;//产品类别
  PhoneInfo.iCustType := FrmYhxx.LwlUserInfo.FieldByName('cust_type').AsString;//客户等级  
  PhoneInfo.BtnNumSelClick(Sender);
end;

//选择程控功能
procedure TFrmPhsmodify.ProgFuncBtnFuncClick(Sender: TObject);
var
  i :integer;
begin
  inherited;
  ProgFunc.gSwitchCode := PhoneInfo.LwlPhoneInfo.FieldByName('switch_id').AsString;  //交换机编码
  if (ProgFunc.gCpbh = '') and (icpbh <> '') then
  begin
    ProgFunc.gCpbh := icpbh;
  end;
  //modify kenshine 20040816
  //由于缺少客户编号影响了预付费信息的互改
  ProgFunc.gCustId:= Frmyhxx.LwlUserInfo.FieldByName('cust_id').AsString;
  //modify kenshine 20040816
  ProgFunc.BtnFuncClick(Sender);

  //modify kenshine 20040609
  //PHS的CENTREX功能检验(modify on 2003.02.23)
  {if ProgFunc.LwlIncrProd.Locate('prod_class','H3',[loCaseInsensitive]) then
  begin
    PhoneInfo.DbeGroupNo.Enabled := true;
    PhoneInfo.DbeGroupNo.Color := clWindow;
    PhoneInfo.DbeInsideNo.Enabled := true;
    PhoneInfo.DbeInsideNo.Color := clWindow;
    PhoneInfo.BtnGroupSel.Enabled := true;
  end
  else
  begin
    PhoneInfo.DbeGroupNo.Enabled := false;
    PhoneInfo.DbeGroupNo.Color := $00EAEAEA;
    PhoneInfo.DbeInsideNo.Enabled := false;
    PhoneInfo.DbeInsideNo.Color := $00EAEAEA;
    PhoneInfo.BtnGroupSel.Enabled := false;
    PhoneInfo.LwlPhoneInfo.FieldByName('group_no').AsString := '';
    PhoneInfo.LwlPhoneInfo.FieldByName('inside_no').AsString := '';
  end; }
end;

//选择设备
procedure TFrmPhsmodify.FrmYhxxDbeUserPwdKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  FrmYhxx.DbeUserPwdKeyPress(FrmYhxx.DbeUserPwd,Key);
end;
//如果客户名称、客户联系人、用户联系人为空时，变更用户名称的同时将以上几项设为相同
procedure TFrmPhsmodify.FrmYhxxDbeUserNamExit(Sender: TObject);
var
  iname : string;
begin
  inherited;
  iname := FrmYhxx.DbeUserNam.Text;
  if FrmYhxx.DbeRelPeop.Text = '' then
    FrmYhxx.DbeRelPeop.Field.Value := iname;
end;

procedure TFrmPhsmodify.ProdInfoDbeProdPwdKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  ProdInfo.DbeProdPwdKeyPress(Sender, Key);
{  if Key = #13 then
  begin
    if ProdInfo.iProdcount =  then
      PhoneInfo.DbePhoneNo.SetFocus;
  end;}
end;

procedure TFrmPhsmodify.FrmYhxxDblcCustKindClick(Sender: TObject);
begin
  inherited;
  FrmYhxx.DblcCustKindClick(Sender);
end;

procedure TFrmPhsmodify.ProgFuncEdSwslKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  ProgFunc.EdSwslKeyPress(Sender, Key);
end;

procedure TFrmPhsmodify.ProgFuncEdSubNumKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  ProgFunc.EdSubNumKeyPress(Sender, Key);
end;

procedure TFrmPhsmodify.ProdInfoDbeUseTimeKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  ProdInfo.DbeUseTimeKeyPress(Sender, Key);
end;

procedure TFrmPhsmodify.ProdInfoDbeOutDistKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  ProdInfo.DbeOutDistKeyPress(Sender, Key);
end;

procedure TFrmPhsmodify.PhoneInfoDbeSubProNumKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  PhoneInfo.DbeSubProNumKeyPress(Sender, Key);
end;

procedure TFrmPhsmodify.FrmYhxxDbeUserPwdChange(Sender: TObject);
begin
  inherited;
  FrmYhxx.DbeUserPwdChange(Sender);
end;

procedure TFrmPhsmodify.ProdInfoDbeProdPwdChange(Sender: TObject);
begin
  inherited;
  ProdInfo.DbeProdPwdChange(Sender);
end;

procedure TFrmPhsmodify.FrmYhxxDblcCustLabeClick(Sender: TObject);
begin
  inherited;
  FrmYhxx.DblcCustLabeClick(Sender);
end;

{//*****************************************************************************
功能：输入信息的合法性校验；记录的插入
//*****************************************************************************}
procedure TFrmPhsmodify.BtnOkClick(Sender: TObject);
var
  i,j :integer;
  RetVal : integer;
  ls_prodno,ls_cust_level,ls_SubSer,ls_SrvType,ls_NewScls:string;
  ls_newpscode,ls_oldpscode,ls_ownerid,ls_userid,ls_repair,ls_value,ls_value_o,ls_flagps:string;
  ls_ywm,ls_NewScbh,ls_NewCpbh,ls_AcceptState,ls_Seq,ls_flag,ls_znwflag:string;
  ls_srvywm,ls_lang,ls_starttime,ls_timelen,ls_lentype:string;
  li_sl:integer;
  ls_scbh,ls_scls,ls_slbh,ls_cplb,ls_msgout,ls_prepay :string;
  LinkJudgefee:Tlwlink;    //modify kenshine 20040709
  ls_inparm:array[0..2] of string;
  ls_OldSim,ls_newsim :string;

  ls_value1,ls_value_o1:string;
begin
  inherited;
  //改号通知音标志 'N':不要求提示是否申请改号通知音，'Y':要求提示是否申请改号通知音;
  ls_znwflag:='N';

//如果主号码变更，填入产品基本信息表中
  ProdInfo.LwlProdInfo.Edit;
  ProdInfo.LwlProdInfo.FieldByName('product_no').AsString := PhoneInfo.LwlPhoneInfo.FieldByName('product_no').AsString;
  ProdInfo.LwlProdInfo.Post;
//测量室的填写到
//modify kenshine 20040826
  PhoneInfo.LwlPhoneInfo.FieldByName('measure_id').AsString:=ProdInfo.LwlProdInfo.FieldByName('measure_code').AsString;
  PhoneInfo.LwlPhoneInfo.Edit;
  PhoneInfo.LwlPhoneInfo.Post;
//检查用户信息的合法性和有效性--------------------------------------------------
  RetVal :=FrmYhxx.UserValidate();
  if RetVal = 1 then
  begin
    FrmYhxx.FocusSet(); //设置焦点
    exit;
  end;

//检查产品信息
  RetVal :=ProdInfo.ProdValidate();
  if RetVal = 1 then
  begin
    ProdInfo.FocusSet();  //设置焦点
    exit;
  end;
//modify kenshine
//判断是否选择组群功能(2003.02.22)  
  {if ProgFunc.LwlIncrProd.Locate('prod_class','H3',[loCaseInsensitive]) then
  begin
    PhoneInfo.iFlag := 1;
  end
  else
  begin
    PhoneInfo.iFlag := 0;  
    PhoneInfo.LwlPhoneInfo.FieldByName('group_no').AsString := '';
    PhoneInfo.LwlPhoneInfo.FieldByName('inside_no').AsString := '';  
  end;}
//检查号码信息
  RetVal := PhoneInfo.PhoneValidate();
  if RetVal = 1 then
  begin
    PhoneInfo.FocusSet(); //设置焦点
    exit;
  end;

  //对小灵通的号码进行校验
  if (phoneinfo.DbePhoneNo.Enabled or progfunc.BtnFunc.Enabled) then
  begin
      ls_prodno:=trim(phoneinfo.LwlPhoneInfo.fieldbyname('product_no').AsString);
      if (ls_prodno <> '') then
      begin
        if (progfunc.Bevalidprodno(ls_prodno)=0) then exit;
      end;
  end;

  //设置默认长途类型
  //ProgFunc.SetDistType();
//------------------------------------------------------------------------------

//调用生成记录的中间件服务
  Lwlphsmodify.Open;
  Lwlphsmodify.Clear;
  Lwlphsmodify.Param.Clear;
  Lwlphsmodify.CicsRegion := vg_CicsRegion; //设置CicsRegion
  Lwlphsmodify.CicsProgram := 'DPHSMOD';
  //记录信息变动
  //比较联系信息变动情况
  ls_flag:='0';

  ls_flagps:='1';

  ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('cont_man').AsString);
  ls_value_o:=trim(Frmyhxx.LwlUserInfoOld.fieldbyname('cont_man').AsString);
  if ls_value<>ls_value_o then
  begin
     ls_flag:='1';
     appendvalue(Lwlphsmodify,'E7','23','cont_man','联系人','varchar2','M','1',ls_value,ls_value_o);
  end;
  ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('comm_mode').AsString);
  ls_value_o:=trim(Frmyhxx.LwlUserInfoOld.fieldbyname('comm_mode').AsString);
  if ls_value<>ls_value_o then
  begin
     ls_flag:='1';
     appendvalue(Lwlphsmodify,'E7','33','comm_mode','常用通信方式','varchar2','M','1',ls_value,ls_value_o);
  end;
  ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('cont_dept').AsString);
  ls_value_o:=trim(Frmyhxx.LwlUserInfoOld.fieldbyname('cont_dept').AsString);
  if ls_value<>ls_value_o then
  begin
     appendvalue(Lwlphsmodify,'E7','24','cont_dept','联系人部门','varchar2','M','1',ls_value,ls_value_o);
     ls_flag:='1';
  end;
  ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('cont_tel1').AsString);
  ls_value_o:=trim(Frmyhxx.LwlUserInfoOld.fieldbyname('cont_tel1').AsString);
  if ls_value<>ls_value_o then
  begin
     appendvalue(Lwlphsmodify,'E7','27','cont_tel1','联系电话','varchar2','M','1',ls_value,ls_value_o);
     ls_flag:='1';
  end;
  ls_value:=trim(Frmyhxx.LwlUserInfo.fieldbyname('fax').AsString);