Pagamento eletrõnico com Redecard e ASP Clássico

[Bruno Sam 0]

Boa tarde,

 

Gostaria de saber como faço para integrar um e-commerce em ASP Clássico com pagamento da Redecard (webservice).

 

Alguém pode me passar um exemplo de código ? :upset:

 

Grato

[xanburzum 169]

<%

dim ws

 

 

set ws = new webservice

ws.url = "https://ecommerce.redecard.com.br/pos_virtual/wskomerci/cap.asmx"

 

ws.method = "GetAuthorizedTst"

 

ws.parameters.Add "TOTAL",Request("TOTAL")

ws.parameters.Add "TRANSACAO",Request("TRANSACAO")

ws.parameters.Add "PARCELAS",Request("PARCELAS")

ws.parameters.Add "FILIACAO",Request("FILIACAO")

ws.parameters.Add "NUMPEDIDO",Request("NUMPEDIDO")

ws.parameters.Add "NRCARTAO",Request("NRCARTAO")

ws.parameters.Add "CVC2",Request("CVC2")

ws.parameters.Add "MES",Request("MES")

ws.parameters.Add "ANO",Request("ANO")

ws.parameters.Add "PORTADOR", Request("PORTADOR")

ws.parameters.Add "IATA",Request("IATA")

ws.parameters.Add "DISTRIBUIDOR",Request("DISTRIBUIDOR")

ws.parameters.Add "CONCENTRADOR",Request("CONCENTRADOR")

ws.parameters.Add "TAXAEMBARQUE",Request("TAXAEMBARQUE")

ws.parameters.Add "ENTRADA",Request("ENTRADAR")

ws.parameters.Add "PAX1",Request("PAX1R")

ws.parameters.Add "PAX2",Request("PAX2")

ws.parameters.Add "PAX3",Request("PAX3")

ws.parameters.Add "PAX4",Request("PAX4")

ws.parameters.Add "NUMDOC1",Request("NUMDOC1")

ws.parameters.Add "NUMDOC2",Request("NUMDOC2")

ws.parameters.Add "NUMDOC3",Request("NUMDOC3")

ws.parameters.Add "NUMDOC4",Request("NUMDOC4")

ws.parameters.Add "CONFTXN",Request("CONFTXN")

 

ws.Invoke

 

response.Write ws.response

set ws = nothing

 

 

%>

[Bruno Sam 0]

Valeu xanburzum, vou testar !!

 

 

 

<%
    dim ws
    

    set ws = new webservice
    ws.url = "https://ecommerce.redecard.com.br/pos_virtual/wskomerci/cap.asmx"

    ws.method = "GetAuthorizedTst" 

    ws.parameters.Add "TOTAL",Request("TOTAL")
    ws.parameters.Add "TRANSACAO",Request("TRANSACAO")
    ws.parameters.Add "PARCELAS",Request("PARCELAS")
    ws.parameters.Add "FILIACAO",Request("FILIACAO")
    ws.parameters.Add "NUMPEDIDO",Request("NUMPEDIDO")
    ws.parameters.Add "NRCARTAO",Request("NRCARTAO")
    ws.parameters.Add "CVC2",Request("CVC2")
    ws.parameters.Add "MES",Request("MES")
    ws.parameters.Add "ANO",Request("ANO")
    ws.parameters.Add "PORTADOR", Request("PORTADOR")
    ws.parameters.Add "IATA",Request("IATA")
    ws.parameters.Add "DISTRIBUIDOR",Request("DISTRIBUIDOR")
    ws.parameters.Add "CONCENTRADOR",Request("CONCENTRADOR")
    ws.parameters.Add "TAXAEMBARQUE",Request("TAXAEMBARQUE")
    ws.parameters.Add "ENTRADA",Request("ENTRADAR")
    ws.parameters.Add "PAX1",Request("PAX1R")
    ws.parameters.Add "PAX2",Request("PAX2")
    ws.parameters.Add "PAX3",Request("PAX3")
    ws.parameters.Add "PAX4",Request("PAX4")
    ws.parameters.Add "NUMDOC1",Request("NUMDOC1")
    ws.parameters.Add "NUMDOC2",Request("NUMDOC2")
    ws.parameters.Add "NUMDOC3",Request("NUMDOC3")
    ws.parameters.Add "NUMDOC4",Request("NUMDOC4")
    ws.parameters.Add "CONFTXN",Request("CONFTXN")
 
 ws.Invoke
     
    response.Write ws.response
