Ir para conteúdo
Fórum Script Brasil

quintelab

Veteranos
  • Total de itens

    1.891
  • Registro em

  • Última visita

Posts postados por quintelab

  1. Referente ao Ajax nunca precisei instalar nada no servidor, pois na pasta Bin do meu projeto já possui as Dlls necessárias do Ajax.

    Verifica se no seu servidor existe um diretório virtual no IIS com o mesmo nome da aplicação e lógico apontando pra aplicação.

    Falows

  2. E aí, não manjo muito de C#, e não entendi se você esta tentando obter o texto de uma coluna simples, ou de um controle que esta dentro da grid.

    Vou postar a forma como faço no VB, talvez ajude.

    Coluna Simples:

    Dim vCodigo As String = gv.Rows(e.RowIndex).Cells(0).Text

    Coluna com um controle (ex.: textBox):

    Dim txtTexto As TextBox = gv.Rows(e.RowIndex).Cells(1).Controls(0)

    Dim vTexto as String = txtTexto.Text

  3. São três eventos que são utilizados para atualizar na própria grid:

    RowCancelingEdit

    RowEditing

    RowUpdating

    no momento de gravar eu utilizo o RowUpdating, verifica se no final do "Protected Sub grid_RowUpdating" tem a segunite instrução:

    Handles gvPaginas.RowUpdating

    Exemplo de uma grid que utilizo:

    Protected Sub grid_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles grid.RowUpdating
    End Sub

  4. E aí

    Renyo você deve usar o evento SelectedIndexChanged da GridView

    o comando pra você pegar um texto, no VB é:

    Dim valor as double = grid.SelectedRow.Cells(0).Text

    Nesse caso o zero é a primeira coluna da grid....

    No C# deve ser parecido...

  5. Acredito que deva funcionar:

    <asp:HyperLinkField DataNavigateUrlFields="NUM_ESPCSG" DataNavigateUrlFormatString="Objetos.aspx?Id={0}" Text="Link - Teste" />

    Falows

  6. Vou postar a forma que eu utilizo, quem sabe ajude.

    Na tela o único componente que eu tenho é o CrystalReportView.

    Meu Código:

    Private Sub GeraRel(ByVal Query As String, ByVal Tabela As String, ByVal NomeArquivo As String, ByVal NomeRel As String)
            Dim crs As New CrystalDecisions.Web.CrystalReportSource()
            Dim DS As New DataSet
    
            Dim DAGEmpresa As New OleDbDataAdapter("SELECT GEMPRESA_ID, NOME_EMPRESA, ESTADO, CIDADE, BRASAO FROM GEMPRESA", Dll.Conexao)
            DAGEmpresa.Fill(DS, "GEMPRESA")
            DAGEmpresa.Dispose()
    
            While InStr(Query, ";") > 0
                Dll.Sql = Mid(Query, 1, InStr(Query, ";"))
                Query = Mid(Query, InStr(Query, ";") + 1, InStr(Query, ";"))
    
                Dim NomeTabela As String = Mid(Tabela, 1, InStr(Tabela, ";") - 1)
                Tabela = Mid(Tabela, InStr(Tabela, ";") + 1, InStr(Tabela, ";") - 1)
    
                Dim DA As New OleDbDataAdapter(Dll.Sql, Dll.Conexao)
                DA.Fill(DS, NomeTabela)
                DA.Dispose()
            End While
    
            crs.Report.FileName = NomeArquivo
            crs.ReportDocument.SetDataSource(DS)
    
            Cr.ReportSource = crs
            Cr.DataBind()
    
            Dim CrExportOptions As New ExportOptions
            Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions
            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions
    
            CrDiskFileDestinationOptions.DiskFileName = Server.MapPath("PDF/" & NomeRel & ".pdf")
    
            With CrExportOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .FormatOptions = CrFormatTypeOptions
                .DestinationOptions = CrDiskFileDestinationOptions
            End With
    
            Try
                Dim arq As New System.IO.FileInfo(Server.MapPath("PDF\" & NomeRel & ".pdf"))
                If arq.Exists Then
                    arq.Delete()
                End If
                crs.ReportDocument.Export(CrExportOptions)
                Response.Redirect("PDF/" & NomeRel & ".pdf", False)
            Catch err As Exception
                Response.Write(err.Message)
            End Try
        End Sub
    Eu criei uma formulário que fica responsável por gerar todos meus relatórios, e todos eles são gerados em pdf. Criei este função gerarel: Meu primeiro parâmetro "Query" é o Select, além dele se você reparar tenho uma outra query fixa (DAGEmpresa) que monta todos os cabeçalhos dos meus relatórios. Meu segunda parâmtro "Tabela" é o nome do meu da minha Table que esta dentro do meu DataSet, eu criei um único DataSet para meu projeto e nele criei as Tables com a mesma estrutura dos retornos das minhas querys, esse parâmetro "Tabela" é para referenciar qual Tables ele vai alimentar. O Parâmetro "NomeArquivo" é o nome do Arquivo.rpt que eu criei E o parâmtro NomeRel é o nome do PDF que ele vai gerar. Eu criei aquele While pois alguns relatórios necessitavam de mais de uma Tabela e consequentemente mais de uma query, aí resolvi separa-los por ";". Nessas 4 linhas:
    crs.Report.FileName = NomeArquivo
            crs.ReportDocument.SetDataSource(DS)
    
            Cr.ReportSource = crs
            Cr.DataBind()

    Eu alimento meu relatório com o DataSet e gero ele.

    E o código abaixo é responsável por gerar o PDF e fazer o tratamento necessário.

    Não sou tão didático, caso tenha alguma dúvida poste aí, que tento resolver.

    Falows mano

  7. To usando o FrameWork 2.0 com o Crystal Reports for Visual Studio 2005.

    O crystal na verdade eu criei um projeto setup com as Dll's que meu projeto precisa.

    E o mais estranho é que o mesmo código com o mesmo projeto de setup funcionou em outros servidores, mas este é meu código:

    Private Sub GeraRel(ByVal Query As String, ByVal Tabela As String, ByVal NomeArquivo As String, ByVal NomeRel As String)
            Dim crs As New CrystalDecisions.Web.CrystalReportSource()
            Dim DS As New DataSet
    
            Dim DAGEmpresa As New OleDbDataAdapter("SELECT GEMPRESA_ID, NOME_EMPRESA, ESTADO, CIDADE, BRASAO FROM GEMPRESA", Dll.Conexao)
            DAGEmpresa.Fill(DS, "GEMPRESA")
            DAGEmpresa.Dispose()
    
            While InStr(Query, ";") > 0
                Dll.Sql = Mid(Query, 1, InStr(Query, ";"))
                Query = Mid(Query, InStr(Query, ";") + 1, InStr(Query, ";"))
    
                Dim NomeTabela As String = Mid(Tabela, 1, InStr(Tabela, ";") - 1)
                Tabela = Mid(Tabela, InStr(Tabela, ";") + 1, InStr(Tabela, ";") - 1)
    
                Dim DA As New OleDbDataAdapter(Dll.Sql, Dll.Conexao)
                DA.Fill(DS, NomeTabela)
                DA.Dispose()
            End While
    
            crs.Report.FileName = NomeArquivo
            crs.ReportDocument.SetDataSource(DS)
    
            Cr.ReportSource = crs
            Cr.DataBind()
    
            Dim CrExportOptions As New ExportOptions
            Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions
            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions
    
            CrDiskFileDestinationOptions.DiskFileName = Server.MapPath("PDF/" & NomeRel & ".pdf")
    
            With CrExportOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .FormatOptions = CrFormatTypeOptions
                .DestinationOptions = CrDiskFileDestinationOptions
            End With
    
            Try
                Dim arq As New System.IO.FileInfo(Server.MapPath("PDF\" & NomeRel & ".pdf"))
                If arq.Exists Then
                    arq.Delete()
                End If
                crs.ReportDocument.Export(CrExportOptions)
                Response.Redirect("PDF/" & NomeRel & ".pdf", False)
            Catch err As Exception
                Response.Write(err.Message)
            End Try
        End Sub

    Valeu...

  8. Fiz o que eu sempre fiz em outros servidores, mas aconteceu um erro novo que eu nunca tinha visto. Já fiz de tudo e não consigo arrumar, o erro quando chamo meu relatório é o seguinte:

    The request could not be submitted for background processing.

    O que pode ser ?

    Eu uso o VS 2005...

  9. É o TextBox padrão do VS, como eu sempre usei nas outras telas.

    A única herança que eu tenho no meu código é: System.Web.UI.UserControl, veio como Default.

    Tem alguma forma pra eu herdar: System.Web.UI.WebControls e conseguir validar esse CompareValidator ?

  10. To meio enferrujado em relação ao asp, mas eu acho que se este seu campo oculto for um campo Hidden, pode usar ele como se fosse quaquer outro campo.

    Sql = "SELECT * FROM TABELA WHERE CAMPO = "& Hidden.value

    Falows

  11. Brother, não tenho nenhuma aqui, mas você pode procurar uma função que calcula a idade, e ao invés de gravar esta data no banco, toda que vez que abrir sua página você executar esta função. Ou executar a função e logo depois gravar no banco se tiver necessidade.

  12. Brother talvez eu esteja errado, mas se você tiver o driver do seu banco instalado corretamente, você deve conseguir conectar pelo Server Explorer, eu já consegui até com o FireBird.

    Falows

  13. Criei um controle "Data.ascx".

    Nele coloquei um TextBox e um MaskEditExtender, com a formatação de data: "__/__/____"

    Normalmente faço a validação de data com um CompareValidator, com as seguintes propriedades: Display: Dynamic; Operator: GreaterThan; Type: Date; ValueToCompare: 01/01/1900.

    Mas eu usando o controle, ele não esta validando, o que fazer ?

×
×
  • Criar Novo...