Microsoft Dynamics NAV (Archived)

Remove duplicate value from temp table

(0) Share

Report

Posted on by MedInfoTech

1,392

Hello,

After calling this function i get a result like this :

No.	Name
1	AA
2	AA
3	AB
4	AC
5	AB

I want to remove duplicate value {AA,AB}

LOCAL GetRessourcePerProject(VAR pVendor : Record Vendor)

JobLedgerEntry.SETRANGE(JobLedgerEntry."Job No.",Job."No.");
JobLedgerEntry.SETFILTER(JobLedgerEntry."Document No.",'%1|%2','NDY*','ODK*');
i:=0;
IF JobLedgerEntry.FINDSET THEN
  REPEAT
    VendorLedgerEntry.SETRANGE(VendorLedgerEntry."Document No.",JobLedgerEntry."Document No.");
      IF VendorLedgerEntry.FINDFIRST THEN        
          Vendor.SETRANGE(Vendor."No.",VendorLedgerEntry."Vendor No.");
            IF Vendor.FINDFIRST THEN  BEGIN                         
                  pVendor.INIT;
                  pVendor."No." := FORMAT(i);
                  pVendor.Name := Vendor.Name;
                  pVendor.INSERT;
                  i+=1;
            END;
 UNTIL JobLedgerEntry.NEXT = 0;

best regards

*This post is locked for comments

I have the same question (0)

All responses (3)

Answers (2)

Suggested answer

Marcellus 2,735 on at

Like (1)

Report

Hi Medo,

You could check if the name already exist in the table before you insert.

Was this reply helpful? Yes No
Verified answer

Amol Salvi 18,698 on at

Like (1)

Report

LOCAL GetRessourcePerProject(VAR pVendor : Record Vendor)

JobLedgerEntry.SETRANGE(JobLedgerEntry."Job No.",Job."No.");

JobLedgerEntry.SETFILTER(JobLedgerEntry."Document No.",'%1|%2','NDY*','ODK*');

i:=0;

IF JobLedgerEntry.FINDSET THEN

REPEAT

VendorLedgerEntry.SETRANGE(VendorLedgerEntry."Document No.",JobLedgerEntry."Document No.");

IF VendorLedgerEntry.FINDFIRST THEN

Vendor.SETRANGE(Vendor."No.",VendorLedgerEntry."Vendor No.");

IF Vendor.FINDFIRST THEN BEGIN

pVendor.RESET;

pVendor.SETRANGE(pVendor.Name,Vendor.Name)

IF NOT PVendor.FindFirst THEN BEGIN

pVendor.INIT;

pVendor."No." := FORMAT(i);

pVendor.Name := Vendor.Name;

pVendor.INSERT;

i+=1;

END;

END;

UNTIL JobLedgerEntry.NEXT = 0;

Was this reply helpful? Yes No
Verified answer

Binesh 7,885 on at

Like (2)

Report

Hello Medo,

See the bellow updated code and update your old code.

Note: we are not aware about your table, but as per standard it's working.

Here I'm removing a record that have same "Document No." -> so that you will get only one record as per "Document No."

Was this reply helpful? Yes No