Visanet vbv 1.1 asp

diasgabrie · Agosto 20, 2009

Amigos,

Preciso configurar para uma empresa a visanet para vendas utilizando cartão de crédito. Porém após escolher a opção de pagamento e clicar em pagar, abre uma janela dando página não encontrada.

Gostaria de saber se alguem ja configurou este sistema, e poderia me ajudar. Preciso alterar somente o arquivo ini e a pagina05?

Tenho um servidor compartilhado.

abaixo o código:

pagina05.asp

	<!--#include file="FuncaoGerarTid.inc"-->	
<%
    session("pagamento") = Request.Form("pagamento")
    session("AUTHENTTYPE") = request.form("AUTHENTTYPE")
    session("ambiente") = Request.Form("ambiente")

    Tid = GerarTid("1001734898",session("pagamento"))


     varProd = Session("varProd")        'Descrição do Pedido
     varQtd = Session("varQtd")			 'Quantidade
     varId = Session("varId")	         'ID do Produto
     varPreco = Session("varPreco")      'Preco Unitário
     'varValor = Session("varValor")      'Valor Total
     'varPacote = Session("varPacote")    'Numero do Pacote
    ' varTotalFrete = Session("varTotal") 'Total com Frete
     'varFrete = Session("varFrete")      'Valor do Frete


    'TIPO DA TRANSAÇÃO
    Session("tipo")		= "VBV"


    ' COLETAR DADOS DAS SESSIONS
    VarConsumidor		= Session("Nome_Comprador")
    VarEmail			= Session("Email_comprador")
    VarTel				= Session("Tel_comprador")

    VarNome				= Session("Nome")
    VarEndereco			= Session("Endereco")
    VarBairro			= Session("Bairro")
    VarCidade			= Session("Cidade")
    VarUF				= Session("Estado")
    VarCep				= Session("Cep")
    VarMsg				= Session("Msg")
    varDtEntrega		= Session("DtEntrega")

    item				= Session("varId")
    qty					= 1
    produto				= Session("varProd")
    puni				= Session("varPreco")
    subtotal			= Session("varPreco")
    frete				= Session("varFrete")

    total				= subtotal+cint(frete)


    pedido				= "<b>Dados do consumidor:</b>" & "<BR>"
pedido				= pedido & "<b>Nome:</b> " & VarConsumidor & " - " & VarEmail & " - " & VarTel & "<BR>"
pedido				= pedido & "   " & " <BR>"
pedido				= pedido & "<b>Dados de entrega:</b>" & "<BR>"
pedido				= pedido & "<b>Nome:</b> " & VarNome & " - " & VarEndereco & " - " & VarBairro & " - " & VarCidade & " - " & VarUF & " - " & VarCep & "<BR><BR>"
pedido				= pedido & "<b>Quant:</b> " & qty &  " - " & item &" - " & produto &  " - " & moeda(puni) & " - " & moeda(subtotal) & "<BR><BR>"

Session("order") = pedido
    
   

	FUNCTION Moeda(valor)
	  if trim(valor) <> "" then
		Valor1=  mid(valor, 1, len(valor) - 2)
		Decima = mid(valor, len(valor) - 1, 2)
	  end if
		Moeda = Valor1 & "," & Decima
END FUNCTION
%>

