Increment Entry No

Sugeevishere · 2011-09-02

Hi Guys,
Im extremely new to NAV. I need a help from You all.

I have used the Entry No as the Primary Key in my Temporary Table. I want to increment it by one when i post a record. I have set Auto increment Property. But its not properly working.
Can some one write a coding to increment the Entry no by 1 when i post record every Time.

Any Help will be appriciated.

Thank You.

kine · 2011-09-02

Autoincrement is not working on temporary tables... could you be more specific on how you are using the table?

Luc_VanDyck · 2011-09-02

This code works without setting the AutoIncrement-property:

recYourTable.LOCKTABLE;
IF recYourTable.FINDLAST THEN
  intNextEntryNo := intNextEntryNo + 1
ELSE
  intNextEntryNo := 1;

recYourTable.INIT;
recYourTable."Entry No." := intNextEntryNo;
...

Sugeevishere · 2011-09-02

Hi Guys,

Thanx for both's Reply.

@ Kine I meant by Temporary table is I didn't change the Table's Property as Temporary. This is a Temporary table. It means I do not store in my DB. I delete this table when i finish the job.

@ Luc van Dyck Its compiling perfectly. But The output is not corrrect. It Starts with Zero and It won't moves above that. Stays with Zero.
Can You Provide me a Solution on this?

kine · 2011-09-02

This is a Temporary table. It means I do not store in my DB. I delete this table when i finish the job.

Thus you used Temporary on the record variable to set it as temporary... ;-) if it is not stored in DB, it is temporary... and the autoincrement is not working, and the Luc's code too because it is on real table and it is empty...

Sugeevishere · 2011-09-02

YA. U R CORRECT.

I JUST WANT TO IMPORT A TEXTFILE INTO A TABLE THROUGH DATAPORT. WHILE I IMPORT THIS ERROR OCCURS. THAT MEANS THE ENTRY DO NOT GOES ABOVE
ZERO AND ONLY ONE RECORD IS GETTING PRINTED. WAT KIND OF SOLUTION FOR THIS?

kine · 2011-09-02

1) Do not SHOUT...
2) I hope that you are not importing ledger entries through dataport... rather fill the journal and post the journal to create the entries.
3) You need to give us more details about how the dataport looks like, the data etc.

Sog · 2011-09-02

If you start shouting, I'll just whisper your solution. Create a global variable of type intger, every time you initialise your new record for the new data add integer +=1 (is equal to integer := integer +1) set integer as the entry number, add your data and insert the record, you'll that it works.

Luc_VanDyck · 2011-09-02

Sugeevishere wrote:

@ Luc van Dyck Its compiling perfectly. But The output is not corrrect. It Starts with Zero and It won't moves above that. Stays with Zero.
Can You Provide me a Solution on this?

My code compiles and works perfectly... that is after changing it to this:

recYourTable.LOCKTABLE;
IF recYourTable.FINDLAST THEN
  intNextEntryNo := recYourTable."Entry No." + 1
ELSE
  intNextEntryNo := 1;

recYourTable.INIT;
recYourTable."Entry No." := intNextEntryNo;
...

If you don't show us your code, there is nothing we can do.

I could come over and hold your hands while you are typing the code, but then you'll have to take care of my travel costs.

Increment Entry No

Answers

Categories