Vlr Default Evento S-2230

[Alisson Souza Pereira]

O Campo tpAcidTransito só pode ser preenchido se o codMotAfastt for equivalente a [01,03]

Problema: Como o grupo no qual a tag pertence sempre será assinado, e por ele ser um type, o campo sempre será preenchido mesmo que seja um valor default que no caso é tpatAtropelamento

O correto seria: se não foi preenchido não deveria ser informado. 

@Rafael Dias 

[arce]

@Alisson Souza Pereira Seguindo o manual e posteriormente transmitindo o evento S-2230, fiz alguma mudanças para resolver este problema.

@Rafael Dias Por favor verifique se está de acordo.

eSocial_S2230.pas

Add tbm o conversor do tpAcidenteTransito no eSocial_conversao

 

function eStpTpAcidTransitoToStr(const t: tpTpAcidTransito ): string;
begin
  result := EnumeradoToStr2(t,TGenericosString1_3 );
end;

function eSStrTotpTpAcidTransito(var ok: boolean; const s: string): tpTpAcidTransito;
begin
  result := tpTpAcidTransito( StrToEnumerado2(ok , s, TGenericosString1_3 ) );
end;

 

Edited February 7, 2018 by arce

[Alisson Souza Pereira]

@arce Foi justamente isso que fiz, mas para não ficar fora daquilo que o ACBr trás, aguardo a correção do próprio ACBr para a minha cópia de trabalho não ficar muito diferente da Trunk pois lá na frente dificulta bastante o merge. 
vlw  

[Italo Giurizzato Junior]

Bom dia a todos,

arce, notei que você ainda esta usando os fontes antigos, incluse essa unit não tem mais esse nome.

Peço que faça uma cópia e atualize todos os fontes de todas as pastas e reinstale os componentes.

Fiz a correção na unit que gera o evento 2230 e já enviei para o repositório.

[arce]

8 minutos atrás, Italo Jurisato Junior disse:

Bom dia a todos,

arce, notei que você ainda esta usando os fontes antigos, incluse essa unit não tem mais esse nome.

Peço que faça uma cópia e atualize todos os fontes de todas as pastas e reinstale os componentes.

Fiz a correção na unit que gera o evento 2230 e já enviei para o repositório.

Como gerei a versão do meu sistema em produção para meus clientes transmitirem os eventos de tabela com os fontes anteriores; estou aguardando o fim do envio das tabelas para realizar o update. Mas o farei antes do inicio da segunda fase.

 

[Rafael Dias]

Enviei outra correção implementando a Tabela 18 do eSocial como enum assim a propriedade codMotAfatamento agora é enum.

[EdmarFrazao]

testando

Edited February 7, 2018 by EdmarFrazao

[Gustavo Ribeiro Croscato]

Olá.

Ao gerar criar o evento S-2230 notei alguns problemas no XML gerado.

S2230.EvtAfastTemp.infoAfastamento.iniAfastamento.infoAtestado.InfoAtestadoItem.Emitente.ufOC não é obrigatório e quando não preenchido gera a tag no XML com o valor "AC".

O mesmo problema ocorre com o campo infoMesmoMtv que quando não preenchido é gerado com o valor "S".

Penso que talvez uma solução plausível seja que para todos os tipos "enum" o primeiro item seja um valor inválido, o qual, no momento apropriado seria checado para gerar o não uma tag no arquivo XML.

Segue em anexo uma sugestão de implementação.

Grato à todos pela atenção.

pcesConversaoeSocial.pas.diff

pcnGerador.pas.diff

Edited March 9, 2018 by croscato

[Italo Giurizzato Junior]

Boa tarde Croscato,

O componente ainda precisa de muitos ajustes e esse é um deles.

Vamos estudar a melhor solução.

[Gustavo Ribeiro Croscato]

Ola Italo.

Percebi também um outro problema. Os nós "iniAfastamento" e "fimAfastamento" não são obrigatórios. E como o código está disposto hoje ambos estão sendo gerados.

Uma sugestão seria usar o código em anexo que já é utilizado em outras gerações de eventos do eSocial.

Abraço à todos!

pcesS2230.pas.patch

[Italo Giurizzato Junior]

Boa tarde,

Favor anexar a unit alterada.

Desde já muito obrigado pela colaboração.

[Gustavo Ribeiro Croscato]

Olá Ítalo.

Estou anexando a unit.

Qualquer outra coisa estou a disposição.

pcesS2230.pas

[Sandro Felipe Adad]

Alguem conseguiu resolver este problema dos tipos enumerados?

Estou verificando que com os fontes atualizados ainda gera o "tpAcidTransito = 1 - Acidente de Trânsito" quando não informado valor para ele (ou não informada a tag na geração).

->Como estão tratando na geração nestes casos de campos enumerados e opcionais?

 

[Italo Giurizzato Junior]

Bom dia Sandro,

No meu entendimento um campo cujo tipo é enumerado, deveríamos ter um valor por exemplo: atNenhum, que ao gerar a tag opcional passaria uma string vazia, desta forma a tag não seria gerada.

[Sandro Felipe Adad]

Agora, Italo Jurisato Junior disse:

Bom dia Sandro,

No meu entendimento um campo cujo tipo é enumerado, deveríamos ter um valor por exemplo: atNenhum, que ao gerar a tag opcional passaria uma string vazia, desta forma a tag não seria gerada.

Concordo plenamente e acredito que seja a melhor solução nestes casos.

[Joceandro Perin]

Estava olhando os fontes aqui, e existe uma validação pra gerar as tags tpAcidTransito e infoMesmoMtv que se torna obrigatório se {codMotAfast} = [01,03] conforme layout..

 

[Sandro Felipe Adad]

Na verdade só podem ser informadas se for 1 ou 3. Nunca obrigatórias.

Edited April 10, 2018 by Sandro Felipe Adad

[Joceandro Perin]

Na versão 2.4.01, se o codMotAfast fosse 1 ou 3 e não fosse informado esses dois campos, não subia pro eSocial.. Então se tornava obrigatório o preenchimento nessas condições..

[Luiz Neto]

Fiz a alteração acima e funcionou bem. Existem varios campos com valor tipo 0,1,2..9 que só devem devem gerados em certas situações, porem como sao propriedades do tipo inteiro que nao pode ficar 'Null' sempre estarão com valor 0 ao iniciar e aí não saberemos se foi preenchida ou está vazia. Alguma sugestão de como modificar pcesConversaoeSocial.pas para para não atribuir valor zero, quando forem inicializadas ou convertidas para string?

 

function eSIndSitPFToStr(const t: tpIndSitPF): string;
begin
  result := EnumeradoToStr2(t, TGenericosString0_2);
end;

 

[Felipe E. Resende Mesquita]

Em 05/09/2018 at 16:43, Luiz Neto disse:

Fiz a alteração acima e funcionou bem. Existem varios campos com valor tipo 0,1,2..9 que só devem devem gerados em certas situações, porem como sao propriedades do tipo inteiro que nao pode ficar 'Null' sempre estarão com valor 0 ao iniciar e aí não saberemos se foi preenchida ou está vazia. Alguma sugestão de como modificar pcesConversaoeSocial.pas para para não atribuir valor zero, quando forem inicializadas ou convertidas para string?

 

function eSIndSitPFToStr(const t: tpIndSitPF): string;
begin
  result := EnumeradoToStr2(t, TGenericosString0_2);
end;

 

Boa tarde, Luiz Neto.

Tópico antigo. Sugiro que crie um novo, relatando sua dúvida ou problema.