James,
How about a function call like:
FUNCTION MoveData
LPARAMETERS tuOldField, tuNewField, tuKey
LOCAL luOldData
luOldData = EVALUATE(tuOldField)
SEEK tuKey
REPLACE (tuNewField) WITH luOldData
Just select your table, set your index to the key field, locate the record with the data you want to copy, and call the function with 'Value1', 'Value2', 'ABCDB'.
Does that work?
>Jim --
>
>This is only an example of the type of problem I seem to be encountering in one application. The actual rules are more complex than this -- for instance, this won't be happening for all records, it's not always from site "C" to "B", etc. -- but I needn't get into that here.
>
>All I'm looking for is a code segment that will help with this very specific example, and I presume I'll be able to adapt it from there as needed.
>
>So, a solution which merely takes the value from site "C" and puts it into a different field in site "B" is all I'm looking for.
>
>>James,
>>
>>Do you also want to store value1 from site B to value 2 of Site A or are you just dealing with sites C and B? And what about value 1 of Site A - does that get stored to value 2 of Site D?
>>
>>Regards,
>>
>>>I have what I think should be a simple problem, but I don't see a solution. It's sort of like I want to
>>>
SET RELATION TO bla-bla IM MyTable INTO MyTable
>>>
>>>which of course makes no sense.
>>>
>>>It simplest terms, I have a cursor with four fields: Part, Site, Value1, and Value2. For each Part, I have four records, one for each Site. (The Sites are named "A", "B", "C", and "D".)
>>>
>>>What I'd like to do can be stated quite simply: For each Part, take Value1 for Site="C" and store it into Value2 for Site="B". Thus:
>>>
>>>
Part Site Value1 Value2
>>>
>>>ABC A 11 88
>>>ABC B 201 255
>>>ABC C 77 66
>>>ABC D 401 444
>>>
>>>Becomes
>>>
>>>
Part Site Value1 Value2
>>>
>>>ABC A 11 88
>>>ABC B 201 => 77 <=
>>>ABC C 77 66
>>>ABC D 401 444
>>>
Jim