【结】自动编号问题

thumb0422

在自动编号中 ，参照 业务系统中 流水号参数组 的代码，
unit FKYWCSZ;

interface

uses
  Business.System, Business.Model,CommonUtils;

type
  TFKYWCSZ = class(TBizParamGroup)
    ParamGDH: TBizParam;
    procedure BizParamGroupCreate(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TFKYWCSZ.BizParamGroupCreate(Sender: TObject);
var
  lTempStr: string;
begin
    Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
    TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
  { 可根据需要定制Value的格式 }
  lTempStr := TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 9);
  Value := 'CMRS' + lTempStr;
end;

end.

提示[错误]Biz:\FKYJJGJXT\FKYGJ\FKYWCSZ.ParamGroup.pas(6, 35): 找不到命名空间“CommonUtils”（是否缺少 程序集引用？）

zfang

需要引用 业务模型\业务系统\公共\公共函数\公共函数

thumb0422

编译通过，公共函数 已经引用，但是还是没能自动编码：
unit YWCSZ;

interface

uses
  Business.System, Business.Model,CommonUtils;

type
  TYWCSZ = class(TBizParamGroup)
    ParamGDH: TBizParam;
    procedure ParamGDHGetValue(Sender: TObject; var Value: Variant);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TYWCSZ.ParamGDHGetValue(Sender: TObject; var Value: Variant);
var
  lTempStr: string;
begin
  Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
    TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
  { 可根据需要定制Value的格式 }
  lTempStr := TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 9);
  Value := 'CRMS' + lTempStr;
end;



end.

zfang

不能自动编码是什么情况呢？贴个图看看。
可以studio调试一下，看这个代码是否执行到了。

thumb0422

在studio中 过程调试中 能做到 自动编码，在前一个基础上递增。
但是在签入之后在IE中 却发现该字段是个固定值。

zfang

是否有资源没有做签入并刷新缓存呢？

thumb0422

准确的说是 按F9（运行）之后的调试就可以达到 自动编码， 按ALT+F9（初始化运行）之后的调试该字段的编码是个固定值（看起来是乱码似的）。
是没有初始化吗？？ 还是有什么别的需要修改的；

缓存刷新了，已经签入了。

zfang

乱码似的，是不是这个编码是一个32位的guid？
你这个功能是流程中的入口功能，且这个字段是流程字段？如果是，请检查一下流程的启动规则--重复处理数据模式，设置为 新建

thumb0422

是的。。可以结贴了