Rafa2012

Obrigado JoseadolFojr e Régys, ao menos consegui agora fazer a chamada do GP, estou com problema ao iniciar a impressão do CCD fica dizendo: Erro na impressão. Deseja tentar novamente ? Vou resolver isso qualquer coisa posto novamente, coloquei o comando acima e funcionou perfeitamente, agora, não entendi porque copiei extamente igual ao fonte do Demo e mesmo assim não funcionou, enfim, agradeço a ajuda. Obrigado. Rafa

Olá Régys, no demo funciona legal com exceção se eu der desconto, se colocar desconto mesmo no demo ele não imprime nada, ele para depois que a transação é aprovada pela operadora, mas isso vou ver depois, agora não estou nem conseguindo chamar o GP, no caso agora estou usando V$Pague, estou tentando achar onde ele tá parando, pra ter ideia ondem apaguei tudo o que tinha feito de tef e comecei tudo do zero hj copiando os códigos do demo, mesmo assim não chama o GP. Depois desse evento ele parte pra qual evento? Se conseguir me dar uma luz do que pode ser vou mexendo, porque já revisei tudo umas 5 vezes já e nada. Obrigado. Rafa

Olá, a primeira mensagem é: retorno = P Depois joga novamente: Retorno = 10 e depois disso ele trava porque entra em loop Obrigado. Rafa

Olá Régys, sim, coloquei um ponteiro (showmessage) e o comando CRT é executado no delphi, mas depois dele ele entra em loop nesse evento: procedure TFVenda.ACBrTEFD1InfoECF(Operacao: TACBrTEFDInfoECF; var RetornoECF: string); var ASubTotal: Double; begin case Operacao of ineSubTotal : begin ASubTotal := ACBrECF1.Subtotal ; if StrTOFloat(EdtAcrescimoRS.Text) > 0 then ASubTotal := ASubTotal - ACBrECF1.TotalPago + StringToFloatDef(EdtAcrescimoRS.Text, 0); if StrTOFloat(EdtDescontoRS.Text) > 0 then ASubTotal := ASubTotal - ACBrECF1.TotalPago + StringToFloatDef('-'+EdtAcrescimoRS.Text, 0); RetornoECF := FloatToStr( ASubTotal ) ; Showmessage(' retorno = ' + RetornoECF); end; ineEstadoECF : begin Case ACBrECF1.Estado of estLivre : RetornoECF := 'L' ; estVenda : RetornoECF := 'V' ; estPagamento : RetornoECF := 'P' ; estRelatorio : RetornoECF := 'R' ; estNaoFiscal : RetornoECF := 'N' ; else begin RetornoECF := 'O' ; end; end; end; end; end; Ele entra em loop no showmessage. Obrigado desde já. Rafa

Olá pessoal, estou enviando o seguinte comando: if DataM.ACBrECF1.Estado <> estPagamento then begin DataM.ACBrECF1.SubtotalizaCupom(0,EdtMensagemRodape.Text); FVenda.ACBrTEFD1.CRT( StringToFloatDef('10.00', 0) ,'02', FVenda.ACBrECF1.NumCOO); No arquivo de logo ele me mostra o seguinte: -- 28/07 11:04:56:320 - TEF_DIAL IniciarRequisicao: ATV -- 28/07 11:04:58:066 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 28/07 11:04:58:068 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 28/07 11:04:58:514 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 28/07 11:05:11:476 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 28/07 11:05:12:346 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 28/07 11:05:13:930 - InfoECF: ineEstadoECF -- 28/07 11:05:15:354 - Ret: P -- 28/07 11:05:15:355 - InfoECF: ineSubTotal -- 28/07 11:05:16:755 - Ret: 2 -- 28/07 11:05:16:756 - InfoECF: ineTotalAPagar Já mexi um monte no código, e não consegui fazer ele executar o CRT, o que posso estar esquecendo ou fazendo errado? Obrigado. Rafa

Ok, muito obrigado, estarei fazendo isso qualquer coisa posto novamente aqui. Fica com Deus. Rafa

