From your code it is not clear if you have any filter set on wed_ink, which is the file that gives the error on select. There are other things that are not clear:
-why you only do a uppercase to wed_ink.color1 field?
-what does the SCATTER MEMVAR BLANK do?
-REPLACE &Strx. WITH mCC_code FOR... repeats the filter already set on the table (on the format field).
-I would change the code from DO WHILE !EOF(), to SCAN (which will avoid the select causing errors)
SCAN && on wed_ink
mWedInk = ALLT(wed_ink.ez_color)
mCC_Code = cc_ink && ? qualify cc_ink
SELECT new_basket
x = 1
FOR x = 1 to 30
Strx = 'color' + ALLT(STR(x))
REPLACE &Strx. WITH mCC_code FOR mWedInk $ ALLT(&Strx.)
ENDFOR
SKIP -1 && this will skip on new_basket, but why do you need it?
ENDSCAN
Doru