【结帖】这个代码应该在哪里实现？**

sgmx

我的一个表的主键字段‘合同编号’的值由一个业务参数自动填充，而该业务参数的值又取决于该表中的另一个字段‘合同类型’，用户在功能中填完合同的基本信息后点击保存按钮系统会判断‘合同类型’的选值然后给业务参数赋值，然后再自动填充到主键字段，请问判断‘合同类型’的选值的这段代码在哪里写啊？

atiger

没有看的太懂，你的意思是‘合同类型’这个字段必须填充吗？还是只要‘合同类型’这个字段变化，‘合同编号’的值就会变化，如果‘合同类型’没有值，那么，‘合同编号’的值就为空。

sgmx

它们都是一个表中的字段，我只有在点击“保存”按钮时才会判断合同类型的选值而自动生成“合同编号”的值！‘合同类型’必须得选！

atiger

那就在数据导航条的BeforeAction去做，代码参考，请在bbs上以“BeforeAction”搜索

sgmx

我的功能实现了，但是我每次修改数据集的任何一个字段合同编号都会变，怎么样只让‘合同类型’这个字段发生变化时才会改变‘合同登记编号’？
procedure TMainForm.Action1Execute(Sender: TObject);
const
  cZeroLeng = '0000';
var
  //lParam: TBizParam;
  lBizURL: TBizURL;
  //lContextCurrent: TContextCurrent;
  tempstr : String;
  htlx : String;
  CurHTBH: Business.Model.TBizParam;
  lDateStr, lTmpStr: string;
begin
    htlx :='';
    //tempstr := Business.Model.TSheetDoc(DocView1.Doc).Sheet.Values[1,13].ToString;
    tempstr := DataSetBrokerjbxx.DataSet.FieldByName('HTLX').AsString;
    if tempstr='采购' then
      htlx := 'CG';
    if tempstr = '基建调试' then
      htlx := 'JJTS';
    if tempstr = '外协' then
      htlx := 'WX';
    if tempstr = '技术服务' then
      htlx := 'JSFW';
    if tempstr ='技术监督' then
      htlx :='JSJD';
    if tempstr = '管理合同' then
      htlx := 'GLHT';
    if tempstr ='技术开发' then
      htlx := 'JSKF';
    //Dialogs.ShowMessage(htlx);

    lBizURL := TBizURL.Create;
    lBizURL.URL := 'Biz:\HTGLXTYWKJ\GGYWCSZ.ParamGroup';
    CurHTBH := SystemUtils.TContextUtils.GetParam(Self.Context,lBizURL,'HTBHCS');
    if CurHTBH<>nil then
    begin
      lTmpStr := TCommonUtils.GetAutoIncreaseID(Self.Context,
    SysUtils.FormatDateTime('yyyymm', Business.Data.SysSrv.SysService.Time), '');

  lTmpStr := StringUtils.Copy(cZeroLeng, 1, Length(cZeroLeng) - Length(lTmpStr))
    + lTmpStr;
  lDateStr := SysUtils.FormatDateTime('yyyymm', Business.Data.SysSrv.SysService.Time);

      CurHTBH.Value := htlx+lDateStr + lTmpStr;
      DataSetBrokerjbxx.DataSet.FieldByName('HTDJBH').Value:= CurHTBH.Value.ToString;
      //Dialogs.ShowMessage('--->'+CurHTBH.Value.ToString+'<');
    end;
    lBizURL.Free;
end;

procedure TMainForm.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
begin
   if DataSetBrokerjbxx.DataSet.UpdatesPending then
     begin
         ActionList1.Actions[0].Execute;
         Accept :=true;

     end;

end;

jiahaiminghr

楼主可以在数据集的OnFieldchange中处理
procedure TfileSystemInfo.DataSetHSZWJQDFieldChange(DataSet: TDataSet; Field: TDataField);
begin
    可以判断Field是否‘合同类型’这个字段
end;

atiger

那在数据集的字段变化事件上去判断，“合同类型”是否有变化，然后再在beforeAction进行相应的处理。
数据集的字段变化事件上去判断，参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=1946
判断字段是否变化，参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=14613

sgmx

你好，我在数据集的字段变化事件中根据判断结果调用datanavigator的beforeaction事件，但是老是编译不通过，请问，这样调用不对吗？
procedure TMainForm.DataSetBrokerjbxxDataChange(Sender: TObject; Field: TDataField);
begin
  if (Field <> nil) and (Field.FieldName = 'HTLX') then
  begin
     DataNavigator1BeforeAction(Sender;True);
  end;


end;

zfang

DataNavigator1BeforeAction(Sender;True);
用逗号不是分号

atiger

你搞个变量，给个初始值，然后在字段变化事件中判断是否修改，修改给变量再赋一个值，最后在BeforeAction 的事件上通过这个变量来决定是否需要重新计算合同编号