Intelliware

Passo a passo do TEFDemo, na aba Operação: 1. Cliquei em Abrir Cupom; 2. Vende Item; 3. CRT Durante o processo de pedido de autorização, no momento em que pediu a senha, apertei o botão anular do pin pad. Nesse momento que dá a mensagem de "Operacao cancelada" com botão OK., que é onde a Sw.Express quer que apareça com botões de SIM, NÃO. CliSiTef.rar

Estes dois logs são o que fiz aqui, um deles utilizando o nosso sistema e o outro utilizando o TEFDemo. Segue abaixo o log que a Sw.Express me mandou para mostrar o problema. (SE000001) CliSiTef : ColetaCampo/C - Comando = [Cmd=20; TipoCampo=5013 (EVENTO_CONFIRMA_CANCELAMENTO); Min=0; Max=1] (SE000001) CliSiTef : ColetaCampo/C - DadosComando = [13 - Operacao Cancelada?] (SE000001) CliSiTefI : CFSI-S - Saida = [Cmd=20; TipoCampo=5013; Min=0; Max=1] (SE000001) CliSiTefI : CFSI-S - pBuffer = [13 - Operacao Cancelada?] (SE000001) CliSiTefI : CFSI - Retorno = 10000 Nesse caso, vocês precisam chamar o tipocampo=5013 e criar o a mensagem de sim ou não.

Estou tentando fazer o teste abaixo, mas estou com problemas em relação a mensagem de "Operacao Cancelada", no me teste aparece a mensagem "13 - Operacao cancelada" com o botão OK, e no roteiro de homologação diz que tem que aparecer a mensagem "Operacao cancelada ?" com botões SIM e NÃO. Teste: ------------------ Realizar uma venda de débito ao solicitar a leitura do cartão no PIN Pad pressionar aa tecla "Anula" no PIN Pad deve exibir a mensagem na aplicação "Operação Cancelada ? SIM / NÃO" optar por "NÃO" voltou a solicitar a leitura do cartão, dando sequencia no fluxo ao solicitar a digitação da senha do cartão no PIN Pad pressionar a tecla "Anula" no PIN Pad deve exibir a mensagem na aplicação "Confirma Cancelamento ? SIM / NÃO" optar por "NÃO" voltou a solicitar a digitação da senha o mesmo ocorre quando pressiono o "Cancela" da aplicação. Segundo a Software, eles falaram que está faltando tratar o tipo campo 5013 - Confirmação de Cancelamento. Eles mandaram este log abaixo, referente ao teste deles e nosso. Teste da Software (SE000001) CliSiTef : MAID - LibEmv trata multiplos AIDs = [sIM] (SE000001) CliSiTef : MAID - Pinpad trata multiplos AIDs = [NAO] (SE000001) LibSEPPEmv : RxM - Dados = [Cont=3; Tam=10] (SE000001) LibSEPPEmv : PP_DisplayEx - Sts = 0 (SE000001) CliSiTef : ColetaCampo/C - Comando = [Cmd=20; TipoCampo=5013 (EVENTO_CONFIRMA_CANCELAMENTO); Min=0; Max=1] (SE000001) CliSiTef : ColetaCampo/C - DadosComando = [13 - Operacao Cancelada?] (SE000001) CliSiTefI : CFSI-S - Saida = [Cmd=20; TipoCampo=5013; Min=0; Max=1] (SE000001) CliSiTefI : CFSI-S - pBuffer = [13 - Operacao Cancelada?] (SE000001) CliSiTefI : CFSI - Retorno = 10000 Nosso teste (SE000002) CliSiTefI : CFSI (ContinuaFuncaoSiTefInterativo) - hCliSiTefi = [99bfae0] (SE000002) CliSiTefI : CFSI-E - Entrada = [Continua=0; TamBuf=20001] (SE000002) LibSEPPEmv : RxM - Dados = [Cont=1; Tam=10] (SE000002) LibSEPPEmv : PP_GoOnChip - Sts = 13 (PPCOMP_CANCEL) (SE000002) LibSEPPEmv : RxM - Dados = [Cont=1; Tam=10] (SE000002) LibSEPPEmv : PP_DisplayEx - Sts = 0 (SE000002) CliSiTef : ColetaCampo/C - Comando = [Cmd=22; TipoCampo=-1; Min=1; Max=1] (SE000002) CliSiTef : ColetaCampo/C - DadosComando = [13 - Operacao Cancelada] (SE000002) CliSiTefI : CFSI-S - Saida = [Cmd=22; TipoCampo=-1; Min=1; Max=1] (SE000002) CliSiTefI : CFSI-S - pBuffer = [13 - Operacao Cancelada] (SE000002) CliSiTefI : CFSI - Retorno = 10000 Nesse caso, vocês precisam chamar o tipocampo=5013 e criar o a mensagem de sim ou não. ------------------------------------------------------------------------------------------------------------------------------------------------ Segue abaixo, o log do Clisitef que realizei no TEFDemo -- 01/04 11:37:25:494 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: SOLICITE A SENHA -- 01/04 11:37:25:496 - CliSiTef DoExibeMsg: Oper: opmExibirMsgCliente Mensagem: SOLICITE A SENHA -- 01/04 11:37:25:498 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 01/04 11:37:25:990 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 23 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 -- 01/04 11:37:25:991 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 01/04 11:37:26:483 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 23 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 -- 01/04 11:37:26:484 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 01/04 11:37:26:990 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 23 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 -- 01/04 11:37:26:992 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 01/04 11:37:27:483 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 23 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 -- 01/04 11:37:27:483 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 01/04 11:37:27:539 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 22 TipoCampo = -1 Buffer = 13 - Operacao Cancelada Tam.Min = 1 Tam.Max = 1 -- 01/04 11:37:27:539 - CliSiTef DoExibeMsg: Oper: opmOK Mensagem: 13 - Operacao Cancelada -- 01/04 11:37:27:539 - BloquearMouseTeclado: NAO -- 01/04 11:37:29:355 - BloquearMouseTeclado: SIM -- 01/04 11:37:29:357 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 01/04 11:37:29:359 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 0 TipoCampo = 0 Buffer = 1 Tam.Min = 0 Tam.Max = 0 -- 01/04 11:37:29:359 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 01/04 11:37:29:360 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 3 TipoCampo = -1 Buffer = Retire o cartao da leitora Tam.Min = 0 Tam.Max = 0

