[RESOLVIDO] Campo CST

olá. não é a solução completa, mas acho que dá um norte para o que você está precisando.
fica faltando revisar e incluir a origem da mercadoria no começo.

uso este código em um relatório, então não está 100% depurado. dê uma revisada.

Código:

        /* natur-oper.cd-trib-icm
        1 - Tributado
        2 - Isento
        3 - Outros
        4 - Reduzido
        5 - Diferido */
        /* Tributado */
        if natur-oper.cd-trib-icm = 1 then do:
           
            if natur-oper.ind-it-icms then
                ttRegistros.f-i-cst-icms = 60. /* Tributado com Sub. Trib. antecipado */

            if (natur-oper.subs-trib) and (natur-oper.perc-red-icm > 0)then
                ttRegistros.f-i-cst-icms = 70. /* Tributado com Sub. Trib. */
            else do:
               
                if natur-oper.subs-trib then
                    ttRegistros.f-i-cst-icms = 10. /* Tributado com Sub. Trib. */
                else do:
                   
                    if natur-oper.perc-red-icm > 0 then
                        ttRegistros.f-i-cst-icms = 20. /* Tributado com redução da base de calculo */
                    else
                        ttRegistros.f-i-cst-icms = 00. /* trib. integralmente */

                end. /* não tem subst */
            end.

        end.

        /* Isenta */
        if natur-oper.cd-trib-icm = 2 then do:
            if natur-oper.per-sub-tri > 0 then
                ttRegistros.f-i-cst-icms = 30. /* Isenta com cobrança por sub. trib. */
            else
                ttRegistros.f-i-cst-icms = 40 + int(natur-oper.ind-tipo-vat = yes).
        end.

        /* Outras */
        if natur-oper.cd-trib-icm = 3 then
            ttRegistros.f-i-cst-icms = 90.
        /*
        if natur-oper.cd-trib-icm = 4 then
            ttRegistros.f-i-cst-icms = ??. /*  */
        */

        /* Diferida */
        if natur-oper.cd-trib-icm = 5 then
            ttRegistros.f-i-cst-icms = 51.

Bom dia,
Obrigado pessoal pelas informações.
Eu vou estudar e ver o que eu consigo.
Depois post como eu fiz.
Abraço.

Eberson, boa tarde.
Valeu pela dica! é justamente o que eu estou precisando hoje, você já postou um dica.
Abraço.

blz. que bom que ajudou.