Background color in Navision?

Comments

• Timo_Lässer Member Posts: 481

  2007-05-31

  We use a very small Form which we will run from Codeunit 1.
  This Form appears always in the upper left corner and shows the Database-Name.
  In OnFormat, we change the color of the textbox, so everybody can see, if he/she is on the "Live db", "Test DB" or in "Dev DB".
  
  As you come from germany, you can have a look at this discussion: http://www.msdynamics.de/ftopic1367.html

  Timo Lässer
  Microsoft Dynamics NAV Developer since 1997
  MSDynamics.de - German Microsoft Dynamics Community - member of [clip]

  0
• Waldo Member Posts: 3,412

  2007-05-31

  I posted a solutions some time ago in this thread:
  http://www.mibuso.com/forum/viewtopic.php?t=14824

  
  Eric Wauters
  MVP - Microsoft Dynamics NAV
  My blog
  

  0
• tentacle Member Posts: 27

  2007-06-01

  This is a very good idea Waldo.
  
  So I need to get the database name in Navision. Somebody wrote in the download section should be some code for it but unfortunately I can not find it?
  
  Company name seems to be easy but what about database name?

  0
• geri79 Member Posts: 105

  2007-06-01

  I use this in CodeUnit and call it an form similar as discribed above:
  
  
  
  
  dbname() sret : Text[1000]

  ---

  name:=CONTEXTURL;
  i:=STRPOS(name,'database=');
  IF i > 0 THEN BEGIN
  name:=COPYSTR(name,i+9,999);
  i:=STRPOS(name,'&');
  dbname:=COPYSTR(name,1,i-1);
  END;
  
  sret:=dbname;
  
  PS: I found it once in the forum...

  geri

  0
• Arhontis Member Posts: 667

  2007-06-01

  Example of getting the db name, the server you are connected to, the userid and the computer name you are connecting with..

  Name	DataType	Subtype	Length
  vSession	Record	Session	
  vServer	Record	Server	
  ServerName	Text		150
  DatabaseName	Text		150
  OtherInfo	Text		150
  
  DatabaseName := '';
  OtherInfo :=  '';
  ServerName := '';
  vSession.SETRANGE("My Session", vSession."My Session"::"1");
  IF vSession.FIND('-') THEN BEGIN
    DatabaseName :=vSession."Database Name";
    OtherInfo := vSession."User ID"  +'-PC:'+vSession."Host Name";
  END;
  vServer.SETRANGE("My Server", vServer."My Server"::"1");
  IF vServer.FIND('-') THEN
    ServerName := vServer."Server Name";

  Regards,
  Arhontis
  
  https://forum.mibuso.com/search

  0
• tentacle Member Posts: 27

  2007-06-01

  thanks, works very fine!

  0
• Phenno Member Posts: 630

  2007-06-01

  tentacle wrote:

  thanks, works very fine!

  
  You have to be carefull with this solution. If you're on Native DB, record "server" (virtual table actually) doesn't exists at all so you'll not be able to, even, compile the form.
  
  Server table works only on SQL server versions...

  0
• Arhontis Member Posts: 667

  2007-06-01

  You are absolutely right Phenno...
  Thanks for reporting it... Forgot to mention it... :oops:

  Regards,
  Arhontis
  
  https://forum.mibuso.com/search

  0