Re: [delphi-br] Controlar o botão Scroll do mouse d entro da aplicação Delphi
Procure pelo evento OnMouseWhell Dirlei. Em 15 de março de 2010 17:56, Samuca ( Yahoo ) samuca_1...@yahoo.com.brescreveu: Amigos, Boa Tarde, Trabalho com uma aplicação em Delphi 6 CLX e preciso controlar o botão scroll do mouse, alguém sabe como? Antecipadamente agradeço, Samuca [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Duplicar registro no firebird
Pois é, já havia feito desta maneira mas continua não gravando em banco.
Estou fazendo desta forma:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
end;
finally
DM.cds_TCM_A.ApplyUpdates(0);
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Abraços.
Ralp Alves
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: sexta-feira, 12 de março de 2010 16:01
Para: delphi-br
Assunto: RE: [delphi-br] Duplicar registro no firebird
Prioridade: Alta
Faça o posto para cada registro criado, e ao final use ApplyUdpates(0). Com
ApplyUpdates(-1), se houverem erros, os mesmos não serão notificados à
aplicação.
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: ral...@gmail.com mailto:ralprd%40gmail.com
Date: Fri, 12 Mar 2010 07:20:01 -0300
Subject: [delphi-br] Duplicar registro no firebird
Bom dia.
Venho mais uma vez, pedir a ajuda dos nobres colegas.
Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos
com duas tabelas devidamente ligadas (master detail).
Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a
quantidade de documentos a digitalizar.
Com base nesta quantidade digitada, queria que fosse gravado em banco a
quantidade de registros informado no campo QtdPag.
Na verdade, os registros seriam duplicados e salvos em banco de acordo com a
quantidade informada.
Estou tentando desta maneira abaixo:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(-1);
end;
finally
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros,
mas no banco é gravado somente 1 registro.
Como poderia resolver este problema?
Abraços.
Ralp Alves Bezerra
__
Não deixe rastros ao navegar na Internet. Instale Grátis o Internet Explorer
8 agora.
http://go.microsoft.com/?linkid=9707132
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Unit
Pessoal alguem tem ai a nova Unit da Caixa para geração de boletos bancarios do RLBoleto ou GBBoleto parece que e o SICOB. Pode me enviar... Valeu...
[delphi-br] Log do sql
Galera, alguem aqui utiliza alguma ferramenta para analisar os logs de sql executados no firebird ?? Tem alguma ferramenta que faz isso ? Obrigado 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: [delphi-br] Log do sql
O IBExpert mantém um histórico das instruçoes executadas. 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 ter, 16/3/10, Berdam berdamzi...@yahoo.com.br escreveu: De: Berdam berdamzi...@yahoo.com.br Assunto: [delphi-br] Log do sql Para: Delphi delphi-br@yahoogrupos.com.br Data: Terça-feira, 16 de Março de 2010, 9:12 Galera, alguem aqui utiliza alguma ferramenta para analisar os logs de sql executados no firebird ?? Tem alguma ferramenta que faz isso ? Obrigado _ _ _ _ _ _ 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] 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]
[delphi-br] Problema para executar aplicação no windows 7
Bom dia a todos, tenho uma aplicação em Delphi7 e Firebird 2.1 até hoje rodou bem em todas as versões do windows até o windows 7. Nele quando executo a aplicação esta apresentando o seguinte erro: Exception EOleSysError in module Uniserv.exe at 0009BFE1. Classe não registrada. Alguem já pasou por este tipo de problema e poderia me dar uma dica? Atenciosamente, Raimundo Paim Analista de Sistema. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Log do sql
isso eu sei, mas para analisar em tempo de produção os sqls executados. De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 16 de Março de 2010 10:32:31 Assunto: Re: [delphi-br] Log do sql O IBExpert mantém um histórico das instruçoes executadas. 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 ter, 16/3/10, Berdam berdamzinho@ yahoo.com. br escreveu: De: Berdam berdamzinho@ yahoo.com. br Assunto: [delphi-br] Log do sql Para: Delphi delphi...@yahoogrup os.com.br Data: Terça-feira, 16 de Março de 2010, 9:12 Galera, alguem aqui utiliza alguma ferramenta para analisar os logs de sql executados no firebird ?? Tem alguma ferramenta que faz isso ? Obrigado _ _ _ _ _ _ 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] _ _ _ _ _ _ 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] 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: [delphi-br] Problema para executar aplic ação no windows 7
O Delphi 7 não tem suporte a Windows 7, ele já esta descontinuado a mais de 6 anos. Mas já muitas pessoas tem conseguido utilizar aplicações feitas com Delphi 7 no Windows 7. Algumas dicas: - Desabilite o UAC (User Access Control) - Habilite a forma de rodar em retro-compatibilidade os seus executáveis e o Delphi 7 (nas propriedades do aruivo acessado com o botão direito do mouse você consegue isso). Tente setar para compatibilidade com Windows XP - Sempre rode como administrador - Verifique se o firewall do Windows não está bloqueando nada. Eu recomendo você desabilitar ele e usar o Avira que é gratuito e muito bom como anti-virus e firewall. - Se a extensão do seu banco de dados no FireBird é gdb, troque para qualquer outra extensão, como por exemplo fdb. Veja se ajuda. Abraços, Bruno From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Raimundo de Azevedo Paim Filho Sent: terça-feira, 16 de março de 2010 11:25 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Problema para executar aplicação no windows 7 Bom dia a todos, tenho uma aplicação em Delphi7 e Firebird 2.1 até hoje rodou bem em todas as versões do windows até o windows 7. Nele quando executo a aplicação esta apresentando o seguinte erro: Exception EOleSysError in module Uniserv.exe at 0009BFE1. Classe não registrada. Alguem já pasou por este tipo de problema e poderia me dar uma dica? Atenciosamente, Raimundo Paim Analista de Sistema. [As partes desta mensagem que não continham texto foram removidas] Click here https://www.mailcontroller.altohiway.com/sr/b1LXD5QnmULTndxI!oX7UnF1h4o+NsfX3wbZrrt!4LYARDCOW2udM7U8HwR4AUuhEJV4gOViG!Pi5jK2rp2Ftw== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Log do sql
Dá uma olha no produto da Embarcadero, DBArtisan (http://www.embarcadero.com/products/dbartisan). Não me lembro se tem driver para FireBird. Procure no EDN sobre a palestra que o Andreano fez. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Berdam berdamzi...@... escreveu isso eu sei, mas para analisar em tempo de produção os sqls executados.
[delphi-br] Problema com Tipo Currency no windows7
Boa tarde pessoal!! Alguem teve algum problema no windows7? tenho uma query abaixo select (total - desconto) as val_total from tabela estou usando clientdatase, quando abro o dataset ele da uma erro dizendo q esta esperando um currency e o atual eh largint. Banco usado SQL Severe 2000 Alguem tem alguma ideia? obrigado Bit
[delphi-br] Intraweb - DBComboLookupComboBox
Colegas, Eu tenho um dblookupcombobox, ligado a um dataset (list), porém só para listar os itens da tabela . Quando eu clicar eu quero pegar o valor selecionado, o valor está sempre vindo vázio, como eu posso fazer com que o campo código de um sql seja incluso no value de cada item do combo??? Obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema para executar aplicação n o windows 7
Pelo visto seu projeto faz uso de algum objeto ole que não está instalado no Win7, pode ser algum ActiveX. vai precisar depurar para ver que objeto é esse. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 16 de março de 2010 11:24, Raimundo de Azevedo Paim Filho r.del...@terra.com.br escreveu: Bom dia a todos, tenho uma aplicação em Delphi7 e Firebird 2.1 até hoje rodou bem em todas as versões do windows até o windows 7. Nele quando executo a aplicação esta apresentando o seguinte erro: Exception EOleSysError in module Uniserv.exe at 0009BFE1. Classe não registrada. Alguem já pasou por este tipo de problema e poderia me dar uma dica? Atenciosamente, Raimundo Paim Analista de Sistema. [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 * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro para enviar XML do SNGPC
Olá Amigos, bom dia estou com um problema em um cliente com relação ao envio do xml do sngpc. Pelo o que ele me disse está voltando a mensagem *[EA] The root element is missing *quando o envio é feito através do webservice. Estranho que tentando enviar o mesmo xml pelo site da certo... Alguém já passou por isso? obrigado pela atenção *Diego Garcia* [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema para executar aplicação n o windows 7
pegando o embalo, Bruno qual a diferença entre gdb e fdb? tem algo a ver com windows bloquear o arquivo por ele pensar que seja de uso do windows? Em 16 de março de 2010 11:29, Bruno Lichot bruno.lic...@microfocus.comescreveu: O Delphi 7 não tem suporte a Windows 7, ele já esta descontinuado a mais de 6 anos. Mas já muitas pessoas tem conseguido utilizar aplicações feitas com Delphi 7 no Windows 7. Algumas dicas: - Desabilite o UAC (User Access Control) - Habilite a forma de rodar em retro-compatibilidade os seus executáveis e o Delphi 7 (nas propriedades do aruivo acessado com o botão direito do mouse você consegue isso). Tente setar para compatibilidade com Windows XP - Sempre rode como administrador - Verifique se o firewall do Windows não está bloqueando nada. Eu recomendo você desabilitar ele e usar o Avira que é gratuito e muito bom como anti-virus e firewall. - Se a extensão do seu banco de dados no FireBird é gdb, troque para qualquer outra extensão, como por exemplo fdb. Veja se ajuda. Abraços, Bruno From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Raimundo de Azevedo Paim Filho Sent: terça-feira, 16 de março de 2010 11:25 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Problema para executar aplicação no windows 7 Bom dia a todos, tenho uma aplicação em Delphi7 e Firebird 2.1 até hoje rodou bem em todas as versões do windows até o windows 7. Nele quando executo a aplicação esta apresentando o seguinte erro: Exception EOleSysError in module Uniserv.exe at 0009BFE1. Classe não registrada. Alguem já pasou por este tipo de problema e poderia me dar uma dica? Atenciosamente, Raimundo Paim Analista de Sistema. [As partes desta mensagem que não continham texto foram removidas] Click here https://www.mailcontroller.altohiway.com/sr/b1LXD5QnmULTndxI!oX7UnF1h4o+NsfX3wbZrrt!4LYARDCOW2udM7U8HwR4AUuhEJV4gOViG!Pi5jK2rp2Ftw== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas] -- Nazareno Neto Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Duplicar registro no firebird
Esses campos DB estão ligados ao cds_TCM? Se sim, tente
cds_TCM.DisableControls( )
antes do insert, mas é mais recomendado que você trabalhe com outros
controles, TEdit por exemplo, para esse tipo de operação.
Ah, coloque cds_TCM.EnableControls( ) depois do for.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ralp Alves Bezerra
Enviada em: terça-feira, 16 de março de 2010 07:32
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Duplicar registro no firebird
Pois é, já havia feito desta maneira mas continua não gravando em banco.
Estou fazendo desta forma:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
end;
finally
DM.cds_TCM_A.ApplyUpdates(0);
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Abraços.
Ralp Alves
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 Rubem Nascimento da Rocha
Enviada em: sexta-feira, 12 de março de 2010 16:01
Para: delphi-br
Assunto: RE: [delphi-br] Duplicar registro no firebird
Prioridade: Alta
Faça o posto para cada registro criado, e ao final use ApplyUdpates(0). Com
ApplyUpdates(-1), se houverem erros, os mesmos não serão notificados à
aplicação.
Sds.
To: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
From: ral...@gmail. mailto:ralprd%40gmail.com com
mailto:ralprd%40gmail.com
Date: Fri, 12 Mar 2010 07:20:01 -0300
Subject: [delphi-br] Duplicar registro no firebird
Bom dia.
Venho mais uma vez, pedir a ajuda dos nobres colegas.
Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos
com duas tabelas devidamente ligadas (master detail).
Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a
quantidade de documentos a digitalizar.
Com base nesta quantidade digitada, queria que fosse gravado em banco a
quantidade de registros informado no campo QtdPag.
Na verdade, os registros seriam duplicados e salvos em banco de acordo com a
quantidade informada.
Estou tentando desta maneira abaixo:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(-1);
end;
finally
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros,
mas no banco é gravado somente 1 registro.
Como poderia resolver este problema?
Abraços.
Ralp Alves Bezerra
__
Não deixe rastros ao navegar na Internet. Instale Grátis o Internet Explorer
8 agora.
http://go.microsoft http://go.microsoft.com/?linkid=9707132
.com/?linkid=9707132
[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]
