Erro no S-2200 e S-2300 Endereço trabalhador estrangeiro

[Luiz Neto]

Fiz uns ajustes do pcesGerador para corrigir erro na validação quando o trabalhador/sócio for estrangeiro mas residir no Brasil, não basta apenas saber se ele é estrageiro, é necessário verificar o país onde ele reside para gerar o endereço certo.

 

procedure TeSocialEvento.GerarEndereco(pEndereco: TEndereco;
  pExterior: boolean);
begin
  Gerador.wGrupo('endereco');

  If Not pExterior Or (pEndereco.Exterior.PaisResid = '105') Or (pEndereco.Exterior.PaisResid = '') Then begin // Mora no Brasil
     GerarEnderecoBrasil(pEndereco.Brasil);
  end
  else begin
     GerarEnderecoExterior(pEndereco.Exterior);
  end;

  Gerador.wGrupo('/endereco');
end;

 

pcesGerador.pas

[Juliana Tamizou]

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

TK-2033

[EMBarbosa]

Em 25/10/2021 at 15:48, Luiz Neto disse:

Fiz uns ajustes do pcesGerador para corrigir erro na validação quando o trabalhador/sócio for estrangeiro mas residir no Brasil, não basta apenas saber se ele é estrageiro, é necessário verificar o país onde ele reside para gerar o endereço certo.

 

procedure TeSocialEvento.GerarEndereco(pEndereco: TEndereco;
  pExterior: boolean);
begin
  Gerador.wGrupo('endereco');

  If Not pExterior Or (pEndereco.Exterior.PaisResid = '105') Or (pEndereco.Exterior.PaisResid = '') Then begin // Mora no Brasil
     GerarEnderecoBrasil(pEndereco.Brasil);
  end
  else begin
     GerarEnderecoExterior(pEndereco.Exterior);
  end;

  Gerador.wGrupo('/endereco');
end;

 

pcesGerador.pas 73 kB · 0 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  23465.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.