dorivansousa

case Operacao of ineSubTotal: begin RetornoECF := FormatFloat('0.00', ((FDataModule.ACBrECF.Subtotal) - FDataModule.ACBrECF.TotalPago) + Acrescimo); end; ineTotalAPagar: begin VerificaSaldoRestante; RetornoECF := FormatFloat('0.00', ((SaldoRestante - EditValorPago.Value))); end; ineEstadoECF: begin Case FDataModule.ACBrECF.Estado of estLivre: RetornoECF := 'L'; estVenda: RetornoECF := 'V'; estPagamento: RetornoECF := 'P'; estRelatorio: RetornoECF := 'R'; else RetornoECF := 'O'; end; end; end; LOG -- 18/10 10:10:23:958 - TEF_DIAL Inicializado -- 18/10 10:10:23:960 - TEF_DIAL CancelarTransacoesPendentesClass -- 18/10 10:10:23:962 - TEF_DIAL IniciarRequisicao: ATV -- 18/10 10:10:23:965 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 18/10 10:10:23:973 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 18/10 10:10:23:974 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 18/10 10:10:24:987 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 18/10 10:10:24:991 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 18/10 10:10:45:450 - FinalizarCupom -- 18/10 10:10:45:451 - BloquearMouseTeclado: SIM -- 18/10 10:10:45:452 - InfoECF: ineEstadoECF -- 18/10 10:10:45:476 - Ret: V -- 18/10 10:10:45:476 - TEF_DIAL ECFSubtotaliza: DescAcres: 0,00 -- 18/10 10:10:45:540 - TEF_DIAL ComandarECF: Oper: opeImprimePagamentos -- 18/10 10:10:45:827 - InfoECF: ineEstadoECF -- 18/10 10:10:45:923 - Ret: P -- 18/10 10:10:45:923 - InfoECF: ineSubTotal -- 18/10 10:10:46:023 - Ret: 0,50 -- 18/10 10:10:46:024 - InfoECF: ineTotalAPagar -- 18/10 10:10:46:026 - Ret: 0,00 -- 18/10 10:10:46:026 - BloquearMouseTeclado: NAO

o problema é q nao fecha o cupom, ele imprime o subtotal, o acrescimo, o total e a forma de pagamento dinheiro e para por ai

Daniel nao sei se vc ta se referindo as mudanças q eu sugeri, mas nenhuma delas foi no ACBR, tudo é ref ao projeto da T2ti. nos fontes do T2ti tem uma funcao subTotalizaCupom q so serve pra fazer um try except ao chamar a funcao no acbr.

Como faço uma venda com acrescimo no cartao, sempre retorna a mensagem "operacao tef deve ser limitada ao saldo restante a pagar" so passa quando no ineSubTotal eu informo o acrescimo, mas, assim ele nao finaliza o cupom.

eu acompanho o projeto da T2ti e vc precisa fazer umas modificacoes pra poder funcionar o cielo premia, primeiro nao vai poder subtotalizar o cupom entao comenta essas linhas ai no FinalizaVenda // subtotaliza o cupom // SubTotalizaCupom; cielo premia nao pode subtotalizar o cupom segundo vc precisa mover as linhas q efetuam o meio de pagamento do FinalizaVenda pro onComandaECF pra operacao opeImprimePagamentos // tratar se conseguiu imprimir a forma de pagamento // para nao tentar efetuar novamente as mesmas formas // movido pra onComandaECF - opeImprimePagamentos TotalTipoPagamento := TTotalTipoPagamentoVO.Create; for i := 0 to ListaTotalTipoPagamento.Count - 1 do begin TotalTipoPagamento := ListaTotalTipoPagamento.Items[i]; if (TotalTipoPagamento.TemTEF <> 'S') then FDataModule.ACBrECF.EfetuaPagamento(TotalTipoPagamento.CodigoPagamento, TotalTipoPagamento.Valor); end; e por fim vc precisa no onComandaECFSubTotaliza colocar essas linhas pra subtotalizar o cupom e caso ja tenha desconto ou acrescimo somar ao que vier do cielo try if Desconto > 0 then FDataModule.ACBrECF.SubtotalizaCupom((Desconto * -1) + DescAcre) else if Acrescimo > 0 then FDataModule.ACBrECF.SubTotalizaCupom(Acrescimo + DescAcre) else FDataModule.ACBrECF.SubTotalizaCupom(DescAcre); RetornoECF := 1; except RetornoECF := 0; end; acabei de fazer uns testes e funcionou, agora ainda vou refazer o roteiro pra v se tudo ta ok nas outras operacoes do aplicativo dessa forma ja tem alguns problemas pra tratar, mas, vc ja pode partir dai