set ws = nothing


%>

 

 

[xanburzum 169]

depois altere para sua necessidade

[Bruno Sam 0]

Valeu xanburzum, vou testar !!

 

 

Testei desse forma :

 

<%
    dim ws
    

    set ws = new webservice
    ws.url = "https://ecommerce.redecard.com.br/pos_virtual/wskomerci/cap.asmx"

    ws.method = "GetAuthorizedTst" 

    ws.parameters.Add "TOTAL",22.00			
    ws.parameters.Add "TRANSACAO",04
    ws.parameters.Add "PARCELAS",00
    ws.parameters.Add "FILIACAO",Request("123123")
    ws.parameters.Add "NUMPEDIDO",125
    ws.parameters.Add "NRCARTAO",1234123412341234
    ws.parameters.Add "CVC2",123
    ws.parameters.Add "MES",11
    ws.parameters.Add "ANO",13
    ws.parameters.Add "PORTADOR","Bruno Sam"
    ws.parameters.Add "IATA",NULL
    ws.parameters.Add "DISTRIBUIDOR",NULL
    ws.parameters.Add "CONCENTRADOR",NULL
    ws.parameters.Add "TAXAEMBARQUE",NULL
    ws.parameters.Add "ENTRADA",NULL
    ws.parameters.Add "PAX1",NULL
    ws.parameters.Add "PAX2",NULL
    ws.parameters.Add "PAX3",NULL
    ws.parameters.Add "PAX4",NULL
    ws.parameters.Add "NUMDOC1",NULL
    ws.parameters.Add "NUMDOC2",NULL
    ws.parameters.Add "NUMDOC3",NULL
    ws.parameters.Add "NUMDOC4",NULL
    ws.parameters.Add "CONFTXN",NULL
 
 ws.Invoke
     
    response.Write ws.response
set ws = nothing


%>

Forcei os valores para apenas teste. Porém deu este erro:

 

Microsoft VBScript runtime error '800a01fa'

Class not defined: 'webservice'

/2013/rede.asp, line 5

[xanburzum 169]

não existe uma definição para webservice, é impossível criar. todos os componentes estão corretamente instalados

[Bruno Sam 0]

não existe uma definição para webservice, é impossível criar. todos os componentes estão corretamente instalados

Creio que não xanburzum.

Eu teria então que instalar no servidor que está hospedada a loja virtual esse webservice ?

[xanburzum 169]

não ele irá rodar no link

https://ecommerce.redecard.com.br/pos_virtual/wskomerci/cap.asmx

isso acontece no localhost ou no server ?

[Bruno Sam 0]

não ele irá rodar no link

https://ecommerce.redecard.com.br/pos_virtual/wskomerci/cap.asmx

 

 

isso acontece no localhost ou no server ?

No servidor que hospedo.

 

 

Ainda não entendi como faço. Por exemplo, como passo os dados para a operadora do cartao. e valor da compra para obter resposta se a transação eh autorizada ou nao? por formulario e submete?

[Gustavo Emygdio Barboza 24]

no link https://ecommerce.redecard.com.br/pos_virtual/wskomerci/cap.asmx

 

veja os métodos

use o

HTTP GET

ou

 

HTTP POST

 

oferecido ... mais fácil!!

[xanburzum 169]

e olha aqui também

[Gustavo Emygdio Barboza 24]

Bruno tem hospedagem na locaweb?

[xanburzum 169]

o post #12 é do wiki da locaweb

[Gustavo Emygdio Barboza 24]

É por isso mesmo pois é um recurso oferecido pela locaweb não funcionará em outra hospedagem... que não tem tal recurso... é claro rsrs...

[xanburzum 169]

muitos, mas muitos host oferecem integração com a interface Komerci

[Gustavo Emygdio Barboza 24]

É verdade mas seria melhor se basear num recurso oferecido pela operadora não pelo hospedeiro (serviço tercerizado) pois se for mudar de hospedeiro terá que mudar o fonte...

[xanburzum 169]

Gateway de Pagamento

[Bruno Sam 0]

Valeu pelo help Gustavo e Xamburzum !

 

Tá corrido aqui no trabalho, muito projeto. Só amanhã que vou poder testar mais o código.

 

Grato

[xanburzum 169]

tranquilo, melhor fazer com calma e fazer bem feito... Até mais