Erro Na Lista De Relatórios Gerenciais

[_asseinfo]

Olá pessoal!

Ao chamar o método "ACBrECF1.RelatoriosGerenciais" para a impressora ZPM (protocolo FiscNET) a lista vem poluída com vários itens inválidos. Isso ocorre porque não é checado se o item é válido (conforme abaixo):

Function SubCarregaGerenciais(Indice : Integer) : Boolean ;

...

RG := TACBrECFRelatorioGerencial.create ;

RG.Indice := FiscNETResposta.Params.Values['CodGerencial'] ;

RG.Descricao := FiscNETResposta.Params.Values['NomeGerencial] ;

fpRelatoriosGerenciais.Add( RG ) ;

...

Gostaria de propor uma modificação para que fosse adicionado a lista somente itens válidos (como já é feito com outras implementações como ACBrECFBematech e ACBrECFDaruma):

Function SubCarregaGerenciais(Indice : Integer) : Boolean ;

...

if Trim(FiscNETResposta.Params.Values['NomeGerencial']) <> '' then

begin

RG := TACBrECFRelatorioGerencial.create ;

RG.Indice := FiscNETResposta.Params.Values['CodGerencial] ;

RG.Descricao := FiscNETResposta.Params.Values['NomeGerencial] ;

fpRelatoriosGerenciais.Add( RG ) ;

end;

...

O que os amigos acham?

Envio em anexo o patch com a modificação, caso optem por modificar conforme descrevi acima.

Um abraço

ACBrECFFiscNET.pas.rar

ACBrECFFiscNET.pas.rar

Editado 6 Junho, 2013 por _asseinfo

[EMBarbosa]

Olá,

 

  O quê exatamente é item inválido? Eu não sei se você notou, mas o comando retornado pelo ECF é tratado no caso de um Gerencial não definido.

 

  Eu particularmente não alteraria o funcionamento atual sem ter mais detalhes de o que você quer conseguir e do porquê o método atual não atende as expectativas dos usuários em geral. A última alteração nessa área já cerca de 3 anos. Você pode dar mais informações?