Eventos SST v.2.5

[arce]

Boa tarde

@Italo Jurisato Junior Fiz a implementação dos eventos de SST que estavam faltando.

(Alterado) S-1060 - Tabela de Ambientes de Trabalho; 
(Alterado) S-2210 - Comunicação de Acidente de Trabalho;
(Alterado) S-2220 - Monitoramento da Saúde do Trabalhador;
(Alterado) S-2240 - Condições Ambientais do Trabalho - Fatores de Risco;
(Novo) S-2245 – Treinamentos, Capacitações, Exercícios Simulados e Outras Anotações
(Novo) S-2221 – Exame Toxicológico do Motorista Profissional 
(Excluído) S-2241

Alguns ainda precisam ser adicionados os métodos LerArqIni.
Segue os arquivos para análise.

ACBrSST.rar

[Italo Giurizzato Junior]

Boa tarde Arce,

Muito obrigado pela colaboração, assim que possível vou analisar e se tudo estiver OK, vou enviar para o repositório.

[Italo Giurizzato Junior]

Bom dia Arce,

A versão 2.5 entra em vigor quando?

É preciso compatibilizar o programa exemplo com essas mudanças.

[arce]

3 minutos atrás, Italo Jurisato Junior disse:

Bom dia Arce,

A versão 2.5 entra em vigor quando?

É preciso compatibilizar o programa exemplo com essas mudanças.

A versão 2.5 já está funcionando em produção (eu mesmo já estou utilizando em produção nos clientes), entretanto a transmissão dos eventos de SST (que alterei) começa apenas em 18/03/2019 no ambiente de homologação.

Você quer que eu altere o programa exemplo?

[arce]

Vou ajustar e lhe envio

[arce]

@Italo Jurisato Junior Desculpe a demora, o fechamento da Reinf ontem tava tenso =/ 

Segue as alterações no programa exemplo, e tbm em algumas correções de tags dos eventos que já havia te passado anteriormente.

ACBrSST_alterado.rar

[Italo Giurizzato Junior]

Bom dia Arce,

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

[gtvosouza]

Boa tarde,

está faltando as informações referentes ao Empregador e o Vinculo no evento 2245 (pcesS2245).

Precisa adicionar as linhas em negrito abaixo para funcionar.. certo?

function TEvtTreiCap.GerarXML: boolean;
begin
  try
    Self.VersaoDF := TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF;

    Self.Id := GerarChaveEsocial(now, Self.ideEmpregador.NrInsc, Self.Sequencial);

    GerarCabecalho('evtTreiCap');
    Gerador.wGrupo('evtTreiCap Id="' + Self.Id + '"');

    GerarIdeEvento2(Self.IdeEvento);
    GerarIdeEmpregador(self.IdeEmpregador);
    GerarIdeVinculo(self.IdeVinculo);
    GerarTreiCap(Self.treiCap);

    Gerador.wGrupo('/evtTreiCap');

    GerarRodape;

    XML := Assinar(Gerador.ArquivoFormatoXML, 'evtTreiCap');

    Validar(schevtTreiCap);

  except on e:exception do
    raise Exception.Create('ID: ' + Self.Id + sLineBreak + ' ' + e.Message);
  end;

  Result := (Gerador.ArquivoFormatoXML <> '')
end;

[Italo Giurizzato Junior]

Bom dia Souza,

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

[arce]

Bom dia, @Italo Jurisato Junior

Segue pequenas correções dos eventos de SST

pcesS1060.pas

pcesS2221.pas

pcesS2240.pas

pcesS2245.pas

[Italo Giurizzato Junior]

Boa tarde Arce,

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

[arce]

@Italo Jurisato Junior Fiz uma pequena alteração no evento S-1060

 

pcesS1060.pas

[Italo Giurizzato Junior]

Bom dia Arce,

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

[Sandro Herbst]

Boa noite, 

@arce depois desse commit o fonte pcesS2240.pas ficou com uma parte do método LerArqIni comentado da linha 666 até a 779, você tem ele com as alterações?

Valew

[gtvosouza]

Bom dia Pessoal, no 2240 as tag's em negrito estão duplicadas... podem ajustar pra nós?

pcesS2240

procedure TEvtExpRisco.GerarRespReg(pRespReg: TRespRegCollection);
var
  i: integer;
