Gabriel Cabral

Boa dia pessoal... Estou com um problema aqui chato de resolver... em um cadastro, tenho um botao "Gravar" que possui o seguinte código: procedure TfrmCadPro.btnGravarClick(Sender: TObject); begin dm.tblCadPro.Post; dm.tblCadPro.Close; end; Há várias DBEdit no formulário para serem preenchidas..... mas, após preencher a última DBEdit eu clico com o mouse no botao "Gravar" sem tirar o foco desta DBEdit com o Tab... então o campo correspondente a esta DBEdit fica vazio....o que foi preenchido não é gravado. alguém tem alguma sugestão??? Obrigado

Então...acabou que deu certo o que eu queria fazer.... coloquei no OnEnter do Preço de Venda procedure TfrmCadPro.txtCadPro_PreVenEnter(Sender: TObject); var precus, vml: real; begin precus := StrToFloat(txtCadPro_PreCus.Text); vml := StrToFloat(txtCadPro_Vml.Text); txtCadPro_PreVen.Text := FloatToStr(precus+((precus*vml)/100)); end; E depois tem a conta inversa...obtendo o lucro [vml].......caso se altere o preço de venda.....que coloquei no OnEnter de um DBEdit que vem depois do DBEdit do preço de venda... procedure TfrmCadPro.txtCadPro_CodForn1Enter(Sender: TObject); var precus, preven: real; begin precus := StrToFloat(txtCadPro_PreCus.Text); preven := StrToFloat(txtCadPro_PreVen.Text); txtCadPro_Vml.Text := FloatToStr(((preven-precus)*100/precus)); txtCadPro_Vml.Text := FormatFloat('#,###,##0.000',StrToFloat(txtCadPro_Vml.Text)); end; Percebam que formatei o vml para aparecer com 3 casas decimais.....mas ele arredonda.. exemplo....o preço de custo é 1,000.....o vml é 56,780.....resultando no preço de venda 1,567.... então se eu tiro o foco do preço de venda, este se torna 1,57 e o vml se torna 57.... preciso q o vml continue 56,780 e o preço de venda 1,56.

Estou usando tabelas .dbf, pois estou começando a migrar de Clipper para Delphi... Estou utilizando BDE.

Olá pessoal... é o seguinte... estou com dificuldades aqui para utilizar o evento OnExit e o OnEnter de um DBEdit... assim... tenho tres DBEdit vinculados a uma tabela...e no cadastro, o.. txtCadPro_PreCus.Text recebe o valor do Preço de Custo; txtCadPro_Vml.Text recebe o valor do Lucro; txtCadPro_PreVen.Text recebe o valor do Preço de Venda. Para calcular o Preço de venda com base no Preço de custo e no VML, eu coloquei no OnExit do txtCadPro_Vml o seguinte código: procedure TfrmCadPro.txtCadPro_VmlExit(Sender: TObject); var precus, vml: real; begin precus := StrToFloat(txtCadPro_PreCus.Text); vml := StrToFloat(txtCadPro_Vml.Text); txtCadPro_PreVen.Text := FloatToStr(precus+((precus*vml)/100)); end; Mas quando este DBEdit perde o foco, nada aparece no outro DBEdit... resolvi então fazer um teste... Troquei o DBEdit que recebia o resultado do Preço de venda por um Edit normal....e dessa vez funcionou....o resultado apareceu no Edit normal.... Qual pode ser o problema??....o que devo fazer pra resolvê-lo?? Muito Obrigado

