Implementação para os eventos 112130 e 112140 e Leitura Json

[everson.turossi]

ACBrNFeWebServices.pas

pcnConversao.pas ACBrDFe.Conversao.pas pcnConversaoNFe.pas ACBrNFe.Conversao.pas ACBrNFe.EventoClass.pas ACBrNFe.EnvEvento.pas

ACBrNFeWebServices.pas

pcnConversao.pas ACBrDFe.Conversao.pas pcnConversaoNFe.pas ACBrNFe.Conversao.pas ACBrNFe.EventoClass.pas ACBrNFe.EnvEvento.pas

Estou anexando implementações para os eventos
112130 Perecimento, perda, roubo ou furto durante o transporte contratado pelo fornecedor
112140 Fornecimento não realizado com pagamento antecipado

Essas implementações contém o que já foi implementados nos tópicos abaixo e também leitura de alguns eventos em Json.
Os 4 eventos implementados foram gerados e transmitidos com sucesso para o Sefaz.
Para as implementações de leitura dos dados através de Json em eventos já implementados, também foram homologados no Sefaz (implementação seguindo ao padrão do XSD).

https://www.projetoacbr.com.br/forum/topic/87185-implementação-do-evento-112150-atualização-da-data-de-previsão-de-entrega/
https://www.projetoacbr.com.br/forum/topic/87048-cancelamento-de-evento-110001-divergência-entre-nt-e-schema-na-descrição-do-evento/

Segue lista de alterações por unit aplicadas nos 3 tópicos aberto

ACBrNFe.EnvEvento.pas e ACBrNFe.WebServices.pas
Implementado geração de XML para os tipos:
teAtualizacaoDataPrevisaoEntrega
tePerecPerdaRouboFurtoTranspContratFornec
teFornecNaoRealizPagAntec
teAceiteDebitoApuracaoNotaCredito

ACBrNFe.EnvEvento.pas
Implementado leitura para Json para os tipos:
teCancGenerico
tePagIntegLibCredPresAdq
teDestItemConsPessoal
teAceiteDebitoApuracaoNotaCredito
teAtualizacaoDataPrevisaoEntrega
tePerecPerdaRouboFurtoTranspContratFornec
teFornecNaoRealizPagAntec
teSolicApropCredPres
tePerecPerdaRouboFurtoTranspContratAqu
teImobilizacaoItem
teSolicApropCredBensServicos

ACBrDFe.Conversao.pas
TACBrTipoEvento adicionado teAtualizacaoDataPrevisaoEntrega
TACBrTipoEventoArrayStrings adicionado 112150
TACBrTipoEventoDescricaoArrayStrings AtualizacaoDataPrevisaoEntrega
TryStrTocCredPres ajustado para adicionar zero a esquerda se tiver apenas 1 digito (adicionado uses ACBrUtil.Strings)

ACBrNFe.Conversao.pas
TSchemaNFe adicionado schAtualizacaoDataPrevisaoEntrega
TSchemaNFeArrayStrings adicionado AtualizacaoDataPrevisaoEntrega
TEventoArrayStrings adicionado e212120
TIndAceitacao e TIndAceitacaoArrayStrings novo Enum e seus valores utilizados nos eventos  211128, 212110 e 212120
IndAceitacaoToStr e StrToIndAceitacao conversão para TIndAceitacao
StrToTpEventoNFe adicionado 110001, 212120, teCancGenerico, teAtualizacaoDataPrevisaoEntrega
SchemaEventoToStr adicionado e110001, e112150, schCancGenerico, schAtualizacaoDataPrevisaoEntrega

pcnConversao.pas
adicionado teAtualizacaoDataPrevisaoEntrega nas constantes
TpcnTpEventoString adicionado 112150
TpEventoToDescStr adicionado AtualizacaoDataPrevisaoEntrega e teAtualizacaoDataPrevisaoEntrega

pcnConversaoNFe.pas
TSchemaNFe adicionado schAtualizacaoDataPrevisaoEntrega
TSchemaNFeArrayStrings adicionado AtualizacaoDataPrevisaoEntrega
TEventoArrayStrings adicionado e212110 e212120
adicionado TIndAceitacao e TIndAceitacaoArrayStrings
adicionado IndAceitacaoToStr e StrToIndAceitacao
StrToTpEventoNFe 110001, 112150, teCancGenerico, teAtualizacaoDataPrevisaoEntrega, 
SchemaEventoToStr e110001, e112150, schCancGenerico, schAtualizacaoDataPrevisaoEntrega

ACBr.EventoClass.pas
Adicionado classe TgItemNaoFornecidoCollectionItem
adicionado classe TgItemNaoFornecidoCollection
TgControleEstoquePerecimento adicionado FvIBS e FvCBS
TDetEvento adicionado gItemNaoFornecido indAceitacao dPrevEntrega
getDescEvento/DescricaoTipoEvento ajuste descrição teCancGenerico e adicionado descrição para teAtualizacaoDataPrevisaoEntrega

 

Usei o recurso de arrastar e soltar, acabou invertendo a ordem entre o post e os arquivos

Editado 11 Novembro, 2025 por everson.turossi

[Daniel Simoes]

Uau.. muito obrigado pela contribuição

@Alexandre de Paula, nos ajuda com a alocação de uma tarefa?

[Diego Foliene]

Bom dia!

Muito obrigado pelas contribuições!

A implementação do evento "112140 - Fornecimento não realizado com pagamento antecipado" foi enviada ao SVN na Rev-43077.

Fiz apenas uma leve mudança para manter o mesmo padrão já aplicado nos outros eventos.