karinha wrote:Nunca he visto nada al respecto. ¿Como funciona? ¿Es un lector que se encuentra en el puerto serie? ¿Cuál marca? ¿Has probado con HBCOMM.LIB?
Regards, saludos.
#Include "FiveWin.ch"
STATIC xDllTef
FUNCTION PIN_PAD()
LOCAL cResultado, cMensagem, cTCTrilha1, cTrilha1, cTCTrilha2, cTrilha2, ;
cTimeOut, xResp
xDllTef := LOADLIBRARY( "NOMBREDLLPINPAD.DLL" ) // OR .LIB
cResultado := Space(6)
cMensagem := "Insira ou Passe"
cTCTrilha1 := Space(12)
cTrilha1 := Space(128)
cTCTrilha2 := Space(12)
cTrilha2 := Space(64)
cTimeOut := "3"
xResp := LeCartao( cResultado, cMensagem, cTCTrilha1, cTrilha1,;
cTCTrilha2, cTrilha2, cTimeout )
? xResp
RETURN NIL
DLL32 FUNCTION LeCartao(pResultado AS LPSTR,pMensagem AS LPSTR,TCTrilha1 AS LPSTR, ;
Trilha1 AS LPSTR, TCTrilha2 AS LPSTR, Trilha2 AS LPSTR, Timeout AS LPSTR) AS LONG PASCAL ;
FROM "LeCartaoDiretoSeguroA" LIB xDllTef
// FIN
VitalJavier wrote:Buen dia a Todos
Nosotros trabajamos con "Banorte" el nos proporciono una DLL
y nos dio un manual y listo, no es muy complicado.
La Pin-Pad también la ocupe para poder leer unas tarjetas que mandamos hacer
con unos códigos de permisos.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 47 guests