Arnaldo Cruz

esta é a mensagem ao abrir o Delphi 13.1 Florence, fiz o teste instalando o ACBr no Delphi 11 (Alexandria) e funcionou de boa

sim eu instalei fastReport,Fort Report,Jedi,DevExpress em uma dia, e somente no outro dia fui instalar o ACBr. quando abro o sistema clico em ignorar All o sistema abre e consigo abrir todos os relatórios no Fast que não tem vinculo com o ACBr. e verifiquei a pasta todas as bpls que acusa como não localizada estão na pasta C:\ACBr\Lib\Delphi\LibD37\Win32, e tambem estã declarado no libraryPath C:\ACBr\Lib\Delphi\LibD37\Win32

Estou instalando o ACBr no Delphi 13.1 Já instalkei o FastReport Instalado A instalação do ACBr acontece sem erro, porem quando vou abrir o Delphi recebo a mensagem abaixo Can't load package C:\ACBr\Lib\Delphi\LibD37\Win32\DCLACBr_NFeDamfeFR.bpl Can't load package C:\ACBr\Lib\Delphi\LibD37\Win32\DCLACBr_CTeDaDacteFR.bpl Can't load package C:\ACBr\Lib\Delphi\LibD37\Win32\DCLACBr_NFSXDanfseFR.bpl Can't load package C:\ACBr\Lib\Delphi\LibD37\Win32\DCLACBr_BoletoFR.bpl Can't load package C:\ACBr\Lib\Delphi\LibD37\Win32\DCLACBr_MDFDamdfeFR.bpl Can't load package C:\ACBr\Lib\Delphi\LibD37\Win32\DCLACBr_SatExtratoFR.bpl Can't load package C:\ACBr\Lib\Delphi\LibD37\Win32\DCLACBr_GNREGuiaFR.bpl Can't load package C:\ACBr\Lib\Delphi\LibD37\Win32\DCLACBr_BPeDabpeFR.bpl segue anexo o log da instalação, se algum dos colegas puder mim dá uma dica de como resolver eu agradeço log_Delphi_13_Florence_Win32.txt

Quando vou fazer a venda aparece o menu pra selecionar,debito/credito - financiamento etc, a proxima etapa enviar o pagamento, aparece o erro. Já configurei pelo comando do ADM passa de boa. na instalação pelo modo ADM aparece a mesma mensagem de erro. Tenho o aplicativo paygoInstalado. estou a uns 3 meses sem emitir uma venda com pagamento TEF, hoje fui emitir aconteceu isso, já liquei no suporte da PayGo não conseguiram mim ajudar, mandaram pro Chat, no chat o cara não sabe como ajudar porque diz que o aplicativo dele não abre essas opções.

Sim, estou emitindo para prefeitura

Segui o topico >>> estou emitindo meu xml está igual ao indicado como aceito pelo SEFAZ <IBSCBS> <CST>620</CST> <cClassTrib>620006</cClassTrib> <gIBSCBSMono> <vTotIBSMonoItem>0.00</vTotIBSMonoItem> <vTotCBSMonoItem>0.00</vTotCBSMonoItem> </gIBSCBSMono> </IBSCBS> mas está dando a rejeição >>> REJEICAO: NÃO INFORMADO O GRUPO DE REDUÇÃO DE ALÍQUOTA ESTADUAL [NITEM:1] tambem tentei emitir informando apenas CST e classTrib e dá a mesma rejeição alguem poderia mim dá alguma dica sobre a venda monofasica, estou em fase de teste, desde já agradeço

Pessoal a coisa que fiz foi alterar o intervalo e qtde de tentativa e deste quinta feira 18/09/2025 em nenhum cliente aconteceu nenhum caso até hoje domingo 21/09/2025. obrigado a todos que responderam ao post

