Limpar Informações de Retorno do Componente após Envio

[nolher]

Em nossa rotina a um formulário para envio de diversos conhecimentos de acordo com a seleção do usuário, isto é faz-se uma pre seleção e envia aquele grupo de conhecimentos, logo em seguida o usuário poderá fazer nova seleção e enviar nova sequencia de conhecimentos.

Até tudo bem, porém estou com o componente nesse mesmo formulário, ao final estou aplicando o clear na propriedade conhecimento, ou seja ACBrCTe.Conhecimentos.Clear , imaginando assim que estaria limpando todo o componente, mas estou percebendo que as informações de retorno estão sendo mantida, e me causando alguns transtornos já que caso ocorra alguma falha na transmissão da segunda remessa e não atualiza as informações de retorno esta sendo mantida a anterior.

Sendo assim venho até vcs para solicitar alguma dica para resolver essa situação, caso já tenham passado por uma situação desta.

Desde já antecipo agradecimentos,

Nilton Olher.

[Italo Giurizzato Junior]

Boa tarde Nilton,

Favor atualizar os fontes.

Agora todas as rotinas de conexão com os WebServices, inicializam a propriedade cStat com o valor zero.

Após o retorno se essa propriedade manter o valor zero é porque ocorreu falha, logo desconsidere as demais informações de retorno.

Espero que isso resolva o problema.

[nolher]

Infelizmente não resolveu o meu problema.

Mesmo assim ainda estou com o problema.

Implementei dentro do componente especificamente na unit ACBrCTeWebServices as seguintes alterações:

TCteRetRecepcao = Class(TWebServicesBase)

private

.

.

.

public

procedure Clear;

.

.

.

procedure TCteRetRecepcao.Clear;

var

i,j : Integer;

AProcCTe: TProcCte;

begin

//Limpa Dados do retorno;

FMsg := '';

FverAplic := '';

FcStat := 0;

FxMotivo := '';

//Limpa Dados dos retornos dos conhecimentos;

for i := 0 to FCTeRetorno.ProtCTe.Count-1 do

begin

for j := 0 to FCTes.Count-1 do

begin

if FCTeRetorno.ProtCTe.Items.chCTe = StringReplace(FCTes.Items[j].CTe.InfCTe.Id,'CTe','',[rfIgnoreCase]) then

begin

FCTes.Items[j].Msg := '';

FCTes.Items[j].CTe.procCTe.verAplic := '';

FCTes.Items[j].CTe.procCTe.chCTe := '';

FCTes.Items[j].CTe.procCTe.dhRecbto := 0;

FCTes.Items[j].CTe.procCTe.nProt := '';

FCTes.Items[j].CTe.procCTe.digVal := '';

FCTes.Items[j].CTe.procCTe.cStat := 0;

FCTes.Items[j].CTe.procCTe.xMotivo := '';

end;

end;

end;

end;

Espero que possa ser uma implementação que possa se tornar oficial.

Desde já antecipo meus agradecimentos pelo auxilio.

[Italo Giurizzato Junior]

Nilton,

Com esse implementação, resolve o problema?

[nolher]

Sim, resolve sim!

[Italo Giurizzato Junior]

Nilton,

Implementação realizada e já encontra-se disponivel no SVN.

[nolher]

Muito Obrigado pela implementação.