Tpv La Caixa

07/06/2004 - 17:28 por Eva | Informe spam
¿Alguno de vosotros a tenido que configurar el TPV de la caixa?
Yo tengo que hacerlo pero no me aclaro y tardan mucho en contestarme.
No se como llamar al CrURLtpv.
Si alguien me puede ayudar, le estaria muy agradecida
 

Leer las respuestas

#1 Javier Carnicer
08/06/2004 - 12:56 | Informe spam
Hola.

Te doy un par de ideas:
1º Como lo que hay que hacer es ejecutar una clase java con la que obtienes
la url donde redireccionar, una opción es mira esta página donde explican
como ejecutar clases java desde asp:
http://www.programacion.com/asp/art...e_aspjava/

2ª Te pongo un ejemplo de como lo tengo hecho.
Como yo no sabía lo anterior cuando lo monte lo que hago es crear un archivo
.bat que sea ejecutable para que lo ejecute el servidor y así obtenga la url
codificada para La Caixa

'Primero meto los parámetros que necesito:
'Rutas de donde tengo instalado el cyberpack de La Caixa
'Identificador de pedido
'Importe,moneda,idioma,url de vuelta según haya ido el pago
'Forma de pago
'Numero de tarjeta y fecha de caducidad
'Los parámetros que se necesitan, en las instrucciones de la Caixa ponen
cuales son obligatorios y cuales no. Estos son los que yo utilizo

orden = "c:\cyberpac\CrURLtpv c:\cyberpac\tpv.zip c:\cyberpac\tpv.cnf" & "
idpedido:" & idpedido
orden = orden & " importe:" &
replace(replace(formatnumber(lnpasta,2),".",""),",",".")
orden = orden & " moneda:EUR idioma:esp"
orden = orden & " url_post_ok:https://midominio.com/receok.asp"
orden = orden & " url_post_ko:https://midominio/receko.asp"
orden = orden & " url_post_cancel:https://midominio/receca.asp"
orden = orden & " mpago:TA pan:" & tarjeta
orden = orden & " mes:" & right("0" & mesc,2) & " any:" & right(anoc,2)

'Creo un archivo bat con la orden. Este archivo lo genero para cada pago
para que al ejecutar este bat emulando la linea de comandos me devuelva la
'url que necesito para acudir a La Caixa

Set fs = Server.CreateObject("Scripting.FileSystemObject")
lcruta = server.MapPath("fic/f" & lcid & ".bat")
set fic = fs.OpenTextFile(lcruta,2,true)

fic.writeline(orden)
fic.close

Dim MObj, oExec, res

'Esto ejecuta el archivo bat
Set MObj = server.CreateObject("WScript.Shell")
Set oExec = MObj.Exec(lcruta)

res = ""
seguir = true
conta = 0

'Me pongo a leer lo que la ejecución del bat me ha generado
'Por si algo va mal no permito que se muera en el bucle y no lo paso más de
5000 veces que ya está bien
Do While seguir
res = res & oExec.StdOut.readline()

if instr(res,"https://www.la") > 0 then
seguir = false
end if

conta = conta + 1
if conta > 5000 then
seguir = false
end if
Loop


'Borro el archivo bat
fs.DeleteFile lcruta,true
set fs = nothing

'Primero hay que hacer alguna comp`robación de que he leido una url y está
bien
'Una opción es decirle que te pinte por pantalla e ir viendo lo que
sale(para hacer pruebas me refiero)
inicio = instr(res,"https://www.la")
if inicio>0 then
res = mid(res,inicio,len(res)-inicio + 5)
else
res = ""
end if

'Al final redirecciono a la caixa y listo
response.redirect res

'Las páginas receok.asp,receko.asp y receca.asp te dicen lo que ha pasado
con tu pedido para que lo sepas y puedas hacer lo que sea pertinente

Suerte y un saludo

Javier Carnicer


"Eva" escribió en el mensaje
news:
¿Alguno de vosotros a tenido que configurar el TPV de la caixa?
Yo tengo que hacerlo pero no me aclaro y tardan mucho en contestarme.
No se como llamar al CrURLtpv.
Si alguien me puede ayudar, le estaria muy agradecida


Preguntas similares