Como saber se EnviarStatusPagamento deu certo?

[jackson Lima]

Bom dia pessoal.

Como eu posso saber se deu certo EnviarStatusPagamento?

Seria usando:

if (RespostaStatusPagamento.IntegradorResposta.Codigo = 'AP') then

Obrigado.

[jackson Lima]

Retorno com erro:

<Integrador>
  <Identificador>
    <Valor>178472</Valor>
  </Identificador>
  <IntegradorResposta>
    <Codigo>EE</Codigo>
    <Valor>Erro inesperado</Valor>
  </IntegradorResposta>
  <Resposta>
    <retorno>Uma exceção foi acionada pelo destino de uma chamada.</retorno>
  </Resposta>
</Integrador>

Retorno com sucesso:

<Integrador>
  <Identificador>
    <Valor>759788</Valor>
  </Identificador>
  <IntegradorResposta>
    <Codigo>AP</Codigo>
    <Valor>Arquivo processado</Valor>
  </IntegradorResposta>
  <Resposta>
    <IdPagamento>23322793</IdPagamento>
    <Mensagem>Pagamento enviado com sucesso ao validador fiscal! O ID da transação para acompanhar o status e identificá-la no portal de ajustes é 23322793</Mensagem>
    <StatusPagamento>EnviadoAoValidador</StatusPagamento>
  </Resposta>
</Integrador>

Eu tento acessar:

if RespostaStatusPagamento.IntegradorResposta.Codigo = 'AP' then

Mas me retorna vazio.

[jackson Lima]

Para reproduzir é só manda o bin zerado em EnviarStatusPagamento.

[jackson Lima]

Para reproduzir no demo é só inicializar o SAT e clicar em Enviar Status Pagamento.

No showmessage que tem no evento do botão ao invés de: 

ShowMessage(RespostaStatusPagamento.Retorno);

Altere para:

ShowMessage(RespostaStatusPagamento.IntegradorResposta.Codigo);

Log em anexo.

ACBrSAT.log

[jackson Lima]

Help me @André Ferreira de Moraes 

[André Ferreira de Moraes]

Ainda não tive tempo de analisar, pretendo verificar hoje a tarde.

[jackson Lima]

Beleza. 

Caso ajude, se comentar essa linha em pcnVFPeR:

function TRespostaStatusPagamentoR.LerXml: boolean;
begin
  Leitor.Grupo := Leitor.Arquivo;

  // Linha comentada
  // RespostaStatusPagamento.Clear;

  if (Pos(UpperCase('retorno'),UpperCase(Leitor.Arquivo)) <= 0) and
     (Pos(UpperCase('Integrador'),UpperCase(Leitor.Arquivo)) <= 0) then
    RespostaStatusPagamento.Retorno := Leitor.Arquivo
  else
  begin
    RespostaStatusPagamento.Retorno := Leitor.rCampo(tcStr, 'retorno');
    RespostaStatusPagamento.IntegradorResposta.LerResposta(Leitor.Grupo);
  end;

  Result := True;
end;

E adicionar essa linha em ACBrIntegrador:

function TACBrIntegrador.EnviarStatusPagamento(
  StatusPagamento: TStatusPagamento): TRespostaStatusPagamento;
var
  Comando, Resp : String;
begin
  Result := TRespostaStatusPagamento.Create;

  GerarNumeroSessao;

  StatusPagamento.Identificador := numeroSessao;
  Comando := StatusPagamento.AsXMLString;
  DoLog('EnviarStatusPagamento( '+Comando+' )');

  Resp := FComandoIntegrador.EnviaComando(numeroSessao,'EnviarStatusPagamento',Comando);

  // LINHA NOVA
  Result.IntegradorResposta := FComandoIntegrador.FIntegradorResposta;

  Result.AsXMLString := Resp;
end;

Ai sim funciona. Mas não parece ser muito aconselhável. kkk

[André Ferreira de Moraes]

Já revisei o código, o @Daniel Simoes está verificando se não causou nenhum efeito colateral e em breve os ajustes serão enviados ao SVN.

[André Ferreira de Moraes]

Atualize seus fontes e teste novamente. Disponível na revisão 15219 do SVN.

[jackson Lima]

Vocês são feras, obrigado. Já testei e está ok