ASP.NET - PROBLEMA CON TEXBOX - URGENTE

   
Vista:

PROBLEMA CON TEXBOX - URGENTE

Publicado por Miguel Zegarra (1 intervención) el 26/01/2011 18:21:24
Estoy realizando una aplicacion WEB de consulta y actualizacion al poner el codigo lee los datos de la base de datos
cuando los cambio en la pagina y presiono el boton grabar
se conserva el anterior valor y no el nuevo que digito en el TEXBOX
COMO PUEDO HACER???

ESTE ES EL CODIGO QUE HE DESARROLLADO

GRACIAS DE ANTEMANO

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Imports System.Data
Partial Class Consulta_Deuda
Inherits System.Web.UI.Page
Dim Str_CadConRc As String = ConfigurationManager.ConnectionStrings("COB").ConnectionString
Dim Str_CadConVar As String = ""
Dim Dv_Clientes As DataView
Dim Dv_Status As DataView
Dim Str_Nom_BD As String = ""
Dim ClienteSeleccionado As String = ""
Dim cls_Web As New Cls_Web
Dim cls_SQL As New Cls_SQL
Dim NroNotificacion As Integer
Dim booGrabar As Boolean

Dim booCargaDatos As Boolean = False
Dim datRespuesta As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
booGrabar = False
If Page.IsPostBack Then
If Cbo_Cliente.SelectedValue.ToString.Trim = "" Then

Else
Session.Add("Ccn", Cbo_Cliente.SelectedValue.ToString.Trim)
If Not booGrabar Then CargarCartera()
End If
Else
If Not booGrabar Then CargaClientes()
End If
End Sub
Sub CargaClientes()
Dv_Clientes = cls_Web.Obt_Usuario_Cias(Str_CadConRc, CType(Session("Str_CodUsr"), String), "1", "")
Dim rvi_cuentas As DataRowView = Dv_Clientes.AddNew
rvi_cuentas("Cod_Cia") = ""
rvi_cuentas("Des_Cia") = "--Seleccione--"
rvi_cuentas.EndEdit()

Cbo_Cliente.DataSource = Dv_Clientes
Cbo_Cliente.DataBind()
If Str_Nom_BD = "" Then
Cbo_Cliente.SelectedValue = ""
End If
End Sub
Sub CargaStatus()
Str_CadConVar = ConfigurationManager.ConnectionStrings(Cbo_Cliente.SelectedValue.ToString.Trim).ConnectionString
Dv_Status = cls_Web.Obt_Status_Visitas(Str_CadConVar, CType(Session("Str_CodUsr"), String), "1", "")
Dim rvi_cuentas As DataRowView = Dv_Status.AddNew
rvi_cuentas("Cod_Sta") = ""
rvi_cuentas("Des_Sta") = "--Seleccione--"
rvi_cuentas.EndEdit()

Cbo_Status.DataSource = Dv_Status
Cbo_Status.DataBind()
If Str_Nom_BD = "" Then
Cbo_Status.SelectedValue = ""
End If
End Sub
Sub LimpiarCampos()
Txt_Codigo.Text = ""
Txt_RucDni.Text = ""
Txt_Nombres.Text = ""
txt_Respuesta.Text = ""
txt_Parentesco.Text = ""
txt_Telefono.Text = ""
txt_Material.Text = ""
txt_Fachada.Text = ""
txt_Puerta.Text = ""
End Sub
'Protected Sub Btn_Consultar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Consultar.Click
' If Cbo_Cliente.SelectedValue.ToString.Trim <> "" Then
' CargarCartera()
' End If
'End Sub
Protected Sub imgbtn_consulta_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgbtn_consulta.Click
If Cbo_Cliente.SelectedValue.ToString.Trim <> "" Then
CargarCartera()
End If
End Sub
Private Sub CargarCartera()
If booCargaDatos Then Exit Sub

