danielrgoes

E ai pessoal to com a seguinte situação vamos ver se alguém tem uma luz eu utilizo BD Firebird 1.5 e Delphi 2007 com o SQL, CDS,DSP e DS eu preciso fazer assim dar um select SELECT DISTINCT COD_TABELA,COD_ITEM FROM ITEM_TABELA_PRECO WHERE COD_ITEM = 2 e com o resultado dar outro select assim (sendo que eles tem COD_TABELA com PK e FK) SELECT COD_TABELA FROM TABELA_PRECO WHERE COD_TABELA = (resultado do outro) eu ate fiz um while e guarde os COD_TABELA em um ListBox ai depois montem uma frase com ele mais é meio estranho assim se der muitos resultados o sistema vai ficar lerdo alguém tem alguma soluçao melhor ?????

Jhonas resolvi, não da forma que eu queria mais deu certo pra ser email o campo Para e CC pelo menos tem que estar preenchido como eu não quero excluir o email usei assim OMensagensFiltradas := ItemExcluido.Restrict('[To] = ' + QuotedStr('') + ' AND ' + '[CC] = ' + QuotedStr('')); isso faz com que o OMensagensFiltradas fique apenas com a referencia dos itens que possuirem o campo Para = '' e CC = '' os contatos possuem essa caracteristicas. eu falei que não é ideal porque corro o risco de o usuario fazer um rascunho, excluir e depois ir lá no itens excluidos procurar o rascunho pode ter o campo Para e CC em branco porem foi a unica solução que eu achei ate agora palhativa mais server

Joguei e aparecem todos que estão na caixa itens excluidos

