[__cadetill]

el campo COD_PRO es de tipo string (VACHAR, CHAR,...)???

Si no es así, primero tendrás que hacer un cast

Código SQL [-]
Select  *
From Fachis 
where  substring(cast(COD_PRO as varchar(10)) from 1 for 3) <> '801'