Gr@c@

Cupom Não Totalizado Fiz uma venda de 2,00 e envie um único pagamento Cartão no valor de 2,00 (CliSiTef). Venda = 2,00 Cupom fiscal totalizado = 2,00 Forma de pagamento TEF Cartão = 2,00 A transação TEF foi concluida até o final, com a impressão do comprovante em 2 vias. Cupom finalizado corretamente Mas no final ocorre o erro Cupom Não Totalizado Não estou conseguindo encontrar o motivo do erro, porque não envio mais nada após isso e debugando o processo parece estar correto. segue log para análise. Agradeço a ajuda.

Obrigada, já percebi o erro. conforme o manual do SPED "Este registro deve ser gerado para abertura do bloco H, indicando se há registros de informações no bloco. Obrigatoriamente deverá ser informado “0” no campo IND_MOV no período de referência fevereiro de cada ano.Contribuinte que apresente inventário com periodicidade anual ou trimestral, caso apresente o inventário de 31/12 na EFD ICMS IPI de dezembro ou janeiro, deve repetir a informação na escrituração de fevereiro. No registro H005 Atribuir valor Zero ao inventário significa escriturar sem estoque. Se não houver registro H010, o valor do campo VL_INV do H004 deve ser “0” (zero).".

Estou gerando sped de uma empresa, com bloco H sem movimento (IND_MOV = imSemDados). Porém está exigindo o bloco H005. Não consigo gerá-lo porque não gera sem valor. O que devo fazer? procedure TBloco_H.WriteRegistroH001; begin if Assigned(RegistroH001) then begin with RegistroH001 do begin Add( LFill( 'H001' ) + LFill( Integer(IND_MOV), 0 ) ) ; if IND_MOV = imComDados then =======================> aqui begin WriteRegistroH005(FRegistroH001); end; end; RegistroH990.QTD_LIN_H := RegistroH990.QTD_LIN_H + 1; end; end;

Já que essas certificadoras afirmam que o conteudo do certificado está sendo apagado por aplicativo de terceiros, também deveriam explicar o porquê de serem tão vulnerávels e apresentar o log que comprove quando e como isso ocorreu. Isso pra mim é desculpa esfarrapada e uma tremenda falta de ética profissional para encobrir falhas do produto que comercializam. Que inventem meios de tornar os certificados mais seguros.

Pessoal, estou com duvida de interpretação sobre o registro C175 do Sped Fiscal, onde se lê "exceto pelos contribuintes emissores de NF-e". No caso, a empresa é uma industria que fabrica carretas de engate e emite NFe (com a tag de veiculos novos). Devo gerar o registro C175 no Sped Fiscal ou não? REGISTRO C175: OPERAÇÕES COM VEÍCULOS NOVOS (CÓDIGO 01 e 55). Este registro deve ser apresentado pelas empresas do segmento automotivo (montadoras-capítulo 87 da NCM, concessionárias e importadoras) para informar os itens relativos aos veículos novos. Deve ser informado nas operações de entrada e saída (exceto pelos contribuintes emissores de NF-e), exceto quando se tratar de operações de exportação. É considerada faturamento direto toda operação efetuada nos termos do Convênio ICMS nº 51/2000. Não podem ser informados, para um mesmo registro C175, dois ou mais registros com o mesmo valor do campo CHASSI_VEIC.

Com a Bematech MP 3000 TH FI estou tendo, algumas vezes: -retorno da mensagem "ACBrECF ocupado Aguardando resposta do comando anterior". -Comando com retorno lento -Erro ACK Impressora não responde. Pergunta: existe uma configuração sugerida para a impressora Bematech? ACBrECF.Device.ProcessMessages= ACBrECF.IntervaloAposComando = ACBrECF.Retentar= ACBrECF.TimeOut= Ou mais alguma que possa interferir na agilidade de envio e recebimento de comandos? Quais os valores normalmente usados nessas configurações?

Eu havia colocado o evento OnComandaECFPagamento, porém devo ter mexido e retirado ele por engano do componente. O evento estava apenas no fonte e não estava setado no componente. Obrigada Elton pela dica.

