Re: [delphi-br] Duvida NFe com duas CFOP

Rubem, Convivo com os mesmos problemas aqui em Porto Alegre. Mas é bom saber que existem exceções. Sucesso ! Moacir Em 17/06/2010 11:01, Rubem Rocha escreveu: > Discordo de você quando diz que fui infeliz em meu comentário. A experiência > mostra que muitos contadores não possuem o devido con

Re: [delphi-br] Função Explode

Evaldo, Use esta que adaptei do PHP: function Explode(delimiter:string; source:string) : TStringList; var c : word; begin Result:=TStringList.Create; c:=0; while source<>'' do begin if Pos(delimiter,source)>0 then begin Result.Add(Copy(Source,1,Pos(delimiter,source

Re: [delphi-br] ajuda sql uso do or ?

Alessandra, Tente assim: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F','M') Sucesso, Moacir Em 22/04/2010 22:23, alessandra porto escreveu: > Peguei um banco velho de cadastros de clientes > que possui uma serie de erros e preciso > pesquisar todos os clientes que estão cadastrad

Re: [delphi-br] MySQL Web, Conexão via Zeus , procedimentos

Opa !! Quer dizer que pra me conectar com qualquer banco de dados utilizando ZEOS não preciso de DLL´s ?? Acredito que vc esteja errado. Eric, as DLL´s necessárias para a conexão com os seus respectivos bancos de dados vc encontra no subdiretorio LIB da instalação do ZEOS. Sucesso !! Moacir

Re: [delphi-br] Protesto

Um pequeno comentário: Todos aqui ajudam de maneira gratuita e dentro do tempo que dispõe para isto. O trabalho de moderação, acredito, seja feita nos mesmos moldes.. Portanto, sejamos pacientes. Sucesso a todos ! Moacir Em 19/04/2010 09:06, Walter Chagas (Bol) escreveu: > Só lembrando que ne

Re: [delphi-br] Desenhar Bitmap em área não transparente do TPageControl

Eduardo, Coloque um painel ali e dentro do painel o teu bitmap. Moacir Em 04/04/2010 22:49, Eduardo Silva dos Santos escreveu: > Olá pessoal, alguém tem alguma dica de como exibir um bitmap naquela área do > PageControl? área após o última aba. > segue imagem para ilustrar: http://yfrog.com/1rp

Re: [delphi-br] Procedure para calcular idade no firebird 1.5

Dimas, Mas se tens a rotina em Delphi porque não a adaptas para uso com Firebird ?? A sintaxe no firebird e praticamente a mesma.. Veja como fica o exemplo que te mandei: SET TERM ^ ; CREATE OR ALTER PROCEDURE CALCULAIDADE ( ddata date = current_date, ddataatual date = current_date)

Re: [delphi-br] Procedure para calcular idade no firebird 1.5

Dimas, Veja se esta função escrita em Delphi te ajuda ai. function MostraIdade(dData : tDateTime = 0 ; dDataAtual : tDateTime = 0 ) : string ; var iAnoIdade, iMesIdade, iDiaIdade, iAnoAtual, iMesAtual, iDiaAtual : Integer; iAno, iMes, iDia : Integer; begin

Re: [delphi-br] Delphi e MySQL - SQL de insert com caracteres especiais

Eduardo, Tente usar a função QuotedStr: QryInsert.SQL.Text := ' insert into tabela (CAMPO1, CAMPO2) values (0, '+QuotedStr(HTML)+') '; Sucesso !! Moacir Em 25/03/2010 10:13, Alemão escreveu: > Olá Eduardo. > > Também não funciona desta maneira... Acho que é pq o HTML ja tem as aspas > em s

Re: [delphi-br] Re: importar arquivo com qualificador de texto

Marcos, Tente usar esta função para fazer o split dos dados: function Explode(delimiter:string; source:string) : TStringList; (* // Name : Explode // Purpose : each of which is a substring of string formed by splitting it on // boundaries formed by the string delim. It does not support PHP's //

Re: [delphi-br] importar arquivo com qualificador de texto

Ralp, Aparentemente as aspas duplas indicam que aqueles dados são textos e os campos sem aspas duplas são numéricos: Veja se esta função aqui te ajuda com este teu problema: function Explode(delimiter:string; source:string) : TStringList; (* // Name : Explode // Purpose : each of which is a sub

Re: [delphi-br] Programa compilado no Windows 7 está lento

Fellipe, Humm.. Meu D7 ainda não foi notificado disto ou esqueceu de ler o blog do Andreano, pois funciona PERFEITAMENTE no W7 32 e 64 bits. Sucesso ! Moacir Em 23/02/2010 20:25, Fellipe Henrique escreveu: > Bom amigos é o seguinte, como o próprio Andreano já disse, o único delphi > compati

Re: [delphi-br] somar numero inteiro a uma data ajuda

Alessandra, O problema parece estar no teste: "if (DATA + NDIAS) = now then", pois se a soma não resultar exatamente na data e hora atual não funciona ! troque por procedure TDm.Cds_FinanceiroCalcFields(DataSet: TDataSet); begin if (Cds_FinanceiroDTA_PEDIDO.AsDateTime + Cds_Financeiro

Re: [delphi-br] [OFF-TOPIC] Servidor Web

Outra opção seria o WAMP (embora seja especifico para a plataforma Windows) www.wampserver.com/en/download.php Sucesso ! Moacir Em 04/02/2010 14:46, Marcos Bernardo escreveu: > Eu ja tive muitos problemas com isso... versão.. instalação entre apache e > php e mysql... > > uma sugestão... > > a

[delphi-br] OT - Impressão de etiquetas ZEBRA tlp 2844

PessoALL, Estou precisando imprimir etiquetas numa impressora ZEBRA TLP 2844 pela porta USB. A impressão ja ocorre 100% pela porta LPT1 e COM1, mas agora o cliente esta trocando o desktop por NB sem porta paralela e sem porta serial, somente USB. Já tentei usar algumas dicas antigas aqui da

Re: [delphi-br] Conectar Firebird pela Internet

Voodoorv, Voce precisa informar o IP EXTERNO da máquina servidora. Caso no local aonde esta o servidor não tenha IP FIXO, use um cliente dinâmico de IP, por exemplo o NO-IP (www.no-ip.com). Veja como configurar o NO-IP aqui (http://videolog.uol.com.br/video.php?id=396589) Depois basta conecta

Re: [delphi-br] pesquisa por data e cliente

Francisco, Ajuste os nomes dos campos e o nome da tabela e acredito que deva ser o que queres. Select CLIENTE, sum(VALOR) as VALORTOTAL from MINHATABELA WHERE CLIENTE=:CLIENTE AND DATA BETWEEN :DATAINICIAL AND :DATAFINAL GROUP BY CLIENTE ORDER BY CLIENTE Sucesso !! Moacir Em 25/12/2009 23:25,

Re: [delphi-br] Criar Procedure em Tempo de Execução

Tire o suspend. Ele não tem função alguma ali. Sucesso ! Moacir mario.pagnozzi1979 escreveu: > Amigos, > Encontro-me com o seguinte problema, preciso atualizar a base de dados > de um cliente, pra isto estou criando um aplicativo para que atualize essa > base. Até nas alterações de tabe

Re: [delphi-br] Testar string

If pos(stParametro262 ,'00,01,02,03,04,05,06,07,08')=0 then Berdam escreveu: > Existe a possibilidade de realizar este teste em delphi sendo a variavel > stparametro262 uma string ?? > > Com char é possível, mas com string é ?? > >if stParametro262 <> ['00', '01', '02', '03', '04', '05',

Re: [delphi-br] Desabilitar PopupMenu TaskBar do aplicativo

Juliomar, A opções do Menu popup mudam de acordo com o BorderStyle do formulário. Veja se isto te ajuda ai. Sucesso !! Moacir Juliomar Marchetti escreveu: > Boa tarde > Leandro > Valeu pela ajuda, mas ele só desabilita no form, eu gostaria de desabilitar > ele no barra de tarefas. > > Quando

Re: Res: Re: [delphi-br] Desenvolver software 64 bits com Delphi

Asafe Locker: Asafe Locker escreveu: > Claro que temos o direito de reclamar so acho que temos que reclamar no lugar > certo e com as pessoas certas. Não adianta vir um cidadão aqui e ficar > malhando o Delphi como se ele ou a Embarcadero tivessem mais defeitos do que > qualidade. > > Não f

Re: [delphi-br] Desenvolver software 64 bits com Delphi

r o Grupo e o Yahoo! Apague o conteúdo irrelevante! > > --- Em ter, 1/12/09, Moacir - GMail escreveu: > > De: Moacir - GMail > Assunto: Re: [delphi-br] Desenvolver software 64 bits com Delphi > Para: delphi-br@yahoogrupos.com.br > Data: Terça-feira, 1 de Dezembro d

Re: [delphi-br] Desenvolver software 64 bits com Delphi

Ricardo, Acredito que o colega tem todo o direito de reclamar, comentar, etc. Esta é uma lista voltada para o Delphi, e o assunto levantado por ele é pertinente. As colocações dele encontram eco na grande maioria de nós, proprietários de uma licença de uso do Delphi, independente de versão, já

Re: [delphi-br] Desenvolver software 64 bits com Delphi

Acho que o Delphi ainda não ! Da uma olhada no Lazarus (www.*lazarus*.freepascal.org), este com certeza ja faz isto, compila para Windows (32 / 64), Linux e Mac. Sucesso !! Moacir Ricardo César Cardoso escreveu: > Basta que o compilador seja escrito, ou melhor, dê suporte para essa > plataf

Re: [delphi-br] nome do arquivo com data

Ou então, nomearquivo := 'NomeArquivo_'+formatDateTime('mmdd',Now)+'.txt' ou nomearquivo := 'NomeArquivo_'+formatDateTime('mmdd_hhnn',Now)+'.txt' Andre Yahoo escreveu: > nomearquivo := 'NomeArquivo'+DatetoStr(Now)+'.txt' > >

Re: [delphi-br] intervalo entre duas datas

Leonardo, Definitivamente a função DaysBetween não toma conhecimento dos feriados !! O cálculo é matemático ! Ex.: Data Inicial: 1/11/2009 Data Final: 30/11/2009 Dias entre datas = 29 (30 - 1) Data Inicial: 1/12/2009 Data Final: 31/12/2009 Dias entre datas = 30 (31 - 1) Data Inicial: 1/12/200

Re: RES: [delphi-br] NFe usando ACBR

Grande informação Evandro, vou me cadastrar. Grato, Moacir Evandro Siqueira escreveu: > Estou usando desde 01/09 e o que posso dizer é: Show de Bola!!! Tem > atualizações praticamente diárias e atende muito bem às nossas > necessidades. Existe uma lista de discussão muito prestativa e a > co

Re: [delphi-br] NFe usando ACBR

Marcos, Grato pela pronta resposta. Na verdade o que busco é a opinião de quem ja esta usando, assim como vc, NFER com o ACBR. Com o uso surgem novos dados e é isto que estou buscando. Quaisquer comentários a respeito do uso da ACBR/NFE são bem vindos, pela lista ou em pvt. Sucesso a todos !

[delphi-br] NFe usando ACBR

Pessoal, Alguem ja implementou alguma coisa para NFE usando a ACBR ?? Em especial para uso aqui no RS ?? Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja esta usando Sucesso !! Moacir D7 + Zeos + Firebird 2.0/MySQL ajama_1 escreveu: > Muito Obrigado Marcelo, deu ce

Re: [delphi-br] [Off] Duvida exportação MyS ql para Firebird

Substitua somente a pasta dos dados do teu cliente que esta dentro do pasta data , algo como: Ex.: ..mysql\mysql5.x.xx\data\meuprojeto meuprojeto = nome da pasta de dados do teu cliente. Sucesso !! Moacir Nazareno Neto escreveu: > Estou com o seguinte problema, estamos com um cliente que qu

Re: [delphi-br] Erro ao carregar dll

Alisson, De uma googlada e vc obterá algumas respostas. Pelo que vi aqui, pode se tratar de virus !! http://www.google.com.br/search?sourceid=chrome&ie=UTF-8&q=Libeay32.dll Sucesso !! Moacir Alisson Yahoo escreveu: >

Re: [delphi-br] Pesquiza com SQLQue ry - Ajuda TCC Último Ano!!!!!!!

Ricardo, Use a função UPPER do firebird para isto: sql :='select * from TB_PRODUTO where UPPER(NOME_PROD) like'++'%'+Ansiuppercase(edtBusca.Text)+'%'+; Sucesso !! Moacir ricardo_rmsr escreveu: > Bom dia ... Estou fazendo uma aplicação Delphi para meu TCC, esta aplicação > utili

Re: [delphi-br] Dados da tabela p ara array dinâmico

Adjalma, Vc esta usando o setlength da forma incorreta. Veja como seria, no teu caso: procedure TForm1.Button4Click ( Sender: TObject ); var i: InteGer; vetor_string_ dinamico: array of array of string; TamTabela: InteGer; begin ClientDataSet_ Clientes. Close; ClientDataSet_ Clientes. Open;

Re: [delphi-br] Dados da tabela p ara array dinâmico

Adjalma, me ocorreu que vc pode fazer o mesmo usando records.. Na seção 'type' declare: tDadosCliente = record Id : Integer; Nome: string; end; Depois é só alterar a rotina do botão: procedure TForm1.Button4Click ( Sender: TObject ); var i: InteGer; vetor_string_ dinamico: array

Re: [delphi-br] Ferramenta de fácil uso par a gerar intaladores

Inno setup com certeza !! http://www.innosetup.com Sucesso ! Moacir Silvio Clecio escreveu: > Hugo Vieira escreveu: > >> Gostaria de saber de vocês uma ferramenta rápida e fácil para a geração >> de instaladores(SETUP). ... >> > > Brother, veja isso: > [http://www.mail-archive.com/

Re: [delphi-br] Como enviar vários anexos u sando MAPI via Delphi?

Cesar, Tente enviar os anexos separados por #13, por ex.: MeusAnexos := 'arquivo1.txt'+#13+'arquivo2.txt' ; Sucesso !! Moacir Fellipe Henrique escreveu: > Olá Ricardo, > > Foi a primeira coisa que tentei mudar, porém continua a dar erro nº 2... não > adianta mudar o nFileCount, só se eu esti

Re: [delphi-br] Dúvidas em relação à s versões

Ricardo, Estou usando o Zeos no Dephi 7 e no Lazarus. E estou 100% satisfeito.. Até agora tenho conseguido converter satisfatoriamente todas as minhas aplicações desenvolvidas em D7 para o Lazarus, e recomendo o uso do mesmo. Sucesso !! Moacir Ricardo César Cardoso escreveu: > Quanto a

Re: [delphi-br] Gravar uma data em branco no firebird

auriston.delphi, dm.qyrecbto.FieldByName('UPGTO').Clear ; Sucesso !! Moacir auriston.delphi escreveu: > Salve Delphianos. > No comando dm.qyrecbto.FieldByName('UPGTO').AsDateTime := Date, preciso > trocar a funcao Date por uma data em branco, é possivel efetuar este processo > ? > > Uso D7+F

Re: [delphi-br] Dúvida com MEMO

Ops !! Eu havia entendido que ele 1º adicionaria os dados e depois queria evitar a sua edição, algo como: memo.readonly:=false; //-- Incluir dados; //-- Incluir dados; //-- Incluir dados; //-- Incluir dados; memo.readonly:=true; Moacir Jackson Gomes - Tools&Comps escreveu: >> Verifique

Re: [delphi-br] Mostrar janela encontrada com CreateMutex

Andrei, Este artigo deve resolver teu problema. http://delphi.about.com/od/windowsshellapi/l/aa100703a.htm Sucesso !! Moacir Andrei Luís escreveu: > Olá Jackson, > > Achei muitas dicas de sendmessage que maximizam a tela e/ou fazem o restore, > mas nenhuma funcionou por aqui. > > Abaixo meu c

Re: [delphi-br] Dúvida com MEMO

Verifique a propriedade readonly.. Jackson Gomes - Tools&Comps escreveu: >> So que, as linhas são adicionadas, mas podem ser alteradas. >> existe algum comando que a eu adicionar as linhas no memo, >> o usuario na possa alterar-las ? para nao prejudicar na impressao do cupom? >> > > Enable

Re: RES: [delphi-br] DELPHI 7

eçar > esse processo aqui na empresa. > > Moacir - GMail escreveu: > >> Jose, >> >> Da uma olhada com carinho no lazarus.. >> Dependendo das tuas necessidades ele ate pode te suprir, e é 0800 ;) >> >> www.*lazarus*.freepascal.org >&g

Re: [delphi-br] um misterio no evento...

Cleiton, No evento OnKeyDown acrescente esta linha: if (key =VK_F10) then begin //-- AQUI key :=0 ; btConsultaClick(Self); end; Sucesso ! Moacir Cleiton Maciel Reis da Silva escreveu: > Galera delphiana, eu sei que na programação tudo tem um > lógica. Mas > sinceramente não estou cons

Re: RES: [delphi-br] DELPHI 7

Jose, Da uma olhada com carinho no lazarus.. Dependendo das tuas necessidades ele ate pode te suprir, e é 0800 ;) www.*lazarus*.freepascal.org Sucesso !! Moacir Jose Newton Araujo escreveu: > Caro Ricardo > > Eu nunca tive versão nenhuma versão do Delphi, porque sempre usei a da > empresa ond

Re: [delphi-br] Delphi 7 para .NET

Walter, Vejo que não estou só !! Neste instante estou debruçado no Lazarus... Não, ele não é páreo nem pro D7 (eita Delphizinho que deu baum sô !!), mas funciona que é uma belezinha... To até pegando gosto pelo bichinho. Nem bem dei uma googlada e la estava: zeos, rxlib, e mais uma meia duzia d

Re: [delphi-br] Alguem usa o componente tBackupFile?

Rafael, Qual é exatamente o problema que ocorre ?? Moacir Rafael Marques escreveu: > Alguem na lista que trabalha com este componente está conseguindo utiliza-lo > no Delphi2009??? > > eu uso ele desde a versao 7 (tenho alguns sistemas utilizando-o em varias > telas) e no delphi 2009 ele n fu

Re: [delphi-br] capturar campo do dbgrid

Alex, Use o evento OnCellClick para isto: procedure TForm1.DBGrid1CellClick(Column: TColumn); begin Edit1.Text := Column.Field.AsString; end; ou o evento OnDblClick: procedure TForm1.DBGrid1DblClick(Sender: TObject); begin Edit1.Text := DBGrid1.Columns[1].Field.AsString; //-- Indique qual

Re: [delphi-br] Re: Para o Andr eano Lanusse - Tamanho do executável gerado pelo delphi 2010

Simoesluciano, Não me parece que este teste tenha sido o suficiente para determinar se o EXE gerado faz algum tipo de comunicação ! Ele pode estar fazendo este contato a cada X execuções, a cada X dias, ou de uma forma aleatória. O comportamento seria algo como o de um virus, acredito eu. Suc

Re: [delphi-br] Para o Andreano L anusse - Tamanho do executável gerado pelo delphi 2010

Fabiano, Após uma breve consulta: VS 2008 PRO - R$ 2.485,00 Sucesso !! Moacir Fabiano Moura escreveu: > Boa tarde! > > Um dos motivos na minha opinião do Delphi perder o mercado é o alto valor > das licenças. Fiz um orçamento com umas das empresas conveniadas da > Embarcadero e que vende o

Re: Res: [delphi-br] Meio Off - Apresentação Delphi 2010

novamente a inscrição consta como já efetuada. > > Vlw!!! > > > > > ________ > De: Moacir - GMail > Para: delphi-br@yahoogrupos.com.br > Enviadas: Sexta-feira, 28 de Agosto de 2009 11:31:21 > Assunto: Re: [delphi-br] Meio Off - Apresentaçã

Re: [delphi-br] Meio Off - Apresentação Del phi 2010

Luiz, Recebi minha confirmação sem problemas. Sucesso !! Moacir Luiz Carlos escreveu: > Pessoal, alguma posição sobre esse evento? > > Efetuei a inscrição, porem não recebi nenhuma confirmação por e-mail! > > > Abraços... > > > >

Re: [delphi-br]

Guilherme, Pelo que pude entender do teu email vc precisaria de uma coluna com o numeração sequencial dos registros, algo como: 1 Campo1 Campo2 Campo3 2 Campo1 Campo2 Campo3 3 Campo1 Campo2 Campo3 4 Campo1 Campo2 Campo3 Faça uma proced

Re: [delphi-br] Monitorar rede

Rodrigo, Que tipo de servidores vc quer monitorar ?? Abraços, Moacir ps.: Espero que voce não se importe de ser ajudado por um semi-analfabeto... Gmail - Sharplinux escreveu: > Pessoal, boa noite > > Estou tentando desenvolver uma aplicação onde ele irá ficar monitorando > os servidores a id

Re: [delphi-br] Memo ou RichEdit - Problema

Hugo, Uma solução simples e rapida e trocar a fonte do teu memo por courier. Sucesso !! Moacir Hugo Vieira escreveu: > Meus amigos delphianos, > > > > > > Estou em fase final de desenvolvimento de um PDV. > > > > Tudo funciona perfeitamente, porem ainda possuo algumas broncas p resolver.

Re: [delphi-br] Sql usando union e order by

Marcelo, O "avg(0) AS DIAS" pode, e deve, ser substituido por: Cast(0 as integer) ou Cast(0 as numeric(12,2)) ou de acordo com o campo correspondente ao union Sucesso !! Moacir Marcelo Luiz Onhate escreveu: > Para fazer um GROUP BY... nos campos que vai fazer beleza, mas nos > outros vc v

Re: [delphi-br] [MAF] Salvar dados no MySQL

E se vc usar um no-ip da vida ?? Ai a liberação se daria para a tua url. [ ]´s Moacir Marcos Abreu Ferreira escreveu: > Mas o acesso externo é sempre liberado a um determinado IP, e como estou > usando conexao por modem 3G, o IP muda a cada conexao. > > > Att, > > Marcos A. Ferreira > Sã

Re: [delphi-br] [Entrevista - Ramon Durães] Você ainda lembra do Clipper? Vamos migra r para .NET!

E eu ainda perco meu tempo lendo isto.. Rubem Rocha escreveu: > > > http://www.ramonduraes.net/post/Voce-ainda-lembra-do-Clipper-Vamos-migrar-pa > ra-NET!.aspx > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > >

Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast

valdirdill, Acrescente uma coluna com o tipo: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL, Cast('EM ABERTO' as Varchar(10)) as TIPO FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS V

Re: [delphi-br] Localizar TXT

Filippe, Tente algo assim: Function Checa_IP(IP : String = '') : Boolean; var iPos : Integer; aTexto : tStringList ; begin aTexto := tStringList.Create; aTexto.LoadFromFile('MeuArquivodelog.txt'); iPos := aTexto.Indexof(IP); FreeAndNil(aTexto); Result iPos <>-1; end;

Re: [delphi-br] [OFF] Inglês (alguém da lista já...)

EmbarcaDelphi, Uma ótima opção é o curso da bbs, totalmente 0800 http://www.bbc.co.uk/portuguese/learningenglish/ Sucesso !! Moacir EmbarcaDelphi escreveu: > Aproveitando o tópico (coloquei um OFF). > Alguém sabe informar se aquele curso on-line de inglês é bom, realmente > dá para aprender a

Re: [delphi-br] Re: Hamster I - NitGen

Fernando, o SDK deste finger print tem o que vc precisa. Olhe neste diretório: C:\Arquivos de programas\NITGEN eNBSP\SDK\Samples\DLL\Delphi\UITestDP Caso vc tenha instalado em outro diretório que não o padrão, olhe no subdiretorio SDK\Samples\DLL\Delphi\UITestDP Sucesso !! Moacir Fernando

Re: [delphi-br] componente para visualizar tif

willian, da uma olhada em http://www.torry.net/quicksearchd.php?String=tiff&Title=Yes Sucesso !! Moacir Willian Leal escreveu: > Eu estava querendo evitar usar o Shell execute, mais se não achar nenhuma > solução o jeito vai ser usar ele mesmo. > > 2009/7/30 Camoloze Terra > > >> Willian,

Re: [delphi-br] Como eu insiro novos camp os em uma tabela DBF em tempo de execução e t ambém como saber se o campo na tabela existe o u não.

Walter, - Para verificar se determinado campo existe na tabela basta conectar na mesma e usar as propriedades find e fieldlist para isto. function Find (const Name: string): TField; reintroduce; Returns a field component given the field name. Description Call Find to determine if a specified

Re: [delphi-br] RE:Listbox itens (foi Unknown)

Wilson, Dei uma googlada e achei este codigo, veja se satisfaz tuas necessidades: procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin ListBox1.Canvas.FillRect(Rect); if ListBox1.Items.Strings[index] = Edit1.Text then List

Re: [delphi-br] [OFF-TOPIC] Minha aplicação - AppEngine - Teste

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/ > >

Re: [delphi-br] [OFF] Curiosidades da lista Delphi-BR

Walter, Bons tempos !! Saudades do Bruno, por onde andará ?? Uma pequena correção, somos dois daquela época, na verdade acredito que sejamos em maior número, quem se 'acusa' ai ?? Sucesso !! Moacir ps.: Na verdade entrei para a lista em meados de 97, usava Delphi 2 com (não me gozem !) para

Re: [delphi-br] como saber se um campo é date

Leonardo, Procure no Help do Delphi por FieldType e DataType MinhaQuery.Fields[0].datatype... Veja se isto te ajuda ai. Sucesso ! Moacir Leonardo Baldino escreveu: > alguem sabe como eu faço para sabe o um campo de uma query que eu tenho é um > campo date ou naum em tempo de execução atraves

Re: [delphi-br] Pegar o nome da unit

Ola José: Veja se isto resolve seu problema: Janela Ativa: = screen.ActiveForm.Name Controle Ativo: = screen.ActiveControl.Name Sucesso !! Moacir José Mário Silva Guedes escreveu: > Olá amigos, alguém sabe se existe alguma forma de saber o nome da Unit em > que estou no momento, algo

Re: RES: [delphi-br] DBGrid

Nivaldo, Use assim: If (DataCol=4) then Begin (Sender as TDBGrid).Canvas.FillRect(Rect); If Trim(Column.Field.Value)='S' then DM.imagens.Draw((Sender as TDBGrid).Canvas,Rect.Left+1,Rect.Top+1,25); //Neste caso é uma imagem que esta num Timages end; Sucesso !! Moacir

Re: [delphi-br] ajuda urgente sobre excel com delphi

Leonardo, Use os componentes da palheta ADO para isto. Vc consegue usar a planilha como se ela fosse uma tabela de dados. Sucesso !! Moacir Leonardo Baldino escreveu: > alguem sabe como eu faço para jogar os valores de uma planilha do excel para > um grid no delphi > >

Re: RES: [delphi-br] selecionando registros

Cicero, Fica quase impossível descobrir o problema com este tipo de informação: "O delphi dá erro de comando desconhecido na sql ... linha tal " Escreve TODA a mensagem de erro, bem como a instrução sql. Moacir cic...@fiosecabos.ind.br escreveu: > Coloquei resumido ... mas está

Re: [delphi-br] Dúvida com Zeos

Leonardo, Qual o erro reportado quando vc roda este select no ZEOS ?? Moacir Leonardo Quinino escreveu: > Pessoal, estou testando o Zeos LIb 6.5.5 , com Delphi 7 + Firebird 2.1 > Tive duas dúvidas. > > 1) em alguns campos do tipo NUMERIC (9,2) , no banco de dados 5.55 mostra > no componente,

Re: [delphi-br] Ajuda com Relatorio

Izaias, Tente assim: //-- Com Negrito Memo1.Font.Style := Memo1.Font.Style + [fsBold]; //-- Sem Negrito Memo1.Font.Style := Memo1.Font.Style - [fsBold]; Sucesso !! Moacir izaias_gomes escreveu: > se possivel me tirar duas dúvidas que não consegui resolver com ninguem, desde > já envio meu

Re: RES: [delphi-br] !!!Dúvida tabela!!!

Tem aspas demais ai !!! Deixe assim: sCampo:=Query1.FieldByName('CAMPOX').AsString; marcelo escreveu: > Para voce utilizar a sCampo e vir o valor que você quer , precisar se > assegurar qua a query foi aberta e também em qual evento você atribui o valor > da query a variável sCampo. > >

Re: [delphi-br] Trabalhando com DLL

Nayara, Reproduza aqui parte das informações da DLL, senão será impossível tentar te ajudar.. Ricardo César Cardoso escreveu: > Então vc vai ter que cansar os dedos e digitar pra gente as chamadas que a > DLL tem pois senão vai ficar quase impossível te ajudar. > > Usando o desconfiômetro e

Re: [delphi-br] Trabalhando com DLL

Nayara, Existem mais de um meio de acessar funções nas dll´s. Abaixo uma das forma de faze-lo (neste caso com uma dll da Bematech): na seção 'VAR' do teu form declare as funções que vc quer usar, por ex.: function Bematech_FI_AcionaGaveta:Integer; StdCall; External 'BEMAFI32.DLL'

Re: [delphi-br] Servidor para Delphi

Só complementando teus comentários: - Uso Linux no meu Servidor a mais de 12 anos. Nunca tive um unico problema que não fosse rapidamente solucionado e em 99,8% dos casos de forma remota (putty ou outra ferramenta semelhante). A duas unicas vezes que necessitei da presença do técnico foi na I

Re: [delphi-br] Mono para Multiempresa

Valdir, Tive uma situação parecida com a sua e resolvi criando um procedure. Veja o código abaixo: SET TERM ^ ; CREATE OR ALTER PROCEDURE GEN_EMPRESA ( cod integer = 1) as declare variable qtd integer = 0; begin select count(RDB$GENERATOR_NAME) from RDB$GENERATORS where RDB$GENERATOR_NAM

Re: [delphi-br] Obter IP pelo nom da máquina

Eu uso a mesma mas tratando a exceção: function GetIP(sHost : String):string; var WSAData: TWSAData; HostEnt: PHostEnt; begin try WSAStartup(2, WSAData); HostEnt := gethostbyname(PChar(sHost)); with HostEnt^ do Try Result := Format('%d.%d.%d.%d',

Re: [delphi-br] Preço do Delphi 2009 me assustou - ( TALVEZ SEJA OFF )

No meu caso, meu carro poe comida na mesa sim, pois ele é mais uma ferramenta de apoio !! Alguem ai ja se imaginou sem nenhum tipo de transporte proprio ?? Hummm.. complicado viu.. Talvez seja o caso de estudar a aquisição de outra versão do Delphi que não a Architect.. Agora, para a grande

Re: [delphi-br] Re: firebird - acessar campo auto incremento

Eu faço assim: IF ((NEW.ID_COMPRA IS NULL) OR (NEW.ID_COMPRA<1)) THEN NEW.ID_COMPRA = GEN_ID(GEN_COMPRAS_ID,1); felipe govoni escreveu: > estou usando a trigger assim: > > IF (NEW.ID_COMPRA IS NULL) THEN > NEW.ID_COMPRA = GEN_ID(GEN_COMPRAS_ID,1); > > > > > > 2009/4/30 Joao Henrique

Re: [delphi-br] Re: XML ou Access ou qual?

Eu usaria firebird embebed, rapido, simples e no futuro vc poderia use o firebird server se mudar uma unica linha de codigo. johny_rubens escreveu: > Olha, eu tive que desenvolver um simples programa e utilizei o sqllite, para > usar utilizei o componente zeosdbo, o qual uso para uso com o p

Re: [delphi-br] Class TQRLabel not found ???

Vc deve instalar o QuickReport que não vem instalado por default no Delphi 7. Va no diretorio bin da sua instalação do delphi e instale o pacote: dclqrt70.bpl Sucesso !! Moacir Fabio Thomaz escreveu: > Creio que são componentes do Quickreport (http://www.qusoft.com). > > 2009/4/26 nillgolv

Re: [delphi-br] Quando Mando Altera r Registro do Dia, Altera todos de Todos Os Dias do Mês!!!!

Rafael, Vc esqueceu de colocar na data na clausula where !! Query1.SQL.Add(' update PONTO set HORA_SAIDA = CURRENT_TIME where DATA=SEILAQUEDATAEH and CODIGO ='''+Query2.fieldbyname('CODIGO').asstring+); rafaelpinto19 escreveu: > > > Boa Tarde Pessoal, está acontecendo uma co

Re: [delphi-br] Licença delphi 7

Bruno, Acredito que vc possa sim comprar uma licença de terceiros, mas esta venda deverá ser comunicada a Borland/Inprise/Codegear/Embarcadero ou sei la mais quem.. Procure informar-se melhor a respeito. Este assunto ja foi profundamente debatido por aqui. [ ]´s Moacir Jhosef Marks escreveu

Re: [delphi-br] Erro ao entrar no IBExpert

Opa !! Estou exatamente com o mesmo problema aqui em duas maquinas diferentes!! Começou esta manhã. Qualquer informação é bem vinda Moacir Leandro - Grupos escreveu: > E ai pessoal blz... > > Seguinte, de uma hora para a outra meu ibexpert começou a apresentar a > seguinte mensagem quando ten

Re: [delphi-br] Problema ao criar SP

Faltou o nome do generator !!! ID = GEN_ID(**NOME_DO_GENERATO_DESEJADO**, 1); Ralp Alves Bezerra escreveu: > > > Nobres colegas, estou tentando criar esta SP no ibexpert mais não estou > conseguindo. > > -- STATEMENT -- > > CREATE PROCEDURE SP_GEN_OUTRO_CURSO_ID > > RETURNS

Re: [delphi-br] Delphi for .Net já era? Foi desc ontinuado, é verdade?

Eita !!! Ja ta virando namoro !! hauhauhauhauahuahuaha, só pra descontrair neste final de sexta !!! Moacir Bruno Lichot escreveu: > Nunca pensei de forma diferente :D > > > > > > > > Risos > > > > > > > > Abraços > > > > > > > > BL > >

Re: [delphi-br] [MAF] Ponteiro em um StringGrid

; advise the sender immediately by reply e-mail and delete this message. > Thank you for your cooperation. > > Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO > AMBIENTE. > ENVIRONMENT commitment and responsibility, think about Before Printing. > > > From: Moac

Re: [delphi-br] [MAF] Ponteiro em um StringGrid

Caso vc esteja usando um Richtext use: MeuRichText.Perform(EM_SCROLLCARET,0,0); Sucesso !! Moacir Marcos Ferreira escreveu: > Pessoal, > > estou fazendo um sistema que recebe informações de tempo em tempo e vou > colocando elas num StringGrid. Gostaria de deixar sempre a última linha

Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco?

gt; "query.Parameters.ParamByName('dt_inclusao').clear " > > Não funciona mesmo, em BDE tranquilo, em ADO/DBGO não vai. > > Estou utilizando ADO/DBGO > > Qualquer ajuda é bem-vinda, muito obrigado. > > []´s Nunes. >

Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco?

query.Parameters.ParamByName('dt_inclusao').clear jrsilvas...@yahoo.com.br escreveu: > Tenta query.Parameters.ParamByName('dt_inclusao').asvariant := null; > > > > - Original Message - > From: laureanonu...@yahoo.com.br > To: delphi-br@yahoogrupos.com.br > S

Re: Res: Res: Re: Res: [delphi-br] Impressão rave direto na impressora

> > > De: Bruno Lepesqueur > > Para: delphi-br@yahoogrupos.com.br > > Enviadas: Sexta-feira, 30 de Janeiro de 2009 9:42:28 > > Assunto: Res: Re: Res: [delphi-br] Impressão rave direto na impressora > > > > Pessoal... obrigado, mas

Re: Res: [delphi-br] Impressão rave direto na impressora

Bruno, Inclua na clausula USES (lá no inicio do teu fonte) a unit Printers; Após isto vc poderá fazer como abaixo descrito: Label1.Caption:=Printer.Printers.Text; ou algo do tipo If Printer.Printers.Text='' then ShowMessage('Nenhuma impressora configurada !!') else ShowMessage('Impressor

Re: [delphi-br] Função : Com que classe dev e-se definir um parametro do tipo hora (horári o)?

aModule.pas(86): E2003 Undeclared identifier: 'TTime' > > > Se puderem ajudar agradeço, sigo perdido. > > []´s Laureano Nunes > Delphi 2007 > POA/RS > > - Original Message - > From: "Moacir - GMail" > To: > Sent: Monday, January

Re: [delphi-br] Função : Com que classe dev e-se definir um parametro do tipo hora (horári o)?

Nunes, Troque de tDateTime para tTime !! function gravaLog (data : TDateTime; usuario : string; arquivo : string; hora : *TTime*):boolean;// <- aqui na definiçao da classe do parametro HORA esta o erro [ ]´s Moacir laureanonu...@yahoo.com.br escreveu: > Colegas, > > Eu tenho uma pequena

Re: [delphi-br] Aplicação Delphi (.ex e) em servidor WEB

Leonardo, Procure por BoletoPHP, de grátis e funfa 100% Leonardo Quinino escreveu: > traduzindo... nao vai rodar, estou com esse mesmo dilema, tenho que rodar > um aplicativo para boleto bancário dentro do site, eu já tenho o boleto > funfando certinho em desktop, para colocar a bagaça no s

Re: [delphi-br] Problema com SQL

Ridson, Use a numero da ordem da coluna, ou seja, select Saida.PRODUTO, Saida.SECAO, P.DESCRICAO, sum(QUANTIDADE) as QUANT, sum(VALOR_TOTAL) as VALTOT, P.CUSTO * sum(QUANTIDADE) as TOTCUSTO, (Sum(Valor_Total) - (P.Custo * sum(quantidade))) * (100 / (P.Custo * sum(quantidade))) as Acrescimo from P

Re: RES: [delphi-br] Dúvida com TStringList

Acredito que IndexOf seja mais adequado !! Sucesso e Um Ano Novo de muita Paz e Prosperidade a Todos !! Moacir Juliano Silva - Yahoo escreveu: > > > Outra alternativa, é antes de adicionar o texto no StringList você pode > verificar se a função POS retornar maior que zero, caso sim é porque

Re: [delphi-br] Erro ntdll.dll

valdirdill, A unica vez que passei por isto era um problema em um arquivo ini. Alguma coisa com o nome da seção não ter sido declarada [ ]´s Moacir valdirdill escreveu: > Estou tendo frequentes problemas com usuários do meu sistema. Não > consigo reproduzir o erro aqui em laboratório para de

  1   2   3   >