Res: [delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS
Veja os eventos do ClientDataSet/SQLQuery. OnPost BeforePost AfterPost espero que seja isso. === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: lvmariotti mario...@intelligentsystem.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 21 de Julho de 2010 19:12:42 Assunto: [delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS Olá pessoal, no IBX eu pegava os eventos do banco através do IBEvents da paleta Interbase. Agora estou usando dbExpress para conexão através de aplicações n-tier e não sei como pegar os eventos gerados no FireBird com Post_Event. Agradeço a ajuda. [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS
Oi Jean. Obrigadão, mas não é não. São eventos disparados pelo firebird quando utilizamos POST_EVENT numa trigger ou procedure. Realmente só com IBX. Grato Sds. Mariotti --- Em delphi-br@yahoogrupos.com.br, Jean Barreiros delphij...@... escreveu Veja os eventos do ClientDataSet/SQLQuery. OnPost BeforePost AfterPost espero que seja isso. === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@... e-mail: delphij...@... === De: lvmariotti mario...@... Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 21 de Julho de 2010 19:12:42 Assunto: [delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS Olá pessoal, no IBX eu pegava os eventos do banco através do IBEvents da paleta Interbase. Agora estou usando dbExpress para conexão através de aplicações n-tier e não sei como pegar os eventos gerados no FireBird com Post_Event. Agradeço a ajuda. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda por favor internal error LA30 delphi 7
Isso é um bug do Delphi, fecha o Delphi, deleta o executável do programa que esta tentando compilar, pressiona Ctrl+Alt+Del e cancela a execução do processo Delphi32. Tenta que ficara ok. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de alessandra porto Enviada em: terça-feira, 8 de junho de 2010 09:28 Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ajuda por favor internal error LA30 delphi 7 ja tem dias que estou trabalhando em um projeto que peguei para continuar ele e desde que comecei esse erro tem dado trabalho não consigo achar isso os fontes não estão read onlye roda tudo na mesma maquina procurei algo na web mas nada resolveu quem pode dar uma dica de como almenos tentar?? grata [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com CurrencyEdit
Estou fazendo exatamente isso: Edit1.Value := Edit2.Value; Coloquei o Panel1/Panel2 na frente apenas para exemplificar que cada Edit está dentro de um Panel, só isso. Mas mesmo fazendo Edit1.Value := Edit2.Value o Edit1 não assume o valor do Edit2 Desde já agradeço a atenção dispensada. Att. Albuquerque De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quinta-feira, 27 de maio de 2010 08:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ajuda com CurrencyEdit 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. No Panel2 digito 30 do Edit2. No OnClick de um botão faço: Panel1.Edit1.Value := Panel2.Edit2.Value; Ao debugar notei que os valores permanecem cf. foram digitados, isto é, Panel1.Edit1.Value = 10 e Panel2.Edit2.Value = 30. Porque o Edit1 do Panel1 não assumiu o valor 30 que foi passado pelo Panel2.Edit2 ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com sql
Alan,
Pelo que eu entendi é so somar as quantidade e dar um group by nos itens que
quer agrupar .. desta forma:
select codproduto,Descricao,origem, SUM(Quantidade)AS Quantidade from tmov
Group by codproduto,Descricao,origem
order by codproduto,origem
http://www.gecon.inf.br/ Gecon Cons. e Desen. de Sistemas Ltda.
Filippe Maymone
fili...@gecon.inf.br
fone: 11-22423065 / 11-41192856
Cel: 11-81663158
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Allan GabrielAM
Enviada em: terça-feira, 25 de maio de 2010 05:02
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com sql
Prezados, tenho uma tabela que tem armazenado os seguintes dados:
cod descricao origem qtde
1 111 A 1
1 111 A 1
1 111 C 1
2 222 A 1
2 222 A 1
3 333 B 1
No gerador de relatórios que uso (fortes report) ele aparece da forma citada
acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a
quantidade ficaria assim:
1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo
produto (1)
1 111 C 1
2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo
produto (2)
3 333 B 1
No filtro antes de imprimir estou fazendo assim:
DatAM.ibqMov.close;
DatAM.IbqMov.sql.clear;
DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem');
DataM.ibqmov.open;
Como faço pra sair como eu preciso?
Obrigado.
Rafael.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ajuda com DBGRID
Fala Richardson... Blz? Cara faço isso na minha aplicação é fácil, vc precisa de um ClientDataSet para te servir como Repositório, pois a cada Boleto selecionado vc popula esse ClientDataSet com os dados que o arquivo de remessa necessita, com isso no final vc tem todos os boletos selecionados guardados no Client, depois disso é só fazer um laço no Client e ir desenhando o arquivo de remessa (Vc comentou que já está pronto pronta a rotina de remessa). Espero ter ajudado. Abraços De: Richardson Freddo mjrkon...@yahoo.com.br Para: Grupo delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 11 de Maio de 2010 11:29:55 Assunto: [delphi-br] ajuda com DBGRID Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente. . (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodpvat@ hotmail.com Skype: r.freddo Rondonópolis/ MT [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda p/ TCC
Voce precisa conhecer regulamentação da ANS Marcos Silva Belem-PA De: Juan J V Garcia usa...@usg.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 10 de Maio de 2010 23:49:12 Assunto: Re: [delphi-br] Ajuda p/ TCC 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 marcar uma consulta, se for marcada a consulta emite uma boleta para pagamento ou depósito em conta. Algum tipo de acompanhamento. .. Sei lá, não entendo nada de hospital, mas fica a sugestão. :o) Juan Mon, 10 May 2010 02:30:23 -, ersudoski escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciam entos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda p/ TCC
Bom dia, Sou desenvolvedor, e tenho um projeto pronto, trabalhei como analista de negócios de um sistema de e-commerce para atendimento de saúde ao servidor púbico do estado da minha região. Você ficar antenado para o conteúdo programático do seu curso para não citar tecnologias as quais nao foram citadas. A gestão de atendimento em saúde se faz desde o credenciamento, atendimento e validação da identidade do segurado. Então começa a outra fase que é o faturamento dos serviços. Para atendimentos na rede credenciada, você tem que levar em conta as auditorias que devem ser feitas nos credenciados para então prover os pagamentos. Se os serviços se estenderem a regiões que não sejam as próximas ao hospital escolha a tecnologia que atenderá o segurado nessas unidades Ambulatorio Virtual, este foi o meu TCC, pois na minha região existem muitos rios dificultando o pronto atendimento, tornando viável este tipo de virtualização de atendimento, com pessoas treinadas e capacitadas a efetuarem o serviço. E por aí vai... Marcos Silva Belem-PA (91)81757652 De: ersudoski ersudo...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 9 de Maio de 2010 23:30:23 Assunto: [delphi-br] Ajuda p/ TCC Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciam entos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com Package
Cara..
eu tambem trabalho com pacotes, e realmente é muito bom.
Para resolver esse problema, eu criei um pacote onde tenho varias funçoes, por
exemplo validar CPF e CNPJ entre outras, declarar variaveis publicas, enfim, na
minha aplicação principal e nos outros pacotes tenho só o basico mesmo (Gravar,
excluir, Novo, etc..).
Para poder usar esse pacote q tem todas as variaveis e funçoes, eu declaro esse
paconte na Uses dos outros pacotes ou na aplicação principal.. veja o codigo
abaixo:
unit fLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCore, dxButton, StdCtrls, ComCtrls, ExtCtrls, MEU PACOTE;
type
TfLogin = class(TForm)
dxButton1: TdxButton;
dxButton2: TdxButton;
dslogin: TEdit;
dssenha: TEdit;
Entendeu?
Richardson Marcelo Freddo.
msn: freddodp...@hotmail.com
Skype: r.freddo
Rondonópolis/MT
De: Darkzad dark...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 17 de Fevereiro de 2010 12:29:30
Assunto: [delphi-br] Ajuda com Package
Olá pessoal,
Para modularizar minha aplicação resolvi utilizar Packges e que é uma
opção muito boa.
Mas estou tendo um problema:
Não consigo enviar o valor deu uma variável publica da minha Aplicação
principal para o Pacote.
Meu pacote é carregado dinamicamente através do código mais abaixo
Na minha aplicação principal tenho uma váriavel declarada com pública
E quando tento acessar essa várivel ela fala o valor dela é INACESSÍVEL.
O que pode está acontecendo?
Desde já Agradeço
Marcelo Pomarolli
Código para carregar o pacote dinamicamente.
procedure TFPrincipal. ac_PagarExecute( Sender: TObject);
var
H : HMODULE;
PForm : TFormClass;
Form : TForm;
begin
if FileExists(' FINANCEIRO. bpl') then
begin
H := LoadPackage( 'FINANCEIRO. bpl');
if H 0 then
begin
PForm := TFormClass(GetClass ('TfFiltro_ PAGAR'));
if Assigned(PForm) then
begin
Form := PForm.Create( nil);
Form.ShowModal;
FreeAndNil(Form) ;
UnloadPackage( H);
end
else
Application. MessageBox( 'Error ao carregar o MODULO
FINANCEIRO!' ,'Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1) ;
end;
end
else
Application. MessageBox( 'Para usar este recurso você deve adquirir o
Modulo FINANCEIRO.' +#13+
'Entre em contato com o seu Revendedor para
maiores detalhes.',' Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1) ;
end;
_ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta. messenger. yahoo.com/
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda em sql
Outra solução provavel voce poderia ter 3 campos na tabela de cientes, onde ira gravar o numero da ultima compra, data e valor (exemplos). Depois vc apenas seleciona os clientes que deseja. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Miguel Franco Galego Enviada em: sábado, 20 de fevereiro de 2010 14:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ajuda em sql 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 tenha comprado o campo será nulo, Espero ter ajudado, Em 20 de fevereiro de 2010 07:05, alessandra porto alessandraport...@yahoo.com.br escreveu: esta é uma parte de uma pesquisa grande onde estou meio com duvidas preciso de uma ajudinha é o seguinte tenho 2 tabelas compras cliente id_compras id_cliente id_cliente cliente dta_compra preciso selecionar somente a ultima compra (dta_compra) dos clientes que possuem compras. Pode existir cliente que nunca comprou e deve retornar na pesquisa que ele possui (zero) compras. Portanto possui 70.000 clientes e 30.000 compras sendo que parte destes clientes comprou mais de uma vez e só preciso que retorne na pesquisa a ultima compra dele. E os demais que nunca compraram preciso listar eles como zero(compra) Grata pela atenção dos amigos que colaborarem __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- M I G U E LF R A N C OG A L E G O INFORMARK / VIRTUALAGE Analista de Sistema mig...@infomark.com.br / gale...@gmail.com Av. Paraíba, 1959, Fundos / Rua José Rodrigues Brianez, 111-A Cianorte - PR / 87.200-000 (44) 3619-4555 ramal 4727 (44) 9985-1449 celular (44) 3019-1449 residencial [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: RES: [delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite vitor , seguinte a primeira duvida foi resonvida , pela sua primeira
sugestão matou o problema, agora quanto ao segundo voce perguntou Não existe
nenhum tipo de enablecontrols/disablecontrols.. desculpe minha ignorancia mas
eu não sei do qeu se trata essas funções, voce disse tambem ente fechar e
abrir novamente o dataset no caso como seria aplicado esta função ?
Obrigado pela atenção.
Danilo Moura
--- Em delphi-br@yahoogrupos.com.br, Vitor Yahoo vredesredsys...@...
escreveu
Opa, tudo certo?
Seguinte, você está chamando o formulário 2 com ShowModal, isso quer dizer
que sistema irá esperar os processos serem executados no formulário 2, para
depois passar pelo código que existe abaixo dele.
Faça assim e deve funcionar ok.
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
FrmConsultaMedico.ShowModal;
Aconselho você a criar parâmetros no formulário 2, para evitar código
manipulando o formulário de outro formulário, por exemplo:
No formulário 2:
Public
VMedido : Integer;
VData : TDateTime;
No FormShow (ou em qualquer outro evento do segundo formulário):
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico'] :=VMedico;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] := VData;
frmConsultaMedico.ADOQuery1.Open;
No primeiro formulário, o código ficaria reduzido a:
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.VMedido := EdtMedido;
FrmConsultaMedico.VData := EdtData; (aqui o edtdata deve seguir um typecast
ou ser do tipo date)
FrmConsultaMedico.ShowModal;
Quanto a segunda duvida:
Não existe nenhum tipo de enablecontrols/disablecontrols no
FrmModMedicoConsulta né? Tente fechar e abrir novamente o dataset, caso o
resultado seja positivo poste aqui para que possamos melhorar isso.
Até mais.
Vitor.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de dssmoura
Enviada em: quinta-feira, 14 de janeiro de 2010 21:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite senhores, me desculpe fazer duas perguntas mas eu estou precisando
de uma grande ajuda,
1- Tenho uma aplicação de filtro de agenda medica onde tem um form inicial
onde e informdo o nome do medico
através de um dbedit onde e informado o nome do medico e um Edit que e
informado a data, e um botão que chama
um formulário com um grid com as consultas do dia, após chamar a primeira
vez o grid vem em branco apos fechar
e chamar a segunda vez pelo botão ele abre com a consulta, o codigo do botão
e o seguinte:
procedure TFrmCons.SpeedButton1Click(Sender: TObject);
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.ShowModal;
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
end;
2 - Neste mesmo Grid inseri um função no evento OnDbClick, para chamar o
formulário de Prontuário medico, após
click duplo ele abre o form com o registro selecionado no grid, mas se fecho
o formulario e seleciono o
registro ele abre com o mesmo selecionado anteriormente o código e o
seguinte:
procedure TFrmConsultamedico.DBGrid1DblClick(Sender: TObject);
begin
DadosMedico.AdConsulta1.Locate('Medico',AdoQuery1.fieldbyname('codigo').asIn
teger,[]);
FrmModMedicoConsulta.Showmodal;
end;
Como devo fazer nestes casos ?
Desde já agradeço a atenção de todos.
Danilo Moura
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com Filtro para abrir formulario..
Opa, tudo certo?
Seguinte, você está chamando o formulário 2 com ShowModal, isso quer dizer
que sistema irá esperar os processos serem executados no formulário 2, para
depois passar pelo código que existe abaixo dele.
Faça assim e deve funcionar ok.
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
FrmConsultaMedico.ShowModal;
Aconselho você a criar parâmetros no formulário 2, para evitar código
manipulando o formulário de outro formulário, por exemplo:
No formulário 2:
Public
VMedido : Integer;
VData : TDateTime;
No FormShow (ou em qualquer outro evento do segundo formulário):
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico'] :=VMedico;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] := VData;
frmConsultaMedico.ADOQuery1.Open;
No primeiro formulário, o código ficaria reduzido a:
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.VMedido := EdtMedido;
FrmConsultaMedico.VData := EdtData; (aqui o edtdata deve seguir um typecast
ou ser do tipo date)
FrmConsultaMedico.ShowModal;
Quanto a segunda duvida:
Não existe nenhum tipo de enablecontrols/disablecontrols no
FrmModMedicoConsulta né? Tente fechar e abrir novamente o dataset, caso o
resultado seja positivo poste aqui para que possamos melhorar isso.
Até mais.
Vitor.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de dssmoura
Enviada em: quinta-feira, 14 de janeiro de 2010 21:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite senhores, me desculpe fazer duas perguntas mas eu estou precisando
de uma grande ajuda,
1- Tenho uma aplicação de filtro de agenda medica onde tem um form inicial
onde e informdo o nome do medico
através de um dbedit onde e informado o nome do medico e um Edit que e
informado a data, e um botão que chama
um formulário com um grid com as consultas do dia, após chamar a primeira
vez o grid vem em branco apos fechar
e chamar a segunda vez pelo botão ele abre com a consulta, o codigo do botão
e o seguinte:
procedure TFrmCons.SpeedButton1Click(Sender: TObject);
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.ShowModal;
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
end;
2 - Neste mesmo Grid inseri um função no evento OnDbClick, para chamar o
formulário de Prontuário medico, após
click duplo ele abre o form com o registro selecionado no grid, mas se fecho
o formulario e seleciono o
registro ele abre com o mesmo selecionado anteriormente o código e o
seguinte:
procedure TFrmConsultamedico.DBGrid1DblClick(Sender: TObject);
begin
DadosMedico.AdConsulta1.Locate('Medico',AdoQuery1.fieldbyname('codigo').asIn
teger,[]);
FrmModMedicoConsulta.Showmodal;
end;
Como devo fazer nestes casos ?
Desde já agradeço a atenção de todos.
Danilo Moura
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ajuda sobre mensagens de erro
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;
Tenta assim:
---
try
Conectar('sds', ConSDSII, '2A38FF24194EB3A044');
except
end;
if SeuConector.Connected then -- Ou Active, vai depender do teu conector
begin
... procedimentos para acontecer após a conexão com êxito
end;
---
Se der erro, verifique se você não esta tentando abrir algo acima do try (ex:
UmaQuery.Open).
--
Silvio Clecio
De: Leonardo Baldino portaldoinfe...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sábado, 5 de Dezembro de 2009 7:54:36
Assunto: Re: [delphi-br] ajuda sobre mensagens de erro
eu tentei a mensagem de que eu naum consegui conectar n banco ainda aparece
mesmo eu usando um try except
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ajuda sobre mensagens de erro
tenta testar fora do delphi o programa, pq existem diferenças entre o debug e a
execução real
Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê
http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
De: Leonardo Baldino portaldoinfe...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 4 de Dezembro de 2009 17:47:35
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 da certo porque a mensagem de erro ainda ta aparecendo e eu quero que
naum apareça
2009/12/4 Ricardo César Cardoso ricardo_engs...@yahoo.com.br
Vc vai ter tratar essa excessão pelo tipo.
try
...
except on tipo de excessão do
...
end;
Exemplos de código em :
* http://www.planetadelphi.com.br/artigo/124/tratamento-de-exce
ções---parte-1/
* http://www.delphibasics.co.uk/RTL.asp?Name=Try
Abraços,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em 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-br%40yahoogrupos.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) wchag...@bol.com.brwchagasj%40bol.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 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 Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br wchagasj%40bol.com.br
wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Leonardo Baldino
To: Grupo_Delphi
Sent: Friday, December 04, 2009 9:36 AM
Subject: [delphi-br] ajuda sobre mensagens de erro
eu estou fazendo um programa que faz uma conexao com
um banco de dados do
sql server e quando naum tem conexao aparece a
seguinte mensagem:
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server
inexistente ou acesso
negado
eu to usando o try except mas a mensagem ainda aparece
quando eu rodo o
exe,
alguem sabe como eu posso fazer para naum deixar
aparecer a mensagem de que
naum conseguiu conectar com o banco de dados
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto
foram removidas]
[As partes desta mensagem que não continham texto
foram removidas]
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram
removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER
ESTA MENSAGEM
Links do Yahoo! Grupos
__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda Gravar Imagens
Tenta assim IF SaveDialog1.execute then Begin Image1.Picture.SaveToFile(SaveDialog1.FileName); End; Ve se roda De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jose Newton Araujo Enviada em: segunda-feira, 9 de novembro de 2009 19:42 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda Gravar Imagens Moçada, aqui estou precisando de uma força (de novo) Tenho uma rotina que permite ao cabra escolher uma determinada imagem. O sistema carrega a imagem através de OpenDialog num Image. Agora preciso gravar esta imagem alterando o nome do arquivo. Estou tentando via SaveDialog e não estou tendo sucesso. Quem pode me dar uma força ? Obrigado, SDS, Jose Newton [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.425 / Virus Database: 270.14.58/2493 - Release Date: 11/09/09 19:40:00 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda Gravar Imagens
Eh Gilvan esta é a opção que gostaria pois assim gravase a imagem na tabela
Paradox, porém no Delphi 7 não consigo configurar o campo TBlobField na
estrutura da minha tabela.
Sds
Jose Newton
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Gilvan Costa
Enviada em: terça-feira, 10 de novembro de 2009 18:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda Gravar Imagens
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 mailto:delphi-br%40yahoogrupos.com.br
Subject: Re: [delphi-br] Ajuda Gravar Imagens
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 TBlobStream, IMG um TBitMap e o campo imagem da minha tabela do
tipo Blob.
Espero ter ajudado,
abraço,
Júlio César Santiago Guiótti
2009/11/9 Jose Newton Araujo jose.new...@jnewton.com.br
mailto:jose.newton%40jnewton.com.br
Moçada, aqui estou precisando de uma força (de novo)
Tenho uma rotina que permite ao cabra escolher uma determinada imagem. O
sistema carrega a imagem através de OpenDialog num Image. Agora preciso
gravar esta imagem alterando o nome do arquivo. Estou tentando via
SaveDialog e não estou tendo sucesso. Quem pode me dar uma força ?
Obrigado, SDS,
Jose Newton
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com SQL
João, seguinte voce pode fazer assim: Na tabela ITENSORC Select ITENSORC.cadprod, ITENSORC.forprod, CADPRODUTOS.DESCRICAO from ITENSORC Left join CADPRODUTOS on (CADPRODUTOS.codprod = ITENSORC.codprod) Assim quando você modificar a descrição do produto na tabela CADPRODUTOS automaticamente o select ira pegar essa descrição. OK? Abraço.. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de joao_jma Enviada em: sexta-feira, 21 de agosto de 2009 14:45 Para: Undisclosed-Recipient:; Assunto: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com SQL
Então João, você não ta usando tabela MESTRE/DETALHE? Esse comando é utilizado para o que você ta querendo. Select ITENSORC.cadprod, ITENSORC.forprod, CADPRODUTOS.DESCRICAO from ITENSORC Left join CADPRODUTOS on (CADPRODUTOS.codprod = ITENSORC.codprod) Mas se você não quer dessa forma usa o exemplo do colega Daniel Hiromy abaixo, caso você esteja usando FIREBIRD, ou MySQL. 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 joao_...@itelefonica.com.br mailto:joao_jma%40itelefonica.com.br Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda urgente sobre excel com delphi
Tenta estas formatações de células..
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Size := 10;
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Bold := True;
Excel.WorkBooks[1].Sheets[1].cells[L,1].NumberFormat :=
'dd/mm/aa';
Excel.WorkBooks[1].Sheets[1].cells[L,4].NumberFormat :=
'#.##0,00';
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leonardo Baldino
Enviada em: sexta-feira, 19 de junho de 2009 17:46
Para: Grupo_Delphi
Assunto: [delphi-br] ajuda urgente sobre excel com delphi
eu to usando este codigo para criar arquivos do excel atraves do delphi, só
que eu queria saber se alguem sabe como eu posso fazer para ver se um valor
que eu to colocando no delphi e numerico, porque se for numerico eu queria
saber se alguem sabe como eu faço para mudar a propriedade da celula do
excel de tipo geral para tipo numero.
esse é uma maneira
procedure TForm2.ExportDBGrid(toExcel: Boolean);
var
bm: TBookmark;
col, row: Integer;
sline: String;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
ADOQuery2.Close;
ADOQuery2.Open;
DBGrid1.DataSource.DataSet.DisableControls;
bm := DBGrid1.DataSource.DataSet.GetBookmark;
DataSource2.DataSet.First;
// create the Excel object
if toExcel then
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Teste';
end;
// First we send the data to a memo
// works faster than doing it directly to Excel
mem := TMemo.Create(nil);
mem.Visible := false;
mem.Parent := Form2;
mem.Clear;
sline := '';
Gauge1.MaxValue := DataSource2.DataSet.RecordCount;
Gauge1.Progress := 1;
// add the info for the column names
for col := 0 to DBGrid.FieldCount - 1 do begin
sline := sline + DBGrid.Fields[col].DisplayLabel + #9;
Gauge1.Progress := Gauge1.Progress + 1;
end;
mem.Lines.Add(sline);
// get the data into the memo
DataSource2.DataSet.First;
for row := 0 to DataSource2.DataSet.RecordCount-1 do
begin
sline := '';
for col := 0 to DataSource2.DataSet.FieldCount-1 do begin
sline := sline + DataSource2.DataSet.Fields[col].AsString + #9;
//ShowMessage(DataSource2.DataSet.Fields[row].AsString);
end;
Gauge1.Progress := Gauge1.Progress + 1;
mem.Lines.Add(sline);
DataSource2.DataSet.Next;
end;
Gauge1.Progress := Gauge1.MaxValue;
// we copy the data to the clipboard
mem.SelectAll;
mem.CopyToClipboard;
// if needed, send it to Excel
// if not, we already have it in the clipboard
if toExcel then
begin
ExcelApp.Workbooks[1].WorkSheets['Teste'].Paste;
ExcelApp.Visible := true;
end;
FreeAndNil(mem);
//FreeAndNil(ExcelApp);
DataSource2.DataSet.GotoBookmark(bm);
DataSource2.DataSet.FreeBookmark(bm);
DataSource2.DataSet.EnableControls;
Screen.Cursor := crDefault;
end;
---
e essa é outra
ExcelApplicationl := TExcelApplication.Create(nil);
ExcelApplicationl.Workbooks.Add(EmptyParam, 0);
ExcelApplicationl.Visible[0] := True;
Planilha := ExcelApplicationl.WorkBooks[1].WorkSheets[1];
ADOQuery2.Open;
for C := l to ADOQuery2.FieldCount do begin
Planilha.Cells[l,C].Select;
Planilha.Cells[l,C].Font.Bold := True;
Planilha.Cells[l,C].Value := ADOQuery2.Fields[C-1].DisplayLabel;
end;
L := 2;
while not ADOQuery2.Eof do begin
for C := 1 to ADOQuery2.FieldCount do begin
//Planilha.Cells[L,C].Select;
Planilha.Cells[L,C].Value := ADOQuery2.Fields [C-1].AsString;
end;
L := L + 1; ADOQuery2.Next;
end;
// ADOQuery2.Close;
ExcelApplicationl.Free;
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.364 / Banco de dados de vírus: 270.12.80/2187 - Data de
Lançamento: 06/19/09 06:53:00
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com stored procedure
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma resposta. Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o assunto. É que em todo material que tenho, não faz referencia a incluir uma variavel junto com um select na inclusão, e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista. segue a procedure que estou tentando criar: CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as BEGIN INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO, CONFIRMADO) values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S' from bdestoque where INCLUIPACOTE = 'S'); Já tentei sem o IN, já tentei com a variavel entre aspas e sem o : O programa esta rodando pois estou fazendo a inclusão na mão, até que consiga resolver este problema. Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido de ajuda. Um abraço a todos. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em nome de Ricardo César Cardoso Enviada em: quarta-feira, 27 de maio de 2009 22:05 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ajuda com stored procedure Vinícius, acho que perdi a sua dúvida original... Sobre o que seria? Dependendo do que for, é como o Jackson já disse. Uma pesquisada ou um post na Firebase-BR pode resolver. Na boa... se é pra ficar com flame, melhor nem responder. Eu na maioria das vezes acabo fazendo pesquisa pra ajudar a galera, mas por que isso me serve também de aprendizado e motivação. Mandar um comentário até vá lá... mas depois disso é meio improdutivo. As vezes também cometo meus deslizes, mas tenho tentado me policiar quanto a isso. Já me estrepei umas duas vezes respondendo coisas que sabia na ponta da língua. Pois vi que a minha solução não era a melhor possível. []'s Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: RES: [delphi-br] Ajuda com stored procedure
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
numEvento = wcdEvento;
INSERT INTO TBservicos(
cdestoque,
cdevento,
valorcobrado,
qtde,
datapedido,
confirmado
)
VALUES IN(
SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
FROM bdestoque
WHERE incluipacote = 'S'
);
END
{ FINAL COPY/PASTE }
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu:
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');
Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :
O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.
Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.
Um abraço a todos.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Ajuda com stored procedure
Ricardo, do seu jeito não consegui... mais olhando outras apostilas que
tenho eu resolvi em parte, explico melhor.
A procedure ficou assim:
SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (
wcdevento integer)
as
declare variable wcodest integer;
declare variable wvalor numeric(12,2);
BEGIN
FOR select CDESTOQUE, VALORVENDA from BDESTOQUE WHERE INCLUIPACOTE = 'S'
INTO :WCODEST, :WVALOR
DO
BEGIN
INSERT into servicosevento (CDEVENTO, CDESTOQUE, VALORCOBRADO, QTDE,
DATAPEDIDO, CONFIRMADO)
values (:WcdEvento, :WCODEST, :WVALOR, 100, 'Now', 'S');
END
END^
SET TERM ; ^
Eu agora estou com outro problema. precisando de ajuda novamente...
Utilizando o IBExpert, mandando executar esta procedure, passo como
parametro um número de pedido válido,
e ela inclui todos os itens do estoque no arquivo certinho... todos eles.
Agora, dentro da minha aplicação, quando eu termino de incluir um pedido,
guardo o numero do pedido em uma variável, fecho o CDS,
Abro o CDS, o pedido está gravado normalmente, ai eu mando executar a
procedure desta forma:
Dm.SP_InclServicos.Params[0].AsInteger := Wpedido;
Dm.SP_InclServicos.ExecProc;
Estou recebendo mensagens de erro dizendo que esta havendo violação de
chave.
Alguem sabe porque
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 09:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda com stored procedure
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
numEvento = wcdEvento;
INSERT INTO TBservicos(
cdestoque,
cdevento,
valorcobrado,
qtde,
datapedido,
confirmado
)
VALUES IN(
SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
FROM bdestoque
WHERE incluipacote = 'S'
);
END
{ FINAL COPY/PASTE }
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br
escreveu:
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');
Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :
O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.
Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.
Um abraço a todos.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: RES: RES: [delphi-br] Ajuda com stored procedure
Por algum motivo, a aplicação está tentando usar a mesma chave primária para um
novo registro. dos parâmetros da procedure, qual deles é o wPedido? Qual é a
chave primária da tabela relacionada?
[]'s
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu:
De: Vinicius da Silva Pinto vinic...@cnen.gov.br
Assunto: RES: RES: [delphi-br] Ajuda com stored procedure
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 28 de Maio de 2009, 11:43
Ricardo, do seu jeito não consegui... mais olhando outras apostilas que
tenho eu resolvi em parte, explico melhor.
A procedure ficou assim:
SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (
wcdevento integer)
as
declare variable wcodest integer;
declare variable wvalor numeric(12,2) ;
BEGIN
FOR select CDESTOQUE, VALORVENDA from BDESTOQUE WHERE INCLUIPACOTE = 'S'
INTO :WCODEST, :WVALOR
DO
BEGIN
INSERT into servicosevento (CDEVENTO, CDESTOQUE, VALORCOBRADO, QTDE,
DATAPEDIDO, CONFIRMADO)
values (:WcdEvento, :WCODEST, :WVALOR, 100, 'Now', 'S');
END
END^
SET TERM ; ^
Eu agora estou com outro problema . precisando de ajuda novamente...
Utilizando o IBExpert, mandando executar esta procedure, passo como
parametro um número de pedido válido,
e ela inclui todos os itens do estoque no arquivo certinho... todos eles.
Agora, dentro da minha aplicação, quando eu termino de incluir um pedido,
guardo o numero do pedido em uma variável, fecho o CDS,
Abro o CDS, o pedido está gravado normalmente, ai eu mando executar a
procedure desta forma:
Dm.SP_InclServicos. Params[0] .AsInteger := Wpedido;
Dm.SP_InclServicos. ExecProc;
Estou recebendo mensagens de erro dizendo que esta havendo violação de
chave.
Alguem sabe porque
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 09:04
Para: delphi...@yahoogrup os.com.br
Assunto: Re: RES: [delphi-br] Ajuda com stored procedure
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
numEvento = wcdEvento;
INSERT INTO TBservicos(
cdestoque,
cdevento,
valorcobrado,
qtde,
datapedido,
confirmado
)
VALUES IN(
SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
FROM bdestoque
WHERE incluipacote = 'S'
);
END
{ FINAL COPY/PASTE }
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen. gov.br
escreveu:
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');
Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :
O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.
Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.
Um abraço a todos.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
- - --
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] Ajuda com stored procedure
A tabela servicos é composta pelo numero do pedido e o codigo do estoque,
não teria como dar chave duplicada.
O estoque tem chave única e a tabela servicos tem chave composta (pedido +
estoque).
O que eu não entendo é que rodando na mão (via IBExpert), passando o último
número do pedido, não dá erro nenhum.
Já olhei o meu DataModule e a tabela servicos está indexada pelos campos
Pedido e Estoque.
Ideias???
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 13:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Ajuda com stored procedure
Por algum motivo, a aplicação está tentando usar a mesma chave primária para
um novo registro. dos parâmetros da procedure, qual deles é o wPedido? Qual
é a chave primária da tabela relacionada?
[]'s
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br
escreveu:
De: Vinicius da Silva Pinto vinic...@cnen.gov.br
Assunto: RES: RES: [delphi-br] Ajuda com stored procedure
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 28 de Maio de 2009, 11:43
Ricardo, do seu jeito não consegui... mais olhando outras apostilas
que
tenho eu resolvi em parte, explico melhor.
A procedure ficou assim:
SET TERM ^ ;
CREATE PROCEDURE INCL_SERVICOS (
wcdevento integer)
as
declare variable wcodest integer;
declare variable wvalor numeric(12,2) ;
BEGIN
FOR select CDESTOQUE, VALORVENDA from BDESTOQUE WHERE INCLUIPACOTE = 'S'
INTO :WCODEST, :WVALOR
DO
BEGIN
INSERT into servicosevento (CDEVENTO, CDESTOQUE, VALORCOBRADO, QTDE,
DATAPEDIDO, CONFIRMADO)
values (:WcdEvento, :WCODEST, :WVALOR, 100, 'Now', 'S');
END
END^
SET TERM ; ^
Eu agora estou com outro problema . precisando de ajuda novamente...
Utilizando o IBExpert, mandando executar esta procedure, passo como
parametro um número de pedido válido,
e ela inclui todos os itens do estoque no arquivo certinho... todos eles.
Agora, dentro da minha aplicação, quando eu termino de incluir um pedido,
guardo o numero do pedido em uma variável, fecho o CDS,
Abro o CDS, o pedido está gravado normalmente, ai eu mando executar a
procedure desta forma:
Dm.SP_InclServicos. Params[0] .AsInteger := Wpedido;
Dm.SP_InclServicos. ExecProc;
Estou recebendo mensagens de erro dizendo que esta havendo violação de
chave.
Alguem sabe porque
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 09:04
Para: delphi...@yahoogrup os.com.br
Assunto: Re: RES: [delphi-br] Ajuda com stored procedure
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
numEvento = wcdEvento;
INSERT INTO TBservicos(
cdestoque,
cdevento,
valorcobrado,
qtde,
datapedido,
confirmado
)
VALUES IN(
SELECT cdestoque, :numEvento, valorvenda, 100, Now, 'S'
FROM bdestoque
WHERE incluipacote = 'S'
);
END
{ FINAL COPY/PASTE }
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen. gov.br
escreveu:
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas que eu dou sempre dá erro, por isso recorri a lista.
segue a procedure que estou tentando criar:
CREATE PROCEDURE INCL_SERVICOS (WcdEvento Integer) as
BEGIN
INSERT into TBservicos (CDESTOQUE, CDEVENTO, VALORCOBRADO, QTDE, DATAPEDIDO,
CONFIRMADO)
values in (select CDESTOQUE, :WcdEvento, VALORVENDA, 100, Now, 'S'
from bdestoque where INCLUIPACOTE = 'S');
Já tentei sem o IN, já tentei com a variavel entre aspas e sem o :
O programa esta rodando pois estou fazendo a inclusão na mão, até que
consiga resolver este problema.
Peço desculpa ao pessoal da lista por ter enviado duas vezes o mesmo pedido
de ajuda.
Um abraço a todos.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http
RES: RES: [delphi-br] Ajuda....
Ricardo, obrigado pela grande ajuda confesso que estava olhando e não estava conseguindo ver o erro tão grosseiro que era colocar o DATASET. Valeu pela ajuda, perdi muito tempo por falta de atenção obrigado a vc e a todos que ajudaram de alguma forma. Vinicius -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em nome de Ricardo César Cardoso Enviada em: segunda-feira, 18 de maio de 2009 15:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Ajuda Pode ser que o Yahoo acabou desconfigurando a mensagem, por isso apareceram os espaços em branco. []'s Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 18/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen.gov.br Assunto: RES: [delphi-br] Ajuda Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 18 de Maio de 2009, 15:23 Não entendi, pq os espaços em branco? -Mensagem original - De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em nome de Claudiney Cogo Enviada em: segunda-feira, 18 de maio de 2009 15:15 Para: delphi...@yahoogrup os.com.br Assunto: RES: [delphi-br] Ajuda Dê uma olhada nessas linhas: FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date; Não seria correto assim? FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date; Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Vinicius da Silva Pinto Enviada em: segunda-feira, 18 de maio de 2009 09:15 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Ajuda Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro: Em uma determinado momento do sistema eu faço uma consulta por data e tudo corre muito bem, como neste exemplo abaixo: FrmDm.SdsCadEventos 1.Close; FrmDm.SdsCadEventos 1.DataSet. CommandText := 'SELECT CDEVENTO FROM BDEVENTOS WHERE DATAEVENTO = :WDATA'; FrmDm.SdsCadEventos 1.DataSet. Params[0] .AsDate := MCevento.Date; FrmDm.SdsCadEventos 1.Open; Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o problema Estou recebendo esta mensagem de erro: List Index out off Bounds (0) Como se os parametros não foram definidos Juro que não estou enxergando o erro ou se tenho que fazer algo diferente.. FrmDm.SimpleDataSet 1.Close; FrmDm.SimpleDataSet 1.DataSet. CommandText := 'select CDEVENTO from BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA'; FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1; --- -- pelo log, o erro é nesta linha FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date; FrmDm.SimpleDataSet 1.Open; Agradeço qualquer dica ou ajuda... Vinicius __ Informação do NOD32 IMON 4082 (20090518) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] Ajuda....
Dê uma olhada nessas linhas: FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date; Não seria correto assim? FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date; Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2solutions.com.br/ www.n2solutions.com.br http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br http://www.studion2.com.br/ www.studion2.com.br De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Vinicius da Silva Pinto Enviada em: segunda-feira, 18 de maio de 2009 09:15 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro: Em uma determinado momento do sistema eu faço uma consulta por data e tudo corre muito bem, como neste exemplo abaixo: FrmDm.SdsCadEventos1.Close; FrmDm.SdsCadEventos1.DataSet.CommandText := 'SELECT CDEVENTO FROM BDEVENTOS WHERE DATAEVENTO = :WDATA'; FrmDm.SdsCadEventos1.DataSet.Params[0].AsDate := MCevento.Date; FrmDm.SdsCadEventos1.Open; Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o problema Estou recebendo esta mensagem de erro: List Index out off Bounds (0) Como se os parametros não foram definidos Juro que não estou enxergando o erro ou se tenho que fazer algo diferente.. FrmDm.SimpleDataSet1.Close; FrmDm.SimpleDataSet1.DataSet.CommandText := 'select CDEVENTO from BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA'; FrmDm.SimpleDataSet1.Params[0].AsInteger := 1; - pelo log, o erro é nesta linha FrmDm.SimpleDataSet1.Params[1].AsDate := MCevento.Date; FrmDm.SimpleDataSet1.Open; Agradeço qualquer dica ou ajuda... Vinicius __ Informação do NOD32 IMON 4082 (20090518) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda....
Não entendi, pq os espaços em branco? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em nome de Claudiney Cogo Enviada em: segunda-feira, 18 de maio de 2009 15:15 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Ajuda Dê uma olhada nessas linhas: FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date; Não seria correto assim? FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date; Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2solutions.com.br/ www.n2solutions.com.br http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br http://www.studion2.com.br/ www.studion2.com.br De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Vinicius da Silva Pinto Enviada em: segunda-feira, 18 de maio de 2009 09:15 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro: Em uma determinado momento do sistema eu faço uma consulta por data e tudo corre muito bem, como neste exemplo abaixo: FrmDm.SdsCadEventos1.Close; FrmDm.SdsCadEventos1.DataSet.CommandText := 'SELECT CDEVENTO FROM BDEVENTOS WHERE DATAEVENTO = :WDATA'; FrmDm.SdsCadEventos1.DataSet.Params[0].AsDate := MCevento.Date; FrmDm.SdsCadEventos1.Open; Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o problema Estou recebendo esta mensagem de erro: List Index out off Bounds (0) Como se os parametros não foram definidos Juro que não estou enxergando o erro ou se tenho que fazer algo diferente.. FrmDm.SimpleDataSet1.Close; FrmDm.SimpleDataSet1.DataSet.CommandText := 'select CDEVENTO from BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA'; FrmDm.SimpleDataSet1.Params[0].AsInteger := 1; - pelo log, o erro é nesta linha FrmDm.SimpleDataSet1.Params[1].AsDate := MCevento.Date; FrmDm.SimpleDataSet1.Open; Agradeço qualquer dica ou ajuda... Vinicius __ Informação do NOD32 IMON 4082 (20090518) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: RES: [delphi-br] Ajuda....
Pode ser que o Yahoo acabou desconfigurando a mensagem, por isso apareceram os espaços em branco. []'s Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 18/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen.gov.br Assunto: RES: [delphi-br] Ajuda Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 18 de Maio de 2009, 15:23 Não entendi, pq os espaços em branco? -Mensagem original - De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em nome de Claudiney Cogo Enviada em: segunda-feira, 18 de maio de 2009 15:15 Para: delphi...@yahoogrup os.com.br Assunto: RES: [delphi-br] Ajuda Dê uma olhada nessas linhas: FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date; Não seria correto assim? FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1; FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date; Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Vinicius da Silva Pinto Enviada em: segunda-feira, 18 de maio de 2009 09:15 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Ajuda Amigos, estou tendo um problema com um SimpleDataSet e não descubro o erro: Em uma determinado momento do sistema eu faço uma consulta por data e tudo corre muito bem, como neste exemplo abaixo: FrmDm.SdsCadEventos 1.Close; FrmDm.SdsCadEventos 1.DataSet. CommandText := 'SELECT CDEVENTO FROM BDEVENTOS WHERE DATAEVENTO = :WDATA'; FrmDm.SdsCadEventos 1.DataSet. Params[0] .AsDate := MCevento.Date; FrmDm.SdsCadEventos 1.Open; Em outra hora preciso selecionar por empresa tambem, ai que estou tendo o problema Estou recebendo esta mensagem de erro: List Index out off Bounds (0) Como se os parametros não foram definidos Juro que não estou enxergando o erro ou se tenho que fazer algo diferente.. FrmDm.SimpleDataSet 1.Close; FrmDm.SimpleDataSet 1.DataSet. CommandText := 'select CDEVENTO from BDEVENTOS WHERE CDEMPRESA = :WEMP and DATAEVENTO = :WDATA'; FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1; --- -- pelo log, o erro é nesta linha FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date; FrmDm.SimpleDataSet 1.Open; Agradeço qualquer dica ou ajuda... Vinicius __ Informação do NOD32 IMON 4082 (20090518) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] ajuda SQL
--- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@...
escreveu
boa tarde, Rubem não rasga sua carteira não, talvez voce não tenha entendido o
que eu queria com o select. Eu quero que me retorne todos os processo onde os
autores fossem 'maria' e 'jose' pode haver um processo com varios autores.o
Hugo dos Santos Saraiva(Lista_delphi)
me enviou o select:
code
SELECT a.nro_processo
FROM autores a
GROUP BY a.nro_processo
HAVING SUM(CASE WHEN UPPER(a.nome) LIKE '%MASAAKI%' THEN 1 ELSE 0 END) 0
AND SUM(CASE WHEN UPPER(a.nome) LIKE '%MASAHARU%' THEN 1 ELSE 0 END) 0
AND SUM(CASE WHEN UPPER(a.nome) LIKE '%NTT%' THEN 1 ELSE 0 END) 0
AND SUM(CASE WHEN UPPER(a.nome) LIKE '%NORIHITO SEKIZAKI%' THEN 1 ELSE 0 END) 0
AND SUM(CASE WHEN UPPER(a.nome) LIKE '%KATSUMI SEKIGUCHI%' THEN 1 ELSE 0 END) 0
AND SUM(CASE WHEN not (UPPER(a.nome) LIKE '%MASAAKI%')AND not
(UPPER(a.nome) LIKE '%NTT%')AND not
(UPPER(a.nome) LIKE '%MASAHARU%')AND not
(UPPER(a.nome) LIKE '%NORIHITO SEKIZAKI%')AND not
(UPPER(a.nome) LIKE '%KATSUMI SEKIGUCHI%') THEN 1 ELSE 0 END) = 0
code
neste exemplo estou pesquisando com 05 elementos. Como podem ver o select é
meio complexo( para mim bastante) mas vou aprendendo e compartilhando. mais uma
vez agradeço á ajuda de todos.Show de bola está logica do Hugo.
select DISTINCT PROCESSO from TABELA where (UPPER(AUTOR) LIKE `%MARIA%' OR
UPPER(AUTOR) LIKE '%JOSE%')
Se nem isso resolver, rasgo minha carteira de trabalho! Sinceramente!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Gildenor Teixeira
Enviada em: quarta-feira, 6 de maio de 2009 11:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] ajuda SQL
Se assim nao resolver, ta danado!!!
select PROCESSO from TABELA where (AUTOR = 'maria' OR AUTOR = 'jose')
--
Gildenor Teixeira
2009/5/5 Humberto Oliveira holiveira.wordpr...@...
mailto:holiveira.wordpress%40gmail.com
leite romano,
se o segundo select é o que mais aproxima da sua solução e ainda não está
dando certo, é porque existe algo no valor do campo AUTOR que não está
satisfazendo a condição.
Passe mais detalhes.
2009/5/5 leite romano leite_rom...@...
mailto:leite_romano%40yahoo.com.br leite_romano%40yahoo.com.br
oi Humberto, o segundo select que se aproxima mais do que eu preciso,
mas
mesmo assim não da certo pois não retornara nada. Obrigado pela atenção
outros colegas aki da lista ja me deram uma luz, vou continuar tentando
aki
assim que tiver uma solução eu posto aki.
--- Em ter, 5/5/09, Humberto Oliveira holiveira.wordpr...@...
mailto:holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com
holiveira.wordpress%40gmail.com
escreveu:
De: Humberto Oliveira holiveira.wordpr...@...
mailto:holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com
holiveira.wordpress%40gmail.com
Assunto: Re: [delphi-br] ajuda SQL
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Data: Terça-feira, 5 de Maio de 2009, 14:48
select PROCESSO from TABELA where AUTOR in ('maria', 'jose')
ou
select PROCESSO from TABELA where (AUTOR = 'maria' and AUTOR = 'jose')
Resolve seu problema?
2009/5/5 leite romano leite_romano@ yahoo.com. br
criterio autor = 'maria' e 'jose'
segue a tabela
processo cliente autor
123 joao maria
123 joao jose
456 marcelo maria
456 marcelo jose
456 marcelo milton
789 jose maria
teria que retornar apenas o processo 123 pois é o unico que tem como
autor
maria e jose somente. uso FB1.5 ibx. Delculpem pelo e-mail anterior
bati
no
enter sem querer e enviou
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda SQL
select DISTINCT PROCESSO from TABELA where (UPPER(AUTOR) LIKE %MARIA% OR
UPPER(AUTOR) LIKE '%JOSE%')
Se nem isso resolver, rasgo minha carteira de trabalho! Sinceramente!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Gildenor Teixeira
Enviada em: quarta-feira, 6 de maio de 2009 11:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] ajuda SQL
Se assim nao resolver, ta danado!!!
select PROCESSO from TABELA where (AUTOR = 'maria' OR AUTOR = 'jose')
--
Gildenor Teixeira
2009/5/5 Humberto Oliveira holiveira.wordpr...@gmail.com
mailto:holiveira.wordpress%40gmail.com
leite romano,
se o segundo select é o que mais aproxima da sua solução e ainda não está
dando certo, é porque existe algo no valor do campo AUTOR que não está
satisfazendo a condição.
Passe mais detalhes.
2009/5/5 leite romano leite_rom...@yahoo.com.br
mailto:leite_romano%40yahoo.com.br leite_romano%40yahoo.com.br
oi Humberto, o segundo select que se aproxima mais do que eu preciso,
mas
mesmo assim não da certo pois não retornara nada. Obrigado pela atenção
outros colegas aki da lista ja me deram uma luz, vou continuar tentando
aki
assim que tiver uma solução eu posto aki.
--- Em ter, 5/5/09, Humberto Oliveira holiveira.wordpr...@gmail.com
mailto:holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com
holiveira.wordpress%40gmail.com
escreveu:
De: Humberto Oliveira holiveira.wordpr...@gmail.com
mailto:holiveira.wordpress%40gmail.com holiveira.wordpress%40gmail.com
holiveira.wordpress%40gmail.com
Assunto: Re: [delphi-br] ajuda SQL
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Data: Terça-feira, 5 de Maio de 2009, 14:48
select PROCESSO from TABELA where AUTOR in ('maria', 'jose')
ou
select PROCESSO from TABELA where (AUTOR = 'maria' and AUTOR = 'jose')
Resolve seu problema?
2009/5/5 leite romano leite_romano@ yahoo.com. br
criterio autor = 'maria' e 'jose'
segue a tabela
processo cliente autor
123 joao maria
123 joao jose
456 marcelo maria
456 marcelo jose
456 marcelo milton
789 jose maria
teria que retornar apenas o processo 123 pois é o unico que tem como
autor
maria e jose somente. uso FB1.5 ibx. Delculpem pelo e-mail anterior
bati
no
enter sem querer e enviou
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda com FastReport
Olá, preciso de sua ajuda de novo, pois consegui carregar a imagem mas quando
mando imprimir o relatório duas vezes seguidas, sendo que a imagem tem que ser
diferente nos dois não dá certo, fica a imagem que foi carregada primeiro, como
faço para limpar a imagem e carregar outra?
--- Em delphi-br@yahoogrupos.com.br, galvao_em galvao...@... escreveu
Paulo, Muito obrigado funcionou certinho
Att.
Rodrigo
--- Em delphi-br@yahoogrupos.com.br, Paulo Coutinho paulo@ escreveu
DM.frxReport.Script.Clear;
DM.frxReport.Script.AddVariable('valor_extenso', 'valor_extenso', 'xxx');
2009/4/26 Paulo Coutinho paulo@
Opa foi mal, o correto é:
frxFastReport.Variables.clear;
frxFastReport.Script.AddVariable('caminho_imagem', 'String',
'c:\teste.bmp');
2009/4/26 Paulo Coutinho paulo@
Sim,
E ontem mesmo estava com quase o mesmo problema, precisava passar o
caminho da imagem via delphi pro fast e depois de horas pesqusiando
consegui
resolver assim:
Pelo Delphi vc faz:
frxFastReport.Variables.clear;
frxFastReport.Script.Variables.add('caminho_imagem', 'String',
'c:\teste.bmp');
E pelo fastn na aba code vc faz:
begin
picturebox_fundo.Picture.LoadFromFile(caminho_imagem);
end;
Abração.
2009/4/25 galvao_em galvao_em@
Obrigado, funcionou certinho, gostaria de mais uma ajuda.
No meu relatório eu tenho uma imagem de plano de fundo, gostaria de
saber
como faço para mudar ela via linha de comando, isto é conforme a razão
social da empresa que for emitido o relatório eu envio para o
componente a
localização da imagem que deve estar no fundo, tem como?
Att.
--- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
TI - Metalurgica Jano ti@ escreveu
No evento onbeforeprint do objeto vc faz assim
If frxDbDados.CONSFRETEPAGO = `S' then
Objeto.text := `X';
Else
Objeto.text := `';
_
De: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br[mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de galvao_em
Enviada em: sexta-feira, 24 de abril de 2009 13:42
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com FastReport
Olá, estou começando com o fastreport e tenho o seguinte problema:
Estou com uma variável na qual gostaria que ela adotasse o valor 'X'
ou
''
conforme segue:
[IIF(frxDbDados.CONSFRETEPAGO='S','X',' ')]
isto é se o campo CONSFRETEPAGO for igual a 'S' ela assume 'X' senão
''.
coloquei esta função no fastreport mas da o seguinte erro:
Module Unload: UNKNOWN_MODULE_3. Process SCV.exe (1708)
First chance exception at $7C812AFB. Exception class
EVariantTypeCastError
with message 'Could not convert variant of type (Array Variant) into
type
(Boolean)'. Process SCV.exe (1708)
o que estou fazendo de errado?
uso delphi 2007 com fast 4.7.115.
Att.
Rodrigo
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: paulo@
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: paulo@
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: paulo@
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda.. PROBLEMA com Rave Reports 7.6 BE e Delphi 2009
se vc conseguiur a versão 7.6.1 acho que conseguirá resoover o problema Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com De: Ricardo rlginformat...@yahoo.com.br Para: rlginformat...@yahoo.com.br Enviadas: Terça-feira, 28 de Abril de 2009 0:58:36 Assunto: [delphi-br] Ajuda.. PROBLEMA com Rave Reports 7.6 BE e Delphi 2009 Boa Noite Pessoal! Estou com problemas na utilização do Rave Reports 7.6 BE e Delphi 2009 Eu gero o relatório normalmente (Preview) aparece tudo certinho .. Mas na hora de imprimir da erro .. a tela nem permite escolher uma impressora Fica um monte de símbolos em vez de aparecer nome da impressora.. Alguém já teve esse problema ? Já instalei e desinstalei o Delphi, o Rave e a impressora e não resolveu .. [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda com FastReport
Paulo, Muito obrigado funcionou certinho
Att.
Rodrigo
--- Em delphi-br@yahoogrupos.com.br, Paulo Coutinho pa...@... escreveu
DM.frxReport.Script.Clear;
DM.frxReport.Script.AddVariable('valor_extenso', 'valor_extenso', 'xxx');
2009/4/26 Paulo Coutinho pa...@...
Opa foi mal, o correto é:
frxFastReport.Variables.clear;
frxFastReport.Script.AddVariable('caminho_imagem', 'String',
'c:\teste.bmp');
2009/4/26 Paulo Coutinho pa...@...
Sim,
E ontem mesmo estava com quase o mesmo problema, precisava passar o
caminho da imagem via delphi pro fast e depois de horas pesqusiando
consegui
resolver assim:
Pelo Delphi vc faz:
frxFastReport.Variables.clear;
frxFastReport.Script.Variables.add('caminho_imagem', 'String',
'c:\teste.bmp');
E pelo fastn na aba code vc faz:
begin
picturebox_fundo.Picture.LoadFromFile(caminho_imagem);
end;
Abração.
2009/4/25 galvao_em galvao...@...
Obrigado, funcionou certinho, gostaria de mais uma ajuda.
No meu relatório eu tenho uma imagem de plano de fundo, gostaria de saber
como faço para mudar ela via linha de comando, isto é conforme a razão
social da empresa que for emitido o relatório eu envio para o componente a
localização da imagem que deve estar no fundo, tem como?
Att.
--- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
TI - Metalurgica Jano ti@ escreveu
No evento onbeforeprint do objeto vc faz assim
If frxDbDados.CONSFRETEPAGO = `S' then
Objeto.text := `X';
Else
Objeto.text := `';
_
De: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br[mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de galvao_em
Enviada em: sexta-feira, 24 de abril de 2009 13:42
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com FastReport
Olá, estou começando com o fastreport e tenho o seguinte problema:
Estou com uma variável na qual gostaria que ela adotasse o valor 'X' ou
''
conforme segue:
[IIF(frxDbDados.CONSFRETEPAGO='S','X',' ')]
isto é se o campo CONSFRETEPAGO for igual a 'S' ela assume 'X' senão
''.
coloquei esta função no fastreport mas da o seguinte erro:
Module Unload: UNKNOWN_MODULE_3. Process SCV.exe (1708)
First chance exception at $7C812AFB. Exception class
EVariantTypeCastError
with message 'Could not convert variant of type (Array Variant) into
type
(Boolean)'. Process SCV.exe (1708)
o que estou fazendo de errado?
uso delphi 2007 com fast 4.7.115.
Att.
Rodrigo
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@...
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@...
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@...
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda com FastReport
Opa foi mal, o correto é:
frxFastReport.Variables.clear;
frxFastReport.Script.AddVariable('caminho_imagem', 'String',
'c:\teste.bmp');
2009/4/26 Paulo Coutinho pa...@prsolucoes.com
Sim,
E ontem mesmo estava com quase o mesmo problema, precisava passar o caminho
da imagem via delphi pro fast e depois de horas pesqusiando consegui
resolver assim:
Pelo Delphi vc faz:
frxFastReport.Variables.clear;
frxFastReport.Script.Variables.add('caminho_imagem', 'String',
'c:\teste.bmp');
E pelo fastn na aba code vc faz:
begin
picturebox_fundo.Picture.LoadFromFile(caminho_imagem);
end;
Abração.
2009/4/25 galvao_em galvao...@yahoo.com.br
Obrigado, funcionou certinho, gostaria de mais uma ajuda.
No meu relatório eu tenho uma imagem de plano de fundo, gostaria de saber
como faço para mudar ela via linha de comando, isto é conforme a razão
social da empresa que for emitido o relatório eu envio para o componente a
localização da imagem que deve estar no fundo, tem como?
Att.
--- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, TI
- Metalurgica Jano t...@... escreveu
No evento onbeforeprint do objeto vc faz assim
If frxDbDados.CONSFRETEPAGO = `S' then
Objeto.text := `X';
Else
Objeto.text := `';
_
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de galvao_em
Enviada em: sexta-feira, 24 de abril de 2009 13:42
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com FastReport
Olá, estou começando com o fastreport e tenho o seguinte problema:
Estou com uma variável na qual gostaria que ela adotasse o valor 'X' ou
''
conforme segue:
[IIF(frxDbDados.CONSFRETEPAGO='S','X',' ')]
isto é se o campo CONSFRETEPAGO for igual a 'S' ela assume 'X' senão ''.
coloquei esta função no fastreport mas da o seguinte erro:
Module Unload: UNKNOWN_MODULE_3. Process SCV.exe (1708)
First chance exception at $7C812AFB. Exception class
EVariantTypeCastError
with message 'Could not convert variant of type (Array Variant) into
type
(Boolean)'. Process SCV.exe (1708)
o que estou fazendo de errado?
uso delphi 2007 com fast 4.7.115.
Att.
Rodrigo
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda com FastReport
DM.frxReport.Script.Clear;
DM.frxReport.Script.AddVariable('valor_extenso', 'valor_extenso', 'xxx');
2009/4/26 Paulo Coutinho pa...@prsolucoes.com
Opa foi mal, o correto é:
frxFastReport.Variables.clear;
frxFastReport.Script.AddVariable('caminho_imagem', 'String',
'c:\teste.bmp');
2009/4/26 Paulo Coutinho pa...@prsolucoes.com
Sim,
E ontem mesmo estava com quase o mesmo problema, precisava passar o
caminho da imagem via delphi pro fast e depois de horas pesqusiando consegui
resolver assim:
Pelo Delphi vc faz:
frxFastReport.Variables.clear;
frxFastReport.Script.Variables.add('caminho_imagem', 'String',
'c:\teste.bmp');
E pelo fastn na aba code vc faz:
begin
picturebox_fundo.Picture.LoadFromFile(caminho_imagem);
end;
Abração.
2009/4/25 galvao_em galvao...@yahoo.com.br
Obrigado, funcionou certinho, gostaria de mais uma ajuda.
No meu relatório eu tenho uma imagem de plano de fundo, gostaria de saber
como faço para mudar ela via linha de comando, isto é conforme a razão
social da empresa que for emitido o relatório eu envio para o componente a
localização da imagem que deve estar no fundo, tem como?
Att.
--- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
TI - Metalurgica Jano t...@... escreveu
No evento onbeforeprint do objeto vc faz assim
If frxDbDados.CONSFRETEPAGO = `S' then
Objeto.text := `X';
Else
Objeto.text := `';
_
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de galvao_em
Enviada em: sexta-feira, 24 de abril de 2009 13:42
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com FastReport
Olá, estou começando com o fastreport e tenho o seguinte problema:
Estou com uma variável na qual gostaria que ela adotasse o valor 'X' ou
''
conforme segue:
[IIF(frxDbDados.CONSFRETEPAGO='S','X',' ')]
isto é se o campo CONSFRETEPAGO for igual a 'S' ela assume 'X' senão
''.
coloquei esta função no fastreport mas da o seguinte erro:
Module Unload: UNKNOWN_MODULE_3. Process SCV.exe (1708)
First chance exception at $7C812AFB. Exception class
EVariantTypeCastError
with message 'Could not convert variant of type (Array Variant) into
type
(Boolean)'. Process SCV.exe (1708)
o que estou fazendo de errado?
uso delphi 2007 com fast 4.7.115.
Att.
Rodrigo
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda com FastReport
Obrigado, funcionou certinho, gostaria de mais uma ajuda. No meu relatório eu tenho uma imagem de plano de fundo, gostaria de saber como faço para mudar ela via linha de comando, isto é conforme a razão social da empresa que for emitido o relatório eu envio para o componente a localização da imagem que deve estar no fundo, tem como? Att. --- Em delphi-br@yahoogrupos.com.br, TI - Metalurgica Jano t...@... escreveu No evento onbeforeprint do objeto vc faz assim If frxDbDados.CONSFRETEPAGO = `S' then Objeto.text := `X'; Else Objeto.text := `'; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de galvao_em Enviada em: sexta-feira, 24 de abril de 2009 13:42 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda com FastReport Olá, estou começando com o fastreport e tenho o seguinte problema: Estou com uma variável na qual gostaria que ela adotasse o valor 'X' ou '' conforme segue: [IIF(frxDbDados.CONSFRETEPAGO='S','X',' ')] isto é se o campo CONSFRETEPAGO for igual a 'S' ela assume 'X' senão ''. coloquei esta função no fastreport mas da o seguinte erro: Module Unload: UNKNOWN_MODULE_3. Process SCV.exe (1708) First chance exception at $7C812AFB. Exception class EVariantTypeCastError with message 'Could not convert variant of type (Array Variant) into type (Boolean)'. Process SCV.exe (1708) o que estou fazendo de errado? uso delphi 2007 com fast 4.7.115. Att. Rodrigo [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda inserir figura em imagem
Se for tipo uma seta ou um circulo por que não abre no paint do Windows faz o que vc e quer e depois salva? De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de alessandra porto Enviada em: sábado, 25 de abril de 2009 15:37 Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ajuda inserir figura em imagem amigos preciso inserir uma figura (como uma seta por exemplo) sobre uma imagem tipo uma foto em um componente image O problema e que nem tenho ideia de como fazer isso , pois oque preciso é algo como marcar com uma seta uma determinada região de uma foto agradeço muito aos amigos que ajudarem com ideias ou mesmo pequeno exemplo de como fazer isso Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.12.4/2080 - Release Date: 04/25/09 08:29:00 [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda com FastReport
Sim,
E ontem mesmo estava com quase o mesmo problema, precisava passar o caminho
da imagem via delphi pro fast e depois de horas pesqusiando consegui
resolver assim:
Pelo Delphi vc faz:
frxFastReport.Variables.clear;
frxFastReport.Script.Variables.add('caminho_imagem', 'String',
'c:\teste.bmp');
E pelo fastn na aba code vc faz:
begin
picturebox_fundo.Picture.LoadFromFile(caminho_imagem);
end;
Abração.
2009/4/25 galvao_em galvao...@yahoo.com.br
Obrigado, funcionou certinho, gostaria de mais uma ajuda.
No meu relatório eu tenho uma imagem de plano de fundo, gostaria de saber
como faço para mudar ela via linha de comando, isto é conforme a razão
social da empresa que for emitido o relatório eu envio para o componente a
localização da imagem que deve estar no fundo, tem como?
Att.
--- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, TI
- Metalurgica Jano t...@... escreveu
No evento onbeforeprint do objeto vc faz assim
If frxDbDados.CONSFRETEPAGO = `S' then
Objeto.text := `X';
Else
Objeto.text := `';
_
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de galvao_em
Enviada em: sexta-feira, 24 de abril de 2009 13:42
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com FastReport
Olá, estou começando com o fastreport e tenho o seguinte problema:
Estou com uma variável na qual gostaria que ela adotasse o valor 'X' ou
''
conforme segue:
[IIF(frxDbDados.CONSFRETEPAGO='S','X',' ')]
isto é se o campo CONSFRETEPAGO for igual a 'S' ela assume 'X' senão ''.
coloquei esta função no fastreport mas da o seguinte erro:
Module Unload: UNKNOWN_MODULE_3. Process SCV.exe (1708)
First chance exception at $7C812AFB. Exception class
EVariantTypeCastError
with message 'Could not convert variant of type (Array Variant) into type
(Boolean)'. Process SCV.exe (1708)
o que estou fazendo de errado?
uso delphi 2007 com fast 4.7.115.
Att.
Rodrigo
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com FastReport
No evento onbeforeprint do objeto vc faz assim If frxDbDados.CONSFRETEPAGO = S then Objeto.text := X; Else Objeto.text := ; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de galvao_em Enviada em: sexta-feira, 24 de abril de 2009 13:42 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda com FastReport Olá, estou começando com o fastreport e tenho o seguinte problema: Estou com uma variável na qual gostaria que ela adotasse o valor 'X' ou '' conforme segue: [IIF(frxDbDados.CONSFRETEPAGO='S','X',' ')] isto é se o campo CONSFRETEPAGO for igual a 'S' ela assume 'X' senão ''. coloquei esta função no fastreport mas da o seguinte erro: Module Unload: UNKNOWN_MODULE_3. Process SCV.exe (1708) First chance exception at $7C812AFB. Exception class EVariantTypeCastError with message 'Could not convert variant of type (Array Variant) into type (Boolean)'. Process SCV.exe (1708) o que estou fazendo de errado? uso delphi 2007 com fast 4.7.115. Att. Rodrigo [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000
Alessandro, Post os erros... talvez ajude. []s De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de TI - Metalurgica Jano Enviada em: terça-feira, 24 de março de 2009 08:22 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000 Bom dia a todos, Estou iniciando uma aplicação com delphi 2009 e sql server 2000. Tenho um form onde utilizei o método nested para cadastro de companhias e plantas da companhia. Estou passando por vários tipos de erros sem nenhum sentido. Alguém pode me ajudar? METALÚRGICA JANO LTDA FUNDIÇÃO DE AÇO CARBONO - INOX - MANGANÊS Alessandro Pichiteli Analista de TI (37) 3214-1140 P Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente e nos custos de sua empresa [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000
Este é o erro. Não é possível criar uma nova conexão porque o modo usado é o de transação manual ou distribuída METALÚRGICA JANO LTDA FUNDIÇÃO DE AÇO CARBONO - INOX - MANGANÊS Alessandro Pichiteli Analista de TI (37) 3214-1140 P Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente e nos custos de sua empresa _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leandro A. Nunes Enviada em: terça-feira, 24 de março de 2009 09:00 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000 Alessandro, Post os erros... talvez ajude. []s De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de TI - Metalurgica Jano Enviada em: terça-feira, 24 de março de 2009 08:22 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000 Bom dia a todos, Estou iniciando uma aplicação com delphi 2009 e sql server 2000. Tenho um form onde utilizei o método nested para cadastro de companhias e plantas da companhia. Estou passando por vários tipos de erros sem nenhum sentido. Alguém pode me ajudar? METALÚRGICA JANO LTDA FUNDIÇÃO DE AÇO CARBONO - INOX - MANGANÊS Alessandro Pichiteli Analista de TI (37) 3214-1140 P Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente e nos custos de sua empresa [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda recorte de imagem proporcional
Olá galera, Eu acho que a JVCL tem um componente para isso, no caso, seria usar uma propriedade Zoom, veja, eu não tenho certeza, mas, parece que já fiz isso antes, estou sem a JVCL instalada para procurar o componente e fazer uma teste. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: Rodrigo Guimaraes guimaraesrodr...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 20 de Março de 2009 16:53:54 Assunto: Re: [delphi-br] Ajuda recorte de imagem proporcional Hlp - RODRIGO G. CUNHA 2009/3/20 Rodrigo Guimaraes guimaraesrodrigo@ gmail.com Ninguém? - RODRIGO G. CUNHA 2009/3/19 guimaraesrodrigo23 guimaraesrodrigo@ gmail.com Fala pessoal boa tarde, Estou com um problema, se alguém puder ajudar agradeço. Tenho um Timage com uma imagem em uma resolução muito alta, portanto para a imagem aparecer completa no Timage eu marco a propriedade proportional como true. quando vou recortar a imagem com a propriedade proportional setada para true, ele faz o recorte como se a propriedade não estivesse setada. ou seja se eu posicionar o corte no meio da tela ele acaba cortando mais a esquerda, devido a proporção montada. Alguém saberia como faço para fazer o recorte levando em conta a proporção montada pelo Timage? abaixo a função que uso para o recorte: procedure TForm1.Button1Click (Sender: TObject); var TmpBmp : TBitmap; begin Image1.Canvas. DrawFocusRect( Rect(PDown. x, PDown.y, PActually.x, PActually.y) ); TmpBmp := TBitmap.Create; with TmpBmp do try Width := Round(abs(PActually .x - PDown.x)); Height := Round(abs(PActually .y - PDown.y)); BitBlt(Canvas. Handle, 0, 0, Width, Height, Image1.Canvas. Handle, PDown.x, PDown.y, SRCCOPY); Image1.Picture. Bitmap.Assign( TmpBmp); finally Free; end; end; Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com Caracter sets
Ola Ricardo, olha, eu estou fazendo da maneira mais simples possivel, mesmo pq o banco só tem 8 tabelas, mais tem bastantes registros. Estou copiando registro a registro, eu criei um outro banco com caracter set = none e migrei sem problemas, mais quando crio o banco corretamente com o caracter set = win1250, aparece este erro Não tentei por script, na verdade não sei como fazer um banco enxergar o outro para rodar um script, agradeço se me der uma luz. Um abraço. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em nome de Ricardo César Cardoso Enviada em: quinta-feira, 5 de fevereiro de 2009 08:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ajuda com Caracter sets Olha Vinícius minha resposta não é a melhor, mas vou arriscar. Não sei como vc fez com os dados, vc gerou um script com os dados do banco antigo? Como vc está fazendo essa cópia? Geralmente eu gero um script de inclusão dos dados e depois rodo esse script no banco novo. Se é isso que vc está fazendo, tente uma estratégia mais burra: faça uma aplicação de dump que lê os dados de um banco e simplesmente insere no outro, se isso for possível. Não consultei os oráculos do saber (a.k.a. Google, Altavista, Cadê, entre outros) a respeito. Pode ser que eles tenha respostas muito mais práticas e inteligentes que as minhas. []'s Ricardo. _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 5/2/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu: Bom dia a todos, o problema é o seguinte: tem um banco de um cliente, que já está em produção, mais estava apresentando alguns erros de indice, fora de ordem com problemas em acentuação. Verifiquei que o banco foi criado com CARACTER SET = NONE e sei que isto gera uma série de problemas. Solução, copiei as estruturas de todas as tabelas e criei um banco novo, com CARACTER SET = WIN1250, sempre utilizei ele e não tive problemas. Só que na hora que eu estou copiando os dados de uma tabela do banco antigo pro banco novo, logo depois do primeiro registro aparece a seguinte mensagem: arithmetic exception, numeri overflow, or string truncation. Cannot transliterate character between character sets Alguem tem alguma sugestão pra me passar, qual a melhor maneira de eu corrigir este problema no banco antigo?? tem alguma outra maneira de se fazer isto?? Estou utilizando D7 e InterBase. Aguardo qq resposta. Vinicius Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: RES: [delphi-br] Ajuda com Caracter sets
Beleza Vinícius, por pior que parece, o problema não é tão crítico (eu acho...) Para a explanação, estou usando o IBExpert Personal 2005.06.07 (pode usar uma versão mais atual que esse recurso é padrão da ferramenta) Para extrair os dados de uma tabela para um script, faça o seguinte: * Conecte o banco de dados (duplo clique banco registrado na janela DataBase Explorer); * Abra a tabela que deseja exportar o script (expanda o item Tables dentro do seu banco, e duplo clique sobre a tabela que deseja manipular); * Na janela da sua tabela, clique no botão Table (vai estar no alto da janela da sua tabela, do lado esquerdo) e no menu que abre, selecione Export Data Into Script; * Na janela que será aberta (Export Data into Script), mantenha as configurações padrão (Export Into = File; Export as = INSERT Statements) e marque os campos que quer incluir no script, por padrão todos os campos são selecionados. Veja se será necessário mudar alguma configuração na aba Options. Existem opções para gerar o script de criação da tabela, para como formatar datas e horas e para trocar caracteres não-imprimíveis por espaços; explore e use essas configurações como lhe for melhor. Também é possível gerar o script com os dados ordenaos (Order By) ou extrair apenas os registros que satisfaçam uma condição (Where) * Defina um nome e local para gravação do arquivo em File Name; * Clique em Export e aguarde o final da operação (o número total de registros gerados no script é informado). Uma vez que o script foi gerado, é fácil. Basta conectar ao novo BD e usar uma ferramenta do próprio IBExpert, o Script Executive, carregar o arquivo .SQL que vc gravou e mandar executar. Easy as it is! O IB deve ter ferramentas similares para isso, mas como faz algum tempo que não uso, precisaria instalar e fuçar um pouco para relembrar. No IBExpert já sei de cor pois já tive que fazer esse processo algumas vezes. Veja se isso lhe atende! []'s Ricardo. _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 5/2/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu: Ola Ricardo, olha, eu estou fazendo da maneira mais simples possivel, mesmo pq o banco só tem 8 tabelas, mais tem bastantes registros. Estou copiando registro a registro, eu criei um outro banco com caracter set = none e migrei sem problemas, mais quando crio o banco corretamente com o caracter set = win1250, aparece este erro Não tentei por script, na verdade não sei como fazer um banco enxergar o outro para rodar um script, agradeço se me der uma luz. Um abraço. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Res: [delphi-br] ajuda intervalo numerico
if (num in [23..56]) and (num in [30..45]) then
ShowMessage('Numero dentro dos dois intervalos');
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com treeview
Andressa... Estou te enviando um segundo código para vc sobrepor ao que te enviei antes... acho que resolve seu problema... Em tempo... Neste segundo código, enviei hoje, mais cedo um com um pequeno bub que consertei... Veja a segunda mensagem com anexo!! Silvio Clécio... Te enviei também para vc disponibilizar no teu blog, camarada!!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Andresa Ferreira escreveu: Oi Coutinho... Eu fiz assim: procedure TfrmMenuModulos.tvMenuExpanded(Sender: TObject; Node: TTreeNode); begin inherited; with tvMenu do Select(Node); end; procedure TfrmMenuModulos.tvMenuCollapsed(Sender: TObject; Node: TTreeNode); begin inherited; with tvMenu do Select(Node); end; E deu super certo... o único detalhe agora, e que qdo abre a tela o menu está vindo aberto. O AutoExpand está False. Ele está vindo aberto por causa do evento vMenuCollapsed. Mas se eu não colocar esse, e colocar apenas o tvMenuExpanded, quando eu clico no (+) fica certinho, mas qdo eu clico p/ fechar (-) ele ainda abre uma tela que abri, e não deveria. GRata, Andresa . --
Re: Res: Res: [delphi-br] Ajuda com treeview
Aí Andressa. Recebeu o exemplo do Treeview, ajudou para o que vc queria? Sds Emanuel Coutinho
Res: Res: Res: [delphi-br] Ajuda com treeview
Oi Coutinho. Eu repondi seu e-mail Acho que não deve ter ido. Assim, o exemplo foi ótimo, e me fez entender bastante coisa. O problema, que acontece, é que qdo vc clica no mais (+) ele não muda o foco, só muda o foco se vc clicar na descrição, sendo assim ele traz as informações do último que foi aberto (aquele que ficou com o foco). Tem algum jeito de qduando eu clicar no (+) ele já mudar o foco p/ essa linha??? Andresa De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 21 de Janeiro de 2009 11:28:38 Assunto: Re: Res: Res: [delphi-br] Ajuda com treeview Aí Andressa. Recebeu o exemplo do Treeview, ajudou para o que vc queria? Sds Emanuel Coutinho Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com treeview
Andressa,
O absolute index funciona, do jeito que eu coloquei, tanto para quando
clica, quanto para quando navega com as teclas...
Quando vc clica no + está abrindo os children do parent node...
assim, o foco ainda está no parent node...
Vou verificar um teste aqui, se tem como fazer selecionar o primeiro
child node qudando vc expande os children nodes...
Abaixo está o código com as alterações que fiz para uncionar como necessita.
Deixe o Auto-Expand Desligado, senão não vai funcionar legal
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure TreeView1Expanded(Sender: TObject; Node: TTreeNode);
private
{ Private declarations }
public
{ Public declarations }
Diretorio: String;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with Treeview1 do
begin
LoadFromFile(diretorio+'Treeitems.txt');
SetFocus;
Select(TreeView1.Items.GetFirstNode);
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Diretorio := extractFilePath(application.ExeName);
end;
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Label1.Caption := 'Este é o Absolute Index: ' +
IntToStr(Treeview1.Selected.AbsoluteIndex);
Label2.Caption := 'Este é o Index: ' +
IntToStr(Treeview1.Selected.Index);
end;
procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
with Treeview1 do
begin
Select(Node);
Select(Selected.getFirstChild);
end;
end;
end.
Vejaí no código anterior, as alterações que fiz aqui, e manda ver!!!
Sds,
__
Emanuel Coutinho
Salvador-Ba-Brasil
Andresa Ferreira escreveu:
Oi Coutinho. Eu repondi seu e-mail Acho que não deve ter ido.
Assim, o exemplo foi ótimo, e me fez entender bastante coisa.
O problema, que acontece, é que qdo vc clica no mais (+) ele não muda
o foco, só muda o foco se vc clicar na descrição, sendo assim ele traz
as informações do último que foi aberto (aquele que ficou com o foco).
Tem algum jeito de qduando eu clicar no (+) ele já mudar o foco p/
essa linha???
Andresa
--
Re: Res: [delphi-br] Ajuda com treeview
Testei depois com o autoexpand true e ficou legal... desculpe... Sds Emanuel Coutinho
Res: [delphi-br] Ajuda com treeview
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items.Count - 1 do
begin
if tvMenu.Items[i].Selected then
begin
if not tvMenu.Items[i].HasChildren then
begin
{$IFDEF IF_MILLENIUM}
Exec_Form_IF(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
{$ENDIF}
{$IFDEF CTRL}
Exec_Form_CTRL(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
{$ENDIF}
end;
Break;
end;
end;
Me parece que essa parte tvMenu.Items[i].Selected não faz certo Olha o
exemplo:
Configurações
- Empresa
Parametros
Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em Empresas ele
abre a tela correta. Aí eu clico em Parametros e ele abre a tela de Empresas de
novo. Qdo ele passa no for, ele acha que o i que está selecionado é o da
empresa...
Preciso de ajuda
Andresa
De: Lucas Neves lucas_del...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04
Assunto: Re: [delphi-br] Ajuda com treeview
Se isso for regra para todos os nos que tem subdivisoes, use a
propriedade HasChildren.
if not Node.HasChildren then
// coloque aqui a funcao que chama o form...
Espero que ajude
Lucas
Andresa Ferreira escreveu:
Olá pessoal
Tô precisando de um help.
Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da
árvore, ele abre o último frm que foi aberto.
Como faria para qdo clicar no mais (+) não abrir nenhum frm???
Andresa
_ _ __
De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
mailto:djpardalroc ha%40hotmail. com
Para: delphi-br delphi...@yahoogrup os.com.br
mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12
Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7
É expressamente proibida qualquer menção à pirataria na lista! Está
fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui!
Sds.
To: delphi...@yahoogrup os.com.br
From: rafaelpinto@ cdsol.com. br
Date: Mon, 19 Jan 2009 18:27:38 +
Subject: [delphi-br] Perdi o Meu CD do Delphi 7
Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou
conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa
fazer o Downloade dele Rapidinho??? ?
Estou precisando muito!!!
_ _ _ _ _ _
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video. msn.com/? mkt=pt-br
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Ajuda com treeview
Colega,
Você tentou usar
Selected.absoluteindex para associar com a sua janela?
Sds
Emanuel Couitnho
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items.Count - 1 do
begin
if tvMenu.Items[i].Selected then
begin
if not tvMenu.Items[i].HasChildren then
begin
{$IFDEF IF_MILLENIUM}
Exec_Form_IF(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
{$ENDIF}
{$IFDEF CTRL}
Exec_Form_CTRL(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
{$ENDIF}
end;
Break;
end;
end;
Me parece que essa parte tvMenu.Items[i].Selected não faz certo
Olha o exemplo:
Configurações
- Empresa
Parametros
Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em
Empresas ele abre a tela correta. Aí eu clico em Parametros e ele abre
a tela de Empresas de novo. Qdo ele passa no for, ele acha que o i que
está selecionado é o da empresa...
Preciso de ajuda
Andresa
De: Lucas Neves lucas_del...@yahoo.com.br
mailto:lucas_delphi%40yahoo.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04
Assunto: Re: [delphi-br] Ajuda com treeview
Se isso for regra para todos os nos que tem subdivisoes, use a
propriedade HasChildren.
if not Node.HasChildren then
// coloque aqui a funcao que chama o form...
Espero que ajude
Lucas
Andresa Ferreira escreveu:
Olá pessoal
Tô precisando de um help.
Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da
árvore, ele abre o último frm que foi aberto.
Como faria para qdo clicar no mais (+) não abrir nenhum frm???
Andresa
_ _ __
De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
mailto:djpardalroc ha%40hotmail. com
Para: delphi-br delphi...@yahoogrup os.com.br
mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12
Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7
É expressamente proibida qualquer menção à pirataria na lista! Está
fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui!
Sds.
To: delphi...@yahoogrup os.com.br
From: rafaelpinto@ cdsol.com. br
Date: Mon, 19 Jan 2009 18:27:38 +
Subject: [delphi-br] Perdi o Meu CD do Delphi 7
Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou
conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa
fazer o Downloade dele Rapidinho??? ?
Estou precisando muito!!!
_ _ _ _ _ _
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video. msn.com/? mkt=pt-br
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo.
com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Ajuda com treeview
Use tmMenu.Items.Selected.Absoluteindex...
Ok?
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items.Count - 1 do
begin
if tvMenu.Items[i].Selected then
begin
if not tvMenu.Items[i].HasChildren then
begin
{$IFDEF IF_MILLENIUM}
Exec_Form_IF(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
{$ENDIF}
{$IFDEF CTRL}
Exec_Form_CTRL(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
{$ENDIF}
end;
Break;
end;
end;
Me parece que essa parte tvMenu.Items[i].Selected não faz certo
Olha o exemplo:
Configurações
- Empresa
Parametros
Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em
Empresas ele abre a tela correta. Aí eu clico em Parametros e ele abre
a tela de Empresas de novo. Qdo ele passa no for, ele acha que o i que
está selecionado é o da empresa...
Preciso de ajuda
Andresa
De: Lucas Neves lucas_del...@yahoo.com.br
mailto:lucas_delphi%40yahoo.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04
Assunto: Re: [delphi-br] Ajuda com treeview
Se isso for regra para todos os nos que tem subdivisoes, use a
propriedade HasChildren.
if not Node.HasChildren then
// coloque aqui a funcao que chama o form...
Espero que ajude
Lucas
Andresa Ferreira escreveu:
Olá pessoal
Tô precisando de um help.
Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da
árvore, ele abre o último frm que foi aberto.
Como faria para qdo clicar no mais (+) não abrir nenhum frm???
Andresa
_ _ __
De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
mailto:djpardalroc ha%40hotmail. com
Para: delphi-br delphi...@yahoogrup os.com.br
mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12
Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7
É expressamente proibida qualquer menção à pirataria na lista! Está
fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui!
Sds.
To: delphi...@yahoogrup os.com.br
From: rafaelpinto@ cdsol.com. br
Date: Mon, 19 Jan 2009 18:27:38 +
Subject: [delphi-br] Perdi o Meu CD do Delphi 7
Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou
conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa
fazer o Downloade dele Rapidinho??? ?
Estou precisando muito!!!
_ _ _ _ _ _
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video. msn.com/? mkt=pt-br
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo.
com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: Res: [delphi-br] Ajuda com treeview
Andressa
O componente treeview padrão do delphi tem a propriedade selected
e a propriedade selected tem a AbsoluteIndex.
vou preparar uma coisinha aqui e te envio em PVT para vc poder dar uma
olhada... ok?
aguarde hoje à noite
sds
Emanuel Coutinho
Andresa Ferreira escreveu:
Então Coutinho, não consegui achar essas propriedades no componente
treeview. O Delphi não aceita essa linha de codigo.
Vc pode me explicar melhor?
Andresa
De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br
mailto:emanuelcoutinho%40yahoo.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 20 de Janeiro de 2009 11:57:51
Assunto: Re: Res: [delphi-br] Ajuda com treeview
Use tmMenu.Items. Selected. Absoluteindex. ..
Ok?
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items. Count - 1 do
begin
if tvMenu..Items[ i].Selected then
begin
if not tvMenu.Items[ i].HasChildren then
begin
{$IFDEF IF_MILLENIUM}
Exec_Form_IF( pMenu(tvMenu. Items[i]. Data)^.sNm_ Form);
{$ENDIF}
{$IFDEF CTRL}
Exec_Form_CTRL( pMenu(tvMenu. Items[i]. Data)^.sNm_ Form);
{$ENDIF}
end;
Break;
end;
end;
Me parece que essa parte tvMenu.Items[ i].Selected não faz certo
Olha o exemplo:
Configurações
- Empresa
Parametros
Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em
Empresas ele abre a tela correta. Aí eu clico em Parametros e ele abre
a tela de Empresas de novo. Qdo ele passa no for, ele acha que o i que
está selecionado é o da empresa...
Preciso de ajuda
Andresa
_ _ __
De: Lucas Neves lucas_delphi@ yahoo.com. br
mailto:lucas_ delphi%40yahoo. com.br
Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos
.com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04
Assunto: Re: [delphi-br] Ajuda com treeview
Se isso for regra para todos os nos que tem subdivisoes, use a
propriedade HasChildren.
if not Node.HasChildren then
// coloque aqui a funcao que chama o form...
Espero que ajude
Lucas
Andresa Ferreira escreveu:
Olá pessoal
Tô precisando de um help.
Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da
árvore, ele abre o último frm que foi aberto.
Como faria para qdo clicar no mais (+) não abrir nenhum frm???
Andresa
_ _ __
De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
mailto:djpardalroc ha%40hotmail. com
Para: delphi-br delphi...@yahoogru p os..com.br
mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12
Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7
É expressamente proibida qualquer menção à pirataria na lista! Está
fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui!
Sds.
To: delphi...@yahoogrup os.com.br
From: rafaelpinto@ cdsol.com. br
Date: Mon, 19 Jan 2009 18:27:38 +
Subject: [delphi-br] Perdi o Meu CD do Delphi 7
Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou
conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa
fazer o Downloade dele Rapidinho??? ?
Estou precisando muito!!!
_ _ _ _ _ _
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video. msn.com/? mkt=pt-br
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo.
com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Ajuda com treeview
Então Coutinho, não consegui achar essas propriedades no componente treeview. O
Delphi não aceita essa linha de codigo.
Vc pode me explicar melhor?
Andresa
De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 20 de Janeiro de 2009 11:57:51
Assunto: Re: Res: [delphi-br] Ajuda com treeview
Use tmMenu.Items. Selected. Absoluteindex. ..
Ok?
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items. Count - 1 do
begin
if tvMenu..Items[ i].Selected then
begin
if not tvMenu.Items[ i].HasChildren then
begin
{$IFDEF IF_MILLENIUM}
Exec_Form_IF( pMenu(tvMenu. Items[i]. Data)^.sNm_ Form);
{$ENDIF}
{$IFDEF CTRL}
Exec_Form_CTRL( pMenu(tvMenu. Items[i]. Data)^.sNm_ Form);
{$ENDIF}
end;
Break;
end;
end;
Me parece que essa parte tvMenu.Items[ i].Selected não faz certo
Olha o exemplo:
Configurações
- Empresa
Parametros
Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em
Empresas ele abre a tela correta. Aí eu clico em Parametros e ele abre
a tela de Empresas de novo. Qdo ele passa no for, ele acha que o i que
está selecionado é o da empresa...
Preciso de ajuda
Andresa
_ _ __
De: Lucas Neves lucas_delphi@ yahoo.com. br
mailto:lucas_ delphi%40yahoo. com.br
Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04
Assunto: Re: [delphi-br] Ajuda com treeview
Se isso for regra para todos os nos que tem subdivisoes, use a
propriedade HasChildren.
if not Node.HasChildren then
// coloque aqui a funcao que chama o form...
Espero que ajude
Lucas
Andresa Ferreira escreveu:
Olá pessoal
Tô precisando de um help.
Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da
árvore, ele abre o último frm que foi aberto.
Como faria para qdo clicar no mais (+) não abrir nenhum frm???
Andresa
_ _ __
De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
mailto:djpardalroc ha%40hotmail. com
Para: delphi-br delphi...@yahoogru p os..com.br
mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12
Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7
É expressamente proibida qualquer menção à pirataria na lista! Está
fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui!
Sds.
To: delphi...@yahoogrup os.com.br
From: rafaelpinto@ cdsol.com. br
Date: Mon, 19 Jan 2009 18:27:38 +
Subject: [delphi-br] Perdi o Meu CD do Delphi 7
Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou
conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa
fazer o Downloade dele Rapidinho??? ?
Estou precisando muito!!!
_ _ _ _ _ _
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video. msn.com/? mkt=pt-br
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo.
com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Olá Moacir, Na verdade vou comprar farinha e depois produzir o pão. Comprando farinha, adiciono seu estoque e depois que eu produzir o pão, dou baixa no estoque de farinha e aumento o estoque de pão. Quando eu vender o pão, baixo o estoque do pão. Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e a ficha técnica desses produtos cadastrados na tabela COMPOSICAO. Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a quantidade de farinha de que é feito o pão e dar baixa no estoque dessa farinha, que fica na tabela PRODUTOS. Se não consegui ser bem claro, por favor, me diga que explico melhor. Fabio. De: Moacir - GMail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34 Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS Fabio, Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ?? Acredito que voce deva estar comprando farinha, leite, etc e depois produzindo o pão, correto ? Se este for o caso voce deve dar entrada dos insumos para fabricação do pão e ao produzi-lo dar baixa dos insumos utilizados. [ ]´s Moacir Fabio R Cardoso escreveu: Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda. Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema: PRODUTOS COMPOSICAO COMPRAS Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos formados por outros produtos, na qual estes estão na tabela COMPOSICAO. É assim, por exemplo: PRODUTOS (código e descrição) 1 - coca cola 2 - pão francês 3 - farinha de trigo 4 - leite 5 - noz moscada COMPOSICAO (código, código do produto e qtde) 1 - 2 (farinha de trigo) - 20g 2 - 2 (leite) - 1l Observem que apenas o produto 2 (pão francês) possui registros na composição, uma vez que ele é feito de outros produtos. Eu quero criar um processo automático para varrer a composição do produto comprado e adicionar o estoque dos produtos na composição do produto. Espero ter conseguido explicar. Por favor, me ajudem. Fabio. - - -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Fabinho, As operações de movimentação de estoque se darão nesta ordem: 1) Entrada de INSUMOS por compra - Registra NF de entrada 2) Baixa de INSUMOS para utilização na produção de PRODUTOS (nesta caso pães) - Registra a Requisição Interna de Materiais 3) Baixa de PRODUTOS por venda (neste caso pães) Voce deve movimentar o estoque de INSUMOS quando for produzir os PRODUTOS ACABADOS (ou SEMI-ACABADOS) [ ]´s Moacir Fabinho escreveu: Olá Moacir, Na verdade vou comprar farinha e depois produzir o pão. Comprando farinha, adiciono seu estoque e depois que eu produzir o pão, dou baixa no estoque de farinha e aumento o estoque de pão. Quando eu vender o pão, baixo o estoque do pão. Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e a ficha técnica desses produtos cadastrados na tabela COMPOSICAO. Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a quantidade de farinha de que é feito o pão e dar baixa no estoque dessa farinha, que fica na tabela PRODUTOS. Se não consegui ser bem claro, por favor, me diga que explico melhor. Fabio. De: Moacir - GMail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34 Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS Fabio, Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ?? Acredito que voce deva estar comprando farinha, leite, etc e depois produzindo o pão, correto ? Se este for o caso voce deve dar entrada dos insumos para fabricação do pão e ao produzi-lo dar baixa dos insumos utilizados. [ ]´s Moacir Fabio R Cardoso escreveu: Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda. Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema: PRODUTOS COMPOSICAO COMPRAS Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos formados por outros produtos, na qual estes estão na tabela COMPOSICAO. É assim, por exemplo: PRODUTOS (código e descrição) 1 - coca cola 2 - pão francês 3 - farinha de trigo 4 - leite 5 - noz moscada COMPOSICAO (código, código do produto e qtde) 1 - 2 (farinha de trigo) - 20g 2 - 2 (leite) - 1l Observem que apenas o produto 2 (pão francês) possui registros na composição, uma vez que ele é feito de outros produtos. Eu quero criar um processo automático para varrer a composição do produto comprado e adicionar o estoque dos produtos na composição do produto. Espero ter conseguido explicar. Por favor, me ajudem. Fabio. - - -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Colega... deixa eu pegar o bonde andando... Você tem duas instâncias diferentes... uma é fabricar o pão... na minha opinião, aí vc deveria dar baixa na farinha... e a outra é a venda do pão... nela então você daria baixa do pão... fazer as duas coisas deixa um gap, de não baixar a farinha caso uma parte do pão não seja vendida!!! Algumas fábricas de pão mandam parte dos pães não vendidos para virarem torradas, e aí já é um outro produto Pense nisso!!! Sds Emanuel Coutinho Fabinho escreveu: Olá Moacir, Na verdade vou comprar farinha e depois produzir o pão. Comprando farinha, adiciono seu estoque e depois que eu produzir o pão, dou baixa no estoque de farinha e aumento o estoque de pão. Quando eu vender o pão, baixo o estoque do pão. Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e a ficha técnica desses produtos cadastrados na tabela COMPOSICAO. Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a quantidade de farinha de que é feito o pão e dar baixa no estoque dessa farinha, que fica na tabela PRODUTOS. Se não consegui ser bem claro, por favor, me diga que explico melhor. Fabio. De: Moacir - GMail [EMAIL PROTECTED] mailto:prismars%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34 Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS Fabio, Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ?? Acredito que voce deva estar comprando farinha, leite, etc e depois produzindo o pão, correto ? Se este for o caso voce deve dar entrada dos insumos para fabricação do pão e ao produzi-lo dar baixa dos insumos utilizados. [ ]´s Moacir Fabio R Cardoso escreveu: Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda. Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema: PRODUTOS COMPOSICAO COMPRAS Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos formados por outros produtos, na qual estes estão na tabela COMPOSICAO. É assim, por exemplo: PRODUTOS (código e descrição) 1 - coca cola 2 - pão francês 3 - farinha de trigo 4 - leite 5 - noz moscada COMPOSICAO (código, código do produto e qtde) 1 - 2 (farinha de trigo) - 20g 2 - 2 (leite) - 1l Observem que apenas o produto 2 (pão francês) possui registros na composição, uma vez que ele é feito de outros produtos. Eu quero criar um processo automático para varrer a composição do produto comprado e adicionar o estoque dos produtos na composição do produto. Espero ter conseguido explicar. Por favor, me ajudem. Fabio. - - -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Olá Coutinho,
Sim, é isso que eu quis dizer, conforme você falou e o Moacir também. Só
que quero controlar a baixa dos insumos por trigger. O problema é que
não sei fazer tal trigger.
abraço,
Fabio.
Coutinho - Yahoo escreveu:
Colega... deixa eu pegar o bonde andando...
Você tem duas instâncias diferentes...
uma é fabricar o pão... na minha opinião, aí vc deveria dar baixa na
farinha...
e a outra é a venda do pão... nela então você daria baixa do pão...
fazer as duas coisas deixa um gap, de não baixar a farinha caso uma
parte do pão não seja vendida!!!
Algumas fábricas de pão mandam parte dos pães não vendidos para virarem
torradas, e aí já é um outro produto
Pense nisso!!!
Sds
Emanuel Coutinho
Fabinho escreveu:
Olá Moacir,
Na verdade vou comprar farinha e depois produzir o pão. Comprando
farinha, adiciono seu estoque e depois que eu produzir o pão, dou
baixa no estoque de farinha e aumento o estoque de pão. Quando eu
vender o pão, baixo o estoque do pão.
Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e
a ficha técnica desses produtos cadastrados na tabela COMPOSICAO.
Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando
eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a
quantidade de farinha de que é feito o pão e dar baixa no estoque
dessa farinha, que fica na tabela PRODUTOS.
Se não consegui ser bem claro, por favor, me diga que explico melhor.
Fabio.
De: Moacir - GMail [EMAIL PROTECTED] mailto:prismars%40gmail.com
mailto:prismars%40gmail.com
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34
Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Fabio,
Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ??
Acredito que voce deva estar comprando farinha, leite, etc e depois
produzindo o pão, correto ?
Se este for o caso voce deve dar entrada dos insumos para fabricação do
pão e ao produzi-lo dar baixa dos insumos utilizados.
[ ]´s
Moacir
Fabio R Cardoso escreveu:
Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert
de não
mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda.
Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema:
PRODUTOS
COMPOSICAO
COMPRAS
Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos
produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos
formados por outros produtos, na qual estes estão na tabela
COMPOSICAO.
É assim, por exemplo:
PRODUTOS (código e descrição)
1 - coca cola
2 - pão francês
3 - farinha de trigo
4 - leite
5 - noz moscada
COMPOSICAO (código, código do produto e qtde)
1 - 2 (farinha de trigo) - 20g
2 - 2 (leite) - 1l
Observem que apenas o produto 2 (pão francês) possui registros na
composição, uma vez que ele é feito de outros produtos.
Eu quero criar um processo automático para varrer a composição do
produto comprado e adicionar o estoque dos produtos na composição do
produto.
Espero ter conseguido explicar. Por favor, me ajudem.
Fabio.
- - --
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [Ajuda] Problemas com forms e checkbox!
Você terá que salvar em um arquivo INI ou no registro do Windows. Na internet bem bastante material de como trabalhar com arquivo INI e registro de Windows. Luciano Calenzani Simões Abaixo o código que estou utilizando: No evento onclick do Form1: begin if (FmAviso.CheckBox1. Checked=False) then begin Form2.Show; end; end; OK! Eu aperto o botão e mostra o Form2 e deixo marcado o checkbox. Bom, o problema é que quando eu fecho o programa e abro novamente ele volta do início. Gostaria que ele salvasse e deixasse o checkbox marcado para não ser mostrado o Form2 novamente. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ajuda com relação a impressão de textos - help
net use LPT1 \\computador_onde_esta_impressora\compartilhamento_da_impressora Luciano Calenzani Simões De: Leonardo Baldino [EMAIL PROTECTED] Para: Grupo_Delphi delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 13:49:33 Assunto: [delphi-br] ajuda com relação a impressão de textos - help eu tenho um codigo que o assignfile onde eu mando um arquivo txt dereito para porta lpt1 pra ser impresso, porem eu estou tentando fazer isso com uma impressora que naum usa lpt1 mas usb e naum da certo gostaria de saber se alguem tem alguma ideia do que eu posso fazer para jogar este meu arquivo direto para impresso usando a saida usb da impressora Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com relação a impressão de textos - help
Só complementando, o comando net use vai funcionar bem se a impressora estiver em outro micro da rede, se for no próprio micro, primeiro, vc. deve compartilhá-la senão o net use não funciona. Sds --- Em delphi-br@yahoogrupos.com.br, Luciano Calenzani Simões [EMAIL PROTECTED] escreveu net use LPT1 \\computador_onde_esta_impressora\compartilhamento_da_impressora Luciano Calenzani Simões De: Leonardo Baldino [EMAIL PROTECTED] Para: Grupo_Delphi delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 13:49:33 Assunto: [delphi-br] ajuda com relação a impressão de textos - help eu tenho um codigo que o assignfile onde eu mando um arquivo txt dereito para porta lpt1 pra ser impresso, porem eu estou tentando fazer isso com uma impressora que naum usa lpt1 mas usb e naum da certo gostaria de saber se alguem tem alguma ideia do que eu posso fazer para jogar este meu arquivo direto para impresso usando a saida usb da impressora Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com relação a impressão de textos - help
como eu faço para usar este comando e eu tenho que utilizar alguma biblioteca especifica? 2008/10/27 Wellington Genar [EMAIL PROTECTED]: Só complementando, o comando net use vai funcionar bem se a impressora estiver em outro micro da rede, se for no próprio micro, primeiro, vc. deve compartilhá-la senão o net use não funciona. Sds --- Em delphi-br@yahoogrupos.com.br, Luciano Calenzani Simões [EMAIL PROTECTED] escreveu net use LPT1 \\computador_onde_esta_impressora\compartilhamento_da_impressora Luciano Calenzani Simões De: Leonardo Baldino [EMAIL PROTECTED] Para: Grupo_Delphi delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 13:49:33 Assunto: [delphi-br] ajuda com relação a impressão de textos - help eu tenho um codigo que o assignfile onde eu mando um arquivo txt dereito para porta lpt1 pra ser impresso, porem eu estou tentando fazer isso com uma impressora que naum usa lpt1 mas usb e naum da certo gostaria de saber se alguem tem alguma ideia do que eu posso fazer para jogar este meu arquivo direto para impresso usando a saida usb da impressora Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander
Res: [delphi-br] ajuda com relação a impressão de textos - help
Você vai usar esse comando no Prompt do MS-DOS. Cria um .BAT e coloca no Iniciar da máquina; Não precisa fazer isso via Delphi. Luciano Calenzani Simões De: Leonardo Baldino [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 16:04:10 Assunto: Re: Res: [delphi-br] ajuda com relação a impressão de textos - help como eu faço para usar este comando e eu tenho que utilizar alguma biblioteca especifica? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda com fast report
Kr obrigado, resolvi, fui na banda master botão direito numero de vezes igual a 1. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: sexta-feira, 17 de outubro de 2008 14:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ajuda com fast report Muito estranho isso.. 1 - Qual a versão do Fast? 2 - o relatório está salvo em arquivo ou armazenado no DFM? 3 - você pode disponibilizar em exemplo que reproduza o problema? 4 - Já testou em uma máquina virtual? 5 - qual a impressora padrão do cliente? att, Eduardo. 2008/10/17 TI - METALURGICA JANO [EMAIL PROTECTED] mailto:cpd%40jano.ind.br br Boa tarde a todos, Criei um relatório com fast report e Delphi 5. No PC que estou desenvolvendo o relatório fica perfeito. Porém quando copio o sistema para outro PC a banda máster se repete varias vezes. Alguém já passou por isso??? [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com.br/ mas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda com fast report
Versão 4.3. Ele esta associado a um frxdbdataset, mas mesmo assim gerou mais linhas. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: sexta-feira, 17 de outubro de 2008 14:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ajuda com fast report Blz... Essa sua banda master está associada a algum FrxDataSet? porque geralmente quando está deve-se deixar o valor igual a zero.. ai ele pega a quantidade de registros do Dataset.. qual versão vc ta usando? 2008/10/17 TI - METALURGICA JANO [EMAIL PROTECTED] mailto:cpd%40jano.ind.br br Kr obrigado, resolvi, fui na banda master botão direito numero de vezes igual a 1. _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br [mailto: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: sexta-feira, 17 de outubro de 2008 14:30 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] ajuda com fast report Muito estranho isso.. 1 - Qual a versão do Fast? 2 - o relatório está salvo em arquivo ou armazenado no DFM? 3 - você pode disponibilizar em exemplo que reproduza o problema? 4 - Já testou em uma máquina virtual? 5 - qual a impressora padrão do cliente? att, Eduardo. 2008/10/17 TI - METALURGICA JANO [EMAIL PROTECTED] mailto:cpd%40jano.ind cpd%40jano.ind. mailto: cpd%40jano.ind.br cpd%2540jano.ind.br br Boa tarde a todos, Criei um relatório com fast report e Delphi 5. No PC que estou desenvolvendo o relatório fica perfeito. Porém quando copio o sistema para outro PC a banda máster se repete varias vezes. Alguém já passou por isso??? [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.comeduardo.drd%2540gmail.com gmail.com Site: http://www.drdsiste http://www.drdsiste http://www.drdsistemas.com.br/ mas.com.br/ mas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com.br/ mas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda
Coloca no FormShow; for vIndex := 0 to pgcInstalacao.PageCount - 1 do pgcInstalacao.Pages[vIndex].TabVisible := False; Luciano Calenzani Simões - Mensagem original De: BandaLemuel [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Setembro de 2008 8:43:16 Assunto: [delphi-br] Ajuda Pessoal Bom dia, existe algum componente que tem a mesma função do PageControl mas que não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um programa de instalação... vlw.. Wesley Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com select
No Sybase dá para fazer assim: select nome, count(nome), (select count(telefone) from ligacao as lig where nome = ligacao.nome and tipo_ligacao = 'P' ) as Pessoal, (select count(telefone) from ligacao as lig where nome = ligacao.nome and tipo_ligacao = 'S' ) as Servico from ligacao group by nome Luciano Calenzani Simões - Mensagem original De: Ricardo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28 Assunto: [delphi-br] Ajuda com select Pesssoal da lista boa tarde Preciso de uma ajuda em uma consulta A situação é a seguinte na minha tabela ha os campos nome telefone tipo_ligaçao Onde o tipo de ligação pode ser particular ou serviço Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato né Ficaria mais ou menos assim Nometotal de ligações serviço particular Ricardo 15 10 5 Andrea 2 20 Andressa3 0 3 Como posso fazer isto? desde ja agradeço a ajuda Obrigado OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona Ricado de Abreu Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com select
Ricardo... SQL padronizada ANSI-92: select nome, count(tipo_ligacao) as contagem, case when tipo_ligacao = 'P' then 'Particular' when tipo_ligacao = 'S' then 'Serviço' end as tipo_ligacao, from ligacoes group by nome, tipo_ligacao []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Ricardo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28 Assunto: [delphi-br] Ajuda com select Pesssoal da lista boa tarde Preciso de uma ajuda em uma consulta A situação é a seguinte na minha tabela ha os campos nome telefone tipo_ligaçao Onde o tipo de ligação pode ser particular ou serviço Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato né Ficaria mais ou menos assim Nometotal de ligações serviço particular Ricardo 15 10 5 Andrea 2 20 Andressa3 0 3 Como posso fazer isto? desde ja agradeço a ajuda Obrigado OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona Ricado de Abreu [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com select
Ele quer contar o número total de ligações, total particular e total serviço. Dessa forma que você passou, vai gerar dois registro para cada tipo de ligação. Luciano Calenzani Simões - Mensagem original De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Setembro de 2008 14:57:19 Assunto: Res: [delphi-br] Ajuda com select Ricardo... SQL padronizada ANSI-92: select nome, count(tipo_ligacao) as contagem, case when tipo_ligacao = 'P' then 'Particular' when tipo_ligacao = 'S' then 'Serviço' end as tipo_ligacao, from ligacoes group by nome, tipo_ligacao []'s Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com select
Funiona com Mysql ? Vou tentar _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Willian Jhonnes Lara dos Santos Enviada em: quarta-feira, 24 de setembro de 2008 14:57 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Ajuda com select Ricardo... SQL padronizada ANSI-92: select nome, count(tipo_ligacao) as contagem, case when tipo_ligacao = 'P' then 'Particular' when tipo_ligacao = 'S' then 'Serviço' end as tipo_ligacao, from ligacoes group by nome, tipo_ligacao []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhonnes@ mailto:willianjhonnes%40yahoo.com.br yahoo.com.br --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Ricardo ricardoe4in@ mailto:ricardoe4in%40yahoo.com.br yahoo.com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28 Assunto: [delphi-br] Ajuda com select Pesssoal da lista boa tarde Preciso de uma ajuda em uma consulta A situação é a seguinte na minha tabela ha os campos nome telefone tipo_ligaçao Onde o tipo de ligação pode ser particular ou serviço Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato né Ficaria mais ou menos assim Nome total de ligações serviço particular Ricardo 15 10 5 Andrea 2 2 0 Andressa 3 0 3 Como posso fazer isto? desde ja agradeço a ajuda Obrigado OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona Ricado de Abreu [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new. http://br.new.mail.yahoo.com/addresses mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com select
eu uso mysql funciona ? _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luciano Calenzani Simões Enviada em: quarta-feira, 24 de setembro de 2008 14:21 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Ajuda com select No Sybase dá para fazer assim: select nome, count(nome), (select count(telefone) from ligacao as lig where nome = ligacao.nome and tipo_ligacao = 'P' ) as Pessoal, (select count(telefone) from ligacao as lig where nome = ligacao.nome and tipo_ligacao = 'S' ) as Servico from ligacao group by nome Luciano Calenzani Simões - Mensagem original De: Ricardo ricardoe4in@ mailto:ricardoe4in%40yahoo.com.br yahoo.com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28 Assunto: [delphi-br] Ajuda com select Pesssoal da lista boa tarde Preciso de uma ajuda em uma consulta A situação é a seguinte na minha tabela ha os campos nome telefone tipo_ligaçao Onde o tipo de ligação pode ser particular ou serviço Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato né Ficaria mais ou menos assim Nome total de ligações serviço particular Ricardo 15 10 5 Andrea 2 2 0 Andressa 3 0 3 Como posso fazer isto? desde ja agradeço a ajuda Obrigado OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona Ricado de Abreu Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new. http://br.new.mail.yahoo.com/addresses mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com select
Não tenho MySQL. Testa aí. Luciano Calenzani Simões - Mensagem original De: Ricardo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Setembro de 2008 15:03:59 Assunto: RES: [delphi-br] Ajuda com select eu uso mysql funciona ? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda
Olá pessoal, Wesley, o pacote JEDI tem um componente próprio p isso (JvWizard) tipo o do InnoSetup, e tem um exemplo demonstrativo. Eu uso a versão JVCL333CompleteJCL1101-Build2725, acho mais estável, pelo menos para o meu BDS2006. Link para baixar o pacote: http://sourceforge.net/project/showfiles.php?group_id=45786package_id=42327 Um abraço a todos! Silvio Clécio - Mensagem original De: BandaLemuel [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Setembro de 2008 8:43:16 Assunto: [delphi-br] Ajuda Pessoal Bom dia, existe algum componente que tem a mesma função do PageControl mas que não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um programa de instalação... vlw.. Wesley . Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com Forms Modais
Olá, Odail...
Por acaso o FormStyle deste formulário está em fsStayOnTop? Se sim, mude para
fsNormal.
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---
- Mensagem original
De: Odail Della Niesi Junior [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 13:24:55
Assunto: [delphi-br] Ajuda com Forms Modais
Pessoal,
Estou com o seguinte problema: tenho um método para excluir registro!
Conforme procedure abaixo:
procedure TfMedicosManutencao .btExcluirClick( Sender: TObject);
begin
inherited;
if Application. MessageBox( PChar('Excluir '+
DMPesquisa.cdsMEDIC ONM_MEDICO. AsString +'?'), PChar(Application. Title), +
MB_YESNO + MB_ICONQUESTION )=mrYes then
begin
DMManut.cdsMedManut .Delete;
DMManut.cdsMedManut .ApplyUpdates( 0);
MessageDlg(' Registro excluido com sucesso !', mtInformation, [mbOk],
0);
Close;
end;
end;
A chamada desse form é feita através da procedure abaixo:
procedure TfMedicosPesquisa. DBGrid1DblClick( Sender: TObject);
begin
inherited;
try
Application. CreateForm( TfMedicosManuten cao, fMedicosManutencao) ;
fMedicosManutencao. Inserindo := False;
fMedicosManutencao. ShowModal;
finally
fMedicosManutencao. Free;
end;
end;
Acontece que a confirmação para excluir o registro fica atrás do form e o
usuário acha que o sistema encontra-se travado e na realidade não é isso.
Alguém já consegui contornar esse problema de janelas MODAIS ?
Agradeço antecipadamente a ajuda dos colegas.
--
Odail Della Niesi Junior
São Pedro - São Paulo - Brasil
MSN: [EMAIL PROTECTED] com
Skype: dellaniesi
Paltalk: dellaniesi
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com Forms Modais
Tente usar MessageBox ao invés de Application.Message.box
- Mensagem original
De: Odail Della Niesi Junior [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 13:24:55
Assunto: [delphi-br] Ajuda com Forms Modais
Pessoal,
Estou com o seguinte problema: tenho um método para excluir registro!
Conforme procedure abaixo:
procedure TfMedicosManutencao .btExcluirClick( Sender: TObject);
begin
inherited;
if Application. MessageBox( PChar('Excluir '+
DMPesquisa.cdsMEDIC ONM_MEDICO. AsString +'?'), PChar(Application. Title), +
MB_YESNO + MB_ICONQUESTION )=mrYes then
begin
DMManut.cdsMedManut .Delete;
DMManut.cdsMedManut .ApplyUpdates( 0);
MessageDlg(' Registro excluido com sucesso !', mtInformation, [mbOk],
0);
Close;
end;
end;
A chamada desse form é feita através da procedure abaixo:
procedure TfMedicosPesquisa. DBGrid1DblClick( Sender: TObject);
begin
inherited;
try
Application. CreateForm( TfMedicosManuten cao, fMedicosManutencao) ;
fMedicosManutencao. Inserindo := False;
fMedicosManutencao. ShowModal;
finally
fMedicosManutencao. Free;
end;
end;
Acontece que a confirmação para excluir o registro fica atrás do form e o
usuário acha que o sistema encontra-se travado e na realidade não é isso.
Alguém já consegui contornar esse problema de janelas MODAIS ?
Agradeço antecipadamente a ajuda dos colegas.
--
Odail Della Niesi Junior
São Pedro - São Paulo - Brasil
MSN: [EMAIL PROTECTED] com
Skype: dellaniesi
Paltalk: dellaniesi
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Ajuda com Forms Modais
Willian Jhonnes Lara dos Santos escreveu:
Olá, Odail...
Por acaso o FormStyle deste formulário está em fsStayOnTop? Se sim,
mude para fsNormal.
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED] mailto:willianjhonnes%40yahoo.com.br
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---
- Mensagem original
De: Odail Della Niesi Junior [EMAIL PROTECTED]
mailto:dellaniesi%40gmail.com
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 13:24:55
Assunto: [delphi-br] Ajuda com Forms Modais
Pessoal,
Estou com o seguinte problema: tenho um método para excluir registro!
Conforme procedure abaixo:
procedure TfMedicosManutencao .btExcluirClick( Sender: TObject);
begin
inherited;
if Application. MessageBox( PChar('Excluir '+
DMPesquisa.cdsMEDIC ONM_MEDICO. AsString +'?'), PChar(Application.
Title), +
MB_YESNO + MB_ICONQUESTION )=mrYes then
begin
DMManut.cdsMedManut .Delete;
DMManut.cdsMedManut .ApplyUpdates( 0);
MessageDlg(' Registro excluido com sucesso !', mtInformation, [mbOk],
0);
Close;
end;
end;
A chamada desse form é feita através da procedure abaixo:
procedure TfMedicosPesquisa. DBGrid1DblClick( Sender: TObject);
begin
inherited;
try
Application. CreateForm( TfMedicosManuten cao, fMedicosManutencao) ;
fMedicosManutencao. Inserindo := False;
fMedicosManutencao. ShowModal;
finally
fMedicosManutencao. Free;
end;
end;
Acontece que a confirmação para excluir o registro fica atrás do form e o
usuário acha que o sistema encontra-se travado e na realidade não é isso.
Alguém já consegui contornar esse problema de janelas MODAIS ?
Agradeço antecipadamente a ajuda dos colegas.
--
Odail Della Niesi Junior
São Pedro - São Paulo - Brasil
MSN: [EMAIL PROTECTED] com
Skype: dellaniesi
Paltalk: dellaniesi
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Vlw, Willian. Obrigadão.
--
[]s,
Odail Della Niesi Junior
São Pedro-SP
RES: [delphi-br] Ajuda DBGrid
Eu utilizaria o OnColExit, mas cada caso é um caso.. Juliano De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Odail Della Niesi Junior Enviada em: terça-feira, 16 de setembro de 2008 08:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda DBGrid Pessoal, Possuo um DBGrid como uma coluna editável, quando o usuário alterar qualquer valor dessa coluna preciso exibir uma mensagem, se realmente ele quer proceder com a alteração. Em que evento conseguirei disparar essa mensagem? Agradeço antecipadamente a ajuda dos colegas. -- []s, Odail Della Niesi Junior São Pedro-SP [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com SQL
SELECT ' ' as nova_coluna, nm_pessoa FROM pessoa Luciano Calenzani Simões - Mensagem original De: Adilson Nunes Fernandes [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 16 de Setembro de 2008 7:28:48 Assunto: [delphi-br] Ajuda com SQL Pessoal Preciso fazer um SELECT que me retorne algumas novas colunas em branco. Conforme abaixo: Select Documento, NovaColuna em Branco, DtEmissao, NovaColuna em Branco, Valor, Total from TabelaN where ... Com os dados que o select retornar eu preencherei posteriormente as colunas vazias via programação. Vi alguns exemplos neste link, mas preciso para o Firebird. http://weblogs. foxite.com/ andykramek/ archive/2005/ 09/18/921. aspx SELECT SPACE(30) AS newcol FROM nametable SELECT *, SPACE(30) AS newstring FROM sample Qualquer ajuda será bem vinda, muito obrigado! Adilson Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com SQL
Você está fazendo inner join. Dá uma estudada em LEFT OUTER JOIN, dessa forma mesmo se não existir registro em uma sub-tabela a master-tabela será listada. Por exemplo clientes com compras. Se você fizer inner join entre as duas só listará cliente que possuem compras, se você fizer LEFT OUTER JOIN listará todos os clientes, mesmo os que não tem compras. Luciano Calenzani Simões - Mensagem original De: tetraetila [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 11 de Setembro de 2008 14:11:10 Assunto: [delphi-br] Ajuda com SQL Ajuda com SQL Pessoal primeiramente bom dia! Preciso recuperar dados comuns em 05 tabelas diferentes e não estou conseguindo. Quero os campos da tabela A017 mas alguns das outras tabelas, ou seja, busco o tipo do documento nesta tabela A017.A017_TIPO e a descrição do tipo na tabela de documentos, A014_DESC , só que quando uma ocorrência não é satisfeita a consulta não me retorna nada. Documento Tipo DescriçãoFornecedor Descrição Código plano Descrição 000931-A 5Pagamentos Diversos 000564 Palmolive do Brasil l77Duplicatas Vejam o comando SQL abaixo e se podem me ajudar, claro que deve ter uma maneira mais prática de fazer, mas não estou conseguindo. Qualquer ajuda será muito bem vinda. select A017.A017_DOCU, A017.A017_TIPO, Busca o tipo do documento na tabela A014 A014_DESC as A014_DESC, trás a descrição. A017.A017_DTEM, A017.A017_TPFO, A017.A017_FORN, Busca o código do fornecedor na tabela A001 A001_NOME as A001_NOME, trás o nome do fornecedor. A017.A017_HIST, A017.A017_DTVN, A017.A017_VAVN, A017.A017_DTPG, A017.A017_VAPG, A017.A017_ATRA, A017.A017_CDBX, A017.A017_BANC, Busca o código do banco na tabela A016 A016_DESC as A016_DESC, trás a descrição do banco. A017.A017_CHEQ, A017.A017_HIS1, A017.A017_DIGI, A017.A017_PLAN, Busca o código do plano de contas na tabela A011 A011_DESC as A011_DESC, trás a descrição do plano de contas. A017.A017_DUPL, A017.A017_DOCU as CA017_DOCU, A017.A017_TIPO as CA017_TIPO from A001017_TBL A017, A001014_TBL, A001001_TBL, A001016_TBL, A001011_TBL where (A017.A017_TIPO = A014_CHV or A017.A017_TIPO = 0) and (A017.A017_TPFO = A001_TIPO or A017.A017_PLAN = 0) and (A017.A017_FORN = A001_CHV or A017.A017_FORN = 0) and (A017.A017_BANC = A016_CHV or A017.A017_BANC = 0) and (A017.A017_PLAN = A011_REDU or A017.A017_PLAN = 0); Muito obrigado, Adilson! Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Ajuda com SQL
Recomendo esse artigo: http://www.codinghorror.com/blog/archives/000976.html Evandro Luciano Calenzani Simões wrote: Você está fazendo inner join. Dá uma estudada em LEFT OUTER JOIN, dessa forma mesmo se não existir registro em uma sub-tabela a master-tabela será listada. Por exemplo clientes com compras. Se você fizer inner join entre as duas só listará cliente que possuem compras, se você fizer LEFT OUTER JOIN listará todos os clientes, mesmo os que não tem compras. Luciano Calenzani Simões - Mensagem original De: tetraetila [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 11 de Setembro de 2008 14:11:10 Assunto: [delphi-br] Ajuda com SQL Ajuda com SQL Pessoal primeiramente bom dia! Preciso recuperar dados comuns em 05 tabelas diferentes e não estou conseguindo. Quero os campos da tabela A017 mas alguns das outras tabelas, ou seja, busco o tipo do documento nesta tabela A017.A017_TIPO e a descrição do tipo na tabela de documentos, A014_DESC , só que quando uma ocorrência não é satisfeita a consulta não me retorna nada. Documento Tipo DescriçãoFornecedor Descrição Código plano Descrição 000931-A 5Pagamentos Diversos 000564 Palmolive do Brasil l77Duplicatas Vejam o comando SQL abaixo e se podem me ajudar, claro que deve ter uma maneira mais prática de fazer, mas não estou conseguindo. Qualquer ajuda será muito bem vinda. select A017.A017_DOCU, A017.A017_TIPO, Busca o tipo do documento na tabela A014 A014_DESC as A014_DESC, trás a descrição. A017.A017_DTEM, A017.A017_TPFO, A017.A017_FORN, Busca o código do fornecedor na tabela A001 A001_NOME as A001_NOME, trás o nome do fornecedor. A017.A017_HIST, A017.A017_DTVN, A017.A017_VAVN, A017.A017_DTPG, A017.A017_VAPG, A017.A017_ATRA, A017.A017_CDBX, A017.A017_BANC, Busca o código do banco na tabela A016 A016_DESC as A016_DESC, trás a descrição do banco. A017.A017_CHEQ, A017.A017_HIS1, A017.A017_DIGI, A017.A017_PLAN, Busca o código do plano de contas na tabela A011 A011_DESC as A011_DESC, trás a descrição do plano de contas. A017.A017_DUPL, A017.A017_DOCU as CA017_DOCU, A017.A017_TIPO as CA017_TIPO from A001017_TBL A017, A001014_TBL, A001001_TBL, A001016_TBL, A001011_TBL where (A017.A017_TIPO = A014_CHV or A017.A017_TIPO = 0) and (A017.A017_TPFO = A001_TIPO or A017.A017_PLAN = 0) and (A017.A017_FORN = A001_CHV or A017.A017_FORN = 0) and (A017.A017_BANC = A016_CHV or A017.A017_BANC = 0) and (A017.A017_PLAN = A011_REDU or A017.A017_PLAN = 0); Muito obrigado, Adilson! Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Evandro
Res: [delphi-br] Ajuda em consulta SQL
Faça uso do CAST convertendo os dois campos para um número inteiro. Assim
poderá comparar na própria setença SQL.
Ex.: cast(cpf1 as integer) = cast(cpf2 as integer);
Luciano Calenzani Simões
- Mensagem original
De: crist_ita [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 26 de Agosto de 2008 9:58:17
Assunto: [delphi-br] Ajuda em consulta SQL
Bom dia a todos
Tenho duas consultas 1 delas e feita em uma base de dados cujo cnpj
não tem zeros na frente, sendo que na outra base tem os zeros pois
foi importado assim, nesta consulta eu comparo o cnpj da outra base
com a da base atual, não esta me retornando nada pois o cnpj vem
diferente em alguns casos:
CNPJ de uma base : 01075326000140
Sql gerado pela consulta na base 2 :
SELECT lb.data_hora, st.descricao ds_status, ag.nome Agente,
it.cod_integracao cpf_cliente, lb.chamado telefone_cliente,
gr.gravacao
FROM gravacoes gr INNER JOIN integracao it
ON (it.cod_evba = gr.cod_evba) INNER JOIN log_eventos_ basicos lb
ON (lb.codigo = it.cod_evba) INNER JOIN agentes ag
ON (ag.codigo = gr.cod_agente) INNER JOIN log_eventos_ pa lp
ON (lp.cod_evba = it.cod_evba) INNER JOIN status st
ON (lp.cod_status = st.codigo)
WHERE (it.cod_integracao LIKE '%01075326000140% ')
AND (st.codigo NOT IN (1,2))
AND (st.codigo IN (105))
Precisava retira espaços e zeros que pudesse existir na consulta para
que trouxesse o registro corretamente
Agradeço a ajuda!!
procedure TfrmVisualizaAgenda .Image1Click( Sender: TObject);
begin
panGravacao. Visible := True;
if DM.ADOQueryCDR. Active then
DM.ADOQueryCDR. Close;
//
DM.ADOQueryCDR. SQL.Clear;
DM.ADOQueryCDR. SQL.Add(' select lb.data_hora, st.descricao
ds_status, ag.nome Agente, it.cod_integracao cpf_cliente, lb.chamado
telefone_cliente, gr.gravacao' );
DM.ADOQueryCDR. SQL.Add(' from gravacoes gr inner join integracao
it');
DM.ADOQueryCDR. SQL.Add(' on (it.cod_evba = gr.cod_evba) inner join
log_eventos_ basicos lb');
DM.ADOQueryCDR. SQL.Add(' on (lb.codigo = it.cod_evba) inner join
agentes ag');
DM.ADOQueryCDR. SQL.Add(' on (ag.codigo = gr.cod_agente) inner join
log_eventos_ pa lp');
DM.ADOQueryCDR. SQL.Add(' on (lp.cod_evba = it.cod_evba) inner join
status st');
DM.ADOQueryCDR. SQL.Add(' on (lp.cod_status = st.codigo)') ;
DM.ADOQueryCDR. SQL.Add(' where (it.cod_integracao
like ''%'+DBEdit3. Text+''') ');
DM.ADOQueryCDR. SQL.Add(' and (st.codigo not in (1,2))');
DM.ADOQueryCDR. SQL.Add(' and (st.codigo in (105))');
//Memo1.Lines. AddStrings( DM.ADOQueryCDR. SQL);
DM.ADOQueryCDR. SQL.Add(' order by data_hora desc');
try
DM.ADOQueryCDR. Open;
except
on e : Exception do
ShowMessage( PChar('Erro ao consultar
gravações.'+#10+ #13+e.message) );
end;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [Ajuda] Edit
Sugiro que mude de componente para trabalhar com data, exemplo de nativo da VCL: TDateTimePicker... Mas usando um Tedit, exatamente da forma que você quer: No evento onEnter: if edit1.text = 'dd/mm/' then edit1.clear; no evento onExit if trim(edit1.text) = '' then edit1.text := 'dd/mm/'; Mas não aconselho. Use um componente mais adequado. Luciano Calenzani Simões - Mensagem original De: Douglas Takahara [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Agosto de 2008 12:01:11 Assunto: [delphi-br] [Ajuda] Edit BOm dia pessoal, Estou precisando da seguinte ajuda, Tenho um edit e nele coloco na propriedade text, dd/mm/, por exemplo,gostaria que quando o usuário clicasse nesse edit esse texto sumisse ou então ficasse todo selecionado facilitando assim a inserção de dados do usuário. Alguém tem como me ajudar e fora isso tem outra sugestão? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [Ajuda] Edit
Cara, só o fato do foco entrar no Edit, já seleciona o conteúdo que estiver nele, então no evento OnExit, caso o Edit esteja vazio, volte dd/mm/, não acho muito legal esta utilização, talvez se você falar qual é a funcionalidade total podemos pensar em algo melhor, tem também o componente TMaskEdit onde você pode colocar uma mascara para o campo, talvez funcione melhor do que você está querendo fazer com o Edit, pois no caso to TMaskEdit as barras ficam fixas... [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ajuda sql totalizar
Se você estiver querendo totalizar por produto será algo semelhante a isto: select cd_produto, sum(custo) from prod group by cd_produto Daí você pode fazer variações de acordo com sua necessidade. Luciano Calenzani Simões - Mensagem original De: alessandra porto [EMAIL PROTECTED] Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED] Enviadas: Terça-feira, 12 de Agosto de 2008 17:15:48 Assunto: [delphi-br] ajuda sql totalizar preciso totalizar o valor de custo de determinado produto em uma venda algo como abaixo SELECT PROD.CD_PRODUTO, PROD.CUSTO, PROD.PRODUTO, VDA.CD_PRODUTO, VDA_CD.VENDA FROM PROD,VDA WHERE VDA.CD_PRODUTO = PROD.CD_PRODUTO AND VDA.CD_VENDA = 10 é uma soma de PROD.CUSTO Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda em Form Login
Wanderlei... No seu caso, o que você deve fazer é o seguinte: No modelo 1, vc deve ter colocado o formulário de login como form principal em seu programa. Vá nas propriedades do projeto (Ctrl+Alt+F11 ou Project-Options), na aba Forms, selecione o seu formulário principal no combo Main Form, e deixe o form de login na coluna Available forms. Então, no evento onCreate do seu form principal, faça a chamada do form de login como ShowModal. Validando usuário e senha, feche-o (no onClose do form de login digite a linha Action := caFree;). Com isso, vc resolve o problema de minimizar a aplicação e ela sumir da barra de tarefas. No modelo 2, vc deverá alterar o arquivo NomeDoProjeto.dpr desta forma: Application.Initialize; Application.Title := 'Título da aplicação'; Application.CreateForm(TfrmPrincipal, frmPrincipal); Application.MainForm.Show; Application.CreateForm(TfrmLogin, frmLogin); frmLogin.ShowModal; Application.Run; Com isso, vc criará o form principal e, logo após exibí-lo, chamará o form de login em ShowModal. []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Wanderlei - Yahoo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 29 de Julho de 2008 13:10:49 Assunto: [delphi-br] Ajuda em Form Login Boa Tarde Pessoal Gostaria que alguem me desse um Help, de como fazer um form de Login . (já procurei em vários sites, mas nenhum me agradou). Modelo 1 Queria fazer um modelo que abra o form de login apenas e depois chame o form menu, por exemplo. Tinha feito um exemplo desse tipo, se validar usuário e senha o programa escondia o form login e mostrava o form menu, o problema que quando você minimiza o programa ele não ficava na barra de tarefas, e sim minimizado acima do botão iniciar. Modelo 2 Ou fazer um que abra o form menu (principal) com o o form login em showmodal. Se validar usuário e login libera para trabalhar no form principal. Estou pedindo porque não manjo muito de Delphi, e como deve ter muita gente que manja bem e esse tipo de coisa é simples para quem entende bem, creio que poderia me ajudar. Se alguem poder me dar uma solução agradecerei muito Muito Obrigado Wanderlei Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] AJUDA Botões Diferentes PERSONALIZADOS ...
na dev expres tem um pacote de componentes free, um deles e´um botao que o formato e definido por uma imagem, a que vc escolher. - Mensagem original De: Juliano Silva - Yahoo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Junho de 2008 10:49:05 Assunto: [delphi-br] AJUDA Botões Diferentes PERSONALIZADOS ... Pessoal estou postando novamente o meu problema, se alguem puder ajudar fico agradecido.. . _ De: Juliano Silva - Yahoo [mailto:[EMAIL PROTECTED] com.br] Enviada em: terça-feira, 24 de junho de 2008 15:51 Para: '[EMAIL PROTECTED] pos.com.br' Assunto: Botões Diferentes.. . Pessoal Estou precisando de colocar em mina aplicação uns botões diferentes, alguns botões que se moldassem a imagem que eu atribuisse a ele, por exemplo quero um botão que terá uma semente nele... então seria uma semente que ao clicar faria algo... alguem sabe me dizer se tem algo deste tipo para fazer em Delphi? att. Juliano Silva [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com Importação de dados em TXT
Essa parte vai ficar assim:
DM.cdsImportacao.Post;
DM.cdsImportacao.Close;
Inc(i);
ProgressBar1. Position := ProgressBar1. Position + 1;
Next;
end;
DM.cdsImportacao. ApplyUpdates( 0); //Aplica as atualizações em memória no
ShowMessage('Processo Concluído Com êxito!!!');
Close;
end;
Emerson Martins da Silva
Analista de Sistemas Júnior
msn:[EMAIL PROTECTED]
EMS INFORMATICA - Desenvolvimento e Suporte de Sistemas
- Mensagem original
De: itasouza [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Domingo, 22 de Junho de 2008 10:49:11
Assunto: [delphi-br] Ajuda com Importação de dados em TXT
Importação e exportação de dados em TXT
Bom dia..
Conseguir contar os espaços deu certo a inserção dos dados, mais só
gravou a primeira linha, debugei o código e não encontrei problemas,
verifiquei que estava usando o comando Next; não gerava erro mais
só gravava a primeira linha, substituir por Readln e agora gera o
erro:
Project SysSam.exe raised exception class EInOutError with
message 'I/O error 6'. Process stopped. Use Step or Run to continue.
Como usar o comando POS ou Readln, para que grave todas as linhas?
Layout de importação:
3351781;MARIA DA PENHA
CAUS;69601640797; 055;021;46671479 ;015;46687415; 013;48879253;
3351781;MARIA DA PENHA
CAUS;69601640797; 055;021;46671479 ;015;46687415; 013;48879253;
3351781;MARIA DA PENHA
CAUS;69601640797; 055;021;46671479 ;015;46687415; 013;48879253;
3351781;MARIA DA PENHA
CAUS;69601640797; 055;021;46671479 ;015;46687415; 013;48879253;
Código com os espaços corretos:
while not Eof(fArq) do //Enquanto não chegar ao fim do arquivo
begin
Application. ProcessMessages;
Readln(farq, linha); //Lê a linha e posiciona o cursor na próxima
frmImportacao. Caption := 'Lendo Linha: ' + IntToStr(i) + ' de: '
+ IntToStr(ProgressBa r1.Max);
//Buscando pelo Parâmetro codigo, para verificar se já existe na
tabela
//DM.cdsImportacao. Params.ParamByNa me('codigo' ).asString := Trim
(Copy(Linha, 1, 8));
DM.cdsImportacao. Open; //Abre o CDS
//
if DM.cdsImportacao. IsEmpty then //Se Não existir o registro
DM.cdsImportacao. Append //Insira os dados da linha atual
else //Senão, se o registro já existir
DM.cdsImportacao. Edit; //Coloca em modo de edição para
atualizar os campos
//Aqui os campos recebem as linhas lidas
DM.cdsImportacaocod _integracao. AsString :=Trim(Copy( Linha,
1, 7 ));
DM.cdsImportacaonom e.AsString :=Trim(Copy( Linha,
9, 19 ));
DM.cdsImportacaocon tato.AsString :=Trim(Copy( Linha,
31, 9 ));
DM.cdsImportacaoddi .AsString :=Trim(Copy( Linha,
41, 3 ));
DM.cdsImportacaoddd .AsString :=Trim(Copy( Linha,
45, 3 ));
DM.cdsImportacaofon e.AsString :=Trim(Copy( Linha,
49, 8 ));
DM.cdsImportacaoddd _2.AsString :=Trim(Copy( Linha,
58, 3 ));
DM.cdsImportacaofon e_2.AsString :=Trim(Copy( Linha,
62, 8 ));
DM.cdsImportacaoddd _3.AsString :=Trim(Copy( Linha,
71, 3 ));
DM.cdsImportacaofon e_3.AsString :=Trim(Copy( Linha,
75, 8 ));
DM.cdsImportacao. Post; //Salve o registro em memória
DM.cdsImportacao. ApplyUpdates( 0); //Aplica as atualizações em
memória no banco
DM.cdsImportacao. Close; //Fecha o CDS }
Inc(i);
ProgressBar1. Position := ProgressBar1. Position + 1;
Next;
end;
Agradeço a ajuda
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com Importação de dados e m TXT
ERRO : Project SysSam.exe raised exception class EDatabaseError with message EMAIL RUA BAIRROC' IS NOT A VALID INTEGER VALUE FOR FIELD 'COD_AGENTE . Bom Amigo nesse caso seu erro é muito claro, em algum momento estar sendo passado a string EMAIL RUA BAIRROC para um campo do tipo inteiro, eu lhe aconselho a debugar sua rotina de importação e verificar passo-a-passo quando isso acontece. .. Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Ajuda com Importação de dados em TXT
Boa Tarde Jean Após verificar o código, encontrei os campos que gerava erro, mais pude verificar que os campos inseridos na base está com as informações pela metade. Ex: Código no txt = 1343489 No Banco = 1343489 Nome no txt = KATIA LUCIATO DE OLIVEIRA No Banco = IA LUCIATO DE OLIVEI Produto no txt = 37740858897 Produto no banco = E OLIVEIRA Como proceder para contar os campos de forma que esteja correto? Acredito que o erro deva ser o fato de esta jogando parte de uma informação de um campo em outro diferente. Agradeço a ajuda, - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Ajuda com Importação de dados em TXT
ai meu caro, vc tem que saber o tamanho de cada campo e fazer com que o Copy(Str,Index,Count) copie exatament o que vc quer. tipo: TXT( 0001 JOAO PAULINO DE OLIVEIRA RUA DE GLORIA ANDAR DE CIMA 0002 MARIA MADALENA DE OLIVEIRA RUA DA GETULIO VARGAS ) no txt temos os seguintes campos: FIELD SIZE Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] - Mensagem original De: Itamar Souza [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 20 de Junho de 2008 14:21:04 Assunto: Re: Res: [delphi-br] Ajuda com Importação de dados em TXT Boa Tarde Jean Após verificar o código, encontrei os campos que gerava erro, mais pude verificar que os campos inseridos na base está com as informações pela metade. Ex: Código no txt = 1343489 No Banco = 1343489 Nome no txt = KATIA LUCIATO DE OLIVEIRA No Banco = IA LUCIATO DE OLIVEI Produto no txt = 37740858897 Produto no banco = E OLIVEIRA Como proceder para contar os campos de forma que esteja correto? Acredito que o erro deva ser o fato de esta jogando parte de uma informação de um campo em outro diferente. Agradeço a ajuda, - - --- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Ajuda com Importação de dados em TXT
ai meu caro, vc tem que saber o tamanho de cada campo e fazer com que o Copy(Str,Index,Count) copie exatament o que vc quer. tipo: TXT( 0001 JOAO PAULINO DE OLIVEIRA RUA DE GLORIA ANDAR DE CIMA 0002 MARIA MADALENA DE OLIVEIRA RUA DA GETULIO VARGAS ) no txt temos os seguintes campos FIELD SIZE codigo 8 nome 28 rua 27 então quando fazer o copy() temos que atentar para indicar a possição de inicio correta e a quantidade de caracter correta. assim: procedure Var sLinha, sCodigo, sNome, sEndereco: string begin //. while ou for pra passar o valor da linha lida no txt para sLinha; sCodigo := Trim(Copy(sLinha,1,8)//copiar da posição 1, 8 caractes sNome := Trim(Copy(sLinha,10,28)//copiar da posição 10, 28 caractes sEndereco := Trim(Copy(sLinha,39,27)// copiar da posição 39, 27 caractes //... o resto do seu código; end; bom então acho que você esteja pecando nessa parte da divisão de inicio e quantidade de caracters. reveja seus código com calma. ah! lembrando que todas as linhas do txt devem ter exatamente a mensa quantidade de caracteres para o mesmo campo, mesmo, quando o texto real seja menor, a diferença que falta deve estar com espaços vazio. epero ter ajudado Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com verificação do tamanh o de arquivo texto
Para testar data use StrToDateDef(Maskedir.text, 0). Se retornar zero a data é inválida. Ou coloque um componente de data, exemplo TDateTimePicker. Luciano Calenzani Simões - Mensagem original De: Daniel Bastos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 11 de Junho de 2008 11:10:57 Assunto: Re: [delphi-br] Ajuda com verificação do tamanho de arquivo texto Pra testar datas eu uso um try .. except. tamanho do arquivo: http://www.delphiba sics.co.uk/ RTL.asp?Name= FileSize 2008/6/11 Raphael Fonseca raphaelprogramador@ yahoo.com. br: bom dia amigos da Lista, Estou precisando de uma ajudinha de vocês. num primeiro caso eu preciso criticar uma data mes ano que será digitada num maskedit impossibilitando que o usuário digite a data errada. a outra é: vou precisar gerar um arquivo texto e a cada linha que eu gravar no mesmo eu preciso verificar e informar ao usuário o tamanho do arquivo que por regra não poderá ultrapassar o tamanho de 15 mb. Raphael Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Ajuda com verificação do tamanho de arquivo texto
E para verificar o tamanho do arquivo, use o TFileRec, um record que te retorna todas as informações sobre o arquivo... []'s Willian --- Em qua, 11/6/08, Luciano Calenzani Simões lt;[EMAIL PROTECTED]gt; escreveu: De: Luciano Calenzani Simões lt;[EMAIL PROTECTED]gt; Assunto: Res: [delphi-br] Ajuda com verificação do tamanho de arquivo texto Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 11 de Junho de 2008, 11:40 Para testar data use StrToDateDef( Maskedir. text, 0). Se retornar zero a data é inválida. Ou coloque um componente de data, exemplo TDateTimePicker. Luciano Calenzani Simões - Mensagem original De: Daniel Bastos lt;[EMAIL PROTECTED] comgt; Para: [EMAIL PROTECTED] os.com.br Enviadas: Quarta-feira, 11 de Junho de 2008 11:10:57 Assunto: Re: [delphi-br] Ajuda com verificação do tamanho de arquivo texto Pra testar datas eu uso um try .. except. tamanho do arquivo: http://www.delphiba sics.co.uk/ RTL.asp?Name= FileSize 2008/6/11 Raphael Fonseca lt;raphaelprogramador @ yahoo.com. brgt;: gt; bom dia amigos da Lista, gt; gt; Estou precisando de uma ajudinha de vocês. gt; gt; num primeiro caso eu preciso criticar uma data mes ano que será digitada gt; num maskedit impossibilitando que o usuário digite a data errada. gt; gt; a outra é: gt; vou precisar gerar um arquivo texto e a cada linha que eu gravar no mesmo gt; eu preciso verificar e informar ao usuário o tamanho do arquivo que por gt; regra não poderá ultrapassar o tamanho de 15 mb. gt; gt; Raphael Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda numa função que retorna D ataSet.
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem entender o
que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
try
//faço o que tenho que fazer
finally
MeuDataSet.Free;
End;
Felipe vc precisa de mais entendimento da linguagem e de ponteiros, que é
necessário para praticar uma boa programação.
Sugiro a você comprar algum livro de Delphi e estudar mais.
[]'s
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe
Henrique
Enviada em: segunda-feira, 9 de junho de 2008 15:56
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Mas Rubem, isso eu havia entendido, porém.. se eu der um RetDados.Free;
estarei liberando meu cQ que está dentro da função? E tipo, não tem como eu
passar os dados, fechar a Query, liberar ela, e os dados permanecerem não?
Minha preocupação é com o desenrolar do sistema, muitas querys abertas sem
fechar..
[]s
2008/6/9 Rubem Nascimento da Rocha [EMAIL PROTECTED]
mailto:djpardalrocha%40hotmail.com :
É óbvio que tá dando erro! Preste atenção! Vc está liberando uma consulta
que está sendo o retorno da sua função. Se vc libera a consulta, logo vai
estar liberando o retorno! Esse é o erro! A consulta não deve ser liberada!
Atente para isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 15:47:04 -0300
Subject: [delphi-br] Ajuda numa função que retorna DataSet.
Olá amigos, estou criando uma função, que me retorne um DataSet, com o
resultado de um SQL passado como parametro, porém não estou conseguindo..
estou fazendo assim:
function RetDados(sSQL: string): TDataSet;
var
cQ: TIBCQuery;
cT: TIBCTransaction;
begin
cT := TIBCTransaction.Create(nil);
cT.AddConnection(DM.Conexao);
cQ := TIBCQuery.Create(nil);
cQ.Transaction := cT;
cQ.UpdateTransaction := cT;
cQ.UniDirectional := True;
try
cQ.SQL.Text := sSQL;
cQ.Open;
Result := cQ;
finally
cQ.Free;
cT.Free;
end;
end;
Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free, e
estou achando que quando faz isso eu perco o resultado. Seria isso mesmo?
Se
for, como concerto isso?
Desde já agradeço.
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
__
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda numa função que retorna D ataSet.
Você pode fazer isso mas de qualquer forma vc vai ter que liberar essa memória.
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
Free; ß AKI
end;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe
Henrique
Enviada em: segunda-feira, 9 de junho de 2008 16:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Davi, na verdade queria usar algo simples, sem ter que declarar nada, no
estilo:
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
end;
Seria pra facilitar, visto que, já tenho uma função que faz isso, porém
tenho que declarar variavel, igual vc me mostrou, mas queria simplificar,
claro se for possível.. :o)
[]s
2008/6/9 Davi Eduardo Borges Wall [EMAIL PROTECTED]
mailto:davi.wall%40mult.com.br :
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem
entender o que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
try
//faço o que tenho que fazer
finally
MeuDataSet.Free;
End;
Felipe vc precisa de mais entendimento da linguagem e de ponteiros, que é
necessário para praticar uma boa programação.
Sugiro a você comprar algum livro de Delphi e estudar mais.
[]'s
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em nome de
Fellipe Henrique
Enviada em: segunda-feira, 9 de junho de 2008 15:56
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Mas Rubem, isso eu havia entendido, porém.. se eu der um RetDados.Free;
estarei liberando meu cQ que está dentro da função? E tipo, não tem como eu
passar os dados, fechar a Query, liberar ela, e os dados permanecerem não?
Minha preocupação é com o desenrolar do sistema, muitas querys abertas sem
fechar..
[]s
2008/6/9 Rubem Nascimento da Rocha [EMAIL PROTECTED]
mailto:djpardalrocha%40hotmail.com djpardalrocha%40hotmail.commailto:
djpardalrocha%40hotmail.com djpardalrocha%2540hotmail.com :
É óbvio que tá dando erro! Preste atenção! Vc está liberando uma consulta
que está sendo o retorno da sua função. Se vc libera a consulta, logo vai
estar liberando o retorno! Esse é o erro! A consulta não deve ser
liberada!
Atente para isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com
fellipeh%40gmail.com mailto:
fellipeh%40gmail.com fellipeh%2540gmail.com fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 15:47:04 -0300
Subject: [delphi-br] Ajuda numa função que retorna DataSet.
Olá amigos, estou criando uma função, que me retorne um DataSet, com o
resultado de um SQL passado como parametro, porém não estou conseguindo..
estou fazendo assim:
function RetDados(sSQL: string): TDataSet;
var
cQ: TIBCQuery;
cT: TIBCTransaction;
begin
cT := TIBCTransaction.Create(nil);
cT.AddConnection(DM.Conexao);
cQ := TIBCQuery.Create(nil);
cQ.Transaction := cT;
cQ.UpdateTransaction := cT;
cQ.UniDirectional := True;
try
cQ.SQL.Text := sSQL;
cQ.Open;
Result := cQ;
finally
cQ.Free;
cT.Free;
end;
end;
Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free, e
estou achando que quando faz isso eu perco o resultado. Seria isso mesmo?
Se
for, como concerto isso?
Desde já agradeço.
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
mailto:fellipeh%40gmail.comfellipeh%2540gmail.com
fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
__
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
mailto:fellipeh%40gmail.comfellipeh%2540gmail.com
Sou a favor da lei LEI 607/2007
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
[As partes desta mensagem
RES: [delphi-br] Ajuda numa função que retorna Dat aSet.
Assim não funga? Tirando o Free que libera o ponteiro.
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
Free( )
end;
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fellipe Henrique
Enviada em: segunda-feira, 9 de junho de 2008 16:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Davi, na verdade queria usar algo simples, sem ter que declarar nada, no
estilo:
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
end;
Seria pra facilitar, visto que, já tenho uma função que faz isso, porém
tenho que declarar variavel, igual vc me mostrou, mas queria simplificar,
claro se for possível.. :o)
[]s
2008/6/9 Davi Eduardo Borges Wall [EMAIL PROTECTED]
mailto:davi.wall%40mult.com.br com.br:
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem
entender o que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
try
//faço o que tenho que fazer
finally
MeuDataSet.Free;
End;
Felipe vc precisa de mais entendimento da linguagem e de ponteiros, que é
necessário para praticar uma boa programação.
Sugiro a você comprar algum livro de Delphi e estudar mais.
[]'s
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
delphi-br%40yahoogrupos.com.br [mailto:
[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
delphi-br%40yahoogrupos.com.br] Em nome de
Fellipe Henrique
Enviada em: segunda-feira, 9 de junho de 2008 15:56
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Mas Rubem, isso eu havia entendido, porém.. se eu der um RetDados.Free;
estarei liberando meu cQ que está dentro da função? E tipo, não tem como
eu
passar os dados, fechar a Query, liberar ela, e os dados permanecerem não?
Minha preocupação é com o desenrolar do sistema, muitas querys abertas sem
fechar..
[]s
2008/6/9 Rubem Nascimento da Rocha djpardalrocha@
mailto:djpardalrocha%40hotmail.com
hotmail.comdjpardalrocha%40hotmail.commailto:
djpardalrocha%40hotmail.com djpardalrocha%2540hotmail.com :
É óbvio que tá dando erro! Preste atenção! Vc está liberando uma
consulta
que está sendo o retorno da sua função. Se vc libera a consulta, logo
vai
estar liberando o retorno! Esse é o erro! A consulta não deve ser
liberada!
Atente para isso!
Sds.
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com com
fellipeh%40gmail.com mailto:
fellipeh%40gmail.com fellipeh%2540gmail.com fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 15:47:04 -0300
Subject: [delphi-br] Ajuda numa função que retorna DataSet.
Olá amigos, estou criando uma função, que me retorne um DataSet, com o
resultado de um SQL passado como parametro, porém não estou
conseguindo..
estou fazendo assim:
function RetDados(sSQL: string): TDataSet;
var
cQ: TIBCQuery;
cT: TIBCTransaction;
begin
cT := TIBCTransaction.Create(nil);
cT.AddConnection(DM.Conexao);
cQ := TIBCQuery.Create(nil);
cQ.Transaction := cT;
cQ.UpdateTransaction := cT;
cQ.UniDirectional := True;
try
cQ.SQL.Text := sSQL;
cQ.Open;
Result := cQ;
finally
cQ.Free;
cT.Free;
end;
end;
Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free, e
estou achando que quando faz isso eu perco o resultado. Seria isso
mesmo?
Se
for, como concerto isso?
Desde já agradeço.
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com com fellipeh%40gmail.com
mailto:fellipeh%40gmail.comfellipeh%2540gmail.com
fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
__
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video. http://video.msn.com/?mkt=pt-br msn.com/?mkt=pt-br
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com com fellipeh%40gmail.com
mailto:fellipeh%40gmail.comfellipeh%2540gmail.com
Sou a favor da lei LEI 607/2007
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com com
Sou a favor da lei LEI
RES: [delphi-br] Ajuda numa função que retorna Dat aSet.
Faço isso a um bom tempo, o seu problema é que você está dando FREE sempre, isso faz com que retorne NIL afinal você liberou, bem faz o seguinte então: Caso 1: Você provavelmente deva ter um DATAMODULE que fica com a conexão do banco, coloque neste Datamodule um componente TIBCQuery, e faça sua função jogar os dados nele, mas você não poderá dar um FREE, pois este componente sempre estará lá, quando precisar buscar o retorno dos registros busque neste componente que está lá... Caso 2: Crie um componente em TIBCQuery em um UNIT que todos os módulos enxerga, este componente deve ser criado no momento que a aplicação for carregada ou da primeira vez que for utilizado, e então use ele, mas lembre-se você não pode destruí-lo caso contrário perderá os dados. Juliano _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: segunda-feira, 9 de junho de 2008 15:47 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda numa função que retorna DataSet. Olá amigos, estou criando uma função, que me retorne um DataSet, com o resultado de um SQL passado como parametro, porém não estou conseguindo.. estou fazendo assim: function RetDados(sSQL: string): TDataSet; var cQ: TIBCQuery; cT: TIBCTransaction; begin cT := TIBCTransaction.Create(nil); cT.AddConnection(DM.Conexao); cQ := TIBCQuery.Create(nil); cQ.Transaction := cT; cQ.UpdateTransaction := cT; cQ.UniDirectional := True; try cQ.SQL.Text := sSQL; cQ.Open; Result := cQ; finally cQ.Free; cT.Free; end; end; Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free, e estou achando que quando faz isso eu perco o resultado. Seria isso mesmo? Se for, como concerto isso? Desde já agradeço. []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com com Sou a favor da lei LEI 607/2007 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 270.1.0/1492 - Release Date: 09/06/2008 10:29 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda numa função que retorna D ataSet.
Como falei, Fellipe, vc tem que estudar mais o mecanismo de acesso a dados,
para entender o porque dessas coisas.
Perdão pela franqueza, mas fica difícil dar aula de Delphi em um grupo de
discussão.
Você realmente tem que aprender certas coisas estudando, testando e tentando.
Todas as suas dúvidas de perguntas recentes você poderia ter sanado criando um
programinha e testando separadamente.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: segunda-feira, 9 de junho de 2008 16:30
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Ajuda numa função que retorna DataSet.
Prioridade: Alta
Uma coisa é liberar uma instância de um objeto de consulta. Outra coisa é
finalizar uma transação.
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 16:28:50 -0300
Subject: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Beleza galera, valeu.. minha duvida era se eu dar o Free no RetDados, ele
iria dar no cQ de dentro da função.. :D...
O problema agora, é a transacao... quando eu der o Free na funcao RetDados,
tudo nela é liberado, inclusive a transacao?
[]s
2008/6/9 Joao Morais [EMAIL PROTECTED] mailto:post%40joaomorais.com.br :
Fellipe Henrique wrote:
Davi, na verdade queria usar algo simples, sem ter que declarar nada, no
estilo:
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
end;
with RetDados('select * from cliente') do
try
ShowMessage(FieldByName('RAZAO').AsString);
finally
Free;
end;
Sugestão da casa: economize nos with, use com moderação.
--
Joao Morais
Seria pra facilitar, visto que, já tenho uma função que faz isso, porém
tenho que declarar variavel, igual vc me mostrou, mas queria simplificar,
claro se for possível.. :o)
[]s
2008/6/9 Davi Eduardo Borges Wall [EMAIL PROTECTED]
mailto:davi.wall%40mult.com.br
:
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem
entender o que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
try
//faço o que tenho que fazer
finally
MeuDataSet.Free;
End;
Felipe vc precisa de mais entendimento da linguagem e de ponteiros, que
é
necessário para praticar uma boa programação.
Sugiro a você comprar algum livro de Delphi e estudar mais.
[]'s
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
40yahoogrupos.com.br] Em nome de
Fellipe Henrique
Enviada em: segunda-feira, 9 de junho de 2008 15:56
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
40yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Mas Rubem, isso eu havia entendido, porém.. se eu der um RetDados.Free;
estarei liberando meu cQ que está dentro da função? E tipo, não tem como
eu
passar os dados, fechar a Query, liberar ela, e os dados permanecerem
não?
Minha preocupação é com o desenrolar do sistema, muitas querys abertas
sem
fechar..
[]s
2008/6/9 Rubem Nascimento da Rocha [EMAIL PROTECTED]
mailto:djpardalrocha%40hotmail.com
djpardalrocha%40hotmail.com :
É óbvio que tá dando erro! Preste atenção! Vc está liberando uma
consulta
que está sendo o retorno da sua função. Se vc libera a consulta, logo
vai
estar liberando o retorno! Esse é o erro! A consulta não deve ser
liberada!
Atente para isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com
fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 15:47:04 -0300
Subject: [delphi-br] Ajuda numa função que retorna DataSet.
Olá amigos, estou criando uma função, que me retorne um DataSet, com o
resultado de um SQL passado como parametro, porém não estou
conseguindo..
estou fazendo assim:
function RetDados(sSQL: string): TDataSet;
var
cQ: TIBCQuery;
cT: TIBCTransaction;
begin
cT := TIBCTransaction.Create(nil);
cT.AddConnection(DM.Conexao);
cQ := TIBCQuery.Create(nil);
cQ.Transaction := cT;
cQ.UpdateTransaction := cT;
cQ.UniDirectional := True;
try
cQ.SQL.Text := sSQL;
cQ.Open;
Result := cQ;
finally
cQ.Free;
cT.Free;
end;
end;
Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free,
e
estou achando que quando faz isso eu perco o resultado. Seria isso
mesmo?
Se
for, como concerto isso?
Desde já agradeço.
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com
2540gmail.com
Sou a favor da
Res: [delphi-br] ajuda urgente (como chamar um programa atraves de outro programa)
Tente um desses dois comandos:
ShellExecute(Handle, 'OPEN',PChar('programa.exe'), nil, nil, sw_shownormal);
ExecuteFile('programa.exe','','',SW_SHOWNORMAL);
Dá uma olha no help para ver qual se adequa mais a sua necessidade.
Luciano Calenzani Simões
- Mensagem original
De: Leonardo Baldino [EMAIL PROTECTED]
Para: Grupo_Delphi delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 16 de Maio de 2008 21:50:28
Assunto: [delphi-br] ajuda urgente (como chamar um programa atraves de outro
programa)
eu tenho um sistem A e traves dele eu quero rodar o sistema B atraves de um
botão em um formulario do sistema A
alguem sabe como eu possi fazer isso, resumindo eu queria saber como eu faço
para abrir um programa feito em delphi atraves de outro programa feito em
delphi
--
Leonardo Carlos Baldino - The Highlander
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