versao do gp

pelo que pude ver o problema é no arquivo que vem do Gerenciador padrao, 000-000 = CNC 001-000 = 62527 002-000 = 001524 003-000 = 155 004-000 = 0 009-000 = 0 010-000 = REDECARD 011-000 = 10 012-000 = 160102111111 013-000 = 160102 015-000 = 1610172309 022-000 = 16102012 023-000 = 172309 025-000 = 160096111111 026-000 = 1016162613 027-000 = 161012000000160102RD10 028-000 = 25 029-001 = " REDECARD" 029-002 = "" 029-003 = " INFOSYS" 029-004 = " AV DESEMBARGADOR TACITO" 029-005 = " DE CALDAS 262" 029-006 = "" 029-007 = " MASTERCARD PV:123456789012345" 029-008 = " ***************5555 17:23 D" 029-009 = " TERM:12345678 AUTE:160102 16/10/12" 029-010 = " CV:160096111111 AUTO:160096 " 029-011 = " ESTORNO CREDITO A VISTA" 029-012 = "" 029-013 = " APROVADO" 029-014 = " FINAL 1,55" 029-015 = " " 029-016 = " EXIJA O DOCUMENTO FIS-" 029-017 = " CAL DE NUMERO INDICADO" 029-018 = " NESTE COMPROVANTE" 029-019 = " T:_____N:____________" 029-020 = " " 029-021 = " ### OPERACAO SIMULADA ###" 029-022 = " ### NENHUM VALOR SERA ###" 029-023 = " ### CREDITADO OU DEBITADO ###" 029-024 = "" 029-025 = " (TEF Redecard - 5.0.0)" 030-000 = TRANSACAO CONCLUIDA COM SUCESSO 040-000 = MASTERCARD 999-999 = 0 no manual do gerenciador padrao fala que esse campo 026-000 é no formato DDMMHHMMSS, entao o problema é no retorno do GP q ta informando MMDDHHMMSS = 1016162613 hj é 16/10 deveria ser 1610162613 vou tentar contornar aki e terminar meus testes

o tipo é asTimeStamp, agora o problema é q a informacao ta chegando com as posicoes errada, eu olhei os outros campos tipo timeStamp e ta vindo a informacao certinha DDMMHHMMSS so nesse fpDataHoraTransacaoCancelada q vem errado, e eu nao encontrei de onde vem essa informacao...