E quando acontece isso usando o delphi XE4? Não estou conseguindo achar a solução mas estou procurando na net ainda... agradeço se alguém souber ajudar. Rafa

Bom dia Juliomar, obrigado pela informação, então estarei mudando o programa pra não fazer mais essa alteração de horário involuntária, ocorre que na certa o computador dela está sempre com o horário adiantado do ecf, nesse caso ele está mudando sempre pra cima 5 minutos a cada RZ. Obrigado pela ajuda. Rafa

Olá pessoal, estou enfrentando um problema no mínimo inusitado, ao enviar o comando: ACBrECF1.ReducaoZ(DataDoECF); ele avança a hora da ecf em 5 minutos exatos, acompanhei num cliente e fiquei pasmo, só fui dar atenção ao que ele me dizia quando ele me disse que o ecf dele estava 6 horas adiantada já, aí fui lá ver e realmente, uma bematech 2100 está com mais de 6 horas adiantadas, aí ela me disse que não percebe mas ele adianta cerca de 5 minutos por dia, até que um dia ela me disse que acompanhando a RZ o sistema atualizou a hora da tela adiantando 5 minutos logo após a RZ, então fui acompanhar e realmente ocorreu isso hj no final do dia, mexi no código com minha ecf (daruma fs700 mach 2) de testes (aberta, deslacrada) e ocorreu o mesmo problema. Pergunto: O que fazer se estou executando assim: if ACBrECF1.estado = estRequerZ then begin DataDoECF := ACBrECF1.DataHora; OldTimeOut:= ACBrECF1.TimeOut; try ACBrECF1.TimeOut := 1200; RZPendente := False; ACBrECF1.ReducaoZ(DataDoECF); finally ACBrECF1.TimeOut := OldTimeOut; end; Delay(3000); Até estava vendo na demo do acbr e tem a opção de enviar ou não a hora atual, pra que serve isso? O que fazer pra resolver essa pendenga? Obrigado a todos pela ajuda. Rafa

Boa tarde pessoal. Ao emitir uma NFe, ocorre este erro ''2,00 is not a valid floating point value'' no momento de assinar a nota. ACBrNFe1.NotasFiscais.Assinar; Debuguei e consegui chegar até ao código abaixo aonde acontece o erro. Self.Items.NFe.infNFe.Versao := DFeUtil.StringToFloat(GetVersaoNFe(FConfiguracoes.Geral.ModeloDF, FConfiguracoes.Geral.VersaoDF, LayNfeRecepcao)); Aparentemente ele esta trocando a ',' pelo '.' na função GetVersaoNFe Agradeço Att; Rafa

Olá Juliomar, perdão pela pergunta básica, eu estava tentando achar alguma coisa na internet ou no site do projeto, eu eu esqueci que eu já tenho ela nos fontes do acbr. Obrigado e perdão pela falha. Rafa

Olá pessoal, gostaria de saber onde busco uma tabela de cidades atendidas pelo componente ACBrNFS-e. Obrigado. Rafa

Oi, acabei esquecendo de verificar, seu que eu poderia ter feito uma procura pra ver onde estava parando, quando voltar a ocorrer, se é que vai ocorrer vou fazer aí posto o resultado, até pensei que alguém já tivesse passado por isso. Obrigado. Rafa

Olá pessoal, uso delphi Xe com acbr atualizado em 10/11/2013 as 01:50:00, consultando um cnpj pelo site http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp se o site da receita está fora do ar, ele retorna essa mensagem: Contribuinte, Número do CNPJ : 17089484000190 2. No momento não podemos atender a sua solicitação. Por favor tente mais tarde. Consulta realizada em 10/11/2013 às 01:55:13 Ao fazer uma consulta com o site fora do ar usando o ACBrConsultaCNPJ com o comando: ACBrConsultaCNPJ1.Consulta(Editcnpj.Text, FCaptchaRFB.EdtCaptcha.Text); ele retorna a mensagem de erro: List index out of bounds(19) Tentei dar uma mexida no componente mas não consegui resolver, acho melhor deixar pra quem entende, teria como resolver isso? Obrigado. Rafa

