Pequena Falha No Acbrciee

[vca_rj]

Olá pessoal!

 

Gostaria que vocês dessem uma olhada na função "TACBrCNIEE.BuscarECF".

 

Bem, estou usando um ECF, Daruma MACH 2. Quando utilizo o "ACBrECF.SubModeloECF" para buscar o Modelo, é retornado "MACH2" e não "MACH 2", fazendo com que não seja encontrado na tabela.

 

Para resolver isso, optei em retirar os espaços. No meu código eu utilizo assim:

 

  Marca    := StringReplace(edtMarca.Text,' ','', [rfReplaceAll]);

  Modelo   := StringReplace(edtModelo.Text, ' ','', [rfReplaceAll]);

  VersaoSB := StringReplace(edtVersaoSB.Text,' ','', [rfReplaceAll]);

...

 

 ECF := ACBrCNIEE.BuscarECF(Marca, Modelo, VersaoSB);

 

E dentro da função "TACBrCNIEE.BuscarECF", coloquei o seguinte código:

...

  Marca    := AnsiUpperCase(AMarca);

  Modelo   := AnsiUpperCase(AModelo);

  VersaoSB := AnsiUpperCase(ACBrUtil.OnlyNumber(AVersaoSB));

 

  Result := nil;

  for I := 0 to Cadastros.Count - 1 do

  begin

    MarcaAtual  := AnsiUpperCase(Cadastros.DescrMarca);

    ModeloAtual := AnsiUpperCase(Cadastros.DescrModelo);

    VersaoAtual := AnsiUpperCase(ACBrUtil.OnlyNumber(Cadastros.Versao));

 

    //Retirar Espaços

    MarcaAtual  := StringReplace(MarcaAtual,' ','', [rfReplaceAll]);

    ModeloAtual := StringReplace(ModeloAtual,' ','', [rfReplaceAll]);

    VersaoAtual := StringReplace(VersaoAtual,' ','', [rfReplaceAll]);

 

    if (MarcaAtual = Marca) and (ModeloAtual = Modelo) and (VersaoAtual = VersaoSB) then

...

 

Resolveu o meu problema. Vejam se é possível inserir isso no fonte.

Abraços...

 

[Régys Silveira]

Por favor anexe o fonte alterado para podermos comparar as modificações e validar sua contribuição.

[vca_rj]

Segue o fonte.

 

Por favor, me avise sobre o que decidiu.

 

Abraços.

ACBrCNIEE.pas

Editado 27 Maio, 2013 por vca_rj

[Régys Silveira]

VCA_RJ, vou trocar uma ideia com o pessoal aqui do core ACBr e assim que tiver uma resposta retorno, precisamos testar em outros modelos de impressora para ver se não vai dar problema.

[vca_rj]

OK.

[EMBarbosa]

     Se a tabela disponibilizada pelo governo estiver diferente mesmo, acho que seria bom verificar com a Daruma o motivo de estar cadastrado assim. Talvez eles tenham alguma recomendação nesse caso.

 

     No mais, considerando que é muito difícil ter modelos com nomes ambíguos quando se retira os espaços, acho que não há nenhum problema. Exemplo: Não acho que fabricante algum iria criar um ECF Modelo "MAXI 490" e depois um outro "MAX i490".

     Mas seria bom deixar documentado, talvez até no código, o motivo de fazer esse "trim" para que no futuro ninguém tivesse problema ao mexer nessa parte do código.

[Régys Silveira]

Elton, é justamente isso que me veio a cabeça, acho que seria bom o pessoal postar suas opiniões e testes aqui para sabermos se a mudança não quebra o código atual, o que acham?

[vca_rj]

Olá Régys!

 

O código foi adicionado ao projeto?

 

Estou perguntando para saber se posso baixar via svn, sem me preocupar com a alteração no meu software.

 

Abraços...

[Daniel Simoes]

Acho que o método poderia ser modificado para incluir um último parâmetro que pode default recebesse False, algo como:

function TACBrCNIEE.BuscarECF(const AMarca, AModelo, AVersaoSB: String; RemoveEspacos : Boolean = False): TACBrCNIEERegistro;

if RemoveEspacos then
begin
    MarcaAtual  := StringReplace(MarcaAtual,' ','', [rfReplaceAll]);
    ModeloAtual := StringReplace(ModeloAtual,' ','', [rfReplaceAll]);
    VersaoAtual := StringReplace(VersaoAtual,' ','', [rfReplaceAll]);
end;

Assim não afetaria o código de projetos já existentes...

[EMBarbosa]

Eu concordo com o Daniel. Se não tiver nenhum motivo específico da Daruma pra ter feito essa diferença, acho que é a melhor opção.

[Régys Silveira]

Vou proceder a atualização e subir ainda hoje.

[Régys Silveira]

Alteração enviada para o repositório.