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

All responses (3)

Answers (2)

Verified answer

Binesh 7,885 on at

Like (2)

Report

RE: Remove duplicate value from temp table

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."
Verified answer

Amol Salvi 18,696 on at

Like (1)

Report

RE: Remove duplicate value from temp table

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;
Suggested answer

Marcellus 2,735 on at

Like (1)

Report

RE: Remove duplicate value from temp table

Hi Medo,

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