nada que atrapalhe o postback, pois mesmo sem chamar esse frete() ele da o mesmo erro, só o click do botão, fazendo o postback ele faz sumir o panel
Protected Sub frete()
Dim tipo = Session("tipo_frete")
Dim cep_origem = Session("cep_destino")
Dim cep_destino = Session("cep_destino")
Dim nCdEmpresa As String = String.Empty
Dim sDsSenha As String = String.Empty
' Código do tipo de frete
Dim nCdServico As String = tipo
' Cep de origem e destino - apenas números
Dim sCepOrigem As String = cep_origem
Dim sCepDestino As String = cep_destino
' Peso total da encomenda - por padrão deixei 1kg
Dim nVlPeso As String = "1"
' Formato da encomenda - por padrão deixei caixa
Dim nCdFormato As Integer = 1
' Para encomenda do tipo PAC, deve-se preencher a dimensão da embalagem
Dim nVlComprimento As Decimal = 20
Dim nVlAltura As Decimal = 20
Dim nVlLargura As Decimal = 20
Dim nVlDiametro As Decimal = 0
' Informa se é por mão própria - por padrão deixei Não
Dim sCdMaoPropria As String = "N"
' Valor declarado - por padrão não informo
Dim nVlValorDeclarado As Decimal = 0
' Se desejo recebr aviso de recebimento - por padrão não quero
Dim sCdAvisoRecebimento As String = "N"
' Instancio o web-service
Dim webServiceCorreios As New Correios.CalcPrecoPrazoWSSoapClient()
' Efetuo a requisição
Dim retornoCorreios As Correios.cResultado = webServiceCorreios.CalcPrecoPrazo(nCdEmpresa, sDsSenha, nCdServico, sCepOrigem, sCepDestino, nVlPeso, _
nCdFormato, nVlComprimento, nVlAltura, nVlLargura, nVlDiametro, sCdMaoPropria, nVlValorDeclarado, sCdAvisoRecebimento)
' Verifico se há retorno
If retornoCorreios.Servicos.Length > 0 Then
' Se deu tudo certo, então retorna o valor
If retornoCorreios.Servicos(0).Erro = "0" Then
ft_preco.Text = retornoCorreios.Servicos(0).Valor
lbl_dias.Text = retornoCorreios.Servicos(0).PrazoEntrega
If tipo = "40010" Then
lbl_tipo.Text = "SEDEX"
ElseIf tipo = "41106" Then
lbl_tipo.Text = "PAC"
End If
Dim compras As Decimal = hidden2.Value
Dim frete As Decimal = ft_preco.Text
lbl_total.Text = compras + frete
Else
lbl_erro.Text = retornoCorreios.Servicos(0).MsgErro
End If
Else
lbl_erro.Text = "NÃO FOI POSSÍVEL CONSULTAR O SERVIÇO DESEJADO!"
End If
End Sub
Darth Tsurth
