1：直接调用函数
str 24 ComName;
;
ComName=appl.company().ext();//当前公司ID
curUserid();//当前用户iD
systemDateget();//当前时间
Time2Str(timenow(),1,2);//时间转换函数
curuserid()//当前用户
2，使用Session对象
session xSession;
;
xSession=new session();
print xsession.userId();pause;
print xsession.interfaceLanguage();pause;
3，使用XInfo对象
static void currentConfiguartion(Args _args)
{
AOSSessionInfo info = new AOSSessionInfo();
SqlSystem SqlSystem = new SqlSystem();
;
print xinfo::componentName();
print xinfo::configuration();
print xinfo::dbName();
print xinfo::licenseName();
print xinfo::releaseVersion();
print info.clientMode();
print SqlSystem.loginConnectString();
print xinfo::directory(directorytype::Appl);
print xinfo::directory(directorytype::DB);//....
pause;
}
4，得到数据库信息： 我们可以使用类SqlSystem得到数据库的信息，
static void Job52(Args _args)
{
sqlsystem sql;
;
sql=new sqlsystem();
print sql.databaseName();
print sql.databaseId();
print sql.loginServer();
print sql.loginDatabase();
print sql.loginName();
pause;
}
5，取余，取整，取小数
static void job1 (Args args)
{
real i,j;
;
i=10;
j=3;
print trunc(i/j); //取整
print frac(i/j); //小数
print i-j*trunc(i/j); //取余
pause;
}
6, 判断文件访问权限
private void checkFileAccess(Filename _filename)
{
#WinAPI
FilePath filePath = conpeek(fileNameSplit(_filename), 1);
Filename filename = 'AxaptaTestFile';
str fileExt = '.Axapta';
Filename testFilename;
int handle;
Counter counter;
Filename getFileName()
{
;
counter ++;
return filePath + filename + strRFix(int2str(counter), 3, '0') + fileExt;
}
do
{
testFilename = getFileName();
}
while (WinAPI::fileExists(testFilename));
handle = WinAPI::createFile(testFilename, #CREATE_NEW, #CREATE_ALWAYS);
if (handle == -1)
{
throw error("@SYS97423");
}
WinAPI::closeHandle(handle);
WinAPI::deleteFile(testFilename);
}