select
    CODIGO,
    FAMILIA_CODIGO
from(
    select
        s.id CODIGO,
        fn_elipses(s.descricao1,50) DESCRICAO,
        (u.cod_tipo + 100) FAMILIA_CODIGO,
        h.cod_grade GRADE_CODIGO,
        0 MATRIZ_CODIGO,
        iif(s.controla_cor = 'T',1,0) EXIGE_COR,
        186 USUARIO_CODIGO,
        '01.01.2000' DATA,
        iif(s.inativo = 'T',0,1) STATUS,
        0 STATUSEXCLUSAO,
        coalesce(j.id,1) LINHA_CODIGO,
        '' FOTO,
        '01.01.2000' DATA_ALTERACAO,
        k.codigo TIPOPRODUTO_CODIGO,
        iif(l.t01 is null, 1,1) T01,
        iif(l.t02 is null, 0,1) T02,
        iif(l.t03 is null, 0,1) T03,
        iif(l.t04 is null, 0,1) T04,
        iif(l.t05 is null, 0,1) T05,
        iif(l.t06 is null, 0,1) T06,
        iif(l.t07 is null, 0,1) T07,
        iif(l.t08 is null, 0,1) T08,
        iif(l.t09 is null, 0,1) T09,
        iif(l.t10 is null, 0,1) T10,
        iif(l.t11 is null, 0,1) T11,
        iif(l.t12 is null, 0,1) T12,
        iif(l.t13 is null, 0,1) T13,
        iif(l.t14 is null, 0,1) T14,
        iif(l.t15 is null, 0,1) T15,
        iif(l.t16 is null, 0,1) T16,
        iif(l.t17 is null, 0,1) T17,
        iif(l.t18 is null, 0,1) T18,
        iif(l.t19 is null, 0,1) T19,
        iif(l.t20 is null, 0,1) T20,
        0 QTD_MINI,
        0 QTD_MULT,
        0 QTD_TIPO,
        '' IMAGEM_ETIQUETA,
        '' DESCRICAO_NF,
        '' FICHA_PDF,
        1 COMPRA_PRODUZ,
        coalesce((select first 1 n.sigla from TBUNIDADEMEDIDA n where n.sigla = s.unidade_uso),'UN') UNIDADEMEDIDA_SIGLA,
        s.id MODELO_PAI,
        0 SALESFORCE,
        0 DENSIDADE,
        0 ESPESSURA,
        0 TIPO_TAG,
        0 ACRESCIMO,
        0 PRIORIDADE,
        0 GERAR_REMESSA,
        0 HORAS_BLOQUEIO,
        0 HORAS_TOLERANCIA,
        '' CLASSIFICACAO,
        '01.01.2000' DATA_ATIVACAO,
        null DATA_INATIVACAO,
        s.descricao2 DESCRICAO_COMERCIAL,
        0 HABILITA_ECOMMERCE,
        0 CATEGORIA_ID,
        iif(coalesce(fn_remover_letra(fn_remover(g.cod_grupo)),0) = '',0,coalesce(fn_remover_letra(fn_remover(g.cod_grupo)),0)) FAMILIA_ALTERNATIVA
    from 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 tipos u on u.tipo = s.tipo and u.tipo > 0
    where s.controla_cor = 'T'
) where FAMILIA_CODIGO > 0