Yet another…! As a regular Dynamics NAV blog reader i am sure you have seen this before, in various flavors, but here is a simple yet powerful splash screen. The main purpose of this splash screen, has been to easily identify development, test and live database configurations, and also show information about the current object version in the database.

Download the object from the download section, and see this quick tutorial on how to check for various parameters used in the splash screen, such as:

• Compare current database name with live database name, to identify live database
• Show custom version tag
• Show warning for modified objects

Depending on your database server, SQL or native there are different virtual tables we need to look at in order to determine the database name. Lets quickly explore the tables you can use for this purpose:

Table 2000000010 Database File (for Native database server), the available fields in this table are:

For the SQL server option, you will be looking at:

Table 2000000048 Database, the available fields are:

To get information about your current database (SQL) you could use this code:

Database.SETRANGE("My Database",TRUE);
Database.FINDFIRST;

Using the value Database.”Database Name” to compare with a stored value that holds the name of your live database, you can conditionally display/hide controls on the splash screen, like this example:
–

Also there is code for displaying the current custom version list, and a title bar to warn if there are modified objects in the database.

The code for the version tag is like this:

FindVersion() : Code[250]
CheckSum := 0;
Object.RESET;
Object.SETRANGE(Type,Object.Type::Table,Object.Type::MenuSuite);
Object.SETFILTER("Version List",'*' + VersionID + '*');

NextVersionNo := '';

IF Object.FIND('-') THEN
REPEAT
VersionPos := GetVersionPos(Object."Version List");
IF VersionPos <> 0 THEN BEGIN
Version := COPYSTR(Object."Version List",VersionPos + STRLEN(VersionID));
IF STRPOS(Version,',') <> 0 THEN
Version := COPYSTR(Version,1,STRPOS(Version,',') - 1);
EVALUATE(CS,DELCHR(Version,'=',DELCHR(Version,'=','0123456789')));
CheckSum := CheckSum + CS;
IF Version > NextVersionNo THEN
NextVersionNo := Version;
END;
UNTIL Object.NEXT = 0;
EXIT((NextVersionNo));

GetVersionPos(VersionList : Text[1024]) ReturnValue : Integer
i := -1;
REPEAT
i += 1;
ReturnValue := STRPOS(VersionList,VersionID + FORMAT(i));
UNTIL (ReturnValue > 0) OR (i = 9);
IF ReturnValue > 1 THEN BEGIN
i := -1;
REPEAT
i += 1;
ReturnValue := STRPOS(VersionList,',' + VersionID + FORMAT(i));
UNTIL (ReturnValue > 0) OR (i = 9);
IF ReturnValue > 1 THEN
ReturnValue += 1;
END;

and the code for the modified objects are as simple as:

ModifiedObjectsExist() : Boolean
Object.SETRANGE(Modified,TRUE);
EXIT(Object.FINDFIRST);

To make it look nice, you can choose a neutral background, that has the same color as the Dynamics NAV background. The fields to compare with are stored in the company information setup table. So when you backup/restore the database into a testserver/database, the forms will automatically change from live to test, as it compares the database name. Of course this can be extended in multiple ways.

On the forms OnOpen() this code sets the controls visibility:

Form - OnOpenForm()
GET;
VersionID := "Custom Version Tag";
DBFile.SETRANGE("My Database",TRUE);
DBFile.FINDFIRST;

CurrForm.TESTDB.VISIBLE(DBFile."Database Name" <> "Live Database Name");
CurrForm.LIVEDB.VISIBLE(DBFile."Database Name" = "Live Database Name");
CurrForm.ModifiedObjects.VISIBLE(ModifiedObjectsExist);
FindVersion2 := FindVersion;

CompInfo.GET;
CompInfo.CALCFIELDS(Picture);

As the functionality for startup forms have been taken out of the User Setup table, you would have to recreate this functionality, or create something similar in order to get the splashscreen displayed. This can all be done in codeunit 1 in CompanyOpen() function with a something as simple as this single line of code:

FORM.RUNMODAL(FORM::"DB Splash");

Enjoy! And not to forget kudos to these other sites for inspiration: Waldo’s blog and Gaspodes Brain Dump.

[dm]11[/dm]