acbrsat Codigo de Ativação Inválido ou SAT Bloqueado, codigo de ativação incorreto

[Willian Marques]

Bom dia pessoal, estou tentando fazer uma venda aqui com o SAT TANCA SDK Development KIT e ja estou a três dias tentando resolver esse problema, por isso, peço muito a colaboração de vocês.

Pelo o que eu entendi ele o ACBrSAT pega o codigo de ativação através da procedure TForm1.ACBrSAT1GetcodigoDeAtivacao, eu a coloque no meu form dessa forma:

Declaração:    procedure ACBrSAT1GetcodigoDeAtivacao(var Chave: AnsiString);

Implementação:

procedure TfrmVenda.ACBrSAT1GetcodigoDeAtivacao(var Chave: AnsiString);
begin
  Chave := '12345678';
end;

 

Porém quando debugo na função abaixo do componente, a variavel AcondigoDeAtivação não retorna nenhum valor para a função.

//FUNÇÃO DO SAT

function TACBrSAT.GetcodigoDeAtivacao: AnsiString;
var
  AcodigoDeAtivacao: AnsiString;
begin
  AcodigoDeAtivacao := '';

  if Assigned(fsOnGetcodigoDeAtivacao) then
    fsOnGetcodigoDeAtivacao(AcodigoDeAtivacao);

  Result := AcodigoDeAtivacao;
end;

 

Gostaria de saber se estou implementando da forma certa, porque não consegui de forma alguma eliminar esse erro. No software da Tanca, ele está ativado normal, ja fiz o teste.

[Sérgio Assunção]

@William Marques
Qual a versão do Delphi que você está usando ? Tentou fazer essa mesma depuração no SATTeste ?

[Willian Marques]

Olá Sergio, estou utilizando o XE10. O SATTeste não funciona aqui, pois as uses { ACBrSATMFe_integrador, pcnVFPe; } aparecem com o erro: Cannot Resolve Unit Name. Não sei como resolver.

[Wess]

12 minutos atrás, Willian Marques disse:

Olá Sergio, estou utilizando o XE10. O SATTeste não funciona aqui, pois as uses { ACBrSATMFe_integrador, pcnVFPe; } aparecem com o erro: Cannot Resolve Unit Name. Não sei como resolver.

Apaga o ACBr e instala novamente pelo ACBrInstall, baixando tudo atualizado. Possivelmente ainda na hora de compilar o SATTeste dará erro de diferença de declaração em duas procedures, ACBrSAT1GetcodigoDeAtivacao e ACBrSAT1GetsignAC (ao menos aqui ocorre), só muda de String para AnsiString na declaração que vai compilar, falei de apagar e instalar novamente com o Install pelo fato do registro dos paths, mas pode fazer manualmente também.

[Willian Marques]

5 minutos atrás, Wess disse:

Apaga o ACBr e instala novamente pelo ACBrInstall, baixando tudo atualizado. Possivelmente ainda na hora de compilar o SATTeste dará erro de diferença de declaração em duas procedures, ACBrSAT1GetcodigoDeAtivacao e ACBrSAT1GetsignAC (ao menos aqui ocorre), só muda de String para AnsiString na declaração que vai compilar, falei de apagar e instalar novamente com o Install pelo fato do registro dos paths, mas pode fazer manualmente também.

Wess eu já fiz isso em ambas as procedures, vou tentar reinstalar aqui mas acho que esse não é o caso.

[Wess]

Agora, Willian Marques disse:

Wess eu já fiz isso em ambas as procedures, vou tentar reinstalar aqui mas acho que esse não é o caso.

Sim, a questão de Cannot Resolve Unit Name é por não achar as Units na máquina, que pode ser resolvido reinstalando tudo atualizado ou adicionando os paths no Delphi manualmente

[Willian Marques]

47 minutos atrás, Wess disse:

Sim, a questão de Cannot Resolve Unit Name é por não achar as Units na máquina, que pode ser resolvido reinstalando tudo atualizado ou adicionando os paths no Delphi manualmente

OK Wess, está rodando o SATTeste, mas o erro persiste: 'SAT bloqueado, codigo de ativacao incorreto';

[Sérgio Assunção]

1 hora atrás, Willian Marques disse:

OK Wess, está rodando o SATTeste, mas o erro persiste: 'SAT bloqueado, codigo de ativacao incorreto';

Depure agora o SATTeste e veja qual o conteúdo (Chave) que está sendo enviado ao componente.

[Willian Marques]

15 horas atrás, Sérgio Assunção disse:

Depure agora o SATTeste e veja qual o conteúdo (Chave) que está sendo enviado ao componente.

Sergio nesse função ele não ta pegando nada, ta pegando em branco no result.

function TACBrSAT.GetcodigoDeAtivacao: AnsiString;
var
  AcodigoDeAtivacao: AnsiString;
begin
  AcodigoDeAtivacao := '';

  if Assigned(fsOnGetcodigoDeAtivacao) then
    fsOnGetcodigoDeAtivacao(AcodigoDeAtivacao);

  Result := AcodigoDeAtivacao;
end;

 

Suponha que é nesse função que ele pega o codigo de ativacao certo?

Editado 25 Maio, 2017 por Willian Marques

[Willian Marques]

Nem mesmo a assinatura da saindo nos XML's gerados. Parece que há alguma falha nas funções que pegam esses valores, pois não ta pegando os valores.

AD20170525170209-869746-env.xml

Editado 25 Maio, 2017 por Willian Marques

[Sérgio Assunção]

@Willian Marques
No SATTeste você consegue Inicializar ? Consultar o status operacional?

[Willian Marques]

1 minuto atrás, Sérgio Assunção disse:

@Willian Marques
No SATTeste você consegue Inicializar ? Consultar o status operacional?

Sim Sérgio, isso eu consigo, o problema é só na hora da venda mesmo, na hora de enviar a venda.

Editado 25 Maio, 2017 por Willian Marques

[André Ferreira de Moraes]

Vc copiou as funções do demo, ou colocou um novo componente, foi na aba eventos e clicou 2 vezes no OnGetCodigoAtivação?

[Willian Marques]

1 minuto atrás, André Ferreira de Moraes disse:

Vc copiou as funções do demo, ou colocou um novo componente, foi na aba eventos e clicou 2 vezes no OnGetCodigoAtivação?

Copiei as funções

 procedure ACBrSAT1GetcodigoDeAtivacao(var Chave: AnsiString);
begin
  Chave := '12345678';
end;

 

e a procedure onGetAssinatura, e coloquei em meu fonte. Não mexi na aba evento. 

Mas a questão é que mesmo no SATTeste esta dando erro, nao esta pegando o codigo de ativacao.

[André Ferreira de Moraes]

Então seu componente não está associado ao evento. Implemente a partir da aba evento.

[Willian Marques]

André, nem acredito, era isso mesmo. E no SATTeste estava dando erro pois eu havia copiado o componente ACBrSat que estava em meu outro projeto substituindo o original, fazendo com que o método se desassociasse no componente. 

Foi muito burro de perceber que os metodos para pegar o codigo de ativacao e assinatura vinham de um evento do componente...

Muito obrigado a todos que me responderam aqui, obrigado mesmo!

 

[Marcelo R]

Eita pessoal, passei a manhã no sufoco por causa disso rs.

resumindo, se eu deletar o demo e rodar de novo fica ok isso? melhor que caçar metodo a metodo.