KOPSAVILKUMS
Šajā rakstā ir aplūkots, kā valoda SQL tabulas Microsoft Business Solutions — great Plains Dexterity programmās.
PAPILDINFORMĀCIJA Izmantojiet papildu darbības, lai valoda SQL tabulas, kas atrodas veiklībā rakstītā trešo pušu
programmas integrēšanas programmā. Šajās darbībās ir arī atļaujas valoda SQL šīm tabulām.
Piezīme. Šī metode aizstāj amAutoCert metodi, kas ir aprakstīta veiklības programmētāju rokasgrāmatas 1. sējuma 41. nodaļā.
1. Izveidojiet globālo procedūru ar nosaukumu Startēšana, ja trešās puses programmā
vēl nepastāv. Šis skripts tiek izpildīts, kad startējat lielisku līdzenumu, un parasti trigeri ir reģistrēti.
2. Startēšanas
skriptā izveidojiet procedūras trigeri Add_Successful_Login_Record procedūras, izmantojot tālāk norādīto kodu.
{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. Reģistrētais trigeris, kas izveidots 2. darbībā, izsauks globālo procedūru
gp_create_tables kad lietotājs piesakās microsoft Dynamics GP. Šī procedūra tiek palaista, kad sākotnēji tiek atvērts uzņēmums Great Plains vai lietotājs vai uzņēmums ir pārslēgts.
4. Izveidojiet globālo procedūru ar nosaukumu
gp_create_tables. Šis skripts izveidos tabulas trešās puses programmai pareizajā datu SQL Server bāzē. Tādējādi tiks izveidoti arī tabulas ģenerētie saglabātieprocesi (zDP procedūras) un valoda SQL tabulai un procedūrām atbilstošas atļaujas. Izmantojiet tālāk norādīto kodu.
{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. Tabulas un tabulas ģenerētās iekļautās procedūras tiks izveidotas SQL Server un valoda SQL atļaujas tiks piešķirtas. Šis skripts tiks izpildīts tikai LIETOTĀJIEM, kuri izmantoSA vai DINSA, un pēc tabulu izveides ir labi no jauna izpildīt šo skriptu.
Šis raksts bija TechKnowledge dokumenta ID:33429
