Pesquisar na Comunidade
Showing results for tags 'código 215'.
Encontrado 1 registro
-
Evento de prestação de serviço em desacordo - Código 215 - Rejeição: Falha no schema XML
um tópico no fórum postou Leonardo Quinino ACBrCTe
Prezados, estou tentando fazer um ajuste para evento de prestação de serviço em desacordo. Gostaria da opinião dos colegas, de onde provavelmente está o erro. Delphi XE10 - Berlin Update 2 , Pacote ACBR atualizado por SVN. Atualizei os Schemas, que estão na pasta correta, e as outras operações do sistema como transmissão de CT-e estão normais. Porém o Evento de prestação de serviço em desacordo retorna o Código 215 - Rejeição: Falha no schema XML Segue o pequeno trecho do código que estou montando. ------ MensagemErro := EmptyStr; Configurar(moCTe); try ACBrCTe.EventoCTe.Evento.Clear; ACBrCTe.EventoCTe.Evento.Add; ACBrCTe.EventoCTe.Evento[0].infevento.chCTe := ChaveCTe; ACBrCTe.EventoCTe.Evento[0].infevento.CNPJ := emitente.cnpj_cpf; ACBrCTe.EventoCTe.Evento[0].infevento.dhEvento := now; ACBrCTe.EventoCTe.Evento[0].infevento.nSeqEvento := NumeroEvento; ACBrCTe.EventoCTe.Evento[0].infevento.tpEvento := tePrestDesacordo; ACBrCTe.EventoCTe.Evento.Items[0].infevento.detEvento.infCorrecao.Add; ACBrCTe.EventoCTe.Evento.Items[0].infevento.DescricaoTipoEvento(tePrestDesacordo); ACBrCTe.EventoCTe.Evento.Items[0].infevento.detEvento.descEvento := ACBrCTe.EventoCTe.Evento.Items[0].infevento.DescricaoTipoEvento(tePrestDesacordo); ACBrCTe.EventoCTe.Evento.Items[0].infevento.detEvento.xOBS := ObsDesacordo; ACBrCTe.EnviarEvento(NumeroEvento); ACBrCTe.EventoCTe.GerarXML; CodigoStatus := ACBrCTe.EventoCTe.Evento[0].RetInfEvento.cStat; Protocolo := ACBrCTe.EventoCTe.Evento[0].RetInfEvento.nProt; DhRecbto := ACBrCTe.EventoCTe.Evento[0].RetInfEvento.dhRegEvento; XMotivo := ACBrCTe.EventoCTe.Evento[0].RetInfEvento.XMotivo; XMLFinal := ACBrCTe.EventoCTe.Evento[0].RetInfEvento.NomeArquivo; ACBrCTe.ImprimirEvento; except on E: Exception do begin if IntToStr( AcbrCte.WebServices.EnvEvento.cStat ) = EmptyStr then MensagemErro := E.Message else MensagemErro := IntToStr( AcbrCte.WebServices.EnvEvento.cStat ) + '-'+ E.Message; end; end; ------------------------- ao Fazer o EnviarEvento.... retorna a rejeição 215 - Evento de prestação de serviço em desacordo - Código 215 - Rejeição: Falha no schema XML Segue anexo, os xml gerados do evento 180-eve.xml 180-eve-soap.xml 180-ped-eve.xml 180-ped-eve-soap.xml