Leandro_Pirozzi

Tentei assim: No evento validade, mas mesmo assim ainda não mudou o formato de exibição. Private Sub Text6_Validate(Cancel As Boolean) Text6.Text = Format(CCur(Text6.Text)) End Sub

como seria?

Bom dia. Estou efetuando uma soma dos resultados digitados pelo usuário. Já me falaram para utlizar CDBL, porém preciso que os campos estejam todos preenchidos. Eu tenho o campos qtde, dias, totalhd,custohd e totais o calculo é o seguinte 'aqui é o campo totalhd e como é feito o calculo. O calculo é simples, pegar o valor dos DIAS x valor da QTDE ai temos o TOTALHD Private Sub txttotEC_LostFocus() Text2.Text = Val(txtcustoEC.Text) * Val(txttotEC.Text) txttotEC.Text = Val(txtcustodiasEC.Text) * Val(txtcustoqtdeEC.Text) Text6.Text = Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) Text7.Text = Val(txttotEC.Text) + Val(txttotEM.Text) + Val(txttotTEC.Text) + Val(txttotCONC.Text) End Sub Ai o custo o usuário digita o valor, por exemplo 220,00. Ai o TOTAIS é o resultado da multiplicação que acontece aqui. Mas não exibe em formato de 100.000,00. Text2.Text = Val(txtcustoEC.Text) * Val(txttotEC.Text) E pra finalizar tem a SOMATORIA dos TOTAIS, que acontece no exemplo no Text6.text. Text6.Text = Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) Estou tentando fazer com Val(text1.text) + val(text2.text) porem o resultado não exibe em R$ 150.000,00. Quem puder ajudar, agradeço. Vou postar uma tela de como esta ficando o calculo.

No crystal fiz assim: Report/Edit Selection Formula/Record CDate({CONTATOS_PROPOSTA.DATAPRO}) >= {?data1} And CDate({CONTATOS_PROPOSTA.DATAPRO}) <= {?data2} Ai foi bonitinho. Mas no vb ele motra erro. "Invalid Qualifier". Private Sub cmdimprimir_Click() If cbostatus.Text = Empty Then MsgBox "Selecione o status!", vbExclamation, "Advertência" Exit Sub ElseIf datinicial.Value = Empty Then MsgBox "Selecione a data inicial!", vbExclamation, "Advertência" Exit Sub ElseIf datfinal.Value = Empty Then MsgBox "Selecione a data final!", vbExclamation, "Advertência" Exit Sub end if 'Caminho do Banco de Dados CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas CrystalReport1.SelectionFormula = "{CONTATOS_PROPOSTA.ASSESSOR}= '" & Login & "'" & " and {CONTATOS_PROPOSTA.STATUS}= '" & cbostatus.Text & "'" 'Aqui é onde ele mostra o erro. CrystalReport1.ParameterFields(1).AddCurrentValue CDate(datinicial.Value) CrystalReport1.ParameterFields(2).AddCurrentValue CDate(datfinal.Value) 'Caminho do Relatório CrystalReport1.ReportFileName = App.Path & "\Proposta.rpt" CrystalReport1.WindowTitle = "Relatório de Proposta" CrystalReport1.Destination = 0 CrystalReport1.Action = 1

so q então tenta o codigo assim ó: ? "{CONTATOS_PROPOSTA.ASSESSOR}= '" & Login & "'" & " and {CONTATOS_PROPOSTA.STATUS}= '" & cbostatus.Text & "'" & " and {CONTATOS_PROPOSTA.DATAPRO} >= Date(" & anoi & "," & mesi & "," & diai & ")" & " and {CONTATOS_PROPOSTA.DATAPRO} <= Date(" & anof & "," & mesf & "," & diaf & ")" td numa linha so. Essa parte eu não entedi. Como faço isso? Só ir em Report/Edit Selection Formula/Record e digitar o que apareceu no vb? é isso? porque ele exibe data, mas não a q esta selecionada no campo do picker e sim qualquer data q ele localiza no banco. Sera q não precisa criar parametros no crystal? e tentar passar eles no vb? e depois tenta incluir o codigo q ele mostrar no selection formula direto no crystal e abra o preview do relatorio e veja se ele não vai mostrar os dados. se não mostrar ai é o problema nas datas q você ta passando. é porque ele noa ta encontrando registro no banco mesmo. ai se você tiver certeza q os registros existem mesmo, ai talvez seja problema com tipos de dados ou coisa assim. nesse caso, so pra garantir, la no crystal clicque em menu [i]Database -> Verify Database[/i], salve o relatorio e tente de novo.

