none
Problemas com DataGrid e UpdatePanel RRS feed

  • Pergunta

  • Olá pessoal,

    Tenho dentro de um UpdatePanel vários componentes, dentre eles um DataGrid.

    Nos eventos DeleteCommand e EditCommand coloquei os seguintes códigos:

        Protected Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
            If e.CommandName = "Delete" Then
                Dim Ds As Data.DataSet
                Fn.LimpaForm(Page.Controls)
                Ds = Empresas.ConsultaAvancada(" A.Empresa_Codigo = " & e.Item.Cells(0).Text, "")
                LbCodigo.Text = Ds.Tables(0).Rows(0)("Empresa_Codigo")
                DDLCategoria.SelectedValue = Ds.Tables(0).Rows(0)("Categoria_Codigo")
                DDLPais.SelectedValue = Ds.Tables(0).Rows(0)("Pais_Codigo")
                PovoaEstados()
                DDLEstado.SelectedValue = Ds.Tables(0).Rows(0)("Cidade_Estado")
                PovoaCidades()
                DDLCidade.SelectedValue = Ds.Tables(0).Rows(0)("Cidade_Codigo")
    
                TxtCNPJ_MaskedEditExtender.Mask = Ds.Tables(0).Rows(0)("MASCARA")
    
                rblPessoa.SelectedValue = Ds.Tables(0).Rows(0)("Empresa_Pessoa")
                TxtCNPJ.Text = Ds.Tables(0).Rows(0)("Empresa_CPF")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_RG")) Then TxtCGF.Text = Ds.Tables(0).Rows(0)("Empresa_RG")
                TxtRazaoSocial.Text = Ds.Tables(0).Rows(0)("Empresa_RazaoSocial")
                TxtFantasia.Text = Ds.Tables(0).Rows(0)("Empresa_Fantasia")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Endereco")) Then TxtEndereco.Text = Ds.Tables(0).Rows(0)("Empresa_Endereco")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Numero")) Then TxtNumero.Text = Ds.Tables(0).Rows(0)("Empresa_Numero")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Complemento")) Then TxtComplemento.Text = Ds.Tables(0).Rows(0)("Empresa_Complemento")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Bairro")) Then TxtBairro.Text = Ds.Tables(0).Rows(0)("Empresa_Bairro")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Cep")) Then TxtCep.Text = Ds.Tables(0).Rows(0)("Empresa_Cep")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Fone1")) Then TxtFone1.Text = Ds.Tables(0).Rows(0)("Empresa_Fone1")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Fone2")) Then TxtFone2.Text = Ds.Tables(0).Rows(0)("Empresa_Fone2")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Fax")) Then TxtFax.Text = Ds.Tables(0).Rows(0)("Empresa_Fax")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Contato")) Then TxtContato.Text = Ds.Tables(0).Rows(0)("Empresa_Contato")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Celular")) Then TxtCelular.Text = Ds.Tables(0).Rows(0)("Empresa_Celular")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Email")) Then TxtEmail.Text = Ds.Tables(0).Rows(0)("Empresa_Email")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Site")) Then TxtSite.Text = Ds.Tables(0).Rows(0)("Empresa_Site")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Filial")) Then rblFilial.SelectedValue = Ds.Tables(0).Rows(0)("Empresa_Filial")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Aniversario")) Then TxtDataEmpresa.Text = Ds.Tables(0).Rows(0)("ANIVERSARIO") Else TxtDataEmpresa.Text = DBNull.Value.ToString
    
                Fn.HabilitaControles(False, Page.Controls)
    
                BtnSalvar.Visible = False
                BtnCancelar.Visible = True
                BtnExcluir.Visible = True
    
                LbMensagem.CssClass = "label atencao"
                LbMensagem.Text = "Você tem certeza de que deseja excluir este registro?"
    
            End If
    
        End Sub
    
        Protected Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
            If e.CommandName = "Edit" Then
                Dim Ds As Data.DataSet
                Fn.LimpaForm(Page.Controls)
                Ds = Empresas.ConsultaAvancada(" A.Empresa_Codigo = " & e.Item.Cells(0).Text, "")
                LbCodigo.Text = Ds.Tables(0).Rows(0)("Empresa_Codigo")
                DDLCategoria.SelectedValue = Ds.Tables(0).Rows(0)("Categoria_Codigo")
                DDLPais.SelectedValue = Ds.Tables(0).Rows(0)("Pais_Codigo")
                PovoaEstados()
                DDLEstado.SelectedValue = Ds.Tables(0).Rows(0)("Cidade_Estado")
                PovoaCidades()
                DDLCidade.SelectedValue = Ds.Tables(0).Rows(0)("Cidade_Codigo")
    
                TxtCNPJ_MaskedEditExtender.Mask = Ds.Tables(0).Rows(0)("MASCARA")
    
                rblPessoa.SelectedValue = Ds.Tables(0).Rows(0)("Empresa_Pessoa")
    
                TxtCNPJ.Text = Ds.Tables(0).Rows(0)("Empresa_CPF")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_RG")) Then TxtCGF.Text = Ds.Tables(0).Rows(0)("Empresa_RG")
                TxtRazaoSocial.Text = Ds.Tables(0).Rows(0)("Empresa_RazaoSocial")
                TxtFantasia.Text = Ds.Tables(0).Rows(0)("Empresa_Fantasia")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Endereco")) Then TxtEndereco.Text = Ds.Tables(0).Rows(0)("Empresa_Endereco")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Numero")) Then TxtNumero.Text = Ds.Tables(0).Rows(0)("Empresa_Numero")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Complemento")) Then TxtComplemento.Text = Ds.Tables(0).Rows(0)("Empresa_Complemento")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Bairro")) Then TxtBairro.Text = Ds.Tables(0).Rows(0)("Empresa_Bairro")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Cep")) Then TxtCep.Text = Ds.Tables(0).Rows(0)("Empresa_Cep")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Fone1")) Then TxtFone1.Text = Ds.Tables(0).Rows(0)("Empresa_Fone1")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Fone2")) Then TxtFone2.Text = Ds.Tables(0).Rows(0)("Empresa_Fone2")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Fax")) Then TxtFax.Text = Ds.Tables(0).Rows(0)("Empresa_Fax")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Contato")) Then TxtContato.Text = Ds.Tables(0).Rows(0)("Empresa_Contato")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Celular")) Then TxtCelular.Text = Ds.Tables(0).Rows(0)("Empresa_Celular")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Email")) Then TxtEmail.Text = Ds.Tables(0).Rows(0)("Empresa_Email")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Site")) Then TxtSite.Text = Ds.Tables(0).Rows(0)("Empresa_Site")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Filial")) Then rblFilial.SelectedValue = Ds.Tables(0).Rows(0)("Empresa_Filial")
                If Not IsDBNull(Ds.Tables(0).Rows(0)("Empresa_Aniversario")) Then TxtDataEmpresa.Text = Ds.Tables(0).Rows(0)("ANIVERSARIO") Else TxtDataEmpresa.Text = DBNull.Value.ToString
    
                Fn.HabilitaControles(True, Page.Controls)
    
                BtnSalvar.Visible = True
                BtnCancelar.Visible = True
                BtnExcluir.Visible = False
    
                LbMensagem.CssClass = "label atencao"
                LbMensagem.Text = "Você tem certeza de que deseja alterar este registro?"
    
                TxtRazaoSocial.Focus()
    
            End If
    
        End Sub

    No UpdatePanel adicionei as triggers:

    <asp:AsyncPostBackTrigger ControlID="DataGrid1" EventName="DeleteCommand" />
    <asp:AsyncPostBackTrigger ControlID="DataGrid1" EventName="EditCommand" />

    Bem, o problema é que ao executar os comandos localmente ele funciona corretamente, mas quando publico no servidor não executa nenhum destes comandos. Já tentei remover as triggers mas continua na mesma, só executa localmente quando compilo.

    Alguém poderia me dar uma sugestão de como corrigir isso?

    Grato,

    Ilano.

    quinta-feira, 18 de abril de 2013 20:56