Re: [delphi-br] sql simples mas nao funciona
A solução não é a melhor, porém funciona. É possível efetuar o select utilizando-se de joins de várias maneiras. /* Clientes que não possuem pedidos */ select CLI.* from CLIENTE CLI where not exists (select 1 from PEDIDO PED where PED.CD_CLIENTE = CLI.CD_CLIENTE) /* Clientes que possuem pedidos */ select CLI.* from CLIENTE CLI where exists (select 1 from PEDIDO PED where PED.CD_CLIENTE = CLI.CD_CLIENTE) - ou - select CLI.* from CLIENTE CLI join PEDIDO PED on (CLI.CD_CLIENTE = PED.CD_CLIENTE) Espero ter colaborado. Em 15 de julho de 2010 09:26, alessandra porto alessandraport...@yahoo.com.br escreveu: Preciso buscar todos os clientes que não possuem pedidos tenho a tabela clientes e a tabela clientes já fizassim: SELECT PED.*,CLI.CD_CLIENTE,CLI.FANTASIA FROM CLIENTE CLI LEFT OUTER JOIN PEDIDO PED ON (PED.CD_CLIENTE = CLI.CD_CLIENTE) WHERE CLI.CD_CLIENTE NOT IN (SELECT DISTINCT PED.CD_CLIENTE FROM PEDIDO PED) ORDER BY CLI.FANTASIA e nada e quando faço assim retorna errado o numero de pedidos para os clientes pois muitos possuem mais de 01 pedidoe assim só apresenta 01 pedido SELECT CLI.CD_CLIENTE, PED.CD_CLIENTE, PED.CD_PEDIDO, count(PED.CD_PEDIDO) NPEDIDOS FROM PEDIDO PED LEFT OUTER JOIN CLIENTE CLI ON (CLI.CD_CLIENTE = PED.CD_CLIENTE ) GROUP BY 1,2,3 agradeço aos amigos que colaborarem preciso dos 2 tipos de retorno os que não possuem e os que possuem qual a quantidade? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] firebird erro na pesquisa motivo versao ajuda
Troque: GROUP BY 1 Por: GROUP BY PAC.CD_PACIENTE Veja se resolve. Em 19 de março de 2010 15:51, alessandra porto alessandraport...@yahoo.com.br escreveu: essa pesquisa fiz na versão 2.1 e deu certinho mas quando faço no mesmo banco rodando em um servidor com a versão 1.5 dá erro por causa da GROUP BY SELECT PAC.CD_PACIENTE,MAX(PAC.PACIENTE) PACIENTE,MAX(PAC.SEXO)SEXO,MAX(PAC.DTA_NASC) DTA_NASC, MAX(PAC.ENDERECO) PACENDERECO,MAX(PAC.CEP) PACCEP,MAX(PAC.EMAIL) PACEMAIL, MAX(FAT.DTA_CAD) DTA_FAT,MAX(FAT.CD_UNIDADE) FATUNIDADE,MAX(UNID.UNIDADE)UNIDADE, MAX(UNID.CD_UNIDADE)CDUNID ,MAX(PAC.CD_CIDADE) PACCIDADE,MAX(CID.CIDADE_CODIGO) CIDCDCIDADE, MAX(CID.CIDADE_DESCRICAO) CIDCIDADE,MAX(PAC.CD_BAIRRO) PACBAIRRO , MAX(BAI.BAIRRO_CODIGO) BAICDBAIRRO,MAX(BAI.BAIRRO_DESCRICAO) BAIBAIRRO,COUNT(FAT.CD_FATURA) NFATURAS FROM PACIENTE PAC LEFT OUTER JOIN FATURA FAT ON (FAT.CD_PACIENTE = PAC.CD_PACIENTE) LEFT OUTER JOIN UNIDADE UNID ON (UNID.CD_UNIDADE = FAT.CD_UNIDADE) LEFT OUTER JOIN CIDADE CID ON (CID.CIDADE_CODIGO = PAC.CD_CIDADE) LEFT OUTER JOIN BAIRRO BAI ON (BAI.BAIRRO_CODIGO = PAC.CD_BAIRRO) WHERE FAT.DTA_CAD IS NOT NULL GROUP BY 1 ORDER BY PACIENTE existe uma forma de resolver isso sem ter que mudar a versão do firebird ?? pois isso seria muito complexo para meu cliente grata pela sugestões __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Calculo inverso multa e juros
Cristiano, essa dica não te ajuda em nada? http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=1086 Abraços. Em 15 de fevereiro de 2010 10:29, Cristiano cristianorodrigogo...@hotmail.com escreveu: Olá pessoal na minha rotina de contas a receber meu sistema calcula multa e juros. Exemplo: Valor 100,00 Vencimento 10/02/2009 Data Pagamento 15/02/2009 Multa 2,00 = 2% Juros 1,50 = 0,3% ao dia = 1,5% Total 103,50 Até aí tudo bem... porém em alguns casos a pessoa não faz o pagamento total desta conta... vamos supor que ela venha e pague 80,00. Preciso fazer uma rotina onde o sistema recalcule o campo valor, multa e juros para que o total seja 80,00 aí eu crio um novo registro com mesmo vencimento deixando em aberto 20,00. Não sei como fazer a conta inversa para que o sistema calcule da seguinte forma: Total = 80,00 Valor = 77,29 como chegar neste valor? Multa = 1,55 como chegar neste valor? Juros = 1,16 como chegar neste valor? No aguardo . Cristiano [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] TQuery/TClientDataSet não mostram c asas decimais
Vê se ajuda... Informe o valor #,0.00 (sem aspas) na propriedade DisplayFormat e EditFormat do campo no ClientDataSet e veja se resolve seu problema. 2009/9/1 Dirceu Vasson Jr vasso...@yahoo.com.br Bom dia Estou listando em uma grid os resultados de uma consulta ao banco oracle 9i e nesta consulta não são listadas as casas decimais. O que é 9,640 é mostrado como 9, sendo que não há no script nenhuma função round. Estou usando o TClientDataSet, tentei usar o TQuery mas não teve jeito, nem mesmo colocando em true a propriedade 'Currency' do TField. Alguém saberia como resolver isto? Agradeço antecipadamente Dirceu __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] controlar seqüência..
Cleiton, desenvolvi uma função em PL/SQL que faz o que deseja. Através de uma sequência dada, ele vai retornando o número do furo de sequência. Me fale de onde é a fonte de dados dos números para que eu possa adaptar ela para o Pascal e enviar para a lista. Abraços. 2009/8/26 Ricardo César Cardoso ricardo_engs...@yahoo.com.br Bom dia! Dá pra desenvolver melhor a idéia (ou até corrigir o código, fiz de cabeça), mas basicamente criaria um conjunto de números: type TNumeros = 1..10; TConjuntoNumeros = Set of TNumeros E usaria o operador IN para verificar: var Sequencia = TConjuntoNumeros;begin Sequencia := [ 1, 2, 3, 4, 5, 7, 8, 10 ] if( 6 and 9 in Sequencia ) then{ processa verdadeiro } else{ processa falso }end; É mais ou menos por aí. []'sRicardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 25/8/09, Cleiton - Yahoo cleiton.mac...@yahoo.com.brcleiton.maciel%40yahoo.com.br escreveu: De: Cleiton - Yahoo cleiton.mac...@yahoo.com.brcleiton.maciel%40yahoo.com.br Assunto: [delphi-br] controlar seqüência.. Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 25 de Agosto de 2009, 21:46 Pessoal blz? To batendo cabeça numa rotina aqui, e gostaria da ajuda de vocês. Preciso verificar se numa seqüência de números qual valor esta faltando exemplo Tenho um numero de 1..10 Logo, 1,2,3,4,5,7, 9,10 Quero saber como fazer pra saber quais números estão faltando ou seja os números 6 e 8 na seqüência anterior. Se alguém tiver alguma idéia ai por favor da um help aqui ok:??]]] Abraço galera. [As partes desta mensagem que não continham texto foram removidas] __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] criando fields em tempo de execuçã o - help
Te ajuda? http://www.greatis.com/delphicb/tips/lib/databases-adsdfield.html Humberto Oliveira 2009/7/29 Leonardo Baldino portaldoinfe...@gmail.com alguem sabe como eu faço para criar campos num clientdataset em tempo de execução -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] criando fields em tempo de execuçã o - help
Seria isso? DataSet.FieldDefs.Delete(índice do dataset); 2009/7/29 Leonardo Baldino portaldoinfe...@gmail.com por um acaso vc sabe como apagar os campos depois de criados em tempo de execução por agora eu consegui criar ele atraves do exemplo no link abaixo so que eu preciso apagar os campos em tempo de execução tb. 2009/7/29 Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com Te ajuda? http://www.greatis.com/delphicb/tips/lib/databases-adsdfield.html Humberto Oliveira 2009/7/29 Leonardo Baldino portaldoinfe...@gmail.comportaldoinferno%40gmail.com portaldoinferno%40gmail.com alguem sabe como eu faço para criar campos num clientdataset em tempo de execução -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] Minha aplicação - AppE ngine - Teste
Funcionou normal comigo, tirou a foto bacaninha. 2009/7/7 Paulo Coutinho pa...@prsolucoes.com Claro que não é nada tão 'Ohhh que perfeito! que irado! que show', mas é uma aplicação usando alguns recursos do gwt com os recursos da appengine, apis do google e tudo mais. Tem muito mais coisa para mostrar, mas infelizmente o servidor da appengine me limita e não da pra usar coisas como o gwt-ext, devido a limitações do número de aruqivos e tudo mais. Meu objetivo depois desse é transformar meu ERP do php pro gwt com java+jpa, ai sim, ficará uma aplicação boa para vender para clientes maiores e que ja tem infra para java além de contar mais por ser 100% ajax com gwt. Se tiverem oportunidade deem uma olhada, é bem interessante o gwt, ainda vai sair em breve o gwt 2 que vai ficar melhor ainda. 2009/7/8 Moacir - GMail prism...@gmail.com prismars%40gmail.com: Boa !!! Parabens.. Paulo Coutinho escreveu: Olá a todos, Terminei a versão RC1 da minha aplicação na AppEngine com GWT, jQuery e Flash. Quem tiver webcam e puder testar por favor. http://brfotolog.appspot.com/ -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: SQL Count em Mais de um CAMPO!!!!
Você disse que dá erro, qual é o erro? 2009/5/28 rafaelpinto19 rafaelpint...@gmail.com Valeu Humberto, mas Da erro!! Meu Problema é o Seguinte... Preciso Preparar um relatório em que Apareça em um QRDBText o Total de Dias Trabalhados de Determinado Funcionário no Mês de Maio. E que a apareça TBm Todos Os dias(DATA_ENTRADA), Todos os Horários de Início de Expediente(HORA_ENTRADA) e Términos de Expediente(HORA_SAIDA). Eu NÂO SEI se é BOM usar o COUNT nessa Situação, Pois ainda não consegui fazer funcionar...Se Tiver Alguma Outra MAneira, eu vou Agradecer...Abaixo está o Código: procedure TFProcFunc.DBGrid1DblClick(Sender: TO ect); begin if ComboBox1.Text '' then begin if Query1.RecordCount 0 then begin FRelHsTRabFunc.Query1.Close; FRelHsTRabFunc.Query1.SQL.Clear; FRelHsTRabFunc.Query1.SQL.Add('Select CODIGO, NOME, DATA_ENTRADA, HORA_ENTRADA, HORA_SAIDA, OBS From PONTO where NOME ='''+Query1.fieldbyname('NOME').AsString+''' and extract(month from DATA_ENTRADA) = '''+ComboBox1.Text+''' Order by DATA_ENTRADA Desc'); FRelHsTRabFunc.Query1.Open; FRelHsTRabFunc.RelHrsTrbFunc.Preview; end; end else ShowMessage('Precisa Escolher um Mês de Referência!'); ComboBox1.SetFocus; end; Esse código funciona, mas sem mostrar o TOTAL de dias Trabalhados do Funcionário... Se tiver outra Alternativa sem precisar usar o COUNT, e se puder colcar exemplos, ficarei grato... Uso Delphi 7 e Interbase 6.5 com Metodologia IBX... Abraços... --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Humberto Oliveira holiveira.wordpr...@... escreveu Verificando se os campos de hora estão nulos não resolve? select Count(DATA_ENTRADA) As Dias from PONTO where (HORA_ENTRADA is not null or HORA_SAIDA is not null) se alguma das horas estiver nula, não aparecerá no seu resultado. Testa aí. 2009/5/28 rafaelpinto19 rafaelpint...@... Olá Galera, queria saber se é possível usa SQL COUNT em Mais de um campo??? E tbm como é que eu Faço para o SQL COUNT não considerar os registros que estão NULL??? Exemplo: Tenho 3 Campos na Tabela PONTO, Denomindos de DATA_ENTRADA, HORA_ENTRADA e HORA_SAIDA. DATA_ENTRADA HORA_ENTRADA HORA_SAIDA 28/05/2009 09:00 18:00 28/05/2009 09:00 18:09 28/05/2009 09:00 Null Eu Faço a Consulta para Verificar os Dias Trabalhados(DATA_ENTRADA registrada) de Determinado Funcionário no MÊS de MAIO com a Seguinte Linha de Comando: Query2.ADD('Select count (DATA_ENTRADA) as DIAS From PONTO where NOME='''+Query1.fieldbyname('NOME').asstring+''' and extract(month from DATA_ENTRADA) ='''+Edit4.text+''' order by DATA_ENTRADA Desc'); o Resultado sempre Retornará 3. Minha Dúvida é... Quero Saber se posso usar a clausula COUNT para consultar mais de um CAMPO e não Considerar o valor Null. Tendo como base o exemplo acima, ele teria que me retornar 2 e não 3, pois tem um HORA_SAIDA que está com valor NULL. Conseguiram entender...Abraços??? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Gerar Parcelas de um Contrato
Vandeir, sua idéia é bem bacana. A minha idéia é o seguinte: Tabelas: - Contratos id_contrato pk - Adendos id_adendo pk id_contrato fk data_incial data_final - Financeiro id_financeiro pk id_adendo fk valor recdesp (1 receita e -1 despesa) Conseguiu entender a idéia? 2009/5/28 vandeirr vande...@yahoo.com.br Para fazer nesse esquema de datainicial e data final por adendos seria, mas ou menos assim, a estruta das tabelas? tbcontratos id_contrato - Pk (restantes dos campos) tbadendos id_adendo - pk id_contrato - fk datainicial datafinal meses valoraluguel tbparcelas id_parcela - pk id_adendo - fk (restantes dos campos) e como no meu sistema terei pra cada parcela vários lançamentos de débitos e créditos, teria que ter mais uma tabela detalhe de: tbparcelas_item id_Item - pk id_parcela - fk (restante dos campos) Então, seria essa a forma certa de fazer os relacionamentos? a Tabela Contratos seria a Tabela Master, a tabela adendos detalhe da tabela contratos, a tabela parcela detalhe da tabela adendos e a tabela parcela item detalhe da tabela parcelas. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SQL Count em Mais de um CAMPO!!!!
Verificando se os campos de hora estão nulos não resolve? select Count(DATA_ENTRADA) As Dias from PONTO where (HORA_ENTRADA is not null or HORA_SAIDA is not null) se alguma das horas estiver nula, não aparecerá no seu resultado. Testa aí. 2009/5/28 rafaelpinto19 rafaelpint...@gmail.com Olá Galera, queria saber se é possível usa SQL COUNT em Mais de um campo??? E tbm como é que eu Faço para o SQL COUNT não considerar os registros que estão NULL??? Exemplo: Tenho 3 Campos na Tabela PONTO, Denomindos de DATA_ENTRADA, HORA_ENTRADA e HORA_SAIDA. DATA_ENTRADA HORA_ENTRADA HORA_SAIDA 28/05/2009 09:00 18:00 28/05/2009 09:00 18:09 28/05/2009 09:00 Null Eu Faço a Consulta para Verificar os Dias Trabalhados(DATA_ENTRADA registrada) de Determinado Funcionário no MÊS de MAIO com a Seguinte Linha de Comando: Query2.ADD('Select count (DATA_ENTRADA) as DIAS From PONTO where NOME='''+Query1.fieldbyname('NOME').asstring+''' and extract(month from DATA_ENTRADA) ='''+Edit4.text+''' order by DATA_ENTRADA Desc'); o Resultado sempre Retornará 3. Minha Dúvida é... Quero Saber se posso usar a clausula COUNT para consultar mais de um CAMPO e não Considerar o valor Null. Tendo como base o exemplo acima, ele teria que me retornar 2 e não 3, pois tem um HORA_SAIDA que está com valor NULL. Conseguiram entender...Abraços??? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi - código
Vixi... Cego em tiroteio? 2009/5/28 arca765 arca...@yahoo.com.br Criei um Form tamanho padrão. Acrescentei 2 cxs de texto lableadas\identificadas Usr\Psw (Usuário\Senha). Acresci 1 botão Ok. Assim que, o usuário preencher os 2 campos (Usr\Psw), e, clicar no botão Ok o que, é que, eu faço :? Onde eu digito o código fonte para poder 'trabalhar' com o nome do usuário, e, a senha :? Onde estão o Begin\End. do arquivo principal .pas :? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erro ao ler registros
Só debugando para ver o objeto, parâmetro, variável que está utilizando e que não existe no seu projeto. 2009/5/27 Felipe Milagres felipe_a_milag...@yahoo.com.br boa tarde galera .. estou com o seguinte erro no meu programa .. quando eu vou ver os outros registros cadastrados .. dá a seguinte mensagem de erro : list index out of bounds (1) tentei voltar o que ele era antes .. mas nao lembro qual alteração que eu fiz para dar esse erro ... __ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gerar Parcelas de um Contrato
Você utiliza a tabela de contratos para administrar as parcelas que ele gerou? Você não tem uma tabela de contratos (com os dados contratuais) e faz a geração do financeiro (em uma tabela de financeiro) separadamente ? Acho que o seu controle deveria ser um contrato com adendos de renovações, com data inicial e final, desta forma você controla as parcelas de cada adendo, ao invés de ficar seguindo as parcelas que foram geradas pelo contrato inicial, até porque não é o contrato inicial e sim um adendo de renovação. É assim que penso, mas se quiser continuar com este raciocínio, terá que mudar seu procedimento, para verificar se existe parcelas deste contrato, se existir, pega a quantidade de parcelas que existe, e vai incrementando no seu for aí. Compliquei ou descompliquei? Abraços. 2009/5/27 vandeirr vande...@yahoo.com.br Tenho uma tela de parcela onde tenho a opção para gerar determinada quantidade de parcela, como faço para gerá-las novamente a partir da última parcela gerada? Por exemplo, tenho 12 parcelas geradas, gostaria de continuar gerando da 13 para frente como faço? Na verdade da primeira vez gero as parcelas inicias do contrato, na segunda vez gostaria de gerar as parcelas para renovação do mesmo contrato, apenas acrescentando as novas parcelas na sequencia. estou usando esse código: procedure TForm1.Btn_IncluirClick(Sender: TObject); var i: Byte; begin //Abro o Banco ClientDataSet1.Open; //Chamo um procedimento para verificar se tem prestação pendente verificaparcela; // Minha variável no caso i inicialmente é 0 i:=0; // minha variável recebe 1 do numero de parcelas no caso o digitado dentro de edParcela.Text for i := 1 to StrToInt(edParcela.Text) do begin // verifico o numero é menor do que o da variavel if ClientDataSet1.RecordCount i then // se for insiro ClientDataSet1.Insert else //senao edito ClientDataSet1.Edit; //PARC vai receber o numero de parcelas que eu digitei ClientDataSet1.FieldByName(\'PARC\').Value := i; //VALOR vai receber o valor digitado dividido pelo numero de parcelas ClientDataSet1.FieldByName(\'VALOR\').Value :=(StrToFloat(edtValor.Text)/(StrToInt(edParcela.Text))); //DATA recebe a data replicando conforme o numero das parcelas ClientDataSet1.FieldByName(\'DATA\').Value:= incMonth( Date, i - 1); //Gravo no banco ClientDataSet1.Post; //vou para o próximo Next; end; //Dou um updade para gravar esse registro no banco lembre-se que quando //trabalho com clientDataSet eu trabalho em cachê é necessário dar um //ApplyUpdates(0) para gravar no banco o (0) significa o numero de erros //claro com certeza isso só vai acontecer se não tiver nenhum erro ok ClientDataSet1.ApplyUpdates(0); //Mando uma mensagem de texto showmessage(\'Arquivo incuido com sucesso\'); end; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erro ao ler registros
O debug é o melhor amigo do programador. 2009/5/27 Felipe Milagres felipe_a_milag...@yahoo.com.br humberto .. tive q fazer isso mesmo , olhar trem por trem .. valeu __ Att, Felipe Milagres --- Em qua, 27/5/09, Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com escreveu: De: Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com Assunto: Re: [delphi-br] erro ao ler registros Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 27 de Maio de 2009, 16:12 Só debugando para ver o objeto, parâmetro, variável que está utilizando e que não existe no seu projeto. 2009/5/27 Felipe Milagres felipe_a_milagres@ yahoo.com. br boa tarde galera .. estou com o seguinte erro no meu programa .. quando eu vou ver os outros registros cadastrados .. dá a seguinte mensagem de erro : list index out of bounds (1) tentei voltar o que ele era antes .. mas nao lembro qual alteração que eu fiz para dar esse erro ... _ _ _ _ _ _ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bug no Delphi com ComboBox
Realmente acontece o mesmo problema, estou utilizando Delphi 7. Mas olhando o Help, não sei se entendi bem. Em alguns style´s, o Delphi executa eventos de criação da lista na abertura e na recolha da mesma, e isso pode estar ocasionando a duplicidade no KeyPress. Posso estar enganado. Mas foi isso que percebi. Abraços. 2009/5/19 Marcelo Lucena - Yahoo marceloaluc...@yahoo.com.br Pessoal Façam um teste por favor, Coloque um ComboBox na Tela, mude o style dele para (csDropDownList, csOwnerDrawFixed ou csOwnerDrawVariable), coloque um ShowMessage no OnKeyPress do Form e perceba que ao clicar em uma tecla, ele executa o OnKeyPress duas vezes, alguém já teve este problema? Alguém sabe como resolver? Detalhe: Testei no Delphi 7, BDS 2006 e o Delphi 2009. Em todas estas versões ocorrem este erro. Abraços Marcelo Lucena [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conexao com a internet
Existe validação de proxy? 2009/5/15 Alexandre alexandresoare...@yahoo.com.br Pessoal estou usando a função InternetGetConnectedState para verificar se a máquina esta conectada à internet, em um cliente a função retorna que não esta conectado, mas ele esta conectado sim, alguem já passou por isso e sabe como solucionar?já tentei vários exemplos da internet mas não resolve. Alex __ Information from ESET NOD32 Antivirus, version of virus signature database 4079 (20090515) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como pegar o id autoincremento
Isso foi discutido aqui esses dias, se não me engano semana passada. Dá uma pesquisadinha no grupo. Se mesmo assim não encontrar, qual é o banco de dados? 2009/5/13 Mario Rodrigues marioirodrig...@gmail.com Srs, Tenho duas tbl's...venda e itens...com a seguinte estrutura: venda codvenda codcliente data valortotal...etc itens codvenda codproduto qtde vl_unitario...etc o codvenda da tbl venda é autoincrementocomo faço para q o codvenda da tbl venda vá para o codvenda da tbl itens...dei uma pesquisada no tio google mas acho q nao estou sabendo procurar...se alguem puder me ajudar..ou me mostrando como proceder..ou o q devo procurar...ja procurei capturar id(ou cod) autoincremento...pegar cod autoincremento...enfim ja misturei algumas palavras q acho eu serem convenientes..mas ate agora nao achei... []'s [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto fonte desarrumado no desktop?
Você trabalha com os fontes todos no Desktop? E o restante da pergunta eu me perdi, porque você tem que abrir o dpr, para depois ir abrindo os formulários agregados, você provavelmente está abrindo os formulários agregados para depois querer ver o dpr. Coisa maluca! 2009/5/13 nillgolv nillg...@bol.com.br Pessoal, esta pergunta parece boba, mas é que toda vez que abro um projeto fonte os forms estão todos desarrumados, faço uma melhora na área do desktop para trabalhar com o fonte, acontece que ao abrir o delphi novamente ele se encontra do jeito anterior, com o delphi minimizado. Gosto que abre com o form principal e aparece com o form.dpr, Porque isto? grato. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como pegar o id autoincremento
Qual o banco de dados? 2009/5/13 Paulo Coutinho pa...@prsolucoes.com Boa pergunta. Eu perguntei sobre isso usando o trio, cds, sds e dsp, mas acho que não houve resposta. Como pegar o ultimo ID via dbExpress? 2009/5/13 Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com Isso foi discutido aqui esses dias, se não me engano semana passada. Dá uma pesquisadinha no grupo. Se mesmo assim não encontrar, qual é o banco de dados? 2009/5/13 Mario Rodrigues marioirodrig...@gmail.commarioirodrigues%40gmail.com marioirodrigues%40gmail.com Srs, Tenho duas tbl's...venda e itens...com a seguinte estrutura: venda codvenda codcliente data valortotal...etc itens codvenda codproduto qtde vl_unitario...etc o codvenda da tbl venda é autoincrementocomo faço para q o codvenda da tbl venda vá para o codvenda da tbl itens...dei uma pesquisada no tio google mas acho q nao estou sabendo procurar...se alguem puder me ajudar..ou me mostrando como proceder..ou o q devo procurar...ja procurei capturar id(ou cod) autoincremento...pegar cod autoincremento...enfim ja misturei algumas palavras q acho eu serem convenientes..mas ate agora nao achei... []'s [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ComboBox
Se for diretão, é só pegar o valor de ComboBox1.Text e jogar na sua query de inserção no banco de dados. 2009/5/13 Sergio - Jundiaí / SP sergioinf...@yahoo.com.br Tem como pegar o valor lançado em uma combox e lançar no banco de dados. minha ideia e fazer um navegado com o historico do sites visitados. alguma ajuda agradeço [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como pegar o id autoincremento
Não precisa dizer mais nada. 2009/5/13 Daniel Sobrinho Laporte daniel.lapo...@gmail.com Pessoal, Se estiverem utilizando Mestre-detalhe não tem essa necessidade. A tabela filha automaticamente receberá o ID da tabela pai. Caso seja multicamadas deixe que o provider cuide de gerar o ID utilizando o BeforeUpdateRecord ;D []s Daniel. 2009/5/13 Mario Rodrigues marioirodrig...@gmail.commarioirodrigues%40gmail.com Bom..fiz uma coisa aqui q deu certo..mas gostaria de opiniao dos srs... Inseri um SimpleDataSet e fiz o seguinte: No botao Novo... SimpleDataSet1.Close; SimpleDataSet1.DataSet.CommandText:='select max(CODVENDA) as Maximo from PED_VENDA'; SimpleDataSet1.Open; dmVendas.cdsPedVendas.Append; dmVendas.cdsPedVendas.Edit; dmVendas.cdsPedVendasCODVENDA.AsInteger:=SimpleDataSet1Maximo.AsInteger+1; Deu tudo certinho...tudo uma maravilha..mas pergunto isso pode me trazer algum problema mais tarde?.. 2009/5/13 Mario Rodrigues marioirodrig...@gmail.commarioirodrigues%40gmail.com marioirodrigues%40gmail.com To usando o FireBird 2.1 e uso o trio sds, dsp, cds... D2007 2009/5/13 Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com Qual o banco de dados? 2009/5/13 Paulo Coutinho pa...@prsolucoes.compaulo%40prsolucoes.compaulo% 40prsolucoes.compaulo% 40prsolucoes.com Boa pergunta. Eu perguntei sobre isso usando o trio, cds, sds e dsp, mas acho que não houve resposta. Como pegar o ultimo ID via dbExpress? 2009/5/13 Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com Isso foi discutido aqui esses dias, se não me engano semana passada. Dá uma pesquisadinha no grupo. Se mesmo assim não encontrar, qual é o banco de dados? 2009/5/13 Mario Rodrigues marioirodrig...@gmail.commarioirodrigues%40gmail.com marioirodrigues%40gmail.com marioirodrigues%40gmail.com marioirodrigues%40gmail.com marioirodrigues%40gmail.com Srs, Tenho duas tbl's...venda e itens...com a seguinte estrutura: venda codvenda codcliente data valortotal...etc itens codvenda codproduto qtde vl_unitario...etc o codvenda da tbl venda é autoincrementocomo faço para q o codvenda da tbl venda vá para o codvenda da tbl itens...dei uma pesquisada no tio google mas acho q nao estou sabendo procurar...se alguem puder me ajudar..ou me mostrando como proceder..ou o q devo procurar...ja procurei capturar id(ou cod) autoincremento...pegar cod autoincremento...enfim ja misturei algumas palavras q acho eu serem convenientes..mas ate agora nao achei... []'s [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com paulo% 40prsolucoes.com paulo% 40prsolucoes.com paulo% 40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Daniel Sobrinho Laporte Analista de Sistemas e Desenvolvedor Delphi + Firebird. Colunista e Editor Técnico ClubeDelphi - DevMedia. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como fazer esta consulta
Acho que através de relatório e com uma consulta simples na sua tabela, você consegue ter esse resultado trabalhando corretamente as bandas dos facilitadores na criação de relatórios. Abraços. 2009/5/12 Arrobba Sistemas del...@arrobbasistemas.com.br Bom dia, Tenho a seguinte situação: Data Produtor Qtda 01/05/2009 001 250,0 05/05/2009 001 120,0 08/05/2009 001 300,0 01/05/2009 002 112,0 05/05/2009 002 125,0 08/05/2009 002 235,0 01/05/2009 003 50,0 03/05/2009 003 150,0 08/05/2009 003 75,0 01/05/2009 004 300,0 08/05/2009 004 280,0 Preciso montar uma consulta/relatório da seguinte maneira: Produtor 01/05/2009 03/05/2009 05/05/2009 08/05/2009 Total 001 250,0 0,0 120,0 300,0 670,0 002 112,0 0,0 125,0 235,0 472,0 003 50,0 150,0 0,0 75,0 275,0 004 300,0 0,0 0,0 280,0 580,0 -- Totais 712,0 150,0 245,0 890,0 1997,0 Como posso fazer isto, através de um SQL, uma procedure, uma view Ou usando uma tabela auxiliar. Alguém pode me dar uma ou mais dicas Antonio C. de M. Pires Arrobba Sistemas mailto:desenvolvime...@arrobbasistemas.com.brdesenvolvimento%40arrobbasistemas.com.br desenvolvime...@arrobbasistemas.com.brdesenvolvimento%40arrobbasistemas.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] cadastro Produto Fracionado
Utilize unidade alternativa. No cadastro do produto, adicione uma funcionalidade alocando a unidade principal de venda e a unidade alternativa. Desta forma, você no momento da venda, faz a devida conversão. Exemplo: Produto: Anador Unidade Principal: Caixa (1 caixa) Unidade Alternativa: Blister (divide por 24 blister´s) * Cadastre a tabela de preço para o produto com unidade principal. Quando informar o produto de venda Anador, você seta a tabela de preços com a unidade principal, se a pessoa escolher a unidade alternativa, você vai no cadastro do produto e faz a conversão, dividindo (neste caso) o preço da unidade principal pela unidade alternativa. Não tenho os fontes desta implementação, mas trabalhei com um ERP que faz a conversão desta forma. Uma vez implementado o algoritimo da unidade alternativa, nunca mais é necessário manutenção. Abraços. 2009/5/11 anderson ferreira dias andersondias2...@yahoo.com.br Boa tarde, preciso de um codigo para cadastrar um produto de faarmacia, e o progama dividir este produto uqnado eu vender uma unidade , por exemplo, uma caixa de 30 comprimidos, as eu vendo 4, e ele pega o valor dos 30 divide pelo valor total e multiplica pelos 4 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nao esta excluindo
Mario, a pergunta que você não respondeu foi a seguinte: O cdsDebitoCliente possui o field (campo) DEBITO no Fields Editor ? Dê um duplo clique no cdsDebitoCliente e verifique se os campos CLICODIGO, CLINOME e DEBITO estão no seu ClientDataSet. Provavelmente o cdsCadPagto possui os campos CLICODIGO, CODPAGTO, DTPAGTO, VALOR, CLINOME E DEBITO. Verifique isso. 2009/5/5 Mario Rodrigues marioirodrig...@gmail.com Humberto e Daniel, O meu cdsCadPagto o select dele é esse: select P.CLICODIGO, P.CODPAGTO, P.DTPAGTO, P.VALOR, CLI.CLINOME, CLI.DEBITO from PAGTO P INNER JOIN CLIENTE CLI ON CLI.CLICODIGO = P.CLICODIGO WHERE P.CODPAGTO =:CODPAGTO ja o cdsDebitoCliente tem o sql: select CLICODIGO, CLINOME, DEBITO from CLIENTE where CLICODIGO =:CLICODIGO O q ta me deixando doido...é q como ja disse uso esse mesmo procedimento no salvar...so q a acao é contraria.. ja revi...ja refiz...ja recriei os cds...enfim...iniciante sofre hehehehe...mas é assim mesmo...a onda é nao desistir... Daniel...como eu poderia fazer para para pegar o erro..nao consegui achar nada falando para o D2007.. Podes me ajudar? 2009/5/5 Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com É o que o nosso colega Daniel falou. Algum erro estava sendo retornado após o ApplyUpdates. O seu ClientDataSet possui o campo DEBITO? O Exception está alegando que não existe a coluna DEBITO no ClientDataSet. O problema pode estar aí. Provavelmente no salvar, o seu ClientDataSet possui o campo no qual você faz a sua aritmética. Verifique e nos posicione. 2009/5/5 Mario Rodrigues marioirodrig...@gmail.commarioirodrigues%40gmail.com marioirodrigues%40gmail.com Humberto, Coloquei oApplyUpdate apos o delete e deu o segunte erro: First chance exception at $7C812AEB. Exception class TDBXError with message 'Column unknown DEBITO At line 6, column 14'. depois esse: First chance exception at $7C812AEB. Exception class TDBXError with message 'Column unknown DEBITO At line 7, column 2'. depois First chance exception at $7C812AEB. Exception class EDatabaseError with message 'Unable to execute Query'. Uso o delphi 2007...clico em continuar...aparece as mensagens acima...e no final mostra a mensagem de excluido com sucesso...porem...quando clico em ok...os dados voltam(da pra ver o form atras em branco)... tb testei tirar as seguintes linhas //dtsCadPagto.DataSet.Close; //dtsCadPagto.DataSet.Open; dai so aparece a mensagem de excluido com sucesso...mas nao exclui o impressionante é q uso o mesmo codigo no salvar..so q ao inves de somar ele diminui!! 2009/5/5 Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com Já fez o teste colocando o ApplyUpdates após o Delete, ao invés de colocar no envento do seu ClientDataSet? Faz um teste e avisa aí. 2009/5/5 Mario Rodrigues marioirodrig...@gmail.commarioirodrigues%40gmail.com marioirodrigues%40gmail.com marioirodrigues%40gmail.com marioirodrigues%40gmail.com Alisson, Pois é...e é isso q esta sendo feito...alias o ApplyUpDates esta sendo feito no cdsCadPagtoAfterDelete e no cdsCadPagtoAfterPost da seguinte maneira...cdsCadPagto.ApplyUpdates(0); Veja só preciso somar o valor...e isso acontece...a unica coisa q nao acontece é o delete...q acho q esta certo...tens alguma ideia? 2009/5/5 Alisson alss...@yahoo.com.br alssnco%40yahoo.com.bralssnco% 40yahoo.com.bralssnco% 40yahoo.com.bralssnco% 40yahoo.com.bralssnco% 40yahoo.com.br Que coisa mais confusa! Quando você quer excluir um registro basta fazer: Dataset.Delete; Dataset.ApplyUpdates(0); __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ShowMessage('NAO FUNCIONA');
Uses Dialogs; Será que agora vai? 2009/5/6 wa...@oi.com.br Pessoal, vcs já me ajudaram antes, mas não estou me lembrando e estou longe do meu computador principal. Para que ShowMessage funcione em threads, for e whiles, tenho que colocar antes uma chamada de um método que não me lembro agora, Algo como Appication. não sei se é por ai. Me ajudem a refrescar a velha memória, Sds Roberto -- Na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, você pode ter contas ilimitadas de email com 1 giga cada uma, suporte grátis e muito mais. Baixe grátis o Discador Oi em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar alto na internet, assine Oi Internet Banda Larga e ganhe o modem grátis. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda SQL
É verdade... Se assim não funcionar, tá danado! Depois do comando do Gildenor, é que fui observar que ao invés do OR, coloquei um AND no critério da busca. Falha nossa! Abraços. 2009/5/6 Gildenor Teixeira gil_de...@ig.com.br Se assim nao resolver, ta danado!!! select PROCESSO from TABELA where (AUTOR = 'maria' OR AUTOR = 'jose') -- Gildenor Teixeira 2009/5/5 Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com leite romano, se o segundo select é o que mais aproxima da sua solução e ainda não está dando certo, é porque existe algo no valor do campo AUTOR que não está satisfazendo a condição. Passe mais detalhes. 2009/5/5 leite romano leite_rom...@yahoo.com.brleite_romano%40yahoo.com.br leite_romano%40yahoo.com.br oi Humberto, o segundo select que se aproxima mais do que eu preciso, mas mesmo assim não da certo pois não retornara nada. Obrigado pela atenção outros colegas aki da lista ja me deram uma luz, vou continuar tentando aki assim que tiver uma solução eu posto aki. --- Em ter, 5/5/09, Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com escreveu: De: Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com Assunto: Re: [delphi-br] ajuda SQL Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Data: Terça-feira, 5 de Maio de 2009, 14:48 select PROCESSO from TABELA where AUTOR in ('maria', 'jose') ou select PROCESSO from TABELA where (AUTOR = 'maria' and AUTOR = 'jose') Resolve seu problema? 2009/5/5 leite romano leite_romano@ yahoo.com. br criterio autor = 'maria' e 'jose' segue a tabela processo cliente autor 123 joao maria 123 joao jose 456 marcelo maria 456 marcelo jose 456 marcelo milton 789 jose maria teria que retornar apenas o processo 123 pois é o unico que tem como autor maria e jose somente. uso FB1.5 ibx. Delculpem pelo e-mail anterior bati no enter sem querer e enviou Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nao esta excluindo
Já fez o teste colocando o ApplyUpdates após o Delete, ao invés de colocar no envento do seu ClientDataSet? Faz um teste e avisa aí. 2009/5/5 Mario Rodrigues marioirodrig...@gmail.com Alisson, Pois é...e é isso q esta sendo feito...alias o ApplyUpDates esta sendo feito no cdsCadPagtoAfterDelete e no cdsCadPagtoAfterPost da seguinte maneira...cdsCadPagto.ApplyUpdates(0); Veja só preciso somar o valor...e isso acontece...a unica coisa q nao acontece é o delete...q acho q esta certo...tens alguma ideia? 2009/5/5 Alisson alss...@yahoo.com.br alssnco%40yahoo.com.br Que coisa mais confusa! Quando você quer excluir um registro basta fazer: Dataset.Delete; Dataset.ApplyUpdates(0); __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda SQL
select PROCESSO from TABELA where AUTOR in ('maria', 'jose') ou select PROCESSO from TABELA where (AUTOR = 'maria' and AUTOR = 'jose') Resolve seu problema? 2009/5/5 leite romano leite_rom...@yahoo.com.br criterio autor = 'maria' e 'jose' segue a tabela processo cliente autor 123 joao maria 123 joao jose 456 marcelo maria 456 marcelo jose 456 marcelo milton 789 josemaria teria que retornar apenas o processo 123 pois é o unico que tem como autor maria e jose somente. uso FB1.5 ibx. Delculpem pelo e-mail anterior bati no enter sem querer e enviou Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda SQL
leite romano, se o segundo select é o que mais aproxima da sua solução e ainda não está dando certo, é porque existe algo no valor do campo AUTOR que não está satisfazendo a condição. Passe mais detalhes. 2009/5/5 leite romano leite_rom...@yahoo.com.br oi Humberto, o segundo select que se aproxima mais do que eu preciso, mas mesmo assim não da certo pois não retornara nada. Obrigado pela atenção outros colegas aki da lista ja me deram uma luz, vou continuar tentando aki assim que tiver uma solução eu posto aki. --- Em ter, 5/5/09, Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com escreveu: De: Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com Assunto: Re: [delphi-br] ajuda SQL Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 5 de Maio de 2009, 14:48 select PROCESSO from TABELA where AUTOR in ('maria', 'jose') ou select PROCESSO from TABELA where (AUTOR = 'maria' and AUTOR = 'jose') Resolve seu problema? 2009/5/5 leite romano leite_romano@ yahoo.com. br criterio autor = 'maria' e 'jose' segue a tabela processo cliente autor 123 joao maria 123 joao jose 456 marcelo maria 456 marcelo jose 456 marcelo milton 789 jose maria teria que retornar apenas o processo 123 pois é o unico que tem como autor maria e jose somente. uso FB1.5 ibx. Delculpem pelo e-mail anterior bati no enter sem querer e enviou Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nao esta excluindo
É o que o nosso colega Daniel falou. Algum erro estava sendo retornado após o ApplyUpdates. O seu ClientDataSet possui o campo DEBITO? O Exception está alegando que não existe a coluna DEBITO no ClientDataSet. O problema pode estar aí. Provavelmente no salvar, o seu ClientDataSet possui o campo no qual você faz a sua aritmética. Verifique e nos posicione. 2009/5/5 Mario Rodrigues marioirodrig...@gmail.com Humberto, Coloquei oApplyUpdate apos o delete e deu o segunte erro: First chance exception at $7C812AEB. Exception class TDBXError with message 'Column unknown DEBITO At line 6, column 14'. depois esse: First chance exception at $7C812AEB. Exception class TDBXError with message 'Column unknown DEBITO At line 7, column 2'. depois First chance exception at $7C812AEB. Exception class EDatabaseError with message 'Unable to execute Query'. Uso o delphi 2007...clico em continuar...aparece as mensagens acima...e no final mostra a mensagem de excluido com sucesso...porem...quando clico em ok...os dados voltam(da pra ver o form atras em branco)... tb testei tirar as seguintes linhas //dtsCadPagto.DataSet.Close; //dtsCadPagto.DataSet.Open; dai so aparece a mensagem de excluido com sucesso...mas nao exclui o impressionante é q uso o mesmo codigo no salvar..so q ao inves de somar ele diminui!! 2009/5/5 Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com Já fez o teste colocando o ApplyUpdates após o Delete, ao invés de colocar no envento do seu ClientDataSet? Faz um teste e avisa aí. 2009/5/5 Mario Rodrigues marioirodrig...@gmail.commarioirodrigues%40gmail.com marioirodrigues%40gmail.com Alisson, Pois é...e é isso q esta sendo feito...alias o ApplyUpDates esta sendo feito no cdsCadPagtoAfterDelete e no cdsCadPagtoAfterPost da seguinte maneira...cdsCadPagto.ApplyUpdates(0); Veja só preciso somar o valor...e isso acontece...a unica coisa q nao acontece é o delete...q acho q esta certo...tens alguma ideia? 2009/5/5 Alisson alss...@yahoo.com.br alssnco%40yahoo.com.bralssnco% 40yahoo.com.bralssnco% 40yahoo.com.br Que coisa mais confusa! Quando você quer excluir um registro basta fazer: Dataset.Delete; Dataset.ApplyUpdates(0); __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ComboBox de 2 colunas
Desculpe o erro, mas InfoPower não é free. Abraços. 2009/4/29 Ricardo César Cardoso ricardo_engs...@yahoo.com.br Paulo, olhei bem superficialmente, mas acho que dá pra implementar o que vc quer extendendo o TComboBox nativo da VCL. Veja nesse link: http://www.swissdelphicenter.ch/torry/showcode.php?id=737 Abraço, Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 29/4/09, Paulo Coutinho pa...@prsolucoes.compaulo%40prsolucoes.com escreveu: Olá, Alguém sabe onde tem uma combobox freeware em que eu possa adicionar colunas que fiquem escondidas? Vou explicar: Eu quero preencher minha combo com N itens e cada item tem seu ID e esse ID tem que ficar escondido, somente o NOME do item pode aparecer. É tipo o que o DBLookUPComboBox faz, mas não quero deixar ligado a nenhum componente, vai ficar totalmente desconectado. -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ComboBox de 2 colunas
InfoPower tem o que deseja. 2009/4/29 Paulo Coutinho pa...@prsolucoes.com Olá, Alguém sabe onde tem uma combobox freeware em que eu possa adicionar colunas que fiquem escondidas? Vou explicar: Eu quero preencher minha combo com N itens e cada item tem seu ID e esse ID tem que ficar escondido, somente o NOME do item pode aparecer. É tipo o que o DBLookUPComboBox faz, mas não quero deixar ligado a nenhum componente, vai ficar totalmente desconectado. -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida Firebird
Isso está com cara de commit realizado no fechamento do aplicativo. Verifique como está o isolamento da transação que você executa nos seus aplicativos. 2009/4/29 Antonio Perruci aperr...@yahoo.com.br Quando inicializava o form não aparecia o registro. É que eu não tinha aplicado o filtro na inicialização do form. Agora no outro aplicativo, mesmo aplicando o filtro, continua não aparecendo. Ainda não descobrí o porque. O estranho é que se eu abrir o um Gerenciador de Dados como o IBManager e inserir um dado no aplicativo, nesse gerenciador também não aparece o registro de imediato mesmo aplicando o refresh. Mas o registro foi gravado. Fechando o aplicativo, aí sim aparece. Ainda não sei porque. Estou pesquisando. Se eu descobrir te passo --- Em ter, 28/4/09, Alisson alss...@yahoo.com.bralssnco%40yahoo.com.br escreveu: De: Alisson alss...@yahoo.com.br alssnco%40yahoo.com.br Assunto: Re: [delphi-br] Dúvida Firebird Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 28 de Abril de 2009, 17:05 Qual era o problema? Já tive um problema parecido e não consegui saber o que estava acontecendo. _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enquanto processa
try Screen.Cursor := crHourGlass; { gera o relatório } finally Screen.Cursor := crDefault; end; Isso não ajuda? 2009/4/28 Bruno Lepesqueur brunolbra...@yahoo.com.br Boa noite pessoal! Eu criei um botão que executa o relatório de clientes, mas até que o relatório carregue demora uns 50 segundos e às vezes dá impressão que o sistema travou! Tem como ele exibir uma lupa ou o percentual na tela enquanto o relatório estiver sendo processado? Dessa forma o usuário saberá que o relatório está terminando de ser concluído e aguardará numa boua! Obrigado! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida com MaskEdit
Qual erro? 2009/4/27 Eduardo Savoine eduardosavo...@yahoo.com.br Pessoal seguinte... Gostaria de saber se tem alguma maneira de tratar maskedit por exemplo Estou trabalhando com grupo/subgrupo no cadastro de Centro de Custo: Ex: NumeroCCusto = x.xx.xx.xxx Até ai tudo bem eu monto o maskedit: 0\.00\.00\.000;1; A questão é que quando eu desejar incluir somente o grupo do ccusto por exemplo Grupo 2 (sem itens/subitens) ele da a mensagem de erro. Como faço para resolver isso? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Diretiva de compilação
Já é um caminho... http://www.clubedainformatica.com.br/site/2004/01/18/diretivas-de-compilacao/ Qualquer dúvida posta aí. 2009/4/23 dangra2008 dangra2...@yahoo.com.br Como colocar uma diretiva de compilação na Uses de uma unit, exemplo: Uses --se for Delphi 7-- ToolEdit, CurrEdit --se for RAD Studio 2007-- rxToolEdit, rxCurrEdit Graça [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] Oracle compra Sun Micros ystems por US$ 7,4 bilhões
Que maravilha! Eu gostei... Apenas o pessoal do Java que não vai gostar muito. A depêndencia de SO para o pessoal que programa em Java pode vir a terminar. Mas pensando bem, uma coisa não tem nada a ver né? Cada segmento no seu quadrado. Abraços. 2009/4/20 Rubem Nascimento da Rocha djpardalro...@hotmail.com SÃO PAULO - A Oracle Corporation, empresa do setor de tecnologia da informação, anunciou nesta segunda-feira a compra da Sun Microsystems por quase US$ 7,4 bilhões. O acerto veio quase duas semanas depois de a IBM encerrar as conversas com a Sun. Livre de caixa e dívida, a operação é avaliada em US$ 5,6 bilhões. A Oracle oferecerá US$ 9,5 por título a cada acionista da Sun, o que representa uma valorização de 42% sobre o fechamento da última sexta-feira. A compra de Sun transforma o setor das tecnologias da informação. A Oracle será a única companhia que poderá desenhar um sistema integrado onde todas as peças casam e funcionam juntas, de modo que os clientes não terão que uni-las eles mesmos, assegurou o executivo-chefe da empresa, Larry Ellison, em comunicado. Já o presidente da Oracle, Safra Catz, afirmou que o acordo poderia fornecer ao lucro da companhia pelo menos US$ 0,15 por ação um ano após o fim da operação, o que transformaria a compra em uma transação mais rentável que as de BEA Systems, Peoplesoft e Siebel. A expectativa é que a compra acrescente US$ 1, 5 bilhão de lucro operacional no primeiro ano e mais de US$ 2 bilhões no segundo ano. Com a negociação, chega ao fim os 27 anos de independência na prestação de serviço da empresa sediada na Silicon Valley, na Califórnia, e dá a Oracle a linguagem de programação Java, utilizada para a criação de aplicativos de site e celulares. Fonte: http://ultimosegundo.ig.com.br/economia/2009/04/20/oracle+ira+comprar+sun+microsystems+5639980.html __ Novo Windows Live: Messenger 2009 e muito mais. Descubra! http://www.windowslive.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Copiar TTable para TClientDataSet
Juliano, você está criando o DataSet e o ClientDataSet na unha? Abraços. 2009/4/17 Juliano Silva - Yahoo smjjuli...@yahoo.com.br Pessoal Sempre que eu preciso copiar todos os dados de um TTable ou TQuery para um ClientDataSet, eu faço da seguinte maneira 1. Crio os Fields da origem (Table ou Query) nos ClientDataSet 2. Faço um Looping na Oritem (table ou query) e adicionando no ClientDataSet Bem, é assim que faço, tenho até uma função para fazer isso automaticamente, a questão é, poxa, será que eu preciso fazer isso, sabendo do poder do ClientDataSet? Será que não tem como fazer essa copia diretamente? Sem precisar fazer loopings, etc... ??? Marçal, Juliano MSN: smjuli...@hotmail.com smjuliano%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Copiar TTable para TClientDataSet
Botão direito do mouse no seu ClientDataSet Fields Editor não resolve? 2009/4/17 Juliano Silva - Yahoo smjjuli...@yahoo.com.br Tanto faz, mas nos meus casos, sempre tenho o ClientDataSet na tela, sem o Fields, os Fields são criados sempre com base no Dataset de Origem... Resumidamente, tenho a Origem dos dados na tela, quero transportar estes dados para um ClientDataSet que também está na tela. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Humberto Oliveira Enviada em: sexta-feira, 17 de abril de 2009 10:00 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Copiar TTable para TClientDataSet Juliano, você está criando o DataSet e o ClientDataSet na unha? Abraços. 2009/4/17 Juliano Silva - Yahoo smjjuli...@yahoo.com.brsmjjuliano%40yahoo.com.br mailto:smjjuliano%40yahoo.com.br smjjuliano%2540yahoo.com.br Pessoal Sempre que eu preciso copiar todos os dados de um TTable ou TQuery para um ClientDataSet, eu faço da seguinte maneira 1. Crio os Fields da origem (Table ou Query) nos ClientDataSet 2. Faço um Looping na Oritem (table ou query) e adicionando no ClientDataSet Bem, é assim que faço, tenho até uma função para fazer isso automaticamente, a questão é, poxa, será que eu preciso fazer isso, sabendo do poder do ClientDataSet? Será que não tem como fazer essa copia diretamente? Sem precisar fazer loopings, etc... ??? Marçal, Juliano MSN: smjuli...@hotmail.com smjuliano%40hotmail.com mailto: smjuliano%40hotmail.com smjuliano%2540hotmail.com smjuliano%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 4016 (20090417) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Copiar TTable para TClientDataSet
Então, por isso estou fazendo essas perguntas, porque fazendo estas ligações que você falou Jackson, ele consegue sem problemas. Infelizmente não consegui visualizar o que ele está fazendo. 2009/4/17 Jackson Gomes - ToolsComps jack...@toolsandcomps.com Tanto faz, mas nos meus casos, sempre tenho o ClientDataSet na tela, sem o Fields, os Fields são criados sempre com base no Dataset de Origem... Resumidamente, tenho a Origem dos dados na tela, quero transportar estes dados para um ClientDataSet que também está na tela. Não seria mais simples associar o Dataset a um DatasetProvider e o mesmo a um ClientDataset e depois dar um Open no CDS? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AJuda no Delphi
Moderadores, de novo esta mensagem? 2009/4/16 francisleisouza francisleiso...@yahoo.com.br Ola tudo bem tou com um problema eu tou criando um programa comercial no Delphi e chega numa certa parte que pede para colocar data e hora por extenso so que depois que eu coloco da um erro. Este erro Expected';'but found isto é depois que eu faço isto tudo EX: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls; type TFRMPrin = class(TForm) SBDataHora: TStatusBar; Timer1: TTimer; procedure Timer1Timer'(Sender: TObject); private { Private declarations } public { Public declarations } Function DataPorExtenso : String; end; var FRMPrin: TFRMPrin; Implementation {$R *.dfm} Function TFRMPrin.DataPorExtenso:String; const Meses :Array [1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio', 'Junho','Julho','Agosto','Setembro','Outubro', 'Novembro','Desembro'); Semana :Array [1..7] of String = ('Domingo','Segunda-Feira','Terça-Feira', 'Quarta-Feira','Quinta-Feira','Sexta-Feira', 'Sabado'); Var Dia,Mes,Ano,DiaSem:Word; begin DecodeDate(Date,Ano,Mes,Dia); DiaSem := DayOfWeeK(Date); Result := Semana[DiaSem] + ','+ IntToStr(Dia) + ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano); en{ TODO : ';' }d; Me ajuda por favor Grato Francislei [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvidas com Mensalidade!
Ué, você já se respondeu, aliás, talvez não. Esses cursos não possuem tempo de duração? Não possuem pacotes de valores para se matricular no curso? Através disso é possível gerar as parcelas que o cliente tem que pagar ao dono, e cada parcela possui uma data de vencimento, que posteriormente pode ser analisada de acordo com a data atual. Caso a parcela esteja com o valor de baixa e a data de baixa nulos, ou em branco, ou zerados (seja lá o que for), e já se passou a data de vencimento, a pessoa está inadimplente. Mais algum problema? 2009/4/16 Wagne®_Fix wagner_...@yahoo.com.br Olá pessoal bom dia... Estou desenvolvendo um sistema, que quando uma pessoa faz a matrícula gera a primeira parcela! Eu precisaria que todos os meses que entra automaticamente ele cria uma nova parcela, vocês tem alguma idéia de como eu posso fazer isso? Eu estava com a idéia de quando a pessoa paga o mes 04 na hora da baixa da mensalidade faço gerar o mês 05 e assim por diante... Mas e quando a pessoa ficar uns 3 meses sem pagar o Dono tem que saber quantos meses a pessoa está com dúvida em aberto.. Obrigado, Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como saber se uma string tem 1 apostrofo?
Vê se te ajuda: procedure TForm1.Button1Click(Sender: TObject); var vTexto: String; begin vTexto := 'Tromba d''água'; if (Pos(Chr(39),vTexto) 0) then ShowMessage('O texto [' + vTexto + '] possui apóstrofo') else ShowMessage('O texto [' + vTexto + '] NÃO possui apóstrofo'); end; 2009/4/16 Fellipe Henrique felli...@gmail.com Amigos, como faço pra saber se uma string tem um apostrofo? estou tentando if s[i] = then porem, esse: gera 2 apostrofos... e nao somente um... se eu fizer ''' dá erro de compilação... como proceder? Att. -- _ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft.com.br/blogs/fellipeh -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda
De novo? Já respondemos a solução disso aí 2009/4/15 francisleisouza francisleiso...@yahoo.com.br ola meu nome é Francislei eu tou criando um programa comercial em Delphi atraves de um livro Delphi5 e meu pc ta com o programa instalado Delphi6 e eu tou na parte que pede para colocar DataHora por Extenso e pede para colocar estas linguajem. Exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls; type TFRMPrin = class(TForm) SBDataHora: TStatusBar; Timer1: TTimer; procedure Timer1Timer'(Sender: TObject); private { Private declarations } public { Public declarations } Function DataPorExtenso : String; end; var FRMPrin: TFRMPrin; Implementation {$R *.dfm} Function TFRMPrin.DataPorExtenso:String; const Meses :Array [1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio', 'Junho','Julho','Agosto','Setembro','Outubro', 'Novembro','Desembro'); Semana :Array [1..7] of String = ('Domingo','Segunda-Feira','Terça-Feira', 'Quarta-Feira','Quinta-Feira','Sexta-Feira', 'Sabado'); Var Dia,Mes,Ano,DiaSem:Word; begin DecodeDate(Date,Ano,Mes,Dia); DiaSem := DayOfWeeK(Date); Result := Semana[DiaSem] + ','+ IntToStr(Dia) + ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano); end; E ta dando este Erro: Expected';'but found Me ajuda por Favor Meu E mail francisleiso...@yahoo.com.br Francisleisouza%40yahoo.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Compra myDAC
Receberam sua encomenda com número #265861406 e estão solicitando o número da sua inscrição MyDAC para renovação ou o e-mail utilizado na compra inicial da licença. Sacou? 2009/4/15 Bruno Lepesqueur brunolbra...@yahoo.com.br Bom pessoal, ta complicado pra mim porque já tem umas 2 semanas que eu comprei o myDAC e a compra tb já consta em meu cartão de crédito, mas eu não recebo o programa e nem a licença! Eu recebi um e-mail inglês no dia 02/04/09 e não sei se isso pode ser a licença pq o meu inglês é quase zero rs Se tiverem como me intruirem! O e-mail é o seguinte: Hello, We received your order #265861406 for 'MyDAC Professional Subscription single license'. Could you please specify your MyDAC license number you would to renew subscription for or email address used on the initial purchase. If you have any further questions please contact us at sa...@devart.comsales%40devart.com Devart Sales Team sa...@devart.com sales%40devart.com www.devart.com Já estou ficando louco pq o meu já inspirou e eu preciso passar o meu programa para o cliente! Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AJuda no Delphi
É, todo inicio é complicado! Está faltando um end. na última linha do seu código. Verifica aí. 2009/4/14 francisleisouza francisleiso...@yahoo.com.br Ola tudo bem sou novo aq e tou criando um programa comercial atravez de um mlivro Delphi5 e o meu programa e Delphi6 e na hora de colocar data e hora da uma mensagen de erro (Expected';'but found.)isto é depois de escrever isto tudo ai em baixo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls; type TFRMPrin = class(TForm) SBDataHora: TStatusBar; Timer1: TTimer; procedure Timer1Timer'(Sender: TObject); private { Private declarations } public { Public declarations } Function DataPorExtenso : String; end; var FRMPrin: TFRMPrin; Implementation {$R *.dfm} Function TFRMPrin.DataPorExtenso:String; const Meses :Array [1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio', 'Junho','Julho','Agosto','Setembro','Outubro', 'Novembro','Desembro'); Semana :Array [1..7] of String = ('Domingo','Segunda-Feira','Terça-Feira', 'Quarta-Feira','Quinta-Feira','Sexta-Feira', 'Sabado'); Var Dia,Mes,Ano,DiaSem:Word; begin DecodeDate(Date,Ano,Mes,Dia); DiaSem := DayOfWeeK(Date); Result := Semana[DiaSem] + ','+ IntToStr(Dia) + ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano); end; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campo Edit
lop criando um loop colocando os os cálculos que deseja fazer dentro e ir agregando aos edit´s. 2009/4/3 Luiz de Lima Lopes lui...@uol.com.br Pessoal Bom Dia Preciso fazer um tabela com varios edit's, e estou precisando fazer um loop para preenchimento dele mais não estou conseguindo.! Preciso fazer o calculo para o edit1, depois para o edit2, e assim sucessivamente ate o edit 100. Como Posso Fazer [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: conversion of a char data type to a datetime ( resolvido)
Imagina Alexsandro, estamos aí para isso. Mas como eu te falei em todos os post´s, alguma coisa estava errada no formato de data do seu servidor de produção. Aí tinha que ver no banco e tratar na aplicação. Mas tá valendo. 2009/3/26 Alexsandro a...@ig.com.br Bom dia Humberto, O problema foi resolvido, graças ao saudoso Juliano Kappesberg do forum mssql-l que participo. Ele citou que : Provavelmente sua conexao esta com a data setada para um formato incompativel com o que vc esta passando, tente setar o default language nas configurações do banco de dados ou coloque a instrução set language brazilian antes do select. ai eu coloquei assim : AdoqFeriados.SQL.Text := 'set language brazilian SELECT * FROM tb_Feriados WHERE data=' + Quot .. E funcionou filé Humberto, muito Obrigado veio... --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Humberto Oliveira holiveira.wordpr...@... escreveu Alexsandro, conseguiu debugar e verificar o que está passando para a variável sdata ? Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open e capture a query que ele está tentando executar, provavelmente a variável está gravando um valor incorreto. Faça o teste e nos apresente os detalhes. 2009/3/24 Alexsandro a...@... Bom dia pessoal, Eu estou fazendo uma pesquisa em uma adoquary para encontrar determinadas datas e esta dando esse erro quando execulto a quary: conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.. O código é esse : var resul tdatetime; sdata : string; begin AdoqFeriados.Close; AdoqFeriados.SQL.Clear; AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data='''+ sdata +; AdoqFeriados.Open; já tentei o : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + QuotedStr(DateToStr (resul)); outra tentativa tambem foi o : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + DateToStr (resul); Outra : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + QuotedStr (sdata); e nada ... Alguem pode me ajudar com isso ? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mudar senha de usuario.
Faz o controle em alguma tabela diferente do cadastro de usuários, e através disso, você pode até solicitar alteração de senhas pelos usuários de tempo em tempo. O meu controle de login possui várias validações, vou citar poucos exemplos: - Senha expira? Booleano - Alterar senha no primeiro login? Booleano - *Composição de senha*: Quantas letras maiúsculas? Quantos números? Quantos caracteres? Numérico E através destes controles, quando o usuário loga no sistema, eu verifico tudo isso e vou combinando os valores e verifico se está tudo sob controle e deixo logar, senão vou aplicando as mensagens necessárias em cada resposta dos controles. A implementação disso não é complicada, é só a forma de fazer. E existem inúmeras formas de trabalhar isso. Dei apenas uma idéia de como iniciar. 2009/3/26 Vinicius da Silva Pinto vinic...@cnen.gov.br Boa tarde a todos... Gostaria de saber se é possivel alterar a senha de cada usuário via programação. Cadastrei uns 20 usuarios para o sistema e coloquei a senha teste pra todo mundo. Queria, assim que o usuário entrasse pela primeira vez com esta senha, eu pedisse para trocar. Eu consigo pegar o nome do usuario atravez da coluna CURRENT_USER, mais não consigo pegar a senha. Alguem pode me dar uma ajuda... Obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: conversion of a char data type to a datetime data type resulted in an
Eu entendi bem? Com a captura do ShowMessage(SQL.Text) e jogando no Query Analyzer conectado no banco de produção ocorre erro de conversão? Se for isso, seu banco de dados está com um formato diferente de data do banco de desenvolvimento. 2009/3/24 Alexsandro a...@ig.com.br Opa; Olha no banco de teste ele roda normal sem erros, com as datas correta. já no banco de produção ele me retorna o erro, porem com a data do comando show... correta tambem. --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Humberto Oliveira holiveira.wordpr...@... escreveu Correto, ele te retorna '31/03/2009'. Você capturou o SQL.Text da query após a passagem do parâmetro? Rodou o resultado no Query Analyzer conectado na base de desenvolvimento e produção? Isso tá com cara de formato de data enviado para o seu servidor de produção. Faz um teste aí rodando o resultado do SQL.Text e rode no Query Analyzer do banco de produção, veja se ocorre erro. 2009/3/24 Alexsandro a...@... Opa Humberto, Ele me traz o valor correto 31/03/2009 O interessante de tudo é que, aqui na minha máquina ele funciona blz. Ou seja quando eu uso o banco de dados de testes da minha máquina fica blz, agora quanto eu uso o banco de dados do Servidor.. da esse erro. Uso SQL Server 2003 --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br, Humberto Oliveira holiveira.wordpress@ escreveu Alexsandro, conseguiu debugar e verificar o que está passando para a variável sdata ? Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open e capture a query que ele está tentando executar, provavelmente a variável está gravando um valor incorreto. Faça o teste e nos apresente os detalhes. 2009/3/24 Alexsandro aq.s@ Bom dia pessoal, Eu estou fazendo uma pesquisa em uma adoquary para encontrar determinadas datas e esta dando esse erro quando execulto a quary: conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.. O código é esse : var resul tdatetime; sdata : string; begin AdoqFeriados.Close; AdoqFeriados.SQL.Clear; AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data='''+ sdata +; AdoqFeriados.Open; já tentei o : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + QuotedStr(DateToStr (resul)); outra tentativa tambem foi o : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + DateToStr (resul); Outra : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + QuotedStr (sdata); e nada ... Alguem pode me ajudar com isso ? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off Topic - Planejando bem, Evitando os Jacarés
Realmente muito interessante, lí ele pela manhã e tirei várias conclusões do meu trabalho diário. 2009/3/23 Walter Chagas (Bol) wchag...@bol.com.br Muito interessante este texto. Repassei ele pra outras listas que tratam deste tipo de assunto []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Emanuel Coutinho To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, March 23, 2009 12:48 PM Subject: [delphi-br] Off Topic - Planejando bem, Evitando os Jacarés Colegas. É do conhecimento da maioria que embora seja desenvolvedor, atuo diretamente em empresa de engenharia, e mais especificamene no setor de planejamento. Assim, por fazer parte de um grupo de planejadores, recebi esta mensagem, que reputo de grande importãncia, e desejo compartilhar com os colegas, para que agregue valor ao nosso dia a dia. Cuidado com o jacaré! Inspirado na aula do professor Larry Greiner, da Universidade do Sul da Califórnia. Se você tem um jacaré a lhe morder a perna, a tendência é esquecer que sua tarefa principal que era drenar o pântano. Nessa hora a sobrevivência fala mais alto. Você entra no pântano, cheio de vontade de executar a tarefa de drená-lo. Aí, o jacaré morde a sua perna. E você vai querer matar o jacaré, claro. O pântano que espere. O jacaré desta história é o nosso dia-a-dia. É a rotina que lhe ataca de manhã e que impede que você faça todas as tarefas que planejou para o dia. E ao final, exausto, você olha a pilha de jacarés mortos e é cobrado, pelo seu chefe, pelo pântano que não drenou. Saber enfrentar a rotina é uma tarefa fundamental para quem quer ter alta performance. Evitar o jacaré é planejar melhor, é testar todas as hipóteses, é prever os desvios e inconsistências. O jacaré detesta planejamento. Ele anda pela empresa com sua casca grossa, rabo comprido e braços curtos dizendo que planejamento não serve para nada, que nunca dá certo, que é um jogo de adivinhação. Tudo mentira. O jacaré morre de medo do planejamento, que, quando bem-feito, é um exercício de previsibilidade. E que não é feito para dar certo, mas sim para testar antecipadamente todas as hipóteses.. Olhe bem a sua volta. Os jacarés estão por todos os lugares, com sua fala mansa e andar desengonçado. E, se você bobear, um deles ataca: Cadê a cópia do relatório A45 que você ficou de me mandar?: Pronto, ele mordeu sua perna! Agora vai ter de matar este... e lá se vão quase duas horas do dia. Fique atento. Planeje e priorize as atividades do seu dia. Exercite o planejamento, pratique o exercício da previsibilidade, ou você vai se tornar um especialista em matar jacarés. E o duro desta vida é que o reconhecimento, as oportunidades e as recompensas só virão para os que drenarem o pântano. Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Caracteres estranhos
Mas o arquivo que baixou é referente a que? Cuidado com o que anda baixando na internet, pode lhe trazer sérios transtornos... 2009/3/24 Rogerio Nazar rogeri...@petrobras.com.br Caros, Baixei um arquivo em site na internet, e ele veio comuns caracteres estranhos, alguem podia me ajudar como faço para tornar legível o texto Exemplo do texto: Modbus ͨÐÅÐÒéÒ³Â룬1/10 Modbus ͨÐÅÐÒé ¹¤Òµ¿ØÖÆÒÑ´Óµ¥»ú¿ØÖÆ×ßÏò¼¯Öмà¿Ø¡¢¼¯É¢¿ØÖÆ£¬Èç½ñÒѽøÈëÍøÂçʱ´ú£¬¹¤Òµ¿ØÖÆÆ÷Á¬ÍøÒ² ΪÍøÂç¹ÜÀíÌṩÁË·½±ã¡£Modbus ¾ÍÊǹ¤Òµ¿ØÖÆÆ÷µÄÍøÂçÐÒéÖеÄÒ»ÖÖ¡£ Ò»¡¢Modbus ÐÒé¼ò½éModbus ÐÒéÊÇÓ¦ÓÃÓÚµç×Ó¿ØÖÆÆ÷ÉϵÄÒ»ÖÖͨÓÃÓïÑÔ¡£Í¨¹ý´ËÐÒ飬¿ØÖÆÆ÷ Ï໥֮¼ä¡¢¿ØÖÆÆ÷¾ÓÉÍøÂ磨ÀýÈçÒÔÌ«Íø£©ºÍÆäËüÉ豸֮¼ä¿ÉÒÔͨÐÅ¡£ËüÒѾ³ÉΪһͨÓù¤Òµ±ê Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] conversion of a char data type to a datetime data type resulted in an
Alexsandro, conseguiu debugar e verificar o que está passando para a variável sdata ? Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open e capture a query que ele está tentando executar, provavelmente a variável está gravando um valor incorreto. Faça o teste e nos apresente os detalhes. 2009/3/24 Alexsandro a...@ig.com.br Bom dia pessoal, Eu estou fazendo uma pesquisa em uma adoquary para encontrar determinadas datas e esta dando esse erro quando execulto a quary: conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.. O código é esse : var resul tdatetime; sdata : string; begin AdoqFeriados.Close; AdoqFeriados.SQL.Clear; AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data='''+ sdata +; AdoqFeriados.Open; já tentei o : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + QuotedStr(DateToStr (resul)); outra tentativa tambem foi o : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + DateToStr (resul); Outra : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + QuotedStr (sdata); e nada ... Alguem pode me ajudar com isso ? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] maiuscula em todos os dedits
É verdade, existe um espaço na palavra Components... Mas na minha opinião, seria melhor o CharCase como o Rodnei explicou acima. 2009/3/24 Emanuel Coutinho emanuelcouti...@yahoo.com.br frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j] Retire-o for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: felipe govoni govoni.fel...@gmail.com govoni.felipe%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 24 de Março de 2009 11:17:32 Assunto: [delphi-br] maiuscula em todos os dedits bom dia algume sabe me dize oq tem de errado nesse codigo: for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem: expression illegal in evaluator tentei faze um teste com o seguinte codigo e tambem nao fez nada for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste'; alguem pode me ajuda? obrigado -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com. br [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: conversion of a char data type to a datetime data type resulted in an
Correto, ele te retorna '31/03/2009'. Você capturou o SQL.Text da query após a passagem do parâmetro? Rodou o resultado no Query Analyzer conectado na base de desenvolvimento e produção? Isso tá com cara de formato de data enviado para o seu servidor de produção. Faz um teste aí rodando o resultado do SQL.Text e rode no Query Analyzer do banco de produção, veja se ocorre erro. 2009/3/24 Alexsandro a...@ig.com.br Opa Humberto, Ele me traz o valor correto 31/03/2009 O interessante de tudo é que, aqui na minha máquina ele funciona blz. Ou seja quando eu uso o banco de dados de testes da minha máquina fica blz, agora quanto eu uso o banco de dados do Servidor.. da esse erro. Uso SQL Server 2003 --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Humberto Oliveira holiveira.wordpr...@... escreveu Alexsandro, conseguiu debugar e verificar o que está passando para a variável sdata ? Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open e capture a query que ele está tentando executar, provavelmente a variável está gravando um valor incorreto. Faça o teste e nos apresente os detalhes. 2009/3/24 Alexsandro a...@... Bom dia pessoal, Eu estou fazendo uma pesquisa em uma adoquary para encontrar determinadas datas e esta dando esse erro quando execulto a quary: conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.. O código é esse : var resul tdatetime; sdata : string; begin AdoqFeriados.Close; AdoqFeriados.SQL.Clear; AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data='''+ sdata +; AdoqFeriados.Open; já tentei o : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + QuotedStr(DateToStr (resul)); outra tentativa tambem foi o : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + DateToStr (resul); Outra : AdoqFeriados.SQL.Text := 'SELECT * FROM tb_Feriados WHERE data=' + QuotedStr (sdata); e nada ... Alguem pode me ajudar com isso ? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] maiuscula em todos os dedits
O detalhe que questionei é ao invés de setar UpperCase em todos os DBEdits, utilizar a propriedade CharCase, mas fazendo o for do jeito que ele estava fazendo, mas ao invés de usar a propriedade Text, já setava o CharCase. Mas ele já resolveu, está tudo em casa. 2009/3/24 Emanuel Coutinho emanuelcouti...@yahoo.com.br Concordo contigo, mas o código dele está quase pronto, e não sei quantos componentes ele terá de fazer mudar na mão grande... assim, automatizando é mais rápido para resolver... então dei foco a ajudar o erro do código... No meu caso, quando formato minhas telas, sempre uso as propriedades tipo CharCase, quando necessito disso, mas como ele não tinah feito... Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo estando em um pagecontrol... caramba... muito trabalho... mas se apagar o errinho no código... voilá... dois palitos!!! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Humberto Oliveira holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 24 de Março de 2009 12:55:52 Assunto: Re: [delphi-br] maiuscula em todos os dedits É verdade, existe um espaço na palavra Components ... Mas na minha opinião, seria melhor o CharCase como o Rodnei explicou acima. 2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j] Retire-o for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; Sds, _ Emanuel Coutinho Salvador-Ba- Brasil _ _ __ De: felipe govoni govoni.felipe@ gmail.com govoni.felipe% 40gmail.com Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Enviadas: Terça-feira, 24 de Março de 2009 11:17:32 Assunto: [delphi-br] maiuscula em todos os dedits bom dia algume sabe me dize oq tem de errado nesse codigo: for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem: expression illegal in evaluator tentei faze um teste com o seguinte codigo e tambem nao fez nada for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste'; alguem pode me ajuda? obrigado -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com. br [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SPED Contábil
Rodrigo, tudo beleza? Estou terminando a homologação desse tal SPED, o que você precisa? Abraços. 2009/2/20 Rodrigo Ribeiro dbconsulto...@gmail.com Algum desenvolvedor implementou o SPED Contábil? Se alguém realizou este desenvolvimento com sucesso, por favor entre em contato comigo. Grato -- Rodrigo Ribeiro Gonçalves =Analista de Sistemas= Fone: (48) 9991-0020 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi e Firebird
Rafig, se você não instalar o Firebird na máquina do seu cliente, sem chances de funcionar. O detalhe de ter o driver do banco de dados na máquina, é somente para comunicação de componentes que você utiliza e o próprio Firebird. Agora me explica uma coisa. Você tem o banco de dados na sua máquina de desenvolvimento, com tabelas, campos, índices, procedures, trigger´s e tudo mais, e como quer que seu sistema funcione sem todos estes objetos na máquina do seu cliente? Se foi isso que eu entendi, não tem como funcionar. 2009/2/5 Rubem rafi...@yahoo.com.br Prezado Evandro, Muito obrigado pela sua atenção. Mas o problema é que eu não gostaria de instalar o o firebird no computador de meu cliente, preciso colocar lá somente o necessário. Rafig --- Em ter, 3/2/09, Evandro Siqueira vans...@gmail.comvansiqq%40gmail.com escreveu: De: Evandro Siqueira vans...@gmail.com vansiqq%40gmail.com Assunto: Re: [delphi-br] Delphi e Firebird Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 3 de Fevereiro de 2009, 9:08 Se tem certeza absoluta de que não vai ser utilizado em rede, solução mais prática nesse caso seria a instalação do firebird embeded. rafig38 escreveu: Prezados, Alguém poderia explicar o seguinte: Quando eu crio um BD com o Firebird e para acessar este meu BD com o Delphi eu preciso instalar todo o firebird no computador do meu cliente? Não é uma aplicação que funcionará em rede. Mas mesmo que fosse eu precisaria instalar o firebird full? ou somente a instalação mínima ( aquela que instalamos nas máquinas client quando usamos um banco que funcionará numa rede para 1 server e 2 ou mais clientes)? Disseram-me que eu só teria de instalar o driver do BD, mas qual driver é este? E se eu resolvesse não usar o Firebird, mas o MySQL, seria a mesma coisa? Sds., Rafig -- []'s. Evandro Siqueira Programador de Sistemas L'essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Indicação de software
Olá, tudo bem? Entre em contato com a Sankhya. Ela possui escritório em BH, porém é de Uberlândia, é uma empresa bem conceituada no mercado e possui uma grande ferramenta. Vale a pena conferir. www.sankhya.com.br Trabalhei como consultor nesta empresa durante 3 anos e posso garantir que é uma das melhores do Brasil. Abraços. 2009/1/8 Alisson alss...@yahoo.com.br Alguém pode indicar um bom software para comércio? Trabalho em uma associação de lojas de auto-peças em Belo Horizonte, e o pessoal está precisando de software que atenda ao setor, esteja em conformidade com todas as exigências legais e seja homologado. O software precisa controlar vendas, contas a pagar e a receber, caixa, entradas de produtos, pedidos de compra, entregas, ordem de serviços. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Localizar
Acho que você deveria começar pela normalização das suas tabelas, você poderia ter apenas uma tabela contendo informações de pessoas físicas e jurídicas, utilizando-se apenas de um flag. Desta forma, é tranquilo você fazer a pesquisa (locate) em uma tabela só, sem se importar com o tipo da pessoa. 2008/12/19 Alisson alss...@yahoo.com.br Você deve usar o Locate mesmo! Por que não dá certo? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com DBNavigator
Pessoal, boa noite! Tenho um formulário [FrmPrincipal] que possui um navegador [DBNavigator1], e gostaria de ligar esse navegador à uma tela que é aberta em forma de MDIChild. O formulário Child tem o nome FrmUsuarios, e gostaria que no momento da ativação do formulário FrmUsuarios, o navegador do formulário principal setasse o DataSource (DtSingle) do FrmUsuarios para do DataSource do DBNavigator1 do FrmPrincipal, porém o Delphi aborta dizendo que é não é acessível o valor de FrmUsuarios.DtSingle. O que estou fazendo: procedure TFrmUsuarios.FormActivate(Sender: TObject); begin if FrmPrincipal.DBNavigator1.DataSource = nil then FrmPrincipal.DBNavigator1.DataSource := DtSingle; end; Lembrando que não existe nenhum DataSource informado no FrmPrincipal.DBNavigator. Alguém pode me dar uma luz, dica, solução? Agradeço a atenção de todos. Humberto [As partes desta mensagem que não continham texto foram removidas]