erro no cancelamento

[barrys]

estou tendo problemas em rela;á ao cancelamento do SAT.

alguns cancelam, outros não.

qual metodo estão utilizando?

[Sérgio Assunção]

Qual o erro ?

Pode detalhar a forma que você está fazendo ?

[barrys]

var
  chaveCancelamento: String;
begin
  OpenDialog1.Filter := 'Arquivo XML|*.xml';
  if OpenDialog1.Execute then
  begin
    ACBrSAT1.CFe.LoadFromFile( OpenDialog1.FileName );
    ACBrSAT1.CFe2CFeCanc;
    ACBrSAT1.CFeCanc.GerarXML( True ) ;  // True = Gera apenas as TAGs da aplicação
    chaveCancelamento := ACBrSAT1.CFeCanc.infCFe.chCanc;

    ACBrSAT1.CancelarUltimaVenda;
 

    if (ACBrSAT1.Resposta.codigoDeRetorno = 7000)   then ACBrSAT1.ImprimirExtratoCancelamento;
  end;
end;

[Sérgio Assunção]

Esta cancelando uma venda dentro do limite de 30 minutos ?

O cancelamento pela chave não seria ACBrSAT1.CancelarUltimaVenda( Chave, Xml ) ?

 

[wilson_jr]

Bom dia!

há as duas formas, também estou utilizando ACBrSAT1.CancelarUltimaVenda;

Quando utilizo o emulador o retorno que recebo é 7000 e no sat da bematech retorna 0, mas cancela.

Ainda não descobri o que é.

[aocampioni]

var
  chaveCancelamento: String;
begin
  OpenDialog1.Filter := 'Arquivo XML|*.xml';
  if OpenDialog1.Execute then
  begin
    ACBrSAT1.CFe.LoadFromFile( OpenDialog1.FileName );
    ACBrSAT1.CFe2CFeCanc;
    ACBrSAT1.CFeCanc.GerarXML( True ) ;  // True = Gera apenas as TAGs da aplicação
    chaveCancelamento := ACBrSAT1.CFeCanc.infCFe.chCanc;

    ACBrSAT1.CancelarUltimaVenda;
 

    if (ACBrSAT1.Resposta.codigoDeRetorno = 7000)   then ACBrSAT1.ImprimirExtratoCancelamento;
  end;
end;

Barrys,

Boa tarde. Tenta um pouco diferente. Eu deixo um memo oculto na tela e faço como no exemplo do ACBrSAT;

Ao invés de :

    ACBrSAT1.CFeCanc.GerarXML( True ) ;  // True = Gera apenas as TAGs da aplicação
    chaveCancelamento := ACBrSAT1.CFeCanc.infCFe.chCanc;
    
    ACBrSAT1.CancelaUltimaVenda;

Eu faço:

    mForcasOcultasSAT.Lines.Text := ACBrSAT1.CFeCanc.GerarXML( True ) ;  // componente MEMO oculto
    chaveCancelamento := ACBrSAT1.CFeCanc.infCFe.chCanc;

    ACBrSAT1.CancelarUltimaVenda( chaveCancelamento, mForcasOcultasSAT.Lines.Text );

    if ACBrSAT1.Resposta.codigoDeRetorno in [0,7000] then
    begin
      // cancelado com sucesso
      .... vai 
    end else
    begin
      // erro, tratamento
    end;

Veja aí o que acontece e retorna,

Até mais,

[wilson_jr]

Boa tarde Alexandre!

você está considerando que 0 é cancelado com sucesso, mas aparentemente no ACBr só irá salvar o xml se o retorno for 7000.

você está fazendo mais algum tratamento quanto a isso?

Att,

Wilson.

[Sérgio Assunção]

O código de retorno de um cancelamento com sucesso é exatamente o 7000. De 0 a 7000 acho que pode acontecer algum impasse hein

[aocampioni]

Ops,

Pessoal, estão certos, o código correto é :

    mForcasOcultasSAT.Lines.Text := ACBrSAT1.CFeCanc.GerarXML( True ) ;  // componente MEMO oculto
    chaveCancelamento := ACBrSAT1.CFeCanc.infCFe.chCanc;

    ACBrSAT1.CancelarUltimaVenda( chaveCancelamento, mForcasOcultasSAT.Lines.Text );

    if ACBrSAT1.Resposta.codigoDeRetorno = 7000 then
    begin
      // cancelado com sucesso
      .... vai 
    end else
    begin
      // erro, tratamento
    end;

Até mais,