SANTRAUKA
Šiame straipsnyje aptariama, kaip kurti SQL "Microsoft Business Solutions" – "Great Plains Dexterity" pagrįstas programas.
DAUGIAU INFORMACIJOS Naudokite šiuos veiksmus norėdami sukurti SQL, kurios yra integracinę trečiosios
šalies programą, parašyto "Dexterity". Šie veiksmai taip pat apima SQL šių lentelių teises.
Pastaba Šis metodas pakeičia "amAutoGrant" metodą, aprašytą "Dexterity" programuotojų vadovo 41 skyriuje, 1 tomas.
1. Sukurkite visuotinę
procedūrą, pavadintą Paleistis, jei jos dar nėra jūsų trečiosios šalies programoje. Šis scenarijus paleidžiamas paleidus didžias lygumas ir paprastai užregistruojamas paleidiklis.
2. Paleisties
scenarijuje sukurkite procedūros paleidiklį Add_Successful_Login_Record procedūrą naudodami šį kodą.
{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;
3. Registruotas paleidiklis, sukurtas 2 veiksmu,
paskambins visuotinei procedūrai gp_create_tables kai vartotojas prisiregistruos prie "Microsoft Dynamics GP". Ši procedūra vykdoma, kai "Great Plains" įmonė iš pradžių atidaroma arba kai vartotojas arba įmonė yra perjungta.
4. Sukurkite visuotinę procedūrą,
pavadintą gp_create_tables. Šis scenarijus sukurs lenteles trečiosios šalies programai tinkamoje duomenų "SQL Server" duomenų bazėje. Ji taip pat sukurs lentelę, sugeneruotą saugomasprocedures (zDP procs) ir suteiks SQL lentelės ir procedūrų teises. Naudokite šį kodą.
{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;
5. Lentelės ir lentelės sugeneruotos saugomos procedūros bus sukurtos "SQL Server" ir SQL bus suteiktos teisės. Šis scenarijus bus vykdomas tik "SA" arba "DYNSA" vartotojams, o sukūrus lenteles, būtų gerai dar kartą paleisti šį scenarijų.
Šis straipsnis buvo "TechKnowledge" dokumento ID:33429
