Tidas

[volmir]

Bom dia pessoal,

tenho a seguinte situacao

em meus clientes eu uso o TEF da Linx via troca de arquivos (GP)

porem vou precisar usar um gereniador da Tidas (Faz vendas no Crediario)

fiz um demo funcionou certinho, porem agora preciso aplicar em meu PDV, mas acontece que o Tidas é somente pra crediario nao possui funcionalidade de (Credito/Debito)

para isso precisarei usar dois GP(o da Linx e o da Tidas) e de acordo com o tipo de pagameto chamar um ou outro

acontece que mesmo eu mudando as configuracoes em tempo de execucao ele sempre chama o GP da Linx.

alguem sabe como devo proceder pra usar dois GP e chamar cada um de acordo com a situação ?

[Daniel Simoes]

O correto seria criar uma nova Classe de Gerenciador Padrão, em TACBrTEFD... Justamente por esse motivo, existem vários Gerenciadores Padrões, que podem ser acionados simultaneamente, no componente...

[volmir]

bom dia 

teria que criar uma classe ACBrTEFDTidas por exemplo, não entendi. 

Ai eu usaria dois componentes Tef um configurado como TefDial e outro configurado como TefTidas, isso funcionaria ? ou estou fazendo confusão.

pois este Tidas funciona como se fosse o tefDial troca de arquivos,

[Daniel Simoes]

Sim, é isso mesmo... Observe por exemplo, que temos a Classe TEFDial e TEFDisc... Observe que a TEFDisc praticamente não tem código, a não ser o código de inicialização e setup dos diretórios...

A TEFDisc era usada pela TecBan, e a TEFDial era usada por RedeCard, Visanet e Amex... então em alguns cenários, era necessário manter ambos GPs em execução...

[volmir]

criei um nova classe 

TACBrTEFDTidas = class( TACBrTEFDClassTXT )

para simular(testar), porem nao funcionou mesmo assim ele continua chamando o gerenciador padrao da Linx

Usei dois componentes Tef

Um eu Configurei pra usar o tef_dial

TEF1.GPAtual:=gpTefDial

with DM.ACBRTEF1.TEFDial do
  begin
    Habilitado:=True;
    NumVias:=2;
    EsperaSTS:=7;
    ArqLOG:=ExtractFilePath(Application.ExeName)+'LOG\TEFDial.LOG';
    ArqReq:='C:\tef_dial\req\intpos.001';
    ArqResp:='C:\tef_dial\resp\intpos.001';
    ArqSTS:='C:\tef_dial\resp\intpos.sts';
    ArqTemp:='C:\tef_dial\temp\intpos.tmp';
    GPExeName:='C:\DPOS8\Bin\GPDirecao.exe';
  end;

//Outro

TEF2.GPAtual:=gpTefTidas

with DM.ACBRTEF1.TEFTidas do
  begin
    Habilitado:=True;
    NumVias:=2;
    EsperaSTS:=7;
    ArqLOG:=ExtractFilePath(Application.ExeName)+'LOG\TEFTidas.LOG';
    ArqReq:='C:\tef_dial\req\intpos.001';
    ArqResp:='C:\tef_dial\resp\intpos.001';
    ArqSTS:='C:\tef_dial\resp\intpos.sts';
    ArqTemp:='C:\tef_dial\temp\intpos.tmp';
    GPExeName:='C:\tef_dial\Gcard.exe';
  end;

 

porem mesmo assim continua chamando o tef da Linx

[Daniel Simoes]

Sem analisar todo o código, não consigo saber se você inseriu a nova classe no componente, de forma correta...

[volmir]

vou anexar para analize

ACBrTEFD.pas

ACBrTEFDTidas.pas

ACBrTEFDClass.pas

[Daniel Simoes]

Aparentemente os diretórios padrões estão errados:

const
  CACBrTEFDTidas_ArqTemp   = 'C:\TEF_DIAL\req\intpos.tmp' ;
  CACBrTEFDTidas_ArqReq    = 'C:\TEF_DIAL\req\intpos.001' ;
  CACBrTEFDTidas_ArqResp   = 'C:\TEF_DIAL\resp\intpos.001' ;
  CACBrTEFDTidas_ArqSTS    = 'C:\TEF_DIAL\resp\intpos.sts' ;
  CACBrTEFDTidas_GPExeName = 'C:\TEF_DIAL\Gcard.exe' ;

Você não conseguirá deixar dois G.P. monitorando a mesma pasta, com os mesmos nomes de arquivos... Como um G.P. saberia se o arquivo é para ele ou não ??

[volmir]

é, esta era minha duvida tambem, porem não sei se tem como reverter isso pois os gerenciadores padroes tanto da Linx como da Tidas ficam aguardando nas mesmas pastas, não sei se tem como configurar nos gerenciadores isso, talves tenha, teria que verificar isso com eles.

[volmir]

Bom dia,

entrei em contato com o pessoal da Tidas e realmente tem com fazer uma instalacao em outra pasta, basta pra isso marcar uma opcao na hora de instalar, fiz isso, e consegui resolver meu problema, estou conseguindo trabalhar com os dois GPs ao mesmo tempo, pois cada um esta em uma pasta direferente. vou anexar aqui os fontes para analize, e se acharem interessante agregar ao componente.

ACBrTEFD.pas

ACBrTEFDClass.pas

ACBrTEFDTidas.pas

[Daniel Simoes]

@volmir.. ao invés de incluir uma nova classe no componente... como aparentemente o TIDAS é 100% compatível com a troca de arquivos TXT... Não seria possível usar o modelo TEFDisc, e configurar nele os diretórios da Troca de Arquivo e caminho do .EXE do Gerenciados ?

[volmir]

Vou fazer um teste aqui.

[volmir]

bom dia,

deu certo @Daniel Simoes

usando TEFDisc, não precisa implementar uma nova classe.

obrigado.