begin
  for i := 0 to pRespReg.Count - 1 do
  begin
    Gerador.wGrupo('respReg');

    Gerador.wCampo(tcStr, '', 'cpfResp', 1, 11, 1, pRespReg.cpfResp);
    Gerador.wCampo(tcStr, '', 'nisResp', 1, 11, 1, pRespReg.nisResp);
    Gerador.wCampo(tcStr, '', 'nmResp',  1, 70, 1, pRespReg.nmResp);
    Gerador.wCampo(tcStr, '', 'ideOC',   1,  1, 1, eSIdeOCToStr(pRespReg.ideOC));
    Gerador.wCampo(tcStr, '', 'dscOC',   1, 20, 1, pRespReg.dscOC);
    Gerador.wCampo(tcStr, '', 'nrOC',    1, 14, 1, pRespReg.nrOc);
    Gerador.wCampo(tcStr, '', 'ufOC',    2,  2, 0, eSufToStr(pRespReg.ufOC));

    if pRespReg.ideOC = idOutros then
       Gerador.wCampo(tcStr, '', 'dscOC',   1, 20, 1, pRespReg.dscOC);

    Gerador.wCampo(tcStr, '', 'nrOC',    1, 14, 1, pRespReg.nrOc);
    Gerador.wCampo(tcStr, '', 'ufOC',    2,  2, 0, eSufToStr(pRespReg.ufOC));

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

  if pRespReg.Count > 9 then
    Gerador.wAlerta('', 'respReg', 'Lista de Responsáveis pelo registro', ERR_MSG_MAIOR_MAXIMO + '9');
end;
 

[Italo Giurizzato Junior]

Boa tarde Sandro,

Favor atualizar os fontes, reinstalar os componentes e faça novos testes.

Boa tarde Souza,

Favor atualizar os fontes e reinstale os componentes.

[gtvosouza]

Boa tarde,

Italo, fiz o que solicitou mas acredito que tenha faltado isso ainda... Precisa por a validação conforme imagem abaixo para o campo em negrito dscOC.

Caso contrario, da erro de validação do XML.

procedure TEvtExpRisco.GerarRespReg(pRespReg: TRespRegCollection);

var
  i: integer;
begin
  for i := 0 to pRespReg.Count - 1 do
  begin
    Gerador.wGrupo('respReg');

    Gerador.wCampo(tcStr, '', 'cpfResp', 1, 11, 1, pRespReg.cpfResp);
    Gerador.wCampo(tcStr, '', 'nisResp', 1, 11, 1, pRespReg.nisResp);
    Gerador.wCampo(tcStr, '', 'nmResp',  1, 70, 1, pRespReg.nmResp);
    Gerador.wCampo(tcStr, '', 'ideOC',   1,  1, 1, eSIdeOCToStr(pRespReg.ideOC));
    Gerador.wCampo(tcStr, '', 'dscOC',   1, 20, 1, pRespReg.dscOC);
    Gerador.wCampo(tcStr, '', 'nrOC',    1, 14, 1, pRespReg.nrOc);
    Gerador.wCampo(tcStr, '', 'ufOC',    2,  2, 0, eSufToStr(pRespReg.ufOC));

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

  if pRespReg.Count > 9 then
    Gerador.wAlerta('', 'respReg', 'Lista de Responsáveis pelo registro', ERR_MSG_MAIOR_MAXIMO + '9');
end;

[Italo Giurizzato Junior]

Boa tarde Souza,

Favor anexar a unit alterada para que possamos avaliar.

[Sandro Herbst]

Boa noite @Italo Jurisato Junior

Atualizei os fontes, mas mesmo assim a geração através do INI não deu certo, segue INI  e correções na Unit para avaliação.

 

pcesS2240.pas S2240.ini

[Italo Giurizzato Junior]

Bom dia Sandro,

Com essas alterações nos fontes do evento deu certo a leitura do arquivo INI?

[Sandro Herbst]

Boa noite Italo,

Deu certo sim.

[Italo Giurizzato Junior]

Boa tarde Sandro,

Muito obrigado pela colaboração, já enviei para o repositório.

[EMBarbosa]

Olá pessoal,

   esse tópico já ficou maior que o necessário. Estou fechando. Por favor, criem novos tópicos para quaisquer novos ajustes ainda necessários conforme as regras do fórum.

   Muito obrigado pela compreensão.