Cleber Ferreira

Eu não sei se é por causa dessa reinicialização do pc. Mas se vc puder conferir na sua casa, até mesmo me passar a instalação que vc tem do GP (mesmo achando que deve ser igual). Grato

Após reiniciar o pc, o intpos.001 estava vazio?

testes para Cielo utiliza-se Pay&Go e para Redecard utiliza-se o GP. Instalei o GP aqui também e fui realizar um teste, só que o IntPos.001 também está vazio. Eu creio que lá eles não devam usar esses emuladores que utilizamos. Então Juliomar, tem algum outro emulador que funciona corretamente para eu testar o fluxo por completo do ACBrTEF?

Bom dia a todos! Galera, achei o problema. O emulador do Pay&Go ao ser iniciado, está apagando o IntPos.001 da pasta resp. Por isso o ACBrTEF não conseguia fazer o restando do procedimento. Só para verificar, fiz os seguintes procedimentos: - Antes de iniciar o emulador, fiz uma cópia do IntPos.001 para evitar sua perda. - Iniciei o Pay&Go Client e o arquivo foi apagado da pasta resp como citado anteriormente. - Voltei o IntPos.001 para a pasta resp. Aí vem mais um gargalo. Eu abri o IntPos.001 e o arquivo estava em branco. To começando a achar que esse emulador ta fazendo hora comigo.rsrsrsrs Alguém aí pode dar alguma sugestão?

Galera, dei uma olhada nos fontes aqui, mas infelizmente fico perdido por ter conhecimento de todo o fluxo do componente. Estou com a homologação batendo na porta e preciso terminar o bendito do TEF primeiro. Se alguém puder me dar uma luz a respeito. Grato

Testei como eu disse anteriormente e ao voltar avisa que a transação foi cancelada, mas de fato não foi cancelada no emulador. Lembrando que utilizo Pay&Go

Não cheguei a debugar, mas analisando aqui, se chamar o ACBrECF.Estado vai disparar um exceção porque a ecf está desligada, então que não vá entrar no else do case. Você recomenda colocar o RetornoECF := 'O' ; no except abaixo?

Atualmente meu evento está assim: {try if not ECF.Ativo then ECF.Ativar; except raise; end;} try TEF.BloquearMouseTeclado(True); case Operacao of ineSubTotal : begin ASubTotal := ECF.Subtotal ; if Cupom.vAcrescimo > 0 then ASubTotal := ASubTotal - ECF.TotalPago; RetornoECF := FloatToStr(ASubTotal); end; ineTotalAPagar : RetornoECF := FloatToStr(Cupom.vPago); ineEstadoECF : begin case ECF.Estado of estLivre : RetornoECF := 'L'; estVenda : RetornoECF := 'V'; estPagamento : RetornoECF := 'P'; estRelatorio : RetornoECF := 'R'; estNaoFiscal : RetornoECF := 'N'; else RetornoECF := 'O' ; end; end; end; //TEF.BloquearMouseTeclado(False); except on E : Exception do begin //TEF.BloquearMouseTeclado(False); //MessageDlg(E.Message, mtError, [mbOK], 0); //CarregaTelaCupom(False); //EmOperacao := False; //OperacoesFiscais(False); end; end;

Alguém se habilita?

Pode ser que sim, até que aí tudo bem, tiro minha dúvida com a SEVEN. Mas e quanto a não aplicar o NCN de fato na transação pendente?

