Cancelamento Sat

[lcallogeras]

Boa tarde senhores, 

 

Estou fazendo um teste para o cancelamento de venda pelo programa de exemplo do ACBR. Sempre que tentava cancelar uma venda a seguinte mensagem era apresentada: "Dados Cancelamento Invalido". Ao depurar o código vi que no método CancelarUltimaVenda, unit ACBrSat, ao executar a linha:

 

  dadosCancelamento := CFeCanc.AsXMLString;

 

A variável dadosCancelamento sempre estava vazia. Isso ocorre pois a propriedade AsXmlString chama o método GetAsXMLString da unit pcnCfeCanc. Esse método estava da seguinte maneira:

 

function TCFeCanc.GetAsXMLString : String ;

begin

   GetXMLString( false ) ;

end;

 

 

Dessa forma, apesar de gerar a string com o xml ele não retornava nada. Para solucionar o problema mudei o método, deixando-o dessa forma:

 

function TCFeCanc.GetAsXMLString : String ;

begin

    Result := GetXMLString( false ) ;

end;

 

 

Atenciosamente, 
Larissa

 

[Daniel Simoes]

Mais uma vez você está correta...    Obrigado pelo excelente bug report..

 

( Acho que o problema ocorreu após um refactoring )

 

Rev: 6385