Boa tarde Daniel, vamos efetuar um teste aqui e posto o resultado.

Ah sim, no caso seria o source: (...) else if (TipoCupom = 5) then //Recebimento begin Indice := ecf.BuscarIndiceComprovNaoFiscal(4); ecf.AcbrEcf.NaoFiscalCompleto(LZPad(IntToStr(Indice), 2), Valor, SeqFpg, Observ, Indice); end; (...) log.txt

Bom dia Daniel. No source onde está ocorrendo o problema temos o seguinte protótipo: function TdmVenda.OperacaoNaoFiscal(IdFpg, IdTurno, Valor : Currency; TipoCupom, Fator : Integer; Observ, SeqFpg: String) : Boolean; Ela é chamada na parte de recebimento do sistema da seguinte forma: if dmVenda.OperacaoNaoFiscal(IdRecEasy, dm.cdsTurnoAbertoIDTURNO.AsCurrency, Nominal, 5, 1, Observ, SeqFpg) then (...) Na procedure acima, a parte de impressão no ECF é: //Imprimindo comprovante NÃO FISCAL no ECF if (TipoCupom = 2) then //Sangria ecf.AcbrEcf.Sangria(Valor, Observ) else if (TipoCupom = 3) then //Suprimento ecf.AcbrEcf.Suprimento(Valor, Observ) else if (TipoCupom = 4) then //Pagamento begin Indice := ecf.BuscarIndiceComprovNaoFiscal(3); ecf.AcbrEcf.NaoFiscalCompleto(LZPad(IntToStr(Indice), 2), Valor, SeqFpg, Observ, Indice) end else if (TipoCupom = 5) then //Recebimento begin Indice := ecf.BuscarIndiceComprovNaoFiscal(4); ecf.AcbrEcf.NaoFiscalCompleto(LZPad(IntToStr(Indice), 2), Valor, SeqFpg, Observ, Indice); end; A variável TipoCupom pode assumir um dos seguintes valores: // Tipos: // 1 - Venda // 2 - Sangria // 3 - Suprimento // 4 - Outros Pagamentos // 5 - Outros Recebimentos No source: Indice := ecf.BuscarIndiceComprovNaoFiscal(4); Enviamos (4) que no nosso banco representa o totalizador não-fiscal de recebimento e a procedure retorna o índice do ECF correspondente ao mesmo. Existe um form para fazermos essa associação. Estamos tentando obter junto ao cliente o log da ACBr para postarmos aqui também.

Bom dia pessoal, estamos com um problema na implantação do nosso sistema em um dos nossos clientes, utilizando a Daruma MACH 1. Quando vai ser efetuado a impressão de um comprovante não-fiscal referente a recebimento é lançado a exceção: procedure TACBrECFDaruma.VerificarBmpTexto(var IndiceBMP: Integer; const ATexto: String); begin //20140327 - Comentado para fazer testes pois não estava conseguindo imprimir COMPROVANTE NÃO FISCAL com indice maior que 05 - INICIO if IndiceBMP > 5 then raise EACBrECFERRO.Create( ACBrStr('Indice do bitmap deve ser um valor entre 1 e 5, ou 0 para nenhum.') ); //20140327 - Comentado para fazer testes pois não estava conseguindo imprimir COMPROVANTE NÃO FISCAL com indice maior que 05 - TERMINO // Se possui código de barras e Bitmap no texto remover o bitmap, // porque a Daruma imprime um em cima do outro if TACBrECF(fpOwner).ECF.PossuiTagCodBarra(ATexto) and (IndiceBMP > 0) then IndiceBMP := 0; end; Analisando o código o problema se refere a essa procedure acima. Na leitura X desse ECF no cliente, o totalizador não-fiscal de recebimento é 7. Gostaria que vocês na medida do possível me informasse o que seria esse IndiceBMP que foi tratado para lançar exceção no source da ACBr. Comentamos esse 'raise' e fizemos um teste rápido e passou a imprimir normalmente, mas estamos inseguros se não vai dar problema em outras situações ou no futuro. Desde já agradeço.