Ir para conteúdo
  • Cadastre-se

dev botao

21/03/2012 - Publicada a NT 2012/002 Manif do Destinatario


Gr@c@
  • Este tópico foi criado há 3440 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Bom dia Darlana,

 

Desculpe, o meu post anterio era referente ao nosso amigo ArqBox e não a você.

 

Se você quer testar a consulta de NF-e destinadas a você em ambiente de homologação, uma das maneiras é o que você esta fazendo.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Ola Amigos,

 

Estou com um probleminha, no demo do Acbr envio o manifesto normalmente, o unico erro diz que o codigo do orgao diverge do codigo autorizador

cOrgao:91  no retorno

tentei informar da seguinte forma        infEvento.corgao := 35;  mas não aceita, pelo menos gerou tudo..
 

ja no meu sistema nao passa de forma alguma

Erro:   xmotivo:evento nao atende o schema XML especifico

cstat:493  falha na validaçao dos dados  (violates pattern constraint of [!-y]{1}[!-y]{0}[!-y]{1}[!-y]{1}

 

estou com os fontes atualizados, inclusive os schemas, alguem ja passou por isso,  pois antes da ultima atualização funcionava em homologação e produção

 

Agradeço antecipadamente

Link para o comentário
Compartilhar em outros sites

  • 5 semanas depois ...

Sergio , eu utilizo este laço listando as NFe's Destinadas no NextGrid , veja rotina completa :

 

 

 

 

 

procedure TFrm_Manifestacao_Destinatario.btn_Consulta_NFe_DestinadasClick(

  Sender: TObject);

var

 CNPJ , IndNFe , IndEmi , ultNSU , Tem_Doctos : string;

 ok : boolean ;

 i , a : integer ;

begin

  Grid_NFe.ClearRows ;

  CNPJ := FrmPrincipal.Cnpj_Autenticacao_Certificado_Digital ;

  case cbx_Indicador_NFe_Consultada.ItemIndex of

  0 : IndNFe := '0' ;  // 0 = Todas as NF-e

  1 : IndNFe := '1' ;  // 1 = Somente as NF-e que ainda não tiveram manifestação do destinatário

                       //     (Desconhecimento da operação, Operação não Realizada ou Confirmação da Operação)

  2 : IndNFe := '2' ;  // 2 = Idem anterior, incluindo as NF-e que também não tiveram a Ciência da Operação

  end ;

  case cbx_Indicador_Emissor.ItemIndex of

  0 : IndEmi := '0' ;  // 0 = Todos os Emitentes / Remetentes

  1 : IndEmi := '1' ;  // 1 = Somente as NF-e emitidas por emissores / remetentes que não tenham a mesma

                       //     raiz do CNPJ do destinatário (para excluir as notas fiscais de transferência entre filiais).*)

  end ;

  ultNSU := '0'  ;

 

  Tem_Doctos := 'S' ;

  while Tem_Doctos = 'S' do

        begin

        Tem_Doctos := 'N' ;

        FrmPrincipal.ACBrNFe1.NotasFiscais.Clear ;

        FrmPrincipal.ACBrNFe1.EventoNFe.Evento.Clear ;

        FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Clear ;

        try

        FrmPrincipal.ACBrNFe1.ConsultaNFeDest(CNPJ,

                                              StrToIndicadorNFe(ok,indNFe),

                                              StrToIndicadorEmissor(ok,IndEmi),

                                              UltNSu) ;

        except

        end ;

        case FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.indCont of

        icNaoPossuiMaisDocumentos :    Tem_Doctos := 'N' ;

        icPossuiMaisDocumentos    :    Tem_Doctos := 'S' ;

        end;

        ultNSU := FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ultNSU ; 

        // Retorno de NFe Destinadas

        for i := 0 to FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do

           begin

           if Trim(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe) <> '' then

              begin

              Grid_NFe.AddCells([  'False' ,

                                   '' ,

                                   FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome ,

                                   FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe ,

                                   FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF ,

                                   VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF) ,

                                   FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE ,

                                   DateToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi) ,

                                   VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF) ,

                                   VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitNFe) ,

                                   VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitConf) ]);

              end ;

           end ;

        // Retorno de NFe Destinadas

        Grid_NFe.ApplyEditing ;

        FrmPrincipal.ACBrNFe1.NotasFiscais.Clear ;

        FrmPrincipal.ACBrNFe1.EventoNFe.Evento.Clear ;

        end ;

  for i := 0 to Grid_NFe.RowCount -1 do

      begin

      if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 0 then

         begin

         for a := 0 to Grid_NFe.Columns.Count -1 do

             Grid_NFe.Cell[a,i].Color := clAqua ;

         end ;

      if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 1 then

         begin

         for a := 0 to Grid_NFe.Columns.Count -1 do

             Grid_NFe.Cell[a,i].Color := clLime ;

         end ;

      if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 2 then

         begin

         for a := 0 to Grid_NFe.Columns.Count -1 do

             Grid_NFe.Cell[a,i].Color := clFuchsia ;

         end ;

      if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 3 then

         begin

         for a := 0 to Grid_NFe.Columns.Count -1 do

             Grid_NFe.Cell[a,i].Color := clYellow ;

         end ;

      if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 4 then

         begin

         for a := 0 to Grid_NFe.Columns.Count -1 do

             Grid_NFe.Cell[a,i].Color := clBlue ;

         end ;

      end ;

