RELATORIOS COM PROBLEMA AJUDEM POR FAVOR
Pessoal ainda aguardo um retorno =/... por favor
BOM DIA PESSOAL, SOU NOVO NO FORUM PRECISO DE UMA AJUDA NAO SEI SE VCS PODEM ME AJUDAR. ESTOU DESENVOLVENDO UM PROJETO EM UMA PEQUENA EMPRESA, COMO SE FOSSE UM SISTEMA CRM. E NELE PRECISO IMPRIMIR UMA GUIA DA ASSISTENCIA TéCNICA COM A [Ô]OS[Ô] OS DADOS DO CLIENTE E O VALOR DA VISITA TéCNICA.
FIZ UM CÓDIGO ASSIM DE ACORDO COM UM TUTORIAL QUE VI NA INTERNET , PORéM QUANDO EU IMPRIMO A VARIAVEL DO CAMPO [Ô]OBS[Ô] COM OS DETALHES DO PROBLEMA DO CLIENTE ELE ULTRAPASSA O LIMITE DA PÃGINA, JA TENTEI DE TUDO.. CARA TENTEI DE TUDOO MESMO... NAO CONSIGO RESOLVER ESTE PROBLEMA CASO POSSAM ME AJUDAR SERIA GRATO.
VLW GALERA
Dim strdados As String
Dim objimpressao As Graphics = e.Graphics
If dgvassist.RowCount = 0 Then
MsgBox([Ô]não há registros selecionados para criar relatório[Ô])
Else
[ô][ô] estes comandos desenham uma imagem para ser impressa determinam o seu local e tamanho no relatório
[ô]e.Graphics.DrawImage(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô]\Outro logo.PNG[Ô]), 30, 30, 250, 60)
[ô]e.Graphics.DrawImageUnscaled(Image.FromFile([Ô]C:\Documents and Settings\Felipe\Meus documentos\Reciclotec\Reciclotec\bin\Debug[Ô] & [Ô]teste1.png[Ô]), 100, 30, 250, 130)
e.Graphics.DrawImageUnscaled(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô] opo1.PNG[Ô]), 0, 30, 250, 130)
[ô][ô]cria uma linha especificando a espesura dela e a cor onde ela começa e onde ela termina
e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 90, 200, 780, 200)
[ô][ô]alimentando a variavel de dados a serem impresso
strdados = [Ô]Código: [Ô] + dgvassist.CurrentRow.Cells(0).Value.ToString + Chr(10)
strdados = strdados + [Ô]Data [Ô] + dgvassist.CurrentRow.Cells(1).Value.ToString + Chr(10)
strdados = strdados + [Ô]Razão Social[Ô] + dgvassist.CurrentRow.Cells(2).Value.ToString + Chr(10)
strdados = strdados + [Ô]Endereço[Ô] + dgvassist.CurrentRow.Cells(3).Value.ToString + Chr(10)
strdados = strdados + [Ô]Número[Ô] + dgvassist.CurrentRow.Cells(4).Value.ToString + Chr(10)
strdados = strdados + [Ô]Complemento : [Ô] + dgvassist.CurrentRow.Cells(5).Value.ToString + Chr(10)
strdados = strdados + [Ô]Cidade [Ô] + dgvassist.CurrentRow.Cells(6).Value.ToString + Chr(10)
strdados = strdados + [Ô]Estado [Ô] + dgvassist.CurrentRow.Cells(7).Value.ToString + Chr(10)
strdados = strdados + [Ô]Telefone [Ô] + dgvassist.CurrentRow.Cells(8).Value.ToString + Chr(10)
strdados = strdados + [Ô]E-mail [Ô] + dgvassist.CurrentRow.Cells(9).Value.ToString + Chr(10)
strdados = strdados + [Ô]Contato :[Ô] + dgvassist.CurrentRow.Cells(10).Value.ToString + Chr(10)
strdados = strdados + [Ô]OBS : [Ô] + dgvassist.CurrentRow.Cells(11).Value.ToString + Chr(10)
strdados = strdados + [Ô]Status : [Ô] + dgvassist.CurrentRow.Cells(12).Value.ToString + Chr(10)
strdados = strdados + [Ô]Valor : [Ô] + dgvassist.CurrentRow.Cells(13).Value.ToString + Chr(10)
[ô][ô]imprimindo a variavel strdados
objimpressao.DrawString(strdados, New System.Drawing.Font([Ô]arial[Ô], 9, FontStyle.Bold), Brushes.Black, 90, 220)
[ô]imprime o rodapé do relatório
[ô]*****************************
objimpressao.DrawString([Ô]Data:[Ô] + DateTime.Today + [Ô] [Ô] + [Ô]Hora:[Ô] + TimeOfDay, New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 90, 1008)
objimpressao.DrawString([Ô]Total de Registros: 1[Ô], New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 450, 1008)
objimpressao.DrawString([Ô]Pág: 1[Ô], New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 730, 1008)
e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 50, 1025, 800, 1025)
[ô]objimpressao.DrawImageUnscaled(Image.FromFile([Ô]C:\Documents and Settings\Felipe\Meus documentos\Reciclotec\Reciclotec\bin\Debug[Ô] & [Ô]teste2.png[Ô]), 70, 1045, 820, 1045)
e.Graphics.DrawImageUnscaled(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô]odape1.PNG[Ô]), 0, 1045, 820, 1045)
End If
BOM DIA PESSOAL, SOU NOVO NO FORUM PRECISO DE UMA AJUDA NAO SEI SE VCS PODEM ME AJUDAR. ESTOU DESENVOLVENDO UM PROJETO EM UMA PEQUENA EMPRESA, COMO SE FOSSE UM SISTEMA CRM. E NELE PRECISO IMPRIMIR UMA GUIA DA ASSISTENCIA TéCNICA COM A [Ô]OS[Ô] OS DADOS DO CLIENTE E O VALOR DA VISITA TéCNICA.
FIZ UM CÓDIGO ASSIM DE ACORDO COM UM TUTORIAL QUE VI NA INTERNET , PORéM QUANDO EU IMPRIMO A VARIAVEL DO CAMPO [Ô]OBS[Ô] COM OS DETALHES DO PROBLEMA DO CLIENTE ELE ULTRAPASSA O LIMITE DA PÃGINA, JA TENTEI DE TUDO.. CARA TENTEI DE TUDOO MESMO... NAO CONSIGO RESOLVER ESTE PROBLEMA CASO POSSAM ME AJUDAR SERIA GRATO.
VLW GALERA
Dim strdados As String
Dim objimpressao As Graphics = e.Graphics
If dgvassist.RowCount = 0 Then
MsgBox([Ô]não há registros selecionados para criar relatório[Ô])
Else
[ô][ô] estes comandos desenham uma imagem para ser impressa determinam o seu local e tamanho no relatório
[ô]e.Graphics.DrawImage(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô]\Outro logo.PNG[Ô]), 30, 30, 250, 60)
[ô]e.Graphics.DrawImageUnscaled(Image.FromFile([Ô]C:\Documents and Settings\Felipe\Meus documentos\Reciclotec\Reciclotec\bin\Debug[Ô] & [Ô]teste1.png[Ô]), 100, 30, 250, 130)
e.Graphics.DrawImageUnscaled(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô] opo1.PNG[Ô]), 0, 30, 250, 130)
[ô][ô]cria uma linha especificando a espesura dela e a cor onde ela começa e onde ela termina
e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 90, 200, 780, 200)
[ô][ô]alimentando a variavel de dados a serem impresso
strdados = [Ô]Código: [Ô] + dgvassist.CurrentRow.Cells(0).Value.ToString + Chr(10)
strdados = strdados + [Ô]Data [Ô] + dgvassist.CurrentRow.Cells(1).Value.ToString + Chr(10)
strdados = strdados + [Ô]Razão Social[Ô] + dgvassist.CurrentRow.Cells(2).Value.ToString + Chr(10)
strdados = strdados + [Ô]Endereço[Ô] + dgvassist.CurrentRow.Cells(3).Value.ToString + Chr(10)
strdados = strdados + [Ô]Número[Ô] + dgvassist.CurrentRow.Cells(4).Value.ToString + Chr(10)
strdados = strdados + [Ô]Complemento : [Ô] + dgvassist.CurrentRow.Cells(5).Value.ToString + Chr(10)
strdados = strdados + [Ô]Cidade [Ô] + dgvassist.CurrentRow.Cells(6).Value.ToString + Chr(10)
strdados = strdados + [Ô]Estado [Ô] + dgvassist.CurrentRow.Cells(7).Value.ToString + Chr(10)
strdados = strdados + [Ô]Telefone [Ô] + dgvassist.CurrentRow.Cells(8).Value.ToString + Chr(10)
strdados = strdados + [Ô]E-mail [Ô] + dgvassist.CurrentRow.Cells(9).Value.ToString + Chr(10)
strdados = strdados + [Ô]Contato :[Ô] + dgvassist.CurrentRow.Cells(10).Value.ToString + Chr(10)
strdados = strdados + [Ô]OBS : [Ô] + dgvassist.CurrentRow.Cells(11).Value.ToString + Chr(10)
strdados = strdados + [Ô]Status : [Ô] + dgvassist.CurrentRow.Cells(12).Value.ToString + Chr(10)
strdados = strdados + [Ô]Valor : [Ô] + dgvassist.CurrentRow.Cells(13).Value.ToString + Chr(10)
[ô][ô]imprimindo a variavel strdados
objimpressao.DrawString(strdados, New System.Drawing.Font([Ô]arial[Ô], 9, FontStyle.Bold), Brushes.Black, 90, 220)
[ô]imprime o rodapé do relatório
[ô]*****************************
objimpressao.DrawString([Ô]Data:[Ô] + DateTime.Today + [Ô] [Ô] + [Ô]Hora:[Ô] + TimeOfDay, New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 90, 1008)
objimpressao.DrawString([Ô]Total de Registros: 1[Ô], New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 450, 1008)
objimpressao.DrawString([Ô]Pág: 1[Ô], New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 730, 1008)
e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 50, 1025, 800, 1025)
[ô]objimpressao.DrawImageUnscaled(Image.FromFile([Ô]C:\Documents and Settings\Felipe\Meus documentos\Reciclotec\Reciclotec\bin\Debug[Ô] & [Ô]teste2.png[Ô]), 70, 1045, 820, 1045)
e.Graphics.DrawImageUnscaled(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô]odape1.PNG[Ô]), 0, 1045, 820, 1045)
End If
Voce nao acha mais facil fazer isso em crystal reports?!
Cara Tentei milhares de vezes.. mais nao consegui ainda até hj.. minha base de dados é access.. mais eu nao consigo passar os parametros.. tenho mta dificuldade.. e quando vou distribuir a app na empresa.. ele aparece uma tela de login e senha sendo q o banco de dados nem tem login e senha =[ .. to quase morrendo tentando resolver este problema... maldito relatório
hehe calma..
com o crystal é mais facil,
voce seta o banco de dados,passa os relacionamentos,os parametros e pronto,sem quase linha de codigo...
Passa seu msn,mais tarde lhe envio um material sobre Crystal..
Abraços
com o crystal é mais facil,
voce seta o banco de dados,passa os relacionamentos,os parametros e pronto,sem quase linha de codigo...
Passa seu msn,mais tarde lhe envio um material sobre Crystal..
Abraços
Ja tentou colocar limites de caracteres..
Ou então adicionar duas ou mais campos para colocar o OBS ???
“Faça as coisas o mais simples que você puder, porém, não as mais simples.†( Albert Einstein)
Ou então adicionar duas ou mais campos para colocar o OBS ???
“Faça as coisas o mais simples que você puder, porém, não as mais simples.†( Albert Einstein)
cara. eu nunca entro no msn da empresa mais tenho o skype se servir... vou mandar o msn se quiser envia por email e podemos nos falar por la tbm.. agradeço a ajuda pessoal..
email : ochaves19@hotmail.com
Skype: luis.reciclotec
-----------
EVERSON limite das texts nas propriedades ... ?? sim... mais como sao textos de obs eles sao mto longos. por isso eles precisam de espaço eu tentei de todas as formas fazer com que eles quebrassem as linhas mais nao quebram.. estou agora motivado com esse negocio do crystal.. espero que de certo . !
obrigado a todos até o momento
email : ochaves19@hotmail.com
Skype: luis.reciclotec
-----------
EVERSON limite das texts nas propriedades ... ?? sim... mais como sao textos de obs eles sao mto longos. por isso eles precisam de espaço eu tentei de todas as formas fazer com que eles quebrassem as linhas mais nao quebram.. estou agora motivado com esse negocio do crystal.. espero que de certo . !
obrigado a todos até o momento
BOMA TARDE PESSOAL .. AINDA AGUARDO UMA RESPOSTA SOBRE ALGUMA SOLUÇÃO.. =[ A CADA HORA Q PASSSA O DESESPERO AUMENTA RSRS.. TA DIFICIL AKI PROCUREI POR ALGUNS TUTOS NA INTERNET SOBRE O CRYSTAL .. TENTEI COLOCAR E NUNCA DA CERTO EU ARRASTO OS CAMPOS E ELE FICA COM UMAS INFORMAÇÕES NA HORA DE VISUALIZAR TOTALMENTE ESTRANHAS... EH MTO ESTRANHO ISSO.. AII FIZ UMA CONEXAO PARA ENVIAR OS DADOS MANUALMENTE O CÓDIGO FOI ESTE
Dim con As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bd_coifa1.mdb[Ô])
Dim Adapter As OleDbDataAdapter
Dim sql As String
Dim DT_SET As New DataSet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = ([Ô]select * from orcamentos[Ô])
Adapter = New OleDbDataAdapter(sql, con)
con.Open()
Adapter.Fill(DT_SET, [Ô]Orçamentos[Ô])
con.Close()
Dim objrel As New CrystalReport1
CrystalReportViewer1.ReportSource = objrel
FIZ ESTE CÓDIGO COMPILEI E EXECUTEI .. NAO DEU ERRO.. MAIS TBM NAO FUNCIONOU .. EU APERTO O BOTAO PARA GERAR. E ELE NAO FAIZ NENHUMA AÇÃO O DOC CONTINUA IGUAL NAO MUDA E NEM APARECE OS DADOS TA MTO ESTRANHO POR FAVOR SE PUDEREM ME AJUDEM POR FAVORRR.!!!! OBRIGADO DESDE JA MAIS UMA VEZ.
Dim con As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bd_coifa1.mdb[Ô])
Dim Adapter As OleDbDataAdapter
Dim sql As String
Dim DT_SET As New DataSet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = ([Ô]select * from orcamentos[Ô])
Adapter = New OleDbDataAdapter(sql, con)
con.Open()
Adapter.Fill(DT_SET, [Ô]Orçamentos[Ô])
con.Close()
Dim objrel As New CrystalReport1
CrystalReportViewer1.ReportSource = objrel
FIZ ESTE CÓDIGO COMPILEI E EXECUTEI .. NAO DEU ERRO.. MAIS TBM NAO FUNCIONOU .. EU APERTO O BOTAO PARA GERAR. E ELE NAO FAIZ NENHUMA AÇÃO O DOC CONTINUA IGUAL NAO MUDA E NEM APARECE OS DADOS TA MTO ESTRANHO POR FAVOR SE PUDEREM ME AJUDEM POR FAVORRR.!!!! OBRIGADO DESDE JA MAIS UMA VEZ.
vou adc voce mais tarde.
mas como esta saindo o relatorio?
mas como esta saindo o relatorio?
CAROS AMIGOS, BOM DIA.. AINDA CONTINUO COM ESTE PROBLEMA =[ MAIS DESTA VEZ... ACHO Q VOU PERDER MEU EMPREGO PQ NAO ESTOU CONSEGUINDO AVANÇAR NO SISTEMA ... E EU TENHO ESSAS MALDITAS METAS PRA CONSEGUIR.= [[[... PESSOAL.. VOU MANDAR A SEGUIR O CÓDIGO DE COMO EU CONSEGUI IMPRIMIR UM CÓDIGO NO CRYSTAL
If IsNumeric(txt1.Text) Then
Dim codigo_orc = Integer.Parse(txt1.Text)
sql = ([Ô]select * from orcamentos WHERE codigo =[Ô] & codigo_orc & [Ô][Ô])
Adapter = New OleDbDataAdapter(sql, con)
con.Open()
Adapter.Fill(DT_SET, [Ô]orcamentos[Ô])
con.Close()
objrel.SetDataSource(DT_SET)
CrystalReportViewer1.Refresh()
CrystalReportViewer1.ReportSource = objrel
Else
MsgBox([Ô]digite o código[Ô])
End If
ESTE CÓDIGO EXECUTA O CRYSTAL ... ELE GERA UM RELATÓRIO DIREITINHO... PORéM.. OS TEXTOS FICAM EM CIMA UM DO OUTRO.. NAS OBS.. PQ SAO CAMPOS GRANDES.. E QUANDO EU FAÇO UMA PESQUISA EX. codigo 34 .... ELE MOSTRA O REPORT.. AII SE EU COLOCO 35 NA TEXT E PONHO PRA GERAR.. ELE GERA OUTRO EM SEGUIDA DO 34... ELE VAI ACUMULANDO AS PESQUISAS.. PESSOAL AGRADEÇO A AJUDA ATé O MOMENTO .. GRATO .
If IsNumeric(txt1.Text) Then
Dim codigo_orc = Integer.Parse(txt1.Text)
sql = ([Ô]select * from orcamentos WHERE codigo =[Ô] & codigo_orc & [Ô][Ô])
Adapter = New OleDbDataAdapter(sql, con)
con.Open()
Adapter.Fill(DT_SET, [Ô]orcamentos[Ô])
con.Close()
objrel.SetDataSource(DT_SET)
CrystalReportViewer1.Refresh()
CrystalReportViewer1.ReportSource = objrel
Else
MsgBox([Ô]digite o código[Ô])
End If
ESTE CÓDIGO EXECUTA O CRYSTAL ... ELE GERA UM RELATÓRIO DIREITINHO... PORéM.. OS TEXTOS FICAM EM CIMA UM DO OUTRO.. NAS OBS.. PQ SAO CAMPOS GRANDES.. E QUANDO EU FAÇO UMA PESQUISA EX. codigo 34 .... ELE MOSTRA O REPORT.. AII SE EU COLOCO 35 NA TEXT E PONHO PRA GERAR.. ELE GERA OUTRO EM SEGUIDA DO 34... ELE VAI ACUMULANDO AS PESQUISAS.. PESSOAL AGRADEÇO A AJUDA ATé O MOMENTO .. GRATO .
add ai no msn que ajudo suporte.intech@gmail.com
ja add amigo... acho q consegui fazer os relatorios agora ele esta passadn o um texto em cima do outro .. tem como eu concatenar para o recibo com as informações da venda sair direitinho .. ??? e ele da um erro tipo que tem memória insuficiente para executar .=[[ desculpem por ter tantas duvidas estou iniciando a pouco tempo .. vlw galera .. juliano ja te add
Tópico encerrado , respostas não são mais permitidas