Re: Res: [delphi-br] Forms Stay on top
Andresa Recebi as telas e vou olhar... No mais, o fsStayOnTop é para que sua tela realmente fique sobre todas as outras... O que não entendi é como suas telas children ficam sob o seu TreeView menu... pois se vc colocar qualquer coisa no seu form principal, a área de apresentação dos forms é automaticamente reduzida! Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Concatenação em Delphi
Vanessa Se vc não for precisar armazenar estas informações, ou seja, armazenar este campo com 30/60/30 etc... crie um campo calculado, e nos eventos do seu dataset, escreva o código: Dataset.CampoCalculado.asString := Dataset_Campo1.asString+'/'+DataSet_Campo2.AsString + '/'+Dataset_Campo3.AsString Fazendo isso para quantos datasetFields desejar Sds __ Emanuel Coutinho Salvador-Ba-Brasil Vanessa Oliveira escreveu: Bom dia Pessoal!! Tenho 6 DBEdit em Delphi2007, aonde vai ser preenchido pelo usuário a quantidade de parcelas para cada DBEdit, preciso que esses valores que foi foram digitados pelo usuário (DBEdits), apareçam em um outro DBEdit um do lado do outro, separados por uma /. Ex de como tem que aparecer no DBEdit final: 30/60/90/120/150/180 Se vocês poderem me ajudar, desde já agradeço -- Atenciosamente Vanessa Oliveira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Migrando do FB 1.5 para superiores
Colegas... Estou, por questão de segurança, usando o FB 1.5, mas agora desejo migrar para a mais recente versão estável, contudo, sei por acompanhar as mensagens, que muitas instruções novas estão incorporadas ao PLSQL do Firebird. Desejo obter uma boa apostila, preferencialmente 0800, que contemple também estas mais recentes inclusões. Alguém tem como disponibilizar? Ou um link para download? Agradeço. Sds __ Emanuel Coutinho Salvador-Ba-Brasil
[delphi-br] [OFF TOPIC] - MOZILLA THUNDERBIRD
Pessoal... Estou com um problema, e gostaria de saber se alguém que use o Mozilla Thundebird passa pelo mesmo problema. Procurei informação no FAQ do Thunderbird, sem achar nada... é o Seguinte: Minhas mensagens para listas todas são recebidas pelo meu e-mail do Yahoo (que diga-se de passagem, tá mandando um monte delas para a pasta SPAM. Criei filtros por conteúdo de assunto, para mandar as mensagens para as pastas específicas de cada lista... Até aí... NORMAL... O que me irrita é que assim que acaba de receber as mensagens, as novas, deixam de ficar com o assunto em negrito e aparecem como se já tivessem sido LIDAS... E por conta disso, tenho de ficar caçando as que ainda não lí... Fui na configuração, e coloquei 2000 segundos de espera... e NADA... Alguém já passou por isso? __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Enviar emails usando o servidor BOL
Ricardo... creio que enviei para o blog do silvio clécio uma cópia de uma pequena agenda que envia e-mail... se não achar com ele, me manda um pedido em pvt que te envio uma s dicas da minha tela de sendmail Sds __ Emanuel Coutinho Salvador-Ba-Brasil Ricardo Ravelli escreveu: Boa noite, Preciso de uma ajuda, estou tentando enviar emails usando o delphi 7 + indy 9 usando o servidor smtp do BOL, mas não estou conseguindo. Já consegui utilizando o gmail, yahoo, terra. Alguém tem algum exemplo ou pode me informar as configurações de porta, se usa comunicação SSL, etc. Já fiz algumas tentativas mas sempre ocorreram erros. Obrigado. Att. Ricardo Ravelli [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] como pegar...
Por isso mesmo é que tem de fazer pelo banco... Tanto teclado, quanto leitor, ativam o insert do banco. No before Insert você vai fazer a verificação e resolve o problema!!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Re: Sistema web
Assim, com algum tempo atrás pensei em ir aprender o ofício de barbeiro, para não depender de terceiros!!! Criar patos também...tem seus problemas... Aves têm suas infestações... vacinas, trato, e toda aquela bosta de ave, que fede à beça!!! Arrrggghh!!! E hoje são criadas na base de rações... caras para dedéu... Sds __ Emanuel Coutinho Salvador-Ba-Brasil Andrei Luís escreveu: haushsauhasuhsauhhasas criar pato foi a melhor. Mas Jackson, isso são fatalidades, e também acontecem nos provedores, vide incêndio no prédio da telefônica (?) semana passada. De qualquer forma, obrigado pela sua opinião. [] Andrei 2009/3/3 Luiz Escobar esco...@megasistema.com.br mailto:escobar%40megasistema.com.br Com todo respeito amigo, então fala pra ele ir criar pato, não vai ter nenhuma destes problema... Mas se resolver continuar... Porque HD queimar (backup ou redundância de server) (resolve-se rápido) Porque falta energia, (nobreak e/ou gerador) (resolve-se rápido) Porque esquecer a senha (harcker/cracker) (resolve-se rápido) Porque internet cair e voltar logo ??? (telefônica?) (só-DEUS-sabe!) []s Luiz Escobar From: Jackson Gomes - ToolsComps Sent: Tuesday, March 03, 2009 11:10 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Re: Sistema web Opa pensamento perigoso! O dia que a conexão dele cair ele vai ter um belo de um problema mas... * no dia em que o HD do cliente queimar, * no dia em que faltar energia, * no dia em que ele esquecer a senha... ele vai ter um belo problema... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps http://groups.yahoo.com/group/toolsandcomps e-mail http://groups.yahoo.com/group/toolsandcomps%0Ae-mail http://groups.yahoo.com/group/toolsandcomps%0Ae-mail: jack...@toolsandcomps.com mailto:jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- http://jacklovesdelphi.blogspot.com http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br http://www.devhost.com.br devh...@devhost.com.br mailto:devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Enviar emails usando o servidor BOL
Verdade Silvio... MEA CULPA MEA MAXIMA CULPA. Já passei as telas pro colega, ele vai descobrir o caminho das pedras!!! Aliás Passei a aplicação toda... a parte do banco, ele pode usar outro... pois usei pago umas tabelas do TinyDB... que ninguém usa mais e que foi inclusive descontinuado, eu acho! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Silvio Clécio escreveu: Olá galera, Ricardo... creio que enviei para o blog do silvio clécio uma cópia de uma pequena agenda que envia e-mail... se não achar com ele, me manda um pedido em pvt que te envio uma s dicas da minha tela de sendmail Link - [http://sites.google.com/site/silvioprogbs/utilitarios-ferramentas http://sites.google.com/site/silvioprogbs/utilitarios-ferramentas]. Se não me falha a memória, vc falou que não enviou o source pq tinha usado alguns componentes pagos no aplicativo. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] como pegar...
Ricardo Tenho em mente que você abre uma venda pressionando F2, e que abre um registro na sua tabela Master... Assim, oque acontece é que você vai criar um flag na nota... aberto, ou fechado... Verifique aí. Se ao ler o código de barras o item estiver sendo inserido na detail de umanota fechada, abre automaticamente uma outra, e insere o item nela... assim, pode criar uma nova nota de venda. Será que isso não seria mais viável? Antes de inserir na tabela Detail, verifica se a venda está fechada... Sds __ Emanuel Coutinho Salvador-Ba-Brasil Ricardo César Cardoso escreveu: Posso estar falando besteira, mas a grosso modo bastaria vc checar no seu sistema se, ao ler a porta serial, já existe uma venda em aberto. Se não existir, abrir a venda e adicionar o produto na venda; se existir, adicionar o produto a venda. Aparentemente é coisa simples. Mas por via das dúvidas, vc está usando algum componente para fazer a leitura da porta serial? Se sim, veja se possui algum evento como por exemplo OnRxChar (no caso do TComport) que seria o evento ideal para essa verificação. []'s Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 2/3/09, cleiton.maciel cleiton.mac...@yahoo.com.br mailto:cleiton.maciel%40yahoo.com.br escreveu: Olá galera, bom dia a todos. Seguinte hoje tenho vários clientes que utilizam o PDV de meu sistema. E sempre antes de abrirem uma venda nele há uma necessidade de teclar F2 por exemplo pra abrir a venda. Nele funciona perfeitamente a leitura do código de barras sem problemas. Depois de muitas pesquisas, e em muitos fóruns dizendo que o leitor ao ler o código de barras seria o mesmo que se eu estivesse digitando no teclado etc e tal. Bom até ai já sabia, mas, o que não consigo e não consegui foi descobrir como capturar o que ele ler, saber onde ele joga a leitura antes dele ativar o ENTER. Li muito sobre hook do teclado (copiar o que é digitado). O que quero é o seguinte: Preciso que quando o leitor de código de barras ler, automaticamente ele abra a função de da venda sem a necessidade de teclar F2 como citado antes. Então, espero ter me expressado legal e que vocês tenham entendido. No aguardo e um grande abraço a todos. _ Cleiton Maciel Barreiras - Bahia Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com
Re: [delphi-br] Sistema pa controle interno
Colega Berdam O delphi tem um recurso chamado TO DO onde vc pode cadastrar todas as pedências de desenvolvimento que desejar. Dê uma olhada no próprio Delphi. Uso com freqüência e não me arrependo!!! sds __ Emanuel Coutinho Salvador-Ba-Brasil berdam escreveu: Olá, pessoal, solicito a ajuda dos mais experientes. Alguém conhece algum software para gerenciar os trabalhos/desenvolvimento/erros em códigos internos de uma empresa de desenvolvimento?? -- - 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 http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com http://passandoveneno.blogspot.com -
Re: [delphi-br] Manter o programa sempre ativo
Já pensou em deixar o MainForm da sua aplicaçãoalways on top? __ Emanuel Coutinho Salvador-Ba-Brasil Fabio R Cardoso escreveu: Pessoal, boa tarde. Desejo fazer um programa simples que faça uma tarefa simples: O programa deve deixar a janela ativa sempre ativa, ou seja: supondo que estou trabalhando com o word, daí de repente o windows manda um alerta sobre qualquer coisa, ou outro aplicativo que faz aparecer um alerta na tela, por cima do word. Isso faz o word perder o foco e alguns caracteres que eu estava digitando. Portanto, quero que minha aplicação funcione em background monitorando a janela ativa e não deixando outro aplicativo aparecer de repente e faze-la perder o foco. Alguém ajuda? Fabio.
[delphi-br] Apresentando painel criado dentro de Procedure.
Pessoal Nunca tive de criar nada em run-time que precisasse implementar eventos criados também em run-time. E Jamais criei qualquer componente. Agora, me veio uma necessidade de criar um painel de mensagens específico, com as características do sistema, e estou esbarrando em um problema... Criar o painel em run-time, tudo bem... eu fiz e isso é mole... meu problema é fazer a implementação do método onClick de um determinado botão que está no painel para este fechar... Procurei umas informações sobre o TNotifyEvent, mas não consegui ver como se aplica, pois eles implementam mais exemplos paa a criação de componente, e não é isso que desejo... Quero apenas apresentar um painel partindo de dentro de um procedure que está na minha biblioteca de funções genéricas... Meu código é esse: // Início do Codigo Procedure PainelMensagem(TopMsg, Msg: String; xPai:TWinControl); var Panel1: TPanel; Label1: TLabel; SpeedButton1: TSpeedButton; Panel2: TPanel; Procedure fechapainel; begin Panel1.Visible := False; Panel1.Destroy; end; begin Panel1 := TPanel.Create(application); Label1 := TLabel.Create(application); SpeedButton1 := TSpeedButton.Create(application); Panel2 := TPanel.Create(application); //Panel1.Parent := xPai; with Panel1 do begin Name := 'Panel1'; Parent := xPai; Left := 175; Top := 159; Width := 413; Height := 296; BevelInner := bvLowered; BorderWidth := 3; ParentFont := False; TabOrder := 0; end; with Label1 do begin Name := 'Label1'; Parent := Panel1; Left := 16; Top := 46; Width := 380; Height := 204; Alignment := taCenter; AutoSize := False; Caption := 'Label1'; end; with SpeedButton1 do begin Name := 'SpeedButton1'; Parent := Panel1; Left := 175; Top := 262; Width := 63; Height := 23; Caption := 'Ok'; Flat := True; OnClick := FechaPainel end; with Panel2 do begin Name := 'Panel2'; Parent := Panel1; Left := 5; Top := 5; Width := 403; Height := 29; Align := alTop; Caption := TopMsg; Color := 8404992; ParentFont := False; TabOrder := 0; end; With panel1 do begin Visible := True; Top := Trunc( ((parent.Height - height) / 2) ); left := Trunc( ((parent.width - width) / 2) ); end; end; // Fim do Codigo Está me retornando um erro de Incmpatible types - 'Method Pointer and regular procedure' Luz pls!!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Apresentando painel criado dentro de Procedure.
João Obrigado pela resposta, mas é que isso não vai ficar na minha aplicação... e sim numa procedure em uma biblioteca de rotinas que mantenho para uso genérico! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Joao Morais escreveu: 2009/2/28 Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br: Pessoal Nunca tive de criar nada em run-time que precisasse implementar eventos criados também em run-time. E Jamais criei qualquer componente. Agora, me veio uma necessidade de criar um painel de mensagens específico, com as características do sistema, e estou esbarrando em um problema... Criar o painel em run-time, tudo bem... eu fiz e isso é mole... meu problema é fazer a implementação do método onClick de um determinado botão que está no painel para este fechar... Procurei umas informações sobre o TNotifyEvent, mas não consegui ver como se aplica, pois eles implementam mais exemplos paa a criação de componente, e não é isso que desejo... Quero apenas apresentar um painel partindo de dentro de um procedure que está na minha biblioteca de funções genéricas... ... OnClick := FechaPainel ... // Fim do Codigo Está me retornando um erro de Incmpatible types - 'Method Pointer and regular procedure' FechaPainel deve ser declarado idêntico a um TNofityEvent e deve ser um método da classe. Algo assim: TSeuForm = class(TForm) ... private procedure FechaPainel(Sender: TObject); ... end; Joao Morais __ ,_._,___
Re: [delphi-br] Apresentando painel criado dentro de Procedure.
Amigos. Resolvi meter mão no código e aprender a criar componentes... Consegui baixar uma apostila do Bruno Lichot lá da CodeGuear... Material muito bom e claro fácil de entendimento até para mim... rsrsrs... Li e entendi bastante coisa... Só ficou uma coisa no ar!!! Bem... Vou criar um componente herdado do TPanel, mas terei de colocar outros componentes (nativos do delphi) dentro dele... Faço isso dentro do On Create? e no On Destroy destruo os componentes que inseri no form? E para implementar o fechamento do painel pelo botão que vou inserir no painel? Será um componente descendente do TPanel, que terá um outro Painel para fazer o Título, um Label e um speedbutton... O speedbutton será sòmente para fechar a visualização... Alguma dica? Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Database Desktop
ACho que o que vc está querendo é o SQL Explorer, não??? Nunca ouví falar que alguém usou o Database desktop para editar tabelas de um SGBD... Só para paradox, dBase... Nem com o Access dá certo, a não ser que seja uma tabela no formato Access 97 Sds __ Emanuel Coutinho Salvador-Ba-Brasil rafig38 escreveu: Prezados, Será que alguém poderia me dar umas dicas sobre o Database Desktop? Achei algumas coisas na Net mas tudo que leio e sigo procedimentos não dar certo. Talvez o problema possa até está nas minhas configurações e eu não sei o que fazer. Todas as vezes que crio uma tabela usando o Interbase através do Database Desktop eu não consigo inserir mais que um registro, pois trava tudo e nem fechando a tela do database funciona. Como eu salvo os registros inseridos? Ou estes já são salvos a medida que vou inserindo? Será que eu devo ir até alguma configuração para fazê-lo resgistrar mais dados na tabela? Em fim, estou perdidão e já não sei mais o que faço. Será que alguém poderia acender uma luz para mim? Eu utilizo o livro: Delphi 7 Completo - Marcelo Leão. Estou seguindo os exemplos que ele dar, mas cheguei no cap.9 pg 146 fiquei parado por causa desta pendência acima. Grato.
Re: [delphi-br] [Off-Topic] Demora na entrega de mensagens - Aos Moderadores
Pessoal Assino outras listas de discussão do yahoo. O mesmo parece estar acontecendo com eles... A exemplo do grupo de planejamento, há muitas mensagens que vão parar na lixeira, vai entender porquê... o yahoo entendeu a mensagem como Spam... então, se usam, como eu, um Thunderbird da vida, ou um Outlook Express, dêem uma passadinha no webmail do yahoo, e olhem a lixeira... vão achar muita coisa lá... Sds __ Emanuel Coutinho Salvador-Ba-Brasil Eric Roberto Darruiz escreveu: Oi Tânia, Conversei com os moderadores e no meu caso eu estava sendo moderado por ser um membro recém cadastrado na lista. Fora isso estava acontecendo ao mesmo tempo, uma demora da entrega das mensagens na lista pelo Yahoo!. Enviei um e-mail diretamente aos moderadores que foram muito prestativos em me responder de prontidão e liberar minhas mensagens para não serem mais moderadas. Envie um e-mail para delphi-br-ow...@yahoogrupos.com.br mailto:delphi-br-owner%40yahoogrupos.com.br e garanto que eles resolvem isso rapidamente. Abraços --- === Eric Roberto === MSN: eric...@hotmail.com mailto:ericrda%40hotmail.com Blog: http://cafenocodigo.blogspot.com/ http://cafenocodigo.blogspot.com/ From: Tânia Salgado Sent: Saturday, February 21, 2009 12:38 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] [Off-Topic] Demora na entrega de mensagens - Aos Moderadores Comigo tbm q acontece o mesmo.. estou curiosa tbm para saber o pq isto ocorre.. Agradeço desde já... Tânia -
Re: [delphi-br] Controlar a primeira execução de um executável
Será isso mesmo que o colega se referiu na thread que ele abriu? Entendi que ele queria testar a primeira vez que o software é rodado, e não evitar que o software seja aberto simultaneamente na mesma máquina! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Daniel Bastos escreveu: http://www.delphi.eti.br/ver_dica.php?id=1153 http://www.delphi.eti.br/ver_dica.php?id=1153 2009/2/19 Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br Ricardo Cesar... Por que você não usa uma entrada no Registry do Windows... Vai lá no HKEY_LOCAL_MACHINE\SOFTWARE... cria uma entrada para seu software, umas chaves, e pronto. Você pode ainda procurar uma outra chave tipo em HKEY_USERS\SOFTWARE... e cria uma chave maluca lá que seó você sabe, e umas chaves esdrúxulas... e pronto... esconde lá no registro do windows... Sds __ Emanuel Coutinho Salvador-Ba-Brasil Ricardo César Cardoso escreveu: Boa tarde. Como faria para que uma rotina no meu programa só fosse executada uma única vez, durante a primeira execução do software? Até já implementei isso usando arquivos externos, campo em base de dados e o registro, mas queria saber se existe alguma outra maneira de se fazer isso, sem usar um arquivo externo. É possível? Desde já grato, Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tipoo a função Explode do PHP
Pessoal Reconheço que desssa vez não é só a pressa, mas também certa preguiça, pois tenho só até amanhã para entregar uma rotina ao cliente, uma vez que ele quer rodar umas coisas antes do Carnaval (que aqui em Salvador... já começou desde 4a. à noite). Preciso de uma função que me retorne uma string com as palavras separadas em itens de uma stringlist, ou em uma matriz... tipo a função explode do PHP... Alguém tem isso pronto? senão vou meter a mão no código!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Tipo a função Explode do PHP
Ei... A preguiça foi embora... Encontrei no Sto Google... no site MarcosDelAntonio.net para quem não tem, olha o código aí em baixo - function Explode(str, separador: string): TStringList; var p: integer; begin Result := TStringList.Create; p := Pos(separador, str); while (p 0) do begin Result.Add(Copy(str, 1, p-1)); Delete(str, 1, p + Length(separador) - 1); p := Pos(separador, str); end; if (str '') then Result.Add(str); end; sds __ Emanuel Coutinho Salvador-Ba-Brasil Coutinho - Yahoo escreveu: Pessoal Reconheço que desssa vez não é só a pressa, mas também certa preguiça, pois tenho só até amanhã para entregar uma rotina ao cliente, uma vez que ele quer rodar umas coisas antes do Carnaval (que aqui em Salvador... já começou desde 4a. à noite). Preciso de uma função que me retorne uma string com as palavras separadas em itens de uma stringlist, ou em uma matriz... tipo a função explode do PHP... Alguém tem isso pronto? senão vou meter a mão no código!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Tipoo a função Explode do PHP
Valeus... a quem respondeus Sds __ Emanuel Coutinho Salvador-Ba-Brasil Marcio escreveu: Segue de mumu pra voce // Função split para stringlist. procedure TForm1.Split_stringlist(const Delimiter: Char; Input: string; const Strings: TStrings); begin Assert(Assigned(Strings)); Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input; end; sua procedure ... VAr A : TStringList; begin A := TStringList.Create; while not Eof(strFile) do begin Readln(strFile, strLine); SplitStrings(strLine,'|',A); if pcartao = A[0] then begin consumo := consumo + StrToFloat(A[1]) end end; At 14:06 20/2/2009 -0300, you wrote: Pessoal Reconheço que desssa vez não é só a pressa, mas também certa preguiça, pois tenho só até amanhã para entregar uma rotina ao cliente, uma vez que ele quer rodar umas coisas antes do Carnaval (que aqui em Salvador... já começou desde 4a. à noite). Preciso de uma função que me retorne uma string com as palavras separadas em itens de uma stringlist, ou em uma matriz... tipo a função explode do PHP... Alguém tem isso pronto? senão vou meter a mão no código!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Qual o melhor com ponente de relatório...
Concordo Ricardo... Eu usava o QuickReport, mas agora uso Fortes... acho que vou também tentar o FastReport, depois da explicação da colega Tania. Ela foi sobejamente esclarecedora Sds __ Emanuel Coutinho Salvador-Ba-Brasil
[delphi-br] RS Print
O colega Rubem mencionou o RSPrint. Fiz umas pesquisas e achei algumas mensagens que faziam alusão ao um site http: //www.alberteije.com / cdiniciante/minicursos/RSPrint.rar http://www.alberteije.com/cdiniciante/minicursos/RSPrint.rar Este site é a página de divulgação de cursos, e não achei o componente lá não. Ele é Free? Se alguem tiver para D6/D7, pode me enviar por PVT?? Sds __ Emanuel Coutinho Salvador-Ba-Brasil Rubem Nascimento da Rocha escreveu: Assino embaixo, Ricardo! Eu, por exemplo, fico meio termo, entre QuickReport e ReportBuilder no caso de impressão laser ou jato de tinta. Em caso de impressões em matricial, uso o VDOPrint ou o RSPrint. Depois de muita dor de cabeça, adotei eles pra impressão em matricial, principalmente em termos de impressão de formulários pré-impressos como nota fiscal e boletos pré-impressos. Claro, o RDPrint é bom tb, já utilizei ele! Tenho curiosidade em avaliar o ReportManager, que é free e de código fonte disponível no SourceForge.net! Sds. .
Re: RES: RES: [delphi-br] Qual o melhor componente de relatório...
PESSO ALL Estou tendo uns problemas com o Fortes Reports quando exporto para PDF As Bands ficam montadas, se eobrepões comendo o espaço umas das outras, principalmente se coloco o DetailGrid, groups etc... Por incrivel que apreça, acontece também quando mando imprimir para uma impressora PDF tipo PDF Creator, etc... Alguém já teve esse problema antes? __ Emanuel Coutinho Salvador-Ba-Brasil Ralp Alves Bezerra escreveu: Utilizo o FortesReport a alguns anos e estou muito satisfeito com o mesmo. E o melhor que é free! Ralp Alves 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 Hudson Dias Enviada em: quarta-feira, 18 de fevereiro de 2009 21:46 Ralp Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Qual o melhor componente de relatório... Pra mim o Fast Report... - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, February 18, 2009 9:38 PM Subject: Re: RES: [delphi-br] Qual o melhor componente de relatório... Ora... qual o problema? Por que tem que existir O MELHOR ? Pra algum boçal ficar contando vantagem? Todos os componentes tem seus prós e contras. Alguns são melhores para determinadas aplicaçãoes, outros não. Aqui na empresa uns consultores quase fizeram a gente gastar uma grana com componente de relatório para no final fazer relatórios para impressoras matriciais. Foi só perguntar se não conheciam pelo menos o VDOPrint que todo mundo saiu pela tangente. Programei com Clipper por algum tempo e achava produtivo. Mas isso há uns 15 anos atrás. Hoje não é, para mim. Mas para alguém pode ser. Tem gente que usa (e muito bem, diga-se de passagem) o velho COBOL e não quer nem saber de trocar. Vou falar que o Cobol é ruim? Que o Clipper é ruim? Se ainda tem desenvolvedor trabalhando até hoje, é por que existe mercado e porque ainda há quem se sinta produtivo com essas ferramentas. []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 18/2/09, Vitor D. vredesredsys...@yahoo.com.br mailto:vredesredsystem%40yahoo.com.br mailto:vredesredsystem%40yahoo.com.br escreveu: De: Vitor D. vredesredsys...@yahoo.com.br mailto:vredesredsystem%40yahoo.com.br mailto:vredesredsystem%40yahoo.com.br Assunto: RES: [delphi-br] Qual o melhor componente de relatório... Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 18 de Fevereiro de 2009, 17:34 Lá vem esse papo de novo... Tem gente que acha produtivo trabalhar em Clipper... Vai ver no que dá... _ De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Ricardo César Cardoso Enviada em: quarta-feira, 18 de fevereiro de 2009 17:01 Para: delphi...@yahoogrup os.com.br Assunto: Re: [delphi-br] Qual o melhor componente de relatório... Sinceramente, o melhor componente de relatório é aquele onde vc se sente mais a vontade para trabalhar, conseqüentemente você acaba sendo mais produtivo. []'s Ricardo. _ _ _ _ _ _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca http://br.maisbusca dos.yahoo. com 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 http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Chave da tabela string, perca de performance?
Tania... Eu nunca me permito usar campos string para PK... principalmente se eles podem ser alterados... ou melhor, editados pelo cliente! Mesmo que seja um CPF da Vida... Eu seguramente esfaria as estruturas e colocaria um PK inteira, Auto-Inc, e o Cliente que se satisfaça em saber que isso é algo sobre a qual ele não tem poder de decisão. O desenvolvedor é você, e você sabe qual a melhor maneira de estruturar as suas tabelas. Como as informações têm de sair, ele diz, mas como arrumar dentro do disco... Ah!!! isso é sua competência e ele não mete o bedelho Claro, que usando aquelas palavrinhas muito polidas, e de bom alvitre! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Tânia Salgado escreveu: Pessoal, é o seguinte, tenho um sistema em desenvolvimento, que já possui umas 160 tabelas com chave simples, sendo que metade delas a chave são string, esta chave é string, pois temos a necessidade para concatenar informações necessárias, esta chave string seria muito importante, hoje até poderia criar uma chave inteira, mas iria me dificultar em outras questões, como programação e entendimento do cliente entender a estrutura da tabela. A questão é que seria muito importante esta chave, mas não poderia perder muito na performance, a diferença de performance seria muito grande? teria alguma forma de melhorar a performance.. seria neste caso de extrema importância criar indices para melhorar a performance, ou na opinião de vcs deveriam voltar em todas essas tabelas e rotinas q utilizam estas tabelas e alterar a chave para inteiro, lembrando que ainda não foi liberado o sistema para o cliente. Atenciosamente Tânia Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form com Barra de Rolagem
Já pensou em colocar um componente scrollbox (paleta aditional), arrume os componente dentro de formas a que ela sempre apareça a barra lateral. Pimba!!! Quick and easy!!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Marciot2 escreveu: Intao a propiedade AutoScrooll está como true, mais meu cliente exige que tenha essa barra de rolagem Original Message - From: Alisson Yahoo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, February 18, 2009 7:53 PM Subject: Re: [delphi-br] Form com Barra de Rolagem A propriedade AutoScroll do form não serve? [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.237 / Virus Database: 270.10.25/1958 - Release Date: 02/18/09 08:57:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Importando dados de tabelas do SQL-Server
Colegas. Estou incumbido de importar de tabelas de um banco SQL-Server de um outro aplicativo, alguns dados, para evitar trabalho de re-digitação. Nunca usei o SQL-Server. Só Firebird, Interbase, Access e Paradox. Qual a Ferramenta Free que posso usar para abrir essas tabelas? tipo um IBExpert da vida? E quais as extensões dos arquivos de massa de dados do SQL Server? Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] RS Print
Ricardo! Mas o link está quebrado! __ Emanuel Coutinho Salvador-Ba-Brasil Ricardo César Cardoso escreveu: Ele é free sim, Emanuel. Se não me engano está incluido nesse arquivo que vocÊ citou o link. []'s Ricardo. __ .
Re: [delphi-br] Chave da tabela string, perca de performance?
Concordo 100% Ricardo!!! __ Emanuel Coutinho Salvador-Ba-Brasil Ricardo César Cardoso escreveu: Talvez criar um índice nesse campo, mas acho que se ele já estiver definido como chave primária pode acabar sendo redundante, sinceramente não sei... Agora o que eu faria seria criar um campo de auto-incremento, por exemplo, e definí-lo como chave-primária. Esse campo de identificação que vc cita e que é do tipo String eu faria diferente, definiria com uma constraint do tipo UNIQUE e além disso criaria um índice nele. Digo isso pois anos atrás eu trabalhei num sistema para um laboratório de calibração de instrumentos e cada certificado tinha um número, mas apesar de ser uma seqüência, haviam possibilidades de quebra no número, segundas vias e etc e isso era demonstrado / codificado no número do certificado. A solução foi fazer o que descrevi acima, criar um campo numérico exclusivo para a chave primária e rebaixar a antiga chave primária a um campo de conteúdo único. Veja se é possível fazer isso na sua base de dados e qual o peso dessa manutenção. []'s Ricardo .
Re: [delphi-br] RS Print
Valeus!!! hehe Sds __ Emanuel Coutinho Salvador-Ba-Brasil Ricardo César Cardoso escreveu: Desculpa Coutinho, foi mal! O link mudou para este lugar aqui: [ http://www.t2ti.com/curso/video/delphi/iniciante/minicursos/RSPrint.rar http://www.t2ti.com/curso/video/delphi/iniciante/minicursos/RSPrint.rar ] []'s Ricardo. http://br.maisbuscados.yahoo.com
Re: [delphi-br] Controlar a primeira execução de um executável
Ricardo Cesar... Por que você não usa uma entrada no Registry do Windows... Vai lá no HKEY_LOCAL_MACHINE\SOFTWARE... cria uma entrada para seu software, umas chaves, e pronto. Você pode ainda procurar uma outra chave tipo em HKEY_USERS\SOFTWARE... e cria uma chave maluca lá que seó você sabe, e umas chaves esdrúxulas... e pronto... esconde lá no registro do windows... Sds __ Emanuel Coutinho Salvador-Ba-Brasil Ricardo César Cardoso escreveu: Boa tarde. Como faria para que uma rotina no meu programa só fosse executada uma única vez, durante a primeira execução do software? Até já implementei isso usando arquivos externos, campo em base de dados e o registro, mas queria saber se existe alguma outra maneira de se fazer isso, sem usar um arquivo externo. É possível? Desde já grato, Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com
Re: [delphi-br] [OFF-TOPIC] Você pesquisou antes de perguntar nas listas?
Cara... Eu toco violão desde os 12 anos... estou com 49, e ainda tenho o que aprender... já ganhei a vida tocando em barezinhos, fazendo vozx e violão... muita bossa nova, mpb, etc... tocava também umas músicas internacionais, tipo James Taylor, John Denver (do temp que morei nos USA... e ainda hoje tenho o que aprender... Imagina se na minha época tivesse internet? Comprava Vigu, para pegar as cifras, e ouvia muito muito disco para aprender as nuances dos acordes e dos dedilhados... Era taca, meu irmão! Não tem receita de bolo pronta! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Lucas Neves escreveu: Coutinho, mandou bem. So pra humorizar o que voce disse, imaginem o seguinte: Voce comprou um video-game, uma guitarrinha com 5 botoes e uma bolinha e um Guitar Hero... depois de 2 meses chegou ao melhor nivel, vencendo com 100% todas as musicas no expert. Ai voce se empolga e diz: isso e legal!. Vai la, e gasta quase 1000 reais em uma guitarra de verdade, mais 500 reais em um amplificador e mais uns 200 em um pedalzinho, cabo, fonte, etc. Depois que chega em casa percebe que ao inves de 5 botoes e uma bolinha, voce tem 6 cordas e pelo menos 22 casas. Ai vem a grande questao: voce procura na internet e por mais que ache musicas prontas com as posicoes certinhas, as primeiras vezes serao um lixo, fora que voce nao vai achar na internet como ter um ouvido bom para afinar um instrumento. Pra resolver... pura e simplesmente PRATICA e ESTUDO. Um tedio, com dedos doendo, calejados, cordas quebrando, palhetas voando pela sala, enfim... Digo isso porque fiz exatamente o que esta escrito acima (so nao comprei o game e a guitarrinha, usava emprestado). Hoje treino 1 hora por dia e ja arranho algumas coisas. Tive que fazer exatamente o mesmo com o Delphi, que ja trabalho ha 8 anos. Peguei um cd aprenda delphi em 30 aulas. Depois que terminei, achei que sabia programar. Ledo engano. Hoje, 8 anos depois com a mesma coisa, vejo que nao conheco nem metade do que a ferramenta oferece. O que e mais gostoso nisso? Todo dia um aprendizado diferente. E quem e programador, pode confirmar que tedio e mesmice faz desistir facil. Todos sempre encontrarao algo para seus programas, mas adapta-los e deixa-los perfeitos, e uma tarefa que so voce pode fazer... Pratica leva a perfeicao. Persistencia requer paciencia e nenhuma dessas 4 coisas fara de voce um nerd com problemas de relacionamento com pessoas, apenas friatara seu cerebro um pouco mais. :) Abracos a todos, Lucas Neves Coutinho - Yahoo escreveu: Sou obrigado a dar um pitaquinho aqui no comentário do ilustre colega. Na realidade a culpa não é da inclusão digital, nem do pc do milhão. A culpa é da série de cursinhos tipo Real e Dados, Microlins, etc, que de arvoram a dar cursos de Delphi, de WebMaster, etc, em 15 dias, e que numa série de aulas, com 40, ou 60 horas, dizem ao pobre coitado, que ele está apto a fazer páginas web, e programar em Delphi... Aí, quando o dito cujo sai do curso, fêz uma agendinha com 10 campos, acessou um padoidox davida, etc, se acha no direito de fazer um cartão e colocar lá Webdesigner, Desenvolvedor Delphi, e sair a luta, arranjando clientes, que diga-se de passagem, como estas pessoas não fazem a mínima idéia de quanto vai custar dar ao cliente a solução que precisa, cobram uma bagatela, por um produto que dificilmente conseguirá entregar, ou por se dar conta do tamanho do trabalho que orçou por uma ninharia, abandonando-o na cara dura! Essas pessoas, aqui não ofendendo intencionalmente, descobrem as listas de programadores, que se disponibilizam a trocar informações e ajudar os colegas... Só que uma pessoa que acabou de sair de um Real e Dados da Vida, está acostumado à receitas de bolo prontas, pega um botão aqui, cola ali, faz um codigozinho aqui, e outro ali, e pimba... tá pronto. Árdua e dolorosamente descobrem que o buraco é mais fundo, que a porca torceu o rabo, mas doeu... então... desesperam, e as vezes a resposta está ali... na cara... de forma elementar... só que eles nunca lustraram os bancos de um curso técnico, nem de uma faculdade, com seus glúteos, nem foram chamados de CDF, por dedicarem-se integralmente ao estudo e à busca de novos aprendizados... Alguns, que passam a gostar da profissão, descobrem que é uma busca constante de atualização, e aprendizado, e que não dá para ser aquele carinha descolado, que tem tempo para todas aquelas coisas sociais... etc... e passam a realmente estudar... e passam a usufruir da delícia que é descobrir coisas novas, e ver os seus esforços serem coroados de êxito! Assim, aos que se enquadram ao que o colega se refere, minha sugestão. ESTUDEM... RALEM não adianta querer ser programador se não sabe o elementar de matemática. Se lógica é algo que ainda fui dentro das suas veias, tome doses cavalares, endovenosas de álgebra, lógica
Re: [delphi-br] [OFF-TOPIC] Você pesquisou antes de perguntar nas listas?
É Silvio... Embora a maioria dos discursos de Hitler seja sempre visando o encorajamento das tropas, suscitando os almejados destinos da guerra, e seus sonhos de vitória... (apresentados no livro Mein Kampf)... e este discurso não é diferente... para o leigo, até parece que ele está mandando um recado!!! A brincadeira foi interessante... embora um pouco pesada!!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Silvio Clécio escreveu: Olá galera, Essa é só para descontrair, vejam se o que o título sugere fosse na época de Hitler, com muito humor é claro :D ! Link - [http://silvioclecio.blogspot.com/2009/02/voce-pesquisou-antes-de-perguntar-nas.html http://silvioclecio.blogspot.com/2009/02/voce-pesquisou-antes-de-perguntar-nas.html]. P.S.: Se o e-mail não for aprovado pela moderação, pode excluir sem problemas :) []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] Você pesquisou antes de perguntar nas listas?
Sou obrigado a dar um pitaquinho aqui no comentário do ilustre colega. Na realidade a culpa não é da inclusão digital, nem do pc do milhão. A culpa é da série de cursinhos tipo Real e Dados, Microlins, etc, que de arvoram a dar cursos de Delphi, de WebMaster, etc, em 15 dias, e que numa série de aulas, com 40, ou 60 horas, dizem ao pobre coitado, que ele está apto a fazer páginas web, e programar em Delphi... Aí, quando o dito cujo sai do curso, fêz uma agendinha com 10 campos, acessou um padoidox davida, etc, se acha no direito de fazer um cartão e colocar lá Webdesigner, Desenvolvedor Delphi, e sair a luta, arranjando clientes, que diga-se de passagem, como estas pessoas não fazem a mínima idéia de quanto vai custar dar ao cliente a solução que precisa, cobram uma bagatela, por um produto que dificilmente conseguirá entregar, ou por se dar conta do tamanho do trabalho que orçou por uma ninharia, abandonando-o na cara dura! Essas pessoas, aqui não ofendendo intencionalmente, descobrem as listas de programadores, que se disponibilizam a trocar informações e ajudar os colegas... Só que uma pessoa que acabou de sair de um Real e Dados da Vida, está acostumado à receitas de bolo prontas, pega um botão aqui, cola ali, faz um codigozinho aqui, e outro ali, e pimba... tá pronto. Árdua e dolorosamente descobrem que o buraco é mais fundo, que a porca torceu o rabo, mas doeu... então... desesperam, e as vezes a resposta está ali... na cara... de forma elementar... só que eles nunca lustraram os bancos de um curso técnico, nem de uma faculdade, com seus glúteos, nem foram chamados de CDF, por dedicarem-se integralmente ao estudo e à busca de novos aprendizados... Alguns, que passam a gostar da profissão, descobrem que é uma busca constante de atualização, e aprendizado, e que não dá para ser aquele carinha descolado, que tem tempo para todas aquelas coisas sociais... etc... e passam a realmente estudar... e passam a usufruir da delícia que é descobrir coisas novas, e ver os seus esforços serem coroados de êxito! Assim, aos que se enquadram ao que o colega se refere, minha sugestão. ESTUDEM... RALEM não adianta querer ser programador se não sabe o elementar de matemática. Se lógica é algo que ainda fui dentro das suas veias, tome doses cavalares, endovenosas de álgebra, lógica, algoritmo, e acima de tudo... nunca esqueça do VERNÁCULO, pois sem ele, sua proposta de desenvolvimento será sumariamente colocada de lado, pois ninguém leva a sério um profissional que não escreve direito! Conhecer o idioma inglês, também ajuda... não precisa ser fluente, como alguns da nossa lista, mas tem de procurar saber ler, e traduzir em um nível ao menos intermediário. Abrir-se-iam portas inimagináveis... Assim... pedindo desculpas por ser tão prolixo... espero que os amigos não tomem como uma rasteira, nem uma paulada na moleira, mas como um empurrãozinho (para frente) apenas no sincero interesse de ver cada um de nós melhorando a cada dia. Abraços, e sinceros desejos de profícuos negócios a todos!!! __ Emanuel Coutinho Salvador-Ba-Brasil JB escreveu: foi ótimo rsrs realmente, maldits semi-analfabetos funcionais, maldita inclusao digital e pc do milhao kk!!! José Benedito Software Developer +55 19 8116-7826 msn: jb_holam...@hotmail.com mailto:jb_holambra%40hotmail.com skype:jb.sologix
Re: [delphi-br] ADO ( DBGO ) - Como passa r data nula ao banco? Ainda não não deu!!!
Se não me falha a memória, Consegui uma vez passar algo tpo assim: query.parambyname('dt_inclusao').asstring := ''; Acho que foi isso... testa aí mano!!! A propósito, porque vc está usando query.parameters.parambyname... não precisa desse parameters, só o query.parambyname('').as... Sds __ Emanuel Coutinho Salvador-Ba-Brasil *laureanonu...@yahoo.com.br escreveu:* *Colega, O ADO ( DBGO ) nao aceita: query.Parameters. **ParamByName(**'dt_inclusao'**).clear. nem query.Parameters.**ParamByName(**'dt_inclusao'**).value := null; nem query.Parameters.**ParamByName(**'dt_inclusao'**).asvariant := null; Bah, essa tá difícil, na web não achei nada sobre o tema. Valeu pela tentativa. Mais sugestões? Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO * .
Re: [delphi-br] Cadastro de Operadores do Sistema.
Valdir Eu acho que você poderia usar um componente para isso, mas para evitar ficar na mão de um desenvolvedor que pode simplesmente parar de dar manutenção a um componente que não é extremamente complexo, sugiro que você crie um padrão para sua aplicações, tipo: Tabela Usuarios us_login varchar 10 us_nomecompleto varchar 40 us_funcao varchar 40 tabela permissoes pe_sequencial integer*** - PK (usar auto-incremento) us_login varchar 10 *** - FKclaro pe_rotina varchar 50 *** - nome da rotina do sistema pe_incluir pe_alterar pe_deletar pe_imprimir pe_processarvarchar 3 com check para SIM ou NÃO Uma função que retorne um valor booleando com os seguintes parâmetros: Function Pode(username, rotina, operacao: String): Boolean begin if permissoes.locate('us_login;pe_rotina',vararrayof([username,rotina],[locaseInsensitive]) then begin if operacao = 'incluir' then Pode := permissoespe_podeincluir.asboolean; if operacao = 'alterar' then Pode := permissoespe_podealterar.asboolean; if operacao = 'deletar' then Pode := permissoespe_podedeletar.asboolean; if operacao = 'imprimir' then Pode := permissoespe_podeimprimir.asboolean; if operacao = 'processar' then Pode := permissoespe_podeprocessar.asboolean; end; end; No seu código, antes de incluir, alterar, etc, é só chamar a rotina e verificar se o usuário tem permissão para fazer o que intenciona... Espero que isso te ajude! Eu uso nos meus aplicativos uma estrutura muito similar, e funciona just dandy. Só não pode esquecer de verificar as permissões. Sds Emanuel Coutinho __ Emanuel Coutinho Salvador-Ba-Brasil valdirdill escreveu: Olá, Estou fazendo um módulo para cadastro de operadores no sistema, onde cada operador receberá níveis diferentes de poder para cada um dos módulos que compõe o sistema. Entre outros campos, na tabela CadOperadores, existem os campos CAD_CLIENTES, CAD_FORNECEDORES, VENDAS, LCTO_CAIXA e RELATORIOS. São do tipo integer; A idéia é que no programa, haja uma interface para que, ao se cadastrar um operador, possa se atribuir nível 1 ou nível 2 a cada um dos campos acima. Estou desenvolvendo a interface da seguinte forma: coloquei dois TlistBox. No primeiro, tem os seguintes Items inseridos: Cadastro de Clientes, Cadastro de Fornecedores, Vendas de Produtos, Lançamentos no Livro Caixa e Relatórios. O segundo não está em branco. Existem botões permitindo que cada uma desses Items possam ser movidos do ListBox1 para o ListBox2 ou vice-versa. Ao clicar no botão Gravar deve haver uma rotina que verifique onde está cada Items. Se, por exemplo, Lançamentos do Livro Caixa estiver no ListBox1, o campo LCTO_CAIXA da tabela CadOperadores := 1; se estiver ListBox2, o campo LCTO_CAIXA da tabela CadOperadores := 2. A dúvida é: como fazer isso, ou seja, verificar onde cada Items está e gravar o respectivo valor na tabela? Até o momento a única idéia que me veio, seria: For I := 0 to ListBox1.Items.Count-1 do if ListBox1.Items[I] = 'Lançamentos do Livro Caixa then CDSOperadores.FieldByName('LCTO_CAIXA').asInteger := 1 else CDSOperadores.FieldByName('LCTO_CAIXA').asInteger := 2; Até que funcionaria, mas me parece um pouco trabalhoso demais. Será que não há uma maneira mais simples de se fazer essa rotina. Lembro que citei apenas 5 campos da tabela, mas na verdade são mais 50 e também quero fazer 3 níveis. Aí seriam 3 TListBox. Fazer esses IFs para cada campo e um for para cada TListBox? Qualquer dica ajuda. Obrigado Valdir Dill
Re: [delphi-br] Cadastro de Operadores do Sistema.
Errata!!!]] Faltou um parêntese permissoes.locate('us_login;pe_rotina',vararrayof([username,rotina]),[locaseInsensitive]) __ Emanuel Coutinho Salvador-Ba-Brasil Coutinho - Yahoo escreveu: Valdir Eu acho que você poderia usar um componente para isso, mas para evitar ficar na mão de um desenvolvedor que pode simplesmente parar de dar manutenção a um componente que não é extremamente complexo, sugiro que você crie um padrão para sua aplicações, tipo: Tabela Usuarios us_login varchar 10 us_nomecompleto varchar 40 us_funcao varchar 40 tabela permissoes pe_sequencial integer *** - PK (usar auto-incremento) us_login varchar 10 *** - FKclaro pe_rotina varchar 50 *** - nome da rotina do sistema pe_incluir pe_alterar pe_deletar pe_imprimir pe_processar varchar 3 com check para SIM ou NÃO Uma função que retorne um valor booleando com os seguintes parâmetros: Function Pode(username, rotina, operacao: String): Boolean begin if permissoes.locate('us_login;pe_rotina',vararrayof([username,rotina],[locaseInsensitive]) then begin if operacao = 'incluir' then Pode := permissoespe_podeincluir.asboolean; if operacao = 'alterar' then Pode := permissoespe_podealterar.asboolean; if operacao = 'deletar' then Pode := permissoespe_podedeletar.asboolean; if operacao = 'imprimir' then Pode := permissoespe_podeimprimir.asboolean; if operacao = 'processar' then Pode := permissoespe_podeprocessar.asboolean; end; end; No seu código, antes de incluir, alterar, etc, é só chamar a rotina e verificar se o usuário tem permissão para fazer o que intenciona... Espero que isso te ajude! Eu uso nos meus aplicativos uma estrutura muito similar, e funciona just dandy. Só não pode esquecer de verificar as permissões. Sds Emanuel Coutinho __ Emanuel Coutinho Salvador-Ba-Brasil valdirdill escreveu: Olá, Estou fazendo um módulo para cadastro de operadores no sistema, onde cada operador receberá níveis diferentes de poder para cada um dos módulos que compõe o sistema. Entre outros campos, na tabela CadOperadores, existem os campos CAD_CLIENTES, CAD_FORNECEDORES, VENDAS, LCTO_CAIXA e RELATORIOS. São do tipo integer; A idéia é que no programa, haja uma interface para que, ao se cadastrar um operador, possa se atribuir nível 1 ou nível 2 a cada um dos campos acima. Estou desenvolvendo a interface da seguinte forma: coloquei dois TlistBox. No primeiro, tem os seguintes Items inseridos: Cadastro de Clientes, Cadastro de Fornecedores, Vendas de Produtos, Lançamentos no Livro Caixa e Relatórios. O segundo não está em branco. Existem botões permitindo que cada uma desses Items possam ser movidos do ListBox1 para o ListBox2 ou vice-versa. Ao clicar no botão Gravar deve haver uma rotina que verifique onde está cada Items. Se, por exemplo, Lançamentos do Livro Caixa estiver no ListBox1, o campo LCTO_CAIXA da tabela CadOperadores := 1; se estiver ListBox2, o campo LCTO_CAIXA da tabela CadOperadores := 2. A dúvida é: como fazer isso, ou seja, verificar onde cada Items está e gravar o respectivo valor na tabela? Até o momento a única idéia que me veio, seria: For I := 0 to ListBox1.Items.Count-1 do if ListBox1.Items[I] = 'Lançamentos do Livro Caixa then CDSOperadores.FieldByName('LCTO_CAIXA').asInteger := 1 else CDSOperadores.FieldByName('LCTO_CAIXA').asInteger := 2; Até que funcionaria, mas me parece um pouco trabalhoso demais. Será que não há uma maneira mais simples de se fazer essa rotina. Lembro que citei apenas 5 campos da tabela, mas na verdade são mais 50 e também quero fazer 3 níveis. Aí seriam 3 TListBox. Fazer esses IFs para cada campo e um for para cada TListBox? Qualquer dica ajuda. Obrigado Valdir Dill
Re: [delphi-br] Error ao converter string
Grande João... Como sempre tirando uma diquinha genial da manga... Valeu! __ Emanuel Coutinho Salvador-Ba-Brasil Joao Morais escreveu: 2009/2/6 Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br: Adenes Junior escreveu: Porque ao converter a string 532,32 para real está dando erro? Qual o separador de decimal que está configurado no Regions do sistema operacional? Se for . vai dar errado mesmo! Vá nas configurações do Windows e veja a discrepância pode estar lá! Se você preferir ignorar o ponto ou vírgula, converte a vírgula para ponto (StringReplace é sua amiga aqui) e use a procedure Val. Joao Morais
Re: [delphi-br] Error ao converter string
Qual o separador de decimal que está configurado no Regions do sistema operacional? Se for . vai dar errado mesmo! Vá nas configurações do Windows e veja a discrepância pode estar lá! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Adenes Junior escreveu: Porque ao converter a string 532,32 para real está dando erro? [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
Re: Res: [delphi-br] dbgrid
Caros O banco de dados nos dá em tempo real, a quantidade de registros que foram inseridos. Assim, Concordo com o colega que sugeriu uma verificação no evento beforeinsert. é bem mais simples, a reputo + seguro, uma vez que está verificando no banco, e controlando o banco... verificar aqui e controlar lá... não vejo como uma boa saída. Se já tem 10 registros nos itens da tabela, quer master ou detail, no before insert, dá um abort! Safer and cleaner!!! Sds, __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Não arredondar valores
Ralph, O que vc está relatando parece que seu campo de quantidade é inteiro. Programei com Pdox anos a fio, e isso nunca aconteceu, usando os campos do tipo correto. Verifique se em algum lugar, não está calculando uma saída com campo que aceite casas decimais, em cima de um campo inteiro... O Paradox não faz arredondamentos para inteiro, se o campo não foi inteiro. Na pios das hipóteses, aredonda para a quantidade de casas decimais que vc definiu para um campo que aceite casas decimais... /Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: RES: [delphi-br] Não arredondar valores
Ralph O que acha que acontece quando vc tipa um campo AS INTEGER? AS INTEGER = COMO INTEIRO Você deveria colocar como Ascurrency, para aproximar automaticamente em 2 casas decimais, ou como asfloat... Não acredito que vc está fazendo isso! Sds Emanuel Coutinho!
Re: Res: [delphi-br] Dica de Site de Componentes
Link porreta Ricardo. Valeu! E tem o do outro colega dele que é parceiro dele num outro componente, que o cara é bom também!!! Muito Bom!!! -- __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Consultas em BD Access
Rafig O Kiril Antonov mantém um site onde ele tem os produtos free e os pagos. olha o link aí http://www.kadao.dir.bg/ Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Mais de uma condição com FormatDatetime!!!
Rafael Eu entendi que vc permite que o funcionário saia do trabalho após as 18 horas... Não seria mais interessante vc permitir que ele registre sua saída a qualquer momento? Para isso, ao registrar o ponto, o sistema deveria ler o último lançamento de registro daquela matrícula e automaticamente definir qual o tipo de lançamento que estaria sendo feito naquele momento. O problema é que o funcionário pode ter esquecido de registrar no dia anterior a saída e ter a entrada bloqueada no dia seguinte, ou esquecer de bater a entrada, e querer registrar a saída. Isso é trabalhoso para o usuário (funcionário) mas facilita no final na composição dos cálculos de horas. Veja, Situação 1. Funcionário entrou, bateu ponto e saíu sem registrar saída No dia seguinte, o sistema alerta que ele não pode dar entrada, pois não registrou saída do dia anterior e manda ele procurar o supervisor... Aí entra a rotina de acerto feita com senha especial. Problema resolvido e cálculo de horas trabalhadas perfeito no fim das contas sem pendências. Situação 2 Funcionário esqueceu de bater ponto na entrada, ao sair o sistema verifica que ele não pode registrar saída sem entrada. Manda o dito cujo procurar o supervisor. Aí entra a rotina de acerto feita com senha especial. Problema resolvido e cálculo de horas trabalhadas perfeito no fim das contas sem pendências. Situação 3 Funcionário bateu ponto na entrada hoje, saiu sem bater o ponto, pensadamente, não bateu ponto de entrada no dia seguinte, e tentou bater o ponto na saída, O sistema verifica a quantidade de horas entre entrada e saída, ealerta para que chame o supervisor, sem permitir que registre o ponto... Aí entra a rotina de acerto feita com senha especial. Problema resolvido e cálculo de horas trabalhadas perfeito no fim das contas sem pendências. Agora... A comparação de horas, no meu ver, deve sempre ser feita no formato numérico, ou TDateTime... Não transforme em texto. Compare hora maior com hora menor para extrair diferença de tempo entre elas... transformando tudo em minutos... é mais negócio... Ou compare as duas para saber se uma é maior que a outra. As datas são na realidade números que a parte inteira representam os dias, e a decimal a fração dos dias... assim, comparar números de mesmo formato, fica bem mais simples... Espero ter ajudado! Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: Res: [delphi-br] Condenacao Daruma
Colega... Você não deveria ser profissional de informática, mas advogado! Entendo que LEI É LEI. O que fere a lei é crime! Ou na pior das hipóteses, CONTRAVENÇÃO. Tendo ou não sido ferido dessa ou aquela forma, estando ou não desgastado no relacionamento com a empresa, ainda aissm, não há desculpa, pois o LADO HUMANO que o nobre colega incita lembrar, é que admoesta que, TODOS, sem exceção, vivemos regidos por NORMAS LEGAIS e por sermos humanos e PENSANTES, temos a OBRIGAÇÃO de nos submetermos a elas. Essa leniência é que leva muitos a achar um MOTIVO para atos execráveis. Gente que acha que pode buscar uma maneira de anular a LEI se agrupar gente suficiente que pense diferente. Muitos sindicatos, sempre agiram assim. Isso é o mesmo que achar certo uma pessoa assaltar um banco, para financiar ativismo político. Ora, me bata um abacate... Assalto a banco é crime, não importa se a pessoa fez isso para custear uma luta pela democracia. LEI É LEI e crime é sempre punível nas normas da lei. Tem certeza de que vc não do PT? Sds Emanuel Coutinho Ricardo César Cardoso escreveu: Não sei como foi o rompimento entre Claudenir e Bematech, por isso acho até injusto me precipitar ou emitir pontos de vista sobre ele. Será que não houve um desgaste entre ele e a empresa, e que essa atitude não foi a paga? Será que havia algum tipo de contrato que impedia a reprodução do código ou sua confidenciabilidade? É muita coisa pra se conhecer antes de julgar. A atitude em si é reprovável, ilegal, anti ética e etc, mas oras, existe o lado humano. Este é o fator que deve ser questionado. E a melhor pergunta é o que levou o Claudenir a esta atitude? Bem disse o Walter que já houveram mensagens bens ríspidas do Claudenir a respeito da Bematech após sua saída de lá. Normalmente o tom de suas mensagens é outro, sempre solícito e disposto a ajudar (e efetivamente ajudar, diga-se de passagem) Troquei algumas mensagens diretamente com o Claudenir quando comprei seu livro sobre automação comercial (em 2005-2006) a respeito de dúvidas que tinha naquele momento. Sua ajuda espetacular. Nunca ninguém foi tão solícito comigo sem eu sequer saber como era a aparência daquela pessoa. O mesmo digo para outros como Walter Chagas, João Morais, Silvio Clécio entre outros que não me recordo o nome, mas guardo suas contribuições com muito carinho, admiração, respeito e gratidão. Por isso para mim julgá-lo é difícil, pois não conheço os motivos da sua saída e nem o relacionamento interno com o pessoal da Bematech. []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 29/1/09, Elazar Dornelles Ceza elazar...@yahoo.com.br mailto:elazar021%40yahoo.com.br escreveu: Totalmente de acordo, será que precisava copiar e colar mesmo se já fez uma vez, tenho certeza de que faria de novo, e derrepente muuto melhor... mas derrepente foi esta a deixa que ele usou pra troca de emprego... ganhar um pouco mais. _ _ __ De: Coutinho - Yahoo emanuelcoutinho@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Quarta-feira, 28 de Janeiro de 2009 22:20:38 Assunto: Re: [delphi-br] Condenacao Daruma Se eu fosse empregador, não aceitava, pois cesteiro que faz 1 cesto, faz 100... _ _ Emanuel Coutinho Salvador-Ba- Brasil 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] -- __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Condenacao Daruma
Também acho amigo, mas na época estava precisando da vaga... e aí... de qualquer forma, o período que passei nessa emrpesa não foi longo... e pasme... eles me demitiram por telefone, quando estava enfermo em casa, com atestado médico... Se eu quisesse fazer uma celeuma, podia ter arrancado um dinheiro deles, mas como também já estava insatisfeito, deixei a coisa rolar... Eu podia ter sacaneado os caras de montão... Eles pagavam 40% na cartei ra e o resto por fora... podia ter pedido para recolherem meu inss integral, provar em juízo que eles sonegavam e a zorra, mas não conseguia mais nem falar o nome da desgraçada da empresa, pois fui chamado para fazer uma coisa, acabei fazendo outra, o que eles me convidaram para tocar, deram para outro, e foi uma JOSTA... mas a vida é cíclica, e hoje, espero que tenham aprendido, e eu estou de bem com minha consciência! Isso foi há muito tempo... final dos aos 90... Para vc ver, o Flash-Filer era novidade!!! Abraços __ Emanuel Coutinho Salvador-Ba-Brasil *Walter Chagas (Bol) escreveu:* *Ue, mas peraí! ferramentas de terceiros que eles usam e QR-Design sequer os direitos autorais destes produtos são deles. Acho que abusaram da sua necessidade da vaga e lhe fizeram assinar isto sob a filosofia do ou dá ou desce. Queria ver eles levaram isso pro pau, se iriam ganhar. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr * * * --
Re: [delphi-br] Condenacao Daruma
Alex É bom passar a saber isso Alex, mas será que não precisamos , ainda, oma evolução significativa nas nossas leis , visando uma equiparação com a evolução com que as coisas acontecem? O direito da propriedade intelectual ainda é muito precário no nosso país... e informática ainda é coisa muito recente para que o Direito acompanhe e haja normas claras e bem definidas quanto a tudo que envolve os assuntos de informática! Obrigado. Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] form maximizado duvida
Caro colega pelebr Acho que você precisa pensar numa coisa: A maioria dos monitores hoje utiliza 1024x768, mas há ainda aqueles que por necessidade especial, mantém letras maiores na tela, assim, é sempre bom, fazer seus programas com menos informação agrupada na tela, usando como base uma resolução menor. Mas há ainda a possibilidade de você alterar a resolução de tela na abertura do sistema, e restaurar na saída do sistema. Vou procurar nos meus alfarrábios as funções... e de repente encontro!!! __ Emanuel Coutinho Salvador-Ba-Brasil *pelebr escreveu:* *estou com uma duvida seria, quero criar formularios maximizados e aproveitar o maximo de espaco possivel da tela, mas nao quero que de problema se o usuario tiver numa resolucao de 800x600 nao vai aparecer metade do form na tela. Entao estou usando 1024x800 no desenvolvimento ai um usuario deste sistema vai usar por exemplo em 800x600 e nao vai dar certo. a pergunta eh como fazer forms maximizados * **
Re: Res: [delphi-br] Deixando minha aplicacao bonita
É isso aí Walter... Vc bateu na veia!!! Parece até já havíamos elocubrado juntos sobre o assunto antes, e pelo visto, você compreendeu bem quando falei do ponto ergonômico em relação a interface. É como sempre... aprendemos a cada dia ao logo da vida... Ninguém sabe tudo, e sempre se tem algo a aprender com o semelhante! Terrível mesmo foi conseguir colocar as cores da empresa, uma imobiliária, que tinha uma logomarca como a escola de samba mangueira... Verde e Rosa!!! E as letras eram clOlive, puxando pro dourado!!! Péssimo gosto!!! Complicou Geral!!! Consegui equacionar a coisa... Telinha branca, com duas tarjinhas bem fininhas uma verde, e outra rosa... mas bem fininhas mesmo!!! As letras em vede bem escuro, quase preta... caracteres com fonte bem light... aí ficou até bem legal! __ Emanuel Coutinho Salvador-Ba-Brasil Walter Chagas (Bol) escreveu: Algumas coisas voce pode até usar e fugir da tela cinzenta do Windows. Por exemplo, quem aqui já teve contato com o SAP ou mesmo com o ADVPx da Microsiga, sabem do que estou falando. Mas aquilo lá que vemos, apesar de fugir do padrão cinzendo, não é extravagante e nem papagaiado. No ultimo DDD, por exemplo, o Caique me mostrou um sistema que ele fez e que ele usa Skins. A coisa ficou muito bem apresentável, de bom gosto e nada que cause impacto rejeitivo ao usuário. MAS! Ainda que ele usou skins, ele foi bem racional e sensato no que fez. As telas sao no padrão azul com uma logomarca da empesa discreta lá. Botões num canto da tela. Uma grid na parte central, tudas a fontes tendendo ao azul pra combinar com a tela. Ou seja, um usuário bate o olhe e ve o que precisa. E o visual é agradável. Agora, tudo dentro do bonsenso. como o Coutinho falou, ele faz as telas muitas vezes com base nas cores da empresa. Se as cores da empresa forem Vermelho e branco, por exemplo, voce pode usar skins que montem uma tela branca com bordas vermelhas ou mesmo uma tarja vermelha em algum ponto alí. Se as cores da empresa forem vermelho e verde, pode-se também usar a tela branca com uma tarja bicolorida em vermelho e verde por exemplo. As fontes podem ser na cor preta e alguma coisa na cor da empresa. mas que fique tudo num padrão de cores homogeneo e uniforme. Acho que é o que ele faz. Algo deste tipo, não sei. Agora Montar tela vermelhona cheguei com texto em verde e grid com faixas multicoloridas e texto azul? eu não acredito que ele faça isso não. Mas eu já vi sistema que é desse jeito. Podem acreditar. Quem aqui já usou o software de P2P WinMX, sabe como é triste uma tela mal feita, bagunçada e cheia de botões que não te levam a lugar algum e pior, uma grid que cada linha é de uma cor, cada edit na tela tem uma cor... Quem nunca viu e nem ouviu falar desse programa, veja uma imagem dele aqui: http://www.geocities.com/SiliconValley/Bay/1058/InterfaceConfusa.jpg http://www.geocities.com/SiliconValley/Bay/1058/InterfaceConfusa.jpg quem quiser ler o artigo todo, referente a esta tela, pode acessá-lo em http://www.geocities.com/SiliconValley/Bay/1058/Caracteristicas.html http://www.geocities.com/SiliconValley/Bay/1058/Caracteristicas.html []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr
Re: [delphi-br] Traduzir mensagem delphi em package
Uma outra solução é você usar: application.messagebox(...) Com ela, vc está usando uma api do windows, e os botões ficam todos em português. Tem de colocar ShellApi na cláusula Uses (lá no topo da unit... No caso de obter simplesmente um Sim/Não, olha uma funçãozinha que criei para solucionar rápido meus poblemas... --- function Confirma_SN(Mensagem, Titulo: String): Boolean; begin Confirma_SN := (Application.MessageBox(Pchar(Mensagem),Pchar(Titulo),MB_YESNO+MB_ICONQUESTION)=IDYES) end; -- Para que complicar? Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Sistema Templos religiosos
Rodrigo Eu já fiz para três igrejas (denominações) diferentes, e cada uma queria fazer a coisa de uma forma diferente, pois depende muito de como são administrados os dízimos, as ofertas, etc... Há algumas que enviam tudo para as associações, e estas distribuem, inclusive os salários dos pastores... outras, administram os próprios fundos, através de uma comissão, e o pastor encabeça isso... Outras, a comissão administra apenas as ofertas, tanto de coletas, quanto sistemáticas... Acho que vc tem de procurar conversar bem com quem te encomendou o sistema, pois fazer as telas é fácil, mas depois que vc conceber a forma que o dinheiro for administrado, vai ficar cruel ter de acoxambrar para uma forma diferente! Se precisar de alguma dica me chame em pvt Sds __ Emanuel Coutinho Salvador-Ba-Brasil Gmail - Sharplinux escreveu: Bom dia! Gostaria de saber se alguém tem algum exemplo de sistema para templos religiosos. Preciso de um exemplo para estudos. Agradeço a todos. Rodrigo Santos Belo Horizonte - MG .
Re: [delphi-br] Consultas em BD Access
Colega... Quais os componentes que está usando para o acesso a base da dados do access Se estiver usando gbGo, ou ADO, tem de fazer a query, montar sua pesquisa em run-time Se estiver usando KaDAO, que eu acho imensamente superior ao ADO, e é FREE, pode criar suas consultas customizadas no banco e buscar passando parâmetros.. assim, primeiro, informe-nos o que usa para acessar, depois então podemos te ajudar melhor! Lembre que as coisas podem ficar lentas se fizer muito tráfego pela rede, assim, o máximo que puder deixar para rodar no banco, melhor... Filtros bem específicos nas suas queries vão facilitar bastante nessa parte! Uso muito bases de dados access, e uso tanto Diamond Access, quanto KaDAO... Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Condenacao Daruma
Engraçado! Eu trabalhei para uma Software-House aki em Salvador há muitos anos atrás, e a primeira coisa que eles me fizeram assinar foi um contrato de me comprometia a nunca usar tecnologia desenvolvida, ou técnicas aprendidas na empresa... Tanto que passei 3 anos sem fazer 1 software sequer que usasse Flash-Filer... e até um cliente meu que havia ouvido do flash-filer como saída para substituir o paradox, me pediu e eu não pude fazer, fiz com access, ele comprou o Diamond Access e me deu como parte do pagamento do software, assim como um Corsa 96, pois a coisa ficou esquisita para ele por conta de um sócio! hehehehe Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Consultas em BD Access
Para mim, acesso nativo, direto pela DAO, pra access, é bem melhor que usar ODBC... Não concorda? Assim também prefiro o Diamond Access, pois acessa a DAO diretamente... Outros colegas aqui na lista também já corroboraram efusivamente o uso do Diamond Access... O KaDao para mim é quase tão bom quanto o Diamond Access... Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Condenacao Daruma
Se eu fosse empregador, não aceitava, pois cesteiro que faz 1 cesto, faz 100... __ Emanuel Coutinho Salvador-Ba-Brasil Julio Cesar escreveu: queimacao de filme eh pior q pagar indenizacao, a credibilidade do cara vai a zero... quem eh q vai colocar uma pessoa pra mexer nos fontes da empresa, onde tem td o segredo do sucesso do programa, sabendo q ele ja deixou uma empresa levando consigo o diferencial tecnico e beneficiando outra empresa? acho q o Claudenir foi infeliz nessa historia... julio cesar - --
Re: [delphi-br] Condenacao Daruma
É Walter... Eu assinei um documento em que ele listava as tecnologias que não poderia usar, entre componentes, ferramentas de terceiros que eles possuíam, um questionário que tinha de responder, e demonstrava que eu conhecia ou não esse ou aquele assunto. Lembram do QR-Design: Eu não conhecia, conheci lá... mas se quisesse, não poderia usar por um tempo... pois no documento estava listado, e na pergunta que respondi, o fiz dizendo que não havia usado os componentes, assim como o Flash filer... entre outras coisas... Então, eu, sabedor disso, evitei usar o que por um aborto da casualidade pudesse me complicar... Existiam outras alternativas, das quais lancei mão... Eles tinham uns componentes legais de pesquisa no banco e edição, junto com lookupCombobox... uma idéia genial... que eles usam nos sistemas deles. e outros componentes que eles mesmos desenvolveram lá... e nunca usei fora de lá... Claro, que seu eu entrasse numa outra empresa, que já possuísse e usasse o QR-Design, por exemplo, isso não consistiria em quebra de contrato... por razões óbvias... Falo dos meus próprios programas... Até mesmo porquê eu acho que sempre tem uma maneira de vc fazer a coisa de forma certa!... Quanto a evolução normal e aprimoramento do código ninguém pode aferir se foi aqui ou ali... A questão da jurisprudência, é complicado, e vc tem razão quando coloca seu ponto de vista... mas aí, volta a questão da ética. No nosso país esse é um ponto extremamente elástico... Haja vista a posição atual do partido que mais bateu nos outros enquanto era oposição e hoje, na situação, lança mão dos mesmos artifícios e meandros das brechas da lei para se locupletar. Só um parênteses... O que é que os PTistas diriam do governo FHC se eles dessem asilo político a um criminoso? Bateriam até o FHC colocar a língua prá fora... E no entanto hoje... Tá o Italiano aí para se beneficiar... Então meu caro, temos muito ainda o que discutir, e argumentar, tanto para que nossos colegas de profissão usem da mesma lisura para com a à propriedade intelectual alheia quanto esperam daqueles que usam o que por eles foi desenvolvido! Um abraço, __ Emanuel Coutinho Salvador-Ba-Brasil Walter Chagas (Bol) escreveu: Voce assinou um documento no qual voce se comprometia a não usar tecnologia desenvolvida lá. Mas isso, pensa bem. Como provar que voce se apoderou de tecnologia lá? Voce pode ter aprendido a desenvolver a tecnologia lá e ido pra outro lugar e desenvolver semelhante. Isto não é previsto em lei, então teriamos que saber se há ou não há jurisprudencia pra proteção de conhecimento adquirido em outro lugar. Até porque, olha só o argumento, se voce for mandado embora de lá então voce não pode aplicar seu conhecimento para conseguir outro emprego? O que eu entendi do documento, é que voce NÂO pode pegar um projeto desenvolvido lá e levar pra outro lugar. Me corrija se eu estiver equivocado. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - --
Re: [delphi-br] Deixando minha aplicacao bonita
Walter... Você falou pouco, mas falou TUDO! Eu mesmo uso interfaces com algumas cores bem estudadas, e sempre padronizado... Mas sempre visando um aspecto clean... É isso aí... Inclusive, o conforto do usuário na facilidade de enxergar o que é importante, ou seja, a informação, faz parte de uma cadeira chamada ERGONOMIA... que não se aplica unicamente à postura do funcionário, nem a quanto peso ele está levantando... como o sistema interfere no desempenho dele, é fundamental... Parabéns camarada pelo seu comentário!!! Sds Emanuel Coutinho Walter Chagas (Bol) escreveu: Amigo, Aquela cara cinzenta de sistema que voce chama de convencional, na verdade, é a forma correta de fazer tela de sistema. Cê ve que aquilo lá não foge muito do que também o Linux, o MAC e outros SOs famosos por aí também propôem ao usuário final. Sistemas devem ser práticos, leves, simples e OBJETIVOS. A famosa cara cinzenta de sistema convencional é, na verdade, fruto de um longo e duradouro estudo da Microsoft sobre a Interface homem-Maquina e já que voce está numa faculdade, muito provavelmente você irá estudar isto (se não já estudou). Telas papagaiadas, cheias de imagens, gifs animados e muito coloridas, botões coloridos, etc... tendem, na verdade, é gerar rejeição ao seu sistema por parte do usuário. Telas devem ser bem limpas e contendo todas e apenas as informações que interessam ao usário. Qualidade de software está relacionada a telas bonitas, coloridas e charmosas. Qualidade de software esta relacionado a INTERATIVIDADE, PRATICIDADE, ROBUSTEZ E CONSISTENCIA DOS DADOS E INFORMAÇÕES QUE TRAMITAM NELE. Vai aí na seção de arquivos da lista, tem duas apostilas que disponibilizei a muito tempo a respeito de Interface Homem-Maquina. Baixa, lê, analisa e depois ce nos fala o que achou :) []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr
Re: [delphi-br] Tem como fazer um TForm Always-On-Top, somente na aplicaçã o?
Colega Se entendi, vc deseja deixar seu form sempre do mesmo tamanho, Creio que se vc usar a propriedade Constraints, em minheight e minwidth, a coisa pode funcionar. usando clientarea da tela mãe como referência... Consegui me fazer entender? Acho que até eu tô achando meio confuso o que escrevi... Veja aí se dá certo!!! Sds Emanuel Coutinho
Re: [delphi-br] dúvida de not
Colega, tente: if ( (not length(cpf) = 11) and (not length(cpf) = 14) ) then Showmessage('Não é nem CIC nem CNPJ'); ou ainda pode ser if ( ( length(cpf) = 11) or ( length(cpf) = 14) ) then begin Faça as sua rotina aqui... end else Showmessage('CIC/CNPJ inválido... Verifique!!!'); -- __ Emanuel Coutinho Salvador-Ba-Brasil Vinicius escreveu: Pessoal, tenho uma dúvida. Eu tenho o seguinte IF if not (Length(CPF) in [11, 14]) then a expressão Length(CPF) in [11, 14] é SEMPRE Falsa !, porém quando eu deixo o IF sem parênteses, o Delphi não entra no IF... Não sei se pode ser a ordem de precedência do NOT, sei lá Alguém sabe me dizer o porquê ? Apenas para entender..
Re: Res: [delphi-br] Deixando minha aplicacao bonita
Pessoal Não entendo como vocês fazem pada deixarem suas aplicações + bonitas, mas sabe, venho do tempo do clipper, e desde lá tinha um padrão definido para meus sistemas. Hoje, com o delphi, criei uma série de tipos de forms, que sempre herdo para meus sistemas, e não tenho me dado mal. As cores... isso depende de como farei. Se farei para um cliente, sob medida, procuro avaliar as cores da empresa... Toda empresa bem estruturada tem cores padronizadas, em sua logomarca, nos seus uniformes, etc. assim, baseado nisso, faço as cores serem mais a cara da empresa, embora tenha sempre um pouco da minha cara. Se forem softwares meus, aí, só de olhar de relance, sei o que foi feito por mim, ou não. Padrões de tela do windows, cinza... com a barra superior com os botões do windows, etc... na não... as coisas são bem definidas nesse ponto. Gosto de teclas de atalho, uma barra de mensagem indicandoa s teclas de atalho, labels clicáveis, e outras coisinhas que aliviam mais a interface, e libertam o usuário do uso do mouse, em prol de um desempenho melhor! Acho que com skins, fica-se muito na mão dos outros!!! Sds -- __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] transformar numero em negativo
Virgem Santa !!! Isso é Delphi, ou matemática elementar? Embasbaquei !!! jrsilvas...@yahoo.com.br escreveu: wvalor := 150; wvalor := wvalor * -1; Joao - Original Message - From: rzzanatta To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, January 23, 2009 10:31 AM Subject: [delphi-br] transformar numero em negativo Olá gostaria de saber como faço pra que quando eu traga um resultado positivo eu tranforme ele em numero negativo? ex: o numero 150 ficar -150... via delphi e via sql. [As partes desta mensagem que não continham texto foram removidas] -- __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Empregos em ANGOLA
Walter, Não comparei Angola com Dubai... apenas disse que as duas estão com um índice alto de investimento de construção. Só. A Odebrecht construiu, para os funcionários dela e das afiliadas a ela, verdadeiras cidades que têm de TUDO... A internet, é por satélite, e coisas assim, coisa que sòmente trabalhando para elas é que se tem condição de mensurar... A odebrech é uma empresa conceituada e o que ela trata aqui, cumpre... E além disso, tem uma coisa em obra chamada... Folga de campo, que ocorre a cada 3 meses, com passagem para o Brasil, e de retorno, paga pela empresa!!! É outra história!!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Res: [delphi-br] Ajuda com treeview
Andressa... Estou te enviando um segundo código para vc sobrepor ao que te enviei antes... acho que resolve seu problema... Em tempo... Neste segundo código, enviei hoje, mais cedo um com um pequeno bub que consertei... Veja a segunda mensagem com anexo!! Silvio Clécio... Te enviei também para vc disponibilizar no teu blog, camarada!!! Sds __ Emanuel Coutinho Salvador-Ba-Brasil Andresa Ferreira escreveu: Oi Coutinho... Eu fiz assim: procedure TfrmMenuModulos.tvMenuExpanded(Sender: TObject; Node: TTreeNode); begin inherited; with tvMenu do Select(Node); end; procedure TfrmMenuModulos.tvMenuCollapsed(Sender: TObject; Node: TTreeNode); begin inherited; with tvMenu do Select(Node); end; E deu super certo... o único detalhe agora, e que qdo abre a tela o menu está vindo aberto. O AutoExpand está False. Ele está vindo aberto por causa do evento vMenuCollapsed. Mas se eu não colocar esse, e colocar apenas o tvMenuExpanded, quando eu clico no (+) fica certinho, mas qdo eu clico p/ fechar (-) ele ainda abre uma tela que abri, e não deveria. GRata, Andresa . --
Re: [delphi-br] Re: converter .DOC para .PDF
O que vc precisa é o 5D, mas é pago... mas é bom! Mas pensando melhor, o que impede de vc salvar o conteúdo de um memo em um arquivo texto temporário em uma pasta qualquer e mandar imprimir pelo shellexecute, na boa...? usando a impressora do PDFCreator?: Sds Emanuel Couitnho Elvis L. Zoz escreveu: Alexandre, o PDFCreator funciona como um driver de impressão no windows, nesse caso creio q nao vai servir porque necessito que o sistema internamente converta um texto de um campo blob e envie por email valeu From: alexpt65 Sent: Thursday, January 22, 2009 1:50 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Re: converter .DOC para .PDF Experimenta o PDFCreator. É free e da pra gerar PDF de qualquer coisa. []s, Alexandre P. Trindade --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Elvis L. Zoz elvis...@... escreveu Boa noite, Alguem poderia me indicar um componente para Delphi 7 que converta texto com formatação(.RTF ou .DOC) para o formato .PDF? Tentei com o filtro do fortes report mas ele não tem muita fidelidade na conversão. obrigado, Elvis [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- __ Emanuel Coutinho Salvador-Ba-Brasil
Re: Res: Res: [delphi-br] Ajuda com treeview
Aí Andressa. Recebeu o exemplo do Treeview, ajudou para o que vc queria? Sds Emanuel Coutinho
[delphi-br] ClasseType, TClass etc...
Pessoal Tava pensando em fazer uma procedure, que alterasse a cor de entrada e uma para alterar a cor de saída de meus componentes de tela... tipo.. enrou no componente, fica com uma cor, saiu, retorna a cor anterior... Estou tentando criar uma procedure que possa ser usada por qualquer componente, mas estou esbarrando no TClass Normalmente, se fosse fazer no evento onEnter, e On Exit, usaria: No caso de um dbEdit usaria: (Sender as TdbEdit).color := clInfoBk Aí, estou tentando substituir o TdbEdit por uma variável, que receba a classe... mas estou esquecendo de algum pormenor, ou fazendo uma coisa muito errada... Alguém pode me dar uma ajuda? Sds -- __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] ClasseType, TClass etc...
Vou ver aqui... Se alguém tiver mais alguma idéia... Feel Free... Valeus... Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Empregos em ANGOLA
Desculpem o pitaco... Trabalho numa empresa de Engenharia, em planejamento de montagem eletro-mecânica e faço os softwares para o planejamento, assim, faço parte de uma lista de discussão de planejamento e meus colegas de lista que estão em Angola estão SATISFEITÍSSIMOS. Meu chefe quase foi prá lá há uns meses atrás, o genro dele está lá, mas a empresa daqui cobriu a oferta para manter o cara no quadro, assim, também vou ficando por aqui... se ele for, já me garantiu que me leva, e a família também. E salário, para minha função, beira os 10.000,00, fazem uma poupança com R$1.400,00 mensais para ser sua quita no fim da obra, e as coisa lá andam bem... No final das contas, no frigir dos ovos, tudo depende de para quem você trabalha! Sds, Emanuel Coutinho Walter Chagas (Bol) escreveu: Olha, das informações que já tive da Angola... Nem por 10 mil dolares mensais vale a pena ir. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Junior Terenzi To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, January 20, 2009 1:58 PM Subject: [delphi-br] Empregos em ANGOLA Alguem sabe como é o mercado de trabalho para analistas de sistemas em Angola? Se tiver algum site interessante, ou conhecer alguma oferta, eu gostaria de saber. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com treeview
Andressa, O absolute index funciona, do jeito que eu coloquei, tanto para quando clica, quanto para quando navega com as teclas... Quando vc clica no + está abrindo os children do parent node... assim, o foco ainda está no parent node... Vou verificar um teste aqui, se tem como fazer selecionar o primeiro child node qudando vc expande os children nodes... Abaixo está o código com as alterações que fiz para uncionar como necessita. Deixe o Auto-Expand Desligado, senão não vai funcionar legal unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure TreeView1Change(Sender: TObject; Node: TTreeNode); procedure TreeView1Expanded(Sender: TObject; Node: TTreeNode); private { Private declarations } public { Public declarations } Diretorio: String; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin with Treeview1 do begin LoadFromFile(diretorio+'Treeitems.txt'); SetFocus; Select(TreeView1.Items.GetFirstNode); end; end; procedure TForm1.FormShow(Sender: TObject); begin Diretorio := extractFilePath(application.ExeName); end; procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin Label1.Caption := 'Este é o Absolute Index: ' + IntToStr(Treeview1.Selected.AbsoluteIndex); Label2.Caption := 'Este é o Index: ' + IntToStr(Treeview1.Selected.Index); end; procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode); begin with Treeview1 do begin Select(Node); Select(Selected.getFirstChild); end; end; end. Vejaí no código anterior, as alterações que fiz aqui, e manda ver!!! Sds, __ Emanuel Coutinho Salvador-Ba-Brasil Andresa Ferreira escreveu: Oi Coutinho. Eu repondi seu e-mail Acho que não deve ter ido. Assim, o exemplo foi ótimo, e me fez entender bastante coisa. O problema, que acontece, é que qdo vc clica no mais (+) ele não muda o foco, só muda o foco se vc clicar na descrição, sendo assim ele traz as informações do último que foi aberto (aquele que ficou com o foco). Tem algum jeito de qduando eu clicar no (+) ele já mudar o foco p/ essa linha??? Andresa --
Re: Res: [delphi-br] Ajuda com treeview
Testei depois com o autoexpand true e ficou legal... desculpe... Sds Emanuel Coutinho
Re: [delphi-br] Empregos em ANGOLA
Depende, amigo! Se como no meu caso, se eu fosse, iria por uma empresa brasileira, com contato assinado aqui, em Reais... Se for para trabalhar em empresa de lá.. a história é outra. Só sei que o país é um verdadeiro canteiro de obras, como Dubai, e tem muitas oportunidades! Mas a maior aprte das oportunbidades são dadas por empresas de fora de lá. Como no caso de obras, a Norberto Odebrecht, só para cidar uma brasileira, está fazendo verdadeiras cidades lá, e muitas estradas, assim como vários projetos de plantas de energia, e indústrias diversas... (montagtem eletro-mecânica). Sds __ Emanuel Coutinho Salvador-Ba-Brasil
Re: [delphi-br] Dúvidas em Firebird / Charse t Table - Resolvido...
Olá pessoal... Desculpem, mas é que foi um problema no próprio excel... Acho que havia escolhido o formato Texto DOS, aí deu essa josta toda!. Depois que selecionei texto Separado por vírgulas, sem ser do DOS, funcionou perfeito!!! Valeus... Sds Emanuel
Re: Res: [delphi-br] Ajuda com treeview
Colega, Você tentou usar Selected.absoluteindex para associar com a sua janela? Sds Emanuel Couitnho Andresa Ferreira escreveu: Oi Lucas Então meu código está assim: For i := 0 to tvMenu.Items.Count - 1 do begin if tvMenu.Items[i].Selected then begin if not tvMenu.Items[i].HasChildren then begin {$IFDEF IF_MILLENIUM} Exec_Form_IF(pMenu(tvMenu.Items[i].Data)^.sNm_Form); {$ENDIF} {$IFDEF CTRL} Exec_Form_CTRL(pMenu(tvMenu.Items[i].Data)^.sNm_Form); {$ENDIF} end; Break; end; end; Me parece que essa parte tvMenu.Items[i].Selected não faz certo Olha o exemplo: Configurações - Empresa Parametros Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em Empresas ele abre a tela correta. Aí eu clico em Parametros e ele abre a tela de Empresas de novo. Qdo ele passa no for, ele acha que o i que está selecionado é o da empresa... Preciso de ajuda Andresa De: Lucas Neves lucas_del...@yahoo.com.br mailto:lucas_delphi%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04 Assunto: Re: [delphi-br] Ajuda com treeview Se isso for regra para todos os nos que tem subdivisoes, use a propriedade HasChildren. if not Node.HasChildren then // coloque aqui a funcao que chama o form... Espero que ajude Lucas Andresa Ferreira escreveu: Olá pessoal Tô precisando de um help. Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da árvore, ele abre o último frm que foi aberto. Como faria para qdo clicar no mais (+) não abrir nenhum frm??? Andresa _ _ __ De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com mailto:djpardalroc ha%40hotmail. com Para: delphi-br delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12 Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7 É expressamente proibida qualquer menção à pirataria na lista! Está fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui! Sds. To: delphi...@yahoogrup os.com.br From: rafaelpinto@ cdsol.com. br Date: Mon, 19 Jan 2009 18:27:38 + Subject: [delphi-br] Perdi o Meu CD do Delphi 7 Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa fazer o Downloade dele Rapidinho??? ? Estou precisando muito!!! _ _ _ _ _ _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video. msn.com/? mkt=pt-br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Ajuda com treeview
Use tmMenu.Items.Selected.Absoluteindex... Ok? Andresa Ferreira escreveu: Oi Lucas Então meu código está assim: For i := 0 to tvMenu.Items.Count - 1 do begin if tvMenu.Items[i].Selected then begin if not tvMenu.Items[i].HasChildren then begin {$IFDEF IF_MILLENIUM} Exec_Form_IF(pMenu(tvMenu.Items[i].Data)^.sNm_Form); {$ENDIF} {$IFDEF CTRL} Exec_Form_CTRL(pMenu(tvMenu.Items[i].Data)^.sNm_Form); {$ENDIF} end; Break; end; end; Me parece que essa parte tvMenu.Items[i].Selected não faz certo Olha o exemplo: Configurações - Empresa Parametros Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em Empresas ele abre a tela correta. Aí eu clico em Parametros e ele abre a tela de Empresas de novo. Qdo ele passa no for, ele acha que o i que está selecionado é o da empresa... Preciso de ajuda Andresa De: Lucas Neves lucas_del...@yahoo.com.br mailto:lucas_delphi%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04 Assunto: Re: [delphi-br] Ajuda com treeview Se isso for regra para todos os nos que tem subdivisoes, use a propriedade HasChildren. if not Node.HasChildren then // coloque aqui a funcao que chama o form... Espero que ajude Lucas Andresa Ferreira escreveu: Olá pessoal Tô precisando de um help. Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da árvore, ele abre o último frm que foi aberto. Como faria para qdo clicar no mais (+) não abrir nenhum frm??? Andresa _ _ __ De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com mailto:djpardalroc ha%40hotmail. com Para: delphi-br delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12 Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7 É expressamente proibida qualquer menção à pirataria na lista! Está fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui! Sds. To: delphi...@yahoogrup os.com.br From: rafaelpinto@ cdsol.com. br Date: Mon, 19 Jan 2009 18:27:38 + Subject: [delphi-br] Perdi o Meu CD do Delphi 7 Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa fazer o Downloade dele Rapidinho??? ? Estou precisando muito!!! _ _ _ _ _ _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video. msn.com/? mkt=pt-br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: Res: [delphi-br] Ajuda com treeview
Andressa O componente treeview padrão do delphi tem a propriedade selected e a propriedade selected tem a AbsoluteIndex. vou preparar uma coisinha aqui e te envio em PVT para vc poder dar uma olhada... ok? aguarde hoje à noite sds Emanuel Coutinho Andresa Ferreira escreveu: Então Coutinho, não consegui achar essas propriedades no componente treeview. O Delphi não aceita essa linha de codigo. Vc pode me explicar melhor? Andresa De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 20 de Janeiro de 2009 11:57:51 Assunto: Re: Res: [delphi-br] Ajuda com treeview Use tmMenu.Items. Selected. Absoluteindex. .. Ok? Andresa Ferreira escreveu: Oi Lucas Então meu código está assim: For i := 0 to tvMenu.Items. Count - 1 do begin if tvMenu..Items[ i].Selected then begin if not tvMenu.Items[ i].HasChildren then begin {$IFDEF IF_MILLENIUM} Exec_Form_IF( pMenu(tvMenu. Items[i]. Data)^.sNm_ Form); {$ENDIF} {$IFDEF CTRL} Exec_Form_CTRL( pMenu(tvMenu. Items[i]. Data)^.sNm_ Form); {$ENDIF} end; Break; end; end; Me parece que essa parte tvMenu.Items[ i].Selected não faz certo Olha o exemplo: Configurações - Empresa Parametros Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em Empresas ele abre a tela correta. Aí eu clico em Parametros e ele abre a tela de Empresas de novo. Qdo ele passa no for, ele acha que o i que está selecionado é o da empresa... Preciso de ajuda Andresa _ _ __ De: Lucas Neves lucas_delphi@ yahoo.com. br mailto:lucas_ delphi%40yahoo. com.br Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04 Assunto: Re: [delphi-br] Ajuda com treeview Se isso for regra para todos os nos que tem subdivisoes, use a propriedade HasChildren. if not Node.HasChildren then // coloque aqui a funcao que chama o form... Espero que ajude Lucas Andresa Ferreira escreveu: Olá pessoal Tô precisando de um help. Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da árvore, ele abre o último frm que foi aberto. Como faria para qdo clicar no mais (+) não abrir nenhum frm??? Andresa _ _ __ De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com mailto:djpardalroc ha%40hotmail. com Para: delphi-br delphi...@yahoogru p os..com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12 Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7 É expressamente proibida qualquer menção à pirataria na lista! Está fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui! Sds. To: delphi...@yahoogrup os.com.br From: rafaelpinto@ cdsol.com. br Date: Mon, 19 Jan 2009 18:27:38 + Subject: [delphi-br] Perdi o Meu CD do Delphi 7 Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa fazer o Downloade dele Rapidinho??? ? Estou precisando muito!!! _ _ _ _ _ _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video. msn.com/? mkt=pt-br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvidas em Firebird / Charset Table
Pessoal. No meu sistema, estou viabilizando ao usuário cadastrar uns dados no excel em uma certa estrutura, através de uma arquivo de extensão CSV, do próprio windows. O Excel ainda disponibiliza formato do DOS, mas não ví diferença entre eles... Uso o componente CSVTable da biblioteca Jedi para importar para o Firebird... Acontece que quando tem caracteres acentuados, a coisa enrosca, pois eles não aparecem do jeito que deveriam aparecer. Uso a Default Charset, e minha base de dados é Dialect 3... Alguém pode me dar uma luz? Sds Emanuel Coutinho
[delphi-br] [OFF] - Lazarus
Pessoal!!! Agora que consegui fazer a Zeos funcionar com o Delphi, me animei, e quero ver se consigo fazer o Lazarus instalar completo no Linux. Não conseguí fazer ele rodar por problemas com a FPC que não instalava, e algumas paletas de componentes simplesmente não apareciam. Uso o KUbunto Alguém pode me socorrer? Sds Emanuel Coutinho
[delphi-br] Jedi - Fantasmas atuando!!! - Bug, ou interferênc ia
Pessoal Embora o assunto da thread pareça estranho, mas é coisa séria!! Alguém já viu isso acontecer? Estou usando o componente TjvgLabel (achei interessante o efeito pushed na letra... ficou legalzinho! Tudo ficou lindinho na tela, a interface legal... etc... Aí, dei um duplo-clique no label que estava no form e abriu-se um editor de propriedades, e ao fechar, Bum... Tudo, Object Inspector, menu, paletas de componentes, literalmente tudo, na tela do delphi ficou com caracteres em outra fonte, e em Bold, com um tamanho ainda maior... UMA ZONA! Aí fecho o delphi, e abro de novo... e tudo volta ao normal... Que coisa de Doido!!! Alguem já viu isso? Testem aí... vejam se acontece!!! Sds Emanuel Coutinho
Re: Res: [delphi-br] [OFF] - Lazarus
Pessoal... Instalei o Lazarus para Windows, baixando diretamente do ftp deles lá... a versão Lazarus + FPC 2.2.3 para win32 (uso xp) Bem Instalei, e o Lazarus me dáum erro de source do FPC source não é o correto... aí cou pesquisar no disco para ver o que há... tá tudo lá, mas ele não aceita o diretório e pede para usar um default... deixando o path em branco nas configurações de environment... O que é isso? Super Silvio Clécio... Dá uma mão... Estou baixando só o FPC e vou instalar e ver no que dá!!! Sds Emanuel Coutinho
Re: Res: [delphi-br] Zeos Lib - De volta após testes
Tá fechado... apenas para moderadores... se você puder... reporta isso lá para mim, ok Sds Emanuel Coutinho Silvio Clécio escreveu: Olá pessoal, Ô velho, reporta o erro lá no site, o Mark Daems irá ficar muito grato, pois postando os erros a galera vai corrigindo e o mesmo não vem numa próxima versão (ou update). []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 16 de Janeiro de 2009 4:40:25 Assunto: [delphi-br] Zeos Lib - De volta após testes Bem... Aos colegas que me deram a mão... Milhões de agradecimentos! !! Funcionou... Como relatei na minha última mensagem, baixei a versão STABLE que eles disponibilizaram no site http://Zeos. Firmos.At e finalmente funcionou. ENTRETANTO.. . há um pequeno bug... que não se detecta se você costuma gerar, de própria mão, as instruções sql para Update, Insert e Delete! Quando geramos as instruções SQL pelo UpdateSQLEditor, na hora de gerar a instrução para INSERT, não está colocando : andtes dos nomes dos campos, que serão os parâmetros... fiz isso aqui mesmo na mão grande!!! Abram: ...\src\component\ ZUpdateSQLEditor .pas e encontrem o código abaixo: procedure TZUpdateSQLEditForm .GenInsertSQL( const TableName: string; UpdateFields, SQL: TStrings); procedure GenFieldList( const TabName, ParamChar: String); var L: string; I: integer; Comma: string; FieldName: string; begin L := ' ('; Comma := ', '; for I := 0 to UpdateFields. Count - 1 do begin if I = UpdateFields. Count - 1 then Comma := ''; FieldName := UpdateFields[ I]; if QuoteFields. Checked and (ParamChar = '') then FieldName := InternalQuoteIdenti fier(FieldName, QuoteChar); //COLOQUEM OS DOIS PONTOS (COLON) CONFORME FIZ NA LINHA ABAIXO... L := Format('%s:% s%s', [L, FieldName, Comma]); if (Length(L) 70) and (I UpdateFields. Count - 1) then begin SQL.Add(L); L := ' '; end; end; SQL.Add(L+') '); end; Fora isso, não me pareceu nada ruim... Para o Silvio... Valeu Parceiro!!! Vou economizar aqueles EUR120,00 HAHAHAHA Abaços Emanuel Coutinho Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] [OFF] - Lazarus
Não quis ofender ninguém, mas é que o Silvio nesta lista é o mais intimo do lazarus... mas de qualquer forma, Valeu a dica camarada!!! Sds Emanuel Coutinho Joao Morais escreveu: 2009/1/16 Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br: O que é isso? Super Silvio Clécio... Dá uma mão... Estou baixando só o FPC e vou instalar e ver no que dá!!! Olá Coutinho. Recomendo a lista http://br.groups.yahoo.com/group/lazarus-brasil/ http://br.groups.yahoo.com/group/lazarus-brasil/ , tem muita gente gabaritada por lá. Joao Morais
Re: Res: [delphi-br] Jedi - Fan tasmas atuando!!! - Bug, ou interferência
Vai ver é a que estão liberando agora no SourceForge... eu baixei a mais recente de lá! Silvio Clécio escreveu: Olá pessoal, kk Aqui está normal, eu uso aquela versão que disponibilizei na 4shared. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 16 de Janeiro de 2009 16:22:45 Assunto: [delphi-br] Jedi - Fantasmas atuando!!! - Bug, ou interferência Pessoal Embora o assunto da thread pareça estranho, mas é coisa séria!! Alguém já viu isso acontecer? Estou usando o componente TjvgLabel (achei interessante o efeito pushed na letra... ficou legalzinho! Tudo ficou lindinho na tela, a interface legal... etc... Aí, dei um duplo-clique no label que estava no form e abriu-se um editor de propriedades, e ao fechar, Bum... Tudo, Object Inspector, menu, paletas de componentes, literalmente tudo, na tela do delphi ficou com caracteres em outra fonte, e em Bold, com um tamanho ainda maior... UMA ZONA! Aí fecho o delphi, e abro de novo... e tudo volta ao normal... Que coisa de Doido!!! Alguem já viu isso? Testem aí... vejam se acontece!!! Sds Emanuel Coutinho Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res...: [delphi-br] Zeos Lib
Pela dica de vocês, fui lá no site da Firmus e baixei a versão stable que eles disponibilizaram... Estou instalando, e vou testar numa aplicaçãozinha simples... Depois retorno na lista para falar. Mas desde já, VALEUS Galera!!! Sds Emanuel Coutinho Silvio Clecio escreveu: --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Coutinho - Yahoo emanuelcouti...@... escreveu Cara, eu baixei da Opensource.org e lá estava a mesma revisão que estava no site principal... Beta inclusive!... eles, a propósito, não mantém uma versão stable, e outra beta... com os mais recentes bug-fixes... Se meu Firebird aceita conexões do ibExpert e do Flamerobin simultaneamente, é porque não é embarcado, certo? Ou não??? Sds Emanuel Coutinho Olá pessoal, Velho, na moral, sem vc passar mais detalhes de como está conectando não tem como a gente saber mesmo o que está acontecendo, que inclusive pelo menos eu nunca vi isso, e se for um problema no Zeos merece ser reportado lá na Firmos, para a galera corrigir para o 7. Olhe, eu peguei uma cópia original e estável no site [http://zeos.firmos.at/ http://zeos.firmos.at/] e divulguei no BlogSite, compilei aqui no Lazarus e no Delphi, tentei até umas horas reproduzir o erro e nada, se você quiser eu coloco o HD com o Windows e TeamViewer (tipo VNC) e te mostro, e se for o caso a gente resolve aí no teu PC (rápido, para não tomar seu tempo) pelo TeamViewer. --- []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo°
Re: [delphi-br] Demora em entrar a mensagem
João Obrigado pela gentileza da resposta... Eu uso Thunderbird, e sempre Respondo à mensagens da lista. Sòmente quando inicio um novo tópico, uso o recurso de nova mensagem. Não são todas as minhas mensagens que demoram tanto. A única coisa diferente é que tenho um filtro de mensagens que dependendo do assunto, direciono para uma pasta especial. De qualquer forma, valeu! Sds Emanuel Joao Morais escreveu: 2009/1/12 Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br: Colegas... Não sei se está acontecendo com todos, ou sòmente comigo. Preparo uma mensagem, envio para o grupo... às vezes demora até uma manhã para minha mensagem aparecer... Estou em estado MODERADO no grupo? Estou de alguma forma sendo policiado??? Agradeceria a gentiliza dos moderadores em me informar... Respondo ao Coutinho e a todos que passam pelo mesmo problema. Há alguns usuários que tem realmente sua mensagem pendurada pelo Yahoo, porque este (o Yahoo) pensa que sua mensagem é spam. Então depende de um moderador liberar a mensagem manualmente. Isto (a liberação manual) pode ocorrer algumas vezes por dia, pode passar metade de um dia ou até mais, depende da disponibilidade dos moderadores. Penso que isto tem a ver, ou com cliente de email ou com seu webmail, haja vista praticamente todas as mensagens desses usuários são barradas. Não há nada que o grupo de moderadores possa fazer para ajudar, além de verificar as mensagens pendentes com uma periodicidade maior. Por outro lado, você(s) pode(m) tentar trocar de cliente de email e ver se o problema desaparece. Eu particularmente uso Thunderbird (pop) e Gmail (web) e nunca tive tal problema. Joao Morais grupo mailto:delphi-br-unsubscr...@yahoogrupos.com.br?subject= omunicação
Re: [delphi-br] Como criar relatori o pedido para cupom não fiscal
Colega Uma vez tive de fazer um programinha apra locadora e usei um componentezinho simples que se chama EasyPrint... tenho a impressão que é freware... é bom certificar-se... Vou me certificar disso, se for e vc estiver interessado, me procure por pvt que te envio!!! O easy Print é para essas coisas mesmo... imprimir em 40 col, matricial tipo bobinas de papel!!! Sds Emanuel Couitnho Eduardo Melo escreveu: Ola, estou iniciando o uso do fortes report. Estou precisando criar um relatorio de pedido para que seja impresso em impressora matricial com bobina, tipo cupom não fiscal, mas não sei por onde começar, alguém poderia me ajudar? Ou onde posso conseguir apostilas para aprender a usar o Fortes Report? Grato Eduardo -- Att Eduardo Melo 4º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br [
[delphi-br] Zeos Lib - De volta após testes
Bem... Aos colegas que me deram a mão... Milhões de agradecimentos!!! Funcionou... Como relatei na minha última mensagem, baixei a versão STABLE que eles disponibilizaram no site http://Zeos.Firmos.At e finalmente funcionou. ENTRETANTO... há um pequeno bug... que não se detecta se você costuma gerar, de própria mão, as instruções sql para Update, Insert e Delete! Quando geramos as instruções SQL pelo UpdateSQLEditor, na hora de gerar a instrução para INSERT, não está colocando : andtes dos nomes dos campos, que serão os parâmetros... fiz isso aqui mesmo na mão grande!!! Abram: ...\src\component\ZUpdateSQLEditor.pas e encontrem o código abaixo: procedure TZUpdateSQLEditForm.GenInsertSQL(const TableName: string; UpdateFields, SQL: TStrings); procedure GenFieldList(const TabName, ParamChar: String); var L: string; I: integer; Comma: string; FieldName: string; begin L := ' ('; Comma := ', '; for I := 0 to UpdateFields.Count - 1 do begin if I = UpdateFields.Count - 1 then Comma := ''; FieldName := UpdateFields[I]; if QuoteFields.Checked and (ParamChar = '') then FieldName := InternalQuoteIdentifier(FieldName, QuoteChar); //COLOQUEM OS DOIS PONTOS (COLON) CONFORME FIZ NA LINHA ABAIXO... L := Format('%s:%s%s', [L, FieldName, Comma]); if (Length(L) 70) and (I UpdateFields.Count - 1) then begin SQL.Add(L); L := ' '; end; end; SQL.Add(L+')'); end; Fora isso, não me pareceu nada ruim... Para o Silvio... Valeu Parceiro!!! Vou economizar aqueles EUR120,00 HAHAHAHA Abaços Emanuel Coutinho
[delphi-br] Indy por trás de um proxy
Pessoal... Agradeço a todos pela ajuda que me deram com o envio de mensagens pela Indy... Agora, fazendo uns testes, vi que não conecta se houver um proxy... andei lendo, mas não achei como fazer... alguém sabe qual componente usar? Se tiver um peq. exemplo, seria ótimo!!! Sds Emanuel Coutinho
Re: Res...: [delphi-br] Zeos Lib
Cara, eu baixei da Opensource.org e lá estava a mesma revisão que estava no site principal... Beta inclusive!... eles, a propósito, não mantém uma versão stable, e outra beta... com os mais recentes bug-fixes... Se meu Firebird aceita conexões do ibExpert e do Flamerobin simultaneamente, é porque não é embarcado, certo? Ou não??? Sds Emanuel Coutinho Daniel Bastos escreveu: Esquisito. As libs não vem mais zeos faz um tempinho. Baixe de novo, mas pelo site oficila dos desenvolvedores. http://zeos.firmos.at/portal.php http://zeos.firmos.at/portal.php Aparentemente vc está com alguma versão antiga. E quanto a vc não conectar c/ a aplicação e com o IbExpert ao mesmo tempo, verifique se seu protocolo não está setado para versão embarcada do firebird ou se vc usa o firebird embarcado. 2009/1/14 Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br Bem... Eu uso o fb1.5 ainda não instalei o 2 na minha máquina... A Zeos não me pediu a fbClient.dll e sim a fbClient15.dll, de 349 Kb, (explicitamente)... e no diretório das libs da versão beta 6.6, que instalei, ainda vem outra, a fbClientd15.dll com 1.493Kb. Ok? Então coloquei as bibliotecas que vieram no diretório pertinente ao fb1.5 na pasta system32.. e então ela começõ a rodar, só que vem com o erro de conexão concorrente... e não abre se for compartilhar o arquivo! Não sabia dessa de modo embarcado... pode explicar? nunca usei o FB assim! pelo menos eu acho... Sds Emanuel Coutinho
Re: [delphi-br] Indy por trás de um proxy
Daniel Obrigado pela dica Uso a Indy 10... e o acesso pelo proxy é para o envio de mensagens de e-mail... esta abertura pelo protocolo Http serviria para o SMTP? Esta é minha maior dúvida... e qual o componente devo usar? Sds Emanuel Coutinho Daniel Bastos escreveu: Desculpe. Faltou uma informação. Este exemplo está de acordo c/ o Indy 10. Não sei se funcionaria no 9. 2009/1/14 Daniel Bastos danbas...@gmail.com mailto:danbastos%40gmail.com Qual versão do indy vc usa? pq existem diferenças(Não lembro se são relativas ao proxy) Segue abaixo um exemplo de como setar: with idHTTP.ProxyParams do begin ProxyServer := proxy; ProxyPort := porta; ProxyUsername := usuario; ProxyPassword := senha; end; 2009/1/14 Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br Pessoal... Agradeço a todos pela ajuda que me deram com o envio de mensagens pela Indy... Agora, fazendo uns testes, vi que não conecta se houver um proxy... andei lendo, mas não achei como fazer... alguém sabe qual componente usar? Se tiver um peq. exemplo, seria ótimo!!! Sds Emanuel Coutinho
Re: Res...: [delphi-br] Zeos Lib
Colegas... Eu só testei os demos depois do silvio falar sobre eles... Usei um banco de dados que acesso normalmente com o ibexpress, e sem problemas. Instalei o Zeos baixado direto da pagina deles na sourceforge... Tentei usar, aí ele me deu uma mensagem de erro que não achava a dll Fb que vem com ele. Coloquei a dita biblioteca no windows\system32... aí ele compilou o programa, rodou... mas se o ibexpert estivesse conectado no banco, dava o erro de que havia uma conexão concorrente já utilizando o banco... e não abria o programa... Outra coisa... Alterando registros tudo bem... fazia tudo legal... nos novos reistros, fiz a stored procedure que me retornava a nova PK e aí é que foi interessante... não adiocionava o registro... fiz em conformidade com as instruções dadas pelos nobres colegas... E aí... alguém consegue me dizer o porquê disso estar acontecendo? Ainda quero ver se não gasto os 120Eur.. hehehe Sds Emanuel Coutinho Silvio Clécio escreveu: Olá pessoal, A maioria dos demos (acho que todos) do zeos não são para Firebird (veja a senha, é root), já que a senha padrão do FB é masterkey (ou masterk), eu tb tive problemas quando fui compilar os demos que vem com o zeos, fiz até adaptações no pacote que está na 4shared para todos os demos rodar no FB, e até criei um banco *.fdb com um demo. Bom, como vc não tem interesse em usar o pacote, encerro minhas dicas por aqui! Falows! :) []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo°
Re: Res...: [delphi-br] Zeos Lib
Bem... Eu uso o fb1.5 ainda não instalei o 2 na minha máquina... A Zeos não me pediu a fbClient.dll e sim a fbClient15.dll, de 349 Kb, (explicitamente)... e no diretório das libs da versão beta 6.6, que instalei, ainda vem outra, a fbClientd15.dll com 1.493Kb. Ok? Então coloquei as bibliotecas que vieram no diretório pertinente ao fb1.5 na pasta system32.. e então ela começõ a rodar, só que vem com o erro de conexão concorrente... e não abre se for compartilhar o arquivo! Não sabia dessa de modo embarcado... pode explicar? nunca usei o FB assim! pelo menos eu acho... Sds Emanuel Coutinho Silvio Clécio escreveu: Olá pessoal, Bom, como você quer ver o componente funcionar, vamos por partes: Você pode mostrar como está fazendo a conexão? A fbclient.dll está em c:\windows\system32, e é a do Firebird correspondente? (uma vez um amigo não conseguia conectar, depois de muita peleja a gente descobriu que a fbclient.dll era do FB1.5, e estava instalado o FB2.1) O Zeos não é tão ruim assim a ponto do primeiro erro a gente desistir de usá-lo, se fosse pago e caro blz, mais, uma coisa open source, que tem N colaboradores dispostos a ajudar, e sem falar no autor do projeto, que resolveu um problema do Zeos+Oracle pelo TeamViewer com um Amigo aqui da lista. É ir postando o que está sendo feito para a gente matar essa xarada :) []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br mailto:emanuelcoutinho%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Janeiro de 2009 9:13:11 Assunto: Re: Res...: [delphi-br] Zeos Lib Colegas... Eu só testei os demos depois do silvio falar sobre eles... Usei um banco de dados que acesso normalmente com o ibexpress, e sem problemas. Instalei o Zeos baixado direto da pagina deles na sourceforge. .. Tentei usar, aí ele me deu uma mensagem de erro que não achava a dll Fb que vem com ele. Coloquei a dita biblioteca no windows\system32. .. aí ele compilou o programa, rodou... mas se o ibexpert estivesse conectado no banco, dava o erro de que havia uma conexão concorrente já utilizando o banco... e não abria o programa... Outra coisa... Alterando registros tudo bem... fazia tudo legal... nos novos reistros, fiz a stored procedure que me retornava a nova PK e aí é que foi interessante. .. não adiocionava o registro... fiz em conformidade com as instruções dadas pelos nobres colegas... E aí... alguém consegue me dizer o porquê disso estar acontecendo? Ainda quero ver se não gasto os 120Eur.. hehehe Sds Emanuel Coutinho 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]
[delphi-br] Demora em entrar a mensagem
Colegas... Não sei se está acontecendo com todos, ou sòmente comigo. Preparo uma mensagem, envio para o grupo... às vezes demora até uma manhã para minha mensagem aparecer... Estou em estado MODERADO no grupo? Estou de alguma forma sendo policiado??? Agradeceria a gentiliza dos moderadores em me informar... Sds, Emanuel Coutinho
Re: Res: [delphi-br] Zeos Lib
Repassando pois não vi entrar esta mensagem Não sei o que é, mas nem com a reza do sapo seco essa josta funciona para mim... andei tendo uns problemas também com o dbExpress... aí tentei uma versão que tinha conseguido baixar da IBX... Funcionou na manteiga... rápido de configurar, faz as integrações de chave primária nos novos registros, e a zorra. Usandodo meu bahianês castiço, PIRIPICADO... a IBX é boca de se lenhar!!! Acho que vou gastar EUR120.00 para baixar e registrar a versão mais atual... Abraços a todos... Emanuel Coutinho
Res: [delphi-br] Zeos Lib
Não sei o que é, mas nem com a reza do sapo seco essa josta funciona para mim... andei tendo uns problemas também com o dbExpress... aí tentei uma versão que tinha conseguido baixar da IBX... Funcionou na manteiga... rápido de configurar, faz as integrações de chave primária nos novos registros, e a zorra. Usandodo meu bahianês castiço, PIRIPICADO... a IBX é boca de se lenhar!!! Acho que vou gastar EUR120.00 para baixar e registrar a versão mais atual... Abraços a todos... Emanuel Coutinho Silvio Clécio escreveu: Olá pessoal, Colegas... Tenho usado o dbExpress e queria mudar para a Zeos Lib... tenho visto tantas coisas boas relatadas aqui na lista que resolvi testar... Então resolvi fazer uma agendinha usando o Zeos para fazer alguma coisa com master / detail, numa aplicação simples Cara, apesar dos demos estarem um tanto *desatualizados, vale a pena dar uma conferida: [http://www.4shared.com/dir/5679510/48848609/Uploads.html http://www.4shared.com/dir/5679510/48848609/Uploads.html] Vá na 2ª aba e pegue os demos que iniciam com a letra Z (tem outros sem o Z q tb usam Zeos). Pode ficar tranquilo para fazer os downloads, eu passei todos os arquivos no KasperSky e tranquei a opção uploads, testei aqui cada arquivo, por isso andei(-o) meio sumido, é muita coisa para uma pessoa só, mas, está sendo um prazer contribuir para a comunidade desenvolvedora. Dei uma olhada num manualzinho simples, e rápido... tipo Quick Reference, que tá rolando por aí e comecei... No BlogSite [http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/] tem uma postagem com um ótimo artigo do Professor Paulo Amaral, eu achei na NET e pedi a ele para divulgar nas comunidades, ele aceitou com todo prazer. Aí quando faço uma conexão e se estou com o IBExpert aberto, ou o FlameRobin, me retorna um erro de que a base de dados está aberta por outro processo... Por que será que isso acontece, com o dbExpress não tem disso... Abri todos os exemlos, juntamente com o IBExpert (Trial de 30 dias), FlaminRobin, IBOConsole e o ISQL do próprio Firebird, nenhum erro, e sem falar que no demo Zeos Master-Detail.zip abri duas cópias e tentei dar um conflito de transação com o IBExpert, nenhum erro. Alguém que usa o Zeos pode me dar umas dicas... inclusive quanto aos campos de auto-incremento? No dbExpress tenho uma stored procedure que me retorna a nova pk a ser usada, e com a ZEOS como farei? Alguns dos demos tem uma rotina com ZSequence para fazer o auto-incremento, sem colocar o componente no Form e tb tratar o Deseja excluir o registro?. Um dica: Veja as novidades no [http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/], lá eu mostro Gente Grande e Inteligente que usa o Zeos. :) P.S: Bom, eu digo *desatualizados pq estou estudando OOP entre outras coisas relacionadas a programação ObjectPascal com DB; estou mudando de métodos à alguns conceitos que eu tinha sobre programar com o velho companheiro ObjectPascal, eita www.istudar.com.br _retado_! :) []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res...: [delphi-br] Zeos Lib
Tentei uns demos que vieram com a própria ZeosLib... e começarama dar uns erros de propriedades, e a zorra... Me retei, e mandei às favas! Uma vez eu comentei na lista que se for usar algum componente, farei com aqueles que funcionem de cara... Instaleou... funcionou... Se no decorrer do processo de desenvolvimento da aplicação surgir um ou outro bug... tudo bem, agente informa, tenta ajudar a corrigir, etc... mas não me dou ao trabalho de fazer funcionar... para eu dar crédito, tem de funcionar de cara... Por isso, meu amigo... Não usarei a Zeos.. Engraçado que o meu irmão adora a Zeos... mas não usa com Firebird... usa com SQLLite e SQLServer... Quem sabe não seja isso... Veio uma biblioteca da própria Zeos... e será que não é isso que estava acontecendo? Sds Emanuel Coutinho Silvio Clécio escreveu: Olá pessoal, Testou os demos que falei =/ []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo°
Re: [delphi-br] Sabeu qual controle está ativ o - TMemmo
Carlos Como vc é um cara + experiente, vou te dar uma dica meio que por cima... O Form tem uma lista de componentes... Dê uma olhada boa nos ... fmMain.ComponentCount... fmMain.Components[x].ClassType e outros... etc... Com certeza vc acha o caminho das pedras até achar o que recebeu o foco, ou está selecionado Abraços Emanuel Coutinho Carlos escreveu: Boa noite a todos! Estou desenvolvendo uma aplicação, nada comercial, apenas para passar o tempo no final de semana...diversão de programador é programar...rsrsrs... E em tempo de execução, permito que o usuário crie uma TabSheet em um pageControl e nesta TabSheet seja criado um TMemo.Até ai sem problemas. Tenho também uma rotina que realiza consultas, e quero que o sistema saiba qual TMemmo está ativo e possa ler o texto e executar a consulta(que na realidade são cláusulas SQL). Mas como capturar qual TMemmo está ativo? O TabSheet é simples, é só pageControl1.ActivePage; Mas não sei como capturar qual memo. Agradeço a todos de forma antecipada! Fraterno abraço, Carlos
[delphi-br] Zeos Lib
Colegas... Tenho usado o dbExpress e queria mudar para a Zeos Lib... tenho visto tantas coisas boas relatadas aqui na lista que resolvi testar... Então resolvi fazer uma agendinha usando o Zeos para fazer alguma coisa com master / detail, numa aplicação simples Dei uma olhada num manualzinho simples, e rápido... tipo Quick Reference, que tá rolando por aí e comecei... Aí quando faço uma conexão e se estou com o IBExpert aberto, ou o FlameRobin, me retorna um erro de que a base de dados está aberta por outro processo... Por que será que isso acontece, com o dbExpress não tem disso... Alguém que usa o Zeos pode me dar umas dicas... inclusive quanto aos campos de auto-incremento? No dbExpress tenho uma stored procedure que me retorna a nova pk a ser usada, e com a ZEOS como farei? Agradeço de coração qualquer ajuda! Sds Emanuel Coutinho
[delphi-br] Aproveitando - Sobre Errors
Colegas... Alguém por acaso sabe onde posso conseguir todos os errorcodes? o colega na mensagem abaixo utilizou econverterror... eu queria todos, com nome e descrição... Uma espécie de quick referrence!!! Busquei em vários lugares, mas ainda não consegui encontrar Sds Emanuel Coutinho Joao Morais escreveu: 2009/1/7 Carlos gcm3...@yahoo.com.br mailto:gcm3102%40yahoo.com.br: except on e:econverterror do begin showmessage('A Dada Digitada : '+Text+', não Correposnde a uma data Válida.'); abort; end; Dica - remova o end; acima e acrescente isto aqui neste ponto: end else raise; end; -- Joao Morais
Re: Res: [delphi-br] [OFF-TOPIC] Uploads voltou, com segurança!
Silvio... O programinha freeware que te mandei deve rodar até no pen-drive... Eu retirei as bibliotecas para acesso seguro a e-mail do path e mesmo assim rodaram colocando-as na pasta do aplicativo... Agora é interessante rodar em outra máquina para ver se tá 100% Sds Emanuel Coutinho Silvio Clécio escreveu: Olá pessoal, Opa Emanuel, pode enviar :) (para qualquer um dos e-mails na minha assinatura), eu jogo temporariamente na 4shared (para a galera já ir baixando) e depois migro para o BlogSite, que estou trabalhando nele agora mesmo. Interessante, nem divulguei ainda e quando eu fui editá-lo, tinha 53 brothers on-line, massa! :). []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br mailto:silvioprog%40yahoo.com.br Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com Hotmail, MSN: silviop...@hotmail.com mailto:silvioprog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ http://silvioclecio.blogspot.com/ °oO| Seja livre, use Linux! |Oo°