Pra sanar esta duvida, eu peguei a chave da nota antes de transmitir e fiz a consulta direta no site, e retornou nota não localizada. fiz a transmissão e voltou nota em duplicidade , e o engraçado é que no retorno a chave que diz está em duplicidade é a mesma que consultei e que faço o envio, em alguns casos após uns dois minutos faço a consulta da nota ela é localizada no sefaz então eu faço só a validação do envio, porem em outros casos quando faço a consulta a nota não é localizada, então eu faço a consulta direta pelo site ai sim ela é localizada ai eu baixo o XML(Pra confirmar que o xml baixado é o mesmo que envie eu abro o xml baixado e o que foi gerado pelo sistema, e estão igualzinho, Chave,Valores,"DigestValue", "a unica diferença é que no que foi gerado pelo sistema ainda não tem numero de protocolo, porque quando peguei a chave gerada ainda não tinha sido enviado". Outra questão não tem como numeração e serie já ter sido enviado antes- o cliente está na nota 15000 serie 1 com um único caixa.

meu envio é nota a nota e não em lote, se eu incrementar o numero de lote não vou acabar gerando outro problema ?. De fato diminuiu bastante as ocorrências, mas continua acontecendo umas 5 notas por dia em cada cliente. A questão da serie eu tenho absoluta certeza que não é, e que também as duplicidades as notas não foram enviadas duas vezes, a prova é que no primeiro envio quando volta a chave a duplicidade ela é a mesma que estou enviando como primeiro envio, eu faço a consulta pela chave e volta nota não localizada, ai eu pego a chave da nota vou no site SVRS e faço a consulta e a nota está lá.

Um exmplo pego pelo debug. gero o XML com a chave >>>>25250912051558000185650010000765231281724681 volta retorno 204 e a chave da nota que supostamente já foi transmitida 25250912051558000185650010000765231281724681 observe que é a mesma chave. porem se eu fizer um consulta pela chave 25250912051558000185650010000765231281724681 retorna nota não localizada mas se eu for la no site da SRVS e consultar a nota pela chave 25250912051558000185650010000765231281724681 ela aparece. Vejam que no processo todo, envio,retorno,consulta sem localizar e consulta no site a chave é a mesma 25250912051558000185650010000765231281724681

Só pra reforcar acabou de acontecer, emiti a nota com a numeração 76519 deu a duplicidade, deixei na pendencia e emiti a 76520,76521,76522 sem dá problema, quando fui emitir a 76523 voltou retorno 204 duplicidade

Sergio eu utilizo '1' porque eu envio nota a nota - e a duplicidade está acontecendo de fato no primeiro envio - isso foi a primeira coisa que verifiquei pra garantir que a numeração já estivesse sido usada. a verificação da numeração foi xecada ardualmente pra garantir que cada nota tenha um numero sequencial eu peguei um Caixa do cliente e trouxe pra minha maquina pra poder debugar o codigo ,ele ficou usando a serie 2 e eu a serie 1 - verifiquei o ultimo numero de nota emitidas, liguei pro contador pedi pra ele puchar todas as notas emitidas dentro do mês, exemplo no sistema ultima nota emitida 5755 informado pelo contador 5755 - proxima nota 5756 debugando no comando FDataModule.ACBrNFe1.Enviar('1', False ,True), Situação 1 emissão da nota 5756 - FDataModule.ACBrNFe1.Enviar('1', False ,True) retorno volta 204 Pego a chave da nota e consulto no svrs e a nota consta como recebido. Uma observação a nota constante da sefaz bate em data,hora, minuto e segundo com a nota enviada computado no sistema Situação 2 emissão da nota 5757 - FDataModule.ACBrNFe1.Enviar('1', False ,True) Protocolo ,Cstat,xmotivo volta vazio Pego a chave da nota e consulto no svrs e a nota consta como recebido. Uma observação a nota constante da sefaz bate em data,hora, minuto e segundo com a nota enviada Situação 3 emissão da nota 5758 - FDataModule.ACBrNFe1.Enviar('1', False ,True) Cai no exception com mensagem de Connection Time Out mesmo o time Out mesmo alimentando o componenete com valor de 60.000 Pego a chave da nota e consulto no svrs e a nota consta como recebido. Uma observação a nota constante da sefaz bate em data,hora, minuto e segundo com a nota enviada

procedure TFDataModule.AtualizaACBr; var OK : Boolean; AnoA : string ; iReto : Integer; NomeA,sTexto : string ; Pat : string; begin try AnoA := IntToStr(YearOf(Date)); iReto:= MonthOf(Date); Pat := ExtractFilePath(Application.ExeName); if MultiEmpresa = 'S' then begin NomeA := Pat + 'Envio\' + CnpjEmpresa + '\' + NomeDoMes(iReto,0) + AnoA ; end else begin NomeA := Pat + 'Envio\' + NomeDoMes(iReto,0) + AnoA ; end; if CAMINHOCERT <> '' then begin ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := CAMINHOCERT ;//LerCertificado(VsCaminho); ACBrNFe1.Configuracoes.Certificados.Senha := SENHACERT ; end else begin ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := ''; ACBrNFe1.Configuracoes.Certificados.NumeroSerie := SERIECERT; ACBrNFe1.Configuracoes.Certificados.Senha := SENHACERT; end; ACBrNFe1.SSL.DescarregarCertificado; with ACBrNFe1.Configuracoes.Geral do begin SSLLib := TSSLLib(varCBSSLIB); SSLCryptLib := TSSLCryptLib(varCBCRYPLIB); SSLHttpLib := TSSLHttpLib(varCBHTTPLIB); SSLXmlSignLib := TSSLXmlSignLib(varCBXMLSIG); ExibirErroSchema := False ; FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; FormaEmissao := StrToTpEmis(OK,IntToStr(FORMAEMISSAONFC)); ModeloDF := moNFCe; VersaoDF := TpcnVersaoDF(VversaoDF); IdCSC := TOKEN; //000006 CSC := CSC; //804F6079-A0FF-066C-9BA9-1B5C0C7A3E0B Salvar := False; ValidarDigest := True ; RetirarAcentos := False ; VersaoQRCode := veqr300; ForcarGerarTagRejeicao938 := fgtNunca; AtualizarXMLCancelado := False; end; ACBrNFe1.SSL.SSLType := TSSLType(varCBTYPE); if ACBrNFe1.DANFE <> nil then begin ACBrNFe1.DANFE.TipoDANFE := StrToTpImp(OK,IntToStr(0)); end; with ACBrNFe1.Configuracoes.WebServices do begin UF := UFWEBNFC; if RBHOMONFC = True then begin Ambiente := taHomologacao; end else begin Ambiente := taProducao; end; Visualizar := false ; Salvar := false; AjustaAguardaConsultaRet := True; AguardarConsultaRet := TimeOut; IntervaloTentativas := 5000; TimeOut := TIMEOUT; Tentativas := 5; ProxyHost := ''; ProxyPort := ''; ProxyUser := ''; ProxyPass := ''; VersaoQrCodeToStr(veqr300); end; with ACBrNFe1.Configuracoes.Arquivos do begin Salvar := false; SepararPorMes := false; AdicionarLiteral := True; EmissaoPathNFe := false; SalvarEvento := false ; SepararPorCNPJ := False; SepararPorModelo := False; PathSalvar := NomeA ; PathSchemas := Pat + 'Schemas\'; PathNFe := NomeA; PathInu := NomeA; if MultiEmpresa = 'S' then begin PathEvento := Pat +'Evento\' + CnpjEmpresa; end else begin PathEvento := Pat +'Evento'; end; if not DirectoryExists(PathEvento) then begin ForceDirectories(PathEvento); end; if FileExists(Pat + 'ACBrNFeServicos.ini') then begin IniServicos := Pat + 'ACBrNFeServicos.ini'; end; end; ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet := 18000; ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas := 1500; //NOMEIMPRESSORA if (POSPRINTER = True) or (POSPRINTERT = True) then begin if POSPRINTER = True then begin FDataModule.ConfiguraPosPrinter(0); end else begin FDataModule.ConfiguraPosPrinter(1); end; end else begin ACBrNFe1.DANFE := ACBrNFeDANFCEFR1; if FOLHAA4 = False then begin ACBrNFeDANFCEFR1.FastFile := Pat + 'DANFeNFCe3_50.fr3'; end else begin ACBrNFeDANFCEFR1.FastFile := Pat + 'DANFeNFCeA4.fr3'; end; if LOGOTIPO = '' then begin if FileExists(ExtractFilePath(Application.ExeName) + 'logo_nfe_transparente.png') then begin ACBrNFeDANFCEFR1.Logo := ExtractFilePath(Application.ExeName) + 'logo_nfe_transparente.png'; end; end else begin ACBrNFeDANFCEFR1.Logo := LOGOTIPO; end; ACBrNFeDANFCEFR1.FastFileInutilizacao := ExtractFilePath(Application.ExeName) + 'INUTILIZACAONFCE.fr3'; ACBrNFeDANFCEFR1.ExpandeLogoMarca := False; ACBrNFeDANFCEFR1.FastFileEvento := Pat + 'EVENTOS.fr3'; ACBrNFeDANFCEFR1.MostraPreview := False ; ACBrNFeDANFCEFR1.Sistema := 'CAIXANFC'; ACBrNFeDANFCEFR1.Site := ''; ACBrNFeDANFCEFR1.Impressora := NOMEIMPRESSORA; ACBrNFeDANFCEFR1.ImprimeEmUmaLinha := True ; ACBrNFeDANFCEFR1.ImprimeTributos := trbSeparadamente; ACBrNFeDANFCEFR1.DescricaoPagamentos := [icaTipo,icaBandeira,icaAutorizacao]; ACBrNFeDANFCEFR1.ViaConsumidor := VIACONSUMIDOR; ACBrNFeDANFCEFR1.ImprimeQRCodeLateral := True; ACBrNFeDANFCEFR1.ImprimeItens := True; end; except end; end; FDataModule.AtualizaACBr; FDataModule.ACBrNFe1.NotasFiscais.Clear ; FDataModule.ACBrNFe1.WebServices.Enviar.Sincrono := True; FDataModule.ACBrNFe1.WebServices.Enviar.Lote := '1'; FDataModule.ACBrNFe1.Configuracoes.Arquivos.Salvar := False ; FDataModule.ACBrNFeDANFCEFR1.ViaConsumidor := VIACONSUMIDOR; FDataModule.ACBrNFeDANFCEFR1.ImprimeItens := True; FDataModule.ACBrNFeDANFCEFR1.vTroco := edtTroco.Value ; try FDataModule.ACBrNFe1.Enviar('1', False ,True); except on E: Exception do begin error := True; MensagemErro := E.Message; end; end; if error = False then begin ChaveNfc := FDataModule.ACBrNFe1.NotasFiscais[0].NFe.procNFe.chNFe; Protocol := FDataModule.ACBrNFe1.NotasFiscais[0].NFe.procNFe.nProt; cStat := IntToStr(FDataModule.ACBrNFe1.NotasFiscais[0].NFe.procNFe.cStat) ; xmotivo := FDataModule.ACBrNFe1.NotasFiscais[0].NFe.procNFe.xMotivo ; Resultado := TratarRetornoSemErro(cStat,xmotivo,Protocol,ChaveNfc,Caminho,ChaveAtual,NomeA,IDNFC); end else begin //Voltou com erro Resultado := TratatarRetornoComErro(MensagemErro,ChaveNfc,ChaveAtual,Caminho,NomeA,IDNFC); end; Pessoal gostaria de saber de vocês se tem algum procedimento que está faltando, pois minhas notas estão voltando com retorno de duplicidade no primeiro envio , e em alguma vezes cai no exeption com Connection TimeOut, porem a nota é transmitida. mesmo eu colocando o time para 60.000

Pessoal estou com problemas quando envio o comando ACBrTEFAPI1.Inicializar tem dias que chega a demorar 30 minutos, oporem se eu desligar o computador e ligar novamente vai rapidinho. Outro problemas é quando a venda com cartão é por aproximação, ao passar o cartão o pinppad fica com a telinha toda branca, e após enviar o comando ACBrTEFAPI1.EfetuarPagamento() demora pra caramba pra voltar a resposta e o sistema fica travado porque ACBrTEFAPI1 bloqueia o mouse e teclado. se alguem puder mim dá uma dica do que pode ser isso e de como resolver eu agradeço

exatamente, o certificado foi revogado pela certificadora, o que acho estranho é que consigo emitir NFC-e, cancelar NFC-e, Consultar NFC-e, só está acusando revogação quando se trata de NF-e. mas as providencias já foram tomadas pelo cliente, com a emissão de um novo certificado, pois foi constatado pela propria certificadora que o funcionário da certificadora cometeu um erro, o qual eu não sei.