[delphi-br] Dúvida! Existe algum WebService da SEFAZ para obter dados dos contribuintes?
Bom dia amigos, um cliente meu, está querendo que ao digitar o CPF ou CNPJ, eu já traga as informações da pessoa... pela NF-e eu consigo pegar pelo CNPJ, mas somente empresas que utilizam NFe, pessoas físicas eu não consigo. Ouvi dizer que o SERASA tem essa informação, que se pagaria uma taxa para isso... é verdade? Alguém já fez algo parecido? Att. -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida! Existe algum WebService da SEFAZ para obter dados dos contribuintes?
eu acredito que a cdl tenha um serviço parecido, se informe com a cdl de sua cidade. Em 20 de agosto de 2010 10:48, Fellipe Henrique felli...@gmail.comescreveu: Bom dia amigos, um cliente meu, está querendo que ao digitar o CPF ou CNPJ, eu já traga as informações da pessoa... pela NF-e eu consigo pegar pelo CNPJ, mas somente empresas que utilizam NFe, pessoas físicas eu não consigo. Ouvi dizer que o SERASA tem essa informação, que se pagaria uma taxa para isso... é verdade? Alguém já fez algo parecido? Att. -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh -- [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [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] Dúvida! Existe algum WebService da SEFAZ para obter dados dos contribuintes?
http://www.consultacpf.com WebService de acesso via modelo pré-pago que permite consultar informações tanto de pessoas jurídicas como pessoas físicas. A empresa é parceira tecnológica (distribuidor nacional autorizado) do SERASA. A empresa dispõe ainda de um canal para desenvolvedores (http://dn.consultacpf.com) que queiram integrar suas aplicações com o WebService. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de felipe govoni Enviada em: sexta-feira, 20 de agosto de 2010 09:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dúvida! Existe algum WebService da SEFAZ para obter dados dos contribuintes? eu acredito que a cdl tenha um serviço parecido, se informe com a cdl de sua cidade. Em 20 de agosto de 2010 10:48, Fellipe Henrique felli...@gmail.comescreveu: Bom dia amigos, um cliente meu, está querendo que ao digitar o CPF ou CNPJ, eu já traga as informações da pessoa... pela NF-e eu consigo pegar pelo CNPJ, mas somente empresas que utilizam NFe, pessoas físicas eu não consigo. Ouvi dizer que o SERASA tem essa informação, que se pagaria uma taxa para isso... é verdade? Alguém já fez algo parecido? Att. -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh -- [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Dúvida com StringGrid
Ok, funcionou Muito obrigado Fabrício e os demais []'s Em 14 de julho de 2010 14:16, Fabricio Colombo fabricio.colombo@gmail.com escreveu: crie um método conforme abaixo, e associe ao stringgrid dinamicamente procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState); begin with TStringGrid(Sender) do begin if (ACol FixedCols-1) and (ARow FixedRows-1) then begin if Odd(ARow) then Canvas.Brush.Color := clYellow else Canvas.Brush.Color := clWhite; Canvas.FillRect(Rect); end; end; end; var vStringGrid: TStringGrid; begin vStringGrid := TStringGrid.Create(Self); vStringGrid.Parent := Self; vStringGrid.OnDrawCell := StringGridDrawCell; Em 14 de julho de 2010 10:06, Domingos domingosp...@gmail.com escreveu: É verdade, havia me esquecido de Parent da classe TComponent, né? Funcionou tudo bem, agora aproveitar a deixa, vocês sabem uma maneira eficiente de zebrar os Grids criados em tempo de execução? Em 13 de julho de 2010 22:21, Fabricio Colombo fabricio.colombo@gmail.com fabricio.colombo.mva%40gmail.com escreveu: Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com domingospawn%40gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com domingospawn% 40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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 -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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 -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com StringGrid
Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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
Re: [delphi-br] Dúvida com StringGrid
É verdade, havia me esquecido de Parent da classe TComponent, né? Funcionou tudo bem, agora aproveitar a deixa, vocês sabem uma maneira eficiente de zebrar os Grids criados em tempo de execução? Em 13 de julho de 2010 22:21, Fabricio Colombo fabricio.colombo@gmail.com escreveu: Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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 -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com StringGrid
crie um método conforme abaixo, e associe ao stringgrid dinamicamente procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState); begin with TStringGrid(Sender) do begin if (ACol FixedCols-1) and (ARow FixedRows-1) then begin if Odd(ARow) then Canvas.Brush.Color := clYellow else Canvas.Brush.Color := clWhite; Canvas.FillRect(Rect); end; end; end; var vStringGrid: TStringGrid; begin vStringGrid := TStringGrid.Create(Self); vStringGrid.Parent := Self; vStringGrid.OnDrawCell := StringGridDrawCell; Em 14 de julho de 2010 10:06, Domingos domingosp...@gmail.com escreveu: É verdade, havia me esquecido de Parent da classe TComponent, né? Funcionou tudo bem, agora aproveitar a deixa, vocês sabem uma maneira eficiente de zebrar os Grids criados em tempo de execução? Em 13 de julho de 2010 22:21, Fabricio Colombo fabricio.colombo@gmail.com fabricio.colombo.mva%40gmail.com escreveu: Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.comdomingospawn%40gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.comdomingospawn% 40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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 -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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] Dúvida com StringGrid
Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com StringGrid
Eu não entendi o que você quis dizer com setando o tamanho executar o Create da classe TStringGrid. Mas, de qualquer maneira talvez o exemplo abaixo possa ajudar. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } Grids : Array of TStringGrid; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin SetLength(Grids, Length(Grids) + 1); Grids[Length(Grids)-1] := TStringGrid.Create(Self); Grids[Length(Grids)-1].Parent := Self; Grids[Length(Grids)-1].Top := Length(Grids) * 50; Grids[Length(Grids)-1].Left := Length(Grids) * 50; end; end. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com StringGrid
Deve estar faltando configurar a propriedade Parent dos StringGrids. -- Dirlei Dionísio Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade http://MaisQueBomCodigo.blogspot.com Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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] Dúvida Executável
Olá pessoal boa tarde, Quero saber se há possibilidades de a pessoa abrir o programa por um link de e-mail já informando o login do usuário por exemplo: - E-mail Link Programa: c:/Programa/Meuprograma.exe wagner.login - Ao clicar nesse link eu identificatia o wagner.login para não necessitar da pessoa fazer login e senha... Obrigado, Wagner [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida Simples - Texto em MEMO
Não há como. Multiline strings não são suportadas no Delphi ainda. Existem alguns experts para a IDE que facilitam trabalhar com esse tipo de inserção, mas de qq modo, no final, vc vai ter algo como: mem1.text := '#include stdio.h'#13 + '#include conio.h'#13 +... Em 26 de março de 2010 11:04, Augusto Nascimento augustobon...@gmail.com escreveu: Gostaria de saber como posso colocar um texto em um Memo; assim: memo1.text := //aqui é o texto todo, um código em C // O Objetivo desse programa em Delphi é criar um menu com todos os programas desenvolvidos nas aulas #include stdio.h #include conio.h #define p printf #define s scanf int main() { int num; p(\tInforme um numero inteiro com 3 algarismos (ex:123): ); s(%d, num); p(\nCentena: %d\n\n, num / 100); num %= 100; p(\nDezena: %d\n\n, num / 10); num %= 10; p(\nUnidade: %d\n\n, num); getche(); return 0; } Como eu faço para não precisar colocar: memo1.lines.add(#includestdio.h); memo1.lines.add(#includeconio.h); E inserir o texto inteiro de uma vez? Obrigado [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) -- 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] Dúvida Simples - Texto em MEMO
Gostaria de saber como posso colocar um texto em um Memo; assim: memo1.text := //aqui é o texto todo, um código em C // O Objetivo desse programa em Delphi é criar um menu com todos os programas desenvolvidos nas aulas #include stdio.h #include conio.h #define p printf #define s scanf int main() { int num; p(\tInforme um numero inteiro com 3 algarismos (ex:123): ); s(%d, num); p(\nCentena: %d\n\n, num / 100); num %= 100; p(\nDezena: %d\n\n, num / 10); num %= 10; p(\nUnidade: %d\n\n, num); getche(); return 0; } Como eu faço para não precisar colocar: memo1.lines.add(#includestdio.h); memo1.lines.add(#includeconio.h); E inserir o texto inteiro de uma vez? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida sobre herança
Obrigado Dirlei. Vou pesquisar à respeito do Strategy Em 10 de fevereiro de 2010 09:14, Dirlei dir...@gmail.com escreveu: Daniel, Isso pode ser um sinal de que o design desse trecho do seu projeto OO precisa ser alterado. Talvez a implementação do método que está na classe avô deva ser transferida para outra classe. Se te interessar, dê uma olhada no Padrão de projeto Strategy. Acredito que seja aplicável no seu caso. [ ]'s Dirlei. Daniel Hiromy escreveu: Bom dia pessoal. Como faço para extender um método e chamar só o método da classe avô? [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
Re: [delphi-br] Dúvida sobre herança
Em 10/02/2010 07:50, Samuel M. Basso escreveu: Amigo eu tenho o sistema totalmente em herança desde metodos até da parte visual. É muito usado e faz sentido sim Vinicius. Pensa comigo vou tentar te explicar me maneira clara. Em um sistema que vc tem varios cadastros com Codigo e Descrição apenas dois campos (situando um exemplo) vc cria essa unit e form da maneira que quiser coloca todos dbedit, botoes, metodos tais como ao fechar a tela fazer pergunta se realmente desejar fechar, validaçao dos campos caso nao preenchimento e pronto. Todos outros cadastros vc herda desse que criou e todos esses metodos que criou nao precisam ser adicionados, poupando muito tempo de programaçao. Se um dia encontrar um erro se o erro é da classe pai nao precisa mudar em todos os cadastros como é de costume dos programadores simplismente muda em um só lugar e esta resolvido. Por isso considero de muito sentido usar heranças. Claro que faz sentido usar heranças Não faz sentido herdar um método e não querer que ele execute na classe ancestral. Se vc não quer executar o metódo na classe ancestral não o herde, herde apenas a classe. Acho que agora me expliquei melhor. ;)
Re: [delphi-br] Dúvida sobre herança
Amigo eu tenho o sistema totalmente em herança desde metodos até da parte visual. É muito usado e faz sentido sim Vinicius. Pensa comigo vou tentar te explicar me maneira clara. Em um sistema que vc tem varios cadastros com Codigo e Descrição apenas dois campos (situando um exemplo) vc cria essa unit e form da maneira que quiser coloca todos dbedit, botoes, metodos tais como ao fechar a tela fazer pergunta se realmente desejar fechar, validaçao dos campos caso nao preenchimento e pronto. Todos outros cadastros vc herda desse que criou e todos esses metodos que criou nao precisam ser adicionados, poupando muito tempo de programaçao. Se um dia encontrar um erro se o erro é da classe pai nao precisa mudar em todos os cadastros como é de costume dos programadores simplismente muda em um só lugar e esta resolvido. Por isso considero de muito sentido usar heranças. 2010/2/9 Vinicius Santos vinicius.santos.li...@gmail.com Em 09/02/2010 10:44, Daniel Hiromy escreveu: Como faço para extender um método e chamar só o método da classe avô? Simplesmente não faz sentido fazer isso. Faça a herança da classe, e crie um novo método, já que não quer chamar o ancestral. Ahhh, claro. Para não chamar o método da classe ancestral, basta remover o inherited. -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.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
Re: [delphi-br] Dúvida sobre herança
Daniel, Isso pode ser um sinal de que o design desse trecho do seu projeto OO precisa ser alterado. Talvez a implementação do método que está na classe avô deva ser transferida para outra classe. Se te interessar, dê uma olhada no Padrão de projeto Strategy. Acredito que seja aplicável no seu caso. [ ]'s Dirlei. Daniel Hiromy escreveu: Bom dia pessoal. Como faço para extender um método e chamar só o método da classe avô?
Re: [delphi-br] Dúvida sobre herança
Bom dia pessoal. Desculpem minha pergunta que não foi clara. Eu tenho uma classe A com um método X. Tenho uma segunda classe B que herda de A e estende o método X. Depois crio uma classe C que herda de B, mas que estende apenas o método X de A, desconsiderando a implementação de B. Queria saber se isso é possível. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida sobre herança
Bom dia pessoal. Como faço para extender um método e chamar só o método da classe avô? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida sobre herança
Em 09/02/2010 10:44, Daniel Hiromy escreveu: Como faço para extender um método e chamar só o método da classe avô? Simplesmente não faz sentido fazer isso. Faça a herança da classe, e crie um novo método, já que não quer chamar o ancestral. Ahhh, claro. Para não chamar o método da classe ancestral, basta remover o inherited.
[delphi-br] Dúvida IDE Delphi 2006
Dúvida que não consigo descobrir, e que eu não gosto. No Delphi 2006 qdo.abro um projeto, num módulo qualquer, tem lá um SQLQUERY, dou um duplo clique abre-se o FIELDEDITOR do componente. Pois bem, crio os campos dentro do FieldEditor, logo em seguido pressiono F12 para ir para o código do projeto, e esta caixa do FieldEditor fica sobre o código. Alguém sabe da propriedade que habilita ou desabilita isto? Tem algo a ver com GExperts, pois tenho instalado isto no Delphi 2006. O que eu quero é que se pressionar o F12 o FieldEditor ou qualquer outra caixa de diálogo (tela de parâmetros do SQLQuery, ClientDataSet...) fique atrás do código ou tela do projeto. Conseguindo voltar para estas caixas de diálogo pela opção Windows do Delphi. É que troquei de computador e neste ocorre este problema, no micro antigo isto não acontecia. Já verifiquei as propriedades em Tools-Options, e não consigo mudar isto. Espero que alguém possa me ajudar, obrigado a todos. Alessandro 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] Dúvida com Data Module
Olá pessoal, Criei um Data Module para todas as tabelas Cadastrais do sistema e Adicionei um SQLConnection para conexao com o banco. Criei outro Data Module só para o Modulo que estou fazendo. A minha dúvida é a seguinte eu tenho que adicionar a unit do Outro Data Module ou eu posso adicionar outro SQLConnection no novo Data Module? Desde já agraço DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Dúvida com Data Module
Acho que a maneira mais correta é se referenciar ao Connection que já esta ativo, evitando assim de ficar conectando varias vezes no banco. pra isso você vai ter que adicionar a referencia do data module principal nesse data module novo. abs. *Diego Garcia* Twitter: http://www.twitter.com/drgarcia1986 2009/12/23 Darkzad dark...@yahoo.com.br Olá pessoal, Criei um Data Module para todas as tabelas Cadastrais do sistema e Adicionei um SQLConnection para conexao com o banco. Criei outro Data Module só para o Modulo que estou fazendo. A minha dúvida é a seguinte eu tenho que adicionar a unit do Outro Data Module ou eu posso adicionar outro SQLConnection no novo Data Module? Desde já agraço DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.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
Re: [delphi-br] Dúvida com Sorteio (Random)
Ricardo César Cardoso escreveu: Eu ia esperar pra comprovar amanhã, quando ia testar no Delphi, mas acho que usando assim como passado, o resultado sempre será o mesmo. Se não me engano, Randomize é somente um inicializador do gerador de números randômicos, por isso deve ser chamado apenas uma vez, como bem disse o João. Eu fiquei sabendo disso agora (chamar só na inicialização). Fiz um teste para embaralhar uns números, e queria que numa contagem de 0 a 500 ele embaralhasse até acabar as combinações possíveis, ex: Certo: 1 - 27 2 - 63 3 - 7 4 - 500 5 - 339 Errado: 1 - 27 2 - 500 3 - 7 4 - 500 -- repetiu 5 - 339 Queria que, quando ele tivesse esgotado todas as combinações possíveis (de 0 a 500), acionasse um LED pro cara resetar a contagem; solução: salvar em uma variável os números que já foram exibidos, e não deixar o laço soltar outro número igual. (posso estar enganado, mas pelo menos nos testes que fiz, se não fosse esse macete os números iam se repetir muitas vezes). Quem tiver uma solução mais simples, por gentileza, um CTRL+V aqui na lista e outro aqui - [http://pastebin.com/] :) 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! -- Silvio Clecio -- Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- A consciência é o melhor livro de moral que temos; e é, certamente, o que mais devemos consultar. Blaise Pascal.
[delphi-br] Dúvida com Sorteio (Random)
Olá, Tenho a função abaixo para gerar um código que utilizo no sistema. Pela lógica, se chamarmos a função assim: GeraCodigoAlfaNumericoAleatorio(10); o retorno deveria ser sempre diferente. Poderia até repetir, mas a chance disso acontecer, seria tipo uma em um bilhão? O problema: em 610 códigos gerados, o código 6HGX564TQP já se repetiu 23 vezes. Para isso ocorrer, o resutaldo do random(Length(VMatriz)) teria ser 6-18-17-34-5-6-4-30-27-26. Qual a chance desse sorteio ocorrer exatamente igual e nessa mesma ordem? Pois, em 610 tentativas, ocorreu 23 vezes. A execução é feita sempre em máquinas diferentes (do usuário), mas mesmo assim, isso não poderia ocorrer, poderia? Qualquer dica ajuda. Obrigado function GeraCodigoAlfaNumericoAleatorio(VTamanho : Integer) : string; Var I : Integer; VMatriz : String; begin VMatriz := '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ' result := ''; for I := 1 to VTamanho do result := result + Copy(VMatriz,random(Length(VMatriz)),1); end;
Re: [delphi-br] Dúvida com Sorteio (Random)
É uma boa pergunta, mas não imagino uma resposta convincente... Quanto a se repetir em máquinas diferentes do usuário, o que posso dizer que me lembro é que a primeira execução de Random é gerada usando a data e a hora do sistema, portanto parte do mesmo valor independente do equipamento. A partir daí as coisas se randomizam mesmo. Acho que para limitar essa repetição, seria interessante (porém mais custoso) refazer o sorteio em caso de repetição do código, fazendo o paralelo com o sorteio de um bingo, onde as pedras já retiradas não voltam para o recipiente. Espero ter contribuido. 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 seg, 7/12/09, valdirdill vald...@infolivre.com.br escreveu: De: valdirdill vald...@infolivre.com.br Assunto: [delphi-br] Dúvida com Sorteio (Random) Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 7 de Dezembro de 2009, 12:16 Olá, Tenho a função abaixo para gerar um código que utilizo no sistema. Pela lógica, se chamarmos a função assim: GeraCodigoAlfaNume ricoAleatorio( 10); o retorno deveria ser sempre diferente. Poderia até repetir, mas a chance disso acontecer, seria tipo uma em um bilhão? O problema: em 610 códigos gerados, o código 6HGX564TQP já se repetiu 23 vezes. Para isso ocorrer, o resutaldo do random(Length( VMatriz)) teria ser 6-18-17-34-5- 6-4-30-27- 26. Qual a chance desse sorteio ocorrer exatamente igual e nessa mesma ordem? Pois, em 610 tentativas, ocorreu 23 vezes. A execução é feita sempre em máquinas diferentes (do usuário), mas mesmo assim, isso não poderia ocorrer, poderia? Qualquer dica ajuda. Obrigado function GeraCodigoAlfaNumer icoAleatorio( VTamanho : Integer) : string; Var I : Integer; VMatriz : String; begin VMatriz := '1234567890ABCDEFGH IJKLMNOPQRSTUVWX YZ' result := ''; for I := 1 to VTamanho do result := result + Copy(VMatriz, random(Length( VMatriz)) ,1); 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]
Re: [delphi-br] Dúvida com Sorteio (Random)
Não tenho certeza, mas tente usar o *Randomize *antes de usar o *Random * *Diego Garcia* Twitter: http://www.twitter.com/drgarcia1986 Blog:http://www.atocadopanda.com 2009/12/7 valdirdill vald...@infolivre.com.br Olá, Tenho a função abaixo para gerar um código que utilizo no sistema. Pela lógica, se chamarmos a função assim: GeraCodigoAlfaNumericoAleatorio(10); o retorno deveria ser sempre diferente. Poderia até repetir, mas a chance disso acontecer, seria tipo uma em um bilhão? O problema: em 610 códigos gerados, o código 6HGX564TQP já se repetiu 23 vezes. Para isso ocorrer, o resutaldo do random(Length(VMatriz)) teria ser 6-18-17-34-5-6-4-30-27-26. Qual a chance desse sorteio ocorrer exatamente igual e nessa mesma ordem? Pois, em 610 tentativas, ocorreu 23 vezes. A execução é feita sempre em máquinas diferentes (do usuário), mas mesmo assim, isso não poderia ocorrer, poderia? Qualquer dica ajuda. Obrigado function GeraCodigoAlfaNumericoAleatorio(VTamanho : Integer) : string; Var I : Integer; VMatriz : String; begin VMatriz := '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ' result := ''; for I := 1 to VTamanho do result := result + Copy(VMatriz,random(Length(VMatriz)),1); end; [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
Re: [delphi-br] Dúvida com Sorteio (Random)
procedure Gera: String; var c: Char; s: String; begin Randomize; s:=''; while true do begin c:=char(random(91)); if c in ['0'..'9'] then s:=s + c else if c in ['A'..'Z'] then s:=s + c; if length(s) = 6 then break; end; end;
Re: [delphi-br] Dúvida com Sorteio (Random)
esse nao eh um metodo bom para se gerar um randomico.. pois a função random na verdade nao eh randomica rsrs dificil de entender ne!.. faça o teste colocando: result := ''; for I := 1 to VTamanho do Begin Randomize; result := result + Copy(VMatriz,random(Length(VMatriz)),1); End; end; 2009/12/7 valdirdill vald...@infolivre.com.br Olá, Tenho a função abaixo para gerar um código que utilizo no sistema. Pela lógica, se chamarmos a função assim: GeraCodigoAlfaNumericoAleatorio(10); o retorno deveria ser sempre diferente. Poderia até repetir, mas a chance disso acontecer, seria tipo uma em um bilhão? O problema: em 610 códigos gerados, o código 6HGX564TQP já se repetiu 23 vezes. Para isso ocorrer, o resutaldo do random(Length(VMatriz)) teria ser 6-18-17-34-5-6-4-30-27-26. Qual a chance desse sorteio ocorrer exatamente igual e nessa mesma ordem? Pois, em 610 tentativas, ocorreu 23 vezes. A execução é feita sempre em máquinas diferentes (do usuário), mas mesmo assim, isso não poderia ocorrer, poderia? Qualquer dica ajuda. Obrigado function GeraCodigoAlfaNumericoAleatorio(VTamanho : Integer) : string; Var I : Integer; VMatriz : String; begin VMatriz := '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ' result := ''; for I := 1 to VTamanho do result := result + Copy(VMatriz,random(Length(VMatriz)),1); end; -- Leandro, MuTukA [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
Re: [delphi-br] Dúvida com Sorteio (Random)
2009/12/7 Leandro mutu...@yahoo.com.br: esse nao eh um metodo bom para se gerar um randomico.. pois a função random na verdade nao eh randomica rsrs dificil de entender ne!.. faça o teste colocando: result := ''; for I := 1 to VTamanho do Begin Randomize; result := result + Copy(VMatriz,random(Length(VMatriz)),1); End; Use o randomize uma única vez, fora do laço. Melhor ainda se for executado uma única vez na inicialização do programa. Joao Morais
Re: [delphi-br] Dúvida com Sorteio (Random)
Eu ia esperar pra comprovar amanhã, quando ia testar no Delphi, mas acho que usando assim como passado, o resultado sempre será o mesmo. Se não me engano, Randomize é somente um inicializador do gerador de números randômicos, por isso deve ser chamado apenas uma vez, como bem disse o João. 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 seg, 7/12/09, Joao Morais jcmorai...@gmail.com escreveu: De: Joao Morais jcmorai...@gmail.com Assunto: Re: [delphi-br] Dúvida com Sorteio (Random) Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 7 de Dezembro de 2009, 22:26 2009/12/7 Leandro mutu...@yahoo. com.br: esse nao eh um metodo bom para se gerar um randomico.. pois a função random na verdade nao eh randomica rsrs dificil de entender ne!.. faça o teste colocando: result := ''; for I := 1 to VTamanho do Begin Randomize; result := result + Copy(VMatriz, random(Length( VMatriz)) ,1); End; Use o randomize uma única vez, fora do laço. Melhor ainda se for executado uma única vez na inicialização do programa. Joao Morais 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] Dúvida com SQL
DarkZad, Me pareceu que voce tem dificuldades para expressar o problema que voce tem a resolver. Vamos ver se entendi bem = voce tem uma tabela de cabeçalho do conhecimento, que apresenta 3 campos que se referem ao Remetente, Destinatário e Pagador, cujos detalhes podem ser obtidos a partir da tabela de cliente. Se for isto, sim, voce terá três colunas na tabela de cabeçalho de conhecimento, que deverá apresentar apresentar 3 chaves estrangeiras referentes ao Remetente, Destinatário e Pagador, oriundas da tabela de cliente. E melhor que assim o seja, pois na verdade são roles (papéis) que o cliente desempenha dentro do processo de envio de uma mercadoria. Estes tres papéis podem se referir a um mesmo cliente ou a clientes diferentes, mas todos são clientes. Desta forma, voce evita criar 3 tabelas para representar dados que, na essência, tem a mesma estrutura. Espero de alguma forma ter ajudado a clarear as idéias. Abraço, boa sorte, Roberto Camargo. From: Leandro mutu...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Tue, December 1, 2009 5:37:57 PM Subject: Re: [delphi-br] Dúvida com SQL Os erros ort sao maravilhosos rs! Amigo delphi pode se comunicar com qualquer banco descente.. pois a linguagem de qualquer banco descente eh sql.. sobre a duvida do nosso amigo ja falei o que ele tem q pesquisar: tem que fazer uma pesquisa sobre relacionamento em banco de dados 1 para N, N para N e 1 para 1, onde tera que criar: 2 tabelas, 3 tabelas ou 1 tabela somente respectivamente.. nao vou explicar aqui pois alem de grande quero que ele corra atras para aprender.. as vezes eh melhor da a isca para ele pescar.. como diria um dos membros aqui do grupo (acho que era o rubem rsrs) Um abraço! 2009/12/1 Gilson gindre gindre fb...@hotmail.com dixa ver se eu entendi, se vc tem duvidas quanto de que tabela pegar os campos, ou se colaca todos em uma tabela só ! isso indepente se é no delphi, vb, java, php, phyton, asp ou estou enganado a duvida do rapaz e referente banco estrutura de dados! Ou dependendo de como está o banco de dados o delphi não consegue escrever ? reafirmo meu pensamento, entrei aqui para tentar aprender delphi que é uma das poucas linguagens que ainda não trabalhei e me parece que continua tendo gente ignorante na discussão! se eu não me engano com meus 20 anos de programação, vc cria a estrutura do banco de dados depois vc escolhe em que linguagem vc quer programar, e me corrigam por favor, se o delphi não tem poder de trabalhar com um banco já pronto, não presição me ajudar, pois não quero mas aprender delphi não me interessa mais, já mandei email me escruindo do grupo, por causa de pessoas arrogante, mas continuo recebendo email, se o moderador quiser, pode me excluir por gentileza. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: fb...@hotmail.com fbgde%40hotmail.com Date: Mon, 30 Nov 2009 07:51:31 -0200 Subject: RE: [delphi-br] Dúvida com SQL pessoal banco vc pode usar qquer um, com qquer linguagem de programação, parece que estou desaprendendo aqui, Dark vc pode fazer o que achar certo referente relacionamento, mas vc tem que pensar o seguinte, um bom sitema, bem elaborado pensa em problemas futuros, imagina vc precisar de um relatório de quem pagou o frete ou seja se é cif ou fob, um relatorio só de clientes, então pense nisso, vc pode tambem incluir mais um camo em sua tabela, onde vc pode gravar o tipo do cadastro por exemplo ! 1 remetente 2 destinatario 3 pagador, ai sim futuramente vc terá um parametro para filtrar sua consulta, ah pessoal não programo em delphi, entrei aqui para tentar aprender, mas tem muita gente ignorante, leio email de todos vcs, e respetio todos, e estou aqui afim de aprender delphi com todo respeito, conhecimento é uma riqueza que devemos compartilhar, desenvolvo em flex, php e mysql, um abraço a todos, epero que me deixem aprender delphi ! To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: wchag...@bol.com.br wchagasj%40bol.com.br Date: Sun, 29 Nov 2009 05:35:58 -0300 Subject: Re: [delphi-br] Dúvida com SQL Bom se voce acha que isto não tem nada haver com Delphi então é porque voce está na área errada ou não é desenvolvedor de software e sim um mero pregrador de botão em form. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ - Mensagem original De: Matheus Nabao matheus_...@hotmail.com matheus_nab%40hotmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 27 de Novembro de 2009 11:38:56 Assunto: RE: [delphi-br] Dúvida com SQL O que é que isso tem a ver com Delphi? To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: dark
Re: [delphi-br] Dúvida com SQL
Os erros ort sao maravilhosos rs! Amigo delphi pode se comunicar com qualquer banco descente.. pois a linguagem de qualquer banco descente eh sql.. sobre a duvida do nosso amigo ja falei o que ele tem q pesquisar: tem que fazer uma pesquisa sobre relacionamento em banco de dados 1 para N, N para N e 1 para 1, onde tera que criar: 2 tabelas, 3 tabelas ou 1 tabela somente respectivamente.. nao vou explicar aqui pois alem de grande quero que ele corra atras para aprender.. as vezes eh melhor da a isca para ele pescar.. como diria um dos membros aqui do grupo (acho que era o rubem rsrs) Um abraço! 2009/12/1 Gilson gindre gindre fb...@hotmail.com dixa ver se eu entendi, se vc tem duvidas quanto de que tabela pegar os campos, ou se colaca todos em uma tabela só ! isso indepente se é no delphi, vb, java, php, phyton, asp ou estou enganado a duvida do rapaz e referente banco estrutura de dados! Ou dependendo de como está o banco de dados o delphi não consegue escrever ? reafirmo meu pensamento, entrei aqui para tentar aprender delphi que é uma das poucas linguagens que ainda não trabalhei e me parece que continua tendo gente ignorante na discussão! se eu não me engano com meus 20 anos de programação, vc cria a estrutura do banco de dados depois vc escolhe em que linguagem vc quer programar, e me corrigam por favor, se o delphi não tem poder de trabalhar com um banco já pronto, não presição me ajudar, pois não quero mas aprender delphi não me interessa mais, já mandei email me escruindo do grupo, por causa de pessoas arrogante, mas continuo recebendo email, se o moderador quiser, pode me excluir por gentileza. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: fb...@hotmail.com fbgde%40hotmail.com Date: Mon, 30 Nov 2009 07:51:31 -0200 Subject: RE: [delphi-br] Dúvida com SQL pessoal banco vc pode usar qquer um, com qquer linguagem de programação, parece que estou desaprendendo aqui, Dark vc pode fazer o que achar certo referente relacionamento, mas vc tem que pensar o seguinte, um bom sitema, bem elaborado pensa em problemas futuros, imagina vc precisar de um relatório de quem pagou o frete ou seja se é cif ou fob, um relatorio só de clientes, então pense nisso, vc pode tambem incluir mais um camo em sua tabela, onde vc pode gravar o tipo do cadastro por exemplo ! 1 remetente 2 destinatario 3 pagador, ai sim futuramente vc terá um parametro para filtrar sua consulta, ah pessoal não programo em delphi, entrei aqui para tentar aprender, mas tem muita gente ignorante, leio email de todos vcs, e respetio todos, e estou aqui afim de aprender delphi com todo respeito, conhecimento é uma riqueza que devemos compartilhar, desenvolvo em flex, php e mysql, um abraço a todos, epero que me deixem aprender delphi ! To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: wchag...@bol.com.br wchagasj%40bol.com.br Date: Sun, 29 Nov 2009 05:35:58 -0300 Subject: Re: [delphi-br] Dúvida com SQL Bom se voce acha que isto não tem nada haver com Delphi então é porque voce está na área errada ou não é desenvolvedor de software e sim um mero pregrador de botão em form. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ - Mensagem original De: Matheus Nabao matheus_...@hotmail.com matheus_nab%40hotmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 27 de Novembro de 2009 11:38:56 Assunto: RE: [delphi-br] Dúvida com SQL O que é que isso tem a ver com Delphi? To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: dark...@yahoo.com.br darkzad%40yahoo.com.br Date: Fri, 27 Nov 2009 11:35:26 -0300 Subject: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ __ Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER
Re: [delphi-br] Dúvida com SQL
Foi falha minha não colocar OFF no assunto. Valeu Joao Morais escreveu: Caros, vamos combinar algumas coisas. Primeiro que SQL é sim offtopic, assim como quaisquer outras dúvidas de SO e tantas outras coisas que estão indiretamente relacionadas com Delphi. E deixar de usar SQL não tem nada a ver com pregador de botão. Quem aqui além de mim que faz aplicações sem componentes não-visuais que atire o segundo mouse. A propósito, é mais fácil ser um pregador de botão escrevendo SQL dentro do ambiente do que o contrário. E por fim, a lista tem uma cultura de abranger assuntos indiretamente relacionado com o ambiente, o que faz com que Delphi propriamente dito seja a minoria das mensagens. Infelizmente. Enfim, que tal todos deixarem de ser intransigentes com a classificação dos assuntos, bem como xaropes com quem está meramente manifestando uma opinião? Joao Morais __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RE: [delphi-br] Dúvida com SQL
Não vejo problemas em responder uma dúvida de SQL numa lista de Delphi. Basta sinalizar com OFF que tudo está ok. O que não tem nada a ver é essa implicância... Se não lhe agrada, não se manifeste oras! 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 sáb, 28/11/09, Matheus Nabao matheus_...@hotmail.com escreveu: De: Matheus Nabao matheus_...@hotmail.com Assunto: RE: [delphi-br] Dúvida com SQL Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Data: Sábado, 28 de Novembro de 2009, 10:26 Mas esse é o grupo DELPHI-BR, ele não está com dúvida relacionado ao Delphi, mas sim relacionado a BD. O problema dele é SCRIPT SQL, não delphi! Não seria mais fácil as pessoas irem ao Grupo SQL, BD que seja fazer perguntas sobre BD? Repito, o que isso tem a ver com Delphi? To: delphi-br@yahoogrupos.com.br From: dark...@yahoo.com.br Date: Fri, 27 Nov 2009 16:31:51 -0800 Subject: Re: [delphi-br] Dúvida com SQL Bom, Vc não utiliza SQL no Delphi para fazer consulta, insert e update. ;) DarkZad --- Em sex, 27/11/09, Leandro mutu...@yahoo.com.br escreveu: De: Leandro mutu...@yahoo.com.br Assunto: Re: [delphi-br] Dúvida com SQL Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 27 de Novembro de 2009, 22:14 ok matheus entao a proxima vez q vc vier com uma duvida q nao seja de delphi, que seja de banco de dados, ninguem ira te ajudar ok? ja que eh assim que prefere.. ps. tem pessoas que perdem a oportunidade de nao serem chatas 2009/11/27 Matheus Nabao matheus_nab@ hotmail.com O que é que isso tem a ver com Delphi? To: delphi...@yahoogrup os.com.br From: dark...@yahoo. com.br Date: Fri, 27 Nov 2009 11:35:26 -0300 Subject: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ _ _ _ _ _ _ Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows Live. http://www.windowsl ive.com.br/ ?ocid=WindowsLiv e09_MSN_Hotmail_ Tagline_out09 [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Leandro, MuTukA [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] _ Converse e compartilhe fotos ao mesmo tempo. Saiba como no novo Site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [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
Re: [delphi-br] Dúvida com SQL
Caros, vamos combinar algumas coisas. Primeiro que SQL é sim offtopic, assim como quaisquer outras dúvidas de SO e tantas outras coisas que estão indiretamente relacionadas com Delphi. E deixar de usar SQL não tem nada a ver com pregador de botão. Quem aqui além de mim que faz aplicações sem componentes não-visuais que atire o segundo mouse. A propósito, é mais fácil ser um pregador de botão escrevendo SQL dentro do ambiente do que o contrário. E por fim, a lista tem uma cultura de abranger assuntos indiretamente relacionado com o ambiente, o que faz com que Delphi propriamente dito seja a minoria das mensagens. Infelizmente. Enfim, que tal todos deixarem de ser intransigentes com a classificação dos assuntos, bem como xaropes com quem está meramente manifestando uma opinião? Joao Morais
RE: [delphi-br] Dúvida com SQL
Agora posso usar sua pergunta: O que isso tem a ver com Delphi? Abraço, 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 sáb, 28/11/09, Matheus Nabao matheus_...@hotmail.com escreveu: De: Matheus Nabao matheus_...@hotmail.com Assunto: RE: [delphi-br] Dúvida com SQL Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Data: Sábado, 28 de Novembro de 2009, 20:04 Olá Ricardo, Tudo Bem? Qual foi minha dúvida com SP? To: delphi-br@yahoogrupos.com.br From: ricardo_engs...@yahoo.com.br Date: Sat, 28 Nov 2009 13:47:23 -0800 Subject: Re: [delphi-br] Dúvida com SQL Quase caí da cadeira de rir com essa mensagem... Nada pessoal, Nabao. That's part of business. 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 sáb, 28/11/09, Leandro mutu...@yahoo.com.br escreveu: De: Leandro mutu...@yahoo.com.br Assunto: Re: [delphi-br] Dúvida com SQL Para: delphi-br@yahoogrupos.com.br Data: Sábado, 28 de Novembro de 2009, 19:44 E ai Nabao blz!? Comigo tudo na paz.. Vamos la, eu acho que qualquer coisa que esteja relacionada a delphi pode e deve ser discutida aqui e tanto que irei ajudar quando possivel. Percebi que em suas msgs passadas foi ate um pouco arrogante com algumas pessoas e muita das vezes sem ajudar nada e ainda por cima nervosinho, por isso, nao quero me aprofundar/ perder tempo nessa discussao. Engraçado que a menos de um mes vc respondeu perguntas relacionadas a Store Procedures e BDs.. Agora vamos la vou ajudar vc tbm alem do nosso amigo da duvida do SQL: Chegou pra voce o novo, inovado, inédito, sofisticado (redundante nada ne) filtro de email tabajaraaa, com ele voce pode criar filtros em 3 passos, por exemplo pode criar um filtro que faça com que todos os emails chatos e que te stressam que contenham off-topic ou duvida sql desaparecao num piscar de olhos, nao perca mais tempo crie ja o seu!! desculpa gente mas nao aguentei rs, quiz dar um ar de graça na msg rs.. 2009/11/28 Matheus Nabao matheus_nab@ hotmail.com Mas esse é o grupo DELPHI-BR, ele não está com dúvida relacionado ao Delphi, mas sim relacionado a BD. O problema dele é SCRIPT SQL, não delphi! Não seria mais fácil as pessoas irem ao Grupo SQL, BD que seja fazer perguntas sobre BD? Repito, o que isso tem a ver com Delphi? To: delphi...@yahoogrup os.com.br From: dark...@yahoo. com.br Date: Fri, 27 Nov 2009 16:31:51 -0800 Subject: Re: [delphi-br] Dúvida com SQL Bom, Vc não utiliza SQL no Delphi para fazer consulta, insert e update. ;) DarkZad --- Em sex, 27/11/09, Leandro mutu...@yahoo. com.br escreveu: De: Leandro mutu...@yahoo. com.br Assunto: Re: [delphi-br] Dúvida com SQL Para: delphi...@yahoogrup os.com.br Data: Sexta-feira, 27 de Novembro de 2009, 22:14 ok matheus entao a proxima vez q vc vier com uma duvida q nao seja de delphi, que seja de banco de dados, ninguem ira te ajudar ok? ja que eh assim que prefere.. ps. tem pessoas que perdem a oportunidade de nao serem chatas 2009/11/27 Matheus Nabao matheus_nab@ hotmail.com O que é que isso tem a ver com Delphi? To: delphi...@yahoogrup os.com.br From: dark...@yahoo. com.br Date: Fri, 27 Nov 2009 11:35:26 -0300 Subject: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho
Res: [delphi-br] Dúvida com SQL
Na verdade, no conhecimento de frete vc terá 4 campos: remetente, destinatario, consigntario e redespacho. Todos vindos da tabela de cliente, porque dependendo da situação, o pagador será um ou outro, ou em alguns casos raros, 2 deles poderão ser responsáveis pelo pagamento.Exemplo: remetente arca com x% e destinatario z% do valor do frete. O impacto seria para selecionar esses campos. Voce teria que fazer Select rem.nome NomeRemetente, des.nome NomeDestinatario, con.nome NomeConsignatario, red.nome NomeRedespacho From tabelaconhecimento tab Left outer join tabelacliente rem on (rem.codigo = tab.remetente) Left outer join tabelacliente des on (des.codigo = tab.destinatario) Left outer join tabelacliente con on (con.codigo = tab.consignatario) Left outer join tabelacliente red on (red.codigo = tab.redespacho) usando o left outer join porque um ou mais campos terão valor nulo. Graça No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? De: Darkzad dark...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 27 de Novembro de 2009 12:35:26 Assunto: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad _ _ _ _ __ 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] Dúvida com SQL
Rapaz, que intolerância é essa? Você fez a mesma pergunta quando eu lancei uma dúvida de string de SQL. Estamos aqui para ajudar. Você ajuda e, um dia, quando necessitar, com certeza também será ajudado. E quem nunca usou comandos de bancos de dados integrados ao Delphi que atire a primeira pedra. Graça - Mensagem original De: Matheus Nabao matheus_...@hotmail.com Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 27 de Novembro de 2009 11:38:56 Assunto: RE: [delphi-br] Dúvida com SQL O que é que isso tem a ver com Delphi? To: delphi-br@yahoogrupos.com.br From: dark...@yahoo.com.br Date: Fri, 27 Nov 2009 11:35:26 -0300 Subject: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ _ Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [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
Re: Res: [delphi-br] Dúvida com SQL
Obrigado Maria, vai ser muito util sua ajuda. Valeu Maria das Graças . escreveu: Na verdade, no conhecimento de frete vc terá 4 campos: remetente, destinatario, consigntario e redespacho. Todos vindos da tabela de cliente, porque dependendo da situação, o pagador será um ou outro, ou em alguns casos raros, 2 deles poderão ser responsáveis pelo pagamento.Exemplo: remetente arca com x% e destinatario z% do valor do frete. O impacto seria para selecionar esses campos. Voce teria que fazer Select rem.nome NomeRemetente, des.nome NomeDestinatario, con.nome NomeConsignatario, red.nome NomeRedespacho From tabelaconhecimento tab Left outer join tabelacliente rem on (rem.codigo = tab.remetente) Left outer join tabelacliente des on (des.codigo = tab.destinatario) Left outer join tabelacliente con on (con.codigo = tab.consignatario) Left outer join tabelacliente red on (red.codigo = tab.redespacho) usando o left outer join porque um ou mais campos terão valor nulo. Graça No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? De: Darkzad dark...@yahoo.com.br mailto:darkzad%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 27 de Novembro de 2009 12:35:26 Assunto: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad _ _ _ _ __ 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 http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Dúvida com SQL
Bom se voce acha que isto não tem nada haver com Delphi então é porque voce está na área errada ou não é desenvolvedor de software e sim um mero pregrador de botão em form. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ - Mensagem original De: Matheus Nabao matheus_...@hotmail.com Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 27 de Novembro de 2009 11:38:56 Assunto: RE: [delphi-br] Dúvida com SQL O que é que isso tem a ver com Delphi? To: delphi-br@yahoogrupos.com.br From: dark...@yahoo.com.br Date: Fri, 27 Nov 2009 11:35:26 -0300 Subject: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ __ Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [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]
[delphi-br] Dúvida com SQL
Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Dúvida - Para o Bruno Lichot
Caro Bruno, O Delphi 2010 continua com o limite de instalações ? No Delphi PHP o limite era de 5 instalações, caso quisesse fazer uma sexta instalação tinha que entrar no site da Codegear/Embarcadero para solicitar o aumento de número de instalações. []´s João Carlos
RE: [delphi-br] Dúvida - Para o Bruno Lichot
Todos os produtos licenciados tem limite de instalações, mas não é um limite que se consuma nem em um ano, pensando que vc formataria sua maquina umas 5 vezes por ano. Chegando no limite vc pode fazer um bump através do próprio site para usuários registrados ou solicitar o bump através do suporte. Agora se vc instalar um licença varias vezes para usuários diferentes, alem de ser caracterizado pirataria devido ao fato de mais de um usuário utilizar um única licença, o seu numero de instalações também será consumido mais rápido. Abs BL From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of João Carlos Sent: sexta-feira, 27 de novembro de 2009 10:11 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Dúvida - Para o Bruno Lichot Caro Bruno, O Delphi 2010 continua com o limite de instalações ? No Delphi PHP o limite era de 5 instalações, caso quisesse fazer uma sexta instalação tinha que entrar no site da Codegear/Embarcadero para solicitar o aumento de número de instalações. []´s João Carlos Click here https://www.mailcontroller.altohiway.com/sr/OgRme9Pb!FDTndxI!oX7UnF1h4o+NsfXwzTO!je67PlrFGVO+EtKGYfgbI20tEGaSw9fV5QVhWApdY6WjzZSeg== 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: [delphi-br] Dúvida com SQL
vc tem q fazer a verificacao de relacao: 1 - N, 1 - 1 ou N - N, no primeiro caso nao precisa criar uma terceira tabela, no segundo nao precisa nem da segunda tabela soh da tabela cliente, no terceiro sim precisa de uma tabela com chaves estrageiras das duas (cliente e frete) se nao entendeu oq eu disse entao da uma pesquisada sobre o assunto para ficar a par.. 2009/11/27 Darkzad dark...@yahoo.com.br Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- Leandro, MuTukA [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
Re: [delphi-br] Dúvida com SQL
ok matheus entao a proxima vez q vc vier com uma duvida q nao seja de delphi, que seja de banco de dados, ninguem ira te ajudar ok? ja que eh assim que prefere.. ps. tem pessoas que perdem a oportunidade de nao serem chatas 2009/11/27 Matheus Nabao matheus_...@hotmail.com O que é que isso tem a ver com Delphi? To: delphi-br@yahoogrupos.com.br From: dark...@yahoo.com.br Date: Fri, 27 Nov 2009 11:35:26 -0300 Subject: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ _ Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com SQL
Bom, Vc não utiliza SQL no Delphi para fazer consulta, insert e update. ;) DarkZad --- Em sex, 27/11/09, Leandro mutu...@yahoo.com.br escreveu: De: Leandro mutu...@yahoo.com.br Assunto: Re: [delphi-br] Dúvida com SQL Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 27 de Novembro de 2009, 22:14 ok matheus entao a proxima vez q vc vier com uma duvida q nao seja de delphi, que seja de banco de dados, ninguem ira te ajudar ok? ja que eh assim que prefere.. ps. tem pessoas que perdem a oportunidade de nao serem chatas 2009/11/27 Matheus Nabao matheus_nab@ hotmail.com O que é que isso tem a ver com Delphi? To: delphi...@yahoogrup os.com.br From: dark...@yahoo. com.br Date: Fri, 27 Nov 2009 11:35:26 -0300 Subject: [delphi-br] Dúvida com SQL Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ _ _ _ _ _ _ Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows Live. http://www.windowsl ive.com.br/ ?ocid=WindowsLiv e09_MSN_Hotmail_ Tagline_out09 [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Leandro, MuTukA [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] Dúvida com SQL
Faça um join entre as duas tabelas pela chave primaria (PK) e selecione os campos que você quer na sua query ! Se você cometer um erro de relacionamento entre as tabelas pode ocorrer de vc fazer um acesso FULL em uma delas o que vai ocasionar um lentidão ! Em alguns programas se você rodar essa query errada, mesmo ela fazendo full... o programa traz geralmente as primeiras linhas e dá a impressão que está tudo certo... cuidado ! Exemplo : Tabela Cliente CodCliente Nome Tabela Conhec_Embarque CodCliente ( este campo deve existir aqui sendo parte da sua PK ) ok Remetente Destinatário Pagador // Traz Dados de um Cliente em especifico ! Select a.CodCLiente, a.Nome, b.Remetente, b.Destinatario, b.Pagador From Cliente a, Conhec_Embarque b Where a.CodCliente = 1 And b.CodCliente = a.CodCliente ; Falow -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leandro Enviada em: sexta-feira, 27 de novembro de 2009 13:36 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dúvida com SQL vc tem q fazer a verificacao de relacao: 1 - N, 1 - 1 ou N - N, no primeiro caso nao precisa criar uma terceira tabela, no segundo nao precisa nem da segunda tabela soh da tabela cliente, no terceiro sim precisa de uma tabela com chaves estrageiras das duas (cliente e frete) se nao entendeu oq eu disse entao da uma pesquisada sobre o assunto para ficar a par.. 2009/11/27 Darkzad dark...@yahoo.com.br Olá pessoal, Estou desenvolvendo um aplicatico para Emitir Conhecimento de Frete. Tenho a Tabela Cliente e a Tabela cabeçalho do Conhecimento que se relacionam. Dúvida: No Cabeçalho do Conhecimento tenho os campos: Remetente Destinatário Pagador Pergunta: Esses três campos PODE ser todos pegos da tabela CLIENTE ou eu tenho que criar uma tabela para cada um deles? Qual impacato eu teria se pegasse os três tabela CLIENTE? É só isso pessoal []'s DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Dúvida TEF
Como funciona esse desconto embutido? O item é vendido por um preço menor? Se for assim, é ilegal, pois o valor do produto deve ser o mesmo independente da forma da pagamento. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Dúvida TEF
O desconto pode ser no valor total da nota, e não será ilegal ! Em 110% das empresas de e-comerce fazem: Pagamento por boleto: Desconto 10% Cartão em 12x sem juros (as vezes com juros) Outros... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida TEF
Estava lendo o roteiro do TEF (o programa Aplicativo Fiscal deve ter as rotinas de TEF implantadas para a homologação) e surgiu um pequena dúvida... Primeiro vou explicar como realizo o fechamento de um cupom fiscal em minha aplicação: Guardo as formas de pagamento escolhidas pelo consumidor em um vetor (pode acontecer do cara querer pagar parte em Dinheiro e parte em cartão), até que o total pago pelo cliente seja menor que o total da venda. Quando se iguala ao total da venda, realizo o fechamento do cupom: Inicio o fechamento do cupom Efetuo cada forma de pagamento escolhida pelo usuário no ECF Termino o fechamento do cupom fiscal imprimindo uma mensagem comercial. Lendo o roteiro do TEF, vi que a rotina de Iniciar Fechamento do cupom deve ser chamada no momento que o cliente escolher a forma com TEF... dessa maneira não posso escolher outras formas de pagamento (que possuem um desconto embutido nelas), uma vez que o desconto é informado na rotina IniciaFechamentoCupom... Como vocês tratam essa questão? Como o homem imagina em seu coração, assim ele é Braytiner [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Dúvida Delphi 2010
Fala Marcelo Blz? Então já tinha feito isso que falou, mais o problema persiste pois no banco meus campos estão como float... Mais mesmo assim valeu!! Abraços João Denois De: stefaniak stefan...@bol.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Qui, Outubro 22, 2009 6:32:52 PM Assunto: Re: [delphi-br] Dúvida Delphi 2010 para esse problema de single x float, fiz a seguinte gambiarra, view as text, no datamodule, troquei todos os float para single, funcionou sds marcelo luiz stefaniak Em 22/10/2009 15:37, joaodenois escreveu: Boa tarde pessoal, Seguinte... Tenho meu projeto rodando no D2009, uso banco FireBird e dbExpress com um driver de terceiro, Até ai tudo bem, funciona legal, mais resolvi testar o driver do FireBird que vem com o D2010 mais ocorre o seguinte problema. Tenho no meu banco variáveis do tipo Float quando executo a aplicação acusa um erro de incompatibilidade de tipos Float ; Single, dei uma olhada no ClientDataSet e no SqlDataSet e pude notar que os campos estão com o tipo Single resolvi popular os campos novamente e mesmo assim eles insistem em vir como Single... Alguma explicação para isso? Pois os campos são Float. Tentei criar os campos na mão mais o erro persiste. Alguem já passou por isso? Abraços. João Ricardo 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] Dúvida Delphi 2010
Boa tarde pessoal, Seguinte... Tenho meu projeto rodando no D2009, uso banco FireBird e dbExpress com um driver de terceiro, Até ai tudo bem, funciona legal, mais resolvi testar o driver do FireBird que vem com o D2010 mais ocorre o seguinte problema. Tenho no meu banco variáveis do tipo Float quando executo a aplicação acusa um erro de incompatibilidade de tipos Float ; Single, dei uma olhada no ClientDataSet e no SqlDataSet e pude notar que os campos estão com o tipo Single resolvi popular os campos novamente e mesmo assim eles insistem em vir como Single Alguma explicação para isso? Pois os campos são Float. Tentei criar os campos na mão mais o erro persiste. Alguem já passou por isso? Abraços. João Ricardo 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] Dúvida Delphi 2010
Boa tarde pessoal, Seguinte... Tenho meu projeto rodando no D2009, uso banco FireBird e dbExpress com um driver de terceiro, Até ai tudo bem, funciona legal, mais resolvi testar o driver do FireBird que vem com o D2010 mais ocorre o seguinte problema. Tenho no meu banco variáveis do tipo Float quando executo a aplicação acusa um erro de incompatibilidade de tipos Float ; Single, dei uma olhada no ClientDataSet e no SqlDataSet e pude notar que os campos estão com o tipo Single resolvi popular os campos novamente e mesmo assim eles insistem em vir como Single... Alguma explicação para isso? Pois os campos são Float. Tentei criar os campos na mão mais o erro persiste. Alguem já passou por isso? Abraços. João Ricardo
Re: [delphi-br] Dúvida Delphi 2010
para esse problema de single x float, fiz a seguinte gambiarra, view as text, no datamodule, troquei todos os float para single, funcionou sds marcelo luiz stefaniak Em 22/10/2009 15:37, joaodenois escreveu: Boa tarde pessoal, Seguinte... Tenho meu projeto rodando no D2009, uso banco FireBird e dbExpress com um driver de terceiro, Até ai tudo bem, funciona legal, mais resolvi testar o driver do FireBird que vem com o D2010 mais ocorre o seguinte problema. Tenho no meu banco variáveis do tipo Float quando executo a aplicação acusa um erro de incompatibilidade de tipos Float ; Single, dei uma olhada no ClientDataSet e no SqlDataSet e pude notar que os campos estão com o tipo Single resolvi popular os campos novamente e mesmo assim eles insistem em vir como Single... Alguma explicação para isso? Pois os campos são Float. Tentei criar os campos na mão mais o erro persiste. Alguem já passou por isso? Abraços. João Ricardo
[delphi-br] Dúvida com MEMO
Meus amigos, Estou terminando um sistema PDV em Delphi e gostaria de tirar a seguinte dúvida. A comanda eu uso um memo. A medida que os produtos sao inseridos o memo utiliza lines.add() Funciona tudo perfeitamente. So que, as linhas são adicionadas, mas podem ser alteradas. existe algum comando que a eu adicionar as linhas no memo, o usuario na possa alterar-las ? para nao prejudicar na impressao do cupom? grato pela resposta! Hugo _ Novo Internet Explorer 8. Baixe agora, é grátis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com MEMO
Verifique a propriedade readonly.. Jackson Gomes - ToolsComps escreveu: So que, as linhas são adicionadas, mas podem ser alteradas. existe algum comando que a eu adicionar as linhas no memo, o usuario na possa alterar-las ? para nao prejudicar na impressao do cupom? Enabled = False pode funcionar. Ou vc pode rastrear os eventso OnKeyPress, OnKeydown, etc Jackson Gomes [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com MEMO
Ops !! Eu havia entendido que ele 1º adicionaria os dados e depois queria evitar a sua edição, algo como: memo.readonly:=false; //-- Incluir dados; //-- Incluir dados; //-- Incluir dados; //-- Incluir dados; memo.readonly:=true; Moacir Jackson Gomes - ToolsComps escreveu: Verifique a propriedade readonly.. Aí ele não vai poder adicionar texto via código Jackson Gomes - ToolsComps escreveu: So que, as linhas são adicionadas, mas podem ser alteradas. existe algum comando que a eu adicionar as linhas no memo, o usuario na possa alterar-las ? para nao prejudicar na impressao do cupom? Enabled = False pode funcionar. Ou vc pode rastrear os eventso OnKeyPress, OnKeydown, etc Jackson Gomes [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida WebService Proxy
cont...@micromassi.com.br escreveu: Ola pessoal.. Preciso acessar um webservice através de uma rede proxy, no componente THTTPRIO informei o usuário e senha, conforme abaixo: RIO.HTTPWebNode.UserName :=Form1.Edit2.Text; RIO.HTTPWebNode.Password :=FORM1.Edit1.Text; RIO.HTTPWebNode.Proxy :=Form1.Edit3.Text; RIO.HTTPWebNode.UseUTF8InHeader :=True; Mas não funciona, apresenta a msg: Authentication Required - the ISA Server requires authorization to fulfill the request. O proxy é o ISA Server 2000 Micro$oft. Agradeço a ajuda... Evandro
[delphi-br] Dúvida WebService Proxy
Ola pessoal.. Preciso acessar um webservice através de uma rede proxy, no componente THTTPRIO informei o usuário e senha, conforme abaixo: RIO.HTTPWebNode.UserName :=Form1.Edit2.Text; RIO.HTTPWebNode.Password :=FORM1.Edit1.Text; RIO.HTTPWebNode.Proxy :=Form1.Edit3.Text; RIO.HTTPWebNode.UseUTF8InHeader :=True; Mas não funciona, apresenta a msg: Authentication Required - the ISA Server requires authorization to fulfill the request. O proxy é o ISA Server 2000 Micro$oft. Agradeço a ajuda... Evandro
[delphi-br] Dúvida sobre campo DateTime
Pedro, um campo DateTime armazena a data na parte inteira e a hora na parte decima, portanto, faça apenas uma linha para armazenar a Data e a Hora, algo mais ou menos assim: QRCadastro.ParamByName('DataInicio').AsDate:= StrToDate(Edit5.Text) + StrToTime(Edit6.Text); QRCadastro.ParamByName('DataFim').AsDate:= StrToDate(Edit7.Text) + StrToTime(Edit8.Text); Porém, te aconselho a usar o componente TJvDateEdit da JVCL para edição de data e o TDateTimePicker do próprio Delphi para a hora. Eli --- Em delphi-br@yahoogrupos.com.br, Pedro Neves neve...@... escreveu Estou com a seguinte dificuldade: Estou tentando gravar a data e a hora no banco usando: Begin QRCadastro.Close; QRCadastro.Sql.Clear; QRCadastro.Sql.Add('Insert Into Tabela(Matricula, DataInicio, DataFim)'); QRCadastro.Sql.Add('Values(:Matricula, :DataInicio, :DataFim)'); QRCadastro.ParamByName('Matricula').AsString:= Edit2.Text; QRCadastro.ParamByName('DataInicio').AsDate:= StrToDate(Edit5.Text); QRCadastro.ParamByName('DataFim').AsDate:= StrToDate(Edit7.Text); QRCadastro.ParamByName('DataInicio').AsTime:= StrToTime(Edit6.Text); QRCadastro.ParamByName('DataFim').AsTime:= StrToTime(Edit8.Text); QRCadastro.ExecSQL; End O campo no banco de dados é do tipo datetime e quando gravo a data dá certo mas se comentar (//) a data e gravar a hora dá erro no banco. Alguém sabe onde está o erro. grato Pedro. 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] Dúvida sobre campo DateTime
Boa tarde! O Parâmetro tem que ser AsDateTime, caso contrário ele só vai considerar a parte inteira. Boa sorte. Ulisses - Original Message - From: eliflaviob To: delphi-br@yahoogrupos.com.br Sent: Friday, August 21, 2009 9:00 AM Subject: [delphi-br] Dúvida sobre campo DateTime Pedro, um campo DateTime armazena a data na parte inteira e a hora na parte decima, portanto, faça apenas uma linha para armazenar a Data e a Hora, algo mais ou menos assim: QRCadastro.ParamByName('DataInicio').AsDate:= StrToDate(Edit5.Text) + StrToTime(Edit6.Text); QRCadastro.ParamByName('DataFim').AsDate:= StrToDate(Edit7.Text) + StrToTime(Edit8.Text); Porém, te aconselho a usar o componente TJvDateEdit da JVCL para edição de data e o TDateTimePicker do próprio Delphi para a hora. Eli --- Em delphi-br@yahoogrupos.com.br, Pedro Neves neve...@... escreveu Estou com a seguinte dificuldade: Estou tentando gravar a data e a hora no banco usando: Begin QRCadastro.Close; QRCadastro.Sql.Clear; QRCadastro.Sql.Add('Insert Into Tabela(Matricula, DataInicio, DataFim)'); QRCadastro.Sql.Add('Values(:Matricula, :DataInicio, :DataFim)'); QRCadastro.ParamByName('Matricula').AsString:= Edit2.Text; QRCadastro.ParamByName('DataInicio').AsDate:= StrToDate(Edit5.Text); QRCadastro.ParamByName('DataFim').AsDate:= StrToDate(Edit7.Text); QRCadastro.ParamByName('DataInicio').AsTime:= StrToTime(Edit6.Text); QRCadastro.ParamByName('DataFim').AsTime:= StrToTime(Edit8.Text); QRCadastro.ExecSQL; End O campo no banco de dados é do tipo datetime e quando gravo a data dá certo mas se comentar (//) a data e gravar a hora dá erro no banco. Alguém sabe onde está o erro. grato Pedro. __ 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]
Res: [delphi-br] Dúvida sobre campo DateTime
Deu certo. Obrigado pela dica. Pedro De: Ulisses usl...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 21 de Agosto de 2009 15:38:54 Assunto: Re: [delphi-br] Dúvida sobre campo DateTime Boa tarde! O Parâmetro tem que ser AsDateTime, caso contrário ele só vai considerar a parte inteira. Boa sorte. Ulisses - Original Message - From: eliflaviob To: delphi...@yahoogrup os.com.br Sent: Friday, August 21, 2009 9:00 AM Subject: [delphi-br] Dúvida sobre campo DateTime Pedro, um campo DateTime armazena a data na parte inteira e a hora na parte decima, portanto, faça apenas uma linha para armazenar a Data e a Hora, algo mais ou menos assim: QRCadastro.ParamByN ame('DataInicio' ).AsDate: = StrToDate(Edit5. Text) + StrToTime(Edit6. Text); QRCadastro.ParamByN ame('DataFim' ).AsDate: = StrToDate(Edit7. Text) + StrToTime(Edit8. Text); Porém, te aconselho a usar o componente TJvDateEdit da JVCL para edição de data e o TDateTimePicker do próprio Delphi para a hora. Eli --- Em delphi...@yahoogrup os.com.br, Pedro Neves neve...@... escreveu Estou com a seguinte dificuldade: Estou tentando gravar a data e a hora no banco usando: Begin QRCadastro.Close; QRCadastro.Sql. Clear; QRCadastro.Sql. Add('Insert Into Tabela(Matricula, DataInicio, DataFim)'); QRCadastro.Sql. Add('Values( :Matricula, :DataInicio, :DataFim)'); QRCadastro.ParamByN ame('Matricula' ).AsString: = Edit2.Text; QRCadastro.ParamByN ame('DataInicio' ).AsDate: = StrToDate(Edit5. Text); QRCadastro.ParamByN ame('DataFim' ).AsDate: = StrToDate(Edit7. Text); QRCadastro.ParamByN ame('DataInicio' ).AsTime: = StrToTime(Edit6. Text); QRCadastro.ParamByN ame('DataFim' ).AsTime: = StrToTime(Edit8. Text); QRCadastro.ExecSQL; End O campo no banco de dados é do tipo datetime e quando gravo a data dá certo mas se comentar (//) a data e gravar a hora dá erro no banco. Alguém sabe onde está o erro. grato Pedro. _ _ _ _ _ _ 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]
[delphi-br] Dúvida com Memo
Ola amigos, Estou desenvolvendo uma aplicação de PDV ja na reta final. Estou usando um Memo para simular a impressao de um cupom fiscal a medida que os produtos sao inseridos na venda. A adição é realizada normalmente. . porem quando os produtos chegam ao fim do memo, os que adicionados posteriormente nao ficam visualizados no mesmo. Como eu faria para que houvesse uma barra de rolagem no memo para que os ultimos produtos sejam visualizados? Grato! Hugo _ Novo Internet Explorer 8. Baixe agora, é grátis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida no relatório
Bom dia amigos, sou iniciante em delphi e estou desenvolvendo uma aplicação. O problema é o seguinte: Tenho uma tela onde possui todos os clientes e seus respectivos dados. Fiz uma função de pesquisa de cliente, informando o nome para a busca, e a mesma funciona normalmente. no form da pesquisa botei um botao imprimir no qual abre um relatorio com o cliente localizado. Minha duvida é a seguinte: Como eu faço para linkar o relatorio ao cliente selecionado, visto que a query de pesquisa pode encontrar mais de uma pessoa? Eu linko o relatorio na query, mas nao funciona. Pensei em armazenar o codigo do cliente em uma variavel para fazer uma outra query no relatorio. mas como eu faria isso ? Grato! Hugo _ Novo Internet Explorer 8. Baixe agora, é grátis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida com o DBComboBox.
Olá...Galera. Estou com uma dúvida aqui em casa,tenho uma aplicação e ela possui um CheckBox e um DBComboBox ,gostaria de quando marcado o CheckBox apareçe-se automaticamente todos os meses do ano no DBComboBox (Isso em RunTime). Tentei esse Código abaixo. No evento OnClick do CheckBox procedure TFormAgendamento.CheckBoxMesClick(Sender: TObject); begin DBComboBoxValor.Items.Add('Janeiro'); DBComboBoxValor.Items.Add('Fevereiro'); . . . DBComboBoxValor.Items.Add('Dezembro'); end; O problema é que Até aparece no DBComboBox os meses,mas quando clico em algum mês Simplesmente não é selecionado. Obrigado pela atenção Jairo.
[delphi-br] Dúvida com Zeos
Pessoal, estou testando o Zeos LIb 6.5.5 , com Delphi 7 + Firebird 2.1 Tive duas dúvidas. 1) em alguns campos do tipo NUMERIC (9,2) , no banco de dados 5.55 mostra no componente, DBEDIT 6,00 2) não conseguir rodar o seguinte select... select sum( cast( quantidade * valor_unitario as numeric( 18, 2 ) ) ) as Total from ITENS_VENDAS WHERE ID_INTERNO = '5578' Coloquei o mesmo select, num ClientDataSet + SQLQuery e roda beleza. Isso é algo da natureza do ZEOS ? -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com Zeos
HI! Só para aumentar suas dúvidas Estou enfrentando problemas com Zeos desde a versao 6.4.4 Voltei para a 6.2.2.rc Ex: a) parse de SQL, nome de tabela com delimitador [ ] não eceita edição fic a read only como se fosse uma view... b) campos identity vez que outra nao retornam novo valor à aplicacao... c) lentidão ao abrir o dataset Bai! º.·´¯`·. º.·´¯`·. º.·´¯`·. Omar L. M. Rosa º.·´¯`·. º.·´¯`·. º.·´¯`·. o...@conesul.inf.br - Original Message - From: Leonardo Quinino To: delphi-br@yahoogrupos.com.br ; delphitodel...@yahoogrupos.com.br ; delphi_soprogramado...@yahoogrupos.com.br Sent: Tuesday, June 16, 2009 9:47 AM Subject: [delphi-br] Dúvida com Zeos Pessoal, estou testando o Zeos LIb 6.5.5 , com Delphi 7 + Firebird 2.1 Tive duas dúvidas. 1) em alguns campos do tipo NUMERIC (9,2) , no banco de dados 5.55 mostra no componente, DBEDIT 6,00 2) não conseguir rodar o seguinte select... select sum( cast( quantidade * valor_unitario as numeric( 18, 2 ) ) ) as Total from ITENS_VENDAS WHERE ID_INTERNO = '5578' Coloquei o mesmo select, num ClientDataSet + SQLQuery e roda beleza. Isso é algo da natureza do ZEOS ? -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com Zeos
Leonardo, Qual o erro reportado quando vc roda este select no ZEOS ?? Moacir Leonardo Quinino escreveu: Pessoal, estou testando o Zeos LIb 6.5.5 , com Delphi 7 + Firebird 2.1 Tive duas dúvidas. 1) em alguns campos do tipo NUMERIC (9,2) , no banco de dados 5.55 mostra no componente, DBEDIT 6,00 2) não conseguir rodar o seguinte select... select sum( cast( quantidade * valor_unitario as numeric( 18, 2 ) ) ) as Total from ITENS_VENDAS WHERE ID_INTERNO = '5578' Coloquei o mesmo select, num ClientDataSet + SQLQuery e roda beleza. Isso é algo da natureza do ZEOS ?
Re: [delphi-br] Dúvida com Zeos
Olá pessoal, oque vou falar não vai resolver o problema de vocês com Zeos, mais é uma excelente dica.. Eu usei zeos durante anos, realmente é fantástico, mas infelizmente é um projeto que devido a vários fatores tem suas limitações em relação a desenvolvimento e suporte. eu acredito que quem tem um software profissional e em produção não pode ficar refém desse tipo de problema. então para quem precisa de tranquilidade e um suporte à contento eu recomendo o Unidac http://www.devart.com/unidac/ deem uma olhada, baixem o trial que vale a pena. att, Eduardo. 2009/6/16 omar l m rosa o...@conesul.inf.br HI! Só para aumentar suas dúvidas Estou enfrentando problemas com Zeos desde a versao 6.4.4 Voltei para a 6.2.2.rc Ex: a) parse de SQL, nome de tabela com delimitador [ ] não eceita edição fic a read only como se fosse uma view... b) campos identity vez que outra nao retornam novo valor à aplicacao... c) lentidão ao abrir o dataset Bai! º.·´¯`·. º.·´¯`·. º.·´¯`·. Omar L. M. Rosa º.·´¯`·. º.·´¯`·. º.·´¯`·. o...@conesul.inf.br omar%40conesul.inf.br - Original Message - From: Leonardo Quinino To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br ; delphitodel...@yahoogrupos.com.br DelphiToDelphi%40yahoogrupos.com.br ; delphi_soprogramado...@yahoogrupos.com.brDELPHI_SOPROGRAMADORES%40yahoogrupos.com.br Sent: Tuesday, June 16, 2009 9:47 AM Subject: [delphi-br] Dúvida com Zeos Pessoal, estou testando o Zeos LIb 6.5.5 , com Delphi 7 + Firebird 2.1 Tive duas dúvidas. 1) em alguns campos do tipo NUMERIC (9,2) , no banco de dados 5.55 mostra no componente, DBEDIT 6,00 2) não conseguir rodar o seguinte select... select sum( cast( quantidade * valor_unitario as numeric( 18, 2 ) ) ) as Total from ITENS_VENDAS WHERE ID_INTERNO = '5578' Coloquei o mesmo select, num ClientDataSet + SQLQuery e roda beleza. Isso é algo da natureza do ZEOS ? -- Leonardo Quinino [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) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida em formatação para insert com sql D2009
Cenário: D2009 + DataSnap + Firebird + Drive do Thiago Borges. Tenho que gravar em uma tabela filho e em uma neta, mas não dá para usar master/detail, pois essa gravação é condicional; portanto estou utilizado o evento AfterUpdateRecord do provider da tabela Pai, onde testo a condição pelo DeltaDS. Até aí tudo bem. O problema ocorre porque tenho que gravar um valor fracionario (tipo 0.50 centavos) na tabela neta, e já usei todo tipo de formatação na instrução sql e não consigo gravar o valor com as casas decimais (se usar uma mascara que arredonda aí consigo gravar). Segue a instrução sql: // grava da tabela neta. Ssql:='insert into COMISSOES_CONFIG_DETALHE(id_comissoes_config_detalhe, ' + 'id_comissoes_config,data,comissao_supervisor_tipo,' + 'comissao_supervisor_valor, comissao_vendedor_tipo,' + 'comissao_vendedor_valor,id_usuario, datahoradigitacao)' + ' values (gen_id(gen_comissoes_config_detalhe_id,1) ' + ', ' + IntToStr(cont) + ', ' + quotedstr(FormatDateTime('mm/dd/', DeltaDS.FieldByName('DATA').AsDateTime)) + ', ' + DeltaDS.FieldByName('COMISSAO_SUPERVISOR_TIPO').AsString + ', ' + quotedstr(FormatFloat('#.00', DeltaDS.FieldByName('COMISSAO_SUPERVISOR_VALOR').AsCurrency)) + ', ' + DeltaDS.FieldByName('COMISSAO_VENDEDOR_TIPO').AsString + ', ' + quotedstr(FormatFloat('#.00', DeltaDS.FieldByName('COMISSAO_VENDEDOR_VALOR').AsCurrency)) + ', ' + DeltaDS.FieldByName('ID_USUARIO').AsString + ', current_timestamp)'; sqlAux.Close; sqlAux.CommandText:=Ssql; sqlAux.ExecSQL(True); O erro está na linha que tem o QuotedStr. Já pesquisei nesta lista e em outras, e acho que já usei todas as opções de máscaras, mas nenhum funcionou. Se alguem puder dar alguma dica, antecipadamente deixo meus agradecimentos. waldir silva. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] !!!Dúvida tabela!!!
Bom dia pessoal, tentarei ser mais claro. Estou fazendo um pgm q lê todas as tabelas do banco, suas estruturas, indices e etc, em paralelo, quero utilizar essas informações, para ler seus conteúdos, por isso crio o 'FieldByName' como uma string, pois vou lendo a estrutura da tabela e alimentando uma stringlist, e depois vou criando as linhas para ler os dados, como por exemplo: for x:=0 to slColumnName.Count-1 do begin sTipoCol := VerificaTipo( slColumnType.Strings[x] ); sCampo := 'FieldByName('''+slColumnName.Strings[x]+''').As'+sTipoCol; if (sTipoCol = 'Float') then sLinha2:='FormatFloat( ''0,000'', '+sCampo+' )'; if (sTipoCol = 'Integer') then sLinha2:='FormatFloat( ''0'', '+sCampo+' )'; if (sTipoCol = 'DateTime') then sLinha2:='FormatFloat( ''dd/mm/ hh:mm:ss'', '+sCampo+' )'; sLinha := sLinha + sLinha2+';'; end; Só q para ler o campo sLinha como um comando efetivamente da tabela, tentei usar o '@', e não obtive sucesso, por isso perguntei se alguém da lista saberia como fazer isso. Fui claro?? :oD Grato. Em 05/06/2009 17:06, Luiz Carlos Pereira lt; lcrp_gru...@yahoo.com.br gt; escreveu: Poderia ser mais clarosinceramente, não entendi --- Em sex, 5/6/09, Fernando de Laurentiis lt;laurent...@uol.com.brgt; escreveu: De: Fernando de Laurentiis lt;laurent...@uol.com.brgt; Assunto: [delphi-br] !!!Dúvida tabela!!! Para: delphi-br@yahoogrupos.com.br lt;delphi-br@yahoogrupos.com.brgt; Data: Sexta-feira, 5 de Junho de 2009, 16:57 Pessoal, boa tarde. Imaginemos uma situação assim: sCampo: string; sCampo:='Query1. FieldByName( ''CAMPOX' ').AsString' ; Como faço pra, qdo utilizar o sCampo, vier o conteudo do campo CAMPOX da tabela?? []'sss 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] !!!Dúvida tabela!!!
Tem aspas demais ai !!! Deixe assim: sCampo:=Query1.FieldByName('CAMPOX').AsString; marcelo escreveu: Para voce utilizar a sCampo e vir o valor que você quer , precisar se assegurar qua a query foi aberta e também em qual evento você atribui o valor da query a variável sCampo. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fernando de Laurentiis Enviada em: sexta-feira, 5 de junho de 2009 16:58 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] !!!Dúvida tabela!!! Prioridade: Alta Pessoal, boa tarde. Imaginemos uma situação assim: sCampo: string; sCampo:='Query1.FieldByName(''CAMPOX'').AsString'; Como faço pra, qdo utilizar o sCampo, vier o conteudo do campo CAMPOX da tabela?? []'sss No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.339 / Virus Database: 270.12.53/2156 - Release Date: 06/05/09 06:24:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] !!!Dúvida tabela!!!
Pessoal, boa tarde. Imaginemos uma situação assim: sCampo: string; sCampo:='Query1.FieldByName(''CAMPOX'').AsString'; Como faço pra, qdo utilizar o sCampo, vier o conteudo do campo CAMPOX da tabela?? []'sss
Re: [delphi-br] !!!Dúvida tabela!!!
Poderia ser mais clarosinceramente, não entendi --- Em sex, 5/6/09, Fernando de Laurentiis laurent...@uol.com.br escreveu: De: Fernando de Laurentiis laurent...@uol.com.br Assunto: [delphi-br] !!!Dúvida tabela!!! Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Data: Sexta-feira, 5 de Junho de 2009, 16:57 Pessoal, boa tarde. Imaginemos uma situação assim: sCampo: string; sCampo:='Query1. FieldByName( ''CAMPOX' ').AsString' ; Como faço pra, qdo utilizar o sCampo, vier o conteudo do campo CAMPOX da tabela?? []'sss 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] !!!Dúvida tabela!!!
Isso não faz sentido algum !!! Porque vc não usa direto: sCampo:= Query1.FieldByName(''CAMPOX'').AsString; Fernando de Laurentiis escreveu: Pessoal, boa tarde. Imaginemos uma situação assim: sCampo: string; sCampo:='Query1.FieldByName(''CAMPOX'').AsString'; Como faço pra, qdo utilizar o sCampo, vier o conteudo do campo CAMPOX da tabela?? []'sss -- Vinicius A. Santos www.msisolucoes.com.br
RES: [delphi-br] !!!Dúvida tabel a!!!
Para voce utilizar a sCampo e vir o valor que você quer , precisar se assegurar qua a query foi aberta e também em qual evento você atribui o valor da query a variável sCampo. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fernando de Laurentiis Enviada em: sexta-feira, 5 de junho de 2009 16:58 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] !!!Dúvida tabela!!! Prioridade: Alta Pessoal, boa tarde. Imaginemos uma situação assim: sCampo: string; sCampo:='Query1.FieldByName(''CAMPOX'').AsString'; Como faço pra, qdo utilizar o sCampo, vier o conteudo do campo CAMPOX da tabela?? []'sss No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.339 / Virus Database: 270.12.53/2156 - Release Date: 06/05/09 06:24:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida com Debug (Trace into - F7)
Pessoal, como é que faço para Debugar o código apenas na unit principal? Selecionei nas opções do Projeto: - Debug information; - Local symbols - Reference info - Assertions Coloquei o BreakPoint numa procedure, Run (F9). Quando chega no breakpoint ele para, pressiono a tecla F7 (Trace into), linha-a-linha vai me mostrando os passos, até aí tudo ok, mas, queria que, quando o compilador fosse para outras unit ele não fosse passo-a-passo. Tenho muitas units e o processo até terminar leva mais de hora, não compensa esperar tanto para encontrar o erro, e se tiver de repetir então, é um saco! As units não há problemas, o negócio é só no meu FormPrincipal (não tenho outros forms), as units é que não queria ver. Grato.
Re: [delphi-br] Dúvida com Debug (Trace into - F7)
2009/5/28 EmbarcaDelphi embarcadel...@yahoo.com.br: Pessoal, como é que faço para Debugar o código apenas na unit principal? Selecionei nas opções do Projeto: - Debug information; - Local symbols - Reference info - Assertions Coloquei o BreakPoint numa procedure, Run (F9). Quando chega no breakpoint ele para, pressiono a tecla F7 (Trace into), linha-a-linha vai me mostrando os passos, até aí tudo ok, mas, queria que, quando o compilador fosse para outras unit ele não fosse passo-a-passo. Tenho muitas units e o processo até terminar leva mais de hora, não compensa esperar tanto para encontrar o erro, e se tiver de repetir então, é um saco! As units não há problemas, o negócio é só no meu FormPrincipal (não tenho outros forms), as units é que não queria ver. Inclua {$D-} nas units que você não quer debugar e ligue o debug info do projeto, ou inclua {$D+} nas units que você quer debugar e desligue o debug info do projeto. Escolha o caminho mais curto. Além disto você pode ou não usar as units de debug da vcl (Project | Options | Compiler | Use debug DCUs). Depois de alterar essas coisas, dê um build all no projeto. Joao Morais
Re: [delphi-br] Dúvida Firebird
É verdade. Estou trabalhando com 2 transações e estava realizando o commit na transação errada. Agora tá certo... Bobeada vlw --- Em qua, 29/4/09, Humberto Oliveira holiveira.wordpr...@gmail.com escreveu: De: Humberto Oliveira holiveira.wordpr...@gmail.com Assunto: Re: [delphi-br] Dúvida Firebird Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 29 de Abril de 2009, 21:29 Isso está com cara de commit realizado no fechamento do aplicativo. Verifique como está o isolamento da transação que você executa nos seus aplicativos. 2009/4/29 Antonio Perruci aperr...@yahoo. com.br Quando inicializava o form não aparecia o registro. É que eu não tinha aplicado o filtro na inicialização do form. Agora no outro aplicativo, mesmo aplicando o filtro, continua não aparecendo. Ainda não descobrí o porque. O estranho é que se eu abrir o um Gerenciador de Dados como o IBManager e inserir um dado no aplicativo, nesse gerenciador também não aparece o registro de imediato mesmo aplicando o refresh. Mas o registro foi gravado. Fechando o aplicativo, aí sim aparece. Ainda não sei porque. Estou pesquisando. Se eu descobrir te passo --- Em ter, 28/4/09, Alisson alss...@yahoo. com.bralssnco%40yahoo. com.br escreveu: De: Alisson alss...@yahoo. com.br alssnco%40yahoo. com.br Assunto: Re: [delphi-br] Dúvida Firebird Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Data: Terça-feira, 28 de Abril de 2009, 17:05 Qual era o problema? Já tive um problema parecido e não consegui saber o que estava acontecendo. _ _ _ _ __ 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.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]
Re: [delphi-br] Dúvida Firebird
Quando inicializava o form não aparecia o registro. É que eu não tinha aplicado o filtro na inicialização do form. Agora no outro aplicativo, mesmo aplicando o filtro, continua não aparecendo. Ainda não descobrí o porque. O estranho é que se eu abrir o um Gerenciador de Dados como o IBManager e inserir um dado no aplicativo, nesse gerenciador também não aparece o registro de imediato mesmo aplicando o refresh. Mas o registro foi gravado. Fechando o aplicativo, aí sim aparece. Ainda não sei porque. Estou pesquisando. Se eu descobrir te passo --- Em ter, 28/4/09, Alisson alss...@yahoo.com.br escreveu: De: Alisson alss...@yahoo.com.br Assunto: Re: [delphi-br] Dúvida Firebird Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 28 de Abril de 2009, 17:05 Qual era o problema? Já tive um problema parecido e não consegui saber o que estava acontecendo. _ _ _ _ __ 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]
Re: [delphi-br] Dúvida Firebird
Isso está com cara de commit realizado no fechamento do aplicativo. Verifique como está o isolamento da transação que você executa nos seus aplicativos. 2009/4/29 Antonio Perruci aperr...@yahoo.com.br Quando inicializava o form não aparecia o registro. É que eu não tinha aplicado o filtro na inicialização do form. Agora no outro aplicativo, mesmo aplicando o filtro, continua não aparecendo. Ainda não descobrí o porque. O estranho é que se eu abrir o um Gerenciador de Dados como o IBManager e inserir um dado no aplicativo, nesse gerenciador também não aparece o registro de imediato mesmo aplicando o refresh. Mas o registro foi gravado. Fechando o aplicativo, aí sim aparece. Ainda não sei porque. Estou pesquisando. Se eu descobrir te passo --- Em ter, 28/4/09, Alisson alss...@yahoo.com.bralssnco%40yahoo.com.br escreveu: De: Alisson alss...@yahoo.com.br alssnco%40yahoo.com.br Assunto: Re: [delphi-br] Dúvida Firebird Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 28 de Abril de 2009, 17:05 Qual era o problema? Já tive um problema parecido e não consegui saber o que estava acontecendo. _ _ _ _ __ 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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida Firebird
commit na hora da gravação Antonio Perruci escreveu: Quando inicializava o form não aparecia o registro. É que eu não tinha aplicado o filtro na inicialização do form. Agora no outro aplicativo, mesmo aplicando o filtro, continua não aparecendo. Ainda não descobrí o porque. O estranho é que se eu abrir o um Gerenciador de Dados como o IBManager e inserir um dado no aplicativo, nesse gerenciador também não aparece o registro de imediato mesmo aplicando o refresh. Mas o registro foi gravado. Fechando o aplicativo, aí sim aparece. Ainda não sei porque. Estou pesquisando. Se eu descobrir te passo --- Em ter, 28/4/09, Alisson alss...@yahoo.com.br mailto:alssnco%40yahoo.com.br escreveu: De: Alisson alss...@yahoo.com.br mailto:alssnco%40yahoo.com.br Assunto: Re: [delphi-br] Dúvida Firebird Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Terça-feira, 28 de Abril de 2009, 17:05 Qual era o problema? Já tive um problema parecido e não consegui saber o que estava acontecendo. _ _ _ _ __ 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 http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com -
[delphi-br] Dúvida Firebird
Olá Estou com um probleminha aqui Tenho 2 aplicativos diferentes que utilizam uma mesma tabela de cadastro. Quando digito um cadastro em um deles e ainda este estando aberto, se eu abro o outro o registro não aparece neste outro. Para aparecer eu preciso sair do sistema onde eu fiz o cadastro e entrar novamente. E no mesmo computador que eu fiz o cadastro também não está aparecendo até que eu feche o aplicativo. Estou usando o Fb 2.1, estou usando D7 e estou aplicando o commit na gravação, enfim não sei o que é. Se alguém tiver alguma idéia, por favor me dê uma ajuda. 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] Dúvida Firebird
Desculpa aí Já corrigi a minha falha aqui Obrigado ! --- Em ter, 28/4/09, Antonio Perruci aperr...@yahoo.com.br escreveu: De: Antonio Perruci aperr...@yahoo.com.br Assunto: [delphi-br] Dúvida Firebird Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 28 de Abril de 2009, 15:26 Olá Estou com um probleminha aqui Tenho 2 aplicativos diferentes que utilizam uma mesma tabela de cadastro. Quando digito um cadastro em um deles e ainda este estando aberto, se eu abro o outro o registro não aparece neste outro. Para aparecer eu preciso sair do sistema onde eu fiz o cadastro e entrar novamente. E no mesmo computador que eu fiz o cadastro também não está aparecendo até que eu feche o aplicativo. Estou usando o Fb 2.1, estou usando D7 e estou aplicando o commit na gravação, enfim não sei o que é. Se alguém tiver alguma idéia, por favor me dê uma ajuda. 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]
Re: [delphi-br] Dúvida Firebird
Qual era o problema? Já tive um problema parecido e não consegui saber o que estava acontecendo. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Dúvida com Rave Reports
Não seria apenas informar a propriedade ControllerBand do Band Component não? 2009/4/24 ott...@ymail.com ott...@ymail.com Bom dia Alguém sabe qual propriedade do databand do Rave Reports que não permite a impressão do databand mestre se o seu detalhe não tiver nenhum registro? Deste já agradeço qualquer ajuda. -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida com Rave Reports
Bom dia Alguém sabe qual propriedade do databand do Rave Reports que não permite a impressão do databand mestre se o seu detalhe não tiver nenhum registro? Deste já agradeço qualquer ajuda.
[delphi-br] Dúvida com record e Array
Sou iniciante em Delphi, estou trabalhando num escritório que já existe um programinha de vendas de produtos feito em Delphi 7. Não existe uma rotina para deletar o produto, o que existe é se ele é ativo ou não, se for ativo é visível no relatório, etc... Isso está deixando o arquivo muito grande, e eu pensei em mudar para excluir fisicamente. Não há Banco de Dados, e o meu chefe não quer refazer o programa, então vou só implementar mesmo... Tentei fazer um array multiplo para mudar o id_Cliente antigo, o nome e o id_clientenovo (vcs vão ver mais abaixo, mas não implementei nada aqui do array) Seria o array mais ou menos assim: tmpArrayCliente : array of array of String; tmpArrayCliente[NOrdem -1][0] := IntToStr(clientes.id_cliente); tmpArrayCliente[NOrdem -1][1] := cliente.nome; tmpArrayCliente[NOrdem -1][2] := IntToStr(NOrdem); pego na rotina de exclusão de clientes e uso na rotina de manutenção do record produtos, mas não estou conseguindo. Exemplo para facilitar o que estou dizendo: type clientes = record id_cliente : integer; nome : String[40]; end; type produtos = record id_produto : integer; id_cliente : integer; produto : string[60]; end; ... var fcliente : file of clientes; cliente : clientes; fproduto: file of produtos; produto: produtos; ... // É claro que existem mais coisas, porém, para facilitar o entendimento vou colocar apenas estes. Quando eu excluir um cliente quero que o produto do cliente (que foi removido) também seja removido. Eu até fiz, só que, quando vou visualizar os clientes, os produtos deles são trocados, verificando, vejo que o número de ordem (1,3,4...) fica sem um número, então eu fiz: Tem todo aquele processo de abrir, reset, etc... que não vou colocar aqui, só o necessário. procedure... var nOrdem : integer; begin nOrdem := 1; seek(fcliente,0); while not eof(fcliente) do begin {se diferente do que vai ser excluído} if cliente.id_cliente StrToInt(label1.caption) then begin {tmpcliente é um record temporário} tmpcliente.id_cliente := nOrdem; tmpcliente.nome := cliente.nome; // aqui eu pegava também o id_cliente, o nOrdem, o nome e colocava no array dito lá no início end; inc(nOrdem); end; {Até que funciona, ele coloca em ordem novamente, 1,2,3,4... O problema é com o record PRODUTOS. Quero eliminar o produto referente aquele cliente excluído e deixar na ordem, sendo que a ordem bata com a ordem do record dos clientes: id_cliente = 2 - nome = fernando. produtos: produto.id_cliente = 2 fique para fernando (lembrando que a ordem foi mudada e o id_cliente 2 era de outra pessoa, mas foi excluído, e colocado o nOrdem novamente deixando o id_cliente para, agora, com fernando. Tentei implementar com o array mas fiquei todo enrolado :) } // Entenderam? Não sei se existe outra forma de fazer isso, eu tentei usar a lógica da lógica que eu tenho :) end; Robson
RES: [delphi-br] Dúvida com consulta SQL
Da uma estudada sobre inner join, basicamente seria select *.cs, *.ce from cardápio_saida cs inner join cardápio_entrada CE (on codProd.cs = codProd.ce) where data between dataini and datafim, este select retornara todos os itens das tabelas conforme o período determinado entre dataini e datafim. Agora este negocio de paradox meu corre longe conselho de amigo eh muito instável corrompe índice direto. Vai de firebird que vc não se arrependera De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ralp Alves Bezerra Enviada em: quinta-feira, 9 de abril de 2009 07:16 Para: delphi...@yahoogrupos. com. br Assunto: [delphi-br] Dúvida com consulta SQL Nobres colegas, Estou tendo uma certa dificuldade em realizar um consulta juntando 2 tabelas diferentes. Tenho uma tabela chamada Cardapio_Saida (onde ficam armazenadas todas as saídas) com os seguinte campos: CodProd Produto Quantidade Fornecedor Data E outra chamada Entradas (onde ficam armazenadas todas as entradas) com os seguinte campos: CodProduto Produto Quantidade Data Com a consulta abaixo, consegui puxar todas as saídas: SELECT distinct Produto as Produto, CodProduto as Codigo, Unidade as Unid, PesoUnitario as Peso, Quantidade as Quantidade, RazaoSocial as Escola, CodGuia as Guia, CodCardapio as Cardapio, Data as Data, Fornecedor FROM Cardapio_Saida GROUP BY Produto, RazaoSocial, quantidade, Unidade, PesoUnitario, CodProduto, CodGuia, CodCardapio, Data, fornecedor ORDER BY Produto, RazaoSocial Estou precisando gerar um relatório entre um período de datas que me informe a quantidade de entradas e saídas por produto. Tipo: Produto Entradas Saídas Saldo em estoque Será que algum dos colegas poderia me dar uma dica? Estou utilizando Delphi 7 e Paradox. Abraços. [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] Dúvida com consulta SQL
Como já disse em um post anterior, já estou trabalhando com o firebird em minhas aplicações. O problema e que assumi este sistema de outro programador e o mesmo já roda a mais de 4 anos e é em paradox. Em breve estarei migrando este sistema para o firebird. No caso do problema na consulta, é que ocorre de o usuário dar 2 entradas por mês em uma nota fiscal (tabela Entradas) para determinado produto e 100 saídas (tabela Saídas) para este mesmo produto. O que queria fazer seria o seguinte, juntar as duas tabelas e gerar um relatório produto por produto que me retornasse o produto, as entradas, as saídas, e o saldo do mesmo ex: Produto as entradasas saídas o saldo Cebola 100 99 1 Macarrão200 2000 Arroz300 25050 Etc. E estou tendo esta dificuldade em realizar esta pesquisa. Abraços De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de marcelo Enviada em: quinta-feira, 9 de abril de 2009 20:18 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Dúvida com consulta SQL Da uma estudada sobre inner join, basicamente seria select *.cs, *.ce from cardápio_saida cs inner join cardápio_entrada CE (on codProd.cs = codProd.ce) where data between dataini and datafim, este select retornara todos os itens das tabelas conforme o período determinado entre dataini e datafim. Agora este negocio de paradox meu corre longe conselho de amigo eh muito instável corrompe índice direto. Vai de firebird que vc não se arrependera De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Ralp Alves Bezerra Enviada em: quinta-feira, 9 de abril de 2009 07:16 Para: delphi...@yahoogrupos. com. br Assunto: [delphi-br] Dúvida com consulta SQL Nobres colegas, Estou tendo uma certa dificuldade em realizar um consulta juntando 2 tabelas diferentes. Tenho uma tabela chamada Cardapio_Saida (onde ficam armazenadas todas as saídas) com os seguinte campos: CodProd Produto Quantidade Fornecedor Data E outra chamada Entradas (onde ficam armazenadas todas as entradas) com os seguinte campos: CodProduto Produto Quantidade Data Com a consulta abaixo, consegui puxar todas as saídas: SELECT distinct Produto as Produto, CodProduto as Codigo, Unidade as Unid, PesoUnitario as Peso, Quantidade as Quantidade, RazaoSocial as Escola, CodGuia as Guia, CodCardapio as Cardapio, Data as Data, Fornecedor FROM Cardapio_Saida GROUP BY Produto, RazaoSocial, quantidade, Unidade, PesoUnitario, CodProduto, CodGuia, CodCardapio, Data, fornecedor ORDER BY Produto, RazaoSocial Estou precisando gerar um relatório entre um período de datas que me informe a quantidade de entradas e saídas por produto. Tipo: Produto Entradas Saídas Saldo em estoque Será que algum dos colegas poderia me dar uma dica? Estou utilizando Delphi 7 e Paradox. Abraços. [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: [delphi-br] Dúvida com criação de componente
2009/4/8 Vinicius A. Santos vinic...@msisolucoes.com.br: Boa tarde Pessoal, tenho um componente que eu vou distribuir para algumas pessoas, porém eu quero que este componente sempre mostre uma mensagem de tempos em tempos para o usuário do sistema, como acontece com alguns produtos demo do mercado. Eu vi o componente da VitaVoom que vc precisa de um arquivo de Licença, se o projeto for compilado sem este arquivo o executável fica te mostrando uma mensagem, se vc compilar o projeto com o arquivo de licença fica normal... Alguém saberia me dizer uma palavra chave para eu digitar no Deus da internet ? estou pesquisando, porém ainda não encontrei nada plausível... Você vai distribuir sem os fontes, ou ao menos algumas units sem os fontes, correto? Então sai uma idéia, quem sabe a partir delas você consiga bolar outras melhores: Duas units, A e B. São as únicas duas units do teu projeto sem os fontes. Na unit A você declara uma variável pública, string ou um Int64 que receberá uma chave. Dentro dessa unit você coloca um timer para verificar que ela contém uma chave válida. Nesta unit coloque também algum código vital do seu componente. Na unit B, que é a sua unit 'licença' e cada usuário tem uma diferente, você atribui uma chave válida àquela variável pública de A. Faça isto na área initialization. Pronto. Se o usuário só tiver A, o sistema roda mas o timer, ao verificar que não tem uma chave válida associada, vai perturbar o usuário. Quando o usuário arrumar a B associando uma chave válida, ele pára de ser perturbado. Use criptografia ou criatividade para dificultar o hack das units. Joao Morais
[delphi-br] Dúvida com consulta SQL
Nobres colegas, Estou tendo uma certa dificuldade em realizar um consulta juntando 2 tabelas diferentes. Tenho uma tabela chamada Cardapio_Saida (onde ficam armazenadas todas as saídas) com os seguinte campos: CodProd Produto Quantidade Fornecedor Data E outra chamada Entradas (onde ficam armazenadas todas as entradas) com os seguinte campos: CodProduto Produto Quantidade Data Com a consulta abaixo, consegui puxar todas as saídas: SELECT distinct Produto as Produto, CodProduto as Codigo, Unidade as Unid, PesoUnitario as Peso, Quantidade as Quantidade, RazaoSocial as Escola, CodGuia as Guia, CodCardapio as Cardapio, Data as Data, Fornecedor FROM Cardapio_Saida GROUP BY Produto, RazaoSocial, quantidade, Unidade, PesoUnitario, CodProduto, CodGuia, CodCardapio, Data, fornecedor ORDER BY Produto, RazaoSocial Estou precisando gerar um relatório entre um período de datas que me informe a quantidade de entradas e saídas por produto. Tipo: Produto Entradas Saídas Saldo em estoque Será que algum dos colegas poderia me dar uma dica? Estou utilizando Delphi 7 e Paradox. Abraços. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com criação de componente
João, achei interessante a sua idéia, ainda estou em fase de pesquisa para depois começar a trabalhar... A intenção é distribuir o código fonte do programa sem as units dos nossos componentes, distribuiremos apenas os .dcu, e através de algum destes componentes ficar perturbando o usuário... Se alguém tiver mais idéias, eu agradeço muito ! Obrigado Joao Morais escreveu: 2009/4/8 Vinicius A. Santos vinic...@msisolucoes.com.br mailto:vinicius%40msisolucoes.com.br: Boa tarde Pessoal, tenho um componente que eu vou distribuir para algumas pessoas, porém eu quero que este componente sempre mostre uma mensagem de tempos em tempos para o usuário do sistema, como acontece com alguns produtos demo do mercado. Eu vi o componente da VitaVoom que vc precisa de um arquivo de Licença, se o projeto for compilado sem este arquivo o executável fica te mostrando uma mensagem, se vc compilar o projeto com o arquivo de licença fica normal... Alguém saberia me dizer uma palavra chave para eu digitar no Deus da internet ? estou pesquisando, porém ainda não encontrei nada plausível... Você vai distribuir sem os fontes, ou ao menos algumas units sem os fontes, correto? Então sai uma idéia, quem sabe a partir delas você consiga bolar outras melhores: Duas units, A e B. São as únicas duas units do teu projeto sem os fontes. Na unit A você declara uma variável pública, string ou um Int64 que receberá uma chave. Dentro dessa unit você coloca um timer para verificar que ela contém uma chave válida. Nesta unit coloque também algum código vital do seu componente. Na unit B, que é a sua unit 'licença' e cada usuário tem uma diferente, você atribui uma chave válida àquela variável pública de A. Faça isto na área initialization. Pronto. Se o usuário só tiver A, o sistema roda mas o timer, ao verificar que não tem uma chave válida associada, vai perturbar o usuário. Quando o usuário arrumar a B associando uma chave válida, ele pára de ser perturbado. Use criptografia ou criatividade para dificultar o hack das units. Joao Morais -- Vinicius A. Santos www.msisolucoes.com.br
[delphi-br] Dúvida com criação de componente
Boa tarde Pessoal, tenho um componente que eu vou distribuir para algumas pessoas, porém eu quero que este componente sempre mostre uma mensagem de tempos em tempos para o usuário do sistema, como acontece com alguns produtos demo do mercado. Eu vi o componente da VitaVoom que vc precisa de um arquivo de Licença, se o projeto for compilado sem este arquivo o executável fica te mostrando uma mensagem, se vc compilar o projeto com o arquivo de licença fica normal... Alguém saberia me dizer uma palavra chave para eu digitar no Deus da internet ? estou pesquisando, porém ainda não encontrei nada plausível... Obrigado -- Vinicius A. Santos www.msisolucoes.com.br
[delphi-br] Dúvida de DBExpress
Utilizando o turbo delphi com DBexpress TSQLConnection - TSQLDataSet o qy_pesprod2 é um TSQDataset TABELA Produtos: Tenho 2 produtos cadastradados na tabela: PRODUTO A CODCOMPRA = 1 E CODBARRAS = 123456 PRODUTO B CODCOMPRA = 2 E CODBARRAS = 234322 Qy_PesqProd2.Close; Qy_PesqProd2.commandtext := 'Select * from PRODUTOS where (CODBARRA =:Busca) OR (CODCOMPRA =:BUSCA2)'; QY_PesqProd2.ParamByName('BUSCA').Value := 2 QY_PesqProd2.ParamByName('BUSCA2').Value := 2 Qy_PesqProd2.Open; me retorna o produto B blz, ai executo de novo Qy_PesqProd2.Close; Qy_PesqProd2.commandtext := 'Select * from PRODUTOS where (CODBARRA =:Busca) OR (CODCOMPRA =:BUSCA2)'; QY_PesqProd2.ParamByName('BUSCA').Value := 222 QY_PesqProd2.ParamByName('BUSCA2').Value :=222 Qy_PesqProd2.Open; ele me retorna o produto B novamente, sendo que não há produto código 222 com delphi 7 eos componentes da guia interbase funcionava perfeitamente falta algum componente para o sql ? Ats, Alcione Guimarães PIRACAIA SOFT (11)4036-6299 (11)9515-8707 www.piracaiasoft.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com PageControl (resolvid o)
Muito obrigado - Original Message - From: Coutinho - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 04, 2009 1:21 PM Subject: Re: [delphi-br] Dúvida com PageControl Sergio. O pagecontrol tem duas maneiras de você interagir com as pages. pageControl.ActivepageIndex, que você pode atribuir de 0 ao numero de páginas do PageControl -1, ou PageControl.Activepage, que você atribui pelo Nome da page. Eu uso de duas formas... Se desejo impedir que o usuário passe para outra página, que seja vizinha da atual, verifico usando a propriedade Activepageindex, e verifico com +1 ou -1, no evento OnChanging. No envento On changing tem uma variável chamada Newpage que armazena o número da próxima página conforme a tab clicada If newpage = (PageControl.activepageindex+1) then ... faça isso ou aquilo else If newpage = (PageControl.activepageindex-1) then ... faça outras coisas... Outra forma, é quando uso um PageControl com as tabs invisíveis para paginar meu cadastro e uso botões para passagem entre as páginas, aí eu uso a propriedade Activepage... atribuindo a página, pois conforme as liberações de um usuário, posso ou não apresentar essa ou aquela paginação do cadastro para edição... Aí camarada... é só escolher. As duas formas te permitem um controle legal sobre a navegação entre as páginas co componente! Abraços __ Emanuel Coutinho Salvador-Ba-Brasil [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Dúvida com PageControl
Tava fácil demais né??? rs Fiz o seguinte: If (dmoQuerys.QueryPadroesSis.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadEmpresa.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadNF.State in [dsEdit, dsInsert]) then begin AllowChange := false; ShowMessage('Você deve gravar ou cancelar as alterações antes de sair! ); end; Obrigado pela força Jhosef! Deu certo! Um abraço a todos! ---Mensagem original--- De: Jhosef Marks Data: 04/02/2009 10:22:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dúvida com PageControl No evento OnChanging utilize a propriedade AllowChange para controlar se o usuário pode ou não alterar de guia... JM 2009/2/4 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal eu incluí em um formulário um PageControl contendo umas 4 páginas (guias) e gostaria que fosse feito uma verificação todas as vezes que o usuário sair de uma guia clicando em outra, mas não consigo! Eu fiz o seguinte código: procedure TPadroesSisFrm.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin If (dmoQuerys.QueryPadroesSis.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadEmpresa.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadNF.State in [dsEdit, dsInsert]) then begin If (PageControl1.ActivePage = DadosPadroes) then edit1.text := 'DadosPadroes' else If (PageControl1.ActivePage = DadosEmpresa) then edit1.text := 'DadosEmpresa' else If (PageControl1.ActivePage = DadosNF) then edit1.text := 'DadosNF' else If (PageControl1.ActivePage = Produtos) then edit1.text := 'Produtos'; pageControl1.ActivePage := edit1.text; //o delphi não aceita esse comando. Ele aceitaria se fosse assim: //pageControl1.ActivePage := DadosPadroes; If pageAtual = 'DadosPadroes' then PageControl1.ActivePage := DadosPadroes else If pageAtual = 'DadosEmpresa' then PageControl1.ActivePage := DadosEmpresa else If pageAtual = 'DadosNF' then PageControl1.ActivePage := DadosNF else If pageAtual = 'Produtos' then PageControl1.ActivePage := Produtos; ShowMessage('Você deve gravar ou cancelar as alterações antes de sair! ); end; end; Resumindo, eu só não quero deixar ele mudar de página (guia) sem antes salvar os registros. Talvez vcs tem alguma forma melhor de se fazer isso! Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida com PageControl
qual o comando para pular de uma guia para outra? - Original Message - From: Jhosef Marks To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 04, 2009 10:23 AM Subject: Re: [delphi-br] Dúvida com PageControl *propriedade = variável AllowChange PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin end; JM 2009/2/4 Jhosef Marks jho...@gmail.com No evento OnChanging utilize a propriedade AllowChange para controlar se o usuário pode ou não alterar de guia... JM 2009/2/4 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal eu incluí em um formulário um PageControl contendo umas 4 páginas (guias) e gostaria que fosse feito uma verificação todas as vezes que o usuário sair de uma guia clicando em outra, mas não consigo! Eu fiz o seguinte código: procedure TPadroesSisFrm.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin If (dmoQuerys.QueryPadroesSis.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadEmpresa.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadNF.State in [dsEdit, dsInsert]) then begin If (PageControl1.ActivePage = DadosPadroes) then edit1.text := 'DadosPadroes' else If (PageControl1.ActivePage = DadosEmpresa) then edit1.text := 'DadosEmpresa' else If (PageControl1.ActivePage = DadosNF) then edit1.text := 'DadosNF' else If (PageControl1.ActivePage = Produtos) then edit1.text := 'Produtos'; pageControl1.ActivePage := edit1.text; //o delphi não aceita esse comando. Ele aceitaria se fosse assim: //pageControl1.ActivePage := DadosPadroes; If pageAtual = 'DadosPadroes' then PageControl1.ActivePage := DadosPadroes else If pageAtual = 'DadosEmpresa' then PageControl1.ActivePage := DadosEmpresa else If pageAtual = 'DadosNF' then PageControl1.ActivePage := DadosNF else If pageAtual = 'Produtos' then PageControl1.ActivePage := Produtos; ShowMessage('Você deve gravar ou cancelar as alterações antes de sair! ); end; end; Resumindo, eu só não quero deixar ele mudar de página (guia) sem antes salvar os registros. Talvez vcs tem alguma forma melhor de se fazer isso! Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com PageControl
Sergio. O pagecontrol tem duas maneiras de você interagir com as pages. pageControl.ActivepageIndex, que você pode atribuir de 0 ao numero de páginas do PageControl -1, ou PageControl.Activepage, que você atribui pelo Nome da page. Eu uso de duas formas... Se desejo impedir que o usuário passe para outra página, que seja vizinha da atual, verifico usando a propriedade Activepageindex, e verifico com +1 ou -1, no evento OnChanging. No envento On changing tem uma variável chamada Newpage que armazena o número da próxima página conforme a tab clicada If newpage = (PageControl.activepageindex+1) then ... faça isso ou aquilo else If newpage = (PageControl.activepageindex-1) then ... faça outras coisas... Outra forma, é quando uso um PageControl com as tabs invisíveis para paginar meu cadastro e uso botões para passagem entre as páginas, aí eu uso a propriedade Activepage... atribuindo a página, pois conforme as liberações de um usuário, posso ou não apresentar essa ou aquela paginação do cadastro para edição... Aí camarada... é só escolher. As duas formas te permitem um controle legal sobre a navegação entre as páginas co componente! Abraços __ Emanuel Coutinho Salvador-Ba-Brasil