>LOCAL lcCustomer_No, lnIndex >USE FlatCustomer >SELECT 0 >USE Customer ORDER Customer_No >lcCustomer_No = "" >lnIndex = 0 >SCAN > > DO CASE > CASE lcCustomer_No == Customer.Customer_No AND ; > BETWEEN(lnIndex,2,9) > REPLACE ("FlatCustomer.Item_No" + STR(lnIndex,1)) WITH ; > Customer.ItemNo > CASE lcCustomer_No == Customer.Customer_No AND ; > BETWEEN(lnIndex,10,15) > REPLACE ("FlatCustomer.Item_No" + STR(lnIndex,2)) WITH ; > Customer.ItemNo > CASE lcCustomer_No # Customer.Customer_No > lcCustomer_No = Customer.Customer_No > lnIndex = 1 > INSERT INTO FlatCustomer (Customer_No, Item_No1) ; > VALUES (lcCustomer_No, Customer.Item_No) > ENDCASE > lnIndex = lnIndex + 1 > >ENDSCAN>Regards,