esocial; Erro S2200 e S2300 Exterior

[RenatoE]

Bom dia, estou com erro na hora que vai gerar o S2200 e S2300 quando vai ser funcionario no exterior, esta pedindo CEP, alguem pego o mesmo erro?

 

 

[Italo Giurizzato Junior]

Bom dia Renato,

Nem todos os eventos foram alterados para suportar a versão 2.04.01 e 2.04.02, com certeza é esse o problema.

[RenatoE]

 

@Italo Jurisato Junior eu arrumei aqui de uma olhada no fonte que eu fiz. e me fala se esta OK 

Italo eu coloquei no  pcesCommon.pas   --->>  FExtrangeiroSN : Boolean; --->> motivo quando ele chegava "GerarEndereco" estava sempre passando FALSE ai ficava BRASIL sempre

  TTrabalhador = class(TPersistent)
  private
    FCpfTrab: string;
    FNisTrab: string;
    FNmTrab: string;
    FSexo: string;
    FRacaCor: integer;
    FEstCiv: integer;
    FGrauInstr: string;
    FNmSoc: string;
    FIndPriEmpr: tpSimNao;

    FNascimento: TNascimento;
    FDocumentos: TDocumentos;
    FEndereco: TEndereco;
    FTrabEstrangeiro: TTrabEstrangeiro;
    FInfoDeficiencia: TInfoDeficiencia;
    FDependente: TDependenteCollection;
    FAposentadoria: TAposentadoria;
    FContato: TContatoTrabalhador;
    FExtrangeiroSN : Boolean;
  public
    constructor Create;
    destructor Destroy; override;

    property CpfTrab: string read FCpfTrab write FCpfTrab;
    property NisTrab: string read FNisTrab write FNisTrab;
    property NmTrab: string read FNmTrab write FNmTrab;
    property Sexo: string read FSexo write FSexo;
    property RacaCor: integer read FRacaCor write FRacaCor;
    property EstCiv: integer read FEstCiv write FEstCiv;
    property GrauInstr: string read FGrauInstr write FGrauInstr;
    property nmSoc: string read FNmSoc write FNmSoc;
    property IndPriEmpr: tpSimNao read FIndPriEmpr write FIndPriEmpr;
    property Nascimento: TNascimento read FNascimento write FNascimento;
    property Documentos: TDocumentos read FDocumentos write FDocumentos;
    property Endereco: TEndereco read FEndereco write FEndereco;
    property TrabEstrangeiro: TTrabEstrangeiro read FTrabEstrangeiro write FTrabEstrangeiro;
    property InfoDeficiencia: TInfoDeficiencia read FInfoDeficiencia write FInfoDeficiencia;
    property Dependente: TDependenteCollection read FDependente write FDependente;
    property Aposentadoria: TAposentadoria read FAposentadoria write FAposentadoria;
    property Contato: TContatoTrabalhador read FContato write FContato;
    property ExtrangeiroSN: Boolean read FExtrangeiroSN write FExtrangeiroSN;
  end;

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

  if not pExterior then
    GerarEnderecoBrasil(pEndereco.Brasil)
  else
    GerarEnderecoExterior(pEndereco.Exterior);

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

e dentro do evento S2200 e S2300 tem que colocar se ele é exterior ou não

S2300

EvtTSVInicio.Trabalhador.ExtrangeiroSN := True

S2200

EvtAdmissao.Trabalhador.ExtrangeiroSN := True;

 

Verifica e me da uma posição

pcesCommon.pas

pcesGerador.pas

 

[Italo Giurizzato Junior]

Bom dia Renato,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

[RenatoE]

Qualquer coisa se eu encontrar informo novamente, para melhorar sempre o ACBr