Claudio Stein Junior

Então estou enviando sincrono tb e dá consumo indevido. Não sei se tem algo errado no código para isso acontecer. Segue ele. O Consumo indevido acontece após o envio. A nota vai para o sefaz de SP porém não consigo pegar o protocolo e imprimir por conta da mensagem de consumo indevido. ACBrNFe1.NotasFiscais.Clear; AcbrNfe1.Configuracoes.Arquivos.Salvar:=true; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := TpcnVersaoDF(ve400); ACBrNFe1.Configuracoes.Geral.IdCSC := '000001'; // Exatamente 6 dígitos ACBrNFe1.Configuracoes.Geral.CSC := ''; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; ACBrNFe1.Configuracoes.Arquivos.Salvar := True; GerarNFCe(vAux); ACBrNFe1.Enviar(1); // 1 = parametro para envio sincrono nomeXML := ACBrNFe1.NotasFiscais.Items[0].NomeArq; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(nomeXML); ACBrNFe1.DANFE := ACBrNFeDANFCeFortes1; ACBrNFeDANFCeFortes1.TipoDANFE := tiNFCe; ACBrNFeDANFCeFortes1.MostraPreview := True; ACBrNFeDANFCeFortes1.MostraSetup := False; ACBrNFe1.NotasFiscais.Imprimir; ACBrNFe1.NotasFiscais.Clear;

Estou com problemas de consumo indevido no SEFAZ de SP ao enviar uma NFC-e tanto no modo de envio sincrono como assincrono. Tenho um cliente só usando pois queimou o SAT. Não sei qual é o problema. Envio normalmente, chega a nfc-e no sefaz, mas não consigo imprimir pois não retorna o protocolo, após o envio por conta da mensagem de consumo indevido. Assincrono 1. Gero o cupom 2. Envio de forma assincrona 3. Pego o recibo retornado e armazeno 4. Recarrego o arquivo XML para obter o protocolo 5. Consulto o recibo para obter o protocolo 5. Imprimo o cupom Sincrono 1. Gero o cupom 2. Envio de forma sincrona 3. Recarrego o arquivo XML 4. Imprimo o cupom Não sei se o problema é o Sefaz ou algo que faço errado.

Inclusive testei sincrono e assincrono.

Fiz assim agora: ACBrNFe1.NotasFiscais.Clear; AcbrNfe1.Configuracoes.Arquivos.Salvar:=true; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := TpcnVersaoDF(ve400); ACBrNFe1.Configuracoes.Geral.IdCSC := '000001'; // Exatamente 6 dígitos ACBrNFe1.Configuracoes.Geral.CSC := '2a736a7f-bc18-41dd-94dc-7d4c80484477'; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; GerarNFCe(vAux); ACBrNFe1.Enviar(0); Recibo := ACBrNFe1.WebServices.Retorno.Recibo; // 6. VERIFICA SE O RECIBO FOI RETORNADO if Trim(Recibo) = '' then begin ShowMessage('Erro: Recibo não retornado pela SEFAZ.'); Exit; end; // 7. Pega o nome do arquivo XML salvo nomeXML := ACBrNFe1.NotasFiscais.Items[0].NomeArq; // 8. Recarrega o XML com LoadFromFile ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(NomeXML); // 9. CONSULTA O RECIBO PARA OBTER O PROTOCOLO DE AUTORIZAÇÃO ACBrNFe1.WebServices.Recibo.Recibo := Recibo; ACBrNFe1.WebServices.Recibo.Executar; ACBrNFe1.DANFE := ACBrNFeDANFCeFortes1; ACBrNFeDANFCeFortes1.TipoDANFE := tiNFCe; ACBrNFeDANFCeFortes1.MostraPreview := True; // mostra na tela ACBrNFeDANFCeFortes1.MostraSetup := False; // não mostra diálogo da impressora if ACBrNFe1.WebServices.Recibo.cStat = 104 then begin ACBrNFe1.NotasFiscais.Imprimir; end else begin ShowMessage('Erro na autorização: ' + ACBrNFe1.WebServices.Recibo.xMotivo); end; Testei e continua dando consumo indevido em SP.