Pessoal tive uma luz esta quase mais preciso de ajuda ainda achei essa linha OMensagensFiltradas := Omensagens.Restrict(‘[ReceivedTime] >= ‘ + QuotedStr(’01/01/2007′)); ela filtra todas as mensagensa por data porem por data não da alguém sabe o parametro para saber se é email ou contato, pelo icone por exemplo achei um tal de FlagIcon OMensagensFiltradas := Omensagens.Restrict(‘[FlagIcon] = ' MAIS COMPARAR COM QUE ?????)); alguém já usou isso? então Jhonas é assim Primeiro eu excluo o contato ai ele vai pra Itens Excluidos do meu email ai eu tenho que excluir o contato excluido dos itens excluidos porem eu não posso excluir td que esta no itens excluidos eu tenho que saber o que é contato e o que é email

Galera vamos ver se melhora pra alguém me ajudar Esse Codigo que eu postei ai embaixo é pra ele excluir os itens da pasta itens excluido. O que acontece é o seguinte eu fiz um programa para importar contatos (esta funcionando) try Gauge1.Progress := 1; MSExcel := CreateOleObject('Excel.Application'); MSExcel.WorkBooks.Add; MSExcel.WorkBooks.Open(caminho); MSExcel.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate; Gauge1.MaxValue := MSExcel.ActiveCell.Row - 1; i := 2; while i <= MSExcel.ActiveCell.Row do begin Gauge1.Progress := Gauge1.Progress + 1; NewContactItem(MSExcel.ActiveSheet.Range['A' + IntToStr(i)].Value,MSExcel.ActiveSheet.Range['B' + IntToStr(i)].Value); i := i + 1; end; Except MSExcel.quit; MessageDlg('Erro ao Importar os Contatos (A)',mtWarning,[mbOK],0); end; so que antes de importar eu excluo (esta funcionando) outlook := CreateOleObject('Outlook.Application'); NameSpace := outlook.GetNameSpace('MAPI'); Contacts := NameSpace.GetDefaultFolder(olFolderContacts); i := 1; Total := Contacts.Items.Count; //TotalExcluidos := Contacts.Items.Count; Gauge1.MaxValue := Contacts.Items.Count; while i <= Total do begin Gauge1.Progress := Gauge1.Progress + 1; Contact := Contacts.Items.item(i); Contact.delete; Total := Total - 1; end; so que na hora que exclui os contatos vão para a pasta de itens excluidos e eu não posso esvaziar essa pasta eu quero apenas excluir o que é contato nossa to quebrando a cabeça aki ehehehe

E ai Pessoal To com o seguinte codigo para excluir todos os itens da pasta itens excluidos outlook := CreateOleObject('Outlook.Application'); NameSpace := outlook.GetNameSpace('MAPI'); ItensExcluidos := NameSpace.GetDefaultFolder(olFolderDeletedItems); i := 1; Gauge1.MaxValue := TotalExcluidos; while i <= TotalExcluidos do begin Gauge1.Progress := Gauge1.Progress + 1; ItemExcluido := ItensExcluidos.Items.item(i); ItemExcluido.delete; TotalExcluidos := TotalExcluidos - 1; end; Outlook := UnAssigned; Ate ai td bem funcionando porem eu gostaria de excluir apenas os itens que tenha o campo Para em branco antes do ItemExcluido.delete; colar um if (o campor para em banco) then Delete mais não acho o dito cujo do campo

Bom dia pessoal Gostaria de saber se alguém tem o link para eu fazer download do progress TRIAL 10.1C para arquiteruta itanium do HP-UX para eu fazer testes Att Daniel

Bom dia pessoal estou precisando da ajuda / dica de vocês eu uso o Firebird com o delphi 2007 e os componentes SQL,CDS,DSP,DS para manipular o Banco de dados eu uso para fazer um log regrinhas como if modulo.cds_tabelaCAMPO.oldValue <> modulo.cds_tabelaCAMPO.value Then begin Grava o log porque o campo foi alterado end; so que isso da muito trabalho gostaria de saber se alguém tem uma dica melhor pra isso

Boa Tarde pessoal Eu achei que ia ser facil pois XML esta em evidencia mais procurei e não encontrei o exemplo abaixo para ler XML Node := XMLDocument1.DocumentElement.ChildNodes.FindNode('ide'); if (node <> nil) then begin ListBox2.Items.Add('CNPJ.....: ' + Node.ChildNodes['natOp'].Text); end; então esse exemplo eu consigo extrair dados de XML comum mais da NF-e não alguém tem alguma idea

Jhonas antes de mais nada obrigado pelas ajudas Porem o IOPort não funciona o D2007 ou você tem algum que funcione ???

Eu baixei essa versao que aparentemente é para XP http://www.geekhideout.com/parmon.shtml E mesmo assim não deu certo

Segue o link do parmon http://www.geekhideout.com/downloads/parmon.zip

então Jhonas Foi exatamente o que eu usei so que presisava ver o resultado qual pino da LPT1 foi enviado o sinal Ai usei o Parmon, mas não mostra nada no display dele por isso to achando que a aplicação não esta funcionando

Bom dia Pessoal Pegue esse codigo na internet para controlar a porta paralela procedure outportb(EndPorta: Integer; Valor:BYTE); stdcall; external 'inpout32.DLL' name 'Out32'; function inportb(EndPorta: Integer): BYTE stdcall; external 'inpout32.DLL' name 'Inp32'; procedure TForm1.Button1Click(Sender: TObject); begin outportb($378,$01); end; Porem baixei o Parmon para ver o resultado mais quando eu clico no botão para acender o LED do Parmon nada acontece alguém tem uma ideia ?? Estou usando Windows 7 com o Delphi 2007

Bom dia pessoal Eu faço aki na empresa um importação de contatos para o Microsoft Outlook com um arquivo .csv gostaria de saber como faço um script para fazer isso automatico ou seja importar para o MO via delphi os contatos Obrigado

Bom dia Pessoal gostaria de saber se alguém conhece algum componenrte de preferencia Free que faz fluxograma tem o TreeView que faz algo similar mais queria mais visual com os desenhos do fluxograma

então Jhonas sem codigo mesmo eu segui o explo do link abaixo http://www.resumoti.com.br/?p=347 So foi ligação de componente bo banco

Pessoal tennho uma tabela com a seguinte estrutura ID Nome Parent 1 Despesa 2 Pessoais 1 3 Empresa 1 4 Cartao de Crédito 2 5 Visa 4 6 MasterCard 4 7 Luz 2 8 Água 2 9 Celular 2 10 Salários 3 11 Impostos 3 12 FGTS 11 13 Darf Simples 11 Inseri um JvDBTreeView, ligue o seu DataSet a tabela acima descrita (Usei tanto o CDS quando o RxMemoryData). Mudei as propriedades do JvDBTreeView DataSource -> DataSource1 DetailField -> Parent IconField -> ID ItemField -> Nome MasterField -> ID RowSelect -> True PersistentNode -> True e mesmo assim não apareced a estrutura no JvDBTreeView O QUE ESTOU FAZENDO DE ERRADO

Bom dia Pessoal Eu fiz um codigo para exportar dados para o Excel ExcelApplication1 := TExcelApplication.Create(nil); ExcelApplication1.Workbooks.Add(EmptyParam,0); ExcelApplication1.Visible[0] := True; Planilha := ExcelApplication1.Workbooks [1].Worksheets[1]; Planilha.Cells[1,1].Value := 'RELATÓRIO DE COMPUTADORES'; Planilha.Cells[1,1].Select; //seleciona a celula Planilha.Cells[1,1].Font.Bold := True; //coloca em negrito Planilha.Cells[1,1].Borders.LineStyle := 1; Planilha.Cells[1,1].Borders.Color := clBlack; Planilha.Cells[1,1].Interior.Color := clYellow; // muda a cor d fundo da linha Planilha.range['A1:N1'].Mergecells := True; //mescla as celulas Planilha.Cells[1,1].HorizontalAlignment := xlcenter; ExcelApplication1.columns.AutoFit; Planilha.SaveAs(SaveDialog1.FileName); ExcelApplication1.Quit; ExcelApplication1.Free;//libera memoria Ate ai sem novidades funcionou Porem o excel precisa estar fechado se estiver aberto da Erro alguém sabe como contornar ? Pessoal revolvi apaguei a linha : Planilha.Cells[1,1].Select; //seleciona a celula Obrigado

Jhonas é exatamente isso só mudei a mascara para Planilha.Cells[linha,col].NumberFormat := '#.##0,0000' Obrigado

Jhonas Perfeito para a dica da centralização porem não tem como formatar a celula para 2 casas decimais sera que você tem alguma ideia?

Boa Tarde pessoal Fiz um modulo no meu programa que pega os dados do banco e joga em uma planilha do Excel, esta td funcionadndo eu consegui fazer quase td tamanho da fonte, negrito etc ... Planilha := ExcelApplication1.Workbooks [1].Worksheets[1]; Planilha.Cells[1,col].Select; //seleciona a celula Planilha.Cells[1,col].Font.Bold := True; //coloca em negrito Planilha.Cells[1,col].Borders.LineStyle := 1; Planilha.Cells[1,col].Borders.Color := clBlack; mais tem 2 coisas que eu preciso e não consigo - Colocar o texto centralizado na celula - E mostrar os calores Numericos com 2 casas decimais

Jhonas o que esta acontecendo é que não entra no evento DBGrid1DrawDataCell como funciona isso quando entra no evento?

Jhonas eu já tinha feito isso porem fiz novamente e não deu certo coloquei o codigo nos eventos descritos e o DBGrid não fica transparente

E ai Pessoal Parece uma pergunta meio batida mais encontrei varia dicas aki na internt e nehuma funcionou eu tenho um panel com uma imagem cobrindo td ele e um DBGrid encima eu quero deixar o DBGrid transparente para que aproveite a imagem como fundo