Boa tarde, estou tentando fazer com arquivo .ttx, mas não consigo. Está faltando algo?? 'General Declarations Dim CRApp As CRAXDDRT.Application Dim ReportDb As CRAXDDRT.Database Dim ReportRss As CRAXDRT.DatabaseTables Dim ReportRs As CRAXDDRT.DatabaseTable Dim Report As CRAXDDRT.Report Dim StrRelat As String Private Sub Command1_Click() If PerfilUser = "USUARIO" Then cboequipe.Enabled = False End If Dim conn As ADODB.Connection Dim SQL As String Dim TabRelatorio As ADODB.Recordset Set conn = New ADODB.Connection conn.ConnectionString = "Provider=MSDAORA.1;Password=xxxxx;User ID=marketing;Data Source=ORCL" conn.Open SQL = "Select EMPRESA, CONTATO, HISTORICO, TAREFA, DATATAREFA, ASSESSOR, EQUIPE, CODEMP FROM CONTATOS_HISTORICO" Set TabRelatorio = New ADODB.Recordset TabRelatorio.CursorLocation = adUseServer TabRelatorio.Open SQL, conn, adOpenDynamic, adLockReadOnly StrRelat = App.Path & "\Historico.rpt" Set CRApp = New CRAXDDRT.Application Set Report = CRApp.OpenReport(StrRelat) Set ReportDb = Report.Database Set ReportRss = ReportDb.Tables Set ReportRs = ReportRss.Item(1) ReportRs.SetPrivateData 3, TabRelatorio 'Report.Preview "Historico, , , , , crJanela, mdientrada.hWnd" Screen.MousePointer = 0 End Sub

Então, estou postando aqui da maneira como o Marcio disse, mas não adianta ele não exibe nada no relatório. A busca ele faz certinho, mas onde precisa exibir a data ele não mostra nada no relatorio. Estou achando que devo estar errando no Crystal, porque não estou utilizando aquele esquema de @Periodo e sim estou colocando o campo DATATAREFA direto. Será que é isso? não sei como criar aquele período no crystal. Function usuario() If PerfilUser = "USUARIO" Then cboequipe.Enabled = False Dim diag Dim mesg Dim anog Dim diah Dim mesh Dim anoh diag = Day(DTPicker1.Value) mesg = Month(DTPicker1.Value) anog = Year(DTPicker1.Value) diah = Day(DTPicker2.Value) mesh = Month(DTPicker2.Value) anoh = Year(DTPicker2.Value) 'Caminho do Banco de Dados CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas CrystalReport1.SelectionFormula = "{CONTATOS_HISTORICO.ASSESSOR}= '" & Login & "'" & _ " and{CONTATOS_HISTORICO.DATATAREFA} IN " & _ " Date (" & anog & ", " & mesg & ", " & diag & ")" & _ " to Date(" & anoh & ", " & mesh & ", " & diah & ")" ' " and {CONTATOS_HISTORICO.DATATAREFA} >= Date(" & anog & "," & mesg & "," & diag & ")" & _ ' " and {CONTATOS_HISTORICO.DATATAREFA} <= Date(" & anoh & "," & mesh & "," & diah & ")" 'Caminho do Relatório CrystalReport1.ReportFileName = App.Path & "\Historico.rpt" CrystalReport1.WindowTitle = "Relatório de Histórico" CrystalReport1.Destination = 0 CrystalReport1.Action = 1 End If End Function

Estou de olho aqui, porque não consigo por período no meu relatório nem a pals. hehhe...

O problema é q as tabelas q eu crio no Oracle eu não consigo visualizá-las no Crystall, ou seja, não as encontro no Crystall na hora de adicionar as tabelas e os campos ("fields"), o q eu encontro lá são apenas as tabelas do próprio Oracle. O q devo fazer para q o Crystall 8 enxergue essas tabelas criadas no Oracle 8i???? Obrigado.

