Protheus - Revisao de Customização Faturamento

Revisão do Ponto de Entrada PE01NFESEFAZ()

Esse ponto de entrada é acessado pedo arquivo PE01NFESEFAZ.prw e realiza customizações indiretas no arquivo da NFESefaz.prw

Será necessário incluir uma customização para exibir o valor do MVA dos produtos da Nota.
Tenho um pedado do fonte antigo utilizado para exibir estas informações, que estava sendo customizado na Danfe.


If SF2->F2_ICMSRET > 0
        _cMsg := "MVA: "
        DbSelectArea("SFT")
        DbSetOrder(1)
        DbSeek(xFilial("SFT")+"S"+SF2->F2_SERIE+SF2->F2_DOC+SF2->F2_CLIENTE+SF2->F2_LOJA,.f.)
        While !EOF() .and. SFT->FT_SERIE+SFT->FT_NFISCAL+SFT->FT_CLIEFOR+SFT->FT_LOJA ==;
            SF2->F2_SERIE+SF2->F2_DOC+SF2->F2_CLIENTE+SF2->F2_LOJA
            If SFT->FT_MARGEM > 0
                If !Trim(SFT->FT_POSIPI) $ _cMsg
                    _cMsg += Trim(SFT->FT_POSIPI) +" - "+ Transform(SFT->FT_MARGEM,"@E 99.99")+"%    "
                Endif
            Endif
            DbSelectArea("SFT")
            DbSkip()
        End
        aadd(aMensagem,Trim(_cMsg))
    Endif