Gr@c@

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.

Executei a opção de remover os arquivos antigos, mas mesmo assim não consigo fazer a alteração. Abri pelo editor de texto, mas não existe essa propriedade AlignWithMargins em nenhum dfm ou pas ref ao danfe do fortes. De onde está vindo essa propriedade? Consigo compilar meu projeto sem nenhum erro, mas ao executar a visualização ou impressão do Danfe fortes em paisagem dá o erro. O erro ocorre exatamente nessa procedure: procedure TACBrNFeDANFeRL.ImprimirDANFEPDF(NFE : TNFe = nil); var sFile: String; var i : Integer; begin try case TipoDANFE of tiRetrato : frlDANFeRL := TfrlDANFeRLRetrato.Create(Self); tiPaisagem : frlDANFeRL := TfrlDANFeRLPaisagem.Create(Self); --------> nesta linha ocorre o erro tiSimplificado : frlDANFeRL := TfrlDANFeRLSimplificado.Create(Self); else frlDANFeRL := TfrlDANFeRLRetrato.Create(Self); end; if NFE = nil then begin for i:= 0 to TACBrNFe(ACBrNFe).NotasFiscais.Count-1 do begin // sFile := TACBrNFe(ACBrNFe).DANFE.PathPDF + // Copy(TACBrNFe(ACBrNFe).NotasFiscais.Items[i].NFe.infNFe.ID, // 4, 44) + '-nfe.pdf'; sFile := TACBrNFe(ACBrNFe).DANFE.PathPDF + StringReplace(TACBrNFe(ACBrNFe).NotasFiscais.Items[i].NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]) + '-nfe.pdf'; frlDANFeRL.SavePDF(Self, TACBrNFe(ACBrNFe).NotasFiscais.Items[i].NFe, FLogo, FMarcaDagua, FLarguraCodProd, FEmail, FExibeResumoCanhoto, FFax, FNumCopias, FSistema, FSite, FUsuario, sFile, FPosCanhoto, FFormularioContinuo, FExpandirLogoMarca, FMostrarStatus, FFonte.FNome, FFonte.FNegrito, FMargemSuperior, FMargemInferior, FMargemEsquerda, FMargemDireita, FCasasDecimais._qCom, FCasasDecimais._vUnCom, FProdutosPorPagina, FImpressora, FFonte.FTamanhoFonte_RazaoSocial, FExibirEAN, FProtocoloNFe, FExibeResumoCanhoto_Texto, FNFeCancelada, FImprimirDetalhamentoEspecifico, FImprimeDescPorc,FImprimeNomeFantasia,fImprimirTotalLiquido, FDetVeiculos, FDetMedicamentos, FDetArmamentos, FDetCombustiveis, fQuebraLinhaEmDetalhamentoEspecifico, Integer ( fCasasDecimais.Formato ), fCasasDecimais._Mask_qCom, fCasasDecimais._Mask_vUnCom, fExibeCampoFatura, fMostraDadosISSQN, fAltLinhaComun, fEspacoEntreProdutos, fAlternaCoresProdutos, fCorDestaqueProdutos ); end; end else begin // sFile := Self.PathPDF + Copy(NFe.infNFe.ID, 4, 44) + '-nfe.pdf'; sFile := Self.PathPDF + StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]) + '-nfe.pdf'; frlDANFeRL.SavePDF(Self, NFe, FLogo, FMarcaDagua, FLarguraCodProd, FEmail, FExibeResumoCanhoto, FFax, FNumCopias, FSistema, FSite, FUsuario, sFile, FPosCanhoto, FFormularioContinuo, FExpandirLogoMarca, FMostrarStatus, FFonte.FNome, FFonte.FNegrito, FMargemSuperior, FMargemInferior, FMargemEsquerda, FMargemDireita, FCasasDecimais._qCom, FCasasDecimais._vUnCom, FProdutosPorPagina, FImpressora, FFonte.FTamanhoFonte_RazaoSocial, FExibirEAN, FProtocoloNFe, FExibeResumoCanhoto_Texto, FNFeCancelada, FImprimirDetalhamentoEspecifico, FImprimeDescPorc,FImprimeNomeFantasia,fImprimirTotalLiquido, FDetVeiculos, FDetMedicamentos, FDetArmamentos, FDetCombustiveis, fQuebraLinhaEmDetalhamentoEspecifico, Integer ( fCasasDecimais.Formato ), fCasasDecimais._Mask_qCom, fCasasDecimais._Mask_vUnCom, fExibeCampoFatura, fMostraDadosISSQN, fAltLinhaComun, fEspacoEntreProdutos, fAlternaCoresProdutos, fCorDestaqueProdutos ); end; finally FreeAndNil(frlDANFeRL); end; end;

