Nota Técnica 2020/001 - MDF-e - Erro ao enviar Evento de Pagamento da Operação de Transporte

[Flávio Nascimento]

Boa tarde,

Implementando o evento de pagamento de operação de transporte, estou tendo o seguinte erro no retorno:

cStat=[9999] -  Falha mensagem de retorno WebService -> Falha na validação dos dados do Evento: Element ''{http://www.portalfiscal.inf.br/mdfe}vContrato'' is unexpected according to content model of parent element ''{http://www.portalfiscal.inf.br/mdfe}infPag''.
Expecting: {http://www.portalfiscal.inf.br/mdfe}Comp.

Isso me parece estar relacionado com os schemas mas foram atualizados.

Essa é a forma que estou usando o método:

    detEvento.descEvento := Evento;
    detEvento.infViagens.qtdViagens := cdsEvento.FieldByName('qt_viagens').AsInteger;
    detEvento.infViagens.nroViagem  := cdsEvento.FieldByName('viagem').AsInteger;
    detEvento.descEvento            := cdsEvento.FieldByName('evento').AsString;
    detEvento.infPag.New;
    detEvento.infPag.Items.xNome := cdsEvento.FieldByName('Nome').AsString
    detEvento.infPag.Items.CNPJCPF := cdsEvento.FieldByName('cnpj').AsString;
    detEvento.infPag.Items.vContrato := cdsEvento.FieldByName('vcontrato').AsFloat;
    detEvento.infPag.Items.indPag := StrToTIndPag(ok, cdsEvento.FieldByName('indpag').asString);
    detEvento.infPag.Items.vContrato := cdsEvento.FieldByName('vcontrato').AsFloat;
    detEvento.infPag.Items.infBanc.codBanco   := cdsEvento.FieldByName('codBanco').asString;
    detEvento.infPag.Items.infBanc.codAgencia := cdsEvento.FieldByName('codAgencia').asString;
    detEvento.infPag.Items.infBanc.CNPJIPEF   := cdsEvento.FieldByName('CNPJIPEF').asString;
    detEvento.infPag.Items.infPrazo.New;
    detEvento.infPag.Items.infPrazo[j].nParcela := cdsEvento.FieldByName('nParcela').AsInteger;
    detEvento.infPag.Items.infPrazo[j].vParcela := cdsEvento.FieldByName('vParcela').AsFloat;
    detEvento.infPag.Items.infPrazo[j].dVenc    := cdsEvento.FieldByName('dVenc').AsDateTime;

    Result := MDFeEnviarEvento(AXML_mdfe, AIdLote, ANSeqEvento, ADt_Evento, tePagamentoOperacao, detEvento,
                               AUF_empresa, ADirPadrao, AAmbiente, ACertificado, AContingencia, AVersaoMDFe, ConfigProtocolo);

 

Alguém teve esse mesmo problema?

xmdNotaTecnica.xml

[Italo Giurizzato Junior]

Boa tarde Flávio,

Favor atualizar todos os fontes de todas as pastas, reinstale a suíte ACBr através do programa ACBrInstall_Trunk2 com a opção de apagar arquivos antigos marcada.

Faça os testes usando o programa exemplo.

[Flávio Nascimento]

Boa tarde Ítalo,

A gente não usa o programa do ACBr, nós utilizamos nosso sistema chamando a DLL com os métodos. Os fontes foram atualizados hoje mas esse erro persiste.  Imaginei que pudesse ser algo relacionado a chamada do método ou a forma como preencho o evento.

[Juliana Tamizou]

Boa tarde.

Vocês utilizam o ACBrLib, é isso? Se sim anexe tb os logs da lib

Att.

[Flávio Nascimento]

Boa tarde Juliana,

Não, só utilizamos os fontes mesmo e geramos a nossa própria DLL, por isso não temos esse log.

Att,

Flávio

[Italo Giurizzato Junior]

Boa tarde Flávio,

Em qual linguagem vocês trabalham?

[Flávio Nascimento]

Delphi seattle.

[Italo Giurizzato Junior]

Se você trabalha com o Delphi porque não utiliza diretamente os componentes?

Os componente foram feitos para o Delphi/Lazarus, as DLLs para quem trabalha com outras linguagens.

 

[Flávio Nascimento]

Boa noite Italo,

A empresa já desenvolve dessa forma a um bom tempo pois ela faz algumas adaptações quando acha necessário. Eu só estou dando continuidade com essa nota técnica. Infelizmente não posso usar diretamente os componentes.

[Italo Giurizzato Junior]

Bom dia Flávio,

Pra que facilitar se pode complicar.

Essas adaptações são melhorias no código?

Se sim, porque não anexa a unit que foi alterada para que possamos analisar e quem sabe envia-la para o repositório, assim todos saem ganhando.

Observação: o XML que você anexou se refere ao MDF-e e não ao evento que ocorreu erro de validação.

Pela mensagem de erro me recordo que o componente possuía um bug, mas já deve ter sido corrigido.

 

[Flávio Nascimento]

Bom dia Ítalo,

Verificando aqui, na unit ACBrMDFe e as que são chamadas através dela estão como nos fontes do ACBr mesmo. Mas vou verificar a possibilidade de compartilhar nossas alterações.

Quanto ao prolema, consegui resolver, estava informando incorretamente a tpComp e vComp e passei a informar:

    compCollectionItem := detEvento.infPag.Items[0].Comp.New;
    compCollectionItem.tpComp        := StrToTComp(ok, 'valor');
    compCollectionItem.vComp         := valor;

Obrigado

[Italo Giurizzato Junior]

Obrigado por reportar.

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