Bom dia! Estou realizando os testes de pre-homologação e na sequencia 10 do TEF discado - SEVEN PDV diz o sequinte: - Venda com cartão. Reiniciar o micro durante a impressão da 1ª via. Antes de iniciar a AC, excluir o arquivo de backup do Intpos.001. - A AC deverá manter o arquivo Intpos.001 criado na pasta C:\tef_dial\resp, que será eliminado somente após o envio da terceira perna e confirmação de recebimento desta pelo GP. Ao abrir a AC, a mesma deverá exibir mensagem ao operador: "Última transação TEF cancelada" Rede: / NSU: / Valor: (Obs.: o primeiro arquivo a ser lido deverá ser da pasta C:\tef_dial\resp. O arquivo de backup não poderá ser criado na pasta C:\tef_dial\resp, assim como nenhum outro arquivo deverá ser criado nesta pasta). Bom, perante a isso, reiniciar meu pc e o arquivo Intpos.001 continuou na pasta C:\tef_dial\resp. Depois, fui na pasta onde ACBrTEFD cria o arquivo ACBr_TEF_DIAL_001.tef (backup) e apaguei como manda. Depois que vem o problema. Abri meu programa e é retornado na mensagem apenas "Última transação cancelada", sem REDE, NSU e VALOR e o NCN não acontece. Alguém sabe o porque disso?

Creio que envolve tudo isso aqui que você citou. Lembrando que notas canceladas nem todas as informações são obrigatórias. Recomendo ler o manual da EFD. lá cita essas informações.

Na verdade a carteira estava errada. o correto é 06, mas mesmo assim alguns apareceram com a letra P como digito verificador.

Para regime simples nacional realmente não há calculo do icms normal, até porque o componente ACBrNFe já faz esse tratamento dos campos que serão gerados no xml verificando o cst informado. Então vai sair zerado no danfe mesmo. Para o simples nacional quando há aproveitamento de crédito eu imprimo nas informações complementares a soma do vCredICMSSN. Exemplo: Permite aproveitamento de crédito no valor de R$ vCredICMSSN referente a alíquota de pCredSN.

Boa noite! Dei uma vasculhada mas a pesquisa não me retornou nada. Vejam a situação: Estou gerando um boleto do Bradesco e o nosso número está saindo dessa forma: 02/00000000030-P Aí vem minha dúvida: esse "P" como dígito verificador está correto?

Basta olhar as opções do Menu Fiscal na ER 02.01

De acordo com a ER nova, não se gera mais o espelho MFD. Correto?

Eu andei lendo esses dias sobre as regras sobre boletos no site da FEBRABAN e vi algo sobre não poder imprimir nada nessas colunas à direita (abatimento, multas,....). Só não lembro exatamente eu li. Dê uma pesquisada, quem sabe.

Egdar, você leu acima que o Regys esta terminando a implantação para Daruma? A chamada da função (esqueleto) são as mesmas no âmbito do ACBrECF, mas por trás é tratado cada modelo individualmente. Pessoal vai ter chamar atenção por isso aí.

Regys, estão sendo implementados tanto o Arq. MF quanto o Arq. MFD, correto? Pois olhando os logs de atualização, somente consta Arq. MFD.

me envie um email depois que te encaminho

Regys, aproveitando a deixa mas não fugindo do assunto. Então posso ter o TEF implementado, mas não homologa-lo?

Chave := ACBrEAD1.MD5String( padR(OnlyNumber(Destinatario.CnpjCpf), 14, '0') + padR(IntToStr(NumeroNF), 9, '0') + padR(TiraPontos(FormatFloat('#,##0.00', ValorTotal)), 12, '0') + padR(TiraPontos(FormatFloat('#,##0.00', ICMS_BaseCalculo)), 12, '0') + padR(TiraPontos(FormatFloat('#,##0.00', ICMS_Valor)), 12, '0') );

Mesmo se for, creio que a legislação não permitiria mudança drástica essa no DANFe. Talvez o que poderia ser feito é ir junto a nota, relatório com o código de barras impresso. Mas aí em questão de fiscalização, poderá complicar.

só para complementar, na tabela de reduções é necessário gravar outros valores. Extrai do manual do Sintegra F - Substituição Tributária I - Isento N - Não-incidência CANC - Cancelamentos DESC - Descontos ISS - ISSQN Acompanhar manuais ajuda muito. Sempre grave as informações baseando-se no que é pedido nos manuais, pois quando gerar o momento da geração do arquivo propriamente dito, não será necessário ficar fazendo adaptações d+.