volmir

Pessoal quem tiver um tempinho pra me ajudar pois ja estou desisperado pois tenho q deixar issso funcionado pra inicio do ano e nao sei masi o que fazer pois na minha maquina de desenvolvimento funciona e em outra onde nao tem o delphi instalado nao funciona de jeito nenhum peco a gentileza de quem puder me ajudar por favor, pois caso contrario nao vou ter ferias .. ehehehhe estou anexando uma pasta com os logs da maquina que tem o delphi e outro com logs da maquina onde nao tem o delphi instalado pra porem analizar os dois pois a principio na minha visao nao consegui descobrir nada de erro ou diferente um do outro a nao ser é claro os valores mas isto nao tem nada a ver.

elaborei meus testes aqui e nao obtive sucesso tentei todas as formas possiveis nao sei mais o q fazer se alguem tiver uma ideia favor me ajudar ja passei -1 nao deu certo pasei 0 nao deu certo nao passei nada tambem nao deu certo Gostaria de algumas dicas do desenvolvedor desta classe (TACBrTEFDRespCliDTEF) se puder me esclarecer melhor como usa-la pois nao consegui entender direito seu funcionamento este metodo procedure TACBrTEFDCliDTEF.FinalizarTransacao(Operacao : AnsiString; Confirma : Boolean; NSU : AnsiString; DocumentoVinculado : AnsiString); Var DataStr, HoraStr : AnsiString; nStatus, TipoTransacao, ItemSelecionado : Integer; begin fRespostas.Clear; ItemSelecionado := 0 ; fOnObtemInformacao( ItemSelecionado ) ; if ItemSelecionado >= 0 then TipoTransacao := ItemSelecionado else TipoTransacao := -1; { if pos(DocumentoVinculado, fDocumentosProcessados) > 0 then exit ; } fDocumentosProcessados := fDocumentosProcessados + DocumentoVinculado + '|' ; DataStr := FormatDateTime('YYYYMMDD',Now); HoraStr := FormatDateTime('HHNNSS',Now); GravaLog( '*** FinalizaTransacaoDPOS. Confirma: '+IfThen(Confirma,'SIM','NAO')+ ' Documento: ' +DocumentoVinculado+ ' Data: ' +DataStr+ ' Hora: ' +HoraStr ) ; if Operacao = '0' then exit; case TipoTransacao of -1 : nStatus := xFinalizaTransacao; 0 : nStatus := xConfirmaCartao( PAnsiChar( NSU ) ); 1 : nStatus := xConfirmaCartaoCredito( PAnsiChar( NSU ) ); 2 : nStatus := xConfirmaCartaoDebito( PAnsiChar( NSU ) ); 3 : nStatus := xConfirmaCartaoVoucher( PAnsiChar( NSU ) ); //4 : nStatus Private Label //5 : nStatus := xConfirmaCartao 10 : nStatus := xConfirmaCartaoFrota( PAnsiChar( NSU ) ); else nStatus := -1 ; end; if ((nStatus = 0) and Confirma) then begin xFinalizaTransacao; end; if (nStatus = 11) then begin TACBrTEFD(Owner).DoExibeMsg( opmOK, 'Transação não efetuada.' ); NCN(Operacao, NSU, ''); end; { if not Confirma then TACBrTEFD(Owner).DoExibeMsg( opmOK, 'Transação TEF não efetuada.'+sLineBreak+ 'Favor reter o Cupom' ); } end; por que no meu micro da certo passando zero na segunda vez que chama o metodo funciona e em outro micro nao funciona e por que chama duas vezes este metodo ele é chamado no CRT e apos a impresao do comprovante é chamado novamente e ai eu estou passando zero (no micro de desenvolvimento onde tem delphi instalado funciona ja em outra maquina onde só tenho o executavel nao funciona)