Olá Régys, perdão pela demora pra voltar no tópico, mas estive resolvendo problemas pra finalização das mesas abertas na emissão da RZ, baixei fiz o teste e funcionou perfeito, show de bola. Obrigado mais uma vez Régys, que DEUS continue te iluminando, te dando garra e vontade de fazer o projeto ACBr avançar. Abração. Rafa

Achei o problema, eu estava dando um .new novamente. Estou testando os registros, qualquer coisa posto aqui novamente, obrigado Novato pela ajuda. Rafa

Certo, é que pensei que era aberto, agradeço o empenho Régys, se precisar de algo mais é só pedir. Obrigado. Rafa

Isso, esse analisador de arquivo é disponibilizado depois que você paga a pré avaliação, é bem interessante, não pra falar, mas quando fui homologar meu primeiro paf fiz várias pesquisas, nem muito de preço pois todos são bem parecidos, mas testei bem o auxílio, e na FURB (que é bem longe daqui) o atendimento foi muito bom, por isso que estamos fazendo lá, esse analisador funciona muito bem, mas o ACBrValidador é melhor pois é local, não te que fazer up do arquivo etc... por isso estou tentando usar o ACBrValidador, Juliomar você tem os fontes pra mim tentar achar o problema? Grato. Rafa

Olá Régys, segue o link (clique aqui) para o validador, porém precisa estar cadastrado e liberado pelo homologador pra poder validar, segue também o arquivo gerado que estou tentando validar pelo ACBrValidador. Obrigado desde já. Rafa REGISTROS_DO_PAF_ECF_MENU_FISCAL.txt

Olá Régys, só pra constar, estou usando o validador do homologador que é on-line e está validando, agora estou com 99% dos registros certos, estou arrumando a geração dos S2 e S3, só que quero usar o ACBr pra validar pois pela net é mmmmuito lento. Eu procurei os fontes do validador e não encontrei, se quiser eu posso tentar ver o que está errado. Obrigado. Rafa

Oi Régys, exatamente esse que estou tentando validar. Se quiser posso te enviar o arquivo no seu e-mail pra você testar. Obrigado. Rafa

Bom dia pessoal. A geração esta ok agora. Porém continua retronando um registro D2 mesmo sem ter dados. O que pode ser? Agradeço

Bom dia colegas, estou tentando validar arquivo pelo acbrvalidador, baixei agora (18/10/2013) do link do Régys http://www.regys.com.br/downloads/ mas dá o seguinte erro ao validar: Projeto ACBr - Verificador de Arquivos do Paf-ECF Access violation at address 005ACA58 in module 'ACBRVerificadorPAF.exe'. Read of address 00000008. Estou usando o Windows server 2008 R2 64 bits, ER 2.01, tentei colocar em outro pc com o Windows 7 32 bits mas ocorreu o mesmo problema, tentei validar arquivos da ER 01.13 e todos funcionaram, resumindo tem alguma incompatibilidade com a versão da ER 02.01. Alguma dica do que devo fazer pra resolver isso? Rafa

Olá Daniel, era exatamente isso que eu estava fazendo errado, obrigado pelas dicas. Rafa

nananann, Juliomar, agradeço o empenho, você estava certo, olha como fiz pra funcionar: caminhosalvoregistropaf := 'REGISTROS_DO_PAF_ECF_MENU_FISCAL.txt'; ACBrPAF.Path := ExtractFilePath(Application.ExeName)+'Arquivos PAF\'; ACBrPAF.SaveFileTXT_RegistrosPAF(caminhosalvoregistropaf); Meu "tico e teco" não se deram as mãos hoje kkkk, era só entender que o path do componente não deve levar o nome do arquivo, eu estava misturando tudo,affff, obrigado pela ajuda, eu suspeitava que era simples, mas sabe como é, a falta de atenção as vezes faz a gente apanhar feio. Obrigadão mesmo pela ajuda. Que DEUS te abençoe com muita saúde e sabedoria pra que você continue ajudando ao próximo. Rafa