<html>
<head>
<title>Loja de exemplo VbV 1.1</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel=stylesheet href="estilos.css" type="text/css">
</head>

    <body bgcolor="#ffffff" text="#000000">

       <table>
	        <tr>
            <td width="549" valign="top" height="435" > </td>
	        </tr>
	    </table>


    <!-- ********************** CHECKOUT Verified by VISA via Direct POST   ********************** -->
	        <%  
	        Dim objSvrHTTP,PostData
			Set objSvrHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
			PostData="tid=" & tid
			PostData=PostData & "&merchid=" & "cfglojavisa"
			PostData=PostData & "&order=" & session("order")
			PostData=PostData & "&orderid=" & "1234567890"
			'PostData=PostData & "&free=" & session("free")
			PostData=PostData & "&free=" & "simulador"
			PostData=PostData & "&price=" & session("varPreco")
			PostData=PostData & "&authenttype=" & session("authenttype")
			PostData=PostData & "&damount=" & left(Session("varPreco")  ,   len(Session("varPreco"))-2)	 & "," & right(Session("varPreco"),2)
						
			objSvrHTTP.SetTimeouts 15000, 250000, 250000, 250000
			objSvrHTTP.open "POST", "http://www.minhaempresa.com.br/componentes_vbv/mpg.exe?", false
			objSvrHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
			objSvrHTTP.send trim(PostData)
			sStatus = objSvrHTTP.status
			response.clear
			response.Write objSvrHTTP.responseText
			%> 
	<!-- ********************** CHECKOUT Verified by VISA via Direct POST   ********************** -->
	    </body>
	</html>

cfglojavisa.ini


; URLs de comunicação com a Visanet
CBP_URL = https://qascbp.3dsolution.com.br/cbp/cbp.visanet

; URLs de Retorno da Transacao
MPG_RETURN_URL = http://www.minhaempresa.com.br/lojavbv/pagina06.asp
CAPTURE_RETURN_URL = http://www.minhaempresa.com.br/lojavbv/statuscaptura.asp
CANCEL_RETURN_URL = http://www.minhaempresa.com.br/lojavbv/statuscancela.asp
RESUBMIT_RETURN_URL = http://www.minhaempresa.com.br/lojavbv/statusresubmit.asp
CAPTUREBALANCE_RETURN_URL = http://www.minhaempresa.com.br/lojavbv/statuscapturebalance.asp
INQUIRE_RETURN_URL = http://www.minhaempresa.com.br/lojavbv/statusconsulta.asp

; *** CONEXAO SEGURA ***
; URL de Retorno da Transacao via Conexao Direta para gravar retorno da Transação em XML 
; DEVE ser configurado com o endereço interno do servidor onde o response.exe esta instalado
; Componente RESPONSE.EXE deve ser liberado APENAS para os IPs VISANET 200.189.171.242, 200.189.171.237 
; Caso este parâmetro esteja comentado, o componente obterá o path automaticamente na execucao do aplicativo mpg.exe,
; no entanto se o endereço de execução for interno (Ex.: 192.168.*.*), não funcionará. (SENDO ASSIM, CONFIGURE A URL CORRETA)
MPG_RETURN_DP_URL = http://www.minhaempresa.com.br/componentes_vbv/response.exe

; URL para redirecionamento da mensagem recebida pelo aplicativo response.exe (OBRIGATORIO PARA LOAD BALANCE)
; Com esta opcao o REPONSE.EXE passa a ser um proxy e redirecionará a mensagem "aberta" para um URL da sua REDE INTERNA.
; Sua página devera ler a mensagem e gravar em banco de dados, respondendo para o response.exe o Buffer de saida "STATUS=0", onde
; o componente entenderá que a mensagem foi entregue com sucesso.
; Caso este parametro esteja comentado, sera gravado um XML no diretorio results.
;RESPONSE_PROXY_URL = http://SEU IP INTERNO/response/responseproxy.asp

;Dados de pagamento
MERCHANT_NAME = VISANET ECOMMERCE
MERCH_SHOPID = 1001734898
CURRENCY_CODE = 986
COUNTRY_CODE = BRA
PAYTYPE = SET
TRANS_TYPE = Auth
BRANDID = VISA

; *** Chave ***
; Deve ficar em local SEGURO e sem acesso na INTERNET.
KEY_FILE = http://www.minhaempresa.com.br/chaves_vbv/1001734898.keydata

;Se = 1, trata o retorno dos componente cancel,capture,capturebalance e resubmit no formato XML, em vez de retornar 
;em HTML via POST para a URL de retorno especificada para cada tipo de transacao.
;RECEIVEXML = 0

