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