ZUSAMMENFASSUNG In diesem Artikel wird erläutert, wie
Sie SQL für Microsoft Business Solutions – Great Plains Dexterity-basierte Programme erstellen.
WEITERE INFORMATIONEN Verwenden Sie die FolgendenSchritte, um SQL-Tabellen zu erstellen, die sich in einem Integrationsprogramm eines Drittanbieters befinden,
das in Dexterity geschrieben wurde. Diese Schritte decken auch ab, wie Sie SQL Berechtigungen für diese Tabellen erteilen.
Hinweis Diese Methode ersetzt die amAutoLizenz-Methode, die in Kapitel 41 des Leitfadens für Programmierer für Beweglichkeit, Volume 1, beschrieben ist.
1. Erstellen Sie eine globale Prozedur mit dem Namen Start, wenn diese Prozedur noch nicht in Ihrem
Drittanbieterprogramm vorhanden ist. Dieses Skript wird ausgeführt, wenn Sie Great Plains starten. In der Regel werden Trigger registriert.
2. Erstellen Sie
im Startskript einen Prozedurauslöser für Add_Successful_Login_Record Prozedur, indem Sie den folgenden Code verwenden.
{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. Der registrierte Trigger, der in Schritt 2 erstellt wurde, rufen die globale Prozedur auf gp_create_tables sich der Benutzer bei
Microsoft Dynamics GP anmeldet. Dieses Verfahren wird ausgeführt, wenn ein Unternehmen mit der erst geöffneten Great Plains-Ebene oder beim Umschalten des Benutzers oder Unternehmens geöffnet wird.
4. Erstellen Sie die globale Prozedur namens
gp_create_tables. Dieses Skript erstellt die Tabellen für das Drittanbieterprogramm in der richtigen SQL Server Datenbank. Außerdem wird die Tabelle erstellt, die gespeicherte Prozeduren (zDP-Prozeduren) generiert, und SQL Der Tabelle und den Prozeduren werden Berechtigungen erteilt. Verwenden Sie den folgenden Code.
{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. Die tabellen- und tabellengenerierten gespeicherten Prozeduren werden in einem SQL Server und SQL berechtigungen werden gewährt. Dieses Skript wird nur für die Benutzer vonSA oder DYNSA ausgeführt, und nachdem die Tabellen erstellt wurden, ist es in Ordnung, dieses Skript erneut auszuführen.
Dieser Artikel hat die Dokument-ID:33429 von TechKnow übersprungen.
