Re: [delphi-br] list index out of bound
Frota C. Júnior wrote: Desenvoldo em Delphi 7 / Firebird 1.5 / DBExpress / ClientDataSet (n-tier) e estou muito angustiado pois sem razão aparente quando o usuário opera em uma janela com grids (wwDBGrid) simplesmente aparece o seguinte erro list index out of bound e em seguida o grid fica inativo e a parte superior do grid (botões) desaparece e não se consegue mais opera-lo, é necessário fechar a janela para retomar o controle do mesmo e mesmo assim dai em diante o erro persiste com mais frequência. Pesquisei na net, e há muito pouco a cerca deste problema, mas segundo o que encontrei, tive o cuidado de criar índices nas tabelas para as colunas exibidas nos grids, uma vez que em todos, uso o recurso de quando o usuário clica no botão da coluna o sistema atribui ao IndexFieldName do ClientDataSet o nome da respectiva coluna e como resultado o sistema exibe os registros ordenados pela mesma. O problema não é a falta de material sobre este assunto, é que este tipo de erro é muito genérico, indica que você está tentando acessar um item que não existe dentro de uma lista (ex. 9 elementos e você tenta acessar o 11º). E pode ser qualquer lista. A forma mais prática de resolver isto é usar as units de debug do Delphi em Project | Options | Compiler | Use Debug DCUs, ligar o debugger em Tools | Debugger Options | Integrated Debugging, e assim que ocorrer o erro e passar para a IDE, ver o call stack (Ctrl+F3) para ver exatamente aonde o erro ocorre. O resto é fácil. -- Joao Morais
Re: [delphi-br] Currency para string
Bom dia a todos... Obrigado pela ajuda, mas preciso que o retorno seja: 0123,45 e não 343.434.123.204,54 Obrigado! bem eu fiz aqui : procedure TForm1.Button1Click(Sender: TObject); var cur : currency; begin cur:= 343434123204.54; edit1.Text:=FormatFloat('###,##0.00',cur); end; end. o resultado é : 343.434.123.204,54 acho q vc nao precisa de uma função pra isso somente o comando formatfloat() Bom dia a todos... A seguinte função recebe um currency e retorna uma string conforme o tamanho indicado e duas casas decimais separadas por vírgula function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, '.', ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado
Re: [delphi-br] Currency para string
Paulo Casagrande wrote: Obrigado pela ajuda, mas preciso que o retorno seja: 0123,45 e não 343.434.123.204,54 Utilize a sua própria rotina sem o StringReplace. -- Joao Morais Obrigado! bem eu fiz aqui : procedure TForm1.Button1Click(Sender: TObject); var cur : currency; begin cur:= 343434123204.54; edit1.Text:=FormatFloat('###,##0.00',cur); end; end. o resultado é : 343.434.123.204,54 acho q vc nao precisa de uma função pra isso somente o comando formatfloat() Bom dia a todos... A seguinte função recebe um currency e retorna uma string conforme o tamanho indicado e duas casas decimais separadas por vírgula function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, '.', ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado
Re: [delphi-br] Currency para string
Apoio wrote: bem eu fiz aqui : procedure TForm1.Button1Click(Sender: TObject); var cur : currency; begin cur:= 343434123204.54; edit1.Text:=FormatFloat('###,##0.00',cur); Você não precisa desse monte de jogo da velha. Use apenas ,0.00 -- Joao Morais end; end. o resultado é : 343.434.123.204,54 acho q vc nao precisa de uma função pra isso somente o comando formatfloat() - Original Message - From: Paulo Casagrande To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 15, 2008 11:26 AM Subject: [delphi-br] Currency para string Bom dia a todos... A seguinte função recebe um currency e retorna uma string conforme o tamanho indicado e duas casas decimais separadas por vírgula function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, '.', ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Currency para string
0123,45 e não 343.434.123.204,54 Utilize a sua própria rotina sem o StringReplace. Acho que não dá... se não estou enganado o resultado depende do DecimalSeparator, assim sendo não tenho nenhuma garantia que DecimalSeparator é igual = ',' sem o StringReplace o resultado pode variar :) Obrigado. function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, DecimalSeparator, ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado
RES: [delphi-br] Currency para string
Por quê você não altera o DecimalSeparator para o que você quer usar? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Casagrande Enviada em: quarta-feira, 16 de janeiro de 2008 09:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Currency para string 0123,45 e não 343.434.123.204,54 Utilize a sua própria rotina sem o StringReplace. Acho que não dá... se não estou enganado o resultado depende do DecimalSeparator, assim sendo não tenho nenhuma garantia que DecimalSeparator é igual = ',' sem o StringReplace o resultado pode variar :) Obrigado. function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, DecimalSeparator, ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar1
Até daria, mas o efeito não seria o mesmo. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Ao invés de colocar um statusbar não daria pra colocar um panel com a propriedade align = alBottom? [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [Spam] [delphi-br] Colocar Botão na StatusBa r1
Ola Evaldo... Procure na net pela propriedade psOwnerDraw do panel do statusbar... Encontrei exemplos de se colocar uma progressbar no statusbar a algum tempo, e pelo que entendi setando esta propriedade pode-se colocar qualquer tipo de objeto... Avise de der certo!! Marcelo Horlle - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 15, 2008 2:37 PM Subject: [Spam] [delphi-br] Colocar Botão na StatusBar1 Por favor, Alguém tem um exemplo ou link, de como posso colocar um botão em uma StatusBar? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ref.Acess Violation
Ola Delphianos, Peço ajuda no sentido de que estou tendo um erro de Access Violation, ao abrir o form. O form não tem nenhum outro form que o chame. Ele é um form MDIChild, criado assim: If FrmEntrega2Via = Nil Then begin Application.CreateForm(TFrmEntrega2Via, FrmEntrega2Via); FrmEntrega2Via.show; end Else FrmEntrega2Via.BringToFront; Ao clicar na opção de menu, ele apresenta a seguinte mensagem: Access Violation at address 00577867 in module Assetur.exe'. Read of address tela em anexo, mas abre o form. Alguém, por favor, tem alguma direção a tomar neste caso. Tentei debuggar, mas sem sucesso. Abraço a todos Omar M. Haddad Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Currency para string
galera eu insisto no formatfloat : edit1.Text:=formatfloat('.00',123.23); 123,23 = 0123,23 ve se é isso?! nao importa como seja o formato ele sempre vai te ajudar , é so vc ser criativo e usar a cabeça - Original Message - From: Paulo Casagrande To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 9:42 AM Subject: Re: [delphi-br] Currency para string 0123,45 e não 343.434.123.204,54 Utilize a sua própria rotina sem o StringReplace. Acho que não dá... se não estou enganado o resultado depende do DecimalSeparator, assim sendo não tenho nenhuma garantia que DecimalSeparator é igual = ',' sem o StringReplace o resultado pode variar :) Obrigado. function FormatarCurr2D( Value: Currency; MaxLength: integer): string; begin Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value); Result := StringReplace(Result, DecimalSeparator, ',', [rfReplaceAll]); end; Ex: FormatarCurr2D( 123.45, 15) retorna '0123,45' Tô achando feio esse código! Tem como fazer melhor?? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar
olá Marcelo , A ProgressBar na StatusBar, eu já usei uma vez, e é bem interessante. Mas, senão me engano, a barra era pintada para a um painel da StatusBar. Vou pesquisar mais sobre essa propriedade psOwnerDraw. Na verdade o que eu precisava era manter um botão visível, para que a qualquer momento o aplicativo pudesse ser minimizado para a perto do relógio, e o melhor lugar que layout do sistema permite é a StatusBar. Pose ter certeza que se conseguir, enviarei o código. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] - Mensagem original De: Marcelo - Kappesberg [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 9:45:57 Assunto: Re: [Spam] [delphi-br] Colocar Botão na StatusBar1 Ola Evaldo... Procure na net pela propriedade psOwnerDraw do panel do statusbar... Encontrei exemplos de se colocar uma progressbar no statusbar a algum tempo, e pelo que entendi setando esta propriedade pode-se colocar qualquer tipo de objeto... Avise de der certo!! Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ref.Acess Violation
Ola Omar.. Veja no menu Project \ Options se este form nao esta relacionado na coluna auto-create... Se nao me engano isso provoca o erro pq vc estaria recriando o mesmo form com o Application.CreateForm. Marcelo Horlle - Original Message - From: Omar Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 8:04 AM Subject: [delphi-br] Ref.Acess Violation Ola Delphianos, Peço ajuda no sentido de que estou tendo um erro de Access Violation, ao abrir o form. O form não tem nenhum outro form que o chame. Ele é um form MDIChild, criado assim: If FrmEntrega2Via = Nil Then begin Application.CreateForm(TFrmEntrega2Via, FrmEntrega2Via); FrmEntrega2Via.show; end Else FrmEntrega2Via.BringToFront; Ao clicar na opção de menu, ele apresenta a seguinte mensagem: Access Violation at address 00577867 in module Assetur.exe'. Read of address tela em anexo, mas abre o form. Alguém, por favor, tem alguma direção a tomar neste caso. Tentei debuggar, mas sem sucesso. Abraço a todos Omar M. Haddad Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Colocar Botão na StatusBar
A um tempo atrás quando eu iniciei no Delphi, eu não entendia muito de evento de pintura e eu precisei colocar um botão no statusbar. Cara, eu peguei um SpeedButton e alinhei ele exatamente dentro do statusbar e funcionou como uma luva! Parecia que fazia parte do statusbar. É só uma idéia... De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Evaldo Enviada em: quarta-feira, 16 de janeiro de 2008 09:24 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Colocar Botão na StatusBar olá Marcelo , A ProgressBar na StatusBar, eu já usei uma vez, e é bem interessante. Mas, senão me engano, a barra era pintada para a um painel da StatusBar. Vou pesquisar mais sobre essa propriedade psOwnerDraw. Na verdade o que eu precisava era manter um botão visível, para que a qualquer momento o aplicativo pudesse ser minimizado para a perto do relógio, e o melhor lugar que layout do sistema permite é a StatusBar. Pose ter certeza que se conseguir, enviarei o código. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] mailto:evaldoavelar%40yahoo.com.br - Mensagem original De: Marcelo - Kappesberg [EMAIL PROTECTED] mailto:joe%40kappesberg.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 9:45:57 Assunto: Re: [Spam] [delphi-br] Colocar Botão na StatusBar1 Ola Evaldo... Procure na net pela propriedade psOwnerDraw do panel do statusbar... Encontrei exemplos de se colocar uma progressbar no statusbar a algum tempo, e pelo que entendi setando esta propriedade pode-se colocar qualquer tipo de objeto... Avise de der certo!! Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ref.Acess Violation
Opa. Ja verifiquei. Não está na lista Auto-Create; []´s Omar M. Haddad Analista de Sistemas - Mensagem original De: Marcelo - Kappesberg [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 8:15:31 Assunto: Re: [delphi-br] Ref.Acess Violation Ola Omar.. Veja no menu Project \ Options se este form nao esta relacionado na coluna auto-create. .. Se nao me engano isso provoca o erro pq vc estaria recriando o mesmo form com o Application. CreateForm. Marcelo Horlle - Original Message - From: Omar Marques To: [EMAIL PROTECTED] os.com.br Sent: Wednesday, January 16, 2008 8:04 AM Subject: [delphi-br] Ref.Acess Violation Ola Delphianos , Peço ajuda no sentido de que estou tendo um erro de Access Violation, ao abrir o form. O form não tem nenhum outro form que o chame. Ele é um form MDIChild, criado assim: If FrmEntrega2Via = Nil Then begin Application. CreateForm( TFrmEntrega2Via, FrmEntrega2Via) ; FrmEntrega2Via. show; end Else FrmEntrega2Via. BringToFront; Ao clicar na opção de menu, ele apresenta a seguinte mensagem: Access Violation at address 00577867 in module Assetur.exe' . Read of address tela em anexo, mas abre o form. Alguém, por favor, tem alguma direção a tomar neste caso. Tentei debuggar, mas sem sucesso. Abraço a todos Omar M. Haddad Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - - - - - - E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] dm.qProdutos.Locate
Bom Dia, Estou usando essa função: dm.qProdutos.Locate('CODIGO',eCodigo.Text,[loPartialKey,loCaseInsensitive]) para localizar o codigo do produto, ele funciona corretamente, mas se eu usar um código que tenha '0' antes do resto, ele não consegue achar. Por exemplo, tem 2 códigos diferentes ('123' e '0123'), se eu colocar o código '123' ele acha certinho, agora se eu colocar o código '0123' ele não acha. Alguém sabe o porque que isso está ocorrendo?? Obrigado
[delphi-br] Dúvida na utilização do IBQuery - URGENTE
Amigo, ESTOQUE dentro do select está apenas como alias do campo TPRODUTO.QUANTIDADE mais só por curiosidade eu já tirei o alias fazendo referencia apenas no campo QUANTIDADE e mesmo assim me retorna 0, ficando da seguinte forma: strSql := 'SELECT TPRODUTO.ID, TPRODUTO.DESCRICAO, TPRODUTO.QUANTIDADE '; strSql := strSql + 'FROM TMOV, TITMOV, TPRODUTO '; strSql := strSql + 'WHERE TMOV.ID = TITMOV.IDMOV '; strSql := strSql + 'AND TITMOV.IDPRODUTO = TPRODUTO.ID '; strSql := strSql + 'AND TPRODUTO.ID = ' + IntToStr(IdProduto) ; With IBQueryEstoque do begin Close; SQL.Clear; SQL.Add(strSql) ; Open; end; EstoqueAtual := IBQueryEstoque. FieldByName( 'QUANTIDADE' ).AsFloat; - Mensagem original De: Ricardo LG linogonzalez@ gmail.com Para: [EMAIL PROTECTED] os.com.br Enviadas: Terça-feira, 15 de Janeiro de 2008 15:35:36 Assunto: Re: [delphi-br] Dúvida na utilização do IBQuery Desculpe Angelo Dentro do seu select você não tem um campo ESTOQUE apenas a quantidade. Por isso o valor 0. nesse caso acredito que você deveria fazer ou um select sum(Quantidade) as estoque, em outra query. Em 15/01/08, Angelo Louzada angelolouzada@ yahoo.com. br escreveu: Amigos, estou utilizando Delphi 7 + Interbase 6 e estou com uma dúvida: No Interbase quando eu executo o script abaixo me retorna o resultado correto. SELECT TPRODUTO.ID http://tproduto. id/, TPRODUTO.DESCRICAO, TPRODUTO.QUANTIDADE FROM TMOV, TITMOV, TPRODUTO WHERE TMOV.ID http://tmov. id/ = TITMOV.IDMOV AND TITMOV.IDPRODUTO = TPRODUTO.ID http://tproduto. id/ AND TPRODUTO.ID http://tproduto. id/ = 13 Eu preciso acessar o valor do campo tproduto.quantidade no delphi e para isso estou fazendo da seguinte maneira: strSql := 'SELECT TPRODUTO.ID http://tproduto. id/, TPRODUTO.DESCRICAO, TPRODUTO.QUANTIDADE '; strSql := strSql + 'FROM TMOV, TITMOV, TPRODUTO '; strSql := strSql + 'WHERE TMOV.ID http://tmov. id/ = TITMOV.IDMOV '; strSql := strSql + 'AND TITMOV.IDPRODUTO = TPRODUTO.IDhttp://tproduto. id/'; strSql := strSql + 'AND TPRODUTO.ID http://tproduto. id/ = ' + IntToStr(IdProduto) ; With IBQueryEstoque do begin Close; SQL.Clear; SQL.Add(strSql) ; Open; end; strSql é uma variável do tipo String, IdProduto é uma variável que possui o ID do produto que selecionei em um grid. IdProduto := IBQueryMovimento. FieldByName( 'CODPRODUTO' ).AsInteger; Em modo de depuração eu passo o mouse em cima da variável strSql após o recebimento de todo o sql e certifico que o mesmo recebeu de forma correta o valor do id do produto ficando exatamente igual ao script que testei no Interbase. A grande questão: Declarei uma variável do tipo Double chamada EstoqueAtual para receber o valor do campo TPRODUTO.QUANTIDADE da seguinte forma: EstoqueAtual := IBQueryEstoque. FieldByName( 'ESTOQUE' ).AsFloat; Só que o valor retornado é sempre 0 e quando rodo o script no Interbase tenho a absoluta certeza que possuo valor no campo, nesse exemplo era para obter o valor 78. Alguém sabe me dizer aonde estou errando? Abraço a todos. Angelo Louzada Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com IdSMTP
Pessoal, to usando o IdSMTP para enviar e-mails para fornecedores, porem to com um problema meio estranho aki, eh o seguinte uso um bloco try except, tipo assim: try IdSMTP1.Connect; //Estabelece a conexão IdSMTP1.Authenticate; //Faz a autenticação IdSMTP1.Send(IdMessage1); //Envia a mensagem lblInfo_Mensagem.Caption := ''; Application.MessageBox('A cotação foi enviada com sucesso para o fornecedor!', 'Confirmação', MB_OK + MB_ICONINFORMATION); except on E: Exception do begin Mensagem_Erro := 'Ocorreu o seguinte erro durante a operação: ' + #13 + E.Message + #13 + 'Verifique se todos os dados foram preenchidos corretamente.'; Application.MessageBox(Pchar(Mensagem_Erro), 'Aviso', MB_OK + MB_ICONWARNING); end; end; ele ta dando erro na linha IdSMTP1.Send(IdMessage1); //Envia a mensagem so q ele ta mandando o e-mail corretamente, porem ta dando a mensagem de erro e na mensagem de erro nao tem nada, da a mensagem sem texto, sem erro, muito estranho se alguem puder me ajudar, flw
Re: [delphi-br] Colocar Botão na StatusBar
Evaldo, Você disse que se colocasse um panel o efeito não seria o mesmo. Que efeito seria esse? [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar
Efeito Estético. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Alisson Costa Resende [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 9:59:33 Assunto: Re: [delphi-br] Colocar Botão na StatusBar Evaldo, Você disse que se colocasse um panel o efeito não seria o mesmo. Que efeito seria esse? [As partes desta mensagem que não continham texto foram removidas] __._,_ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] MySQL - Problemas
Pessoal estou enfrentando um problema e gostaria de saber se alguem ja passou por algo semelhante. Tenho o Delphi 7 e tento conectar num banco MySql 5. Usei o componente SQLConnection. E conectou beleza. Mas quando vou usar um SQLDataSet ou SQLQuery esta dando Access Violation dbexpmysql.dll. Procurei na net e vi que e uma versao incompativel. Como poderias resolver este problema? Agradeço
[delphi-br] Fluxo de caixa em Delphi
Ola amigos, Estou trabalhando com fluxo de caixa em delphi, sou iniciante e estou tendo alguns problemas. Se alguém tiver algun exemplo e puderem me enviar, ficaria grato pela ajuda. Rafael - Mensagem original De: Wilton Campos [EMAIL PROTECTED] Para: delphi-br delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 10:10:07 Assunto: [delphi-br] Ajuda com IdSMTP Pessoal, to usando o IdSMTP para enviar e-mails para fornecedores, porem to com um problema meio estranho aki, eh o seguinte uso um bloco try except, tipo assim: try IdSMTP1.Connect; //Estabelece a conexão IdSMTP1.Authenticat e; //Faz a autenticação IdSMTP1.Send( IdMessage1) ; //Envia a mensagem lblInfo_Mensagem. Caption := ''; Application. MessageBox( 'A cotação foi enviada com sucesso para o fornecedor!' , 'Confirmação', MB_OK + MB_ICONINFORMATION) ; except on E: Exception do begin Mensagem_Erro := 'Ocorreu o seguinte erro durante a operação: ' + #13 + E.Message + #13 + 'Verifique se todos os dados foram preenchidos corretamente. '; Application. MessageBox( Pchar(Mensagem_ Erro), 'Aviso', MB_OK + MB_ICONWARNING) ; end; end; ele ta dando erro na linha IdSMTP1.Send( IdMessage1) ; //Envia a mensagem so q ele ta mandando o e-mail corretamente, porem ta dando a mensagem de erro e na mensagem de erro nao tem nada, da a mensagem sem texto, sem erro, muito estranho se alguem puder me ajudar, flw Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida desevolvimento sistema em grupo
Bom dia Sempre programei sozinho, devido sistemas pequenos, estou iniciando um projeto um pouco mais complexo onde trabalharei com um outro programador, gostaria de saber como q funciona a programacao em grupo ou seja, com o é dividido o processo de programação. Por exemplo no caso do Delphi como que faz pra mais de um programador estar trabalhando em um msm projeto, cada um responsavel pela sua parte, como faria pra juntar as partes de cada programador ? Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MySQL - Problemas
use zeos; http://sourceforge.net/project/showfiles.php?group_id=35994package_id=28219 - Original Message - From: dhsb To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:13 AM Subject: [delphi-br] MySQL - Problemas Pessoal estou enfrentando um problema e gostaria de saber se alguem ja passou por algo semelhante. Tenho o Delphi 7 e tento conectar num banco MySql 5. Usei o componente SQLConnection. E conectou beleza. Mas quando vou usar um SQLDataSet ou SQLQuery esta dando Access Violation dbexpmysql.dll. Procurei na net e vi que e uma versao incompativel. Como poderias resolver este problema? Agradeço [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com IdSMTP
Creio que faltou a indicar o AuthenticationType. Eu usu como no exemplo abaixo: if FieldByName('ServAutentica').AsString = '1' then Smtp.AuthenticationType := atLogin else Smtp.AuthenticationType := atNone; Espero que ajude em algo. Boa sorte, Jefferson - Original Message - From: Wilton Campos To: delphi-br Sent: Wednesday, January 16, 2008 9:10 AM Subject: [delphi-br] Ajuda com IdSMTP Pessoal, to usando o IdSMTP para enviar e-mails para fornecedores, porem to com um problema meio estranho aki, eh o seguinte uso um bloco try except, tipo assim: try IdSMTP1.Connect; //Estabelece a conexão IdSMTP1.Authenticate; //Faz a autenticação IdSMTP1.Send(IdMessage1); //Envia a mensagem lblInfo_Mensagem.Caption := ''; Application.MessageBox('A cotação foi enviada com sucesso para o fornecedor!', 'Confirmação', MB_OK + MB_ICONINFORMATION); except on E: Exception do begin Mensagem_Erro := 'Ocorreu o seguinte erro durante a operação: ' + #13 + E.Message + #13 + 'Verifique se todos os dados foram preenchidos corretamente.'; Application.MessageBox(Pchar(Mensagem_Erro), 'Aviso', MB_OK + MB_ICONWARNING); end; end; ele ta dando erro na linha IdSMTP1.Send(IdMessage1); //Envia a mensagem so q ele ta mandando o e-mail corretamente, porem ta dando a mensagem de erro e na mensagem de erro nao tem nada, da a mensagem sem texto, sem erro, muito estranho se alguem puder me ajudar, flw [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida desevolvimento sistema em grupo
nos aqui na empresa usamos jedi vcs: (free) http://jedivcs.sourceforge.net/ ele lhe ajudara a controlar versoes , o codigo fonte fica num servidor , etc etc qualquer duvida na instalação e na utilização posta ae q tenho certeza q muitos aqui usam ele... - Original Message - From: Icaro Ferreira To: delphi br Sent: Wednesday, January 16, 2008 11:18 AM Subject: [delphi-br] Duvida desevolvimento sistema em grupo Bom dia Sempre programei sozinho, devido sistemas pequenos, estou iniciando um projeto um pouco mais complexo onde trabalharei com um outro programador, gostaria de saber como q funciona a programacao em grupo ou seja, com o é dividido o processo de programação. Por exemplo no caso do Delphi como que faz pra mais de um programador estar trabalhando em um msm projeto, cada um responsavel pela sua parte, como faria pra juntar as partes de cada programador ? Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MySQL - Problemas
Lembrando que o Zeos 6.6 ainda é beta e tem uns bug's.. mas tb é uma excelente opção. Em 16/01/08, Apoio [EMAIL PROTECTED] escreveu: use zeos; http://sourceforge.net/project/showfiles.php?group_id=35994package_id=28219 - Original Message - From: dhsb To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:13 AM Subject: [delphi-br] MySQL - Problemas Pessoal estou enfrentando um problema e gostaria de saber se alguem ja passou por algo semelhante. Tenho o Delphi 7 e tento conectar num banco MySql 5. Usei o componente SQLConnection. E conectou beleza. Mas quando vou usar um SQLDataSet ou SQLQuery esta dando Access Violation dbexpmysql.dll. Procurei na net e vi que e uma versao incompativel. Como poderias resolver este problema? Agradeço [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] dm.qProdutos.Locate
Você não entendeu, eu estou procurando por string, porém a string que eu procuro é '0123', e eu coloco '0123', e ele não acha. Quando eu procuro a string '123' e coloco '123' ele acha. Entendeu? --- Em delphi-br@yahoogrupos.com.br, Vitor Redes [EMAIL PROTECTED] escreveu Porque você está utilizando uma busca por Strings... `0123' é muito diferente de `123' Utilize assim, caso o código do produto seja inteiro: Locate( `CODIGO', StrToInt( Edit1.Text ), [ loPartialKey ]; Case o código seja String, então o seu cliente deve procurar com uma string mais lógica. Vitor.
Re: [delphi-br] MySQL - Problemas
Olá dhsb, existem algumas formas, 1 - usar uma versão do mysql no qual o dbexpress do D7 seja compatível. 2 - usar o dbexpress do Delphi 2007, que na verdade nem sei se é totalmente compatível com o MySQL 5 3 - usar um pacotes de componentes pagos chamado MyDAC que te dá compatibilidade com todas as versões do MySQL e inclusive ao MySQL Embarcado, maiores informações em www.crlab.com/mydac. eu uso esses componentes a 4 anos e valeu cada centavo, o suporte quando necessário é ótimo e o componente nem se fala. att, Eduardo. Em 16/01/08, dhsb [EMAIL PROTECTED] escreveu: Pessoal estou enfrentando um problema e gostaria de saber se alguem ja passou por algo semelhante. Tenho o Delphi 7 e tento conectar num banco MySql 5. Usei o componente SQLConnection. E conectou beleza. Mas quando vou usar um SQLDataSet ou SQLQuery esta dando Access Violation dbexpmysql.dll. Procurei na net e vi que e uma versao incompativel. Como poderias resolver este problema? Agradeço -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] dm.qProdutos.Locate
um estranho ... qual tipo do campo de codigo? veja se é char ... usando char seu campo pode estar retornando assim: 0123 no que varchar ele traria assim 0123 ae na consulta ele nunca vai retornar so se vc digitar esses espaços antes sacou ... V ae ! - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:25 AM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Você não entendeu, eu estou procurando por string, porém a string que eu procuro é '0123', e eu coloco '0123', e ele não acha. Quando eu procuro a string '123' e coloco '123' ele acha. Entendeu? --- Em delphi-br@yahoogrupos.com.br, Vitor Redes [EMAIL PROTECTED] escreveu Porque você está utilizando uma busca por Strings... `0123' é muito diferente de `123' Utilize assim, caso o código do produto seja inteiro: Locate( `CODIGO', StrToInt( Edit1.Text ), [ loPartialKey ]; Case o código seja String, então o seu cliente deve procurar com uma string mais lógica. Vitor. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MySQL - Problemas
OU SEJA ... se vc pode e quer gastar $$$ um bom investimento é vc comprar o delphi 2007 ou o mydac e usar o delphi 7 agora se vc tiver quebrado vai de zeos mesmo. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:22 AM Subject: Re: [delphi-br] MySQL - Problemas Olá dhsb, existem algumas formas, 1 - usar uma versão do mysql no qual o dbexpress do D7 seja compatível. 2 - usar o dbexpress do Delphi 2007, que na verdade nem sei se é totalmente compatível com o MySQL 5 3 - usar um pacotes de componentes pagos chamado MyDAC que te dá compatibilidade com todas as versões do MySQL e inclusive ao MySQL Embarcado, maiores informações em www.crlab.com/mydac. eu uso esses componentes a 4 anos e valeu cada centavo, o suporte quando necessário é ótimo e o componente nem se fala. att, Eduardo. Em 16/01/08, dhsb [EMAIL PROTECTED] escreveu: Pessoal estou enfrentando um problema e gostaria de saber se alguem ja passou por algo semelhante. Tenho o Delphi 7 e tento conectar num banco MySql 5. Usei o componente SQLConnection. E conectou beleza. Mas quando vou usar um SQLDataSet ou SQLQuery esta dando Access Violation dbexpmysql.dll. Procurei na net e vi que e uma versao incompativel. Como poderias resolver este problema? Agradeço -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida desevolvimento sistema em grupo
Cara primeiro. Instale um controle de versão. para você sempre saber o que foi feito e por quem e quando. E evitar que duas pessoas mexam na mesmo fonte. segundo comente e padronize seu código para que não aconteça de dois mundo diferentes fazendo a mesma coisa. Converse com o outro programador e entrem em bom senso de como vai ser feito e de que jeito. Estabeleça padrões. Comente o Maximo possível de códigos que sejam complexos muita gente não liga pra isso só pro controle de versão, mas o trabalho sai rápido e flui melhor quando você mexe num código não seu e sabe o que ta mexendo facilmente e outra pessoa mexe no seu e sente o mesmo. já trabalhe em grupo onde tenho CVS e tudo o mais. Mas cada um programava do seu jeito. Era um inferno pra um novato. Sem framework ainda mais foi pior ainda. t+ Em 16/01/08, Apoio [EMAIL PROTECTED] escreveu: nos aqui na empresa usamos jedi vcs: (free) http://jedivcs.sourceforge.net/ ele lhe ajudara a controlar versoes , o codigo fonte fica num servidor , etc etc qualquer duvida na instalação e na utilização posta ae q tenho certeza q muitos aqui usam ele... - Original Message - From: Icaro Ferreira To: delphi br Sent: Wednesday, January 16, 2008 11:18 AM Subject: [delphi-br] Duvida desevolvimento sistema em grupo Bom dia Sempre programei sozinho, devido sistemas pequenos, estou iniciando um projeto um pouco mais complexo onde trabalharei com um outro programador, gostaria de saber como q funciona a programacao em grupo ou seja, com o é dividido o processo de programação. Por exemplo no caso do Delphi como que faz pra mais de um programador estar trabalhando em um msm projeto, cada um responsavel pela sua parte, como faria pra juntar as partes de cada programador ? Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com IdSMTP Off-Topic
usu foi cruel...rsrsrsrss (foi mal) Eu uso Tu usas Ele usa Nós usamos Vós usais Eles usam - Original Message - From: Jefferson - Fórum To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:34 AM Subject: Re: [delphi-br] Ajuda com IdSMTP Creio que faltou a indicar o AuthenticationType. Eu usu como no exemplo abaixo: if FieldByName('ServAutentica').AsString = '1' then Smtp.AuthenticationType := atLogin else Smtp.AuthenticationType := atNone; Espero que ajude em algo. Boa sorte, Jefferson - Original Message - From: Wilton Campos To: delphi-br Sent: Wednesday, January 16, 2008 9:10 AM Subject: [delphi-br] Ajuda com IdSMTP Pessoal, to usando o IdSMTP para enviar e-mails para fornecedores, porem to com um problema meio estranho aki, eh o seguinte uso um bloco try except, tipo assim: try IdSMTP1.Connect; //Estabelece a conexão IdSMTP1.Authenticate; //Faz a autenticação IdSMTP1.Send(IdMessage1); //Envia a mensagem lblInfo_Mensagem.Caption := ''; Application.MessageBox('A cotação foi enviada com sucesso para o fornecedor!', 'Confirmação', MB_OK + MB_ICONINFORMATION); except on E: Exception do begin Mensagem_Erro := 'Ocorreu o seguinte erro durante a operação: ' + #13 + E.Message + #13 + 'Verifique se todos os dados foram preenchidos corretamente.'; Application.MessageBox(Pchar(Mensagem_Erro), 'Aviso', MB_OK + MB_ICONWARNING); end; end; ele ta dando erro na linha IdSMTP1.Send(IdMessage1); //Envia a mensagem so q ele ta mandando o e-mail corretamente, porem ta dando a mensagem de erro e na mensagem de erro nao tem nada, da a mensagem sem texto, sem erro, muito estranho se alguem puder me ajudar, flw [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] MySQL - Problemas
Aos desavisados... Sun Acquires MySQL http://blogs.mysql.com/kaj/2008/01/16/sun-acquires-mysql/ Em 16/01/08, Apoio [EMAIL PROTECTED] escreveu: OU SEJA ... se vc pode e quer gastar $$$ um bom investimento é vc comprar o delphi 2007 ou o mydac e usar o delphi 7 agora se vc tiver quebrado vai de zeos mesmo. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:22 AM Subject: Re: [delphi-br] MySQL - Problemas Olá dhsb, existem algumas formas, 1 - usar uma versão do mysql no qual o dbexpress do D7 seja compatível. 2 - usar o dbexpress do Delphi 2007, que na verdade nem sei se é totalmente compatível com o MySQL 5 3 - usar um pacotes de componentes pagos chamado MyDAC que te dá compatibilidade com todas as versões do MySQL e inclusive ao MySQL Embarcado, maiores informações em www.crlab.com/mydac. eu uso esses componentes a 4 anos e valeu cada centavo, o suporte quando necessário é ótimo e o componente nem se fala. att, Eduardo. Em 16/01/08, dhsb [EMAIL PROTECTED] dionatan.b%40unijui.edu.br escreveu: Pessoal estou enfrentando um problema e gostaria de saber se alguem ja passou por algo semelhante. Tenho o Delphi 7 e tento conectar num banco MySql 5. Usei o componente SQLConnection. E conectou beleza. Mas quando vou usar um SQLDataSet ou SQLQuery esta dando Access Violation dbexpmysql.dll. Procurei na net e vi que e uma versao incompativel. Como poderias resolver este problema? Agradeço -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.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]
Res: [delphi-br] Duvida desevolvimento sistema em grupo
Eu entendi essa parte da organização e tal, porem, e no caso especifico do Delphi(por exemplo), como faria pra dois programadores mecherem no mesmo projeto, cadaum faria um projeto separado e depois junta os dois? ou cada um geraria um executavel e no final fariamos um software principal que chamaria os dois executaveis.? Meu caso tambem é parecido com o do amigo Icaro, trabalhei sempre sozinho, com softwares pequenos, mas agora me vejo com a necessidade de ver com algum outro programador pra ajudar a desenvolver um sistema maior, porem não sei como faria essa parte, a parte do compartilhamento do projeto ( se é que poderia chamar de compartilhamento xD). Thiago Andrighetti de Pádua Analista de Suporte em Software Livre - Mensagem original De: Rafael Jorge [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 13:20:25 Assunto: Re: [delphi-br] Duvida desevolvimento sistema em grupo Cara primeiro. Instale um controle de versão. para você sempre saber o que foi feito e por quem e quando. E evitar que duas pessoas mexam na mesmo fonte. segundo comente e padronize seu código para que não aconteça de dois mundo diferentes fazendo a mesma coisa. Converse com o outro programador e entrem em bom senso de como vai ser feito e de que jeito. Estabeleça padrões. Comente o Maximo possível de códigos que sejam complexos muita gente não liga pra isso só pro controle de versão, mas o trabalho sai rápido e flui melhor quando você mexe num código não seu e sabe o que ta mexendo facilmente e outra pessoa mexe no seu e sente o mesmo. já trabalhe em grupo onde tenho CVS e tudo o mais. Mas cada um programava do seu jeito. Era um inferno pra um novato. Sem framework ainda mais foi pior ainda. t+ Em 16/01/08, Apoio [EMAIL PROTECTED] com.br escreveu: nos aqui na empresa usamos jedi vcs: (free) http://jedivcs. sourceforge. net/ ele lhe ajudara a controlar versoes , o codigo fonte fica num servidor , etc etc qualquer duvida na instalação e na utilização posta ae q tenho certeza q muitos aqui usam ele... - Original Message - From: Icaro Ferreira To: delphi br Sent: Wednesday, January 16, 2008 11:18 AM Subject: [delphi-br] Duvida desevolvimento sistema em grupo Bom dia Sempre programei sozinho, devido sistemas pequenos, estou iniciando um projeto um pouco mais complexo onde trabalharei com um outro programador, gostaria de saber como q funciona a programacao em grupo ou seja, com o é dividido o processo de programação. Por exemplo no caso do Delphi como que faz pra mais de um programador estar trabalhando em um msm projeto, cada um responsavel pela sua parte, como faria pra juntar as partes de cada programador ? Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- - - - - - - Rafael jorge alves (Analista/desenvolv edor) www.sistemafocus. com.br sistema focus de gestão comercial e serviços em informatica. - - - - - - [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital
Re: RES: [delphi-br] dm.qProdutos.Locate
O tipo do campo está como Character... Esse é o problema??? Então eu deveria colocar alphanumérico??? Vlw --- Em delphi-br@yahoogrupos.com.br, Apoio [EMAIL PROTECTED] escreveu um estranho ... qual tipo do campo de codigo? veja se é char ... usando char seu campo pode estar retornando assim: 0123 no que varchar ele traria assim 0123 ae na consulta ele nunca vai retornar so se vc digitar esses espaços antes sacou ... V ae ! - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:25 AM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Você não entendeu, eu estou procurando por string, porém a string que eu procuro é '0123', e eu coloco '0123', e ele não acha. Quando eu procuro a string '123' e coloco '123' ele acha. Entendeu? --- Em delphi-br@yahoogrupos.com.br, Vitor Redes vredesredsystem@ escreveu Porque você está utilizando uma busca por Strings... `0123' é muito diferente de `123' Utilize assim, caso o código do produto seja inteiro: Locate( `CODIGO', StrToInt( Edit1.Text ), [ loPartialKey ]; Case o código seja String, então o seu cliente deve procurar com uma string mais lógica. Vitor. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] dm.qProdutos.Locate
Só para lembrar, a tabela aqui é .DBF, e os tipos de campos são: Character, Float, Number, Date, Logical, Memo, OLE, Binary E o código possui caracteres númericos e alfanuméricos. Qual seria o tipo de campo certo??? --- Em delphi-br@yahoogrupos.com.br, Apoio [EMAIL PROTECTED] escreveu um estranho ... qual tipo do campo de codigo? veja se é char ... usando char seu campo pode estar retornando assim: 0123 no que varchar ele traria assim 0123 ae na consulta ele nunca vai retornar so se vc digitar esses espaços antes sacou ... V ae ! - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:25 AM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Você não entendeu, eu estou procurando por string, porém a string que eu procuro é '0123', e eu coloco '0123', e ele não acha. Quando eu procuro a string '123' e coloco '123' ele acha. Entendeu? --- Em delphi-br@yahoogrupos.com.br, Vitor Redes vredesredsystem@ escreveu Porque você está utilizando uma busca por Strings... `0123' é muito diferente de `123' Utilize assim, caso o código do produto seja inteiro: Locate( `CODIGO', StrToInt( Edit1.Text ), [ loPartialKey ]; Case o código seja String, então o seu cliente deve procurar com uma string mais lógica. Vitor. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Fluxo de caixa em Delphi
Fala Rafael Três coisas: 1. Abra uma nova mensagem com o assunto do qual quer tratar. 2. Que dificuldades vc está tendo? 3. Consulte sempre DEUS (www.google.com.br) para estas questões iniciais. Aí vão três links pra te ajudar no início: www.ivansantos.com.br/fluxo.htm http://pt.wikipedia.org/wiki/Fluxo_de_caixa www.portaltributario.com.br/modelos/fluxocaixa.xls Um abraço. Em 16/01/08, Rafael Pacheco [EMAIL PROTECTED] escreveu: Ola amigos, Estou trabalhando com fluxo de caixa em delphi, sou iniciante e estou tendo alguns problemas. Se alguém tiver algun exemplo e puderem me enviar, ficaria grato pela ajuda. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Ajuda com IdSMTP
Ta dando o msm erro, fiz as alterações, mas nao teve jeito, mas eh muito estranho o e-mail ta chegando corretamente inclusive com o anexo, td perfeito. O negocio eh so o erro q da q faz ele passar pelo except, vou continuar tentando, mas qualquer ajuda eh bem vida. Em 16/01/08, Jefferson - Fórum [EMAIL PROTECTED] escreveu: Creio que faltou a indicar o AuthenticationType. Eu usu como no exemplo abaixo: if FieldByName('ServAutentica').AsString = '1' then Smtp.AuthenticationType := atLogin else Smtp.AuthenticationType := atNone; Espero que ajude em algo. Boa sorte, Jefferson - Original Message - From: Wilton Campos To: delphi-br Sent: Wednesday, January 16, 2008 9:10 AM Subject: [delphi-br] Ajuda com IdSMTP Pessoal, to usando o IdSMTP para enviar e-mails para fornecedores, porem to com um problema meio estranho aki, eh o seguinte uso um bloco try except, tipo assim: try IdSMTP1.Connect; //Estabelece a conexão IdSMTP1.Authenticate; //Faz a autenticação IdSMTP1.Send(IdMessage1); //Envia a mensagem lblInfo_Mensagem.Caption := ''; Application.MessageBox('A cotação foi enviada com sucesso para o fornecedor!', 'Confirmação', MB_OK + MB_ICONINFORMATION); except on E: Exception do begin Mensagem_Erro := 'Ocorreu o seguinte erro durante a operação: ' + #13 + E.Message + #13 + 'Verifique se todos os dados foram preenchidos corretamente.'; Application.MessageBox(Pchar(Mensagem_Erro), 'Aviso', MB_OK + MB_ICONWARNING); end; end; ele ta dando erro na linha IdSMTP1.Send(IdMessage1); //Envia a mensagem so q ele ta mandando o e-mail corretamente, porem ta dando a mensagem de erro e na mensagem de erro nao tem nada, da a mensagem sem texto, sem erro, muito estranho se alguem puder me ajudar, flw [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] Duvida desevolvimento sistema em grupo
o jedi vcs faz esse trabalho , ele monitora 2 ou mais maquinas num mesmo projeto . ex: como existe um servidor vcs , ele nao deixara q 2 usuarios modifiquem um mesmo .pas fora Ns recursos que ele tem , mas pra vc entender melhor baixe o programa , instale ae , procure se informar mais sobre jedi vcs no google etc vc vai encontrar muita coisa sobre ele na net ... - Original Message - From: Thiago Andrighetti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 1:55 PM Subject: Res: [delphi-br] Duvida desevolvimento sistema em grupo Eu entendi essa parte da organização e tal, porem, e no caso especifico do Delphi(por exemplo), como faria pra dois programadores mecherem no mesmo projeto, cadaum faria um projeto separado e depois junta os dois? ou cada um geraria um executavel e no final fariamos um software principal que chamaria os dois executaveis.? Meu caso tambem é parecido com o do amigo Icaro, trabalhei sempre sozinho, com softwares pequenos, mas agora me vejo com a necessidade de ver com algum outro programador pra ajudar a desenvolver um sistema maior, porem não sei como faria essa parte, a parte do compartilhamento do projeto ( se é que poderia chamar de compartilhamento xD). Thiago Andrighetti de Pádua Analista de Suporte em Software Livre - Mensagem original De: Rafael Jorge [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 13:20:25 Assunto: Re: [delphi-br] Duvida desevolvimento sistema em grupo Cara primeiro. Instale um controle de versão. para você sempre saber o que foi feito e por quem e quando. E evitar que duas pessoas mexam na mesmo fonte. segundo comente e padronize seu código para que não aconteça de dois mundo diferentes fazendo a mesma coisa. Converse com o outro programador e entrem em bom senso de como vai ser feito e de que jeito. Estabeleça padrões. Comente o Maximo possível de códigos que sejam complexos muita gente não liga pra isso só pro controle de versão, mas o trabalho sai rápido e flui melhor quando você mexe num código não seu e sabe o que ta mexendo facilmente e outra pessoa mexe no seu e sente o mesmo. já trabalhe em grupo onde tenho CVS e tudo o mais. Mas cada um programava do seu jeito. Era um inferno pra um novato. Sem framework ainda mais foi pior ainda. t+ Em 16/01/08, Apoio [EMAIL PROTECTED] com.br escreveu: nos aqui na empresa usamos jedi vcs: (free) http://jedivcs. sourceforge. net/ ele lhe ajudara a controlar versoes , o codigo fonte fica num servidor , etc etc qualquer duvida na instalação e na utilização posta ae q tenho certeza q muitos aqui usam ele... - Original Message - From: Icaro Ferreira To: delphi br Sent: Wednesday, January 16, 2008 11:18 AM Subject: [delphi-br] Duvida desevolvimento sistema em grupo Bom dia Sempre programei sozinho, devido sistemas pequenos, estou iniciando um projeto um pouco mais complexo onde trabalharei com um outro programador, gostaria de saber como q funciona a programacao em grupo ou seja, com o é dividido o processo de programação. Por exemplo no caso do Delphi como que faz pra mais de um programador estar trabalhando em um msm projeto, cada um responsavel pela sua parte, como faria pra juntar as partes de cada programador ? Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- - - - - - - Rafael jorge alves (Analista/desenvolv edor) www.sistemafocus. com.br sistema focus de gestão comercial e serviços em informatica. - - - - - - [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;}
Re: RES: [delphi-br] dm.qProdutos.Locate
Ok entao, sua tabela esta certa assim mesmo como character. Varchar eh um tipo especial de campo para economizar bytes no banco de dados, no qual ele soh usa o tamanho necessario da string armazenada no registro. Tipo assim, se vc tem um campo char(10) e digitar 0123 ele assim mesmo ocupa os 10 caracteres... coisa que o varchar ira armazenar apenas os 4. O que eh necessario verificar eh se o usuario na hora de cadastrar o codigo nao deixou um espaco em branco antes do codigo, tipo 0123, entende. E dificil perceber qdo ha um espaco no inicio da string. Talvez fosse necessario atualizar toda a coluna removendo os espacos da direta e da esquerda do codigo assim. update tabela set codigo = LTrim(RTrim(codigo)) ou se vc esta migrando do Visual Fox ou clipper... use tabela replace all codigo with Alltrim(codigo)... ...que nostalgico... :,( No mais o seu codigo esta correto... Marcelo Horlle - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 1:16 PM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Só para lembrar, a tabela aqui é .DBF, e os tipos de campos são: Character, Float, Number, Date, Logical, Memo, OLE, Binary E o código possui caracteres númericos e alfanuméricos. Qual seria o tipo de campo certo??? --- Em delphi-br@yahoogrupos.com.br, Apoio [EMAIL PROTECTED] escreveu um estranho ... qual tipo do campo de codigo? veja se é char ... usando char seu campo pode estar retornando assim: 0123 no que varchar ele traria assim 0123 ae na consulta ele nunca vai retornar so se vc digitar esses espaços antes sacou ... V ae ! - Original Message - From: caionmoreno To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:25 AM Subject: Re: RES: [delphi-br] dm.qProdutos.Locate Você não entendeu, eu estou procurando por string, porém a string que eu procuro é '0123', e eu coloco '0123', e ele não acha. Quando eu procuro a string '123' e coloco '123' ele acha. Entendeu? --- Em delphi-br@yahoogrupos.com.br, Vitor Redes vredesredsystem@ escreveu Porque você está utilizando uma busca por Strings... `0123' é muito diferente de `123' Utilize assim, caso o código do produto seja inteiro: Locate( `CODIGO', StrToInt( Edit1.Text ), [ loPartialKey ]; Case o código seja String, então o seu cliente deve procurar com uma string mais lógica. Vitor. [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente UserControl
Show de bola este componente UserControl, porémAlguém sabe se ele faz isso: Exemplo: Usuário: JOSÉ Menus do sistema: CADASTRO, ESTOQUE, VENDAS. Se o JOSÉ tem permissão apenas para o menu ESTOQUE então quero que apenas a opção ESTOQUE apareça para ele. Do jeito que fiz aparecem as três opções ( cadastro, estoque, vendas), porém Cadastro e Vendas estão desabilitadas (cf. usuário x acesso) e só ESTOQUE está habilitada (cf. idem) Tem algum recurso/evento/função dentro do UserControl que exiba do menu apenas as opções habilitadas ? Pensem comigo: Se o usuário é da seção Estoque, o que lhe interessa saber se o sistema tem uma opção chamada Financeiro ? Embora ele usuário não a acesse acho que não deveria nem ser exibida para ele, cf seus acessos permitidos. Obrigado pela atenção Junior [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Biokey.ocx Duvidas urgente
Ola gente, Alguem da lista ja trabalhou com SDK biokey? Grato Hudson Dias [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente UserControl
muito show mesmo... no componente principal o Tusercontrol va na prop. : notAllowedItems mude para false . - Original Message - From: Junior To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 3:54 PM Subject: [delphi-br] Componente UserControl Show de bola este componente UserControl, porémAlguém sabe se ele faz isso: Exemplo: Usuário: JOSÉ Menus do sistema: CADASTRO, ESTOQUE, VENDAS. Se o JOSÉ tem permissão apenas para o menu ESTOQUE então quero que apenas a opção ESTOQUE apareça para ele. Do jeito que fiz aparecem as três opções ( cadastro, estoque, vendas), porém Cadastro e Vendas estão desabilitadas (cf. usuário x acesso) e só ESTOQUE está habilitada (cf. idem) Tem algum recurso/evento/função dentro do UserControl que exiba do menu apenas as opções habilitadas ? Pensem comigo: Se o usuário é da seção Estoque, o que lhe interessa saber se o sistema tem uma opção chamada Financeiro ? Embora ele usuário não a acesse acho que não deveria nem ser exibida para ele, cf seus acessos permitidos. Obrigado pela atenção Junior [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] Duvida desevolvimento sistema em grupo
Tem o Subversion tbm que é utilizado largamente no mundo inteiro. É livre (grátis, código fonte disponível para eventuais modificações) fácil de implantar, fácil de aprender. E o processo vai ser bastante transparente pra vocês. cada um vai trabalhar com todo o projeto na sua máquina. No fim do dia, por exemplo, todos vão commitar o código e o próprio subversion vai juntar o código que cada um trabalhou no repositório. No início do dia, por exemplo, todo mundo dá um update na sua pasta e tcharan!, todo mundo term seu projeto atualizado com o código de todo mundo :D Procura no Google que vc vai achar uma penca de coisas. -- Sérgio Cavalcante 2008/1/16 Thiago Andrighetti [EMAIL PROTECTED]: Eu entendi essa parte da organização e tal, porem, e no caso especifico do Delphi(por exemplo), como faria pra dois programadores mecherem no mesmo projeto, cadaum faria um projeto separado e depois junta os dois? ou cada um geraria um executavel e no final fariamos um software principal que chamaria os dois executaveis.? Meu caso tambem é parecido com o do amigo Icaro, trabalhei sempre sozinho, com softwares pequenos, mas agora me vejo com a necessidade de ver com algum outro programador pra ajudar a desenvolver um sistema maior, porem não sei como faria essa parte, a parte do compartilhamento do projeto ( se é que poderia chamar de compartilhamento xD). Thiago Andrighetti de Pádua Analista de Suporte em Software Livre - Mensagem original De: Rafael Jorge [EMAIL PROTECTED] rafael.jorge%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 13:20:25 Assunto: Re: [delphi-br] Duvida desevolvimento sistema em grupo Cara primeiro. Instale um controle de versão. para você sempre saber o que foi feito e por quem e quando. E evitar que duas pessoas mexam na mesmo fonte. segundo comente e padronize seu código para que não aconteça de dois mundo diferentes fazendo a mesma coisa. Converse com o outro programador e entrem em bom senso de como vai ser feito e de que jeito. Estabeleça padrões. Comente o Maximo possível de códigos que sejam complexos muita gente não liga pra isso só pro controle de versão, mas o trabalho sai rápido e flui melhor quando você mexe num código não seu e sabe o que ta mexendo facilmente e outra pessoa mexe no seu e sente o mesmo. já trabalhe em grupo onde tenho CVS e tudo o mais. Mas cada um programava do seu jeito. Era um inferno pra um novato. Sem framework ainda mais foi pior ainda. t+ Em 16/01/08, Apoio [EMAIL PROTECTED] com.br escreveu: nos aqui na empresa usamos jedi vcs: (free) http://jedivcs. sourceforge. net/ ele lhe ajudara a controlar versoes , o codigo fonte fica num servidor , etc etc qualquer duvida na instalação e na utilização posta ae q tenho certeza q muitos aqui usam ele... - Original Message - From: Icaro Ferreira To: delphi br Sent: Wednesday, January 16, 2008 11:18 AM Subject: [delphi-br] Duvida desevolvimento sistema em grupo Bom dia Sempre programei sozinho, devido sistemas pequenos, estou iniciando um projeto um pouco mais complexo onde trabalharei com um outro programador, gostaria de saber como q funciona a programacao em grupo ou seja, com o é dividido o processo de programação. Por exemplo no caso do Delphi como que faz pra mais de um programador estar trabalhando em um msm projeto, cada um responsavel pela sua parte, como faria pra juntar as partes de cada programador ? Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- - - - - - - Rafael jorge alves (Analista/desenvolv edor) www.sistemafocus. com.br sistema focus de gestão comercial e serviços em informatica. - - - - - - [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input,
Re: [delphi-br] Componente UserControl
Claro que faz, pois vc tem os fontes na mão ! Eu fiz algumas adaptações na versão original para meu uso. Junior [EMAIL PROTECTED] escreveu: Show de bola este componente UserControl, porémAlguém sabe se ele faz isso: Exemplo: Usuário: JOSÉ Menus do sistema: CADASTRO, ESTOQUE, VENDAS. Se o JOSÉ tem permissão apenas para o menu ESTOQUE então quero que apenas a opção ESTOQUE apareça para ele. Do jeito que fiz aparecem as três opções ( cadastro, estoque, vendas), porém Cadastro e Vendas estão desabilitadas (cf. usuário x acesso) e só ESTOQUE está habilitada (cf. idem) Tem algum recurso/evento/função dentro do UserControl que exiba do menu apenas as opções habilitadas ? Pensem comigo: Se o usuário é da seção Estoque, o que lhe interessa saber se o sistema tem uma opção chamada Financeiro ? Embora ele usuário não a acesse acho que não deveria nem ser exibida para ele, cf seus acessos permitidos. Obrigado pela atenção Junior [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente UserControl
Se vc tem os fontes é só trocar o Enabled por Visible... - Original Message - From: Junior To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 2:54 PM Subject: [delphi-br] Componente UserControl Show de bola este componente UserControl, porémAlguém sabe se ele faz isso: Exemplo: Usuário: JOSÉ Menus do sistema: CADASTRO, ESTOQUE, VENDAS. Se o JOSÉ tem permissão apenas para o menu ESTOQUE então quero que apenas a opção ESTOQUE apareça para ele. Do jeito que fiz aparecem as três opções ( cadastro, estoque, vendas), porém Cadastro e Vendas estão desabilitadas (cf. usuário x acesso) e só ESTOQUE está habilitada (cf. idem) Tem algum recurso/evento/função dentro do UserControl que exiba do menu apenas as opções habilitadas ? Pensem comigo: Se o usuário é da seção Estoque, o que lhe interessa saber se o sistema tem uma opção chamada Financeiro ? Embora ele usuário não a acesse acho que não deveria nem ser exibida para ele, cf seus acessos permitidos. Obrigado pela atenção Junior [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] programa nao encerra
O que fazer quando o programa fica preso na barra de ferramentas e nao encerra ? sds - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente UserControl
galera o user control tem muitas propriedades ... antes de sair mudando sua versao acho que deviam procurar com calma essa prop. tem ae como ja falei q muda automaticamente , nao precisa reinventar e eu particurlarmente acho furada mudar uma versao pois quando os caras do UC atualizarem a original , eu vo ter q refazer tudo dinovo ou ficar boiando com minha versao ... - Original Message - From: Adriano de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 6:16 PM Subject: Re: [delphi-br] Componente UserControl Se vc tem os fontes é só trocar o Enabled por Visible... - Original Message - From: Junior To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 2:54 PM Subject: [delphi-br] Componente UserControl Show de bola este componente UserControl, porémAlguém sabe se ele faz isso: Exemplo: Usuário: JOSÉ Menus do sistema: CADASTRO, ESTOQUE, VENDAS. Se o JOSÉ tem permissão apenas para o menu ESTOQUE então quero que apenas a opção ESTOQUE apareça para ele. Do jeito que fiz aparecem as três opções ( cadastro, estoque, vendas), porém Cadastro e Vendas estão desabilitadas (cf. usuário x acesso) e só ESTOQUE está habilitada (cf. idem) Tem algum recurso/evento/função dentro do UserControl que exiba do menu apenas as opções habilitadas ? Pensem comigo: Se o usuário é da seção Estoque, o que lhe interessa saber se o sistema tem uma opção chamada Financeiro ? Embora ele usuário não a acesse acho que não deveria nem ser exibida para ele, cf seus acessos permitidos. Obrigado pela atenção Junior [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] Duvida desevolvimento sistema em grupo
Apenas complementando o que o Sérgio disse: É a CodeGear migrou para o SVN. Boas práticas dizem para dar commit sempre que terminar uma alteração pois fica mais fácil voltar versão de for o caso. (ex: corrigiu um bug, commit; terminou de implementar uma nova classe, commit; etc). E sempre dar update antes de dar commit pois fica mais fácil de resolver possíveis conflitos. E também dar update sempre que possível antes de começar uma alteração pois alguém pode ter modificado o fonte que você vai alterar. -- José Henrique (Zote) Analista de TI Bludata Software From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of sergio cavalcante Sent: quarta-feira, 16 de janeiro de 2008 16:37 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Duvida desevolvimento sistema em grupo Tem o Subversion tbm que é utilizado largamente no mundo inteiro. É livre (grátis, código fonte disponível para eventuais modificações) fácil de implantar, fácil de aprender. E o processo vai ser bastante transparente pra vocês. cada um vai trabalhar com todo o projeto na sua máquina. No fim do dia, por exemplo, todos vão commitar o código e o próprio subversion vai juntar o código que cada um trabalhou no repositório. No início do dia, por exemplo, todo mundo dá um update na sua pasta e tcharan!, todo mundo term seu projeto atualizado com o código de todo mundo :D Procura no Google que vc vai achar uma penca de coisas. -- Sérgio Cavalcante 2008/1/16 Thiago Andrighetti [EMAIL PROTECTED] mailto:thiagoapadua%40yahoo.com.br : Eu entendi essa parte da organização e tal, porem, e no caso especifico do Delphi(por exemplo), como faria pra dois programadores mecherem no mesmo projeto, cadaum faria um projeto separado e depois junta os dois? ou cada um geraria um executavel e no final fariamos um software principal que chamaria os dois executaveis.? Meu caso tambem é parecido com o do amigo Icaro, trabalhei sempre sozinho, com softwares pequenos, mas agora me vejo com a necessidade de ver com algum outro programador pra ajudar a desenvolver um sistema maior, porem não sei como faria essa parte, a parte do compartilhamento do projeto ( se é que poderia chamar de compartilhamento xD). Thiago Andrighetti de Pádua Analista de Suporte em Software Livre - Mensagem original De: Rafael Jorge [EMAIL PROTECTED] mailto:rafael.jorge%40gmail.com rafael.jorge%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 13:20:25 Assunto: Re: [delphi-br] Duvida desevolvimento sistema em grupo Cara primeiro. Instale um controle de versão. para você sempre saber o que foi feito e por quem e quando. E evitar que duas pessoas mexam na mesmo fonte. segundo comente e padronize seu código para que não aconteça de dois mundo diferentes fazendo a mesma coisa. Converse com o outro programador e entrem em bom senso de como vai ser feito e de que jeito. Estabeleça padrões. Comente o Maximo possível de códigos que sejam complexos muita gente não liga pra isso só pro controle de versão, mas o trabalho sai rápido e flui melhor quando você mexe num código não seu e sabe o que ta mexendo facilmente e outra pessoa mexe no seu e sente o mesmo. já trabalhe em grupo onde tenho CVS e tudo o mais. Mas cada um programava do seu jeito. Era um inferno pra um novato. Sem framework ainda mais foi pior ainda. t+ Em 16/01/08, Apoio [EMAIL PROTECTED] com.br escreveu: nos aqui na empresa usamos jedi vcs: (free) http://jedivcs. sourceforge. net/ ele lhe ajudara a controlar versoes , o codigo fonte fica num servidor , etc etc qualquer duvida na instalação e na utilização posta ae q tenho certeza q muitos aqui usam ele... - Original Message - From: Icaro Ferreira To: delphi br Sent: Wednesday, January 16, 2008 11:18 AM Subject: [delphi-br] Duvida desevolvimento sistema em grupo Bom dia Sempre programei sozinho, devido sistemas pequenos, estou iniciando um projeto um pouco mais complexo onde trabalharei com um outro programador, gostaria de saber como q funciona a programacao em grupo ou seja, com o é dividido o processo de programação. Por exemplo no caso do Delphi como que faz pra mais de um programador estar trabalhando em um msm projeto, cada um responsavel pela sua parte, como faria pra juntar as partes de cada programador ? Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- - - - - - - Rafael jorge alves (Analista/desenvolv edor) www.sistemafocus. com.br sistema focus de gestão
[delphi-br] ProgressBar
Boa noite a todos, alguém sabe como eu posso fazer um progreesbar (real)?? Tenho uma função que atualizo a versão do meu projeto copiando a versão mais atual do servidor para o cliente. Queria que o progressbar mostrasse o tempo que demora para fazer essa atualização. Alguém sabe como eu posso fazer algo desse tipo?? Atualmente eu utilizo essa função, mas ela não mostra o tempo real da atualização. for I := ProgressBar1.Min to ProgressBar1.Max do begin ProgressBar1.Position := I; Sleep(50); end; ProgressBar1.Position := ProgressBar1.Min; Se alguem puder ajudar, agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida...
Srs, Seguinte estou iniciando em delphi e estou com um duvida...bom fiz um sisteminha de controle de estoque e vendas...tas tbl's Cliente..fornecedor..produto...tudo ok...porem quando cheguei na venda parei hehehe como ficaria o frmVendas...na parte de cima seria o id_venda..o cliente (dblookcombox) e a data...no DBGrid ficaria com o produto..quantidade e total por item...pelo banco fica bacaninha...ou seja os relacionamentos estão funcionando tranquilo...porem nao sei como fazer para aparecer no DBGrid o combox para escolher o produto...será q consegui explicar? hehehe valeu - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Fluxo de caixa em Delphi
nao tem nem mais o q dizer ne companheiro quando vc tiver um problema especifico poste pro grupo - Original Message - From: Guionardo Furlan [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 2:44 PM Subject: Re: [delphi-br] Fluxo de caixa em Delphi Fala Rafael Três coisas: 1. Abra uma nova mensagem com o assunto do qual quer tratar. 2. Que dificuldades vc está tendo? 3. Consulte sempre DEUS (www.google.com.br) para estas questões iniciais. Aí vão três links pra te ajudar no início: www.ivansantos.com.br/fluxo.htm http://pt.wikipedia.org/wiki/Fluxo_de_caixa www.portaltributario.com.br/modelos/fluxocaixa.xls Um abraço. Em 16/01/08, Rafael Pacheco [EMAIL PROTECTED] escreveu: Ola amigos, Estou trabalhando com fluxo de caixa em delphi, sou iniciante e estou tendo alguns problemas. Se alguém tiver algun exemplo e puderem me enviar, ficaria grato pela ajuda. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.2/1223 - Release Date: 13/1/2008 20:23
Re: [delphi-br] MySQL - Problemas
que driver vc instalou pra fazer a conexao ??? - Original Message - From: Apoio [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:30 AM Subject: Re: [delphi-br] MySQL - Problemas use zeos; http://sourceforge.net/project/showfiles.php?group_id=35994package_id=28219 - Original Message - From: dhsb To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 16, 2008 11:13 AM Subject: [delphi-br] MySQL - Problemas Pessoal estou enfrentando um problema e gostaria de saber se alguem ja passou por algo semelhante. Tenho o Delphi 7 e tento conectar num banco MySql 5. Usei o componente SQLConnection. E conectou beleza. Mas quando vou usar um SQLDataSet ou SQLQuery esta dando Access Violation dbexpmysql.dll. Procurei na net e vi que e uma versao incompativel. Como poderias resolver este problema? Agradeço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.2/1223 - Release Date: 13/1/2008 20:23