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