end;

ola. qual componente de Grid vc usou?

muito bom o seu codigo

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...

Bom dia Michel,

 

Estude esse fragmento de código da minha aplicação, que realiza a consulta de NFe destinadas.


procedure TfrmMovManifestacao.btnLocalizarClick(Sender: TObject);

var

 CNPJ, Impresso, sChave, sEmissao, sCNPJ, sNome, sNumero, sSerie,

 sIEst, sNSU, sTipoNFe: String;

 Valor: Double;

 i, j: integer;

begin

 // ======== Dados da Empresa (Destinatario) =============================================

 DM_CTA.Empresa.Close;

 DM_CTA.Empresa.SQL.Clear;

 DM_CTA.Empresa.SQL.Add('Select * From Sis_Empresa');

 DM_CTA.Empresa.SQL.Add('Where Codigo = :xCodigo');

 DM_CTA.Empresa.Params[0].AsString:=DM_VEN.ParametrosEmitente.AsString;

 DM_CTA.Empresa.Active:=True;

 DM_CTA.Empresa.Open;

 if copy(DM_CTA.EmpresaCNPJ.AsString,10,4) <> '0000'

  then CNPJ := Copy(DM_CTA.EmpresaCNPJ.AsString, 2, 14)

  else CNPJ := Copy(DM_CTA.EmpresaCNPJ.AsString, 1, 9) +

               Copy(DM_CTA.EmpresaCNPJ.AsString, 14, 2);

 MemoStatus.Lines.Add('------------------------------------------------------');

 MemoStatus.Lines.Add(' =>  Consultando NFe Destinadas');

 MemoStatus.Lines.Add('------------------------------------------------------');

 // TpcnIndicadorNFe = (inTodas, inSemManifestacaoComCiencia, inSemManifestacaoSemCiencia);

 // TpcnIndicadorEmissor = (ieTodos, ieRaizCNPJDiferente);

 DMNFe.NFe.ConsultaNFeDest( CNPJ,

                            inSemManifestacaoSemCiencia,

                            ieTodos,

                            edtUltNSU.Text );

 sStat   := IntToStr(DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.cStat);

 sMotivo := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.xMotivo;

 case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.indCont of

  icNaoPossuiMaisDocumentos: sTemMais := 'N';

  icPossuiMaisDocumentos:    sTemMais := 'S';

 end;

 sUltimoNSU := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ultNSU;

 GravaUltimaConsulta;

 // TpcnIndicadorContinuacao = (icNaoPossuiMaisDocumentos, icPossuiMaisDocumentos);

 // TpcnSituacaoNFe = (snAutorizado, snDenegado, snCancelada);

 // TpcnSituacaoManifDest = (smdSemManifestacao, smdConfirmada, smdDesconhecida, smdOperacaoNaoRealizada, smdCiencia);

 // TpcnTipoNFe = (tnEntrada, tnSaida);

 if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.cStat = 138

  then begin

   // Documentos Localizados para o Destinatário

   if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.indCont = icPossuiMaisDocumentos

    then begin

     edtUltNSU.Text := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ultNSU;

     MemoStatus.Lines.Add(' Documento Localizado para o Destinatário');

     MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU');

     MemoStatus.Lines.Add(' Para uma nova pesquisa.');

     MemoStatus.Lines.Add(' ');

    end

    else begin

     edtUltNSU.Text := '0';

     MemoStatus.Lines.Add(' Documento Localizado para o Destinatário');

     MemoStatus.Lines.Add(' ');

    end;

   j := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1;

   lstChave1.Clear;

   chkListaNotas.Clear;

   for i := 0 to j do

    begin

     sSerie   := '';

     sNumero  := '';

     sCNPJ    := '';

     sNome    := '';

     sIEst    := '';

     sNSU     := '';

     sEmissao := '';

     sTipoNFe := '';

     Valor    := 0.0;

     Impresso := ' ';

     if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe <> ''

      then begin

       // Conjunto de informações resumo da NF-e localizadas.

       // Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada.

       sChave := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe;

       sSerie  := Copy(sChave, 23, 3);

       sNumero := Copy(sChave, 26, 9);

       sCNPJ := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF;

       sNome := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome;

       sIEst := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE;

       case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF of

        tnEntrada: sTipoNFe := 'E';

        tnSaida:   sTipoNFe := 'S';

       end;

       sNSU  := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.NSU;

       sEmissao := DateToStr(DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi);

       Valor := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF;

       case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitNFe of

        snAutorizado: Impresso := 'A';

        snDenegado:   Impresso := 'D';

        snCancelada:  Impresso := 'C';

       end;

      end;

     if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.chNFe <> ''

      then begin

       // Conjunto de informações resumo da NF-e localizadas.

       // Este conjunto de informação será gerado quando o Cancelamento da NF-e for homologado.

       sChave := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.chNFe;

       sSerie  := Copy(sChave, 23, 3);

       sNumero := Copy(sChave, 26, 9);

       sCNPJ := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.CNPJCPF;

       sNome := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.xNome;

       sIEst := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.IE;

       case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.tpNF of

        tnEntrada: sTipoNFe := 'E';

        tnSaida:   sTipoNFe := 'S';

       end;

       sNSU  := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.NSU;

       sEmissao := DateToStr(DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.dEmi);

       Valor := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.vNF;

       case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.cSitNFe of

        snAutorizado: Impresso := 'A';

        snDenegado:   Impresso := 'D';

        snCancelada:  Impresso := 'C';

       end;

      end;

     // Registra no Banco de Dados as Notas Retornadas pela Consulta

     DM_VEN.Manifestacao.Close;

     DM_VEN.Manifestacao.SQL.Clear;

     DM_VEN.Manifestacao.SQL.Add('Select * From Eve_Manifestacao');

     DM_VEN.Manifestacao.SQL.Add('Where Empresa = :xEmpresa');

     DM_VEN.Manifestacao.SQL.Add('and Chave = :xChave');

     DM_VEN.Manifestacao.Params[0].AsString:=DM_CTA.xCodEmpresa;

     DM_VEN.Manifestacao.Params[1].AsString:=sChave;

     DM_VEN.Manifestacao.Active:=True;

     DM_VEN.Manifestacao.Open;

     if not ((DM_VEN.ManifestacaoEmpresa.AsString = DM_CTA.xCodEmpresa) and

             (DM_VEN.ManifestacaoChave.AsString = sChave))

      then begin

       DM_VEN.IncAltDel.SQL.Clear;

       DM_VEN.IncAltDel.SQL.Add('Insert into Eve_Manifestacao');

       DM_VEN.IncAltDel.SQL.Add('(Empresa, Chave, CNPJ, Nome, IE, Emissao, Tipo, Valor,');

       DM_VEN.IncAltDel.SQL.Add('Situacao, Confirmacao, NSU, DataEvento, Protocolo)');

       DM_VEN.IncAltDel.SQL.Add('Values (:xEmpresa, :xChave, :xCNPJ, :xNome, :xIE, :xEmissao, :xTipo,');

       DM_VEN.IncAltDel.SQL.Add(':xValor, :xSituacao, :xConfirmacao, :xNSU, :xDataEve, :xProtocolo)');

       DM_VEN.IncAltDel.Params[0].AsString:=DM_CTA.xCodEmpresa;

       DM_VEN.IncAltDel.Params[1].AsString:=sChave;

       DM_VEN.IncAltDel.Params[2].AsString:=sCNPJ;

       DM_VEN.IncAltDel.Params[3].AsString:=sNome;

       DM_VEN.IncAltDel.Params[4].AsString:=sIEst;

       DM_VEN.IncAltDel.Params[5].AsDateTime:=StrToDate(sEmissao);

       DM_VEN.IncAltDel.Params[6].AsString:=sTipoNFe;

       DM_VEN.IncAltDel.Params[7].AsFloat:=Valor;

       DM_VEN.IncAltDel.Params[8].AsString:=Impresso;

       DM_VEN.IncAltDel.Params[9].AsInteger:=-1;

       DM_VEN.IncAltDel.Params[10].AsString:=sNSU;

       DM_VEN.IncAltDel.Params[11].AsDateTime:=0;

       DM_VEN.IncAltDel.Params[12].AsString:='';

       DM_VEN.IncAltDel.ExecSQL;

      end;

    end; // Fim do For

  end

  else begin

   // Nenhum Documento Localizado para o Destinatário

   if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.cStat = 137

    then begin

     if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.indCont = icPossuiMaisDocumentos

      then begin

       edtUltNSU.Text := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ultNSU;

       MemoStatus.Lines.Add(' Nenhum Documento Localizado para o Destinatário');

       MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU');

       MemoStatus.Lines.Add(' Para uma nova pesquisa.');

       MemoStatus.Lines.Add(' ');

      end

      else begin

       edtUltNSU.Text := '0';

       MemoStatus.Lines.Add(' Nenhum Documento Localizado para o Destinatário');

       MemoStatus.Lines.Add(' ');

      end;

    end

    else begin

     MemoStatus.Lines.Add(' Falha ao realizar a consulta.');

     MemoStatus.Lines.Add('  ' + sStat + ' - ' + sMotivo);

     MemoStatus.Lines.Add(' ');

    end;

  end;

 MontaChkLista;

 AtivaBotao;

