Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Consultores
Postado

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 / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

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

  • 5 semanas depois ...
Postado

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

  • 2 semanas depois ...
Postado

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??

Postado

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???

  • Consultores
Postado

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 / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

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??

  • Consultores
Postado

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 / Araraquara-SP

Araraquara - A era dos Trólebus

Postado (editado)

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
Postado

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.

Postado

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 .

Postado

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

 

Consegui resolver Marcelo era o acbr que estava sem o parametro de numero de serie do certificado mesmo,

mesmo assim valeu brother

 

Att. Bruno

Postado

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.

Postado (editado)

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
Postado

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.

Postado

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
  • 1 mês depois ...
Postado

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.

  • 2 semanas depois ...
Postado

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.

Postado

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.

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