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: [Bulk] Re: [delphi-br] Ajuda...Atualiza ção de Software
Em 10/02/2010 15:36, Walter Chagas (Bol) escreveu: Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. Desenvolvi 3 programinhas para esse feito: 1 - o primeiro programa q fica no meu computador faz a compactacao do arquivo executavel e de um arquivo texto contendo as instruções sql de atualizacao do banco de dados. Ao compactar esses arquivos ele gera um numero ex: controle-23564.bck, controle e o nome do sistema envolvido e o numero seria a data de criacao do executavel; 2 - o segundo sistema fica no meu computador tambem... seria o servidor, esperando conexao dos clientes atraves de socket; 3 - o terceiro programa fica nos meus clientes, ao executa-lo atravez desse atualizador este manda para o servidor a data de criacao do executavel do cliente, o servidor recebe essas informações e procura o numero superior ao recebido, e envia ao cliente o arquivo atualizado; Ao receber esse arquivo ele descompacta o mesmo substitui o executavel antigo pelo novo em seguida abre o arquivo texto e executa as instruçoes sql de atualização do banco de dados caso o sistema do cliente for antigo e ir atualizando ate chegar a versão mais nova _._,___ [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] Re: [delphi-br] Capturar Imagem da WebCam
faça assim tscap321.SaveAsBMP := 'C:\'+ datamodule1.table1.fieldbyname('nome').asstring + '.bmp' ; Em 12/02/2010 14:42, nillgolv escreveu: Usando o exemplo do componente tscap32, no evento onclick do botão capturar foto da webcam está assim: tscap321.SaveAsBMP := 'C:\test.bmp'; Pergunto como fazer para que ao clicar em capturar a foto, esta foto receba o nome correspondente ao nome que foi editado no campo nome do registro. Tipo assim: CADASTRO DE CLIENTES --- Nome: Fulano de tal Cidade: Telefone: Que ao capturar a foto, a mesma seja salva como: Fulano de tal.jpg ou Fulano de tal.bmp Em 11/02/2010 15:40, Nazareno Neto nazareno.nobr...@gmail.com mailto:nazareno.nobrega%40gmail.com escreveu: eu consegui instalar ele no delphi 2009 uma vez, caso der problema na instalação, é só vc converter as variáveis que ele ta reclamando. quando for instalar, manda os erros que der pra min, que se eu souber a solução te falo a correção Em 11 de fevereiro de 2010 14:13, Iran Lima escreveu: Eu achei ele aqui tscap32 mas acho que só funciona no Delphi 7. Valeu a ajuda cara. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Nazareno Neto Enviada em: quarta-feira, 10 de fevereiro de 2010 14:29 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Capturar Imagem da WebCam a algum tempo atras eu usei o tsCap acho q é, se tiver ele por aqui depois te passo... o q posso adiantar é q vc vai encontrar ele la no sourceforge. flw Em 10 de fevereiro de 2010 09:57, Iran Lima escreveu: Alguém poderia me dar uma dica de um componente FREE para capturar imagem da webcam?? Grato Iran [As partes desta mensagem que não continham texto foram removidas] -- Nazareno Neto Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br http://www.delphisistemas.com.br nazarenon...@hotmail.com mailto:nazarenoneto%40hotmail.com nazareno.nobr...@gmail.com mailto:nazareno.nobrega%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Nazareno Neto Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br http://www.delphisistemas.com.br nazarenon...@hotmail.com mailto:nazarenoneto%40hotmail.com nazareno.nobr...@gmail.com mailto:nazareno.nobrega%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Tem como incluir um TPanel em um Form descendente, sem ter que ir um a um?
nao sei se entedi muito bem, mas dessa forma vc joga o form2 para dentro do seu panel: with form2 do begin align := alclient; parent := panel8; borderstyle := bssingle; visible := true; SHOW; end; Boa tarde; Voce pode implementar no OnCreate/DoShow do seu form TFormBasico um procedimento que faz um loop em todos os seus componentes visuais, defindo a propriedade Parent deles para apontarem para este panel. _,___ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Thread e ClientSocket1
Em 09/01/2010 23:55, klanp...@hotmail.com escreveu: Como é seu sistema humberto ? desculpa a demora... o sistema trabalha +/- assim Todos os eventos estao ligados ao ONClientRead. exemplo: procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); VAR MSG : STRING; begin MSG := SOCKET.ReceiveText; if pos('ARQ!',MSG) = 1 THEN begin Tratamento(Socket); end; end; procedure Tform1.Tratamento( Socket: TCustomWinSocket); begin socket.sendtext := 'Preparado para receber o arquivo'. end; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Como faço um SELECT s e existe registro na tabela?
DATAMODULE1.SQLDataSet1.Close; DATAMODULE1.SQLDataSet1.CommandText := 'SELECT * FROM MINHATABELA'; DATAMODULE1.SQLDataSet1.Open; IF DATAMODULE1.SQLDataSet1.ISEMPTY THEN SHOWMESSAGE('NAO A NADA') [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SQL
Em 19/01/2010 18:48, dionatanhenrique escreveu: select GRUPO, ATIVIDADE, ESTADO, SUM(VALOR) from TESTE GROUP BY GRUPO, ATIVIDADE, ESTADO select GRUPO, ATIVIDADE, ESTADO, SUM(VALOR) from TESTE WHERE ATIVIDADE = 'I' AND ESTADO = 'V' GROUP BY GRUPO, ATIVIDADE, ESTADO
Re: [delphi-br] Problema ao formatar
uses db TfloatField(cds1.FieldByName('VALOR')).DisplayFormat := '#,##0.00';
Re: [delphi-br] Thread e ClientSocket1
Vou ficar te devendo com thread, mas o sistema de atualizacao que desenvolvi ele faz simultaneamente todos juntos sem thread. klanp...@hotmail.com escreveu: Basicamente sim, mas não um chat qualquer é um chat dinâmico que trabalha com Socket + Thread. Veja em um chat comum digamos que tenha 200 pessoas conectado e você envia uma mensagem, você terá que esperar o socket tratar todos os demais pedidos antes de vc ser atendido. Usando Thread você não fica em uma fila, passa a ser atendido individualmente, atendido por um socket criado em tempo de execução e esse socket pertence somente a você o problema é se o Cliente 1, Socket 1 quiser falar com o Cliente 2, Socket 2 ? Saberia como faze-lo usando Thread? -- From: humberto sales de oliveira humberto_...@yahoo.com.br Sent: Friday, January 08, 2010 8:55 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Thread e ClientSocket1 vc quer um chat e isso? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informação do ESET NOD32 Antivirus, versão da vacina 4755 (20100108) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Informação do ESET NOD32 Antivirus, versão da vacina 4755 (20100108) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com
Re: [delphi-br] mesma coluna do dbgrid para tabelas diferentes
faça da seguinte forma select case when a.fantasia is null then {se o nome de fantasia for nulo ele pegara o nome do cliente senao pega o Fantasia} a.NOME else a.fantasia end as NomeJuntos, a.NOME,a.FANTASIA from clientes a
Re: [delphi-br] Thread e ClientSocket1
vc quer um chat e isso?
Re: [delphi-br] radiogroup
Francisco escreveu: ola pessoal como poderia fazer pra colocar a escolha de uma opção de um radiogroup ea coloca-lo num edit? Onclick do Radiogroup: edit1.text := radiogroup1.items.strings[radiogroup1.itemindex]
Re: [delphi-br] Conversão de expressão
coloque um edite com sua operacao, em um button insira o seguinte codigo: var operacao : array[0..10] of double; operador : array[0..10] of char; x,z,z1 : integer; vr,s : string; begin for x := 0 to 10 do begin operacao[x] := 0; operador[x] := #0; end; vr := ''; s := edit1.text; if copy(s,length(s),1) ' ' then s := s + ' '; z := 0; z1 := 0; for x := 1 to length(s) do begin case s[x] of '(' : continue; ')',' ' : begin if (vr '') then begin operacao[z] := strtofloat(vr); inc(z,1); end; vr := ''; end; '0'..'9' : vr := vr + s[x]; '+','-','*','/' : begin operador[z1] := s[x]; inc(z1); end; end; end; for x := 0 to 10 do begin case operador[x] of '+' : operacao[0] := operacao[0] + operacao[x+1]; '-' : operacao[0] := operacao[0] - operacao[x+1]; '/' : operacao[0] := operacao[0] / operacao[x+1]; '*' : operacao[0] := operacao[0] * operacao[x+1]; end; end; showmessage(floattostr(operacao[0])); end; Pessoal, tenho uma string montada e preciso converte-la para um valor numerico de forma que o cálculo seja realizado. Ex: (100 + 20) / 4 Na verdade preciso que isso me retorne uma variavel com o valor= 30. Alguem ja fez algo parecido ?
Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
Alisson te aconselho criar um banco de dados com a estrutura correta (como vc quer) e em seguida transferir os dados usando um programa para a transferencia, ou vc cria uma ta tabela paralela com os dados corretos... transfere os dados para a nova tabela apaga antiga Alisson Yahoo escreveu: Mas e se os campos já existirem? Eu vou ter que trocar um a um via código?
Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
declare dessa forma ALTER TABLE ESTOQUE ADD DESCRICAO Varchar(60) COLLATE WIN_PTBR; Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird sem fazer a distinção entre palavras acentuadas e não acentuadas, entre maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a consulta trará registros que contém joão, joao, JOÃO e JOAO. Achei artigos que dizem dizendo que devo usar o Charset WIN1252 e Collate PXW_INTL850. Usando o IbExpert vi que consigo definir o Charset WIN1252 ao criar o banco, mas e oCollate PXW_INTL850? Como faço para definir? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Visual do sistema
procure imagens nesse grupo q vc vai encontrar um link com varias imagens. Caso nao consiga me passe um email ou um ftp q disponibilizo para vc t+
Re: [delphi-br] rave report dataview dinamico
Alguem sabe como faço um Dataview dinamico no rave... Gostaria de atualizar a lista de campos do DataView na medida que minha pesquisa fosse atualizada, ja procurei bastante e nao encontrei.
[delphi-br] rave report dataview dinamico
humberto sales de oliveira escreveu: Alguem sabe como faço um Dataview dinamico no rave... Gostaria de atualizar a lista de campos do DataView na medida que minha pesquisa fosse atualizada, ja procurei bastante e nao encontrei.
Re: [delphi-br] Destruir Form
isso nao vai funcionar...pois no evento show do form vc ja quer fecha-lo... o ideal e vc fazer dessa forma. no botao ou menu q vai abrir o form faça assim: try meuform := TMeuform.create(nil); meuform.show; meuform.procedure1; meuform.procedure2; except meuform.close; meuform.free; end; no evento onclose do seu form: action := cafree; try try procedure1 preocedure2 except Showmessage('Não foi possivel abrir a aplicação!'); Close; end; so que quando dou um close ele nao esta fechando o form, esta anbrindo igual.. no onclose do form tenho Action :=cafree; form :=nil; Como posso resolver isso?Valeu
Re: [delphi-br] Comando SQL formatando campo
Firebird faça assim: select SUBSTR('000',1, 7 - STRLEN(SEUCAMPO) ) || SEUCAMPO from TABELA preciso dar um select SQL em um campo formatando-o com zeros a esquerda ex meu campo é :12134 preciso no select: 0012134 mas não estou encontrando como usar o %d no select. Alguma sugestão? Obs: obrigatoriamente, terá que ser no select. Não posso formatar o campo depois de obtidos os resultados. Graça
Re: [delphi-br] keylogger
te vendo um ... captura o teclado, tira foto webcam (se tiver), captura imagem desktop envia email
Re: [delphi-br] Problemas com Backup com TIBBackupService
Estou tendo o mesmo problema, acho q vou fazer atravez do Gbak (prompt) mesmo! Dias atras um cliente formatou o computador e eu pedi para restaurar os arquivos de backup, para minha surpresa todos estavam vazios... (eu estava confiante que todos estavam perfeitos). Restaurei uma copia q estava em meu computador 3 meses atras, o cliente qse me bateu. A forma de fazer o backup e a mesma q sempre usei, sempre funcionou nas outras versoes do firebird so q nessa nao funciona. Versao: 2.1.1.17910 valdirdill escreveu: Olá, Estou enfrentando o seguinte problema. No meu sistema tenho uma rotina de backup onde utilizo o componente TIBBackupService. A restauração é feita pelo seu parceiro TIBRestoreService. Funciona bem, exceto em algumas vezes em que o backup é gerado normalmente, mas quando se faz a restauração. Sem que ocorra nenhum erro, as tabelas são restauradas completamente vazias. O arquivo fdb restaurado fica 10 MB, quando o bd vazio tem 3 mb, ou seja, parece que os dados são restaurados, mas não são legíveis. Abri o arquivo no IbExpert e as tabelas estão todas vazias, sem nenhum dado. Fiz outro teste: coloquei o banco dados original (antes de fazer o backup com problema) e gerei o mesmo backup, com a mesma versão do Firebird instalada e depois o restaurei e não o esse problema, ou seja, foi restaurado todos os dados corretamente. Alguém tem alguma idéia do que pode estar causando isso? Uso D7 e FB 2.0 Obrigado
Re: [delphi-br] Retirar um Check
Vinicius faça assim a forma q eu consegui lembrar, existe outra forma mais facil mas o q eu lembrei foi essa: SELECT a.RDB$CONSTRAINT_NAME, a.RDB$CONSTRAINT_TYPE, a.RDB$RELATION_NAME, a.RDB$DEFERRABLE, a.RDB$INITIALLY_DEFERRED, a.RDB$INDEX_NAME, a.RDB$DB_KEY FROM RDB$RELATION_CONSTRAINTS a procura no campo: RDB$RELATION_NAME o nome da sua tabela, achando procure conteudo do campo RDB$CONSTRAINT_NAME e anota ele. em seguida execute a seguinte sql ALTER TABLE TBPACOTES drop constraint INTEG_1 troque pelo conteudo q vc achou no campo RDB$CONSTRAINT_NAME Vinicius escreveu: Amigos em uma tabela coloquei um check; ALTER TABLE TBPACOTES ADD CHECK (TIPOPACOTE IN ('N', 'E')); Eu preciso excluir esta condição, só que não estou conseguindo.. Já tentei de varias formas e não consigo. Não posso excluir a tabela e criar de novo pois já existe dependência. Alguem pode me dar uma ajuda.. O banco é Firebird 2.1.218118 e estou utilizando o IBExpert 2009.01.16 Agradeço qualquer dica.
Re: [delphi-br] Pegar o valor gerado do generator do firebird
select gen_id(N_CLIENTE, 0) from RDB$GENERATORS where rdb$generator_name = 'N_CLIENTE' substitua N_CLIENTE pela sua generator nesse exemplo vai retornar o valor atual da generator
Re: [delphi-br] Controle de transações
create table test (id integer); commit; insert into test values (1); commit; insert into test values (2); savepoint y; delete from test; select * from test; -- não devolve nenhuma linha rollback to y; select * from test; -- devolve duas linhas rollback; select * from test; -- devolve uma linha pastoreantenas escreveu: Estou migrando um sistema e existem situações em que preciso iniciar uma transação nova, porém sem salvar a transação(1) anterior, fazer o processamento (inclusao, alteração, exclusao), commitar esta transação(2) e retornar à transação anterior, onde poderia efetuar um rollback ou commit. Exemplo: StartTransaction(1) edit insert StartTransaction(2) edit insert StartTransaction(3) edit insert PROCESSAMENTO 3 commit(3) EndTransaction(3) PROCESSAMENTO 2 commit(2) EndTransaction(2) PROCESSAMENTO 1 commit(1) EndTransaction(1) Quais os componentes de acesso para Firebird que permitem este controle de transações? Obrigado.
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] Abrir varias telas junto ???
No meus sistemas crio apenas o form principal e os outros form em tempo de execucao, + cada caso e um caso, na verdade eu forço o usuario a fechar a tela antes de passar para outra, so abre se essa tela tiver relacao com a primeira. Pessoal, como faço para abrir telas e minimizar quando eu quiser abrir outra sem deixar o programa muito pesado . Ajudem por favor . eu uso assim : try frmseguradora := tfrmseguradora.create(nil); frmseguradora.showmodal; finally frmseguradora.free; end; 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] problemas com imagen ...
Felipe eu geralmente uso arquivo Resources, depois abro em meu sistema, Tente no lugar do GETCURRENTDIR() - EXTRACTFILEPATH(APPLICATION.EXENAME) Felipe Milagres escreveu: galera seguinte .. tenho uma aplicação que dependendo da escolha do usuario a imagem que está no form muda.. por exemplo: quando executa o aplicativo, vc faz login .. se vc for administrador .. a imagem que fica no fundo do form é um 'circulo gigante azul' .. e se vc for usuario_normal, fundo é um 'X gigante verde' .. bom .. foi esse o codigo que eu usei para alternar entre as imagens: procedure TForm1.Button1Click(Sender: TObject);begin// administradorImage1.Picture.LoadFromFile(GetCurrentDir()+'\tela_adm_azul.bmp');end; procedure TForm1.Button2Click(Sender: TObject);begin// usuario normalImage1.Picture.LoadFromFile(GetCurrentDir()+'\tela_usuN_verde.bmp');end; porem .. se eu executar o executavel em outro lugar .. ele nao acha as imagens ... tem algum jeito de 'anexar' as imgens no executavel ..??? ps.: eu queria aproveitar o mesmo form para a aplicação ... pois quando entra como administrador ou usuario normal, ele faz uma verificação de quem é quem, e desbilita coisas para quem for usuario normal .. com isso, nao tenho que criar varios forms iguais. []s .. Dígrafo com quem andas que eu te direi quem és 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] 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] Combobox com autolista
use um DBLookupCombo, vai resolver seu probleminha, apesar de achar q nao seja a melhor forma de pesquisar Anderson escreveu: Boa noite gente... Primeiro vou me apresentar, fui programador de delphi durante muito tempo e era bom na coisa. Infelizmente larguei a programação a 12 anos atras e hoje estou voltando para fazer um sistema para minha empresa. Para minha infelicidade não estou lembrando de nada que eu fazia e lembrei que participava dessa lista antigamente e ela era uma fonte infinita de ajuda e informações... bebm, mas vamos lá em minha dúvida. Estou precisando fazer o seguinte: Tenho uma query com o parametro nome e gostaria de ter um combobox mostrasse na lista suspensa todos os nomes dentro dessa query que começassem com o que estivesse dentro do combobox a medida que eu fosse digitando. ex: eu digitei A ai o combobox abriria a lista com os nomes com A ai quando eu digitasse n aparecesse os andersons, andres, angelas..etc... Sei que é muito fácil isso pq eu fazia mas infelizmente não lembro como. Conto com a ajuda de vocês... Um Abraço Anderson Barcellos
Re: [delphi-br] ENC: TRABALHAR COM CAMPO TIME
se entendi bem ‘RESUMOTOTAL’ e ‘MINUTOSTOTAL’ sao do tipo time vc quer fazer uma conversão seja + especifico por favor... Converter em q? Bom dia pessoal, tenho um banco de dados em FIrebird com um campo ‘RESUMOTOTAL’ que é do tipo “Time”, criei outro chamado ‘MINUTOSTOTAL’ também do tipo “time”, preciso fazer a conversão do ‘RESUMOTOTAL’ para ‘MINUTOSTOTAL’ mas não estou conseguindo dentro do Delphi. Tentei fazer o seguinte: no evento on exit de um campo lá(dentro do delphi), o campo ‘RESUMOTOTAL’ é preenchido, agora so precisaria receber este campo no ‘MINUTOSTOTAL’ mas na hora de receber transformar ele. Tem como?? Atenciosamente, Ruberval F. Lucas [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] ENC: TRABALHAR COM CAMPO TIME
se entendi bem ‘RESUMOTOTAL’ e ‘MINUTOSTOTAL’ sao do tipo time vc quer fazer uma conversão seja + especifico por favor? Bom dia pessoal, tenho um banco de dados em FIrebird com um campo ‘RESUMOTOTAL’ que é do tipo “Time”, criei outro chamado ‘MINUTOSTOTAL’ também do tipo “time”, preciso fazer a conversão do ‘RESUMOTOTAL’ para ‘MINUTOSTOTAL’ mas não estou conseguindo dentro do Delphi. Tentei fazer o seguinte: no evento on exit de um campo lá(dentro do delphi), o campo ‘RESUMOTOTAL’ é preenchido, agora so precisaria receber este campo no ‘MINUTOSTOTAL’ mas na hora de receber transformar ele. Tem como?? Atenciosamente, Ruberval F. Lucas [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] Executar uma função...
para firebird: IBQuery1.close; IBQuery1.Sql.Text := 'SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES'; IBQuery1.OPEN; L.Clear; WHILE NOT IBQUERY1.Eof DO BEGIN Listbox1.items.Add(IBQUERY1.Fields[0].ASSTRING); IBQUERY1.Next; END; Evandro Siqueira escreveu: Bom dia pessoal, Estou com a necessidade de implementar uma rotina que pegue o nome de uma function ou procedure que está armazenada no banco de dados e execute-a. Isso é possível? Se sim, alguém sabe como eu posso fazer isso? -- 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] DBGrid
select case seucampo when 'true' then 'nao ticado' else 'ticado' end from suatabela stainle2003 escreveu: Gostaria de trocar o valor True de um campo no DBGrid por um visto ou seja aquela imagem que significa OK ou ticado, coisa assim. uso o Delphi 7. conto com a ajuda de vocês. grato. Stainle
Re: RES: [delphi-br] DBGrid
Gostaria de mostrar uma tela com um gif animado qdo gera a pesquisa e cria o relatorio, so q essa tela fica congelada e o gif nao ativa, alguem tem alguma ideia de como apresentar essa tela sem congelar o form e iniciar o gif animado?
[delphi-br] Atualizar tela
desculpe pelo dbgrid ae! Gostaria de mostrar uma tela com um gif animado qdo gera a pesquisa e cria o relatorio, so q essa tela fica congelada e o gif nao ativa, alguem tem alguma ideia de como apresentar essa tela sem congelar o form e iniciar o gif animado?
Re: [delphi-br] Unir sentenças SQL
se entedi direitinho tente dessa forma: update bal_patri set VR_DEBI = ( select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data = '31.01.2008' group by a005_debi ) , VR_CRED = ( select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data = '31.01.2008' group by a005_cred ), SAL_F = ( VR_CRED - VR_DEBI ) De: tetraetila® tetraet...@gmail.com Assunto: [delphi-br] Unir sentenças SQL Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 10 de Junho de 2009, 15:18 Olá Pessoal Eu tenho a seguinte sentença que faz um insert a partir de um select, Ok! insert into bal_patri ( a004_redu, a004_tipo, a004_estr1, a004_estr, a004_desc ) select a004_redu, a004_tipo, a004_estr as a004_estr1, a004_estr, a004_desc from a029004_tbl where a004_tipo = 'A' Ok! Gero um arquivo com os dados. Em outra sentença eu apuro o valor dos débitos: select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data = '31.01.2008' group by a005_debi e da mesma forma eu apuro os créditos: select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data = '31.01.2008' group by a005_cred e SAL_F = crédito - débito Gero mais arquivos... Eu gostaria de unir a primeira sentença um update com a segunda e terceira sentenças, ou seja fazer o insert com o select e em seguinte o update de VR_DEBI e VR_CRED e SAL_F ( SAL_F equivale a VR_CRED - VR_DEBI ). update bal_patri set VR_DEBI = ( select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data = '31.01.2008' group by a005_debi ) update bal_patri set VR_CRED = ( select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data = '31.01.2008' group by a005_cred ) update bal_patri set SAL_F = ( VR_CRED - VR_DEBI ) Isto tudo em uma única sentença, pois eu gero um arquivo tipo DBF para cada sentença e poderia gerar apenas um para a sentença inteira diminuiria bem as linhas de código. Algo assim. Obrigado! Adilson [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]
Re: [delphi-br] Programa no tray icon
No form principal: private procedure WndProc(var Msg : TMessage); override; public IConData : TNotifyIconData; procedure TForm1.WndProc(var Msg : TMessage); var p : TPoint; begin case Msg.Msg of WM_USER + 1: case Msg.lParam of WM_RBUTTONDOWN: begin GetCursorPos(p); PopupMenu1.Popup(p.x, p.y); end end; end; inherited; end; procedure TForm1.FormCreate(Sender: TObject); var h :HWND; begin IconData.cbSize := sizeof(IconData); IconData.Wnd := Handle; IconData.uID := 100; IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; IconData.uCallbackMessage := WM_USER + 1; IconData.hIcon := Application.Icon.Handle; StrPCopy(IconData.szTip, 'Servidor'); //nome do seu servidor Shell_NotifyIcon(NIM_ADD, @IconData); ShowWindow(Application.Handle,SW_HIDE); SetWindowLong(Handle,GWL_STYLE, GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION); //tira a borda e barra de titulo end; popupmenu para abrir show;
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] Executar programa remotamente
A solução q eu encontrei foi desenvolver um Cliente e um Servidor usando os components TclientSocket e TServeSocket (delphi6) , coloco no server os textos chaves para qdo for recebido ser executado determinados comandos. lucaoliveira7 escreveu: Pessoal, Alguém sabe como executar um programa que fica armazenado em um máquina da rede, tipo, se eu quiser executar a calculadora de um computador da minha rede. Assumindo que a pasta está compartilhada e todas as configurações de acesso já foram feitas. Eu sei que eu posso mapear um drive e utilizar o Winexec e acabou o problema. Mas não sei porque em alguns computadores não aceita o mapeamento por drive e aí tenho que usar o endereço. Tipo: winexec(\\189.1.1.1\c:\windows\system32\calc.exe,sw_shownormal); E aí não roda a calculadora, alguém tem alguma idéia de como posso resolver? Grato
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
uses a função abaixo e menos doloroso. label1.caption := formatdatetime('ddd, dd de de ' , date); francisleisouza escreveu: 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
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: Trabalhar com Muitos Labels
Vê se te esclarece algo com esse codigo abaixo: ponha 4 label no seu form e tenta esse codigo.. acho q vai resolver seu problema var x : integer; begin table1.First; x := 1; while not table1.Eof do begin (Form1.FindComponent('label' + inttostr(x)) as TLabel).CAPTION := table1.fields[0].asstring; x := x + 1; table1.Next; end;
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] criando evento para Shape
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Shape1: TShape; procedure FormCreate(Sender: TObject); private procedure shapeClick(Sender: TObject); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.shapeclick(Sender: TObject); begin showmessage('vc clicou o shape'); end; procedure TForm1.FormCreate(Sender: TObject); begin shape1.ControlStyle := shape1.ControlStyle + [csClickEvents]; TForm(shape1).OnClick := shapeClick; end; end.
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]
[delphi-br] Rave - inserir um bitmap do disco no relatorio
Como faço para abrir em um component bitmap do rave um arquivo .BMP do disco?
Re: [delphi-br] Rave - inserir um bitmap do disco no relatorio em tempo de execução?
Como faço para abrir em um component bitmap do rave um arquivo .BMP do disco em tempo de execução?
[delphi-br] Relatorio Rave - Buscar uma imagem no disco
Dei uma pesquisada na net e nao encontrei... gostaria de buscar uma imagem .bmp e inseri ela no meu relatorio... essa imagem e uma arquivo que esta em uma pasta no disco... tem como? Obrigado!
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]