end;

 

 

Italo, to penando pra Fazer essa Bendita Consulta aqui, e estou me baseando pelo Seu Código'...

 

quando você chama o Procedimento:

GravaUltimaConsulta;

 

você grava só o numero  (NSU)  ou grava todos os dados da consulta no BD???

 

é isso mesmo entendi direito??

Link para o comentário
Compartilhar em outros sites

Italo, além do que citei acima que não sei para que serve o procedimento  GravaUltimaConsulta;

 

 

tenho um outro problema... toda vez que faço a Consulta ele retorna cstat = 137

 

ACBRNfe1.WebServices.ConsNFeDest.retConsNFeDest.cStat = 137

ai ele carrega o Edit  NSU com o valor do ultimo NSU, ai mando consultar novamente e a mesma coisa ocorre...

 

como devo proceder???

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde,

 

O GravaUltimaConsulta, simplismente salva em uma tabela do banco de dados o valor de NSU.

 

Se você voltar a pesquisar no fórum sobre o assunto, você vai descobrir que existem relatos de alguns colegas que checou a realizar centenas de consultas sempre utilizando o último NSU retornado para que aparecessem as primeiras Notas.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Entendi,  se eu consultar 3 vezes, sempre na Terceira vez, me traz as notas que foram disparadas contra mim....

 