É uma ótima solução, Micheus.... exceto pelo Label que fica atrás da linha do Shape....[aí o caption do Label fica como se tivesse um risco em cima] Isso acontece quando coloco o XPManifest....sem o XPManifest, ele fica por cima da linha do Shape, exatamente da maneira que preciso.... mas preciso usar o XPManifest :( o que posso fazer?

Ae galera... eu precisava de um botão que desse pra colocar imagem... ter a propriedade Flat, para ficar com a mesma cor do formulario em que está... e receber foco, através da propriedade TabOrder. O SpeedButton dá pra colocar imagem e tem a propriedade Flat...mas não recebe foco. O BitBtn dá pra colocar imagem e recebe foco...mas não tem a propriedade Flat. Existe algum outro botao q tem essas tres propriedades? Ou alguma outra forma de fazer o que preciso, que vocês podem me sugerir?? Muito obrigado

Este é o problema.... com XPManifest ele não está mudando a cor... O código está dessa forma...mas a cor não está mudando.. procedure TfrmCadPro.ProPesNaoClick(Sender: TObject); begin FramePesUnd.Enabled := False; ProUnpPeso.Checked := False; ProUnpUnidade.Checked := False; FramePesUnd.Font.Color := clGray; ProUnpPeso.Font.Color := clGray; ProUnpUnidade.Font.Color := clGray; lblCadPro_DiasVal.Enabled := False; txtCadPro_DiasVal.Enabled := False; end;

Ae galera.... não tem como mudar a cor da borda de um GroupBox??? porque preciso colocar uma cor de fundo bem clara...aí a borda dos GroupBox q tenho quase não aparecem por serem um cinza bem claro também.... eu precisava mudar para uma cor mais escura, pois não posso mudar a cor do fundo.. alguém tem alguma sugestão??? Muito obrigado

Só dessa forma mesmo??? ok.. muito obrigado

Ae galera...td certo??!! então...eu estava querendo que o radiobutton ficasse "sem cor" quando fosse desabilitado [enabled:=false] tem alguma forma??? porque aqui está ficando desabilitado, mas não fica com a cor meio apagada igual ficam os labels e as caixas de texto obrigado

Amigo..acho que encontrei o erro... em uma tela de cadastro de contas a pagar, quando vou buscar um registro, um dos campos q ele procura é a data de vencimento... uma conta com vencimento 30/05/08 cadastrada no pc do cliente, vem na busca como 30/05/00...por esse motivo não está excluindo...... pois quando eu cadastro uma conta aqui no pc do escritorio, com vencimento 03/06/08, ela vem na busca como 03/06/08...dessa forma consigo excluir... mas porque as datas cadastradas no pc do cliente, mudam os digitos do ano quando se faz a busca??? Obrigado

Olá pessoal estou com um problema um tanto quanto estranho... não sei bem o que pode estar havendo.... assim... quando terminei o projeto, levei no cliente e instalei no pc dele.. aí ele cadastrou uma conta a pagar e depois mandou excluir esse registro....mas não exclui... só que no pc do escritorio onde trabalho, isso não acontece....o registro é excluído normalmente.... o que faço??? pois no escritório não há erros e no pc do cliente sim

Olá gente.... estou fazendo um relatório em DataReport....ele precisa ser em modo paisagem... já baixei e instalei o SP6 do VB6 mas a propriedade Orientation do datareport não está funcionando... está dando o erro: compile error: method or data member not found alguém saberia dizer o que pode estar havendo?? Obrigado

Insert em Access Olá pessoal... estou fazendo um exercicio pra faculdade...preciso inserir dados em uma tabela do access... mas quando executo o programa, não dá nenhum erro..mas também não aparece a mensagem que é pra aperecer e nem insere nada na tabela.. o código está dessa forma CONEXÃO package conexao; import java.sql.Connection; import java.sql.DriverManager; import java.sql.SQLException; public class Conecta { private static final String url = "jdbc:odbc:sistemapassagens"; private static final String driver = "sun.jdbc.odbc.JdbcOdbcDriver"; private static final String usuario = "root"; private static final String senha = ""; public static void main (String[] args) throws SQLException{ abreConexao(); } public static Connection abreConexao() throws SQLException{ try{ Class.forName(driver); System.out.println("Conexão realizada com sucesso!!!"); return DriverManager.getConnection(url, usuario, senha); } catch(ClassNotFoundException e){ throw new SQLException(e.getMessage()); } } } Em seguida, uma classe para testar a inserção dos dados... TESTE DE INSERÇÃO package dao.impl; import conexao.Conecta; import java.sql.PreparedStatement; import java.sql.Connection; import java.sql.DriverManager; import java.sql.SQLException; import model.Cliente; import dao.IDAOCliente; import javax.swing.*; public class DAOCliente implements IDAOCliente{ public void inserir(Cliente pCliente) throws SQLException { int cod_Cliente = 1; String nome = "Gabriel"; String identidade = "45.999.818-3"; String cpf = "364.704.958-18"; String endereco = "Rua Haiti, 73"; String data_Nascimento = "04/01/1989"; String sexo = "Masculino"; Connection conexao = null; StringBuffer comando = null; PreparedStatement prepst = null; //conexao teste try{ conexao = Conecta.abreConexao(); comando = new StringBuffer(); comando.append("INSERT INTO Cliente VALUES(?,?,?,?,?,?,?)"); prepst = conexao.prepareStatement (comando.toString()); prepst.setInt(1,1); prepst.setString(2,"nome"); prepst.setString(3,"identidade"); prepst.setString(4,"cpf"); prepst.setString(5,"endereco"); prepst.setString(6,"data_Nascimento"); prepst.setString(7,"sexo"); prepst.executeUpdate(); System.out.println("Cliente cadastrado com sucesso!!!"); } catch(Exception e){ System.out.println(e.toString()); } finally{ if(prepst!=null){ try{ prepst.close(); } catch(Exception e){ } try{ conexao.close(); } catch(Exception e){ } } } } } alguém saberia me dizer porque os dados não estao sendo inseridos??? Obrigado

Olá pessoal....estou começando a trabalhar com Delphi 7.... gostaria de saber se alguém tem algum link de algum tutorial de acesso ao Firebird com ADO no Delphi 7.... ou se alguém aqui poderia uma explicação sobre o assunto. Muito obrigado

Fiz isso....executei e deu o que está dando no VB. Estou com três registros na tabela.... 1-- Con_Tipo=CP; Con_DataPgto=17/03/08; Con_ValorPgto=100 2-- Con_Tipo=CP; Con_DataPgto=18/03/08; Con_ValorPgto=80 3-- Con_Tipo=CR; Con_DataPgto=17/03/08; Con_ValorPgto=70 Quando eu quero gerar um relatorio no periodo de 01/03/08 a 17/03/08, o relatorio teria que exibir os registros 1 e 3, a soma de CP teria que ser 100 e a de CR teria que ser 70...sendo a diferença -30 (CR-CP). O relatorio está fazendo as somas e diferenças corretamente [fazendo as contas dos registros que estão no periodo indicado], mas está exibindo os tres registros. Se eu escolho um periodo em que não há registros, o relatorio exibe os registro 1 e 2 [os que são Con_Tipo=CP]...e as somas e diferenças são R$0,00 [feitas corretamente] Ainda não entendi o que está havendo =(

Com certeza, use o Debug.Print para 'printar' a Query, e cole ela no Banco de Dados, execute e veja o resultado. Me desculpe, mas é que nunca fiz esse tipo de teste...não sei como proceder. Como eu faço pra fazer isso?? Estou usando Access

OBS.: Não sei se devo abrir outro tópico ou continuar neste mesmo.... Qualquer coisa me avisem que eu abro outro... Estou terminando um outro relatorio....agora é o balancete de contas pagas e recebidas....E surgiu um outro problema... Considerando que as contas pagas são as contas recebidas com o campo Con_DataPgto sendo não-nulo, observem este código: Dim Conex As New ADODB.Connection Conex.Open StringDeConexao With cmd_relatorio .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "SELECT Con_Venc, Con_NumDoc, Con_ContParc, Con_ValorCP, Con_ValorCR, Con_DataEmissao, Con_Boleto, Con_NomeFantasia, Con_Tipo, Con_DataPgto, FinanWin_Contas.Con_ValorPgtoCR, FinanWin_Contas.Con_ValorPgtoCP, (Select Sum(Con_ValorPgtoCR) as totalCR From FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCR) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "#) as totalCR, (select sum(Con_ValorPgtoCP) as totalCP from FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCP) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "#) as totalCP FROM FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCP) OR Not isNull(Con_ValorPgtoCR) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "# ORDER BY Con_Tipo, Con_DataPgto, Con_Venc" Set rs_relatorio = .Execute If Not (rs_relatorio.BOF And rs_relatorio.EOF) Then rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCR").Caption = IIf(IsNull(rs_relatorio!totalCR), 0, rs_relatorio!totalCR) rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCP").Caption = IIf(IsNull(rs_relatorio!totalCP), 0, rs_relatorio!totalCP) Dim somaCR As Currency Dim somaCP As Currency Dim dif As Currency somaCR = IIf(IsNull(rs_relatorio!totalCR), 0, rs_relatorio!totalCR) somaCP = IIf(IsNull(rs_relatorio!totalCP), 0, rs_relatorio!totalCP) dif = somaCR - somaCP rptBalConPPagasConRReceb.Sections("Section5").Controls("lblDif").Caption = dif Else MsgBox "Não há registros neste período.", vbExclamation txtDataInicial.SetFocus End If End With Eu preciso selecionar [além de todos os campos da tabela FinanWin_Contas] a soma do campo Con_ValorPgtoCP e a soma do campo Con_ValorPgtoCR em que o campo Con_DataPgto não seja nulo e esteja entre duas datas determinadas pelo usuário. Considerando que na tabela eu tenha apenas um registro....seu campo Con_DataPgto = 17/03/08, logo não é nulo... Se, no form que gera o relatorio, eu coloco um periodo de 01/03/08 até 31/03/08, o relatorio é gerado normalmente, com os campos desse registro e as somas e diferença. Mas se coloco um período que não condiz com nenhum registro [de 01/01/01 até 01/02/01, por exemplo], o relatorio é gerado tambem com os campos desse unico registro da tabela....e as somas aparecem zeradas [R$0,00......o que está certo, já que não há registros nesse periodo]. Eu acho que o erro está no If Not (rs_relatorio.BOF And rs_relatorio.EOF) Then porque era pra 'pular' pro else, exibir a MsgBox e nem gerar o relatorio... Ou pode ser erro no SELECT também.... alguém conseguiria me ajudar?? Obrigado

Isso mesmo, Graymalkin...exatamente. Os parênteses eram necessários para o Not ser aplicado aos dois valores.... Muito obrigado. _________________________________________ webdeveloper, experimentei esta ultima forma que voce indicou, deu certinho Muitíssimo obrigado a todos vocês...kuroi, Macêdo, webdeveloper e Graymalkin. Obrigado mesmo.

webdeveloper....eu experimentei da forma que você indicou, mas deu o seguinte: Run-time error '424': Object Required e marcou a linha indicada abaixo.. If Not rs_relatorio.EOF Then rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCR").Caption = Iif(rs_relatorio!totalCR Is Null, 0, rs_relatorio!totalCR) ' MARCOU ESTA LINHA COM O ERRO rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCP").Caption = Iif(rs_relatorio!totalCP Is Null, 0, rs_relatorio!totalCP) Dim somaCR As Currency Dim somaCP As Currency Dim dif As Currency somaCR = Iif(rs_relatorio!totalCR Is Null, 0, rs_relatorio!totalCR) somaCP = Iif(rs_relatorio!totalCP Is Null, 0, rs_relatorio!totalCP) dif = somaCR - somaCP Mas todos os objetos existem no relatorio....não sei porque deu esse erro.... Macêdo, kuroi, Graymalkin.....tentei te todos os jeitos que voces me indicaram....mas nenhum deu certo.....não sei porque.... Há registros mas o If Not rs_relatorio.BOF AND rs_relatorio.EOF está dando False....dizendo que não há registros...

Os campos de Valor do Pagamento [Con_ValorPgtoCP e Con_ValorPgtoCR] NUNCA serão não-nulos no mesmo registro.... Ou o registro terá os dois como nulos... Ou terá apenas o Con_ValorPgtoCP... Ou terá apenas o Con_ValorPgtoCR... o que eu percebi é que....quando eu coloco um período em que só há registros com um dos campos sendo nulo, dá erro na linha rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCR").Caption = rs_relatorio!totalCR Ou na linha rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCP").Caption = rs_relatorio!totalCP Dependendo do caso.... Isso ocorre porque, se um campo é nulo, não tem como mostrar seu valor no DataReport.... Mas é isso q eu não estou conseguindo fazer.....se CP for nulo e CR não, teria q colocar algo pra que a linha de comando acima que mostra o CP no relatorio fosse 'pulada'... alguém conseguiu entender minha dúvida??? No aguardo por ajuda Obrigado

Bom dia pessoal.... Cá estou com um prolema em que tenho um If Not...Else...End If... O If Not é falso, mas ele não pula pro Else...ele continua na proxima linha...aí dá erro de Tipo de dados.....justamente porque não era pra continuar..... Bem...vou colocar o código aqui e explicar melhor... Eu faço um SELECT em que eu preciso selecionar, além de todos os campos da tabela FinanWin_Contas, a soma dos campos Con_ValorPgtoCP e Con_ValorPgtoCR ONDE nenhum desses campos pode ser nulo e que a data de pagamento [campo Con_DataPgto] esteja ENTRE a data inicial e a data final determinadas.... o que acontece é que quando eu informo um período em que não há registros nessas condições [if Not rs_relatorio.EOF Then], ao invés de ir pro Else e mostrar a MsgBox, o If Not que deveria ser falso, é tratado como verdadeiro e não vai pro Else....Então dá um erro de tipo de dados...o que já é esperado... Dim Conex As New ADODB.Connection Conex.Open StringDeConexao With cmd_relatorio .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "SELECT Con_Venc, Con_NumDoc, Con_ContParc, Con_ValorCP, Con_ValorCR, Con_DataEmissao, Con_Boleto, Con_NomeFantasia, Con_Tipo, Con_DataPgto, FinanWin_Contas.Con_ValorPgtoCR, FinanWin_Contas.Con_ValorPgtoCP, (Select Sum(Con_ValorPgtoCR) as totalCR From FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCR) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "#) as totalCR, (select sum(Con_ValorPgtoCP) as totalCP from FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCP) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "#) as totalCP FROM FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCP) OR Not isNull(Con_ValorPgtoCR) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "# ORDER BY Con_Tipo, Con_DataPgto, Con_Venc" Set rs_relatorio = .Execute If Not rs_relatorio.EOF Then rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCR").Caption = rs_relatorio!totalCR rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCP").Caption = rs_relatorio!totalCP Dim somaCR As Currency Dim somaCP As Currency Dim dif As Currency somaCR = rs_relatorio!totalCR somaCP = rs_relatorio!totalCP dif = somaCR - somaCP rptBalConPPagasConRReceb.Sections("Section5").Controls("lblDif").Caption = dif rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCR").Caption = Format(rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCR").Caption, "##0.00") rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCP").Caption = Format(rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCP").Caption, "##0.00") rptBalConPPagasConRReceb.Sections("Section5").Controls("lblDif").Caption = Format(rptBalConPPagasConRReceb.Sections("Section5").Controls("lblDif").Caption, "##0.00") If dif < 0 Then rptBalConPPagasConRReceb.Sections("Section5").Controls("RS_Dif").ForeColor = vbRed rptBalConPPagasConRReceb.Sections("Section5").Controls("lblDif").ForeColor = vbRed Else rptBalConPPagasConRReceb.Sections("Section5").Controls("RS_Dif").ForeColor = vbBlue rptBalConPPagasConRReceb.Sections("Section5").Controls("lblDif").ForeColor = vbBlue End If With rptBalConPPagasConRReceb Set .DataSource = rs_relatorio .DataMember = "" .Orientation = rptOrientLandscape .Refresh .Show End With Else MsgBox "Não há registros neste período.", vbExclamation txtDataInicial.SetFocus End If End With End Sub alguém conseguiria me ajudar?? Obrigado

Muitíssimo obrigado a vocês, kuroi e Macêdo... Experimentei das duas formas e as duas deram certo... Sou muito grato a vocês

kuroi e Macêdo... muito obrigado pelas dicas.. amanhã de manha testarei das duas formas e então eu posto aqui pra falar se alguma resolveu o problema Boa noite a todos

Olá pessoal.... Estou criando um relatório de contas a pagar entre datas....estou com um problema nessas datas e não tenho a mínima ideia do q esteja acontecendo.... Em um form, o usuario determina a datainicial e datafinal para gerar o relatorio.. Considerando que a tabela de contas tenha dois registros....Estes registros possuem, respectivamente, os valores 05/03/08 e 10/04/08 no campo Con_Venc [campo que guarda o vencimento da conta]. Abaixo seguem uns exemplos de como está funcionando esta geração de relatório... *Se eu coloco DataInicial = 01/03/08 e DataFinal = 02/03/08 ou 03/03/08 ou 04/03/08...O RELATÓRIO MOSTRA O REGISTRO DA DATA 05/03/08. *Se eu coloco DataInicial = 01/03/08 e DataFinal = 05/03/08 até 29/03/08...O RELATÓRIO MOSTRA OS DOIS REGISTROS...O DA DATA 05/03/08 E O DA DATA 10/04/08. *Se eu coloco DataInicial = 01/03/08 e DataFinal = 30/03/08 até 03/04/08...DIZ QUE NÃO HÁ REGISTROS NESSAS CONDIÇÕES. *Se eu coloco DataInicial = 01/03/08 e DataFinal = 04/04/08 até 29/04/08...O RELATÓRIO MOSTRA OS DOIS REGISTROS...O DA DATA 05/03/08 E O DA DATA 10/04/08. E assim por diante com os outros meses.... Abaixo está o código de como estou fazendo o SELECT com BETWEEN... Dim Conex As New ADODB.Connection Conex.Open StringDeConexao With cmd_relatorio .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "SELECT * FROM FinanWin_Contas WHERE isNull(Con_ValorPgtoCP) AND Con_Tipo = 'CP' AND Con_Venc BETWEEN #" & txtDataInicial & "# AND #" & txtDataFinal & "# ORDER BY Con_Venc" Set rs_relatorio = .Execute End With If Not rs_relatorio.EOF Then Dim DInicial As Date Dim DFinal As Date DInicial = txtDataInicial.Text DFinal = txtDataFinal.Text rptConPData.Sections("Section2").Controls.Item("lblPeriodo").Caption = "Período de Referência: " & Format(DInicial, "DD/MM/YYYY") & " a " & Format(DFinal, "DD/MM/YYYY") With rptConPData Set .DataSource = rs_relatorio .DataMember = "" .Refresh .Show End With Else MsgBox "Não há registros neste período.", vbExclamation txtDataInicial.SetFocus End If Caso alguém consiga enxergar algo que eu não esteja vendo e puder me ajudar....ficarei muito grato