How to Merge customers Vendors, GL Accounts

What Would happen in table18

OnDelete() 
MoveEntries.MoveCustEntries(Rec);

Do we need to put new Customer.No. into Customer No. field in Cust. Ledger Entry table?

This is such a cool idea and it might help me with s lot of small things at work! \:D/

Best,
CouberPu

well, what about customer ledger entries etc.???

Thanks ara3n

Thank you ara3n

Haven't tried it yet, but I'm going to be doing testing later. Consider this a preemptive thank you, I'll only come back if I have trouble with something

Hi Rashed!

I have tried your code and it worked so great. Thank you very much.

BTW, before finding your post I unsuccessfully tried to merge customers using standard NAV functionality: Customer Card > Customer > Combine Customers. Got too many difficulties...

Best Regards

This is an example of thinking outside the box, nice.

Thank You ara3n! Going to try it out right now!

Hi Ewan,

Try VendorBank.get(Vendor.Code,BankCode)

with best regards

Jens

For completeness I have attached a version for Vendors that
1) Retains the Merged To account details
2) Removes the Merged From Vendor Bank account record

OBJECT Report 50045 Combine Vendors
{
  OBJECT-PROPERTIES
  {
    Date=11/01/13;
    Time=13:49:44;
    Modified=Yes;
    Version List=ESW;
  }
  PROPERTIES
  {
    ProcessingOnly=Yes;
    OnPreReport=BEGIN
                  IF NOT CONFIRM(STRSUBSTNO(TecText,VendorNo1,VendorNo2)) THEN
                     ERROR('');

                  Vendor.GET(VendorNo2);
                  Vendor.DELETE;


                  CommentLine.SETRANGE("Table Name",CommentLine."Table Name"::Vendor);
                  CommentLine.SETRANGE("No.",VendorNo1);
                  IF CommentLine.FIND('-') THEN REPEAT
                     CommentLine2.SETRANGE("Table Name",CommentLine."Table Name"::Vendor);
                     CommentLine2.SETRANGE("No.",VendorNo2);
                     IF CommentLine2.FIND('+') THEN;
                     CommentLine3 := CommentLine;
                     CommentLine3."No." := VendorNo2;
                     CommentLine3."Line No." := CommentLine2."Line No." + 10000;
                     CommentLine3.INSERT;
                     CommentLine.DELETE;
                  UNTIL CommentLine.NEXT = 0;

                  CommentLine2.SETRANGE("Table Name",CommentLine."Table Name"::Vendor);
                  CommentLine2.SETRANGE("No.",VendorNo2);
                  IF CommentLine2.FIND('+') THEN;
                  CommentLine3.INIT;
                  CommentLine3.Code := 'MERGE';
                  CommentLine3."Table Name" := CommentLine3."Table Name"::Vendor;
                  CommentLine3."No." := VendorNo2;
                  CommentLine3.Date := TODAY;

                  CommentLine3.Comment := 'Vendor ' +VendorNo1+ ' was merged';
                  CommentLine3."Line No." := CommentLine2."Line No." + 10000;
                  CommentLine3.INSERT;

                  DefaultDim1.SETRANGE("Table ID",DATABASE::Vendor);
                  DefaultDim1.SETRANGE("No.",VendorNo1);
                  DefaultDim1.DELETEALL;

                  Vendor2.GET(VendorNo1);
                  Vendor3 :=Vendor2;
                  Vendor2.RENAME(VendorNo2);

                  VendorBank.SETRANGE("Vendor No.", Vendor."No.");
                  VendorBank.SETRANGE(Code, VendorNo1);

                  Vendor2.DELETE;

                  Vendor.INSERT;

                  Vendor3.INSERT;
                  Vendor3.DELETE(TRUE);

                  IF VendorBank.FINDFIRST THEN BEGIN
                    VendorBank.DELETE;
                  END;
                  MESSAGE(STRSUBSTNO(FinText,VendorNo1,VendorNo2));
                END;

  }
  DATAITEMS
  {
  }
  REQUESTFORM
  {
    PROPERTIES
    {
      Width=8910;
      Height=3960;
    }
    CONTROLS
    {
      { 1000000000;TextBox;3960 ;550  ;4620 ;440  ;InPage=-1;
                                                   SourceExpr=VendorNo1;
                                                   TableRelation=Vendor }
      { 1000000001;Label  ;550  ;550  ;2860 ;440  ;ParentControl=1000000000;
                                                   CaptionML=ENU=Delete Vendor }
      { 1000000002;TextBox;3960 ;1210 ;4620 ;440  ;InPage=-1;
                                                   SourceExpr=VendorNo2;
                                                   TableRelation=Vendor }
      { 1000000003;Label  ;550  ;1210 ;2970 ;440  ;ParentControl=1000000002;
                                                   CaptionML=ENU=Merge into Vendor }
    }
  }
  REQUESTPAGE
  {
    PROPERTIES
    {
    }
    CONTROLS
    {
    }
  }
  CODE
  {
    VAR
      VendorNo1@1000000000 : Code[20];
      VendorNo2@1000000001 : Code[20];
      Vendor@1000000002 : Record 23;
      TecText@1000000004 : TextConst 'ENU=Are you sure you want Merge Vendor %1 into Vendor %2';
      Vendor2@1000000007 : Record 23;
      Vendor3@1190000000 : Record 23;
      CommentLine@1000000003 : Record 97;
      CommentLine2@1000000005 : Record 97;
      CommentLine3@1000000006 : Record 97;
      DefaultDim1@1000000008 : Record 352;
      VendorBank@1190000001 : Record 288;
      FinText@1000000009 : TextConst 'ENU=Vendor %1 has been successfully Merged into Vendor %2';

    BEGIN
    END.
  }
  RDLDATA
  {
  }
}

Issue solved experts..;-)
It was my mistake actually the error was for Customer bank accounts..
I am just wondering what is the use of these bank accounts..... presently i deleted the customer bank account entry and it worked out.

I know this is a very old thread, but we have a situation where we've ended up with several duplicate customer cards that were created by mistake and that have ledger entries against. I've read there's a Combine Customer/Vendor feature, but I cannot seem to find it in my install (NAV 2015). The only MS related documentation I find seems to point to it being a Russian local feature, so perhaps the feature is not available on my Netherlands install?

Would this report work for NAV 2015 and does it bring all of the customer 1 history to customer 2? Does the customer 2 retain it's customer number?

If this proc report does work in NAV 2015, can someone export this as a fob so that I could import and use? (as an end user (IT, but no developer license) I cannot import txt files)

I can try to get our VAR to install it for us, but would rather just import a fob if one is available.

Thanks in advance.