você acha que eu devo iniciar a consulta sempre do Ultmo NSU??

 

pelo que eu entendi na nota técnica, quando você passa o NSU = 0  ele deveria retornar as notas dos ultimos 15 dias... mas não retorna nada..

 

ai eu consulto novamente após ele pegar o NSU retornado não retorna nada, geralmente na Terceira consulta retorna as notas...  Não entendi porque isso acontece.. você consegue me explicar isso??

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia,

 

Eu também não entendi muito bem o motivo de ser necessário realizar a consulta varias vezes para começar ter um retorno, mas existem relatos no fórum de colegas que chegaram a realizar quase 100 consultas para obter os primeiros retornos.

 

Na minha opinião a SEFAZ precisa rever isso, pois ficar realizando "N" consultas demanda muitos acessos ao WebService.

 

Hoje são poucos que realizam a manifestação do destinatário, mas quando se tornar obrigatório para todos e esse dia vai chegar a coisa vai ficar feia.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Tenho alguns clientes utilizando o serviço há alguns meses , e para esses clientes que tem utilizado neste período em produção , dizem ter melhorado consideravelmente o tempo de retorno das notas e dificilmente geram exceções quando no looping do envio dos eventos , inclusive hoje diminuíram a quantidade destes de envio de NSU , não sei ao certo este percentual de melhora , mas se percebe sim uma certa melhora .

 

