MorphX IT by Steen Andreasen

MORPHX IT by Steen Andreasen helps me a lot. I would like to have it at hand.

Just to remind the link to this very useful book in English.

There are the Russian and Danish versions for free downloading in PDF format.

Phone Number Formatting Mask

It is pity but AX does not have the mask functionality on StringEdit fields. (versions 3.x- 4.x at least)

I changed the standard functionality for Phone field of Customers form so that the input phone number will be formatted as (xxx) xxx-xxxx[x]

For example, if one input 1234567890 it will be presented and saved as (123) 456-7890

===>

For 12fs3.45*6.78--90 it will be presented and saved as (123) 456-7890 with no non-numericals.

12345678901234567 will be as (123) 456-7890123456 it does not truncate the tail.

If finally it does not look like (xxx) xxx-xxxx the system alerts the user about that however the input value will be saved.



The following methods were added/changed:

ClassDeclaration of Customers form

public class FormRun extends ObjectRun
{
    ...
  
   boolean sisValidateCalled;
}

StringEdit Phone field methods:

public void enter()

{
   super();
   sisValidateCalled  = false;
}

public boolean validate()
{
   #define.CorrectPhoneLettersNumber(14)
   boolean ret;
   int length;
   Phone newPhone;
   ;
   ret = super();

   // creates new phone number in the format (xxx) xxx-xxxx[x]
   newPhone = SISTools::formatPhoneNumber(this.text());
   length = strlen(newPhone);

   if (length != #CorrectPhoneLettersNumber)
       checkFailed(strfmt("Phone numbers should be like: (xxx) xxx-xxxx"));

   CustTable.Phone = newPhone;
   CustTable_ds.write();
   sisValidateCalled  = true;
   return ret;
}

public boolean leave()
{
boolean ret;

   ret = super();

   if (!sisValidateCalled)
       this.validate();

   return ret;
}

SISTools class (some collection of utilities)

// creates new phone number in the format (xxx) xxx-xxxx[x]

static public Phone formatPhoneNumber(Phone _phone = "")
{
   Phone newPhone = "";
   str char;
   int length = strlen(_phone);
   int i;
   container numbers = ['0','1','2','3','4','5','6','7','8','9'];
   ;
   // remove all non numbers from field text
   for (i=1; i<=length; i++)
   {
       char = substr(_phone,i,1);
       if (confind(numbers,char))
       {
           newPhone = newPhone + char;
       }
   }
   length = strlen(newPhone);

   // create new phone number in the format (xxx) xxx-xxxx from 1234567890
   newPhone = "(" + substr(newPhone,1,3) + ") " + substr(newPhone,4,3) + "-" + substr(newPhone,7, length-6);

   return newPhone;
}

Inspired by Sonny Wibaba Adi

Flush Events related tables quickly

Quick job to delete all records from Events related tables. Inspired by this posting of Nitesh Ranjan.

static void FlushEventInbox(Args _args)
{
  /*
    To implement Alert functionality, Dynamics AX uses following tables:
    EventParameters
    EventCompanyRule
    EventCUD

    EventInbox
      |
      |- EventInboxData
      |- EventRule
         |
         |-EventRuleData
         |-EventRuleField
         |-EventRuleIgnore
         |-EventRuleIgnoreAggregation
         |-EventRuleRel
            |
            |-EventRuleRelData
    */
     EventRuleRelData EventRuleRelData;
     EventRuleRel EventRuleRel;
     EventRuleIgnoreAggregation EventRuleIgnoreAggregation;
     EventRuleIgnore EventRuleIgnore;
     EventRuleField EventRuleField;
     EventRuleData EventRuleData;
     EventRule EventRule;
     EventInboxData EventInboxData;
     EventInbox EventInbox;
  ;
  if (Box::okCancel("Flush all Events related table?", DialogButton::Cancel, "Confirm deletion",
      "Delete all records from: delete_from EventRuleRelData, EventRuleRel,"
      +" EventRuleIgnoreAggregation, EventRuleIgnore, EventRuleField, EventRuleData,"
      +" EventRule, EventInboxData, EventInbox") == DialogButton::Ok)
      {
          delete_from EventRuleRelData;
          delete_from EventRuleRel;
          delete_from EventRuleIgnoreAggregation;
          delete_from EventRuleIgnore;
          delete_from EventRuleField;
          delete_from EventRuleData;
          delete_from EventRule;
          delete_from EventInboxData;
          EventInbox.skipDeleteMethod(true);
          EventInbox.skipDeleteActions(true);
          delete_from EventInbox;
       }

}

How to add all descendant classes to a new project

I bumped into the problem of a class compilation with no licence for X++ source code.

Forward compile option is not enough to make my changes working. Thus I need to export-import all descendant classes as well as the class I changed - FormLetter in my case.

I therefore have to add all these classes to my project. Natural laziness saved me again from this manual work.

I hope this short job inspired by system class SysCompilerOutput and miklenew's job from AXForum will help you in similar situations.

// add to a new project all descendant classes for forward compilation
public static void SISCreateCompileForwardProject(Args _args)
{
   #AOT
   str                     project = 'SIS_CompileForward';
   SysCompilerOutput       sysCompilerOutput;
   Dictionary              dictionary      = new Dictionary();
   DictClass               dictClass       = new DictClass(className2Id("Formletter"));
   int                     numOfClasses    = dictionary.classCnt();
   ProjectNode             sharedProjects;
   ProjectNode             newProject;

   void addToProjectForwardClass(DictClass _dictClass, Dictionary _dictionary, int _numOfClasses)
   {
   ClassNode           classNode;
   DictClass           dictClassLoop;
   DictClass           childClass;
   int                 i;
   ;
       if (_dictClass)
       {
           classNode = infolog.findNode(#ClassesPath + #AOTDelimiter + _dictClass.name());

           if (classNode)
           {
               newProject.addUtilNode(UtilElementType::Class, classNode.name());

               for (i=1; i <= _numOfClasses; i++)
               {
                   dictClassLoop = _dictionary.classObject(_dictionary.classCnt2Id(i));

                   if (dictClassLoop.extend() == _dictClass.id())
                   {
                       childClass = new DictClass(dictClassLoop.id());
                       addToProjectForwardClass(childClass, _dictionary, _numOfClasses);
                   }
               }
           }
       }
   }
   ;

   sharedProjects = infolog.projectRootNode().AOTfindChild('Shared');
   sharedProjects.AOTAdd(project);
   newProject =  sharedProjects.AOTfindChild(project);
   newProject.loadForInspection();
   newProject = newProject.getRunNode();
   addToProjectForwardClass(dictClass, dictionary, numOfClasses);
   newProject.AOTsave();


}

Microsoft Brain

Yesterday, I was at a seminar about Microsoft Sharepoint Portal Services organized by Montreal community of .Net developers.

The presentation was good and interesting as usual. At the end of it they raffled three books about Best Practice for MOSS and one licence of Visual Studio 2008. However, yet there was one other prize that I got - Microsoft brain.

I am shocked how small it is...



picture borrowed from somebody

Set 1920x1080x60 Resolution for LG LCD (VGA)

After installation of Ubuntu 9.04 I got a problem with my LCD as a second monitor to my Toshiba laptop. The resolution should have been 1920x1080 as a maximum but was 1280x768 indeed.

With a little help of my friend and this article I managed to add this absent line into xorg.conf file.

I am not sure about all these numbers in the following script for Terminal but it works as a charm.

sudo cvt 1920 1080 60 # 1920x1080 59.88 Hz (CVT 2.30MA) hsync: 74.56 kHz; pclk: 193.25 MHz Modeline "1920x1080" 193.25 1920 2056 2256 2592 1080 1203 1209 1245 -hsync +vsync

sudo xrandr --newmode "1920x1080" 193.25 1920 2056 2256 2592 1080 1203 1209 1245 -hsync +vsync

sudo xrandr --addmode VGA "1920x1080"

Now, you can easily set it in Display Setting utility.

Code Camp Montreal 2009: Les meilleures pratiques de développement logiciel

Have you already registred? I have

http://codecampmontreal2009.eventbrite.com/

Informations
Date : Samedi 30 mai 2009
Heure : 8h30 à 17h00
Endroit : Marriott Château Champlain au centre ville (Carte), salles Viger A-B-C.
Stationnement: Payant. Le 1000 de la Gauchetière qui est juste à côté de l'hôtel offre un tarif réduit le week-end.
Métro: Bonaventure (ligne orange)
Coût : gratuit
Repas: non inclus
Thème : Les meilleures pratiques de développement logiciel.
Organisé par la Communauté .NET Montréal