CREATE OR ALTER VIEW TBPRODUTO(
    CODIGO,
    DESCRICAO,
    CODIGOANTIGO,
    UNIDADEMEDIDA_SIGLA,
    FAMILIA_CODIGO,
    FAMILIA_ALTERNATIVA,
    GRADE_CODIGO,
    LOCALIZACAO_CODIGO,
    TIPOPRODUTO_CODIGO,
    NCM_CODIGO,
    EAN,
    MODELO_CODIGO,
    COR_CODIGO,
    LINHA_CODIGO,
    STATUS,
    USUARIO_CODIGO,
    DATA,
    HABILITA_COMPRA,
    HABILITA_VENDA
)
AS
select

    r.produto_id CODIGO,
    fn_elipses(s.descricao1,100) DESCRICAO,
    0 CODIGOANTIGO,
    coalesce((select first 1 n.sigla from TBUNIDADEMEDIDA n where n.sigla = s.unidade_uso),'UN') UNIDADEMEDIDA_SIGLA,
    iif(coalesce(fn_remover_letra(fn_remover(g.cod_grupo)),0) = '',0,coalesce(fn_remover_letra(fn_remover(g.cod_grupo)),0)) FAMILIA_CODIGO,
    iif(coalesce(fn_remover_letra(fn_remover(g.cod_grupo)),0) = '',0,coalesce(fn_remover_letra(fn_remover(g.cod_grupo)),0)) FAMILIA_ALTERNATIVA,
    h.cod_grade GRADE_CODIGO,
    0 LOCALIZACAO_CODIGO,
    k.codigo TIPOPRODUTO_CODIGO,
    s.cod_ncm NCM_CODIGO,
    '' EAN,
    0 MODELO_CODIGO,
    r.produto_cor_id COR_CODIGO,
    coalesce(j.id,1) LINHA_CODIGO,
    iif(s.inativo = 'T',0,1) STATUS,
    186 USUARIO_CODIGO,
    '01.01.2000' DATA,
    1 HABILITA_COMPRA,
    0 HABILITA_VENDA

from TBPRODUTO_COR r, produtos s
left join grupos g on g.grupo = s.grupo
left join grades h on h.grade = s.grade
left join colecoes j on j.colecao = s.colecao
left join tbtipoproduto k on k.classe = s.tipo_prod
left join TBGRADE_FIXA l on l.codigo = h.cod_grade
left join tbFICHA_TECNICA_CONSUMOS v on v.produto = s.produto
where v.produto is null
and r.produto_codigo = s.produto
and s.controla_cor = 'F'
;