Precisei atualizar o meu ACBr do zero e voltei a ter esse erro. Porém, não consigo mais fazer o mesmo procedimento acima, abrindo o ACBrNFeDANFERL para mandar ignorar a propriedade AlignWithMargins. Como proceder?

Pessoal, preciso adquirir um aplicativo de acesso remoto para manutenção/atualização remota de aplicativos (e banco de dados) nos meus clientes. Alguém sabe qual é o melhor em termos de custo e que não necessite que o cliente tenha que adquirir uma licença também?

Estou com esse problema ao imprimir danfe Fortes em formato paisagem. Na NFe abaixo, não há desconto. o valor 15,00 deveria sair na coluna Valor Total. O Danfe Fortes em retrato está correto.

Sempre ao enviar um comando ACBrECF a tela (tanto a tela atual(MDIChild) como a tela do form principal (MDIForm)) ficam piscando até que o comando seja enviado. Isso não ocorre no mesmo aplicativo desenvolvido com Bemafi32.dll. Alguma sugestão?

Aumentar o timeout piorou o problema. Diminuir o intervalo entre comandos a princípio, parece que resolveu. Obg.

Tenho 4 clientes enviando remessa banco 756, porem uso o CNAB 400 porque o 240 realmente está incompativel. Não tenho tido problemas.

Mas isso ocorre depois de já estar em funcionamento, como se perdesse a conexão do nada. Por exemplo, estou com um cupom aberto e dá o ACK=0.

ECF = Bematech MP 3000 TH FI usb componentes = ACBrECF Cabo conversor serial tem ocorrido muito o erro. Após confirmar uma nova tentativa (isso varia de 3 a 5 tentativas) consigo retorno da impressora. Isso não ocorre com a bemafi32.dll usando a mesma porta.

Ainda continuo com o erro acima. Passando no validador do RS, dá o seguinte erro: PARSER XML: OK TIPO DE MENSAGEM: Distribuição da CT-e processada SCHEMA: OK ASSINATURA XML: Assinatura ***INVÁLIDA*** o DisgestValue da assinatura do XML é igual a que foi retornada junto ao protocolo de autorização. O emitente do CT-e não consegue fazer o download do xml diretamente do SEFAZ. Já foi presencialmente ao plantão fiscal e disseram a ele que não há o que fazer, uma vez que o CT-e consta como autorizado. Pediram a ele para cancelar o CT-e com erro e fazer outro. Porém o outro CT-e também consta como assinatura inválida. Alguém tem alguma idéia do que pode estar provocando isso? Certificado digital? Internet?

Estou seguindo a lógica do meu aplicativo no ato da homologação no Inatel. Quando homologuei, o homologador exigiu a Redução Z sem movimento. Lembro-me que a Bematech adequou a dll para atender a esse requisito. Como aqui em MG não há mais a exigencia de homologação, não sei como está a exigência quanto a isso. Só que pela dll eu obtinha o retorno correto. No ACBr estou tendo alguma dificuldade quanto a datas, CooInicial, valores dos meios de pagamento. Pelo que entendi, os valores dos meios de pagamento preciso capturar antes da Z porque após esses dados são inicializados. E não estou falando de domingo, feriado. Estou falando de uma dia em que o ECF foi ativado e não houve movimentação de venda, mas pode ter havido emissão de relatório gerencial, suprimento, sangria.

Quando usava a Bemafi32, ao salvar os dados da redução Z, essa informação era retornada (com certeza, a bematech forçava essa data jogando a data atual na função). Preciso da data para salvar os dados da z na tabela, para depois gerar sped. Mas vou tratar no meu aplicativo quando a data retornada for 0.

ACBrECF1.DadosReducaoZ está retornando a Data do Movimento = 0. Isso é porque não houve movimento? Mas a Redução Z não tem que ser emitida mesmo quando não há movimento? Impressora Bematech MP3000 TH FI

Qual é a variavel da Dados da Ultima Redução Z que retorna "Comprovante Não Emitido" que é impresso na Z logo após a relação de Meios de Pagamento?