No evento OnclickCheck vc verfica se o item1 está selecionado.
if CheckListBox1.Checked[1] then
CheckListBox1.Checked[2] := False;
Não esqueça que a array começa do Zero.
[]'s
Em 06-08-2010 19:53, rodrigo escreveu:
Olá, tenho um checklistbox onde tenho dois vários itens, mas tem
Você pode abrir o .DPR do projeto e lá tem todas as units com suas respectivas
pastas.
att.
Alexandre
- Original Message -
From: alessandra porto
To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br
Sent: Friday, June 11, 2010 9:33 AM
Subject: [delphi-br]
Alessandra,
Abra o DPR, no comeco do arquivo tem o diretorio de cada PAS associado
ao projeto.
Obrigado
MuriloCunha
On 11/06/2010 09:33, alessandra porto wrote:
preciso de uma dica
em um sistema que estou mexendo
não consigo encontrar onde estão
determinado forms do projeto
pelo que
Albuquerque,
Tente o seguinte:
Edit1.Value := Edit2.Value;
Obrigado.
MuriloCunha
On 26/05/2010 15:25, Albuquerque wrote:
Tenho vários CurrencyEdits em 2 Panels distintos. Quando estou num Panel os
CurrencyEdits do outro Panel não são atualizados. Exemplo:
No Panel1 digito 10 no Edit1.
select codproduto,origem, count(*) from tmov group
by codproduto,origem order by codproduto,origem
--
José Henrique (Zote)
Analista de TI
Bludata Software
2010/5/25 Allan GabrielAM alla...@americamoveiseletro.com.br
Prezados, tenho uma tabela que tem armazenado os seguintes dados:
cod
Olá José, deu certo, obrigado mesmo.
Atenciosamente,
Rafael
- Original Message -
From: José Henrique (Zote)
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 25, 2010 8:44 PM
Subject: Re: [delphi-br] Ajuda com sql
select codproduto,origem, count(*) from tmov group
SELECT CAMPO1, CAMPO2, CAMPO3, SUM(CAMPO4) AS SOMA FROM TMOV
GROUP BY CAMPO1, CAMPO2, CAMPO3
ORDER BY CODPRODUTO, ORIGEM
O SUM irá somar os valores do seu campo.
o GROUP BY irá agrupar pelos demais campos...
o/
Em 25/05/2010 05:02, Allan GabrielAM escreveu:
Prezados, tenho uma tabela que tem
Olá,
vc pode fazer a análise de data de vencimento, se ela for anterior a
atual, então nela correrá juros. Vc pode dividir o valor de juros por
quantidade de lançamentos a ser baixados em atraso e ratear por igual
para cada lançamento ou dividir o valor do juro pela quantidade total de
dias
Prezado Eduardo.
O que costumamos fazer é:
1 - Analisar cuidadosamente o projeto em um todo, isso inclui, telas,
relatórios, regras de negócio, recursos externos (interfaces,
importações/exportações), enfim. Todo o ciclo de vida do sistema.
2 - ESTIMAR, de acordo com a expertise do time de
Verifique as configurações em Build Configuration, pela imagem esta em Base.
É o que eu imagino que possa estar lhe atrapalhando.
[As partes desta mensagem que não continham texto foram removidas]
Isso é, provavelmente, a parte mais crítica do projeto. Estimar o preço
baseado no tempo de desenvolvimento x custo por hora é o que quase todo
mundo faz (inclusive a empresa onde trabalho), mas pressupõe que o
cliente sabe exatamente o que ele precisa antes de o projeto começar e
que a análise e
da uma olhada ai...
http://scriptbrasil.com.br/forum/index.php?showtopic=103586pid=433423st=0#entry433423
é uma função pra copiar os dados do grid... mas vc pode ver como
funciona a rotina pra percorrer teu dataset...
o/
Em 11/05/2010 11:29, Richardson Freddo escreveu:
Pessoal.
Tenho um
Tenta esse codigo para pegar os registros selecionados
Joao
DBGrid1.SelectedRows.CurrentRowSelected := true;
qdettit.DisableControls;
for i := 0 to DBGrid1.SelectedRows.Count-1 do begin
qdettit.BookMark := DBGrid1.SelectedRows.Items[i];
end;
- Original Message
Exemplo de como faer uma varredura nos registros selecionados:
procedure TForm1.btnDoSumClick(Sender: TObject);
var
i: Integer;
sum : Single;
begin
if DBGrid1.SelectedRows.Count 0 then
begin
sum := 0;
with DBGrid1.DataSource.DataSet do
begin
noDbgrid use a propriedade rowselectall
ou algo precido
--- Em ter, 11/5/10, Richardson Freddo mjrkon...@yahoo.com.br escreveu:
De: Richardson Freddo mjrkon...@yahoo.com.br
Assunto: [delphi-br] ajuda com DBGRID
Para: Grupo delphi-br@yahoogrupos.com.br
Data: Terça-feira, 11 de Maio de 2010,
Olá,
Não sei se é inovador ou se já existe, mas algo tipo auto atendimento pela
internet. Não estou falando de se consultar ou fazer uma cirurgia pela
internet. Algo do tipo a pessoa se cadastra no site, vê relação de médicos por
especialidade, quais os dias/horários que eles atendem, solicita
vc poderia implementar a parte de RH, fazer levantamentos sobre as doenças
que os pacientes estao mais pegando por periodo, levantamento dos
medicamentos mais usados.
Em 9 de maio de 2010 23:30, ersudoski ersudo...@yahoo.com.br escreveu:
Boa noite, estou no ultimo ano de Sistemas de
Olá Ersudoski,
Essa questão de inovação realmente conta muito. Mais de 10 anos atrás,
quando fiz o meu TCC do curso técnico, fui convidado para expor o meu
projeto numa feira das melhores escolas técnicas aqui do RJ. O meu
projeto era, tecnicamente, o melhor da feira, mas foi reconhecido como
tal
Pensa na seguinte maneira, um software de cadastro e muito simples,
procure visualizar e tentar pensar de que forma isso poderá ajudar? Que
resultados irão refeletir de positivo? o que o hospital tem a ganhar com
isso? tente pensar em segurança, acesso a dados a qualquer lugar do
mundo.
Ja pensou em uma ferramenta OLAP? talvez focando não apenas o hospital
em si, mas ferramenta para prover informação processado e de valor real
para campanhas preventivas
Em 09/05/2010 23:30, ersudoski escreveu:
Boa noite, estou no ultimo ano de Sistemas de INformação, e estou
pensando em
Voce atualizou o Zeos para a ultima versão dele?
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From:
Uma sugestão:
Como o Delphi 2010 é unicode, Caso esteja utilizando a versão 6.X.X do
Zeos, Sugiro substituir pela mais recente, a 7.0 que já provê o suporte
ao padrão unicode. A versão 7.0 pode ser baixada no svn do zeos em
svn://zeos.firmos.at/zeos/trunk
Espero ter ajudado.
--
[]’s.
ops... corrigindo... é fsStayOnTop... hehehe
Em 26/04/2010 18:16, Roni Rodrigo escreveu:
Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o
Show?
Em 26/04/2010 10:04, anckerdj escreveu:
Leandro Augusto Soares wrote:
Olá.
uma idéia é você colocar o que o
Leandro Augusto Soares wrote:
Olá.
uma idéia é você colocar o que o usuário digita numa variável de form que
fica acima e ler essa variável a partir de um método.
No form que tem o TEdit vc atualiza o TEdit através desse método, após o
retorno do ShowModal.
Acho que deve funcionar.
A
Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o Show?
Em 26/04/2010 10:04, anckerdj escreveu:
Leandro Augusto Soares wrote:
Olá.
uma idéia é você colocar o que o usuário digita numa variável de
form que
fica acima e ler essa variável a partir de um método.
Olá.
uma idéia é você colocar o que o usuário digita numa variável de form que
fica acima e ler essa variável a partir de um método.
No form que tem o TEdit vc atualiza o TEdit através desse método, após o
retorno do ShowModal.
Acho que deve funcionar.
[]s
Leandro
Em 23 de abril de 2010
Desse jeito não funciona... todos os registros serão devolvidos (a menos da
questão dos valores nulos, como já disseram aqui).
Reparei que assim vc devolverá todos os registros que com SEXO diferente de
F ou diferente de M.
Assim, um registro que seja igual a F é diferente de M, atende à
Alessandra tente assim
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO NOT IN ('F','M')
essa opção tbm funciona
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M'
Em 22 de abril de 2010 22:23, alessandra porto
alessandraport...@yahoo.com.br escreveu:
Peguei um banco velho de
WHERE (SEXO 'F') and (SEXO 'M')
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of alessandra porto
Sent: 23 April 2010 02:24
To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br;
lista-del...@yahoogrupos.com.br
Subject:
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 cadastrados
Acho que você pode utilizar o not in da sequinte forma.
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F', 'M');
[]'s
To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br;
lista-del...@yahoogrupos.com.br
From: alessandraport...@yahoo.com.br
Date: Thu, 22 Apr 2010
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M'
tem que colocar o campo para 'M'
Em 22/4/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 cadastrados
com
select sum(peso) from TBPRODUTO p, TBGRUPO g where p.id_grupo = g.id_grupo
/* and id_produto = 999 */
Acho que isso resolve. Se é que entendi direito, pois voce nao descreveu o
peso de quais produtos quer somar, nem o relacionamento de produtos com
pedidos.
Abraco
--
José Henrique (Zote)
Pode ser feito o select dessa maneira:
select
a.id_cliente,
a.cliente ,
( select max(b.dta_compra)
from compras b
where b.id_cliente = a.id_cliente ) as dta_compra
from
cliente a
/
Dessa forma lista todos clientes e suas respectiva data de ultima compra,
caso o cliente nunca
...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Dirlei Dionísio
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 11, 2010 7:56 PM
Subject: Re: [delphi-br] Ajuda...Atualização de Software
Obrigado pelo retorno Walter, mais comentários abaixo
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
Obrigado pelo retorno Walter, mais comentários abaixo.
Em 10 de fevereiro de 2010 15:36, Walter Chagas (Bol)
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
: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Dirlei
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 09, 2010 8:25 AM
Subject: Re: [delphi-br] Ajuda...Atualização de Software
Vou explicar como funciona o sistema de atualização
É interessante saber como funcionam outras soluções Walter! Fiz alguns
comentários/perguntas abaixo.
Walter Chagas (Bol) escreveu:
Aqui na telemont temos um sistema de atualização automatica também.
Porém com algumas diferenças:
1) Feito em VB
2) Ele nao guarda o update no banco e sim
://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Dirlei
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 10, 2010 8:32 AM
Subject: Re: [delphi-br] Ajuda...Atualização de Software
É interessante saber como funcionam
Você deu uma pesquisada em:
www.delphibr.com.br
www.linhadecodigo.com.br
www.delphi.eti.br
www.devmedia.com.br
?
--- Em seg, 8/2/10, Domingos domingosp...@gmail.com escreveu:
De: Domingos domingosp...@gmail.com
Assunto: Re: [delphi-br] Ajuda...Atualização de Software
Para: delphi-br
Eu uso ftp para baixar o executavel do sistema e para o banco eu utilizo
arquivo texto mesmo com os scripts e executo na base de cada um que baixar
os novos arquivos.
2010/2/8 Domingos domingosp...@gmail.com
Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco?
Você usa
Vou explicar como funciona o sistema de atualização automática que
projetei e desenvolvi aqui onde trabalho. Não pretendo que criar um
manual de como fazer, mas creio que dê pra explicar resumidamente como
funciona e inspirar aqueles que pretendem fazer algo parecido.
Há uma base MySQL na
Douglas,
No site do silvio clécio, na seção de downloads tem um componente para
trabalhar com png no delphi. Eu testei no delphi 2007 e funcionou
corretamente. Dá uma olhada lá que acho que vai ser útil pra vc. O link é:
http://sites.google.com/site/silvioprogbs/Home
Espero ter ajudado.
--
Eu fiz um executavel a parte que quando executado ele verifica no site onde
hospedo as atualizacoes se existe atualizacao mais recente e
consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho
os scripts que ele executa para atualizar a base de dados, porem tenho um
problema que
Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco?
Você usa o Database Comparer do IBExpert?
Em 8 de fevereiro de 2010 16:13, snakesjb robsontazina...@hotmail.comescreveu:
Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o
sistema ja fooi
Samuel, boa noite
Cara gostei muito da sua idéia, poderia explicar melhor?
O usuário executa esse sistema para ver se existe atualização?
Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você
faz atualização do executável? Ou ele baixa outro arquivo? e a parte de
Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma
DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua
rotina utilitária em um package. Com o package, você poderá declarar funções e
rotinas que possam lidar tranquilamente tanto com arrays
Olá, Evaldo...
TMenuDLL = record
AssinaturaFuncao: string;
NomeDLL: string;
Caption: string;
end;
Bem, pra começar, que tal você trocar essas Strings por WideStrings???
Variáveis do tipo String realmente dão problemas em DLLs...
--
---
Obrigado, mas preciso usar dll por causa de uma futura migração para C#.
From: Rubem Nascimento da Rocha djpardalro...@hotmail.com
To: delphi-br delphi-br@yahoogrupos.com.br
Sent: Wed, January 13, 2010 12:05:20 PM
Subject: RE: [delphi-br] Ajuda array dinamico
Obrigado! vou tentar isso.
From: Willian Jhonnes L. dos Santos willianjhon...@yahoo.com.br
To: delphi-br@yahoogrupos.com.br
Sent: Wed, January 13, 2010 1:09:41 PM
Subject: Re: [delphi-br] Ajuda array dinamico DLL
Olá, Evaldo...
TMenuDLL = record
Deu certinho com WideStrings!
Muito obrigado!
From: Evaldo evaldoave...@yahoo.com.br
To: delphi-br@yahoogrupos.com.br
Sent: Wed, January 13, 2010 1:50:17 PM
Subject: Re: [delphi-br] Ajuda array dinamico DLL
Obrigado! vou tentar isso
Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM.
Vai faciliar mais ainda.
Sds.
To: delphi-br@yahoogrupos.com.br
From: evaldoave...@yahoo.com.br
Date: Wed, 13 Jan 2010 07:49:28 -0800
Subject: Re: [delphi-br] Ajuda array dinamico DLL
Obrigado, mas
Muito obrigado pela sugestão! Vai ser de grande valia.
From: Rubem Nascimento da Rocha djpardalro...@hotmail.com
To: delphi-br delphi-br@yahoogrupos.com.br
Sent: Wed, January 13, 2010 1:56:15 PM
Subject: RE: [delphi-br] Ajuda array dinamico DLL
Se
Ola senhor
Voce perdeu um 'e' in fieldbynamwe
dados.AdPacientes.Locate('Codigo','AdLocPaciente.fildbyname(codigo).asstring',[lopartialkey]);
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of dssmoura
Sent: 19 December 2009
Eu tambem fiz um erro de digitacao. Eu queria dizer fieldbyname!
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Wilson, Stephen
Sent: 21 December 2009 08:27
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] Ajuda abrir
faça assim:
dados.AdPacientes.Locate('Codigo',
AdLocPaciente.fildbyname('codigo').asstring,[]);
Ps: Caso esse campo seja inteiro, use asinteger;
Assunto: Re: [delphi-br] ajuda sobre mensagens de erro
eu to tentando desse jeito:
try
Conectar('sds', ConSDSII, '2A38FF24194EB3A044');
except on e: Exception do
if e.Message '[DBNETLIB][ConnectionOpen (Connect()).]SQL Server
inexistente ou acesso negado' then
begin
Exit;
end;
end;
e naum
Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco.
Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde.
Verifique se a maquina aonde o banco está instalado está com Firewall ativado
ou se ela é enxergada na rede.
[]s
Walter Alves Chagas
sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum
fique aparecendo quando da o erro
2009/12/4 Walter Chagas (Bol) wchag...@bol.com.br
Este erro ocorre porque seu sistema não está conseguindo se conectar ao
banco. Se ele roda em rede, tente pingar o IP do servidor de
...@gmail.com
Assunto: Re: [delphi-br] ajuda sobre mensagens de erro
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 4 de Dezembro de 2009, 13:59
sei porque o erro acontece, o que eu
quero é fazer com que a mensagem naum
fique aparecendo quando da o erro
2009/12/4 Walter Chagas (Bol
-
From: Leonardo Baldino portaldoinfe...@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 04, 2009 1:59 PM
Subject: Re: [delphi-br] ajuda sobre mensagens de erro
sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum
fique aparecendo quando da o erro
2009/12/4
devo fazer??
Atenciosamente
Juliomar Marchetti
-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On
Behalf Of Walter Chagas (Bol)
Sent: sexta-feira, 4 de dezembro de 2009 16:02
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] ajuda sobre
conteúdo irrelevante!
--- Em sex, 4/12/09, Leonardo Baldino
portaldoinfe...@gmail.comportaldoinferno%40gmail.com
escreveu:
De: Leonardo Baldino portaldoinfe...@gmail.comportaldoinferno%40gmail.com
Assunto: Re: [delphi-br] ajuda sobre mensagens de erro
Para: delphi-br@yahoogrupos.com.br delphi
só que o que eu to tentando fazer é naum deixar aparecer a mensagem e naum
fechar o programa
2009/12/4 Diego Garcia drgarcia1...@gmail.com
Quando ele cair no Exception, da uma msg e fecha o programa usando
Application.Terminate
*Diego Garcia*
Twitter: http://www.twitter.com/drgarcia1986
Uma alternativa é uniformizar os bancos de dados dos seus clientes e passar
a versioná-los. À cada alteração, você gera um script de atualização que
faz as alterações necessárias e incrementa a versão do banco. Seu programa
pode ler esse script e executá-lo na inicialização.
[ ]'s
Dirlei.
o problema com o banco, se vc usar firebird/interbase, vc pode usar o
componente DataBase Comparer da Clever Components, é free para uso nao
comercial.
com ele vc pode comparar 2 base de dados e ele ira gerar o script de
atualização.
Muito bom mesmo esse programinha, uso ele aqui na empresa ond
tenta dessa forma:
select extract(year from vencimento) as Ano, extract(month from vencimento) as
Mes, sum(valor) as valorfrom pagargroup by 1,2
Dessa forma listará agrupado por ano, mes a soma dos valores
Caso queira filtra um ano ou mes especifico ae sim voce utilizaria o where
conforme for
O amigo Washington Tavares muito obrigado realmente deu certo e que burrisse
minha tinha me dado branco, já conhecia essa sql ja tinha feito uma parecida
e nao me lembrava.
Valeuw mesmo.
2009/11/20 Washington Tavares tawar...@hotmail.com
tenta dessa forma:
select extract(year from
Marcos,
Primeiramente, este tipo de post aqui é proibido por se tratar de pirataria que
é proibida pelas regras da lista.
Depois, sobre a questão do SQL Server, não vejo tamanha necessidade de voce ter
que usar o 6.5. Ainda que seja um sistema antigo, ele rodaria tranquilamente em
uma versão
Junio,
Pode ser que o local onde esteja instalado o MySQL não permita acesso
externo. Ai você teria que verificar junto ao administrador do banco de
dados/servidor.
Att,
Marcos A. Ferreira
São Paulo - Brasil
MSN: maferre...@hotmail.it
Google Talk: maf.decisiva
Skype:
José,
assim como você carrego a imagem em um TImage.
Em seguida eu faço o seguinte:
BS := TBlobStream.Create((TABELA.fieldByName('imagem') as
TBlobField), BMWRITE);
IMG := TBitMap.Create;
IMG.LoadFromFile('caminhoDaImagem');
IMG.SaveToStream(BS);
Sendo BS um
Você pode usar a função abaixo:
RenameFile(pathInicial, pathFinal);
---Original Message---
From: Júlio César Santiago Guiótti
Date: 10/11/2009 18:04:07
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Ajuda Gravar Imagens
José,
assim como você carrego
Caro Jose
Nao posso explicar muito bem em Portugues, mas criei um exemplo que pode
ajuda-lo:
procedure TForm1.Button1Click(Sender: TObject);
var s, st1,st2: string; oint: integer; f: textfile;
begin
AssignFile(f, 'CaminhoENomeDoTextoArquivo');
Reset(F);
while not Eof(f) do
ReadLn(f,s);
Oi Felipe,
pelo que vi você está precisando atualizar os seus datasets, há outras
maneiras de você fazer isso.
Mas no caso de fechar o data module não funciona porque você não está
atribuindo a instância criada a nenhuma variável.
Você tem que fazer:
exemplo := Tdmexemplo.Create(Self);
E para
Eu tenho na minha casa um projeto que te da a linha do erro no sua unit.pas se
voce tiver paciencia e esperar até segunda eu te passo.
Joao Roberto
Programador Delphi
- Original Message -
From: felipearaujolopes
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 02, 2009
Aparentemente ele foi desenvolvido para o delphi 2.0 mais eu estou com os
fontes de um projeto para manutenção que usa esse componente e não lembro
como faz para instala-lo, pois sempre pede o caminnho dos arquivos .PAS e só
tem os .DCU no projeto.
Se vc quer instalar/usar em outro Delphi
se vc usa a dll da tks, reveja seu algoritmo pois, vc tem q gerar um
registro 50 para cada cfop ou al[iquota de icms diferente,
Se a nota tiver 2 produtos com icms ou cfop diferente, vc tem q gerar
para cada produto um registro do tipo 50.
Leia bem o manual, eu tbm pensei que era problema na
- Ibitinga/SP
((16) 3341-9000
- Original Message -
From: Guilherme Ventura de Souza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 1:29 PM
Subject: Re: [delphi-br] Ajuda com SQL
UPDATE ITENSORC
SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO
Sent: Tuesday, September 08, 2009 1:29 PM
Subject: Re: [delphi-br] Ajuda com SQL
UPDATE ITENSORC
SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO
FROM CADPRODUTOS
WHERE CADPRODUTOS.codloja =itensorc.produto
GO
Cara, tenta assim, sem os Alias que eu tinha colocado
aqui
- Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
- Original Message -
From: Fabiano Moura
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 7:31 PM
Subject: Re: [delphi-br] Ajuda com SQL
Expressão errada: Não é normatização é
, 2009 3:42 PM
Subject: Re: [delphi-br] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed
Message -
From: Guilherme Ventura de Souza
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Friday, August 21, 2009 3:42 PM
Subject: Re: [delphi-br] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
, 2009 3:42 PM
Subject: Re: [delphi-br] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed
08, 2009 9:30 AM
Subject: Re: [delphi-br] Ajuda com SQL
isso não deu certo... alguem pode me ajudar?
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
È(16) 9239-0959
- Original Message -
From: Guilherme Ventura de Souza
To: delphi-br
Ola Rodrigo
Quais sao as condicoes, e que voce quer que aconteca quando a condicao for
satisfeita?
Abaixo ha um exemplo em que as celulas se tornam verde se o valor numa delas
fique entre 2 e 5
procedure TForm1.Button1Click(Sender: TObject);
var op,f1,f2:oleVariant;
begin
op:= xlBetween;
f1:=
..
Abaixo e o que eu estava procurando. Mais uma vez ele esta em ingles, mas eu
acho que possa ser muito util:
http://www.djpate.freeserve.co.uk/AutoExcl.htm#FormatRange
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of
Bom dia!
Da uma olhada nesse site.
http://www.mvps.org/dmcritchie/excel/colors.htm
Boa sorte.
Ulisses
- Original Message -
From: rodrigoojapa
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 27, 2009 4:49 PM
Subject: [delphi-br] Ajuda.excel delphi
Boa
update cadprodutos c, itensorc i set c.fornecedor = 'dfdk', i.forprod =
'dfdk' where c.codprod = '1' and i.codprod = '1'
2009/8/21 joao_jma joao_...@itelefonica.com.br
Tenho 2 tabelas
CADPRODUTOS
codprod
descricao
fornecedor
ITENSORC (Gravo a descrição e o fornecedor do produto nessa
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 21, 2009 3:49 PM
Subject: Re: [delphi-br] Ajuda com SQL
update cadprodutos c, itensorc i set c.fornecedor = 'dfdk', i.forprod =
'dfdk' where c.codprod = '1' and i.codprod = '1'
2009/8/21 joao_jma joao_...@itelefonica.com.br
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed-Recipient:;
Sent: Friday, August 21, 2009 2:45 PM
Subject:
Ops! Fiz confusão e achei q estava respondendo pra lista de Firebird.
Qual BD vc está usando?
2009/8/21 Daniel Hiromy hirom...@gmail.com
Faça uma trigger.
set term ^ ;
create or alter trigger AU_CADPRODUTOS for CADPRODUTOS
active after update position 0
as
begin
update ITENSORC set
Faça uma trigger.
set term ^ ;
create or alter trigger AU_CADPRODUTOS for CADPRODUTOS
active after update position 0
as
begin
update ITENSORC set descprod = new.descricao, fornprod = new.fornecedor
where codprod = new.codprod;
end ^
set term ; ^
2009/8/21 joao_jma
amigo aquele codigo q postei vc usa na hora q for atualizar a tabela
cadprodutos
assim qndo a atualizar ja ira atualizar a itensorc junto em um sql soh..
entendeu..
2009/8/21 Daniel Hiromy hirom...@gmail.com
Ops! Fiz confusão e achei q estava respondendo pra lista de Firebird.
Qual BD vc
Que tem, tem! Já vi na internet como remover um componente ou mudar a
propriedade dele usando o TWebBrowser, só não me lembro onde foi (só sei
que não era em sites do idioma português). Uma vez precisei fazer um
controle para o Jogo Travian e para isso tinha de acessar o Login da
conta, eu
Simples, logo após o SELECT de cada parte da instrução, insira CAST('CR' AS
VARCHAR(02)) para CR e CAST('CP' AS VARCHAR(02)) para CP.
Abs e boa sorte...
Rodinei Amorim
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br
From: valdirdill
Sent: Thursday,
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
Obrigado.
Valdir
- Original Message -
From: Rodinei
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 06, 2009 8:08 AM
Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
Simples, logo após o SELECT de cada parte da instrução, insira CAST
Obrigado.
Valdir
- Original Message -
From: Moacir - GMail
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 06, 2009 8:09 AM
Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
valdirdill,
Acrescente uma coluna com o tipo:
SELECT
não sei muito de linux mas vou dar um chute, tenta incluir a ntdll no .exe,
talvez
resolva seu problema.
2009/7/27 Jorge Ericsson jericsson...@gmail.com
Olá amigos,
Tenho uma aplicação Delphi 7 + ADO + Access e um cliente está necessitando
que eu coloque essa aplicação rodando no linux
1 - 100 de 461 matches
Mail list logo
