ΣΎΝΟΨΗ Αυτό το άρθρο περιγράφει πώς μπορείτε να δημιουργήσετε SQL για τα προγράμματα που βασίζονται στο
Microsoft Business Solutions - Great Plains Dexterity.
MORE INFORMATION
Use thefollowingsteps to create SQL tables that reside in an integrating third party program written in Dexterity. Αυτά τα βήματα καλύπτουν επίσης την επιλογή εκχώρησης SQL σε αυτούς τους πίνακες.
Σημείωση Αυτή η μέθοδος αντικαθιστά τη μέθοδο amAutoGrant που περιγράφεται στο Κεφάλαιο 41 του Οδηγού προγραμματιστών κινητικότητας, Όγκος 1.
1. Δημιουργήστε μια καθολική διαδικασία με
το όνομα "Εκκίνηση", εάν δεν υπάρχει ήδη στο πρόγραμμα τρίτων κατασκευαστών. Αυτή η δέσμη ενεργειών εκτελείται όταν ξεκινάτε το Great Plains και είναι συνήθως το σημείο όπου καταχωρούνται εναύσματα.
2. Στη δέσμη
ενεργειών εκκίνησης, δημιουργήστε ένα έναυσμα διαδικασίας στη Add_Successful_Login_Record διαδικασίας χρησιμοποιώντας τον παρακάτω κώδικα.
{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. Το καταχωρημένο έναυσμα που δημιουργήθηκε στο βήμα 2 θα καλέσει την καθολική διαδικασία gp_create_tables κάθε φορά που ο χρήστης
συνδέεται στο Microsoft Dynamics GP. Αυτή η διαδικασία εκτελείται όταν ανοίγει αρχικά μια εταιρεία Great Plains ή όταν γίνεται αλλαγή χρήστη ή εταιρείας.
4. Δημιουργήστε την καθολική διαδικασία που
ονομάζεται gp_create_tables. Αυτή η δέσμη ενεργειών θα δημιουργήσει τους πίνακες για το πρόγραμμα άλλου κατασκευαστή στη σωστή SQL Server δεδομένων. Θα δημιουργήσει επίσης τον πίνακα που δημιουργείται από storedprocedures (zDP procs) και θα εκχωρήσει SQL δικαιώματα στον πίνακα και τις διαδικασίες. Χρησιμοποιήστε τον παρακάτω κώδικα.
{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. Οι πίνακες και οι αποθηκευμένες διαδικασίες που δημιουργούνται από τον πίνακα θα δημιουργηθούν SQL Server και SQL θα εκχωρηθούν δικαιώματα. Αυτή η δέσμη ενεργειών θα εκτελεστεί μόνο για τους χρήστες του THESA ή του DYNSA και μετά τη δημιουργία των πινάκων δεν πειράζει να εκτελέσετε ξανά αυτήν τη δέσμη ενεργειών.
Αυτό το άρθρο ήταν Αναγνωριστικό εγγράφου TechKnowledge:33429
