Step-By-Step:

• First of all extend the existing Enum ‘NumberSeqModule’ with a new value ‘TEST’ and enter the name of the module in the Label-property
  
• create a new class called ‘NumberSeqReference_TEST‘ and that extends from ‘NumberSeqReference‘.
• Add a static method called ‘numberSeqModule’ and return the new value of the Enum.

  public static NumberSeqModule numberSeqModule()
  {
      return NumberSeqModule::TEST;
  }

• Override the Method loadModule and enter the necessary code for all the Number Sequences in your new module.

  protected void loadModule()
  {
      NumberSequenceReference numRef;
      ;
      /* TEST */
      numRef.DataTypeId               = typeId2ExtendedTypeId(typeid(TEST));
      numRef.ReferenceHelp            = literalstr("@SYS31561");
      numRef.WizardContinuous         = false;
      numRef.WizardManual             = NoYes::No;
      numRef.WizardAllowChangeDown    = NoYes::No;
      numRef.WizardAllowChangeUp      = NoYes::No;
      numRef.WizardHighest            = 999999;
      numRef.SortField                = 1;
   
      this.create(numRef);
  }

• In the class NumberSeqReference, you have to add some new lines so the system recognizes your new module. Complete the method construct & moduleList.
  
  
• Open the NumberSequence-form under BASIC – SETUP – NUMBER SEQUENCES – NUMBER SEQUENCES
  
• Open the Number Sequence-wizard
  
• Follow all the steps of the wizard and finish
  
   
  
• See how the new Number Sequence in the Number Sequence-form
  

From now on you can use your new Numbersequence and the module.

In Ax3.0 it is pritty simple. You know that the RecId was a int value and with the function ‘maxInt()’, you get the value.

In Ax4.0 and higher, the RecId is changed from a regular int to in64. There is no such function as ‘maxInt64()’ so you cant use this. In the ‘Global’, I found a method called ‘maxRecId()’.
So you just call this method and you will see that the maximum value of a RecId is 9223372036854775807 (I hope I didn’t mistype) or 2^63-1.

Step-by-step:

• You add a new field to your table that extends from the ExtendedDataType ‘LineNum‘. This field has the type Real.
  
• You create a new index with this field
  
• On the form you add your table as a DataSource and set the following properties:
  • Index : the index with the lineNum-field
  • CounterField : your LineNum-field
    

Now automaticly when you create a new record, the lineNum gets the value ’1′. When you create a record at the end of the table it wil get the value ’2′, ’3′, … In the beginning of the table, the value’s will be ‘-1′, ‘-2′, …

If you create a new record between ’3′ and ’4′, the LineNum-value will be ’3.5′.

When you want a example of this, you need to look at the ‘SalesTable’-form and the DataSource ‘SalesLine’.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

public Common findRecord(TableId _tableId, RecId _recId, Boolean _forUpdate = false)
{
    Common      common;
    DictTable   dictTable;
    ;
    dictTable = new DictTable(_tableId);
    common = dictTable.makeRecord();
 
    common.selectForUpdate(_forUpdate);
 
    select common
    where common.RecId == _recId;
 
    return common;
}

If you want, you can even update fields in this common record. You can Access/edit these fields by using their Name or FieldNum. The method below will update a specific field in a table.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

public void updateValue(TableId _tableId, RecId _recId, str _field, AnyType _value)
{
    Common      common;
    Int         fieldId;
    ;
    ttsbegin;
    common = findRecord(_tableId, _recId, true);
    fieldId = fieldname2id(_tableId,_field);
 
    if (fieldId && _value)
    {
        common.(fieldId) = _value;
        common.update();
    }
    ttscommit;
}

1
2
3
4

public LabelString filenameLookupTitle()
{
    return "Select Import File";
}

Normally this should solve your problem.

There are some more methods you can add to control the file lookup:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

public LabelString filenameLookupFilename()
{
    return "";
}
 
public FileNameFilter filenameLookupFilter()
{
    FileNameFilter filter;
    filter = ['All FIles','*.*'];
    return filter;
}
 
public LabelString filenameLookupInitialPath()
{
    return "";
}
 
public LabelString filePathLookupTitle()
{
    return "Select Document Path";
}

2. Discide in witch module this new Number Sequence Reference (classes NumberSeqReference_…) should be included and find the corresponding NumberSeqReference class. (ex. module sales –> NumberSeqReference_SalesOrder)

3. The loadModule() method shows a number of blocks of code, which creates records in the table NumberSequenceReference.

4.Copy a block and change the following fields:
* DataTypeID is the type Id of the new data type.
* referenceLabel is the description shown in the left column of the Number sequence tab on the parameters form.
* referenceHelp is the longer description of the reference shown in the top part of the Number sequence tab of the parameters form.
* sortfield defines the sequence that the references are displayed on the Number sequence tab of the parameters form.
* The wizard fields are default values when using the wizard to create a numbersequenceexample:

1
2
3
4
5
6
7
8
9

numRef.DataTypeId = typeId2ExtendedTypeId(typeid(NewType));
numRef.ReferenceLabel = literalstr("@...");
numRef.ReferenceHelp = literalstr("@...");
numRef.WizardManual = NoYes::No;
numRef.WizardAllowChangeDown = NoYes::No;
numRef.WizardAllowChangeUp = NoYes::No;
numRef.SortField = #;
 
this.create(numRef);

5. Create a static method on the parameter table that will be used to retrieve the reference. These methods usually start with “numref”.
example:

1
2
3
4

static client server NumberSequenceReference  numRefNewType()
{
return NumberSeqReference::findReference(typeId2ExtendedTypeId(typeid(NewType)));
}

In code this check could look like this:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

static void testAnyTypeEnumCasting(Args _args)
{
    DocumentStatus  docStatus;
    Anytype         any = DocumentStatus::Invoice;
    ;
    switch (DictEnum::value2id(any))
    {
        case enumnum(DocumentStatus) :
            docStatus = any;
            break;
        case enumnum(...) :
            ...
    }
}