Dim Dv_Datos As DataView
If Not (Len(Txt_Codigo.Text.Trim) = 0 And Len(Txt_RucDni.Text.Trim) = 0) Then
Str_CadConVar = ConfigurationManager.ConnectionStrings(Cbo_Cliente.SelectedValue.ToString.Trim).ConnectionString
If Len(Txt_Codigo.Text.Trim) <> 0 Then
Dv_Datos = cls_Web.Obt_Datos_Visita(Str_CadConVar, CType(Session("Str_CodUsr"), String), "1", Txt_RucDni.Text.Trim, Txt_Codigo.Text.Trim, "")
Else
Dv_Datos = cls_Web.Obt_Datos_Visita(Str_CadConVar, CType(Session("Str_CodUsr"), String), "2", Txt_RucDni.Text.Trim, Txt_Codigo.Text.Trim, "")
End If

If Dv_Datos.Count = 1 Then
CargaStatus()
NroNotificacion = Dv_Datos(Dv_Datos.Count - 1)("NUM_NOTIFICACION")
Txt_Nombres.Text = Dv_Datos(Dv_Datos.Count - 1)("NOMBRE_CLIENTE").ToString
Cbo_Status.SelectedValue = Dv_Datos(Dv_Datos.Count - 1)("status_vis").ToString
txt_Respuesta.Text = (Dv_Datos(Dv_Datos.Count - 1)("RESPUESTA").ToString)
txt_Parentesco.Text = Dv_Datos(Dv_Datos.Count - 1)("PARENTESCO").ToString
txt_Telefono.Text = Dv_Datos(Dv_Datos.Count - 1)("TELEFONO").ToString
txt_Material.Text = Dv_Datos(Dv_Datos.Count - 1)("VIVIENDA").ToString
txt_Fachada.Text = Dv_Datos(Dv_Datos.Count - 1)("FACHADA").ToString
txt_Puerta.Text = Dv_Datos(Dv_Datos.Count - 1)("PUERTA").ToString
booCargaDatos = True
Pnl_Resultados.Visible = True
End If

End If
End Sub
Protected Sub btn_Guardar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_Guardar.Click
Dim CadenaSQL As String
Dim GuardarDocumento As String

CadenaSQL = "UPDATE [34_Notificaciones_Respuesta] SET status_vis='" + Cbo_Status.SelectedValue.Trim + _
"',RESPUESTA='" + txt_Fachada.Text + "',PARENTESCO='" + txt_Parentesco.Text.ToString + _
"',TELEFONO='" + txt_Telefono.Text.ToUpper + "',VIVIENDA='" + txt_Material.Text.ToString + _
"',FACHADA='" + txt_Fachada.Text.ToString + "',PUERTA='" + txt_Puerta.Text.ToString + _
"',FLA_RESPUESTA=1,USR_MODIFICA='" + CType(Session("Str_CodUsr"), String).ToString + "',FHO_MODIFICA=getdate() " + _
"WHERE NUM_NOTIFICACION=" + NroNotificacion.ToString
Str_CadConVar = ConfigurationManager.ConnectionStrings(Cbo_Cliente.SelectedValue.ToString.Trim).ConnectionString

GuardarDocumento = cls_SQL.EjecutaCadena(Str_CadConVar, CadenaSQL)

'GuardarDocumento = ""
'GuardarDocumento = cls_Web.Obt_Graba_Visita(Str_CadConVar, CType(Session("Str_CodUsr"), String).ToString, "3", "", _
' NroNotificacion, "", "", Txt_Nombres.Text.Trim, Cbo_Status.SelectedValue.ToString, _
' txt_Respuesta.Text.Trim, txt_Parentesco.Text.Trim, txt_Telefono.Text.Trim, _
' txt_Material.Text.Trim, txt_Fachada.Text.Trim, txt_Puerta.Text.Trim, "")

booCargaDatos = False
Pnl_Resultados.Visible = False
LimpiarCampos()
End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PROBLEMA CON TEXBOX - URGENTE

Publicado por Hugin (3 intervenciones) el 26/01/2011 21:43:05
en el Load

If Page.IsPostBack Then
' Cambia por

If Not Page.IsPostBack Then
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar