Dúvidas sobre o Cancelamento do SAT

[Texs]

Olá.

     Estou com uma dúvida, pois a pessoa que fez a implementação do SAT está de férias, porém ao verificar algumas informações gostaria de saber se o cancelamento está correto.

     Estou alimentando o componente desta forma:

  with ACBrSAT do
  begin
    Modelo  := TACBrSATModelo(satDinamico_stdcall);
    ArqLOG  := 'ACBrSAT.log';
    NomeDLL := VSatDLL;
    Config.ide_numeroCaixa       := VNUM_CAIXA;
    Config.ide_tpAmb             := TpcnTipoAmbiente(Se(VSatAMBIENTE = '1', taProducao, taHomologacao));
    Config.ide_CNPJ              := VNOSSO_CNPJ;
    Config.emit_CNPJ             := VEMP_ATV_CNPJ;
    Config.emit_IE               := VEMP_ATV_IE;
    Config.emit_IM               := VEMP_ATV_IM;
    Config.emit_cRegTrib         := TpcnRegTrib(Se(VPAR2_P2197 = 'S', RTSimplesNacional, RTRegimeNormal));
    Config.emit_cRegTribISSQN    := TpcnRegTribISSQN( RTRegimeNormal );
    Config.emit_indRatISSQN      := TpcnindRatISSQN( irNao ) ;
    Config.PaginaDeCodigo        := StrToInt(VSatPAGINA);
    Config.EhUTF8                := False;
    Config.infCFe_versaoDadosEnt := StrToFloat(Busca_Troca(VSatVERSAO, '.', ','));

    ConfigArquivos.SalvarCFe            := True;
    ConfigArquivos.SalvarEnvio          := True;
    ConfigArquivos.SalvarCFeCanc        := True;
    ConfigArquivos.PastaCFeVenda        := VSatDiretorioEmitidos;
    ConfigArquivos.PastaCFeCancelamento := VSatDiretorioCancelados;
    ConfigArquivos.PastaEnvio           := VSatDiretorioEmitidos;
  end
 

     Meu código de cancelamento é o seguinte:

               ACBrSAT.Inicializado := True;

               ACBrSAT.CFe.LoadFromFile(VSatDiretorioEmitidos + '\' + FieldByName('MOVV_SAT_ARQUIVO').AsString);
               ACBrSAT.CFe2CFeCanc;

               ACBrSAT.CancelarUltimaVenda;

               if ACBrSAT.Resposta.codigoDeRetorno = 7000 then
                   ACBrSAT.ImprimirExtratoResumido
 

      Porém ele está gerando apenas este arquivo (ADC35161153485215000106599000063310000452173344-env.xml)

      Este arquivo já é suficiente para o cancelamento ou teria que ter outro arquivo? Ele irá criar algum arquivo na pasta de Cancelamentos? Como deveria funcionar de fato?

 

       Obrigado, Abraços!

       Marcelo Lucena

CFe35161153485215000106599000063310000452173344.xml

[Texs]

Pessoal, acredito que deu algum problema, e  acredito que ninguém visualizou meu SAC.

Devo criar um novo?

[Juliomar Marchetti]

Bom dia

não uso o SAT mas vou pedir para quem usa lhe ajudar

[Texs]

Olá Juliomar, conseguiu alguém que pudesse me ajudar?

[André Ferreira de Moraes]

Siga os passos do demo:

    ACBrSAT1.CFe.LoadFromFile( OpenDialog1.FileName );
    ACBrSAT1.CFe2CFeCanc; 
    ACBrSAT1.CancelarUltimaVenda(  ACBrSAT1.CFeCanc.infCFe.chCanc, ACBrSAT1.CFeCanc.GerarXML(True) );  

 

[Daniel Simoes]

Ou então apenas:

ACBrSAT.CFe.LoadFromFile(VSatDiretorioEmitidos + '\' + FieldByName('MOVV_SAT_ARQUIVO').AsString);
ACBrSAT.CancelarUltimaVenda; 

Repare que dentro do método "CancelarUltimaVenda", quando chamado sem parâmetros, ele irá fazer a conversão e chamar o método original...

function TACBrSAT.CancelarUltimaVenda: String ;
var
  dadosCancelamento : string;
begin
  CFe2CFeCanc; // Atualiza para chave carregada para o cancelamento

  dadosCancelamento := CFeCanc.GerarXML( true ); // True = Gera apenas as TAGs da aplicação

  Result := CancelarUltimaVenda( CFeCanc.infCFe.chCanc, dadosCancelamento);
end ;  

 

[Texs]

Fiz das duas formas e só criou os dois arquivos que eu anexei no inicio do ticket. Não criou nada na pasta de Cancelamento e na pasta Enviado só ficou estes dois mesmo.

Precisa de um terceiro arquivo pra validar o cancelamento?

Estou utilizando um SAT SWEDA que nós compramos pra testar o SAT aqui.

 

[Daniel Simoes]

Por favor tente reproduzir o problema no projeto Demo, SATTeste.exe... e nos informe o passo a passo...

[Texs]

Pessoal.

           O problema estava no abastecimento do diretório de cancelamento, que estava sendo atribuído '' (vazio). Corrigi este problema e tudo voltou a funcionar.

Obrigado, abraços!