Arnaldo Cruz

Colegas após muita reclamação dos nossos clientes ref tempo de transmissão e não encontrarmos solução, resolvemos convidar algumas softhouse de amigos da região para um comparativo de tempo de transmissão. pegamos seis maquinas com a mesma configuração, e sistema com 4 linguagem distintas sistemas feitos em delphi com ACBR , usamos 3 sistema distintos para caso houvesse um disparate de tempo concluir que a causa seja a concepção do código. 3 que não usam o ACBR (1 C# - 1 vbNET - 1 PHP) todos com a mesma logica e o mesmo banco de dados Firebird 1 Gera o XML 2 grava a nfc no banco de dados 3 Transmite 3 itens cada nfc Internet com 5MB exclusiva fizemos os testes em dois periodos sempre usando o mesmo ponto de internet uma maquina por vez. 9:00 da manhã e 4:30 da tarde os que usam acbr manhã chegou a variar de 12 segundos a 0:01:10 e a tarde 12 segundos não houve nenhum disparate de tempo entre sistema os que não usam o acbr manhã 5 segundos e tarde 3 segundos. ================================== Pergunto para os colegas mais experiente estes tempos gasto pelos sistema feitos em Delhi com ACBr seria +- o tempo que gastam o sistema de vocês para transmitir a NFC-e?

Nunca tinha percebido isso, pois nos testes sempre é uma pagina. porem quando fui exportar um relatorio de produtos com 2 ou mais paginas da access violation. Segui o tópico onde diz que o erro está na unit frxExportPDF linha 721, onde teclando Ctrl e clicando na unit da seção USE, ela seria aberta, no meu caso não abre a unit, simplesmente não acontece nada, o mouse fica houglass e depois volta para default. Alguém sabe como resolver estes dois problemas. 1 - Exportação para pdf com mais de uma pagina. Obs. este erro só acontece pelo preview do fast, botão PDF, se eu fizer a exportação via codigo não dá erro. 2 - A não abertura da Unit quando teclado Ctrl e clicado na Unit contida na USE Obrigado

Esta mesmo embutido na data porem a data só volta a data sem a hora

Seleciono o xml para da entrada da mercadoria só fui observar isso hoje que ListaE.hSaiEnt := TimeToStr(Ide.hSaiEnt) sempre volta 00:00. ALguem sabe como pegar a data de emissão da NF-e na hora de da a entrada da nota. Obrigado

A diferença é que o fator de vencimento ultima coluna da linha digitavel é preenchida com zeros 00000.00000.00000.000000.00000.000000.0.00000000000000 e alguns bancos utilizam a data de processamento ou emissão para saber se o boleto está vencido, geralmente 15 dias da data de processamento ou emissão

Apareceu uma necessidade,em um cliente o funcionário gera os boletos,gera a remessa e envia para o banco. porem não imprime os boletos, como a impressora está em rede e em outro andar em um setor que se encarrega de enviar os boletos para os clientes. Os caras estão culpando o sistema dizendo que mandaram a impressão e o sistema não imprimiu. Estou usando ACBrBoleto com ACBrBoletoFCFR1, tem como saber se o usuário clicou no botão print, pois a situação é que está a palavra dele contra a minha, eu estou dizendo que se clicar em print vai ao menos mandar para impressora, e eles dizem que estão clicando no print e não imprime, eu fui até lá fiz os testes e imprimiu todos os boletos que eu mandei, ai os caras falam, imprimiu agora mas antes não imprimiu. desliguei a impressora e mandei um print, os boletos ficaram no spool, assim que liguei começou a impressão. Agora se tiver como verificar se o cara clicou no print ai eu quebro as pernas deles.

Estou enviando email da NF-e e Boleto pelo ACBREMAIL, são enviados com sucesso, porem percebi que todos emails caem na quarentena , já teste com hotmail - bol - gmail - R7 tambem fiz teste mudando as propriedades FDataModule.ACBrMail1.SetSSL := com True e False FDataModule.ACBrMail1.SetTLS := com True e False meu provedor de email requer conexão segura

Estou tendo muitos problemas com certificado digital A3 na emissão da NFC-e, faço a transmissao da erro, quando tento transmitir na segunda vez aparece a mensagem pedindo o pin do certificado digital, ai digito e a nfc-e é transmitida. isso acontece quando o computador entra em modo de descanso, ou até mesmo quando o intervalo entre as emissões é muito grande. lembrando que sempre antes de gerar o xml eu atualizo as configurações do componente. Pergunto : tem com antes de gerar xml, verificar se o certificado está conectado na usb, ou está ativo a Leitora

Eu tive algo parecido 5 vezes não mas umas 3 vezes era comum. Resolvido conforme abaixo. Desabilitei o descanso de tela e economia de energia para nunca no painel de controle. Localizei a Porta USB 2.0 e Conectei o Certificado nesta porta., antes estava numa porta 1.0

Estou enviando a NFC-e como segue abaixo Protocol := ''; Recibo := ''; ChaveNfc := ''; EdtProtocolo := ''; edtRecibo := ''; NomeArqOR := ''; NomeArq := ''; NovoCaminho := ''; FDataModule.ACBrNFe1.NotasFiscais.Clear ; FDataModule.ACBrNFeDANFeESCPOS1.ViaConsumidor :=False; FDataModule.ACBrNFeDANFeESCPOS1.NumCopias := edtNumeroVias.AsInteger ; FDataModule.ACBrNFe1.NotasFiscais.LoadFromFile(Caminho); //Carrego o xml gerado FDataModule.ACBrNFe1.Enviar('1',False ,False ); cStat := IntToStr(FDataModule.ACBrNFe1.WebServices.Retorno.cStat); Protocol := FDataModule.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; Recibo := FDataModule.ACBrNFe1.WebServices.Retorno.NFeRetorno.nRec; ChaveNfc := FDataModule.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; if cStat = '100' then begin if Protocol <> '' then begin Aqui verifico se já existe o numero de protocolo gravado no banco de dados if não existe no banco de dados then begin Gravo no banco de dados O problema é que volta cStat 100, volta o numero do protocolo porem quando eu consulto no site a NFC-e não foi transmitida. end else begin Aqui as vezes volta o protocolo e recibo da penultima nota transmitida Só acontece em clientes que usam Certificado A3 end; end; end;

Estou executando a manifestação das nota Fazendo o download Normal. porem alguns xml não baixam de jeito nenhum Tipo tem 20 xml manifestados Ao fazer download o sistema baixa 8 xml em dois volta "Pedido de Download Processado" e a partir dai não baixa mais todo dia acontece isso, as vezes dois xmls outras 1xml outros dias 3 xml e outros dias baixam todos. nos que baixa volta Stat = 140 nos Pedido de Download Processado volta Stat = 139 eu faço como abaixo FDataModule.ACBrNFe1.DownloadNFe.Download.CNPJ := CnpjEmpresa; FDataModule.ACBrNFe1.Configuracoes.Arquivos.PathSalvar := Caminho + '\'; FDataModule.ACBrNFe1.Configuracoes.Arquivos.DownloadNFe.PathDownload := Caminho + '\'; FDataModule.ACBrNFe1.Download; if (stat = 139 ) or (stat = 140 ) then if FileExists(local) then // verificao se o xml existe na pasta

Não sei se este é o lugar certo mas. Quando tento baixar o ACBR está dando a seguinte mensagem anexa

while not cdsBoleto.Eof do // Dataset com todos os boletos begin ACBrBoleto1.ListadeBoletos.Clear; Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin //Dados do Boleto CodCedente := CodCedente; end; ACBrBoletoFCFR1.NomeArquivo := gsAppPath + 'Boletos\' + cdsBoletoDOCUMENTO.AsString +'.pdf'; ACBrBoletoFCFR1.GerarPDF; cdsBoleto.Next; end;

segue anexo o arquivo de log log_Delphi_XE7.txt

passei um bom tempo sem emitir NFC-e, fui emitir uma hoje e recebi a seguinte mensagem de erro Estou emitindo pelo UF PB (paraiba) Rejeição : Endereço do Site da UF da Consulta Via QR-Code Diverge do previsto Limpei todo ACBR com o arquivo apagarAcbr.bat deletei a pasta do ACBR, criei uma nova e baixei novamente o ACBR Quando vou instalar não compila o ACBRSerial.dpk. Se um dos colegas puder mim dá uma dica de como resolver eu agradeço.

cara parece brincadeira - mas perguntei a todos os contatos do skype sobre ter mim vendido o exemplo e todos dizem que não foi ele, mas lembro que em um post eu citei o nome do sujeito e passei o skype dele, pesquisa aqui no forum que tu acha. QUalquer coisa mim dá um alô.

Estive observando o comportamento do componente NF-e. Executo a consulta FDataModule.ACBrNFe1.DistribuicaoDFe( StrToInt(vsEdtIBGEUF),CnpjEmpresa,edtNSU.Text,''); Retorna 10 notas a maior data de 3 dias anterior a data atual todas dentro de 15 dias. Quando executo a manifestação while not cdsManifesto.Eof do begin FDataModule.ACBrNFe1.EventoNFe.Evento.Clear; with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.cOrgao := 91; infEvento.chNFe := edtChave.Text; infEvento.CNPJ := CnpjEmpresa ; infEvento.dhEvento := Date; infEvento.tpEvento := teManifDestConfirmacao; end; FDataModule.ACBrNFe1.EnviarEvento(1); with FDataModule.AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= IntToStr(cStat); end; if (lMsg ='135') or (lMsg ='136') or (lMsg ='573') then begin Manisfestada; end; end; Algumas notas não manifestam nem a pau No Download das manifestadas while not cdsManifesto.Eof do begin if cdsManifestoSITUACAO.AsString = 'Confirmada' then begin with FDataModule.ACBrNFe1.DownloadNFe.Download.Chaves.Add do begin chNFe := cdsManifestoCHAVE.AsString ; end; try FDataModule.ACBrNFe1.DownloadNFe.Download.CNPJ := CnpjEmpresa; MesNome := FormatDateTime('MMMM', cdsManifestoEMISSAO.AsDateTime); AnoAr := FormatDateTime('yyyy', cdsManifestoEMISSAO.AsDateTime) ; Caminho := gsAppPath + 'XMLRecebido\' + MesNome + AnoAr ; if not DirectoryExists(Caminho) then begin ForceDirectories(Caminho); end; Caminho := Caminho + '\' ; FDataModule.ACBrNFe1.Configuracoes.Arquivos.PathSalvar := Caminho; FDataModule.ACBrNFe1.Configuracoes.Arquivos.DownloadNFe.PathDownload := Caminho; FDataModule.ACBrNFe1.Download; stat := FDataModule.ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat; if (stat = 139 ) or (stat = 140 ) then begin Efetuou download end; end; end; Algumas notas não faz o download nem a pau Alguem já passou por isso Obrigado

Na NFC-e não utllizo o componente ECF, , mas na verdade quem mim ensinou foi um camarada aqui do forum, eu comprei um exemplo dele usando o ACBRTEF na NFC-e

Eu utilizo somente o componente TEFD, já homologuei paygo e estou no final da homologação CAPPTA

Instalei o Delphi Berlim em uma maquina, levou 3 dias pra baixar todos todos SDKs pelo Tools. depois percebi que instalei na maquina errada. Pergunto. Se eu instalar o Delphi berlim na maquina correta e copiar apenas a pasta do sdk "C:\Users\Public\Embarcadero\Studio\18,0\PlataformSDKs\android-sdk-windows" e "C:\Users\Public\Embarcadero\Studio\18,0\PlataformSDKs\android-ndk-r9c" o delphi vai funcionar corretamente nos projetos android ? Obrigado

colegas podem mim tirar uma duvida emito uma NFC-e no modo Off-line quando a internet volta carrego o xml e faço a transmissão <tpImp>4</tpImp> <tpEmis>9</tpEmis> <cDV>3</cDV> <tpAmb>1</tpAmb> <finNFe>1</finNFe> <indFinal>1</indFinal> <indPres>1</indPres> <procEmi>0</procEmi> <verProc>ACBrNFe</verProc> <dhCont>2016-08-04T09:09:26-03:00</dhCont> <xJust>Problemas tecnicos no envio do cupom eletronico</xJust> A Nfc-e é recepcionada pelo sefaz, pego numero de protocolo,recibo e data de recebimento. Porem quando mando imprimir não sai no rodape o protocolo da nfc-e. fui depurando o fonte do ACBr e cheguei na parte do código abaixo // protocolo de autorização if FpNFe.Ide.tpEmis <> teOffLine then begin FPosPrinter.Buffer.Add(ACBrStr('<c>Protocolo de Autorização')); FPosPrinter.Buffer.Add('<c>'+Trim(FpNFe.procNFe.nProt) + ' ' + IfThen(FpNFe.procNFe.dhRecbto <> 0, DateTimeToStr(FpNFe.procNFe.dhRecbto), '') + '</fn>'); end; Se o modo for offline o acbr não imprime, ai não teria que ter uma condição a mais tipo como abaixo if (FpNFe.Ide.tpEmis <> teOffLine) or Trim(FpNFe.procNFe.nProt) <> '' then Qualquer dica será bem vinda

Quando gero o xml conforme abaixo mesmo eu alterando o numero da NFC-e está gerando o mesmo numero de chave FDataModule.ACBrNFe1.NotasFiscais.Clear ; Ide.cNF := FrmCaixa.lbCupom.AsInteger ; Ide.nNF := FrmCaixa.lbCupom.AsInteger; FDataModule.ACBrNFe1.NotasFiscais.Items[0].GravarXML('',NomeA) ; o arquivo e gerado correto com a chave correta não se repete pra pegar a chave da nfc-e tentei desse jeito pra pegar a chave Resposta.Chave := Copy(FDataModule.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); tentei assim tambem Chave := ExtractFileName(FDataModule.ACBrNFe1.NotasFiscais.Items[0].NomeArq) ; Resposta.Chave := LeftStr(ChangeFileExt( Chave , ''),44) algumas vezes chega a repetir a mesma chave pra 3 notas com números diferentes a sequencia no meu fonte está como descrito acima ;

Estou gerando os boleto como segue if GerarTitulos then begin Adiciono os titulo(gero 50 boletos com vencimentos diferentes e clientes diferentes) end; ACBrBoleto1.Imprimir ; cada boleto ganha um documento composto por 'M MM YYYY CCCC' M = Tipo de Boleto MM = Mes YYYY = Ano CCCC = codigo do cliente Estou querendo salvar cada boleto em PDF como o nome do conteudo do Documento Obrigado

1 - Dá pra usar sim com a nfe 2 - Sim 3 - Não precisa de homologação - vc precisa somente homologar o seu TEF, paygo,softexpress,cappta etc.

Já tentaram na chamada da forma de pagamento com cartão limpar transações pendentes. tipo if formaDePagemnto = 'CARTAO' then begin if falhar( ACBrTEFD.CancelarTransacoesPendentes;) begin Veriricar se tem arquivo e deletar end if end if