TEF Banese - É troca de arquivo mas não herda de TACBrTEFDClassTXT (Sugestão)

[sismais]

Boa tarde moderadores. Estou fazendo umas implementações dinâmicas e em uma delas verifico qual o tipo de comunicação do TEF (Troca de Arquivo ou Dedicado). Pelo que pude perceber, todos que são via troca de arquivo, a classe herda de "TACBrTEFDClassTXT" que por sua vez herda de "TACBrTEFDClass".

O TEF Banese porém, é o único que está diferente. Pelo que pude perceber, ele funciona via troca de arquivos mas herda diretamente de "TACBrTEFDClass".

Neste caso não deveria e/ou poderia herdar de "TACBrTEFDClassTXT"? Acredito que ficaria padronizado de forma correta e não impactaria em nada o desenvolvimento existente, além de servir para a verificação que estou fazendo e possivelmente outros membros podem querer fazer.

 

Se puder, e realmente for troca de arquivo, me disponho a alterar e subir aqui para análise. (Só não o fiz ainda, por que nunca usei Banese e não sei se está assim por algum motivo específico.)

[Daniel Simoes]

Provavelmente a classe do " TEF Banese" foi criada antes da criação de TACBrTEFDClassTXT... acho que pouca gente usa esse G.P.

[sismais]

14 horas atrás, Daniel Simoes disse:

Provavelmente a classe do " TEF Banese" foi criada antes da criação de TACBrTEFDClassTXT... acho que pouca gente usa esse G.P.

Bom dia Daniel, certo. Posso alterar aqui e submeter para análise e mesclagem? Mesmo que pouca gente use?

[Juliana Tamizou]

Bom dia.

Seria interessante que você tenha também condições de realizar testes após a alteração.

Att.

[Daniel Simoes]

Oi @maiconsaraiva... pode ser interessante... mas realmente fica um "frio na barriga" de quebrar algo que já está funcionando...

Eu nunca trabalhei com esse G.P.... você conseguiria testá-lo ?

[sismais]

26 minutos atrás, Daniel Simoes disse:

Oi @maiconsaraiva... pode ser interessante... mas realmente fica um "frio na barriga" de quebrar algo que já está funcionando...

Eu nunca trabalhei com esse G.P.... você conseguiria testá-lo ?

Daniel, infelizmente não tenho como testar não. Mas, ao meu ver, a única mudança seria algumas propriedades, que ao invés de ficarem na ACBrTEDClass, ficaria na ACBrTEFDClassTXT. A classe é simples, a importância mesmo está ná ACBrTEFDClass, que é usada atualmente no TEF Banese.

 

   TACBrTEFDClassTXT = class( TACBrTEFDClass )
   public
     constructor Create( AOwner : TComponent ) ; override;

   published
     property AutoAtivarGP ;

     property NumVias;
     property EsperaSTS;

     property ArqTemp  ;
     property ArqReq   ;
     property ArqSTS   ;
     property ArqResp  ;
     property GPExeName;
   end;


constructor TACBrTEFDClassTXT.Create(AOwner : TComponent);
begin
   inherited Create(AOwner);

   if Assigned( fpResp ) then
      fpResp.Free ;
   fpResp := TACBrTEFDRespTXT.Create;
   fpResp.TipoGP := Tipo;
end;

Mas, se você preferir, deixamos, e se pegar algum cliente com este TEF, faço os testes.