存档

2008年9月 的存档

使用Navision发送邮件

2008年9月24日 没有评论

使用Navision配合Job Queue自带功能发送邮件有两种方案

  1. 使用Code Unit 397, 需要在服务器上始终打开Outlook客户端
  2. 使用Code Unit 400, 不需要打开Outlook,但需要配置SMTP服务器。 配置Form是409,存储Table是409
分类: C/AL 标签: , ,

如何添加多个NAS服务器

2008年9月24日 没有评论

NAS服务安装好以后默认只有一个,连接到一台服务器

通过复制Navision Application Server文件夹,再使用命令行方式可以创建多个服务。

nassql.exe appservername=TheNasName, NETTYPE=TCP, servername=TheSQLServer,database=TheSQLDatabase, company="The Company", startupparameter=”THEPARAMETER”, objectcache=40000, installasservice

net start TheNasName

Sc delete The NasName  可以删除这个服务.

 

然后在系统中就可以看到 Application Server for Microsoft Dynamics NAV TheNasName的服务

如果是Codeunit,还需要在属性中设置对TableNo Job Entry的访问。

 

NAS需要配置系统Job Queue才可以运行,测试Job Queue是否正常运行,执行CodeUnit 448 即可实现。

 

关于NAS服务器的参数,如果不是用JOB Queue,也可以使用其他的参数来执行,但需要在Codeunit 1的NASHandle中对这个参数进行描述,比如IF Para=’Test123′ Then Codeunit.Run(xxx)

分类: Installation, Web Services 标签:

如何去掉字符串的前后空字符

2008年9月18日 没有评论

下面函数将实现和其他语言一致的Trim去掉空字符函数。  使用这个函数将去掉前后的所有 空字符。

如Tab/Enter/Space等字符。

Trim(String : Text[1024]) Result : Text[1024]
//This is created by Yeats.
StringL:=STRLEN(String);
I:=0;
WHILE (I =0 ) DO BEGIN
  IF Asc(COPYSTR(String,1,1)) IN [9,10,13,32] THEN
    String:=COPYSTR(String,2,1024)
  ELSE
    I:=1;
END;

I:=0;
WHILE (I =0 ) DO BEGIN
  IF COPYSTR(String,STRLEN(String),1)=’ ‘ THEN
    String:=COPYSTR(String,1,STRLEN(String)-1)
  ELSE
    I:=1;
END;
Result:=String;

分类: C/AL 标签: ,