S-1210 S-1.1 Tag infoPgtoExt não deve ser informada para residentes no brasil

[EdmarFrazao]

Segue correção

A TAG infoPgtoExt deve ser gerada somente para residentes no Exterior

https://www.gov.br/esocial/pt-br/documentacao-tecnica/manuais/leiautes-esocial-v-1-1-beta/index.html#evtPgtos

informar o código do país de residência para fins fiscais, quando no exterior, conforme Tabela 06.
Somente informar este campo caso o país de residência para fins fiscais seja diferente de Brasil. Se não informado, implica que o país de residência fiscal é Brasil.

unit pcesS1210 linha 1150

  if VersaoDF >= veS01_01_00 then
    begin
      if objInfoPgto.Items[i].paisResidExt <>'' then
      Begin
        if (StrToInt(objInfoPgto.Items[i].paisResidExt) > 0) and (StrToInt(objInfoPgto.Items[i].paisResidExt) > 105) and
           ((StrToInt(Copy(Self.ideEvento.perApur,1,4))*100)+StrToInt(Copy(Self.ideEvento.perApur,6,2)) >= 202303) then
        begin
          Gerador.wCampo(tcStr, '', 'paisResidExt',  1,  3, 1, objInfoPgto.Items[i].paisResidExt);

          if (objInfoPgto.Items[i].InfoPgtoExtInst()) then
            GerarInfoPgtoExt(objInfoPgto.Items[i].InfoPgtoExt);
        end;
      End;
    end;

 

ps. o forum não esta deixando eu envia arquivos > 8k , não conseguir enviar nem a unit zipada 8k

Editado 26 Dezembro, 2022 por EdmarFrazao

[Diego Foliene]

1 hora atrás, EdmarFrazao disse:

Segue correção

A TAG infoPgtoExt deve ser gerada somente para residentes no Exterior

https://www.gov.br/esocial/pt-br/documentacao-tecnica/manuais/leiautes-esocial-v-1-1-beta/index.html#evtPgtos

informar o código do país de residência para fins fiscais, quando no exterior, conforme Tabela 06.
Somente informar este campo caso o país de residência para fins fiscais seja diferente de Brasil. Se não informado, implica que o país de residência fiscal é Brasil.

unit pcesS1210 linha 1150

  if VersaoDF >= veS01_01_00 then
    begin
      if objInfoPgto.Items[i].paisResidExt <>'' then
      Begin
        if (StrToInt(objInfoPgto.Items[i].paisResidExt) > 0) and (StrToInt(objInfoPgto.Items[i].paisResidExt) > 105) and
           ((StrToInt(Copy(Self.ideEvento.perApur,1,4))*100)+StrToInt(Copy(Self.ideEvento.perApur,6,2)) >= 202303) then
        begin
          Gerador.wCampo(tcStr, '', 'paisResidExt',  1,  3, 1, objInfoPgto.Items[i].paisResidExt);

          if (objInfoPgto.Items[i].InfoPgtoExtInst()) then
            GerarInfoPgtoExt(objInfoPgto.Items[i].InfoPgtoExt);
        end;
      End;
    end;

 

ps. o forum não esta deixando eu envia arquivos > 8k , não conseguir enviar nem a unit zipada 8k

Boa tarde!
Muito obrigado pela intenção em contribuir.
Por favor, tente apagar alguns anexos de tópicos antigos teste anexar a unit novamente.

[EdmarFrazao]

a cota e 10Mega excluir alguns

segue unit

pcesS1210.zip

[Diego Foliene]

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

[Diego Foliene]

Bom dia!
Primeiro de tudo, muito obrigado pela intenção em contribuir. Toda contribuição é mais do que bem vinda.
A informação no manual para a tag paisResidExt que consequentemente orquestra a geração das demais é:

Citar

Somente informar este campo caso o país de residência para fins fiscais seja diferente de Brasil. Se não informado, implica que o país de residência fiscal é Brasil.

Na sua contribuição, além das validações já existentes você adiciona mais um teste verificando se o valor da property paisResidExt é diferente de vazio.

if objInfoPgto.Items[i].paisResidExt <>'' then
Begin
  if (StrToInt(objInfoPgto.Items[i].paisResidExt) > 0) and (StrToInt(objInfoPgto.Items[i].paisResidExt) > 105) and
     ((StrToInt(Copy(Self.ideEvento.perApur,1,4))*100)+StrToInt(Copy(Self.ideEvento.perApur,6,2)) >= 202303) then
  begin
    Gerador.wCampo(tcStr, '', 'paisResidExt',  1,  3, 1, objInfoPgto.Items[i].paisResidExt);

    if (objInfoPgto.Items[i].InfoPgtoExtInst()) then
      GerarInfoPgtoExt(objInfoPgto.Items[i].InfoPgtoExt);
  end;
end;

Simplifiquei isso usando as validações que já existiam.
Substitui o primeiro StrToInt por StrToIntDef(paisResidExt, 0), dessa forma, mesmo que o valor seja vazio, a função vai converter para zero e a condição será falsa.

if (StrToIntDef(objInfoPgto.Items[i].paisResidExt, 0) > 0) and (StrToInt(objInfoPgto.Items[i].paisResidExt) > 105) and
   ((StrToInt(Copy(Self.ideEvento.perApur,1,4))*100)+StrToInt(Copy(Self.ideEvento.perApur,6,2)) >= 202303) then
begin
  Gerador.wCampo(tcStr, '', 'paisResidExt',  1,  3, 1, objInfoPgto.Items[i].paisResidExt);

  if (objInfoPgto.Items[i].InfoPgtoExtInst()) then
    GerarInfoPgtoExt(objInfoPgto.Items[i].InfoPgtoExt);
end;

Commit: Rev-28046
Por favor, atualize seus fontes, reinstale o ACBr e faça novos testes.