Problem:

When attempting to process a check which exceeds the upper limit of a 32-bit integer the following message is displayed: “The value is not within the range. Acceptable values are within the range 0 – 2147483647.” 

Resolution:

To resolve this issue the following changes can be made.

1.  Create a new 64-bit Extended Data Type to be used for checks

a.  From the AOT navigate to \Data Dictionary\Extended Data Types

b.  Right-click and select New -> Int64

i. Name = BankChequeStartNumInt64

ii. Label = @SYS23068

iii. HelpText = @SYS23068

iv. FormHelp = BankChequeLookup

v. DisplayLength = 10

vi. ConfigurationKey = BankCheque

c. Save the Extended Data Type.

2. Update NumberSeq Class to handle the new 64-bit integer

a. \Classes\NumberSeq\numInsertFormat

From:

public static client server Num numInsertFormat(Integer                num,
                                                NumberSequenceFormat   format
                                               )
{
    ;
    if (format == '')
        return int2str(num);

    if (!strfind(format, #SymbolLetters,1,999))
        return NumberSeq::numInsertFormatInternal(int2str(num), format);

    return NumberSeq::numInsertFormatLetters(num, format);
}

To:

public static client server Num numInsertFormat(Int64                num,
                                                NumberSequenceFormat   format
                                               )
{
    ;
    if (format == '')
        return int642str(num);

    if (!strfind(format, #SymbolLetters,1,999))
        return NumberSeq::numInsertFormatInternal(int642str(num), format);

    return NumberSeq::numInsertFormatLetters(num, format);
}

3.  Update NumberSeq Class to handle new 64-bit integer.

a. \Classes\NumberSeq\numRemoveFormat

From:

public static client server Integer numRemoveFormat(Num                    num,
                                             NumberSequenceFormat   format
                                            )
{
    Integer         x;
    Integer         val         = 0;

    if (!format)
        return str2int(num);

...

To:

public static client server Integer numRemoveFormat(Num                    num,
                                             NumberSequenceFormat   format
                                            )
{
    Integer         x;
    Integer         val         = 0;

    if (!format)
        return str2int64(num);

...

4.  Update BankChequeCreate Class to handle the new 64-bit integer

a. \Classes\BankChequeCreate\dialog

From:

public Object dialog()
{
    DialogRunbase dialog = super();

    dialogFromNegInstNum = dialog.addFieldValue(typeid(BankChequeStartNum), fromNegInstNum, "@SYS4083");
    dialogFromNegInstNum.lookupButton(0);
    ...

To:

public Object dialog()
{
    DialogRunbase dialog = super();

    dialogFromNegInstNum = dialog.addFieldValue(typeid(BankChequeStartNumInt64), fromNegInstNum, "@SYS4083");
    dialogFromNegInstNum.lookupButton(0);
    ...

5.  Update BankNegInstCreate Class to handle the new 64-bit integer

a. \Classes\BankNegInstCreate\classDeclaration

From:

abstract public class BankNegInstCreate extends RunBase
{
    BankAccountTable        bankAccountTable;
    NumberSequenceFormat    format;

    CompanyBankAccountId    accountID;
    BankNegInstStartNum     fromNegInstNum;
    BankNegInstQty          numOfNegInst;

    DialogField             dialogAccountId;
    DialogField             dialogFromNegInstNum;
    DialogField             dialogNumOfNegInst;

    #DEFINE.CurrentVersion(1)
    ...

To:

abstract public class BankNegInstCreate extends RunBase
{
    BankAccountTable        bankAccountTable;
    NumberSequenceFormat    format;

    CompanyBankAccountId    accountID;
    BankChequeStartNumInt64     fromNegInstNum;
    BankNegInstQty          numOfNegInst;

    DialogField             dialogAccountId;
    DialogField             dialogFromNegInstNum;
    DialogField             dialogNumOfNegInst;

    #DEFINE.CurrentVersion(2)
    ...

b. \Classes\BankNegInstCreate\parmFromNegInstNum

From:

public BankNegInstStartNum parmFromNegInstNum(BankNegInstStartNum _fromNegInstNum = fromNegInstNum)
{

To:

public BankChequeStartNumInt64 parmFromNegInstNum(BankChequeStartNumInt64 _fromNegInstNum = fromNegInstNum)
{

 c. \Classes\BankNegInstCreate\run

From:

public void run()
{
    #OCCRetryCount
    BankNegInstStartNum toNegInstNum;
    BankNegInstNum      negInstNum;
    ;

To:

public void run()
{
    #OCCRetryCount
    BankChequeStartNumInt 64 toNegInstNum;
    BankNegInstNum      negInstNum;
    ;

6.  Update CustVendCheque class to handle the new 64-bit integer

a.  \Classes\CustVendCheque\classDeclaration

From:

class CustVendCheque
{
    CompanyBankAccountId    accountId;
    ChequeNumMethod         chequeNumMethod;
    BankChequeStartNum      nextChequeNum;
    BankChequeStartNum      firstChequeNum;
    BankChequeNum           chequeNum;

...

To:

class CustVendCheque
{
    CompanyBankAccountId    accountId;
    ChequeNumMethod         chequeNumMethod;
    BankChequeStartNumInt64      nextChequeNum;
    BankChequeStartNumInt64      firstChequeNum;
    BankChequeNum           chequeNum;