Recuperar a imagem do PROTHEUS_REPOSIT. SQLServer ADVPL

Solução compartilhada por Mateus Viccari

SQL para SQLServer. Recuperar a imagem da tabela PROTHEUS_REPOSIT

select img_binario.MEMO from (

    select top 1 B1_COD as COD_PRODUTO, MODULO, BMPNAME from SB1010 as B1

    inner join PROTHEUS_REPOSIT as M on M.D_E_L_E_T_ = '' and M.BMPNAME = B1.B1_BITMAP

    where B1_COD = :cod_produto

    and MODULO in ('EST', 'COM')

    order by M.R_E_C_N_O_ desc

) as ultima_imagem

cross apply (

    select CONVERT(VARBINARY(MAX),

    (

        SELECT CONVERT(VARCHAR(MAX), cast(left(MEMO, datalength(MEMO)-1) as varbinary(max)),2) AS [text()]

        from PROTHEUS_REPOSIT as M

        where M.D_E_L_E_T_ = '' and M.BMPNAME = ultima_imagem.BMPNAME

        and M.MODULO = ultima_imagem.MODULO

        order by SEQ

        FOR XML Path('')

    ),2) as MEMO

) as img_binario