Painel de líderes

Resposta curta: Use o método ACBrTEFD1.CNC Ok, vamos explicar um pouco mais... O ACBrTEFD, tem um método exclusivo para Cancelamento, ACBrTEFD1.CNC, com ele o ACBrTEFD já iniciará uma transação administrativa, com informações suficientes, para localizar a transação no Banco de Dados do Gerenciador TEF, e iniciar o Cancelamento da mesma... Function CNC(const Rede, NSU : String; const DataHoraTransacao : TDateTime; const Valor : Double; CodigoAutorizacaoTransacao: String = '') : Boolean ; Veja abaixo, um exemplo de como você pode chamar o método: ACBrTEFD1.CNC( AResp.Rede, // PWINFO_AUTHSYST AResp.NSU, // PWINFO_AUTEXTREF AResp.DataHoraTransacaoLocal, // PWINFO_DATETIME AResp.ValorTotal, // PWINFO_TOTAMNT AResp.CodigoAutorizacaoTransacao); // PWINFO_AUTHCODE Lembramos entretanto, que cada adquirente, tem um fluxo de Cancelamento de transações, então pode ser que em alguns casos, outras informações sejam solicitadas, pelo Gerenciador TEF, por isso é sempre recomendado, ter o Cupom da Transação original, em mãos... Outro fato, é que sempre será solicitado o cartão do cliente, no final do processo... Ou seja, o Cliente precisa estar presente, para que o cancelamento seja efetuado...

ACBrBoleto.pasACBrBancoInter.pas Realizado ajuste para calcular o nome do arquivo pela próprio componente.

Prezados Seguem os arquivos para análise. Foi realizada uma correção no processamento do arquivo por parte do banco, por isso a demora. Observação: a identificação do título (nosso número) será gerada pelo banco e informada através do arquivo de retorno. A impressão poderá ser feita também pelo internet banking do Inter. ACBrBancoInter.pas ACBrBoleto.pas Alimente o componente com a instrução abaixo: ACBrBoleto1.NomeArqRemessa := 'CI400_001_' + FormatFloat('0000000', NumeroRemessa) + '.rem';

Um exemplo de configuração para A1, com WinCrypt seria: Sendo certificado A1, e Windows antigo... você poderia usar OpenSSL, para não depender de Updates do Windows

Que bom que deu certo @Jucemar Duarte! Numa horas dessas me paga um pizza! hehehe

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

Estou aguardando o retorno por parte do suporte do Banco Inter, pois está ocorrendo um erro interno no processamento do arquivo. Assim que for concluído, compartilharei os fontes.

Boa tarde! Estou trabalhando com o CNAB 400 do Inter. Segue o arquivo ACBrBoleto.pas com os ajustes iniciais. O arquivo referente ao Inter está passando por validações. Segue a versão inicial. ACBrBoleto.pas ACBrBancoInter.pas

Se você não usa o ACBrTEFD, pode informar os parâmetros, antes de iniciar a transação, usando o método: PW_iAddParam PW_iAddParam( PWINFO_AUTHSYST, Rede); // Origem: PWINFO_AUTHSYST PW_iAddParam( PWINFO_TRNORIGNSU, NSU); // Mandatorio, Origem: PWINFO_AUTEXTREF PW_iAddParam( PWINFO_TRNORIGDATE, FormatDateTime('DDMMYY', DataHoraTransacao)); // Mandatorio, Origem: PWINFO_DATETIME PW_iAddParam( PWINFO_TRNORIGTIME, FormatDateTime('hhnnss', DataHoraTransacao)); // Mandatorio, Origem: PWINFO_DATETIME PW_iAddParam( PWINFO_TRNORIGAMNT, IntToStr(Trunc(RoundTo(Valor * 100,-2))); // Mandatorio, Origem: PWINFO_TOTAMNT PW_iAddParam( PWINFO_TRNORIGAUTH, CodigoAutorizacaoTransacao); // Mandatorio, Origem: PWINFO_AUTHCODE