Ir para conteúdo
  • Cadastre-se

Jean Peixoto

Membros Pro
  • Total de ítens

    326
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Jean Peixoto

  1. Pessoal,

    não estou achando os exemplos do Spedfiscal a pasta do ACBr, Mudou o caminho ou foi retirado?
    atualizei os fontes para ter certeza e realmente não tem o dpr na pasta de exemplos

    Erro meu, 

    Exemplos encontrados, 

    Obrigado

  2. 6 minutos atrás, Daniel InfoCotidiano disse:

    @Jean Peixoto
    Bom dia !
    Por enquanto não temos relatos, chegou a entrar em contato com o suporte p ver se realmente não está fora do ar ou com problemas de instabilidade?

    Conferi no site deles, no forum tb não tem nada sobre isso!
    como faço pra entrar em contato com suporte do inter Daniel?

  3. Em 02/10/2023 at 12:16, Jean Peixoto disse:

    Amigos, 

    Estou com uma cliente em Mato Grosso, que usa sistema a anos!
    sem nenhuma alteração, hj começou apresentar uma mensagem para emitir nfc-e: Código identificador do CSC no QR-Code não cadastrado na SEFAZ
    Conferi o código CSC que ela usa a anos e está correto!

    Geramos outro código CSC porém continua com a mesma mensagem!

    Sabem o que pode ser?

    Voltando aqui para dizer que foi identificado o problema!

    A cliente mudou a UF de destino para emissão de NFC-e, dai dava o erro!

    Custamos achar esse problema, não imaginávamos que alguém poderia ter alterado!

    • Curtir 1
  4. Até o momento, cliente sem emitir notas no Mato Grosso!
    sem nenhuma alteração no código ou no CSC que o cliente usa a anos!

    Já conferi várias vezes esse CSC e está idêntico ao da sefaz! com uma ressalva no Id, que no xml vai 1 e no sefaz está 000001, já tentei deixar assim mais

    acredito que o Acbr tira o zero a esquerda.

    Mandei email para TI da sefaz/MT, me disseram que hj sistema deles está instável... Mais nao me responderam o porque não consegue emitir notas a 4 dias!

    Imaginem a dor de cabeça!

    Mais alguém passando por esse problema no MT?

  5. Amigos, 

    Estou com uma cliente em Mato Grosso, que usa sistema a anos!
    sem nenhuma alteração, hj começou apresentar uma mensagem para emitir nfc-e: Código identificador do CSC no QR-Code não cadastrado na SEFAZ
    Conferi o código CSC que ela usa a anos e está correto!

    Geramos outro código CSC porém continua com a mesma mensagem!

    Sabem o que pode ser?

  6. 6 minutos atrás, Alexandre de Paula disse:

    Boa tarde @Jean Peixoto,

    O assunto é regido pela NT 2019.001 que trata das validações do cBenef, porém não localizei em nenhum ponto nada sobre alterações no Danfe, portanto não vejo necessidade de impressão, inclusive tendo em vista que o documento fiscal em si é o próprio arquivo XML e não a impressão.

    Como sugestão solicite ao seu cliente a documentação e legislação que orienta a impressão. Até para justificar uma eventual alteração. Caso ele apresente a documentação pode encaminhar para que possamos avaliar também.

    Obrigado.

    Obrigado @Alexandre de Paula

    Irei fazer isso! Tb não tinha achado nada!
    Qualquer novidade posto aqui!

    • Curtir 1
  7. 4 minutos atrás, Diego Foliene disse:

    Por favor, defina ACBrNFe.Configuracoes.WebServices.Salvar := True; e refaça o teste.

    Ele vai gerar para você os envelopes da consulta (ambos vão ter -soap no nome).

    Veja qual é o conteúdo do envelope de resposta.

    @Diego Foliene
    Fiz como sugeriu, configurei: 
    ACBrNFe.Configuracoes.WebServices.Salvar := True;

    Onde vejo o conteúdo do envelope de resposta, que vc falou?

    os dois retornos continuam vindo vazio:

    UTF8Encode(ACBrNFe.WebServices.Enviar.xMotivo)    
    UTF8Encode(ACBrNFe.WebServices.Enviar.RetornoWS)

     

  8. 15 minutos atrás, Diego Foliene disse:

    Boa tarde!

    Testando o seu XML no validador que indicou, neste outro validador, usando o método Validar do componente ACBrNFe e também o ValidarRegrasDeNegocio, além do erro da chave referenciada, não foram apontadas outras irregularidades.

    Essa mensagem "Falha na validação dos dados da nota" é um retorno da Sefaz ou é do seu sistema?

    Caso seja a segunda opção, qual é a mensagem de erro completa? Como está fazendo para exibir a exceção?

    Essa é a mensagem de retorno completa:
    image.png.f19c4c6faa7daae53d0dcba7b5ae24d2.png

    Pego assim:

    except on E: Exception do
       begin         
         Application.MessageBox(PChar('Mensagem: ' + E.Message
                                                   + 'Retorno Sefaz: ' + CHAR(13) + RetornoWS
                                                   + 'Motivo: ' + CHAR(13) + UTF8Encode(ACBrNFe.WebServices.Enviar.xMotivo)), 'Atenção!!',MB_ICONERROR);
       end;            
    end;

     

  9. 35 minutos atrás, Jean Peixoto disse:

    @Alexandre de Paula, não sei o que estou fazendo errado, estou fazendo assim:

    Ide.NFref.Add;
    Ide.NFref.Items[i].refNFe       := CHAVENF;
    Ide.NFref.Items[i].RefNF.cUF    := UFtoCUF(UF);
    Ide.NFref.Items[i].RefNF.AAMM   := DDMM;
    Ide.NFref.Items[i].RefNF.CNPJ   := CNPJ;
    Ide.NFref.Items[i].RefNF.modelo := 1;
    Ide.NFref.Items[i].RefNF.serie  := StrToInt(SERIE.Text);
    Ide.NFref.Items[i].RefNF.nNF    := StrToInt(NUMERO_NFE);

    Está voltando esse erro:

    image.png.666a82587d9c88ed6f78f5e3bd3b6b29.png

     

    Deu certo, deixei apenas o código:

    de.NFref.Add;
    Ide.NFref.Items[i].refNFe       := CHAVENF;

    Estava dando erro no início pq não estava passando a chave

    • Curtir 1
  10. @Alexandre de Paula, não sei o que estou fazendo errado, estou fazendo assim:

    Ide.NFref.Add;
    Ide.NFref.Items[i].refNFe       := CHAVENF;
    Ide.NFref.Items[i].RefNF.cUF    := UFtoCUF(UF);
    Ide.NFref.Items[i].RefNF.AAMM   := DDMM;
    Ide.NFref.Items[i].RefNF.CNPJ   := CNPJ;
    Ide.NFref.Items[i].RefNF.modelo := 1;
    Ide.NFref.Items[i].RefNF.serie  := StrToInt(SERIE.Text);
    Ide.NFref.Items[i].RefNF.nNF    := StrToInt(NUMERO_NFE);

    Está voltando esse erro:

    image.png.666a82587d9c88ed6f78f5e3bd3b6b29.png

  11. 3 horas atrás, Alexandre de Paula disse:

    No programa exemplo tem a rotina:

    Consegui ler o XML.

     

    Pessoal achei o problema:

    estava fazendo um Update direto de uma Query! Utilizo IBObjects!

    alterei para fazer um update em um ClientDataSet:

    MANIFEST.Active := false;
    MANIFEST.Params[0].AsString := sChave;
    MANIFEST.Active := true;
    if MANIFEST.Fieldbyname('XMLNOTA').AsString = '' then
      begin
        MANIFEST.Edit;
        MANIFEST.FieldByName('XMLNOTA').AsString := UTF8Encode( ACBrNFe.NotasFiscais.Items[0].XML );
        MANIFEST.Post;
        MANIFEST.ApplyUpdates(-1);
      end;

    Não sei explicar o porque, mais dessa forma gravou certinho!

    Obrigado pela atenção @Alexandre de Paula

    • Curtir 1
  12. 2 horas atrás, Alexandre de Paula disse:

    Uma unica observação é o padrão de fim de linha que no seu arquivo está apenas LF (line feed) e sem o CR (carriage return)

    Notei isso tb!
     

     

    2 horas atrás, Alexandre de Paula disse:

    vc consegue salvar esse arquivo que vc modificou pra tirar os dados?

    Cliente estava pegando pelo retorno do MDFe, consultado pelo nsu! Agora só tenho o arquivo xml baixado!
    Sabe como consigo jogar esse xml para o componente novamente pra fazer o teste de gravação?

  13. Pessoal, 

    Estou tendo um problema para gravar o xml em um banco firebird 2.5, campo do tipo Blob! É apenas um xml específico, com 241.411 caracteres, ou 237kb, não é lá grande assim né

    porém está dando erro ao ser inserido em uma SQL para gravar no banco. Outros arquivos xml gravam tranquilo... agora esse não vai.

    Estou utilizando a seguinte rotina:

    Query.SQL.Clear;
    Query.SQL.Add('update MANIFESTO');
    Query.SQL.Add('SET XMLNOTA = :VALOR') ;
    Query.ParamByName('VALOR').AsString := QuotedStr( FACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].XML );
    Query.SQL.Add('WHERE CHAVE = ' + QuotedStr(sChave) );
    Query.ExecSQL;

    Percebi que se posiciono o Mouse no campo  FACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].XML , ele não mostra todo o conteúdo do arquivo XML, fica um uma reticencias (...)  no final

    Já tentei de outra forma, a linha que jogo o valor para o parâmetro, mais não grava nada quando faço das formas abaixo!

    Já tentei assim:
    Query.ParamByName('VALOR').AsString := FACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].XML;
    
    e Assim:
    Query.ParamByName('VALOR').AsString := UTF8Encode( FACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].XML);

    Porém sem sucesso!

    sabem o que pode ser?

  14. Em 13/03/2023 at 14:53, jefferson01 disse:

    Seguindo a sugestão do @Antonio Gomes, fiz alteração nos fontes criando 2 propriedades no TACBrWebService, que são Token e Expire. Ao gerar o Token eu armazeno as informações nessas novas propriedades com isso consigo gerar um novo token apenas se já tiver expirado ou se não existir um token gerado.

    Segue os fontes para analise. Já fiz testes em produção e funcionou corretamente enviando vários boletos(mais de 5) por fez.

    Att. Jefferson

    ACBrBoleto.zip 48.57 kB · 0 downloads

    @Juliana Tamizou
    Acredito ser uma boa idéia essa alteração!

×
×
  • 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.