Sei também que o nosso Colega Mark Apollo tem clientes utilizando há tempo o Serviço e passando por aqui com certeza ele deve ter novidades se teve melhora ou não para os Clientes dele , vamos aguardar ele comentar , já que está em outro Estado , ES .

Editado por marcelo_sp
Link para o comentário
Compartilhar em outros sites

Bom dia a todos,

 

estou desenvolvendo a manifestação destinatario, mas no entanto quando chamo a função

ACBrNFe1.ConsultaNFeDest(aCNPJ,inTodas,ieTodos,'0');

ele não consegue executar a consulta, no momento em que ocorre o comando

ACBrNFe1.WebServices.ConsNFeDest.Executar;

ele retorna a seguinte mensagem:

WebService Consulta NF-e Destinadas:
- Inativo ou Inoperante tente novamente.
- Número de Série do Certificado Digital não especificado !.

 

mas quando consulto o serviço ele retorno como disponivel, tenho que passar o certifiocado por

parametro dentro do webservice.ConsNFeDest? o certificado esta instalado certinho.

 

Att Bruno.

Link para o comentário
Compartilhar em outros sites

Bom dia a todos,

 

estou desenvolvendo a manifestação destinatario, mas no entanto quando chamo a função

ACBrNFe1.ConsultaNFeDest(aCNPJ,inTodas,ieTodos,'0');

ele não consegue executar a consulta, no momento em que ocorre o comando

ACBrNFe1.WebServices.ConsNFeDest.Executar;

ele retorna a seguinte mensagem:

WebService Consulta NF-e Destinadas:
- Inativo ou Inoperante tente novamente.
- Número de Série do Certificado Digital não especificado !.

 

mas quando consulto o serviço ele retorno como disponivel, tenho que passar o certifiocado por

parametro dentro do webservice.ConsNFeDest? o certificado esta instalado certinho.

 

Att Bruno.

 

O componente ACBrNFE sempre tem que estar com o Certificado add , para todas as operações .

Link para o comentário
Compartilhar em outros sites

Tenho alguns clientes utilizando o serviço há alguns meses , e para esses clientes que tem utilizado neste período em produção , dizem ter melhorado consideravelmente o tempo de retorno das notas e dificilmente geram exceções quando no looping do envio dos eventos , inclusive hoje diminuíram a quantidade destes de envio de NSU , não sei ao certo este percentual de melhora , mas se percebe sim uma certa melhora .

 

Sei também que o nosso Colega Mark Apollo tem clientes utilizando há tempo o Serviço e passando por aqui com certeza ele deve ter novidades se teve melhora ou não para os Clientes dele , vamos aguardar ele comentar , já que está em outro Estado , ES .

 

Olá, não estou utilizando o componente em delphi para realizar esta consulta, criei outro componente em .NET, somente a partir dessa alteração consegui fazer as consultas diárias da quantidade de empresas que necessito.

 

Mas, antes disso cheguei a fazer mais de 1000 loops para ter retornado menos de 100 notas.

- Sou desenvolvedor.

