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 ENDSCANRegards,