Falha Na Validação Dos Dados Do Envio De Evento No Pará

[edsonjplima]

Falha na validação dos dados do Envio de Evento 

'90' violates enumeration constraint of '11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53 91'.

The element '{http://www.portalfiscal.inf.br/nfe}cOrgao' with value '90' failed to parse.

[André Ferreira de Moraes]

Atualize seus fontes e teste novamente.

[igmaster2000]

oi,o que mudou do cancelamento anterior para esta, tem como me mostrar...eu usava assim...

 

  OpenDialog1.Title := 'Selecione a NFE';

  OpenDialog1.DefaultExt := '*-nfe.XML';

  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

  OpenDialog1.InitialDir := nfe.Configuracoes.Geral.PathSalvar;

  if OpenDialog1.Execute then

     begin

     nfe.NotasFiscais.Clear;

     nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

     if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then

        exit;

     nfe.Cancelamento(vAux);

     MemoResp.Lines.Text   := UTF8Encode(nfe.WebServices.Cancelamento.RetWS);

     memoRespWS.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetornoWS);

     LoadXML(MemoResp, WBResposta);

     ShowMessage(IntToStr(nfe.WebServices.Cancelamento.cStat));

     ShowMessage(nfe.WebServices.Cancelamento.Protocolo);

     end;

[edsonjplima]

para o igmaster2000...

 

mudou pra esse aqui:

 

 

  OpenDialog1.Title := 'Selecione a NFE';

  OpenDialog1.DefaultExt := '*-nfe.XML';

  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

  if OpenDialog1.Execute then

  begin

    ACBrNFe1.NotasFiscais.Clear;

    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

 

    idLote := '1';

    if not(InputQuery('WebServices Eventos: Cancelamento', 'Identificador de controle do Lote de envio do Evento', idLote)) then

       exit;

    if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa', vAux)) then

       exit;

    ACBrNFe1.EventoNFe.Evento.Clear;

    ACBrNFe1.EventoNFe.idLote := StrToInt(idLote) ;

    with ACBrNFe1.EventoNFe.Evento.Add do

    begin

     infEvento.dhEvento := now;

     infEvento.tpEvento := teCancelamento;

     infEvento.detEvento.xJust := vAux;

    end;

    ACBrNFe1.EnviarEventoNFe(StrToInt(idLote));

 

    MemoResp.Lines.Text :=  UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS);

    memoRespWS.Lines.Text :=  UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS);

    LoadXML(MemoResp, WBResposta);

    ShowMessage(IntToStr(ACBrNFe1.WebServices.EnvEvento.cStat));

    ShowMessage(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt);

  end;