Arnaldo Cruz

Fiz a modificações agora esta em 3 segundos, obrigado Waldir Paim sua ajuda foi fundamental

Criei pelo regedit KeepAliveTimeout DWORD 100 ServerInfoTimeout DWORD 100 mais aparentemente não mudou em nada até aumentou o tempo de 12 segundos pra 17 segundos pra transmitir

Waldir Paim Perdoe minha ignorancia mais o KeepAliveTimeout é o mesmo que timeOut ? a configuração do componente ACBrNFe está como segue abaixo Intervalo de tentativas 5000 Tentativas 5 TimeOut 5000 o TimeOut não é só um tempo de espera, lugares que tem a conexão baixa

Para NF-e Gerador.wCampo(tcStr, 'V01', 'infAdProd', 01, 500, 0, nfe.Det.infAdProd, DSC_INFADPROD); Para NFC-e Gerador.wCampo(tcStr, 'V01', 'infAdProd', 01, 500, 0, DSC_INFADPROD, nfe.Det.infAdProd);

colegas consegui aparentemente resolve fazendo alteração como abaixo, só alterei a sequência dos parâmetros 7 e 8 unit pcnNFeW; procedure TNFeW.GerarDet; var i: Integer; begin for i := 0 to nfe.Det.Count - 1 do begin Gerador.wGrupo('det nItem="' + IntToStr(nfe.Det.Prod.nItem) + '"', 'H01'); Gerador.gtCampo('nItem', IntToStr(nfe.Det.Prod.nItem)); (**)GerarDetProd(i); (**)GerarDetImposto(i); if nfe.Det.pDevol > 0 then (**)GerarDetDevol(i); Gerador.IDNivel := 'H01'; //Gerador.wCampo(tcStr, 'V01', 'infAdProd', 01, 500, 0, nfe.Det.infAdProd, DSC_INFADPROD); Substitui esta Gerador.wCampo(tcStr, 'V01', 'infAdProd', 01, 500, 0, DSC_INFADPROD, nfe.Det.infAdProd); Por Esta Gerador.wGrupo('/det'); end; if nfe.Det.Count > 990 then Gerador.wAlerta('H02', 'nItem', DSC_NITEM, ERR_MSG_MAIOR_MAXIMO + '990'); end; os parâmetros são TIPO,ID,TAG,MIN,MAX,OCORRÊNCIA,VALOR,DESCRIÇÃO,PARSETEXTOXML,ATRIBUTO O conteúdo da informação adicional está vindo na DESCRIÇÃO E O VALOR ESTA VINDO VAZIO Pergunto esta alteração pode prejudicar alguma outra parte que utilize a sequencia de parâmetros existentes ?

Melhorei a imagem para melhor entendimento

Galera na minha NFC-e em um cliente que vende eletroeletrônico e necessário informar o numero de serie do produto para efeito de Garantia. Estou informando na tag infAdProd. O problema é que se na nota tiver mais de um item e todos os itens tiver informações adicionais, no danfe sai embaixo de cada item a informação adicional, porem se na nota tiver mais de um item e só um item tiver informação adicional no danfe a informação adicional sai somente no final. o cliente quer que sai embaixo do item. Pergunto daria pra fazer igual a NFe que a informação sai embaixo do item indiferente de qu7antos itens tenha a NFC-e ? A imagem mostra como fica o danfe com informação em todos os itens e informação em apenas um item Obrigado

Colegas é possivel fazer esta tarja preta com o texto conforme a imagem abaixo

Lado esquerdo a visualização na tela Lado Direito a impressão Existe alguma forma de fazer com que o corte fique logo abaixo da tarja preta, atualmente está cortando 2 cm após a tarja preta nas Bematech e 3,5 cm nas Daruma. Qualquer dica eu agradeço

Produção ou Homologação? >>>>>>>.Produção Qual o certificado utilizado? >>>>>>>>A1 Qual SEFAZ aplicou os testes?>>>>>>PB Qual seu ambiente de desenvolvimento? Delphi se sim qual versão?>>>>>> Delphi XE7 Qual sistema operacional? >>>>> Win7 64bits processador I7 Qual antivirus? >>>>>>>Avast Qual HD (Solido ou Disco)? >>>>>>500GB

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.