Se você analisar os prós e contras de usar a dll do fabricante ou de usar o ACBrECF, verá que o ACBr tem mais vantagens, e isso eu aprendi por experiência própria: Usando a dll do fabricante, seu software fica exclusivamente funcional para essa marca. Usando o ACBr seu software funcionará para diversas outras marcas (e isso, na hora de vender o seu software, faz uma grande diferença porque entra aí a competitividade e a maleabilidade do seu aplicativo). Usando a dll do fabricante, você terá que desenvolver o TEF que são vários no mercado. Usando o ACBr já temos um componente ACBrTEFD (fantástico) já adaptado para atender TEF de várias administradoras. Usando a dll da fabricante, você terá problemas estranhos no seu software que não existem no software vendido por alguns fabricantes. Coisa que eu nunca entendi, mas como desenvolvedora que sou, sei muito bem porquê. Usando a dll do fabricante, você não tem acesso aos fontes. O ACBr tem os fontes abertos. Isso sem falar nos testes realizados pelos participantes do ACBr, feedbacks, correção de bugs e implementações rápidas que são feitas.

Eu uso o Conversor USB/Serial USB A Macho x Serial Macho marca Multilaser. Porém, ele não é compativel com Windows 8. É compativel com win7 e winxp. Então acho que vale a pena pesquisar por outro que seja compativel com windows 7 e superiores. Lembrando que não ligo ele diretamente na porta serial do ECF. Ligo o cabo serial do ECF nele.

Meus clientes usam o Cnab400. O Cnab240 tinha alguns problemas na homologação e não sei informar se já foram resolvidos no ACBr.

Eu tentei usar o driver da Bematech q converte USB para COM, mas ele é muito instável e a conexão se perde várias vezes. Optei pelo adaptador COM-USB(conecto no adaptador o cabo serial do ECF, porque se a conexão for direta também não fica legal).

Novos testes e ainda não consegui detectar o erro. o fato é que está sendo enviado um comando de cancelartransaçoespendentes. Segue anexo o log de um cupom de 2,00 com pagamento em cartão de crédito de 2,00. Não ocorre a impressão do comprovante e a transação é cancelada. A mensagem final é CACBrTEFD_CliSiTef_TransacaoNaoEfetuadaReterCupom = 'Transação não efetuada.'+sLineBreak+'Favor reter o Cupom' que está na unit ACBrTEFDCliSiTef. CliSiTef.log

Debugando o aplicativo, verifiquei que ocorre um erro nesse momento: function TACBrTEFD.ECFPagamento(Indice: String; Valor: Double): Integer; Var Erro : String ; begin fTefClass.GravaLog( fTefClass.Name +' ECFPagamento: Indice: '+ Indice + ' Valor: '+FormatFloat('0.00',Valor) ) ; Result := -1 ; // -1 = Não tratado OnComandaECFPagamento( Indice, Valor, Result ) ;----------------------> a excessão ocorre aqui if Result < 1 then begin if Result = 0 then Erro := 'Erro ao executar "OnComandaECFPagamento"' else Erro := '"OnComandaECFPagamento" não tratada' ; fTefClass.GravaLog(Erro); raise EACBrTEFDECF.Create( ACBrStr( Erro ) ) end; end; e o evento ACBrTEFD1ComandaECFPagamento está assim. Sendo que o valor do cupom é 0,01 e o valor da forma de pagamento em cartão de crédito é 0,01 procedure TFrm_ECFPrincipal.ACBrTEFD1ComandaECFPagamento(IndiceECF: String; Valor: Double; var RetornoECF: Integer); var Est : TACBrECFEstado ; begin try mmprocesso.Lines.Add( 'ComandaECFPagamento, IndiceECF: '+IndiceECF+ ' Valor: '+FormatFloat('0.00',Valor) ); Est := ACBrECF1.Estado; if Est = estNaoFiscal then ACBrECF1.EfetuaPagamentoNaoFiscal(IndiceECF, Valor) else ACBrECF1.EfetuaPagamento(IndiceECF, Valor); RetornoECF := 1 ; except RetornoECF := 0 ; end; end; o erro de exceção e o log do tef estão em anexo CliSiTef.log

