Cancelamento NFS

[marcia]

Boa tarde!

Estou com o seguinte erro para cancelar uma NFSe pelo demo

[arimateia (Arimateia Jr)]

Bom dia @marcia,

Esse erro é ao consumir qual endpoint?

[marcia]

Estou usando SDK para Delphi

[wlandgraf (Wagner Landgraf)]

Mas a nota está cancelada? Poderia por favor enviar um print com a tela anterior, com a nota selecionada e o botão clicado?

[marcia]

A nota não esta cancelada

[wlandgraf (Wagner Landgraf)]

Poderia por favor utilizar o demo em modo debug e no momento do erro enviar um print do call stack?

[marcia]

Consegui fazer o cancelamento.

Mais foi necessário fazer alguns ajustes…

procedure TfmMain.btCancelarNfseClick(Sender: TObject);
VAR Cancelamento: TNfseCancelamento;
cBody: TNfsePedidoCancelamento;
begin
if NfseSelecionada = ‘’ then
Exit;

 if MessageDlg('Tem certeza que deseja cancelar a nota ' + NfseSelecionada, mtConfirmation, [mbOk, mbCancel], 0, mbCancel) <> mrOk then
      Exit;


 cBody:= TNfsePedidoCancelamento.Create;

 cBody.codigo:= '1';
 cBody.motivo:= 'teste de cancelamento';

 Cancelamento := Client.Nfse.CancelarNfse(cBody,NfseSelecionada);
 try
      ShowMessage(Format('Pedido de cancelamento %s em processamento.',[Cancelamento.id]));
 finally
      Cancelamento.Free;
      cBody.Free;
 end;

end;

[wlandgraf (Wagner Landgraf)]

Obrigado pelo retorno.