- De que linguagem, delphi? .NET? Java?

- Qualquer uma, sou desenvolvedor.

Link para o comentário
Compartilhar em outros sites

Olá, não estou utilizando o componente em delphi para realizar esta consulta, criei outro componente em .NET, somente a partir dessa alteração consegui fazer as consultas diárias da quantidade de empresas que necessito.

 

Mas, antes disso cheguei a fazer mais de 1000 loops para ter retornado menos de 100 notas.

 

Certo Mark Apollo ,

 

Mas a questão do progresso da performance do serviço , oque vc tem achado nos seus Clientes , independente do componente utilizado , vc viu algum progresso do inicio das operações para o momento no retorno de resposta ? Como eu disse , não sei outros perceberam algo , mas o retorno melhorou consideravelmente do inicio pra hoje !

Editado por marcelo_sp
Link para o comentário
Compartilhar em outros sites

Eu desenvolvo sistema para um grupo empresarial, utilizo isso em 2 clientes sendo aproximadamente 14 CNPJ's e tenho somente um windows service para atender a todos.  Não sem bem explicar o motivo mas o número de requisições baixou consideravelmente quando migrei para .NET, e parou também de dar erro de conexão que tinha antes.  Mas ainda acho que a receita tem que melhorar muito, pois ainda tenho que fazer muitas requisições para obter pouco retorno.

- Sou desenvolvedor.

- De que linguagem, delphi? .NET? Java?

- Qualquer uma, sou desenvolvedor.

Link para o comentário
Compartilhar em outros sites

Eu desenvolvo sistema para um grupo empresarial, utilizo isso em 2 clientes sendo aproximadamente 14 CNPJ's e tenho somente um windows service para atender a todos.  Não sem bem explicar o motivo mas o número de requisições baixou consideravelmente quando migrei para .NET, e parou também de dar erro de conexão que tinha antes.  Mas ainda acho que a receita tem que melhorar muito, pois ainda tenho que fazer muitas requisições para obter pouco retorno.

 

Isso mesmo Mark Apollo , 

 

Só pra deixar claro para os outros colegas , cruzando as minhas descrições e do Mark Apollo é bem certeza que no caso não tem nada haver com a linguagem desenvolvimento , no resumo esse pequeno ajuste esta mesmo no WS dos cara que melhoram as recepções e esta respondendo um pouco mais rápido , por isso não tem apresentado quedas como antes e as nfs estão retornando em menos tempo .

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...

Boa Tarde. 

Já li muitas paginas no forum e estou com duvida em qual função usar para enviar o evento de Manifestação do Destinatario da NFE. Se for possivel alguem me ajudar.

Você usa o componente ou o ACBrNFeMonitor?

 

Se for o componente tem o exemplo no código do Demo, sobre o monitor tem a lista de comando, no fórum.

  • Curtir 1

- Sou desenvolvedor.

- De que linguagem, delphi? .NET? Java?

- Qualquer uma, sou desenvolvedor.

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...

Você usa o componente ou o ACBrNFeMonitor?

 

Se for o componente tem o exemplo no código do Demo, sobre o monitor tem a lista de comando, no fórum.

 

Mark Apollo. A lista de comandos (de Manifestação do Destinatário da NFE) para o AcbrNFeMonitor está neste fórum? Ou tem outro aberto neste sentido?

Desculpe mas não encontrei até o momento.

Cristiano.

Link para o comentário
Compartilhar em outros sites

Mark Apollo. A lista de comandos (de Manifestação do Destinatário da NFE) para o AcbrNFeMonitor está neste fórum? Ou tem outro aberto neste sentido?

Desculpe mas não encontrei até o momento.

Cristiano, no repositório do ACBr, na pasta projetos/ACBrNFeMonitor, tem um help com os comandos, realmente não achei os comandos para manifestação, teria que ver agora ou nos fontes ou com a galera para saber se já foi implementado.

- Sou desenvolvedor.

- De que linguagem, delphi? .NET? Java?

- Qualquer uma, sou desenvolvedor.

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • 1 mês depois ...
  • Este tópico foi criado há 3440 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.