Erro ao enviar dados do cliente para o PagSeguro
Olá pessoal,
Eu implementei no meu sistema o serviço do PagSeguro como mostra abaixo:
>
Protected Sub btnContinua4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnContinua4.Click
Dim Ds As Data.DataSet
Ds = Inscricao.ConsultaAvancada(" B.Aluno_CPF = '" & LbCPF.Text & "' " & _
" AND A.Oferta_ID = " & ViewState("Oferta") & _
" AND C.Curso_ID = " & ViewState("Curso"), "")
Dim pDados As New UOL.PagSeguro.Produto
pDados.Codigo = Ds.Tables(0).Rows(0)("ACurso_ID")
pDados.Descricao = Ds.Tables(0).Rows(0)("ACurso_ID") & " - " & Ds.Tables(0).Rows(0)("Aluno_CPF")
pDados.Valor = LbValor.Text
pDados.Quantidade = 1
pDados.Frete = 0
pDados.Peso = 0
Me.VendaPagSeguro1.Produtos.Add(pDados)
Me.VendaPagSeguro1.CodigoReferencia = Ds.Tables(0).Rows(0)("ACurso_ID")
Me.VendaPagSeguro1.EmailCobranca = "seccontabil@seccontabil.com.br"
Me.VendaPagSeguro1.Moeda = "BRL"
Me.VendaPagSeguro1.TipoFrete = UOL.PagSeguro.TipoFreteVenda.DefinidoPeloCliente
Me.VendaPagSeguro1.Executar(Me.Response)
End Sub
mas quando executo o componente aparece a mensagem abaixo:
>
Transação inválida. Sempre inicie transações a partir de sites confiáveis.
Alguém sabe como posso corrigir isso? Preciso colocar algo no web.config?
Grato,
Ilano
Discussão (6)
Carregando comentários...