Transfer Data from One Table To Another

Savatage · 2006-11-27

I've done this many a time but just can't get my brain to work on this one.
I think I'm still suffering from that crushing NY Giants loss!!

I have a table called NewTable, It has 2 fields
1)Vendor Item No
2)UPC

I want to run a report that will check if the NewTable Vendor Item No
matches an items Vendor Item No and if it does then copy the NewTable.UPC to Item.UPC.

If it doesn't exist then skip.

I've tried some reports but it keeps bombing out.

If Item."Vendor Item No." = NewTable."Vendor Item No"
then
Item.UPC := NewTable.UPC
else
CurrReport.SKIP;
Item.MODIFY;

Codemasters please help.

Savatage · 2006-11-27

I know this is going to end in a DOH!

ara3n · 2006-11-27

something like this?

If item.find('-') then repeat
  newtable.setrange("Vendor Item No.",Item."Vendor Item No.");
  newtable.find('-') then begin
    Item.UPC := NewTable.UPC;
    Item.MODIFY; 
  end;

until item.next = 0;

ara3n · 2006-11-27

I guess if you are running for a report. You have item as a dataitem. In that case on aftergetrecord you would have the following code.

  newtable.setrange("Vendor Item No.",Item."Vendor Item No.");
  newtable.find('-') then begin
    Item.UPC := NewTable.UPC;
    Item.MODIFY;
  end else
    currreport.skip;

Savatage · 2006-11-27

ara3n wrote:

something like this?

  newtable.setrange("Vendor Item No.",Item."Vendor Item No.");
  newtable.find('-') then begin
    Item.UPC := NewTable.UPC;
    Item.MODIFY; 
  end;

This is what I needed - once again I'm in your debt

We're in the process of importing thousands more items to and every vendor has a different f-in format and sometimes they come in bit's n pieces.

Transfer Data from One Table To Another

Comments

Categories