【搞定】求助：界面显示问题**

YZQH · 发表于 2007-5-11 11:01:21

我在系统登陆时如果选择岗位信息，一切正常；如果不选会跳出提示信息“在当前环境中找不到岗位”，进入系统后则面板的信息会乱（我已经自己修改了面板）。
在组织结构中设置了默认登陆的岗位还是有这个问题！
另外如果从MESSAGE中直接登陆也会出现上面的问题！

atiger · 发表于 2007-5-11 11:44:47

对，应该你修改面板用到的环境吧，使用方法有问题，你先把你用到的环境代码贴出来看看。我们找一下原因

jiahaiminghr · 发表于 2007-5-11 11:59:24

楼主，请提供错误贴图（包括错误提示信息和已经变乱的面板）

并且调试运行，看错误定位在哪句代码上?

YZYHZ · 发表于 2007-5-11 13:16:29

因为新闻公告放开后，当系统进入时，刷新新闻公告是要验证是否有当前岗位的新闻公告要显示，在显示时要读取当前登录的岗位，

所以当登录时不选择岗位，或者从X3 MESSENGER 打开X3时均会出现问题，错误信息将图：

YZYHZ · 发表于 2007-5-11 13:20:53

业务信息：新闻公告信息(导航)

这个问题比较急，请帮忙解决一下。谢谢！！

function TNEWSPLACARD_NAVINFO.GetFilter: string;
var
  lPerson,lPosition,lDept,lorg: string;
  lFilter: string;
  lNow: Double;
begin
  lNow := Business.Data.SysSrv.SysService.Time;
  lPerson := TContextUtils.GetOperator(Context).ID;

//下面这句话出错:读取当前的岗位
  lPosition := TContextUtils.GetOperatorPosition(context).PositionID;

  lDept := TContextUtils.GetDept(context).ID;

  lorg := GetOgrn.ID;

  lFilter := ' ftype = ''NEWSPLACARDDEAL'' ';

alang · 发表于 2007-5-11 14:05:09

要获得岗位，可以用以下代码
  lPosition := SystemCore.TSystemCore.Operator.DefaultPosition;
  if not Assigned(lPosition) then
  lPosition := SystemCore.TSystemCore.Operator.Positions[0];

因为在工作台上，当前环境中没有岗位环境

YZYHZ · 发表于 2007-5-11 15:06:41

运行到第一个语句时出错，这样做行吗？

jiahaiminghr · 发表于 2007-5-11 15:54:21

有什么错误提示?

YZYHZ · 发表于 2007-5-11 16:10:18

类型不匹配，见图

如何做强制类型转换？

YZYHZ · 发表于 2007-5-11 16:15:27

条件表达式出错？

见图

		自动登录	找回密码
密码			立即注册