hoje eu faco assim por exemplo quatro forma de pagamento cartao credito - cartao debito - cartao credito - dinheiro eu vou buferizando as formas de pagamento selecionadas e ao final finalizo o cupom e imprimo as transacoes pendentes pra imprimir os comprmvantes CDC exemplo selecionei primeiro pagamento cartao credito seto a propriedade itemSeleciona para 1 e chamo o CRT com o valor informado selecionei segundo pagamento cartao debito seto a propriedade itemSeleciona para 2 e chamo o CRT com o valor informado selecionei terceiro pagamento cartao credito seto a propriedade itemSeleciona para 1 e chamo o CRT com o valor informado selecionei quarto pagamento dinheiro com o valor informado finalizo o cupom no ECF e imprimo as trasacoes pedentes porem ai que esta o problema pois ao imprimir as transacoes pendentes no caso vai ter tres ele vai passar novamente por este metodo porem minha variavel itSelecionado vai estar com 1 pois foi o ultimo pagamento em cartao que fiz ai vai dar problema da erro Aquela imagem que mostrei la no inicio do post se eu fazer com apenas um pagamento em cartao da certo

sim blz, mas meu problema é o seguinte percebi que passa duas vezes por este evento se for apenas um cartao blz mas qundo usar multiplos cartoes como vou controlar isso por exemplo tres cartoes credito, debito, credito nao vai dar confusao ai quando passar pela segunda vez pois esta variavel por exemplo vai estar com a ultima opcao (cartao) selecionada e a segunda que era debito sera que nao vai asumir como credito tambem, entendeu o que quero dizer?

consegui descobrir onde estava gerando este erro no evento tef1CliDTEFObtemInformacao(var ItemSelecionado: Integer); porem nao sei a melhor forma de resolver pois ele esta passando duas vezes por este metodo ai na segunda vez eu etava enviando -1 e por isso dava este erro agora passei a passar 0 ai funcionou nao deu mais aquele erro agora como resolver isso é que nao sei alguem ja trabalhou com este gerenciador e tem uma dica melhor pra me ajudar ?

vou debugar pra ver se acontece este erro entao

Sim, tinhamos um em java, mas por falta de profisionais para dar continuidade e manutencao, tivemos que abandonar o java e desenvolvemos outro em delphi sim é de desenvolvimento, mas tambem ja executei em outra maquina e aconce a mesma coisa

mas no caso ele nao esta cancelando o cupom ta enviando tudo normal mas no final ele mostra esta mensagem ai que postei anteriormente esta mensagem nao é nem a acbr nem meu sistema que dispara deve ser o sistema gerenciador do TEF.

estou enviando entao os logs

detalhe agora fiz um teste em outra maquina aqui (instalei o delphi e rodei o demo) e aconteceu a mesma coisa com o demo nao sei mais o q fazer scorro

Pessoal, bom dia estou ressutindo este topico pois continuo sem solucao para meu problema e pior que preciso atualizar em meus clientes que usam TEF e nao to conseguindo fazer funcionar uso o TEFCliDTef antigo tef daruma que hoje pertence a Linx faco o processo tudo normal ele ate imprimi o comprovante ai depois que imprime o comprovante ele mostra esta mensagem ai detalhe na maquina que desenvolvi o sistema ele funciona normal o problema esta nas outras maquinas onde vou instalar o sistema (clientes) estou enviando em ano os logs do tef e do ecf para os entendidos analizarem pois eu nao consegui ver nada de errado

Blz Obrigado

sim isso sim só fiquei preocupado por vi nos logs ai pensei que pudesse ter problemas futuros mas assim consegui fazer o cupom normal conferi no banco tambem gravou a principio tudo certo só fiquei com medo de dar problemas talves alguma coisa q a impressora nao esteja registrando nao sei o porq destes logs de erro

com o demo acontece a mesma coisa mesmos erros que acontecem com meu sistema

