【搞定】看看，运行协同平台，执行功能的时候，出错！**

zwjcooldd

1.My LBPFFXX 是TLBPFFXX类型的变量。 TLBPFFXX是建立的劳保品发放信息(业务信息自动产生的类），该信息中有劳保品发放数据集，该信息中的InitFFAddNewWorkTypeLBP过程，操作这个数据集。
2.代码是写在信息层上的（TLBPFFXX)

zwjcooldd

业务信息A下有个数据集A，业务信息B下有个数据集B，在数据集A的AfterApplyUpdates 调用业务信息B下的一个方法，是这样的。

atiger

信息b的代码如下：
unit czYWXX;

interface

uses
  Business.System, Business.Model, Business.Data;

type
  TczYWXX = class(TInfo)
    DataSetBZSJJ1: TSQLDataSet;
  private
    {private declarations}
  public
   procedure Test;
    {public declarations}
  end;

implementation

procedure TczYWXX.Test;
begin
  business.Forms.Dialogs.ShowMessage('dd');
end;

信息A的代码如下

uses
  Business.System, Business.Model, Business.Data,CZYWXX;

type
  TYWXX1 = class(TInfo)
    DataSetBZSJJ1: TSQLDataSet;
    procedure DataSetBZSJJ1AfterApplyUpdates(Sender: TObject; var OwnerData: object);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TYWXX1.DataSetBZSJJ1AfterApplyUpdates(Sender: TObject; var OwnerData: object);
var
  lInfo : TczYWXX;
begin
  lInfo :=TczYWXX.Create(self.Context);
  lInfo.Test;
end;

zwjcooldd

我找到问题了：我创建信息用了： 变量.Create(self.Context)。而非:类型.Create(self.Context)

zwjcooldd

ok!

atiger

结贴