Tpv La Caixa

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

Gracias, pero no se pq, el comando exec no me lo reconoce y me da un error

Seguire intentandolo

"Javier Carnicer" escribió en el mensaje
news:

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
>
>

Si tienes acceso al servidor, comprueba que tenga instalado Internet
explorer 6

Javier

"Eva" escribió en el mensaje
news:

Gracias, pero no se pq, el comando exec no me lo reconoce y me da un error

Seguire intentandolo

"Javier Carnicer" escribió en el mensaje
news:
> 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
> >
> >
>
>