Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por edsonjplima,
  • Este tópico foi criado há 4243 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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;
  • Solution
Postado

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;
  • Este tópico foi criado há 4243 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...