ACBrNFSEX - DF - Nota para cliente do Exterior

[imbua]

Ao imprimir o ACBrNFSeXDANFSeRL nao esta preenchendo o endereco para nfse para exterior,
procurei antes e vi que tinha algo similar ao meu problema, no entanto em brasilia nao tras a tag <UF>EX<UF>

como no exemplo abaixo:
<TomadorServico>
                        <NifTomador>000000000xxxxx</NifTomador>
                        <RazaoSocial>AyyyyyyyyH AND yyyyyyy</RazaoSocial>
                        <EnderecoExterior>
                            <CodigoPais>3751</CodigoPais>
                            <EnderecoCompletoExterior>yyyyyyyyyyyyyyyyyyyyyyyyyyINES CAMPUS</EnderecoCompletoExterior>
                        </EnderecoExterior>
                        <Contato>
                            <Telefone>6130yyyyyy</Telefone>
                        </Contato>
                    </TomadorServico>

entao eu mudei o fonte ACBrNFSeXDANFSeRL funcao rlbTomadorBeforePrint  para :
      begin
      if UF = 'EX' then
      begin
        rllTomaEndereco.Caption := Trim(Endereco) + ', Pais: ' +Trim(xPais) ;<============================
      end
      else
        rllTomaEndereco.Caption := Trim(Endereco) + ', ' +
          Trim(Numero) + ' - ' +
          Trim(Bairro) + ' - CEP: ' +
          FormatarCEP(CEP);
      end
      else
        rllTomaEndereco.Caption := Trim(fpDANFSe.Tomador.Endereco) + ' - CEP: ' +
          FormatarCEP(CEP);


e em outro lugar para preencher o endereco com as tags </EnderecoCompletoExterior>

 

procedure TNFSeR_ABRASFv2.LerEnderecoTomador(const ANode: TACBrXmlNode);
var
  AuxNode: TACBrXmlNode;
  xUF: string;
begin
  if not Assigned(ANode) or (ANode = nil) then Exit;

  AuxNode := ANode.Childrens.FindAnyNs('Endereco');

  if AuxNode <> nil then
  begin
    with NFSe.Tomador.Endereco do
    begin
      Endereco        := ObterConteudo(AuxNode.Childrens.FindAnyNs('Endereco'), tcStr);
      Numero          := ObterConteudo(AuxNode.Childrens.FindAnyNs('Numero'), tcStr);
      Complemento     := ObterConteudo(AuxNode.Childrens.FindAnyNs('Complemento'), tcStr);
      Bairro          := ObterConteudo(AuxNode.Childrens.FindAnyNs('Bairro'), tcStr);
      CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoMunicipio'), tcStr);
      UF              := ObterConteudo(AuxNode.Childrens.FindAnyNs('Uf'), tcStr);
      CEP             := ObterConteudo(AuxNode.Childrens.FindAnyNs('Cep'), tcStr);
      xMunicipio      := ObterNomeMunicipio(StrToIntDef(CodigoMunicipio, 0), xUF, '', False);

      if UF = '' then
        UF := xUF;
    end;
  end;
  AuxNode := ANode.Childrens.FindAnyNs('EnderecoExterior');<========================adicionei este node que nao tinha

  if AuxNode <> nil then
  begin
    with NFSe.Tomador.Endereco do
    begin
      Endereco        := ObterConteudo(AuxNode.Childrens.FindAnyNs('EnderecoCompletoExterior'), tcStr);
      CodigoPais      := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoPais'), tcStr);
      UF := 'EX';
    end;
  end;

end;
A tag <xPais> não vem no xml da nota control entao eu preencho antes mesmo na mão.
Segue os arquivos, no caso do DF, ficou esta lacuna para tag :enderecocompletoexterior:

 

ACBrNFSeXLerXml_ABRASFv2.pas ACBrNFSeXDANFSeRLRetrato.pas ACBrNFSeXDANFSeRLRetrato.dfm

[Italo Giurizzato Junior]

Bom dia,

Você poderia anexar também o XML da NFS-e que contem um tomador do exterior para que possamos analisar?

Desde já muito obrigado pela colaboração.

[imbua]

Outra mudança, por causa do NIF no leiaute e o xml de exportacao(nfse.txt)

ACBrNFSeXDANFSeRLRetrato.dfm ACBrNFSeXDANFSeRLRetrato.pas nfse.txt

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3559

[Italo Giurizzato Junior]

Boa tarde,

Já esta no SVN.

[imbua]

Atualizando o svn percebi o novo report do nfse ACBrNFSeXDANFSeRLISSNet
ficou ótimo, 

Na regiao do tomador precisei colocar as mesmas modificacoes que fiz antes no padrao, pois nao contemplava NIF, endereco+pais
Na regiao do tomador do prestador ,porque ficou muito apertado o endereco e mudei para memo como fiz no outro. Estou te enviando as modificacoes para tu dar uma olhada, por gentileza .
Já de agora, muito obrigado pela atençao. 
 

ACBrNFSeXDANFSeRLISSNet.pas ACBrNFSeXDANFSeRLISSNet.dfm

Editado 10 Fevereiro, 2023 por imbua

[Italo Giurizzato Junior]

Bom dia,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas para analise. TK-3596

[Italo Giurizzato Junior]

Boa tarde,

Já esta no SVN.