o erro está nessa linha comentada: //procedure ACBrTEFD1CliSiTefObtemCampo(Titulo: String; TamanhoMinimo, // TamanhoMaximo, TipoCampo: Integer; // Operacao: TACBrTEFDCliSiTefOperacaoCampo; var Resposta: {$IFDEF DELPHI7}String{$ELSE}AnsiString{$END}; // var Digitado, VoltarMenu: Boolean); mude para: procedure ACBrTEFD1CliSiTefObtemCampo(Titulo: String; TamanhoMinimo, TamanhoMaximo, TipoCampo: Integer; Operacao: TACBrTEFDCliSiTefOperacaoCampo; var Resposta: String; var Digitado, VoltarMenu: Boolean);

Não estou conseguindo realizar o fluxo completo de uma transação TEF usando o ACBrECF1 + ACBrTEFD + CliSiTef bStatusTransacao := ACBrTEFD1.CRT(VlrFormaPagto, FormatFloat('00',CodFormapagto), Frm_ECFPrincipal.ACBrECF1.NumCOO); if bStatusTransacao then begin bEnviouTEF := True; Inc(IndiceTransacaoTef); if not(Frm_ECFPrincipal.ACBrTEFD1.AutoFinalizarCupom) then begin Frm_ECFPrincipal.mmProcesso.Lines.Add('Pagamento [' + sCRTCHQ + ']' + FormatFloat('#,###,##0.00',VlrFormaPagto) + '][NSU:'+Frm_ECFPrincipal.ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].NSU + '][Rede:'+Frm_ECFPrincipal.ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].Rede+ ']'); Frm_ECFPrincipal.ACBrTEFD1.FinalizarCupom( False ); { False não desbloqueia o MouseTeclado } Frm_ECFPrincipal.ACBrTEFD1.ImprimirTransacoesPendentes; end; sendo VlrFormaPagto = 0.01, CodFormaPagto = 03 = Cartão de Crédito (uma única forma de pagamento usando cartão. O valor do cupom de venda é 0.01) Consigo chegar até a mensagem TRANSACAO OK. E no log, o comprovante está correto. Porém, logo em seguida, vem a mensagem Transação Não Efetuada. Favor Reter o Cupom. O componente está configurado para AutoFinalizarCupom = False. Mas já tentei também = True e não funcionou. Creio que seja a falta do comando ACBrTEFD1.CNF, mas em que momento usar o comando?

o meu ACBrECF.Device.ProcessMessages está True. Setando como false, achei que deu um impacto grande com a bematech mp3000, dando aparência de tela travada. Mas o ExibeMensagem = False aparentemente resolveu o problema. Pergunta: com o exibemensagem=false terei que tratar todos os comandos com try except para mostrar os erros ao usuário?

Ficou OK. Obg.

Refiz todo o processo e deu certo, mostrou a propriedade AlignWithMargins. Obrigada pela ajuda.

Henrique, pode fazer só mais um teste com o meu xml? No demo, coloque ImprimirTotalLiquido = True. No meu estava true e saia errado. Deixei tudo como estava e coloquei False e imprimiu correto. Desculpe, corrigindo, para sair errado é assim: ImprimirDescPorc := true; ImprimirTotalLiquido := true;

no meu não funciona quando o modo é Paisagem e ImprimirDescPorc=True. Vou forçar a minha configuração para aceitar somente ImprimirDescPorc = False até descobrir o que está acontecendo aqui.

coloque ImprimirDescPorc = True no componente. Com desconto em valor está correto.

hleorj, enviei o xml para o seu email.

Sim, exclui a pasta anterior, criei uma nova pasta, atualizei via svn update e depois executei o ACBrInstal para instalar (e cliquei novamente no botão Atualizar para atualizar tudo através do proprio ACBrInstall). Vou refazer todo o processo, porque já esgotei as tentativas.

Não existe outro arquivo com esse nome. O unico arquivo está em C:\ComponentesDelphi7\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes.

Sim, mas mesmo com o Delphi 7 vinha a pergunta de ignorar a propriedade ou eu conseguia alterar manualmente.