Hoje testei novamente no cliente, dois XMLs já prontos não adicionam protocolo. E tenho mensagem de consumo indevido ao enviar uma nova nfc-e para SP. Vou postar parte do código para analise se estou fazendo algo errado? Acredito que o envio do sefaz de SP ainda é assíncrono. Após enviar dá consumo indevido, mas a nota é enviada corretamente, depois disso dá consumo indevido e preciso adicionar o protocolo em outro botão e imprimir em outro botão ainda pois a procedure não consegue chegar na parte da impressão devido ao consumo indevido. Estou aberto a sugestões. ACBrNFe1.NotasFiscais.Clear; AcbrNfe1.Configuracoes.Arquivos.Salvar:=true; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := TpcnVersaoDF(ve400); ACBrNFe1.Configuracoes.Geral.IdCSC := '000001'; // Exatamente 6 dígitos ACBrNFe1.Configuracoes.Geral.CSC := '' //codigo do meu cliente; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; GerarNFCe(vAux); ACBrNFe1.Enviar(0); Recibo := ACBrNFe1.WebServices.Retorno.Recibo; // 6. VERIFICA SE O RECIBO FOI RETORNADO if Trim(Recibo) = '' then begin ShowMessage('Erro: Recibo não retornado pela SEFAZ.'); Exit; end; // 7. CONSULTA O RECIBO PARA OBTER O PROTOCOLO DE AUTORIZAÇÃO ACBrNFe1.WebServices.Recibo.Recibo := Recibo; ACBrNFe1.WebServices.Recibo.Executar; ACBrNFe1.DANFE := ACBrNFeDANFCeFortes1; ACBrNFeDANFCeFortes1.TipoDANFE := tiNFCe; ACBrNFeDANFCeFortes1.MostraPreview := True; // mostra na tela ACBrNFeDANFCeFortes1.MostraSetup := False; // não mostra diálogo da impressora if ACBrNFe1.WebServices.Recibo.cStat = 104 then begin ACBrNFe1.NotasFiscais.Imprimir; end else begin ShowMessage('Erro na autorização: ' + ACBrNFe1.WebServices.Recibo.xMotivo); end; ACBrNFe1.NotasFiscais.Clear;

Meu cliente ao enviar o xml perdeu pois o caminho não estava marcado, ao tentar enviar novamente deu duplicidade. Quando consulta com o XML diz que está autorizado, porém quando imprimo diz que NFC-e não enviado ao sefaz. Como resolver? Obrigado

Já deu certo. Fiz assim: ACBrNFe1.Configuracoes.Geral.IdCSC := '000001'; ACBrNFe1.Configuracoes.Geral.CSC := '1a111a1a-aa11-11aa-11aa-1a1a11111111';

Olá, agora estou com esse erro no envio de nfc-e para SP: "Código de hash no QR-Code difere do calculado" Não sei se estou passando as informações corretas para o componente: ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := TpcnVersaoDF(ve400); ACBrNFe1.Configuracoes.Geral.IdCSC := '000001'; ACBrNFe1.Configuracoes.Geral.CSC := '1a111a1aaa1111aa11aa1a1a11111111'; //inventei esse número para postar mas peguei o certo no sefaz. ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; minhas dúvidas são: Qual das duas formas informo? ACBrNFe1.Configuracoes.Geral.IdCSC := '000001'; ACBrNFe1.Configuracoes.Geral.IdCSC := '1'; Uso o traço ou passo o valor sem traço? Informo as letras em maiúscula ou minúscula? ACBrNFe1.Configuracoes.Geral.CSC := '1a111a1aaa1111aa11aa1a1a11111111'; ACBrNFe1.Configuracoes.Geral.CSC := '1a111a1a-aa11-11aa-11aa-1a1a11111111'; Obrigado

Desculpe depois que vi que estava no 00. Achei que estava no 2 por padrão.

Verifique esse link: https://downdetector.com.br/fora-do-ar/sefaz/ Acredito que o sefaz SP está com problemas novamente. Pelo gráfico tudo indica que sim, não são todos certificados.

Italo estou passando essa linha para resolver: Ide.tpCTe:= tcCTeSimp; O sistema roda, porém quando tento enviar o CT-e dá o erro de nenhum elemento encontrado. Tem alguma outra coisa que devo fazer?

Olá não estou conseguindo passar o 5 para meu arquivo de remessa do banco santander if (DmBanco.CdsBancosCODBANCO.AsString = '033') or (DmBanco.CdsBancosCODBANCO.AsString = '33') then begin ACBrBoleto1.Cedente.codigoCedente := DmBanco.CdsBancosCEDENTE.AsString; ACBrBoleto1.Cedente.Modalidade:= '5'; //DmBanco.CdsBancosVARIACAOCARTEIRA.AsString; ACBrBoleto1.Cedente.TipoCarteira := tctRegistrada; //tctRegistrada; //tctSimples; ACBrBoleto1.Cedente.CodigoTransmissao := '008500000615368'; ACBrBoleto1.Cedente.ResponEmissao := tbCliEmite; // Cliente Emite = 0 end; O que devo fazer para corrigir a posição 58 do elemento P. Estou usando o envio de remessa 240. Obrigado

Resolvido obrigado mais uma vez, consegui instalar copiando o componente na mesma pasta que estava o anterior.

Juliomar está com esse erro, não consigo instalar o fortes: Error: Package 'frce' already contains unit 'RLReg'

Olá está ocorrendo um erro ao instalar o componente, acabei de atualizar, uso Delphi 7 32 bits C:\Users\cstein\ACBR\Fontes\ACBrBoleto\FC\Fortes\ACBrBoletoFCFortesFr.pas(1427) Error: Incompatible types: 'TRLCustomPrintFilter' and 'TRLPDFFilter' ACBr_BoletoRL.dpk(39) Fatal: Could not compile used unit '..\..\..\..\..\Fontes\ACBrBoleto\FC\Fortes\ACBrBoletoFCFortesFr.pas' Compilation failure Erro ao compilar o pacote "ACBr_BoletoRL.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Como posso resolver?