Obrigado Kuroi pela atenção, mas o estranho que não exibe as tabelas que estao no Oracle. ele solicita todos os dados, login, senha, database, conecta exibe tabelas mas as tabelas que eu utilizo ele não exibe. tá estranho demais isso.

Bom dia galera. Eu montei meus relatórios no Crystal na base q eu estava utilizando que era ACCESS. Ai já migrei a base pro Oracle, porém o relatório não é exibido. Já verifiquei em DATABASES, porem não me exibe as tabelas que migrei para o Oracle e quando peço pra rodar o programa ele me exibe a mensagem. Erro opening file File could not be found: "CONTATOS_EMPRESA", at file location: "CONTATOS_EMPRESA" ai eu clico no botão "OK" e exibe uma outra tela escrito: "FILE NOT FOUND" ai dou um ok, ele abre como se fosse abrir o relatório porém sem informação nenhuma. Existe algm jeito de passar a base do access para o oracle. já tentei tb a opção de converter DATABASE\CONVERT DATABASE DRIVER mas sem sucesso tb. Se alguém souber como ajudar, agradeço. Obrigado!!!

Bom dia galera! Será que alguém pode me dar um HELP?? Eu sei que existem 2 valores no banco, pois efetuei uma select em access e me retornou esses dois valores na tabela, mas no ORACLE ele na me volta nada, sendo que é a mesma tabela. SQL = "SELECT EMPRESA, CONTATO, HISTORICO, to_date(DATATAREFA, 'dd/mm/rrrr') DATATAREFA, ASSESSOR " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO like '%" & txtpers.Text & "%'" & _ " AND ASSESSOR = '" & Login & "' AND (DATATAREFA) BETWEEN to_date('" & Format(DTPicker1.Value, "dd/mm/yyyy") & "', 'dd/mm/rrrr') AND to_date('" & Format(DTPicker2.Value, "dd/mm/yyyy") & "', 'dd/mm/rrrr')" SQL DEBUGADA SELECT EMPRESA, CONTATO, HISTORICO, to_date(DATATAREFA, 'dd/mm/rrrr') DATATAREFA, ASSESSOR FROM CONTATOS_HISTORICO WHERE HISTORICO like '%pers%' AND ASSESSOR = 'RUTE' AND (DATATAREFA) BETWEEN to_date('01/01/2001', 'dd/mm/rrrr') AND to_date('31/03/2009', 'dd/mm/rrrr')

Date

Opa kuroi então já tentei com sysdate mas não retorna nada. acho q vou precisar converter como to_date.

Ainda não consigo exibir as tarefas do dia quando utilizo o oracle, alguém sabe como exibir em oracle?? obrigado!

Então em relação ao nome da empresa "TELEFONICA S/A" acho q não tem erro não, testei com outra empresa e deu o mesmo erro. O formato da hora esta "dd/mm/yyyy" preciso converter ele no BD? é isso? Bom galera consegui resolver. Foi besteira minha. Eu esqueci de por o .NEXTVAL claro q não ia mesmo. Segue o code correto: Vlw Raphael pela força. Private Sub cmdcadtarefa_Click(Index As Integer) txttarempresa.Text = txtempresa.Text txttarequipe.Text = cboequipe.Text Dim SQL As String If Not Verifica_Tarefas Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If Set rsTarefas = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_AGENDA " SQL = SQL & "(ID_AGENDA, CODEMP, ASSESSOR, EQUIPE, TAREFA, EMPRESA, CONTATO, DATATAREFA, HORA)" SQL = SQL & "VALUES (incremento_ID_AGENDA.NextVal, '" & Me.txtcodemp.Text & "','" & Me.txtassessor.Text & "','" & Me.txttarequipe.Text & "','" & Me.txttarefa.Text & "', " SQL = SQL & "'" & Me.txttarempresa.Text & "' , " SQL = SQL & "'" & Me.txttarcont.Text & "' , " SQL = SQL & "'" & Me.txtdatatarefa.Text & "' , " SQL = SQL & "'" & Me.txttarhora.Text & "')" Set rsTarefas.ActiveConnection = cnAgenda cnAgenda.Execute SQL LimpaTarefas Verifica_Tarefas MsgBox "Cadastro de tarefa efetuado com sucesso" Call ExibeTarefas GridEX6.Refresh End Sub