;Gera arquivo de log com o resultado das transacoes
;GERALOG=1 Ligado  GERALOG=0 Desligado (Default)
GERALOG  =  1

;MPG_FILEMODE = 0 Desliga a utilizacao de arquivos de entrada e saida ( ÚTIL PARA ALGUMAS IMPLEMENTAÇÕES. OBS.: TRATAR SEGURANÇA  )
;MPG_FILEMODE = 1 (Default), utiliza arquivos de entrada (price) e arquivo de saida (default - RECOMENDADO)
MPG_FILEMODE = 0

;Se=0, não abre janela da CBP  ( 1 = DEFAULT - abre janela )
NEWWINDOW=0

;Modo de Operação da conexão directpost CBP utilizada para saber se tudo esta ok, antes de chamar a CBP_URL
;0 = desabilita funcionalidade (UTILIZAR SOMENTE PARA TESTES E NÃO PARA PRODUÇÃO)
;1 (default) = executa conexao directpost com a CBP_URL com todos os itens de segurança ativados
;2 = executa conexao direcpost com a CBP_URL ignorando erros de certificado (UTILIZAR SOMENTE PARA TESTES E NÃO PARA PRODUÇÃO)
;CBP_ISALIVECONNECTION  = 0

coloquei http://www.minhaempresa.com.br/ por questões de privacidade.

Alguem saberia me ajudar?

obrigada

Patrique · Agosto 20, 2009

1º - Seu servidor aceita form por post ou get com extenção exe?

2º - Você deu as pemissões na pasta aonde é efetuado as transações?

3º - Já tentou entrar em contato com o suporte a ViSa?

4º - O problema esta acontecendo apenas no server ou esta acontecendo localmente tb?

Repare também nesta linha

objSvrHTTP.send trim(PostData)

O sistema envia para o server as váriaveis do PostData

sendo que a váriaves estão aqui

PostData="tid=" & tid
PostData=PostData & "&merchid=" & "cfglojavisa"
PostData=PostData & "&order=" & session("order")
PostData=PostData & "&orderid=" & "1234567890"
'PostData=PostData & "&free=" & session("free")
PostData=PostData & "&free=" & "simulador"
PostData=PostData & "&price=" & session("varPreco")
PostData=PostData & "&authenttype=" & session("authenttype")
PostData=PostData & "&damount=" & left(Session("varPreco")  ,   len(Session("varPreco"))-2)& "," & right(Session("varPreco"),2)

Repare no inicial

tid=

não seria algo do tipo

envia.asp?tid=

diasgabrie · Agosto 21, 2009

Olá,

obrigada pelas respostas.

Tentei alterar o tid mas sem sucesso.

Entrei várias vezes em contato, mas ninguem conseguiu solucionar o problema. Vou entrar em contato com meu servidor.

As pastas estão com permissão 666 será isso? Não consigo alteralas pelo ftp.

Não tentei local ainda.

Qualquer outra idéia será bem-vinda.

Obrigada

Patrique · Agosto 21, 2009

No caso o tid gera um xml, você tem que dar permissão para salvar e criar para todos os usuários e não so o admin do servidor, o erro pode esta acontecendo ae, pois o sistema não esta conseguindo gerar o tid e consequentemente retorna o erro.

marcos-rj · Agosto 21, 2009

entra em contato com o servidor, informa onde esta a pasta com os arquivos do VBV e pede p/ liberarem a permissão p/ arquivos. .EXE nesta pasta.

MarcioSP · Março 2, 2011

Pessoal, alguem ja implementou a ultima versao com asp?

abs

Vinicius Ianni · Março 2, 2011

Sugiro a criação de um novo tópico com sua duvida, afinal ressucitar topico antigo não é de bom tom.

Entrar

Arquivado

Visanet vbv 1.1 asp

Recommended Posts

diasgabrie 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

diasgabrie 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcos-rj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

MarcioSP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante