Atualização - Eventos 2190

[emarcolongo]

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 2190 e precisamos modificar algumas linhas para validar corretamente.

Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 10/05/2021, abaixo tb estará disponível

      sSecao := 'ideEvento';
      ideEvento.ProcEmi     := eSStrToProcEmi(Ok, INIRec.ReadString(sSecao, 'procEmi', '1'));
      ideEvento.VerProc     := INIRec.ReadString(sSecao, 'verProc', EmptyStr);
      ideEvento.indRetif    := eSStrToIndRetificacao(ok, INIRec.ReadString(sSecao, 'indRetif', '1'));   //10/05/2021
      ideEvento.NrRecibo    := INIRec.ReadString(sSecao, 'nrRecibo', EmptyStr);                         //10/05/2021

 

 

pcesS2190.pas

[Juliana Tamizou]

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

[Kelly Diego Rakelly]

Em 10/05/2021 at 10:50, emarcolongo disse:

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 2190 e precisamos modificar algumas linhas para validar corretamente.

Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 10/05/2021, abaixo tb estará disponível

      sSecao := 'ideEvento';
      ideEvento.ProcEmi     := eSStrToProcEmi(Ok, INIRec.ReadString(sSecao, 'procEmi', '1'));
      ideEvento.VerProc     := INIRec.ReadString(sSecao, 'verProc', EmptyStr);
      ideEvento.indRetif    := eSStrToIndRetificacao(ok, INIRec.ReadString(sSecao, 'indRetif', '1'));   //10/05/2021
      ideEvento.NrRecibo    := INIRec.ReadString(sSecao, 'nrRecibo', EmptyStr);                         //10/05/2021

 

 

pcesS2190.pas 12 kB · 1 download

Bom dia esse evento foi atualizado tbm  na revisão 21852 com essas alterações?

[EMBarbosa]

Em 10/05/2021 at 10:50, emarcolongo disse:

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 2190 e precisamos modificar algumas linhas para validar corretamente.

Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 10/05/2021, abaixo tb estará disponível

      sSecao := 'ideEvento';
      ideEvento.ProcEmi     := eSStrToProcEmi(Ok, INIRec.ReadString(sSecao, 'procEmi', '1'));
      ideEvento.VerProc     := INIRec.ReadString(sSecao, 'verProc', EmptyStr);
      ideEvento.indRetif    := eSStrToIndRetificacao(ok, INIRec.ReadString(sSecao, 'indRetif', '1'));   //10/05/2021
      ideEvento.NrRecibo    := INIRec.ReadString(sSecao, 'nrRecibo', EmptyStr);                         //10/05/2021

pcesS2190.pas 12 kB · 1 download

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  21868.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

3 horas atrás, Kelly Diego Rakelly disse:

Bom dia esse evento foi atualizado tbm  na revisão 21852 com essas alterações?

Não... veja mensagem acima.

[Kelly Diego Rakelly]

1 hora atrás, EMBarbosa disse:

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  21868.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

Não... veja mensagem acima.

Teste realizado tudo certinho, muito obrigada.

[EMBarbosa]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.