Carta de Correção Ator Interessado

[Diogo Loff]

Bom dia, na carta de correção quando a mesma é feita para Ator Interessado não esta apresentando as informações de forma completa. Isto já acontecia antes, porem nunca mandei o ajuste pois estava usando uma versão antiga, agora que atualizei ainda permanece a mesma situação.

 

Anexo dois reports em PDF o sem alteração e o com a alteração. Anexo também o fonte alterado ACBrNFeDANFEFRDM.pas. Neste fonte tem outras alterações que estão sendo tratadas em outro chamado relacionado a quebra de observações da NFe, então se ater somente ao bloco do Evento. 

procedure TACBrNFeFRClass.CarregaDadosEventos;

 

1 - Na metade desa rotina tem uma linha assim:

        if (InfEvento.tpEvento <> teCCe) then
        begin
          FieldByName('xJust').AsString := InfEvento.detEvento.xJust;
          if InfEvento.tpEvento = teInsucessoEntregaNFe then
            FieldByName('xJust').AsString := InfEvento.detEvento.xJustMotivo;
        end
        else
        begin

               .......

        end

 

Neste precisa colocar na condição do IF para que o mesmo caia no Else quando for Ator Interessado, aqui resolve para aparecer a condição de uso na impressão.

if (InfEvento.tpEvento <> teCCe) and (InfEvento.tpEvento <> teAtorInteressadoNFe) then

 

2 - Ao final do mesmo bloco adicionar para carregar o ator interessado, usado o mesmo campo xJust pois este campo na impressão já vem para este fim, conforme o label quando é impresso. Aqui fixei um, pelo que vi não ha previsão de mais de um, mas talvez já teria que pensar em mais de um interessado.

          if (InfEvento.tpEvento = teAtorInteressadoNFe) then
          begin
              documentoAtor := InfEvento.detEvento.autXML[0].CNPJCPF;

              FieldByName('xJust').AsString := 'CNPJ: ' + documentoAtor;
              if (documentoAtor > '') and (length(documentoAtor) < 14) then
                  FieldByName('xJust').AsString := 'CPF: ' + documentoAtor;

              if (InfEvento.detEvento.tpAutorizacao <> taNaoInformar) then
                  FieldByName('xJust').AsString := FieldByName('xJust').AsString + ' - Tipo Autorização: ' + AutorizacaoToStr(InfEvento.detEvento.tpAutorizacao);
          end;

 

ObrigadoACBrNFeDANFEFRDM.zip

 

 

EVENTOS SEM AJUSTE.pdf EVENTOS COM AJUSTE.pdf

[Diogo Loff]

Ola conseguiram dar uma avaliada neste item?

[Alexandre de Paula]

Boa tarde,

Criada a TK-6104 para avaliação.

Será adicionado ao nosso backlog e assim que tiver alguma atualização informamos aqui no tópico.

Obrigado pela contribuição.