olhando aki a function TACBrInformacao.GetAsTimeStamp : TDateTime; na primeira linha DateTimeStr := OnlyNumber(AnsiString( Trim(String(fInformacao))) ); essa variavel fInformacao tem esse valor '1016162613' (Ctrl+F7) a funcao EncodeDateTime recebe os paramentros na ordem Ano, Mes, Dia, Hora, Min, Segundo, MiliSegundos... entao quebrando a string o mes ficou no lugar do dia... fInformacao = '1016162613' 1234567890 try Result := EncodeDateTime( YearOf(now), StrToInt(copy(DateTimeStr,3,2)), // Mes = 16 StrToInt(copy(DateTimeStr,1,2)), // Dia = 10 StrToInt(copy(DateTimeStr,5,2)), // = 16 StrToInt(copy(DateTimeStr,7,2)), // = 26 StrToInt(copy(DateTimeStr,9,2)), 0) ; // = 13 except Result := 0 ; end; de onde vem essa informacao da data?

mudou o erro '' is not a valid integer value... o que é mesmo esse conteudo? e um arquivo gravado?

o ocorre na unit ACBrTEFClass, class TACBrTEFDRespTXT, procedure ConteudoToProperty linha 1308 26 : fpDataHoraTransacaoCancelada := Linha.Informacao.AsTimeStamp;

log eu finalizei o aplicativo quando mostrou a mensagm de erro e esse é o log -- 16/10 16:25:38:884 - TEF_DIAL Inicializado -- 16/10 16:25:38:885 - TEF_DIAL CancelarTransacoesPendentesClass -- 16/10 16:25:38:887 - TEF_DIAL IniciarRequisicao: ATV -- 16/10 16:25:38:890 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:25:38:894 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:25:38:896 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:25:39:660 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:25:39:667 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:25:49:888 - TEF_DIAL Inicializado -- 16/10 16:25:49:892 - TEF_DIAL CancelarTransacoesPendentesClass -- 16/10 16:25:49:897 - TEF_DIAL IniciarRequisicao: ATV -- 16/10 16:25:49:907 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:25:49:939 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:25:49:941 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:25:51:460 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:25:51:467 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:25:51:496 - InfoECF: ineEstadoECF -- 16/10 16:25:51:523 - Ret: V -- 16/10 16:25:51:526 - InfoECF: ineSubTotal -- 16/10 16:25:51:625 - Ret: 4,00 -- 16/10 16:25:51:631 - InfoECF: ineTotalAPagar -- 16/10 16:25:51:636 - Ret: 2,45 -- 16/10 16:25:51:641 - TEF_DIAL IniciarRequisicao: CRT -- 16/10 16:25:51:647 - ConfirmarTransacoesAnteriores -- 16/10 16:25:51:651 - TEF_DIAL IniciarRequisicao: ATV -- 16/10 16:25:51:658 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:25:51:666 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:25:51:670 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:25:52:939 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:25:52:949 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:25:52:962 - TEF_DIAL FinalizarRequisicao: CRT, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:25:52:973 - TEF_DIAL FinalizarRequisicao: CRT, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:25:52:976 - TEF_DIAL FinalizarRequisicao: CRT, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:25:55:002 - TEF_DIAL FinalizarRequisicao: CRT, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:25:55:011 - TEF_DIAL FinalizarRequisicao: CRT, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:25:55:020 - TEF_DIAL LerRespostaRequisicao: CRT, Aguardando: C:\TEF_DIAL\resp\intpos.001 -- 16/10 16:26:18:280 - TEF_DIAL LerRespostaRequisicao: CRT, Fim da Espera de: C:\TEF_DIAL\resp\intpos.001 Recebido -- 16/10 16:26:18:289 - TEF_DIAL LerRespostaRequisicao: CRT, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.001 -- 16/10 16:26:18:297 - TEF_DIAL ProcessarRespostaPagamento: CRT - 59148 Indice: 06 Valor:1,55 -- 16/10 16:26:18:304 - ACBrTEFD CopiarResposta: CRT - 59148 Arq: D:\Infosys 2.0\PAF\t2ti-sitef\branches\PAFECF_Desenvolvimento\PAF\TEF\ACBr_TEF_DIAL_001.tef -- 16/10 16:26:18:323 - TEF_DIAL FinalizarResposta: CRT -- 16/10 16:26:19:870 - InfoECF: ineEstadoECF -- 16/10 16:26:19:898 - Ret: V -- 16/10 16:26:19:901 - InfoECF: ineSubTotal -- 16/10 16:26:20:000 - Ret: 4,00 -- 16/10 16:26:20:007 - InfoECF: ineTotalAPagar -- 16/10 16:26:20:015 - Ret: 0,00 -- 16/10 16:26:20:022 - TEF_DIAL IniciarRequisicao: CRT -- 16/10 16:26:20:554 - ConfirmarTransacoesAnteriores -- 16/10 16:26:20:561 - TEF_DIAL IniciarRequisicao: CNF -- 16/10 16:26:20:568 - TEF_DIAL IniciarRequisicao: ATV -- 16/10 16:26:20:583 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:26:20:596 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:26:20:601 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:26:21:873 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:26:21:884 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:26:21:900 - TEF_DIAL FinalizarRequisicao: CNF, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:26:21:918 - TEF_DIAL FinalizarRequisicao: CNF, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:26:21:922 - TEF_DIAL FinalizarRequisicao: CNF, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:26:24:194 - TEF_DIAL FinalizarRequisicao: CNF, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:26:24:199 - TEF_DIAL FinalizarRequisicao: CNF, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:26:24:221 - TEF_DIAL IniciarRequisicao: ATV -- 16/10 16:26:24:233 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:26:24:245 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:26:24:253 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:26:26:787 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:26:26:798 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:26:26:814 - TEF_DIAL FinalizarRequisicao: CRT, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:26:26:837 - TEF_DIAL FinalizarRequisicao: CRT, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:26:26:842 - TEF_DIAL FinalizarRequisicao: CRT, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:26:28:867 - TEF_DIAL FinalizarRequisicao: CRT, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:26:28:879 - TEF_DIAL FinalizarRequisicao: CRT, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:26:28:890 - TEF_DIAL LerRespostaRequisicao: CRT, Aguardando: C:\TEF_DIAL\resp\intpos.001 -- 16/10 16:26:48:534 - TEF_DIAL LerRespostaRequisicao: CRT, Fim da Espera de: C:\TEF_DIAL\resp\intpos.001 Recebido -- 16/10 16:26:48:545 - TEF_DIAL LerRespostaRequisicao: CRT, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.001 -- 16/10 16:26:48:555 - TEF_DIAL ProcessarRespostaPagamento: CRT - 59152 Indice: 06 Valor:2,45 -- 16/10 16:26:48:563 - ACBrTEFD CopiarResposta: CRT - 59152 Arq: D:\Infosys 2.0\PAF\t2ti-sitef\branches\PAFECF_Desenvolvimento\PAF\TEF\ACBr_TEF_DIAL_002.tef -- 16/10 16:26:48:582 - TEF_DIAL FinalizarResposta: CRT -- 16/10 16:26:48:774 - FinalizarCupom -- 16/10 16:26:48:782 - BloquearMouseTeclado: SIM -- 16/10 16:26:48:791 - InfoECF: ineEstadoECF -- 16/10 16:26:48:920 - Ret: P -- 16/10 16:26:48:928 - InfoECF: ineSubTotal -- 16/10 16:26:49:031 - Ret: 4,00 -- 16/10 16:26:49:035 - TEF_DIAL ECFPagamento: Indice: 06 Valor: 4,00 -- 16/10 16:26:49:088 - InfoECF: ineSubTotal -- 16/10 16:26:49:293 - Ret: 0,00 -- 16/10 16:26:49:302 - TEF_DIAL ComandarECF: Oper: opeFechaCupom -- 16/10 16:26:51:190 - InfoECF: ineEstadoECF -- 16/10 16:26:51:321 - Ret: L -- 16/10 16:26:51:327 - BloquearMouseTeclado: NAO -- 16/10 16:26:51:332 - ImprimirTransacoesPendentes -- 16/10 16:26:51:338 - InfoECF: ineEstadoECF -- 16/10 16:26:51:463 - Ret: L -- 16/10 16:26:51:471 - BloquearMouseTeclado: SIM -- 16/10 16:26:51:480 - TEF_DIAL DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: TRANSACAO CONCLUIDA COM SUCESSO -- 16/10 16:26:51:492 - TEF_DIAL ECFAbreVinculado: COO: 001524 Indice: 06 Valor: 4,00 -- 16/10 16:26:52:347 - TEF_DIAL ECFImprimeVia: trVinculado Via: 1 -- 16/10 16:26:54:293 - TEF_DIAL ComandarECF: Oper: opePulaLinhas -- 16/10 16:26:55:068 - TEF_DIAL DoExibeMsg: Oper: opmDestaqueVia Mensagem: Destaque a 1ª Via -- 16/10 16:26:57:089 - TEF_DIAL ECFImprimeVia: trVinculado Via: 2 -- 16/10 16:26:59:126 - TEF_DIAL ComandarECF: Oper: opePulaLinhas -- 16/10 16:26:59:902 - TEF_DIAL DoExibeMsg: Oper: opmDestaqueVia Mensagem: Destaque a 2ª Via -- 16/10 16:27:01:925 - TEF_DIAL DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem: -- 16/10 16:27:01:934 - TEF_DIAL DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem: -- 16/10 16:27:01:943 - TEF_DIAL DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: TRANSACAO CONCLUIDA COM SUCESSO -- 16/10 16:27:01:954 - TEF_DIAL ECFImprimeVia: trVinculado Via: 1 -- 16/10 16:27:17:343 - Erro ao executar "OnComandaECFImprimeVia" -- 16/10 16:27:19:306 - TEF_DIAL DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem: -- 16/10 16:27:19:324 - TEF_DIAL DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem: -- 16/10 16:27:19:344 - TEF_DIAL DoExibeMsg: Oper: opmYesNo Mensagem: Impressora não responde Deseja imprimir novamente ? -- 16/10 16:27:19:348 - BloquearMouseTeclado: NAO -- 16/10 16:27:21:311 - BloquearMouseTeclado: SIM -- 16/10 16:27:21:319 - TEF_DIAL ComandarECF: Oper: opeCancelaCupom -- 16/10 16:27:27:869 - TEF_DIAL CancelarTransacoesPendentesClass -- 16/10 16:27:32:224 - TEF_DIAL IniciarRequisicao: NCN -- 16/10 16:27:32:233 - TEF_DIAL IniciarRequisicao: ATV -- 16/10 16:27:32:243 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:27:32:251 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:27:32:255 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:27:33:779 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:27:33:791 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:27:33:808 - TEF_DIAL FinalizarRequisicao: NCN, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:27:33:823 - TEF_DIAL FinalizarRequisicao: NCN, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:27:33:831 - TEF_DIAL FinalizarRequisicao: NCN, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:27:36:106 - TEF_DIAL FinalizarRequisicao: NCN, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:27:36:116 - TEF_DIAL FinalizarRequisicao: NCN, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:27:36:127 - TEF_DIAL DoExibeMsg: Oper: opmOK Mensagem: Última Transação TEF foi cancelada Rede: REDECARD NSU: 160097111111 Valor: 2,45 -- 16/10 16:27:36:140 - BloquearMouseTeclado: NAO -- 16/10 16:27:36:996 - BloquearMouseTeclado: SIM -- 16/10 16:27:43:311 - TEF_DIAL IniciarRequisicao: CNC -- 16/10 16:27:43:321 - TEF_DIAL IniciarRequisicao: ATV -- 16/10 16:27:43:336 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:27:43:345 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:27:43:350 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:27:44:367 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:27:44:379 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:27:44:392 - TEF_DIAL FinalizarRequisicao: CNC, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp -- 16/10 16:27:44:400 - TEF_DIAL FinalizarRequisicao: CNC, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001 -- 16/10 16:27:44:405 - TEF_DIAL FinalizarRequisicao: CNC, Aguardando: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:27:47:182 - TEF_DIAL FinalizarRequisicao: CNC, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido -- 16/10 16:27:47:194 - TEF_DIAL FinalizarRequisicao: CNC, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts -- 16/10 16:27:47:206 - BloquearMouseTeclado: NAO -- 16/10 16:27:47:216 - TEF_DIAL LerRespostaRequisicao: CNC, Aguardando: C:\TEF_DIAL\resp\intpos.001 -- 16/10 16:28:20:446 - TEF_DIAL LerRespostaRequisicao: CNC, Fim da Espera de: C:\TEF_DIAL\resp\intpos.001 Recebido -- 16/10 16:28:20:457 - TEF_DIAL LerRespostaRequisicao: CNC, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.001

DateSeparator := '/'; ShortDateFormat := 'dd/mm/yyyy'; ThousandSeparator := '.'; DecimalSeparator := ',';

o problema nao seria essa virgula no final da data com o zero?

ja esta configurada assim

efetuando uma operacao com mais de um cartao, e desligando a impressora durante a impressao do segundo cartao, recebo essa mensagem de erro na imagem anexo. q aponta pra essa rotina na ACBrBase.

vlw vou tentar pelos demos..

o ineTotalAPagar seria o Total da venda menos o que ta sendo pago em cartao? ai seria o total a pagar depois q efetuar o cartao ou melhor o saldo restante. olhando o codigo do acbr é isso q ele valida, se o saldoapagar depois que efetuar if (Valor > RespostasPendentes.SaldoRestante ) then é maior que o saldo restante

e como fica multiplas formas de pagamentos? Venda Total 10,00 pagamento Dinheiro 5,00 Cartao 5,00 o que eu quero saber é o q tenho q informar no ineTotalAPagar. é o valor que vai ser pago no cartao ou o total da venda? ja fiz a homologacao tef Discado por 2 vezes antes, so que nao utilizava o ACBr, e agora estou utilizando... case Operacao of ineSubTotal: RetornoECF := FormatFloat('0.00', FDataModule.ACBrECF.Subtotal - FDataModule.ACBrECF.TotalPago); ineTotalAPagar: begin VerificaSaldoRestante; RetornoECF := FormatFloat('0.00', (SaldoRestante)); end; end;

os valores sao iguais. esta configurado para multiplos cartoes o ineTotalAPagar tem que receber o valor que vai ser pago com o cartao ou o valor do cupom fiscal? os valores tem que ser iguais, mas quais valores? ineSubTotal e ineTotalAPagar?

estava faltando informar no OnInfoECF a operação ineTotalAPagar.... eu informei o saldo a pagar e retornou "Esta Operação TEF deve ser igual ao Saldo a Pagar"

quando executo a venda no cartao apresenta essa mensagem de erro '' is not a valid floating point value, fui olhando e debugando e na VerificarTransacaoPagamento na linha 2601 SaldoAPagar := SaldoAPagar - InfoECFAsDouble(ineTotalAPagar,0); é onde apresenta o erro... utilizei o demo e nao apresenta essa mensgem de erro, somente na minha aplicacao. esqueci de configurar algo? atualizei o acbr hj. Delphi 2010, Windows 7

assim ja ta bom, eu to com data pra homologacao agendada e ainda nao tinha realizado esses testes no sistema, agora pelo menos dar pra v como fica (quando funciona)... vlw

fiz como vc falou, removi todas as dlls e deixei apenas a da aplicacao e agora as vezes funciona outras dar da erro de execucao na funcao, tem alguma versao especifica da dll eu to usando a versao 6.1.0.0?

eu to usando tambem o exemplo Menu Fiscal LMFC Efetuar geracao do arquvo ->>> ate aki gera normal Gerar o arquivo no formato do ato cotepe 17/04 (somente para menus LMFC, Arq MFD) --aki dar erro Parametro Incorreto Ativar #0#0#0#0#0#0#0 - + - + - + - + - + - + - + - + - + - + - + - Erro ao enviar comandos para a Impressora Bematech - + - + - + - + - + - + - + - + - + - + - + - to usando um conversor usb/serial no bematools funciona todas as funcoes