Fórum TEF (TecBan) #339274
24/03/2007
0
olá pessoal....to começando a desenvolver o tef, e to com uma duvida a respeito do TecBan, bem é o seguinte, como eu identifico quando é TecBan e chamo o gerenciador padrao do tecban??
eu posso colocar uma combobox com as formas de pagamento, tipo Cartao Credito, TecBan etc.....ou nao??
valeu pessoal.
eu posso colocar uma combobox com as formas de pagamento, tipo Cartao Credito, TecBan etc.....ou nao??
valeu pessoal.
L3gion4rio
Curtir tópico
+ 0
Responder
Posts
24/03/2007
Essistemas
Isso faz isso e na sua rotina vc pode fazer essa procedure
procedure TTef.SetaPath;
begin
F_Rede:=F_Rede ;
If (F_Rede =´VISA´) or (F_Rede =´REDECARD´) or(F_Rede =´AMEX´) Then // Caso as redes sejam VISA/REDECARD/AMEX
begin
sPathREQ := ´C:\TEF_DIAL\REQ\´; sPathRESP := ´C:\TEF_DIAL\RESP\´;
end;
If F_Rede =´TECBAN´ Then // Caso a rede seja TECBAN
begin
sPathREQ := ´C:\TEF_DISC\REQ\´; sPathRESP := ´C:\TEF_DISC\RESP\´;
end;
If F_Rede=(´HIPERCARD´) Then // Caso a rede seja HIPERCARD
begin
sPathREQ := ´C:\DISKTEF\DIR_SOLI\´; sPathRESP := ´C:\DISKTEF\DIR_RESP\´;
end;
end;
procedure TTef.SetaPath;
begin
F_Rede:=F_Rede ;
If (F_Rede =´VISA´) or (F_Rede =´REDECARD´) or(F_Rede =´AMEX´) Then // Caso as redes sejam VISA/REDECARD/AMEX
begin
sPathREQ := ´C:\TEF_DIAL\REQ\´; sPathRESP := ´C:\TEF_DIAL\RESP\´;
end;
If F_Rede =´TECBAN´ Then // Caso a rede seja TECBAN
begin
sPathREQ := ´C:\TEF_DISC\REQ\´; sPathRESP := ´C:\TEF_DISC\RESP\´;
end;
If F_Rede=(´HIPERCARD´) Then // Caso a rede seja HIPERCARD
begin
sPathREQ := ´C:\DISKTEF\DIR_SOLI\´; sPathRESP := ´C:\DISKTEF\DIR_RESP\´;
end;
end;
Responder
Gostei + 0
24/03/2007
L3gion4rio
nossa valeu demais....agora sim eu entendi....muito obrigado.
abração pra você.
abração pra você.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)