Então em relação ao nome da empresa "TELEFONICA S/A" acho q não tem erro não, testei com outra empresa e deu o mesmo erro. O formato da hora esta "dd/mm/yyyy" preciso converter ele no BD? é isso?

Para tirar as dúvidas segue o SQL. INSERT INTO CONTATOS_AGENDA (ID_AGENDA, CODEMP, ASSESSOR, EQUIPE, TAREFA, EMPRESA, CONTATO, DATATAREFA, HORA)VALUES (incremento_ID_AGENDA, '2498','RUTE','GIRARDI','email', 'TELEFONICA S/A' , 'leandro' , 23/04/2009 , '14:10')

Cara instala o Crystal que resolve eu estava com esse mesmo problema na minha máquina, instalei e pronto essas mensagens sumiram.

Opa Raphael eu tentei tirar as aspas simples mas mesmo ainda persiste o erro. Deve ser alguma besteira isso. Set rsTarefas = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_AGENDA " SQL = SQL & "(ID_AGENDA, CODEMP, ASSESSOR, EQUIPE, TAREFA, EMPRESA, CONTATO, DATATAREFA, HORA)" SQL = SQL & "VALUES (incremento_ID_AGENDA, '" & Me.txtcodemp.Text & "','" & Me.txtassessor.Text & "','" & Me.txttarequipe.Text & "','" & Me.txttarefa.Text & "', " SQL = SQL & "'" & Me.txttarempresa.Text & "' , " SQL = SQL & "'" & Me.txttarcont.Text & "' , " SQL = SQL & "" & Me.txtdatatarefa.Text & " , " SQL = SQL & "'" & Me.txttarhora.Text & "')" Set rsTarefas.ActiveConnection = cnAgenda cnAgenda.Execute SQL Ai ele aponta aqui de novo o erro.

O Pior q esta tudo como date. create table CONTATOS_AGENDA ( ID_AGENDA VARCHAR2(20), CODEMP VARCHAR2(10), ASSESSOR VARCHAR2(50), EMPRESA VARCHAR2(50), EQUIPE VARCHAR2(30), TAREFA VARCHAR2(50), CONTATO VARCHAR2(50), DATATAREFA DATE, HORA VARCHAR2(20) );

opa Raphael beleza? então ele é uma sequence criada no oracle pra acrescentar no ID. Na verdade ele é uma autonumeração no Oracle so pra ir somando.

Boa tarde galera, alguém já viu esse erro? Acontece quando vou cadastrar uma tarefa no BD do ORACLE. Obrigado. Private Sub cmdcadtarefa_Click(Index As Integer) txttarempresa.Text = txtempresa.Text txttarequipe.Text = cboequipe.Text Dim SQL As String If Not Verifica_Tarefas Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If Set rsTarefas = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_AGENDA " SQL = SQL & "(ID_AGENDA, CODEMP, ASSESSOR, EQUIPE, TAREFA, EMPRESA, CONTATO, DATATAREFA, HORA)" SQL = SQL & "VALUES (incremento_ID_AGENDA, '" & Me.txtcodemp.Text & "','" & Me.txtassessor.Text & "','" & Me.txttarequipe.Text & "','" & Me.txttarefa.Text & "', " SQL = SQL & "'" & Me.txttarempresa.Text & "' , " SQL = SQL & "'" & Me.txttarcont.Text & "' , " SQL = SQL & "'" & Me.txtdatatarefa.Text & "','" & Me.txttarhora.Text & "')" Set rsTarefas.ActiveConnection = cnAgenda cnAgenda.Execute SQL 'aqui é exibido o erro. LimpaTarefas Verifica_Tarefas MsgBox "Cadastro de tarefa efetuado com sucesso" Call ExibeTarefas GridEX6.Refresh End Sub

Opa! Consegui. é assim ohhh: txtcontato.Text = GridEX1.Value(3)

Bom dia galera!! Minha dúvida agora é como obter o indice ou o valor quando o usuario clica no Janus grid. Eu estava utilizando Datagrid, porém ele trabalha com dados conectados e preciso que trabalhe com dados desconectados tb, então instalei o Janus Grid. No data eu utilizava: txtcontato.Text = DataGrid1.Columns(2) Agora no Janus ele volta o nome da coluna ao invés do calor do campo. txtcontato.Text = GridEX1.Columns(2) se alguém souber, muito obrigado!