Daniel Simoes

procedure TForm1.ACBrTEFD1DepoisConfirmarTransacoes( RespostasPendentes: TACBrTEFDRespostasPendentes); var I : Integer; B: Boolean; begin for I := 0 to RespostasPendentes.Count-1 do begin with RespostasPendentes[i] do begin B := Credito; B := Debito; B := Digitado; Memo1.Lines.Add('Confirmado: '+Header+' ID: '+IntToStr( ID ) ); memo1.Lines.Add('Desconto: '+ FormatFloat('###,###,##0.00',Desconto)); memo1.Lines.Add('Saque: '+ FormatFloat('###,###,##0.00',Saque)); Memo1.Lines.Add( 'Rede: ' + Rede + ' NSU: ' + NSU + ' Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ; Memo1.Lines.Add('Campo 11: ' + LeInformacao(11,0).AsString ); end; end; end;

1 - É O NSU da transação que vc quer cancelar 2 - NÃO, na homologação vc não poderá suprimir essa tela... vc pode sugerir o valor: Respostas.Values['indice'] := NSU ;

Você já atualizou os seus fontes ?

Cada TEF tem um retorno diferente... o ACBrTEFD tenta abstrair algumas coisas, mas o numero de retorno como vc está usando (10..13), é muito específico para um tipo de TEF... Definitivamente você não precisa disso... existem propriedades específicas para informar se o Cartão foi Débito/Credito,

Não sei dizer o que ocorreria no V.B... No Delphi/Lazarus provavelmente teríamos um Access Violation

Veja o exemplo do Demo, se o código de resposta equivale ao "sucesso", ele grava o CFe if ACBrSAT1.Resposta.codigoDeRetorno = 6000 then begin ...

Não há uma propriedade no ACBrECF que sirva para todos os modelos... Na Daruma, vc poderia tentar: ACBrECF1.RetornaInfoECF( '109' ); 109 1 N Configuração: 1 se desconto em ISS habilitado, 0 se não

30,64 é o correto... 1,5 X 20,43 = 30,645 que é arredondado pela ABNT para 30,64 Para testar, use a função do ACBrUtil.. RoundABNT(20.43 * 1.5,-2) http://partners.bematech.com.br/2011/12/edicao-98-entendendo-o-truncamento-e-arredondamento-no-ecf/

Modificações propostas enviadas para o SVN, na revisão 7158 Muito obrigado pela contribuição

Provavelmente você está informando uma "Porta" em ACBrECF, que não é acessível ao Windows Experimente mudar na porta para um arquivo TXT, Exemplo: ACBrECF1.Porta := "C:\TEMP\IMPECF.TXT" (toda a saída de impressão irá para esse arquivo)

O problema ocorre, porque o seu ECF não está configurado para permitir Descontos em Items de Serviço (Alíquota de ISS)

Não compreendi a pergunta, caso o que aconteça ?? Após a abertura do cupom, se você consultar novamente o estado do ECF, ele será estVenda

Você consegue descrever um passo a passo usando o TEFDDemo e o Emulador da Epson ?

Apliquei uma possível correção no SVN, favor atualizar os fontes e testar...

Faltou o passo a passo

Por favor descreva as suas alterações e porque elas são necessárias

Não há nenhuma mensagem de erro no seu LOG

Por favor descreva um passo a passo, usando o ECFTeste e o Emulador da Epson... descreva todos os comandos invocados até chegar ao erro..

Com CAPICOM não daria certo da maneira que expus... ela exigiria a instalação do certificado no Windows...

Certificado A1 é apenas um arquivo... Se você usar OpenSSL, não precisa instalar ele no Windows... Você poderia levar ele no instalador da sua aplicação... ou ainda compactado/criptografado no seu banco de dados... Na hora de usar, descompacta em Stream ou em um arquivo temporário e usa...

No Demo do ACBr não funciona ? Usando o Demo, quais são os passos para reprodução do problema ?

ACBrMail.DefaultCharSet := UTF_8

Não você não pode... A não ser que você tenha um contrato com a empresa que vc usa como provedor de TEF (como a Sw.Express), pois eles tem acesso a descriptografia das informações lidas pelo PinPad

Não tenho necessidade dessas informações no momento... e por isso, não tenho planos para fazer essa modificação... Antes porém, seria necessário um estudo mais apurado de quais ECFs estão aptos a retornar essa informação

A maioria dos ECFs não retorna essa informação...