Button

[wzanelato 0]

Tenho uma pagina em Asp.net que tem um button onde esse button tem a função de sempre que for clicado ir para um proximo cliente, o problema é que quando eu clico a primeira vez e ele carrega a pagina e se depois eu der um F5 para atualizar a pagina ele passa para o proximo devedor sem clicar no button, alguem pode me ajudar a resolver este problema..Obrigado...

[rOcKLoCo 0]

você está tratando o IsPostBack?falows

[wzanelato 0]

Cara fiz o seguinte tratamento...If Not Page.IsPostBack Then Call sDebtorLoad() End Iffaço este tratamento do page_load de pagina chamando este outro metodo que carrega outros metados..Mais o button e um evento de click....

[rOcKLoCo 0]

é cara, num to muito acostumado com isso ainda.. rs.. tente usar o Break point, para verificar passo a passo o q ele está executando e se está buscando realmente o outro devedor...falows

[wzanelato 0]

O problema é que quando você executa uma vez a pagina ela fica amarzenada no cache.. teria que tirar do cache o evento do click do botão para que quando fose atualizado a apagina ele não executaria o botão....Alguem sabe como eu faço isto?

[Tiago Colombo 0]

Cara, posta pra gente a parte do seu código e o evento do botão.[]´s

[wzanelato 0]

Thiago... o codigo está abaixo...Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strGuid As String = Guid.NewGuid.ToString Response.Expires = -1 If Not Page.IsPostBack Then viewstate("TstPag") = Request.QueryString("TstPag") Call sDebtorLoad() End If End Sub--------------------------------------------------------------------------------------------Private Sub sDebtorLoad() Dim strGuid As String = Guid.NewGuid.ToString If CsnBco() = 0 Then lblMsgErr.Text = "It was not possible to connect in the bank." Exit Sub End If If CnsDebtor() = 0 Then lblMsgErr.Text = "It was not possible to consult the debtor." Exit Sub Else CsnDevNot() CnsOrdem() CsnDskSta() CsnRefDev() CsnPayHst() CsnTlfDev() CsnCliDev() CsnStaDev() End If AbrNvoNot() CnsAgdPrg() lblMsgErr.Text = "" VldBtn() Me.Page.RegisterStartupScript("ShowDialog", _ "<script language=javascript>" & _ " function ShowDialog(strPage, strName, strStyle) " & _ " { " & _ " var retorno=''; " & _ " retorno = showModalDialog(strPage, strName, strStyle); " & _ " } " & _ " </script> ") Me.Page.RegisterStartupScript("ifrVerObsDeb", _ "<script language=javascript>" & _ "document.all['ifrVerObsDeb'].src = 'DocGasVerObs.aspx?type=1&id_debtor=" & strDev & "&chave=" & strGuid & "';" & _ "</script>") If strCodPacket <> "" Then Me.Page.RegisterStartupScript("OnLoad", _ "<script language=javascript>" & _ "document.all['ifrVerObsPkt'].src = 'DocGasVerObs.aspx?type=1&Cd_Packet=" & strCodPacket & "&chave=" & strGuid.ToString & "';" & _ "</script>") HpkNvoObsPkt.Text = "Comment for " & strCodPacket & " " HpkNvoObsPkt.Visible = True HpkNvoObsPktBig.Visible = True Else Me.Page.RegisterStartupScript("OnLoad", _ "<script language=javascript>" & _ "document.all['ifrVerObsPkt'].visible = false;" & _ "</script>") HpkNvoObsPkt.Visible = False HpkNvoObsPktBig.Visible = False End If------------------------------------------------------------------------------------------Private Sub BtnHplNextDebtor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHplNextDebtor.Click Dim strCodDsk As String Dim strDatAgd As String Try Me.BtnHplNextDebtor.Enabled = False strCodDsk = Session("Cod") strDatAgd = Session("Data") If BtnHplNextDebtor.Text = "Finish" Then MaxDev() AltSeqDev() Response.Write("<script language='javascript'>window.showModalDialog('DocGasFim.aspx?strCodDsk=" & Session("Cod") & "&strCodDsk=" & Session("Data") & "','Transaction','dialogWidth:830px;dialogHeight:400px,toolbar:no;status:no;titlebar:no;scrollbars:no;resizable:no');</script>") Server.Transfer("DocGasAgd.aspx") Else ''Verifica se foi feito agendamento para o devedor. If Session("DocGasAgdDev") = 1 Then Session("DocGasAgdDev") = 0 If CsnPag() = 2 Then Response.Write("<script language='javascript'>window.showModalDialog('DocGasFim.aspx?strCodDsk=" & Session("Cod") & "&strCodDsk=" & Session("Data") & "','Transaction','dialogWidth:830px;dialogHeight:400px,toolbar:no;status:no;titlebar:no;scrollbars:no;resizable:no');</script>") Server.Transfer("DocGasAgd.aspx") End If Else MaxDev() AltSeqDev() If CsnPag() = 2 Then Response.Write("<script language='javascript'>window.showModalDialog('DocGasFim.aspx?strCodDsk=" & Session("Cod") & "&strCodDsk=" & Session("Data") & "','Transaction','dialogWidth:830px;dialogHeight:400px,toolbar:no;status:no;titlebar:no;scrollbars:no;resizable:no');</script>") Server.Transfer("DocGasAgd.aspx") End If End If End If

[Tiago Colombo 0]

Cara,

acho que o problema naum é um lance do cache, pois qualquer página que ainda não foi postada para o servidor, pressionando a tecla F5, vai chamar os eventos do "if not postback".

 

Pois essa condição apenas é válida quando a sua solicitação é postada para o servidor e volta para a sua página.

 

Tente o seguinte, dentro do IF:

 

IF ViewState("atualizado") is nothing thenViewState("atualizado") = TrueCall sDebtorLoad()end IF

Ou seja, seja código LOAD ficará assim:

 

Dim strGuid As String = Guid.NewGuid.ToStringResponse.Expires = -1If Not Page.IsPostBack Thenviewstate("TstPag") = Request.QueryString("TstPag")IF ViewState("atualizado") is nothing thenViewState("atualizado") = TrueCall sDebtorLoad()end IFEnd If

Espero que ajude.....

 

[]´s

[wzanelato 0]

Obrigado pela ajuda Thiago mais ainda não funcionou....tá dificil mesmo descobrir o por que disso....se você souber de mais alguma coisa que posso testar , irei ficar grato...mais obrigado mesmo pela ajuda...Welington.