S-1200 Tag IdeEstabLot de trabalhador com vários vínculos e mesmo cnpj

[Curitiba Computer Ltda]

bom dia, na condição do trabalhador com vários vínculos no mesmo empregador, com cnpj único, a tag IdeEstabLot vai uma única vez e subsequentemente, informar somente as remunerações. Ao não informar tpInsc, nrInsc, codLotacao e qtdDiasAv, a tag é gerada sem conteúdo, gerando erro. A forma que encontrei foi testar se o nrInsc for vazio, não criar os dados relacionados a tag (desculpem, não tenho domínio sobre componentes). seque o conteúdo alterado.  

procedure TEvtRemun.GerarIdeEstabLot(objIdeEstabLot: TIdeEstabLotCollectionS1200; const nomeRemunPer: string = 'remunPerApur');
var
  i: integer;
begin
  Gerador.wGrupo('ideEstabLot');

  for i := 0 to objIdeEstabLot.Count - 1 do
  begin
    if (objIdeEstabLot.Items[i].nrInsc <> EmptyStr) then
    begin
      Gerador.wCampo(tcInt, '', 'tpInsc',     1,  1, 1, eSTpInscricaoToStr(objIdeEstabLot.Items[i].tpInsc));
      Gerador.wCampo(tcStr, '', 'nrInsc',     1, 15, 1, objIdeEstabLot.Items[i].nrInsc);
      Gerador.wCampo(tcStr, '', 'codLotacao', 1, 30, 1, objIdeEstabLot.Items[i].codLotacao);
      Gerador.wCampo(tcInt, '', 'qtdDiasAv',  1,  2, 0, objIdeEstabLot.Items[i].qtdDiasAv);

      GerarRemunPer(objIdeEstabLot.Items[i].remunPerApur, nomeRemunPer);
    end
    else
      GerarRemunPer(objIdeEstabLot.Items[i].remunPerApur, nomeRemunPer);
  end;
      Gerador.wGrupo('/ideEstabLot');

  if objIdeEstabLot.Count > 500 then
    Gerador.wAlerta('', 'ideEstabLot', 'Lista de Estabelecimentos/Locação', ERR_MSG_MAIOR_MAXIMO + '500');
end;
 

pcesS1200.pas

[Juliana Tamizou]

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

TK-3281

[Curitiba Computer Ltda]

Legal, vocês todos do acbr são excepcionais. 

[Juliomar Marchetti]

1 hora atrás, Curitiba Computer Ltda disse:

Legal, vocês todos do acbr são excepcionais. 

obrigado e caso queira ajudar ao projeto cogite a ideia de ser pro https://www.projetoacbr.com.br/pro

 

[Juliana Tamizou]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[EMBarbosa]

Em 12/11/2022 at 12:25, Curitiba Computer Ltda disse:

bom dia, na condição do trabalhador com vários vínculos no mesmo empregador, com cnpj único, a tag IdeEstabLot vai uma única vez e subsequentemente, informar somente as remunerações. Ao não informar tpInsc, nrInsc, codLotacao e qtdDiasAv, a tag é gerada sem conteúdo, gerando erro

Olá. Parece que ficou faltando um retorno melhor aqui.

O código atual já atende a versão S1.0 e talvez até a versão S-1.1... e permite o preenchimento de várias remunerações, usando o remunPerApur.

Já os campos mencionados (tpInsc, nrInsc, codLotacao e qtdDiasAv), de acordo com o manual precisam ser preenchidos. Veja abaixo:

O seu código não, contempla essa funcionalidade. Ele repetiria o várias tpInsc dentro de um mesmo ideEstabLot.

Caso esteja verficando outra documentação, por favor nos avise para que possamos verificar melhor.

Bom trabalho por aí.