Re: [delphi-br] Programador Senior Delphi - PAF-ECF
- Original Message - From: marcosflexerp59 marcosflexer...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Friday, June 04, 2010 8:04 PM Subject: [delphi-br] Programador Senior Delphi - PAF-ECF Empresa localizada em São Paulo contrata PROGRAMADOR Senior com o seguinte perfil: REQUISITOS: -Amplo domínio de Delphi 7 ou maior. -Experiência com impressoras fiscais e PAF-ECF. A empresa oferece a possibilidade de trabalhar em regime Home-Office e salário a combinar. Interessados devem enviar currículo, com pretensão salarial para marcosflexer...@yahoo.com.br. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Segurança DataS nap
Mas como define permissões para IPs específicos se a máquina que vai acessar remotamente não tiver IP Fixo? De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Alexandre Lemos Rodrigues Enviada em: sábado, 15 de maio de 2010 18:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Segurança DataSnap Pra quem ela fica ou não aberta cabe ao seu firewall definir. Voce pode abrir apenas pra sua rede interna ou para IPs específicos. Outra medida de segurança é mudar a porta padrão, já que 211 todo mundo sabe que é usada pelo Socket Server. Use uma porta de valor alto de preferência, pra lá dos 10.000. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] OFF TOPIC-Multiprocessamento com Firebird
Instalei novamente usando a versão Classic , fiz um backup e restore. Funcionou. Rodei um relatório bem pesado e a performance foi bem melhor. Verifiquei no gerenciador de tarefas que os 4 processadores estavam sendo usados no processo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [MAF] Banco de dados free
Esses documentos podem ser gravados em um campo do tipo blob. Eu faço no Firebird usando os componentes da Devart. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Sistema para Builds de projetos
No Delphi 7 eu uso o Project Manager. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro na Conversão de BD usando Clien tDataSet
Veja o que diz o help do Delphi : Set MaxErrors to -1 to indicate that there is no limit to the number of errors. Ou seja, se você colocar -1 no parâmetro o ClientDataset vai aceitar infinitos erros. Coloque DMCONVERTE.CDSForn2.ApplyUpdates(0); e não esqueça de colocar uma exceção no evento OnReconcileError. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Filter not found to convert type 1 to type 2
Quando mudei de banco também tive esse tipo de problema. Tente fazer um backup e restaurar. Se não der certo gere o script e crie o banco novamente e depois crie scripts com os dados e jogue os dados para o banco novo. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] BDE funciona de 2 modos diferentes
Alguém sabe me dizer porque em algumas máquinas o path do BDE funciona configurado como servidor:c:\pasta\bd.gdb e em algumas tenho que configurar como \\servidor\c:\pasta\bd.gdb? Inclusive em algumas máquinas param de funcionar e eu tenho que mudar essa configuração, ou seja, ora funciona de um jeito, ora funciona de outro. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] NFe c/ ACBR
Chave := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; Protocolo := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; Recibo := ACBrNFe1.WebServices.Retorno.NFeRetorno.nRec; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Erro em Post Usando 2 Tabelas
Você configurou os ProvidersFlags dos campos que não serão salvos para False? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Componentes ACBr
Alguém aqui usa os componentes ACBr para emissão de nota fiscal eletrônica? Vocês recomendariam o uso do componente? Gostaria de inscrever em um grupo de discussão sobre o assunto. Instalei os componentes, mas quando tentei rodar um demo deu a seguinte mensagem : Unit ACBrNFeDANFERave wad compiled with a different version of RpRave.TRvProject.Open. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Paradox para SqlServer2000
Bem, faz um bom tempo que não trabalho com SQL Server nem Paradox. Mas, o tipo Date no Paradox deve ser uma data simples, sem hora. No SQLServer deve ter um tipo igual a esse. Deve ser SmallDate ou coisa parecida. - Original Message - From: Nivaldo Stainle stainle2...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Friday, January 08, 2010 9:00 AM Subject: Re: [delphi-br] Paradox para SqlServer2000 e quando um campo for DATE no paradox, que tipo você coloca no SQLSERVER ?? Stainle __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
Mas e se os campos já existirem? Eu vou ter que trocar um a um via código? - Original Message - From: humberto sales de oliveira humberto_...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 16, 2009 11:51 PM Subject: 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; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Problema com ClientDataset
Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também : ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' + DBGrid1.Fields[0].AsString. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] OFF TOPIC-Consultar registro com acentos em Firebird
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] Função para descobrir numero de se rie do HD
Procure pelo assunto no Google e você vai achar aos montes, inclusive em mensagens aqui da lista. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Gravar Enter em campo do tipo String
Vinicius, já resolvi com a dica do Marcelo Luiz. De qualquer maneira, valeu pela disposição em ajudar. Obrigado! __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Gravar Enter em campo do tipo String
Sílvio, acho que você não entendeu. Eu estou tentando fazer isso diretamente no BD através de um Trigger, portanto não vou usar nenhum componente. Se fosse fazer no aplicativo não teria problema nenhum. - Original Message - From: Silvio Clecio silviop...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 02, 2009 5:27 AM Subject: Re: [delphi-br] Gravar Enter em campo do tipo String Alisson Yahoo escreveu: Já tentei #13 e chr(13), mas não existe isso no Firebird Alisson, eu testei aqui e funciona legal, fiz o teste com Zeos e dbExpress e uma tabela só com um campo varchar. Veja qual componente tu usa para visualizar os dados, se o #13 for para quebra de linha em um texto, use DBMemo (ou Memo, caso não use data-aware). -- Silvio Clecio __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Gravar Enter em campo do tipo String
Já tentei #13 e chr(13), mas não existe isso no Firebird - Original Message - From: Vinicius Santos vinicius.santos.li...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Saturday, November 28, 2009 11:48 AM Subject: Re: [delphi-br] Gravar Enter em campo do tipo String Em PostgreSQL vc pode usar a função chr(13), para quebra de linha, verifique se o Firebird tem algo similar. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Gravar Enter em campo do tipo String
Pessoal, como faço pra gravar o caracter #13(Enter) em um campo de um banco Firebird usando uma trigger? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Travar Atualização do Form
Não dá pra fazer as atualizações antes de mostrar o form? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] erro ao restaurar backUp do interbase
Deu algum quando começou o backup e o arquivo ficou travado. Se reiniciar o computador deve resolver. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Tempo de inatividade do software
Coloque um TTimer e um TApplicationsEvents no FormPrincipal. Crie uma variável do tipo Integer. No evento OnMessage do TApplicationsEvents zere esse variável. Se o sistema ficar inativo não vai passar no evento OnMessage. No evento OnTimer do TTimer incremente essa variável. Quando essa variável atingir o valor desejado feche o sistema. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] ClientDataSet.DataRequest uso?
Você quer fazer consultas no banco de dados? Se for esse o seu objetivo você deve usar o DatasetProvider com a propriedade Options-AllowCommandText = True, e definir a sentença SQL na propriedade CommandText do ClientDataset. Você pode também definir a consulta no Dataset na aplicação servidora, e abrir o Clientdataset na aplicação cliente. Na segunda opção você não vai alterar a propriedade Options-AllowCommandText do DatasetProvider. Espero ter ajudado em alguma coisa. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Excluir vários itens através do DB Grid
Eu faço da seguinte forma: - Jogo os dados em um ClientDataset - Crio um campo do tipo InternalCal no ClientDataset - Coloco esse campo criado na primeira coluna do DBGrid - Defino a Fonte dessa coluna como Marlett (nessa fonte o caracter 'a' é igual ao checado do TCheckBox), tamanho 10, cor azul - No evento OnDblClick do DbGrid gravo o valor 'a' ou '' no campo do ClientDataset. Também pode ser colocado no evento OnKeyDown ou OnKeyPress do DbGrid. - Para definir quais registros devem ser trabalhados pela sua rotina, basta verificar se o campo está com o valor 'a' ou '' OBS.: No Delphi 7 tem um bug que sempre altera o estilo da fonte.Então coloque no evento OnShow do Form: DbGrid.Columns.Items[0].Title.Caption := ''; DbGrid.Columns[0].Font.Style := []; Em todos os DbGrids que tenho necessidade de CheckBox uso dessa forma. Criei uma função que muda o valor do campo dando o aspecto de checado e não checado, e uso no evento OnKeyDown e OnDblClick de todos os DbGrids. Acho bem mais simples que implementar um DbGrid com CheckBox. Funciona muito bem e fica com um visual legal. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] uma ideia de como fazer
Use a mesma sugestão que dei para o tema EXCLUIR VÁRIOS ITENS ATRAVÉS DO DBGRID __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Dúvida TEF
Como funciona esse desconto embutido? O item é vendido por um preço menor? Se for assim, é ilegal, pois o valor do produto deve ser o mesmo independente da forma da pagamento. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] cupom fiscal duvidas ?
Precisa ser homogado sim. E sem querer te desanimar, dá um trabalho do cão! Na empresa onde trabalho estamos desenvolvendo e tivemos que contratar um consultor fiscal pra ajudar a gente. Nem estou confiante que vamos conseguir homologar da primeira vez. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Erro em bloco try...finally
Pessoal, tenho um código em bloco try...finally que não mostra mensagem quando há uma exceção. Esse tipo de estrutura esconde as exceções? Eu tenho que colocar um bloco try...except dentro do try...finally? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Erro ao carregar dll
Uso algumas dlls em meu projeto. Quando tento abrir o exe em algumas máquinas pede uma dll que não está incluída no projeto(Libeay32.dll). Inclusive em algumas máquinas o exe nem abre se não existir essa dll, dando a seguinte mensagem: Aplicativo não inicializado corretamente (9xc015002). Clique em OK para finalizar.. Alguém sabe do que se trata essa dll, e por que meu programa está pedindo ela? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Erro em Generator do Firebird
Faço uma consulta que busca e incrementa o generator no BD: Select Gen_Id(Gen_PedVenda, 1) as Ultimo From Rdb$Database; Esse código está dentro uma transação juntamente com uma rotina de inserção em BD. Se der erro na inserção a mesma é cancelada, mas o incremento do generator não. Isso é normal? O que pode estar acontecendo? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Erro em Generator do Firebird
Pessoal, obrigado pelas sugestões. Ao invés de usar generator, estou pensando em fazer o seguinte: Vou criar um campo em uma tabela de configurações para guardar o número do último registro e fazer a sequência abaixo. O que acham? try Iniciar transação; Selecionar o valor do campo; Inserir Dados(Tabela mestre e detalhe); Atualizar valor do campo para Valor+1; Confirmar transação; except Cancelar transação; end; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Delphi 2010 Update 1
Aliás, 2010 ainda está longe! Esse jogada é pra parecer que o produto é muito avançado, uma coisa do futuro. Acho isso uma grande besteira. - Original Message - From: Anakin jcp...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 24, 2009 5:43 PM Subject: [delphi-br] Delphi 2010 Update 1 Pessoal, Mal foi lançado o Delphi 2010 e já tem o update 1. []'s João Carlos [As partes desta mensagem que não continham texto foram removidas] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Interceptar um evento
Mas, qual o problema? Você acha que o StringGrid não tem esse evento? Se o problema for esse é só usar o evento OnSelectCell. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] ir DBEdit para a primeira linha do Dgrid
Coloque no OnExit do DbEdit: Dataset.First; DbGrid.SetFocus; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Disco Virtual
Mas, por que o BD deve ficar em disco virtual? Acho que não dá pra fazer isso não. Não seria o caso de usar DataSnap? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Erro sinistro
Pessoal, tenho uma rotina onde atribuo valores a variáveis do tipo Real:
Linha 1: rValItem := QualquerCoisa;
Linha 2: rPercICMS := OutraCoisaQualquer;
Linha 3: rVlrICMS := rValItem * rPercICMS;
Linha 4: //ShowMessage(FormatFloat('#0.00', rVlrICMS);
Se eu colocar um breakpoint na linha 3 eu verifico que variável rVlrICMS
está com o valor = 0, mas as variáveis rValItem e rPercICMS estão com valor
diferente de 0. Se eu habilitar a linha 4, a variável rVlrICMS recebe o
valor corretamente. Alguém pode me ajudar a exorcizar esse espírito? Estou
usando Delphi 7.
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [delphi-br] PROVIDER FALGS
Basta atribuir os providers que forem necessários. Ex.: Campo1.ProviderFlags := [pfInUpdate, pfInWhere, pfInKey]; Campo2.ProviderFlags := [pfInUpdate, pfInWhere]; Campo3.ProviderFlags := []; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] aspas no firebird
Além de usar o QuotedStr, você pode usar 2 aspas simples onde usou aspas duplas. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] ver ip pelo delphi - help
Use um componente TIdHTTP pra implementar a função abaixo:
procedure VerificarIPExterno;
var sAux, sIP : String;
i : Integer;
begin
try
sAux := TIdHTTP1.Get('Endereço do site'); //Coloque aqui o endereço de
algum site que forneça o número de IP
i := Pos('201.', sAux);
if (i = 0) then
i := Pos('200.', sAux);
if (i = 0) then
i := Pos('189.', sAux);
sAux := Copy(sAux, i, 15);
sIP := '';
for i := 1 to Length(sAux) do
if (sAux[i] in ['0'..'9']) or (sAux[i] = '.') then
sIP := sIP + sAux[i];
ShowMessage('Meu IP é : ' + sIP);
except
on E : Exception do
ShowMessage('Não foi possível obter o número de IP!' + #13 +
E.Message);
end;
end;
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [delphi-br] DisplayFormat
Tente fazer um loop depois que já tiver criado tudo. Seria mais ou menos assim: for i := 0 to ClientDataset.FieldCount-1 do if ClientDataset.Fields[i].DataType = ftFloat then (ClientDataset.Fields[i] as TFloatField).DisplayFormat := '#0.00' else if ClientDataset.Fields[i].DataType = ftCurrency then (ClientDataset.Fields[i] as ftCurrencyField).DisplayFormat := '#0.00' else if ClientDataset.Fields[i].DataType = ftBCD then (ClientDataset.Fields[i] as ftBCDField).DisplayFormat := '#0.00' else if ClientDataset.Fields[i].DataType = ftFMTBcd then (ClientDataset.Fields[i] as TftFMTBcdField).DisplayFormat := '#0.00'; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] MDI para SDI
Eu não entendi qual a relação entre o uso do Linux e o modo de abertura das telas do seu programa. Mas, veja se esse modo de abrir as telas pode te ajudar. Eu crio o form principal do programa igual a tela principal do Delphi, colocando a propriedade Align do form = alTop. Os demais forms são abertas na área restante da tela com a propriedade Align do form = alClient. As telas são exibidas com Show ao invés de ShowModal. Assim é possível abrir vários forms ao mesmo tempo e os forms não ficam espalhados pela tela. Se quiser mostrar um form que já foi aberto basta utilizar o ítem de menu ou um botão, ou ainda usar uma combinação de teclas para jogar os forms pra cima, um a um. Espero ter ajudado em alguma coisa. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Memo ou RichEdit - Problema
Além de definir a fonte como Courier, que é uma fonte que ocupa o mesmo espaço para todos os caracteres, você deve definir também o tamanho pra cada campo que vai mostrar no memo. Quando o valor do campo for maior que o tamanho máximo deverá cortar o excendente, quando for menor terá que completar com espaços em branco. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Fields Editor
Acho que não dá pra fazer isso não. Mas você pode incluir os componentes normalmente e usar o plugin GExperts pra substituir por outros componentes. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Participem da minha vaquinha! - Vakinha.com.br
Meu salário está muito baixo. Vou fazer uma vaquinha pra complementar meu salário. Sinceramente, é muita folga! Esse assunto é digno de moderação! - Original Message - From: Marcelo - CH Sistemas marc...@chsistemas.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 12, 2009 2:12 PM Subject: RES: [delphi-br] Participem da minha vaquinha! - Vakinha.com.br Era só o que faltava mesmo isso é muita babaquise __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Re: OFF TOPIC - Erro de select em campo datetime
Marcos, o registro tem valor na hora. Se eu fizer SELECT CAMPO FROM TABELA WHERE CAMPO '13/08/2009 13:56:37', a consulta retorna os registros que tem o campo com valor igual a '13/08/2009 13:56:37'. - Original Message - From: marcosksb marcos...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 12, 2009 8:29 AM Subject: [delphi-br] Re: OFF TOPIC - Erro de select em campo datetime Este campo nao seria data com hora.. ai vai trazer mesmo tudo que for maior que a data + hora zero se vc nao informar... 26/07/2009 00:00:00 ve se nao e isto __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Abrir varias telas junto ???
Pra fazer eu abro as telas com Show ao invés de ShowModal. Tenha cuidado de abrir com ShowModal as telas que tenham relação com a tela aberta anteriormente e tenha que ser fechada antes de abrir outra tela. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] OFF TOPIC - Erro de select em campo datetime
Estou fazendo o seguinte select no Firebird 2.0 : Select * From Tabela Where Campo :Data Se na tabela tiver algum registro com o campo exatamente igual ao parâmetro, esse registro é retornado pela consulta, quando deveria retornar apenas os registros com data maior que a do parâmetro. Alguém sabe por que isso acontece? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] dimensão de um formulario - help
Screen.Height e Screen.Width __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] pesquisar parte de um campo usando locate
Nesse caso seria melhor usar a função Pos.
procedure Tdm.cdsTabelaFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := Pos('SILVA', cdsTabelaNOME.AsString) 0;
end;
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [Bulk] [delphi-br] Re: agregar ayuda a mi aplicacion
Pessoal, vejam esse tópico das regras da lista. III. REGULAMENTO a) GERAL: 1. O idioma oficial da lista é o português. Mensagens em outros idiomas não serão permitidas. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] É possível alterar a classe de um objeto já criado ?
Eu já fiz isso abrindo o form como texto e mudando o tipo do campo. Quando você compila, o Delphi diz que a declaração e pede confirmação para alterar. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] fixar form
Além de usar a função pra colocar o form na posição desejada, mude a propriedade Align para alCustom. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Como mudar uma propriedade automaticamente?
Você pode usar uma função como essa. O que você quer fazer exatamente? procedure TForm1.MudaCor(Lbl: TLabel; Tag : Integer); const Cores : array[0..4] of TColor = (clBlue, clRed, clYellow, clBlack, clGray); begin Lbl.Tag := Tag; lbl.Font.Color := Cores[Tag]; end; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Re: Arquivo XML
Tente o seguinte: Abra o arquivo xml normalmente.Crie um novo clientdataset com os campos necessários. Pegue os dados do clientdataset e grave no novo clientdaset. Procure na internet sobre como criar os campos em run-time. Veja esses exemplos http://forum.clubedelphi.net/viewtopic.php?t=51382highlight=fields+add http://forum.devmedia.com.br/viewtopic.php?t=60845view=previoussid=d7872ecf12e7027ea173e7e26fb2ded8 __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Nome e data do executável
Use a função FileDateToDateTime e Application.ExeName __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Erro firebird 2.1
Já passei por um problema parecido migrando de Firebird 2.0 para Firebird 2.5. Usando o IBExpert, gerei um script de inserção com os dados da tabela que estava dando problema. Apaguei a tabela e criei novamente, depois rodei os scripts para inserir os dados novamente. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] JOIN no TADOQuery
Eu utilizo clientdataset e resolvo esse problema configurando as propriedades ProviderFlags dos campos. Não conheço os componentes ZeosLib, mas imagino que dá pra fazer do mesmo modo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Validacao de PIS
Pra que componente? É uma rotina muito simples. Pesquisei na internet e
achei uma função pra validar PIS:
function TForm1.ConferePis(sPis: String): Boolean;
var i, iSoma, iAux, iDigito: Integer;
begin
iSoma := 0;
iAux := 2;
for i := 1 to 10 do
begin
iSoma := iSoma + (iAux * StrToInt(Copy(sPis, 11-i, 1)));
if iAux 9 then
iAux := iAux+1
else
iAux := 2;
end;
iDigito := 11 - (iSoma mod 11);
if iDigito 9 then
iDigito := 0;
Result := StrToInt(Copy(sPis, 11, 1)) = iDigito;
if not Result then
MessageDlg('Pis inválido!', mtWarning, [mbOK], 0);
end;
Eu tenho essa outra pra conferir CPF. Eu chamo no evento OnExit do
componente:
function ConfereCPF(Edit : TCustomEdit) : Boolean;
var n1,n2,n3,n4,n5,n6,n7,n8,n9,d1,d2: Integer;
Digitado, Calculado, Num : String;
begin
ConfereCpf := True;
Num := Edit.Text;
Num := StringReplace(Num, '.', '', [rfReplaceAll]);
Num := StringReplace(Num, '-', '', [rfReplaceAll]);
Num := StringReplace(Num, '_', '', [rfReplaceAll]);
if (Trim(Num) '') then
begin
n1 := StrToInt (Num[1]);
n2 := StrToInt (Num[2]);
n3 := StrToInt (Num[3]);
n4 := StrToInt (Num[4]);
n5 := StrToInt (Num[5]);
n6 := StrToInt (Num[6]);
n7 := StrToInt (Num[7]);
n8 := StrToInt (Num[8]);
n9 := StrToInt (Num[9]);
d1 := n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10;
d1 := 11 - (d1 mod 11);
if (d1 = 10) then
d1 := 0;
d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11;
d2:=11-(d2 mod 11);
if (d2 = 10) then
d2:=0;
Calculado := IntToStr(d1) + IntToStr (d2);
Digitado := Num[10] + Num[11];
ConfereCpf := Calculado = Digitado;
if (Calculado Digitado) then
begin
Edit.SetFocus;
raise exception.Create('CPF não confere!');
end;
end;
end;
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Problema de Lentidão (SQL)
Quando tiver componentes (DbGrids, Edits, etc) ligados ao datasource, desabilite-os antes do loop e habilite novamente no final: Dataset.First; Dataset.DisableControls; while not Dataset.Eof do begin Dataset.Next; end; Dataset.EnableControls; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Substituir string
Puxa, que mico! Eu tenho o GExpert instalado e não sabia que ele fazia isso. Obrigado Vinicius, e desculpe pessoal! - Original Message - From: Vinicius A. Santos vinic...@msisolucoes.com.br To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 25, 2009 4:46 PM Subject: Re: [delphi-br] Substituir string E o GExperts ? ele tem um recurso Grep Search __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Substituir string
Existe alguma maneira de pesquisar e substituir uma determinada string em todos os arquivos .dfm de um projeto? Uso Delphi 7. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Substituir string
Eu já tinha usado o GReplace, mas em muitos arquivos ele dá erro e deixa o arquivo todo bichado. Testei o HandyFile, e, apesar da versão Free ser limitada deu pra usar. Ele só permite verificar 33 arquivos por vez. Fui colocando os arquivos por etapa em uma pasta e fazendo os acertos. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] erro clientdataset
Mas, qual a mensagem de erro que dá? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Listar datasets presentes em um form
Já descobri como se faz. É muito fácil, eu estava tentando reinventar a roda. Eu achava que tinha que fazer alguma rotina pra verificar os componentes que existiam no form e listá-los na propriedade. Basta declarar a propriedade: property DataSet : TDataSet; Depois é digitar CTRL + ALT + C e está pronto. Quando o componente for colocado no form já aparece a propriedade Dataset no Object Inspector com todos os datasets que foram colocados no form. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Listar datasets presentes em um form
Gostaria de criar uma propriedade em um componente. Essa propriedade seria do tipo Dataset. Eu pegaria todos os componentes do tipo dataset que estão em um form e os colocaria nessa propriedade. Alguém sabe como fazer isso? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] OFF TOPIC-Emulador ECF Bematech
Estou tentando usar o Emulador de ECF da Bematech, mas ao ligar o ECF sempre aparece a mensagem de erro : Houve um erro na porta serial Alguém da lista usa esse emulador? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OOP - Quais as vantagens?
Walter, por que você diz que uma procedure só pode ser reaproveitada em alguns projetos? Você pode colocar a procedure em uma unit, e usar essa unit em quantos projetos quiser. Ou então CTRL+C e CTRL+V, e pronto! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AJuda no Delphi
Estava faltando end. no final do código. Você precisa endentar melhor o seu
código. Veja como ficou:
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls;
type
TFRMPrin = class(TForm)
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','Dezembro');
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;
end.
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Itens de menu criados em tempo de execução
Já consegui resolver pessoal. Depois de criar os itens de menu, dei um Refresh no form e usei Application.ProcessMessages. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MyDAC
Testei aqui e está baixando normalmente. ´ - Original Message - From: Luiz Escobar To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 25, 2009 4:12 PM Subject: Re: [delphi-br] MyDAC Só por curiosidade tentei baixar o video da primeira mensagem e nao baixo, vai até 66% e para geral... []s Luiz Escobar [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abri frm em um panel
Provavelmente a propriedade FSStyle está fsMDIForm ou fsMDIChild. Mude para fsNormal. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tabela de dados com milhões de regis tros
Não entendi qual é exatamente o seu problema. Seria trazer muitos registros do banco para a aplicação? Se for esse o caso, você deveria trazer o mínimo possível de registros de acordo com parâmetros com o usuário escolher. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro em ShowModal
Tenho um form que é mostrado com ShowModal. Quando o programa mostra uma mensagem com MessageBox o form é joagado para trás dos outros forms abertos. O programa fica travado pois o único form que poderia ser acessado é o form que foi jogado pra trás. Alguém o que pode estar causando esse problema? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como rodar o demo Features do IW pela internet
Puxa, que mico! Tinha esquecido desse detalhe de liberação da porta no roteador. Mas, só mais um detalhe: A cada vez que o servidor é iniciado, o acesso é feito através de uma porta diferente. Como resolver esse problema? Não dá pra ficar liberando a porta a todo instante... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Qual o melhor componente de relatóri o...
Pra mim, o melhor é o RDPrint. Excelente para impressão matricial. Muito ágil para elaboração dos relatórios. Com ele é bem mais fácil fazer as quebras de relatório, pois você escreve linha a linha. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form com Barra de Rolagem
A propriedade AutoScroll do form não serve? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Configuração servidor de aplicação 3 camadas
Estou pensando em desenvolver uma aplicação 3 camadas. Banco de dados SQL Server, aplicação servidora com RemoteDataModule e aplicação cliente com DataSnap. Serão cerca de 60 lojas acessando o servidor, com vários computadores em cada loja, podendo chegar ao máximo de 500 conexões simultâneas. Seria viável? Qual a configuração necessária para a máquina servidora? E a conexão de internet, qual seria a velocidade necessária? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conexao com o banco
Se não dá pra configurar o alias, o usuário e a senha no arquivo .conf do Firebird, esse arquivo é sem serventia, pois eu consigo configurar tudo isso em um arquivo .ini [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mostrar exceção
Tenho um programa que funciona normalmente, mas em uma máquina específica dá um erro dizendo que um campo de um clientdataset não existe. Tem como mostrar em que unit e linha é gerado esse erro? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tradução de mensagens
Eu já traduzi a unit Consts, mas ela não contém as mensagens de erro dos componentes DbControls. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trying to modify read-only field
Você já conferiu a propriedade ReadOnly no ClientDataset e no Dataset? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda no Firebird ? Select concatenando String e montando um Numeric Cast ...
O problema é o tamanho do campo.Aumente o tamanho como no exemplo:
SELECT
CAST('327.67' AS NUMERIC(5,2))
FROM RDB$RELATIONS
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] File not found: proxies.dcu
Pessoal, Ao compilar o projeto que usa um componente por mim desenvolvido dá esse erro. Essa unit Proxies está incluída na unit DesignEditors. O mais estranho é que o projeto nao compila em uma máquina, mas compila em outra, e em nenhuma delas existe a unit proxies. Tem mais um fato muito estranho: Se eu compilar com a opçao ´Build with runtimes packages´, o projeto compila. Alguém pode me dar uma luz? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ultimos lançamentos
Nao sei a sintaxe no SQL server, mas no Firebird voce pode selecionar os 100 primeiros da seguinte forma: SELECT first 100 Campo1, Campo2, Campo3... FROM Tabela Voce pode também fazer a consulta e jogar os 100 primeiros registros para um clientdataset __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * 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] erro: BDE Error $000F
Já tentou reinstalar o BDE? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Traduções de mensagens do Delphi 7
Fiz a tradução de mensagens da unit Consts e DbConsts do Delphi 7. Mas as traduções não aparecem para projetos já existentes, mesmo se der um Build no projeto. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Livro Delphi for PHP
Infelizmente não conheço nenhum livro para indicar para que possa comprar. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Action Manager
O TActionManager deve ser usado com o TActionMainMenu. Aponte a propriedade ActionManager para o TAction Manager. Dê duplo clique no TActionManager para incluir as TActions e também para incluir as TActionsBars, os itens e subitens das TActionsBars. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvidas sobre BDGrid
Esse evento seria no Dataset e não no grid. Você poderia usar o evento AfterEdit. Talvez possa ser o caso de usar algum evento do campo do Dataset também. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Formato de Data do Windows
Na seção initialization coloque: ShortDateFormat := 'dd/mm/'; LongDateFormat := 'dd/mm/ HH:mm:ss'; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Findkey não está funcionando
Eu gosto de usar os recursos do Firebird pra isso. Crio uma exceção e em uma trigger verifico se o registro não existe, caso contrário chama a exceção. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente para XML
O ClientDataset não te atende? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: CopyFile não copia arquivo
Tentei usar o CopyFileEx da seguinte maneira:
if (Cardinal(CopyFileEx(PAnsiChar('Origem'),
PAnsiChar(ExtractFileDir('Destino'), nil, nil, nil, 0)) = 0) then
ShowMessage('Não foi possível copiar o arquivo);
Não encontrei exemplo no help do Delphi 7, por isso coloquei 3 parâmetros como
nil. O que tenho que colocar nesses parâmetros?
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] CopyFile não copia arquivo
Estou usando o CopyFile pra copiar um arquivo pela rede. Em alguns computadores funcionam, em outros não. O arquivo não é copiado, mas não dá nenhuma mensagem de erro. Tem como saber o motivo pelo qual o arquivo não foi copiado? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] radiobutton
Use um DbRadioGroup. Insira os itens na propriedade Items(Aberto, Fechado) e coloque na propriedade Values os valores a serem gravados(1,2) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Vaga para programador junior
VAGA PARA PROGRAMADOR DELPHI JUNIOR Local de trabalho : Belo Horizonte/MG Formação: Superior completo ou cursando Exigências - Experiência de 1 ano em Desenvolvimento Delphi - Conhecimentos em Firebird - Bons conhecimentos de modelagem de dados Desejável - Experiência em suporte a usuários - Experiência em manutenção de computadores, rede e software Requisitos Pessoais - Bom relacionamento interpessoal - Facilidade para trabalho em equipe - Flexibilidade - Organização - Iniciativa Salário R$ 900,00 Encaminhar currículos para [EMAIL PROTECTED] com cópia para [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Consulta com ClientDataSet
Parece que você está esquecendo de colocar o caracter '%' depois do valor. Ex.: Select * From Tabela Where Campo Like 'X%' [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off Topic - Programador
Dê mais detalhes, por favor. Salário, local de trabalho, atividades, etc... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Incluir itens na propriedade do componente
Pessoal, Estou desenvolvendo um componente que tem uma propriedade do tipo TField. Criei a propriedade que aparece no Object Inspector na forma de combobox. Gostaria de saber como incluo os itens(TFields) nesse combobox a partir dos campos de uma consulta feita dentro do código desse componente. [As partes desta mensagem que não continham texto foram removidas]
