TEF (TecBan)
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
Curtidas 0
Respostas
Essistemas
24/03/2007
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;
GOSTEI 0
L3gion4rio
24/03/2007
nossa valeu demais....agora sim eu entendi....muito obrigado.
abração pra você.
abração pra você.
GOSTEI 0