estou utilizando o delphi xe5 e nao encontrei onde desabilita isso fiz um outro teste aqui e ns logs do ecf aparece isso -- 13:37:02:392 TX -> {70;LeMeioPagamento;CodMeioPagamentoProgram=12;46} 13:37:02:438 RX <- {70;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - X5 Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ---------------------------------------- -- 13:37:02:438 TX -> {71;LeMeioPagamento;CodMeioPagamentoProgram=13;46} 13:37:02:485 RX <- {71;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - X5 Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ---------------------------------------- -- 13:37:02:485 TX -> {72;LeMeioPagamento;CodMeioPagamentoProgram=14;46} 13:37:02:532 RX <- {72;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - X5 Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado

O erro debugando retorna esse: Erro retornado pela Impressora: FiscNET: ELGIN - X5 Erro: 8005 - ErroCMDAliquotaNaoCarregada Aliquota nao carregada

Bom dia pessoal estou com um problema com a impressora elgin x5 Estou anexando o log retornado pela impressora pelo que consegui entnder alguma coisa relacionado a aliquotas vejam o log por favor se alguem ja passou por isso e sabe como resolver favor me ajudar pois preciso deixar funcionando pro cliente meu sistema ja testei com daruma, e bematech esta tudo ok porem ontem fui atualizar em um cliente que possui um elgin e aconteceu este erro ai nao consigo fazer vendas

bom dia, mas estou usando pacotes por isso tenho maracada esta opcao Menu Project -> Options -> Packages -> Desmarque "Build with runtime packages" ou posso usar pacotes sem marcar esta opcao estou confuso na verdade nunca havia trabalhado com pacotes mas desta vez surgiu a necessidade ai pesquisei na net e varios post sugerem isso

Estou fazendo assim: ACBrTEFD1.FinalizarCupom; ACBrTEFD1.ImprimirTransacoesPendentes; mas no evento ImprimirTransacoesPendentes ele confirma as transacoes pendentes, veja o final do codigo: finally if not ImpressaoOk then begin try ComandarECF( opeCancelaCupom ); except {Exceção Muda} end ; CancelarTransacoesPendentes; end else ConfirmarTransacoesPendentes ; BloquearMouseTeclado( False ); if (MsgAutenticacaoAExibir <> '') then // Tem autenticação ? DoExibeMsg( opmOK, MsgAutenticacaoAExibir ) ; end;

sim este problema na verdade ja resolvi mas agora esta acontecendo outro que aparentemente nao tem nada a ver com isso deve ser outra coisa pois isso aparece apos a impresao do comprovante http://www.projetoacbr.com.br/forum/uploads/monthly_11_2014/post-5312-0-23264700-1415267781.png

Boa tarde estou com um outro problema aqui desenvolvi um sistema usando Pacotes na minha maquina tudo bls porem ao intalar em outra maquina ao abrir o sistema da um erro dizendo que nao encontrou vcl60.bpl porem procurei na minha maquina e tambbem nao encontrei esta bpl ela nao existe na minha maquina por q na minha maquina nao acontece o erro e em outra maquina acontece esta bpl acredito que seja do delphi 6 mas nao teho o delphi 6 em minha maquina uso o delphi 7 - Xe3 e Xe5 o que sera que pode ser

blz Juliomar consegui meu problema é que eu nao estava apagando o componente no delphi e nao estava excluindo as libraryPaths feito isso deu tudo certo instalei com o instalador do acbr e funcionou ok

Apaguei minha pasta do ACBR e criei uma nova e baixei tudo novamente removi o acbr com aquela bat pra remover que vem junto com o acbr apaguei o library path no delphi e os componetes em install package baixei tudo de novo e instalei pelo instalador porem deixei desmarcada a opcao dos geradores de relatorio pois era como sempre fazia anteriormemte e depois instalava manualmente pois ele nao encontra as dcus do fastreport por exemplo no componente esta fs15 e eu estou utulizando o fs17 ai eu fazia sempre este processo manualmente apago os fs15 dou um build e ele adicina auotmaticamente os fs17 sempre funcionou assim porem desta vez nao estou conseguuindo instalar manualmente pois diz que nao encontra este dcp [dcc32 Fatal Error] ACBrBoleto.pas(51): F1026 File not found: 'ACBrComum.dcp' e o que observei que ao instalar ele nao criou as bpls na pasta C:\Users\Public\Documents\RAD Studio\12.0\Bpl e antes sempre criava todas as bpls nete caminho o que ouve de alteracao ? o que devo mudar apartir de agora pra conseguir instalar ?

agora fiz um teste colocando 002 mas aconteceu a mesma coisa nao sei mais o q fazer

coloquei 2