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

Será que não tem ninguem mais com esse problema e que tiveram que atualizar o acbr? Rafa

Obrigado Italo, ficarei no aguardo. Estou pensando em achar uma versão mais antiga do acbr NFSe e recompilar o pacote de componentes, você acha que teria chance de funcionar? Rafa

Bom dia Italo, como faço pra saber então, pois preciso resolver esse problema. Rafa

Italo, pelo que vejo é erro relacionado ao fortes report sim, teria como saber com qual versão do fortes foi desenvolvido o DANFSe? Pois assim eu posso encontrar a versão do fortes certa intalar e testar. No aguardo. Obrigado. Rafa.

Olá pessoal, estive observando o tópico a seguir e estou com o mesmo problema, ao emitir a nfs-e apresenta a mensagem de erro, a nfs-e nem chega a aparecer na tela, pelo que ví a solução seria voltar versão, mas não tenho como fazer isso, qual a dica do pessoal mais experiente pra resolver isso na versão atual do acbr, estou usando delphi xe4 com acbr atualizado. Obrigado. Rafa Que DEUS abençoe sempre os mantenedores do projeto ACBr.

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

Boa Tarde pessoal. Preciso uma ajuda meio que urgente de alguem. Quando gero o registro A020, no campo em destaque aparece um valor estranho, onde deveria aparecer o numero do documento, sendo que estou indormando o numero 2. with RegistroA020New do begin IND_OPER := tplSaidaPrestacao; IND_EMIT := edlEmissaoPropria; COD_PART := ''; COD_MOD := '2'; COD_SIT := sdlRegular; SER := '5'; SUB := '5'; NUM_DOC := 2; DT_DOC := DataM.IBQOSDATAEHORACADASTRO.AsDateTime; COP := DataM.IBQOSCODIGOLISTASERVICO.AsString; COD_MUN_SERV := DataM.IBQOSCODCIDADE.AsInteger; COD_NAT := ''; VL_DOC := 2.2; IND_PGTO := tplVista; VL_SUB := 2.2; VL_DESC := 2.2; VL_SERV := 2.2; VL_MAT_PROP := 2.2; VL_MAT_TERC := 2.2; VL_DA := 2.2; VL_BC_ISS := 2.2; VL_ISS := 2.2; VL_BC_RT_ISS := 2.2; VL_RT_ISS := 2.2; COD_INF_OBS := '' end; DataM.IBQOS.Next; end; registro gerado: |A020|1|0||2|0|5|5|26041903|08112013|0101|4204301||01011900|0|01011900|01011900|01011900|01011900|01011900|01011900|01011900|01011900|01011900|01011900||

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