統合 Dexterity プログラムSQLテーブルを作成する方法

{Name: Startup}
local integer l_result; 
l_result = Trigger_RegisterProcedure(script Add_Successful_Login_Record, TRIGGER_AFTER_ORIGINAL, script gp_create_tables);
if l_result <> SY_NOERR then
warning "The Add_Successful_Login_Record trigger is not registered."; 
end if;

{Name: gp_create_tables} 
local boolean result,l_result,OUT_Access; 
{if logged in as sa, let them create the tables} 
if 'SQLSaUser' of globals then 
OUT_Access = true; 
else 
{This else statement will work only on 8.0. If logged in as a user other than sa, 
but they have table access permissions, let them create the tables} 
if syUserInRole('User ID' of globals, ROLE_SYSADMIN) or (syUserIsDBO ('User ID' of globals, 'Intercompany ID' of globals) 
  and syUserIsDBO ('User ID' of globals, SQL_SYSTEM_DBNAME)) then 
  OUT_Access = true; 
end if; 
end if; 

if 'SQL Server' of globals > 0 and OUT_Access then 
{enable table creation mode} 
result = Table_SetCreateMode(true); 
{Do not display any table errors to the user.} 
result = Table_DisableErrorChecks(true); 
{accessing the table creates it, list all your tables here, make sure to close the tables when done} 
get first table GPSetup; {Purchasing series table} 
close table GPSetup; 
get first table GPSetup2; {System series table} 
close table GPSetup2; {now set permissions, call once for the table and once for the stored procs} 
{GPSetup is a purchasing series table so that will be in the company dbo} 
l_result = GrantAccess(physicalname(table GPSetup),false,"DYNGRP",'Intercompany ID' of globals) 
of form 'SQL Maintenance'; 
l_result = GrantAccess(physicalname(table GPSetup),true,"DYNGRP",'Intercompany ID' of globals) 
of form 'SQL Maintenance'; 
{GPSetup2 is a system series table so that will be in the DYNAMICS database} 
l_result = GrantAccess(physicalname(table GPSetup2),false,"DYNGRP","DYNAMICS") of form 'SQL Maintenance'; 
l_result = GrantAccess(physicalname(table GPSetup2),true,"DYNGRP","DYNAMICS") of form 'SQL Maintenance'; 
{Turn off automatic table creation.} 
result = Table_SetCreateMode(false); 
{Turn table error reporting back on.} 
result = Table_DisableErrorChecks(false); 
end if;