[delphi-br] Como usar o compilador em linha de comando
Pessoal: Eu uso o compilador DCC32.EXE do Delphi no prompt de comando, para compilar alguns sistemas. Percebi que, antes de executar o compilador acima, tenho de entrar na pasta onde esta´ o DPR, pois do contrario ele nao encontra os modulos. Por exemplo: CD\SISTEMAS\COMPRAS (entro na pasta onde esta´ o sistema) DCC32 COMPRAS.DPR (compilo o sistema) Tentei usar assim: DCC32 C:\SISTEMAS\COMPRAS\COMPRAS.DPR mas neste caso o compilador nao encontra os modulos .PAS que estao dentro da pasta C:\SISTEMAS\COMPRAS Existe algum meio de eu compilar o DPR sem ter de primeiro entrar na pasta ? Obs.: Criei um arquivo .BAT que faz isso tudo automaticamente, mas para algumas outras necessidades seria interessante eu poder usar a linha de comando diretamente. Muito obrigado pela atencao de todos Paulo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: obter dados do sintegra
De onde voces acham que as administradoras de cartão obtem dados para enviar cartão de crédito sem solicitção? Experimentem, na sua próxima declaração de IR, colocar um caracter diferente no endereço para distingui-lo dos demais. Ja ouvi dizer que a Receita vende o cadastro (uma associacao comercial comprava para ajustar o spc). Mas não é pra qualquer um, e prepare o bolso. Também já vi reportagem de camelos na regiao da 25 de março em SP vendendo o CD com estes dados. (No Brasil tem de tudo!!) --- Em delphi-br@yahoogrupos.com.br, Emerson Cassio [EMAIL PROTECTED] escreveu Infelismente a Receita não possui este serviço. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 13, 2007 7:37 PM Subject: Re: [delphi-br] obter dados do sintegra Eu acho meio dificil da receita liberar estas informações. ja busquei ha muito tempo so que para CPF e nao achei nada. Em 12/01/07, Fco Carlos [EMAIL PROTECTED] escreveu: Existe a possibilidade de se obter os dados cadastrais das empresas contidas na receita federal ou no sintegra como se faz com os correios. Ex: tenho aqui uma rotina onde eu coloco o nr do cep e ja obtenho os dados referente a rua, bairro,cidade e estado estava pensando na possibilidade de digitar o nr do cnpj da empresa e ja aparecer razaosocil, nome fantasia, insc.estadual, etc.. na pagina da receita ou do sintegra, digitase o cnpj e ja aparece os dados da empresa como colocar isso na minha aplicacao ? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- 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] __ Informação do NOD32 IMON 1976 (20070113) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: obter dados do sintegra
Mais um comentário sobre sintegra e citando de outra lista: Caros Colegas: Somente a nível de curiosidade e precaução em algumas empresas referente a este processo do Sintegra de gerar os produtos, custos, etc. A receita fez esta rotina para checar o custo do produto da empresa com suas respectivas notas fiscais de venda e entrada da empresa que esta gerando o sintegra pelo numero do produto, sendo assim, caso alguma empresa esteja praticando a seguinte formula è Valor da mercadoria vendida ICMS PIS COFINS e este valor ficar muito próximo ao valor do custo do produto informado no arquivo do sintegra o fisco vai entender que a empresa esta praticando valores próximos ao custo e vai suspeitar que a empresa esta praticando vendas de meia nota, e a empresa pode ser fiscalizada por isto, logicamente o fisco tem um software que lee este arquivo gerado e faz comparações. --- Em delphi-br@yahoogrupos.com.br, fmmattos1976 [EMAIL PROTECTED] escreveu De onde voces acham que as administradoras de cartão obtem dados para enviar cartão de crédito sem solicitção? Experimentem, na sua próxima declaração de IR, colocar um caracter diferente no endereço para distingui-lo dos demais. Ja ouvi dizer que a Receita vende o cadastro (uma associacao comercial comprava para ajustar o spc). Mas não é pra qualquer um, e prepare o bolso. Também já vi reportagem de camelos na regiao da 25 de março em SP vendendo o CD com estes dados. (No Brasil tem de tudo!!) --- Em delphi-br@yahoogrupos.com.br, Emerson Cassio emcassio@ escreveu Infelismente a Receita não possui este serviço. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 13, 2007 7:37 PM Subject: Re: [delphi-br] obter dados do sintegra Eu acho meio dificil da receita liberar estas informações. ja busquei ha muito tempo so que para CPF e nao achei nada. Em 12/01/07, Fco Carlos fcandrade2001@ escreveu: Existe a possibilidade de se obter os dados cadastrais das empresas contidas na receita federal ou no sintegra como se faz com os correios. Ex: tenho aqui uma rotina onde eu coloco o nr do cep e ja obtenho os dados referente a rua, bairro,cidade e estado estava pensando na possibilidade de digitar o nr do cnpj da empresa e ja aparecer razaosocil, nome fantasia, insc.estadual, etc.. na pagina da receita ou do sintegra, digitase o cnpj e ja aparece os dados da empresa como colocar isso na minha aplicacao ? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1976 (20070113) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Numero por extenso
se vc já tem o número, basta fazer alguns ajustes na função q gera extenso...
acrescenta a palavra reais antes da vírgula e centavos no final (caso seja 0)
basta vc dar uma olhadinha no código... analise-o q vc consegue... nem é tão
difícil assim
para tocar vc pode usar a função:
procedure TOCASOM(arquivo : string);
var
aux : Array[0..255]of char;
begin
if arquivo '' then
begin
StrPCopy(Aux,arquivo);
try
sndPlaySound(Aux,SND_ASYNC);
except
// erro ao acessar dispositivo de som...
end;
end;
end;
ps: acrescentar a unit MMSystem
Mais fácil q isso, só passatempo com leite... hu
rsrsrs
Abração
and.
- Original Message -
From: Jefferson - Fórum
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 15, 2007 3:31 PM
Subject: Re: [delphi-br] Numero por extenso
Aproveitando a dúvida do amigo, gostaria de saber como eu poderia fazer uma
função que reproduziria um valor através de som, já que possuo todos arquivos
(*.wav) referentes aos valores.
Seria igual aos quiosques do supermercado, quando colocamos um produto e ele
diz o valor do mesmo.
Obrigado!
Jefferson
- Original Message -
From: Valdir UOL
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 15, 2007 10:22 AM
Subject: RES: [delphi-br] Numero por extenso
Pega ai um exemplo.
unit Ext;
interface
function extenso (valor: real): string;
implementation
uses
SysUtils, Dialogs;
function extenso (valor: real): string;
var
Centavos, Centena, Milhar, Milhao, Texto, msg: string;
const
Unidades: array[1..9] of string = ('Um', 'Dois', 'Tres', 'Quatro', 'Cinco',
'Seis', 'Sete', 'Oito', 'Nove');
Dez: array[1..9] of string = ('Onze', 'Doze', 'Treze', 'Quatorze', 'Quinze',
'Dezesseis', 'Dezessete', 'Dezoito',
'Dezenove');
Dezenas: array[1..9] of string = ('Dez', 'Vinte', 'Trinta', 'Quarenta',
'Cinquenta', 'Sessenta', 'Setenta',
'Oitenta', 'Noventa');
Centenas: array[1..9] of string = ('Cento', 'Duzentos', 'Trezentos',
'Quatrocentos', 'Quinhentos',
'Seiscentos',
'Setecentos', 'Oitocentos',
'Novecentos');
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Igor Alexandre
Enviada em: segunda-feira, 15 de janeiro de 2007 11:09
Para: Delphi-Br; Delphi-Total
Assunto: [delphi-br] Numero por extenso
Alguem sabe como retornar um numero por extenso. ex: 29 - Vinte e nove;
--
Igor Alexandre.
[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]
__ Informação do NOD32 IMON 1980 (20070115) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Inserindo Imgem no Banco
Olá pessoal...
Olha só eu to com um problema aqui pra inserir uma imagem no banco. Eu já
pesquisei várias opções na web ,mas nenhuma me ajudou. Será q alguém pode me
ajudar?
Eu to usando Delphi2005 + Fibplus 6.25 + Firebird 1.5 Eu sei q do Firebird
não é, pois eu consegui inserir direto.
No banco foi criado um Domain para o campo blob. A ultima opção de código
que eu tentei foi essa (peguei num fórum de ajuda do interbase)
==
procedure TdmBD.SalvarImagem(ATela: TBitmap; ADescricao: String; AvaAtnd:
integer);
var
strm: TStream;
begin
tras.StartTransaction;
strm := TStream.Create;
qryInsertImagem.Prepare;
try
Atela.SaveToStream(strm);
qryInsertImagem.ParamByName('DESCRICAO').AsString := ADescricao;
qryInsertImagem.ParamByName('AVALIACAO_ATENDIMENTO_ID').AsInteger :=
AvaAtnd;
qryInsertImagem.ParamByName('IMAGEM').LoadFromStream(strm);
qryInsertImagem.ExecQuery;
tras.Commit;
except
on E: Exception do
begin
tras.Rollback;
end;
end;
strm.Free;
strm.Destroy;
end;
==
Qdo executo ele dá um erro ABSTRACT ERROR, e eu não sei o q fazer, já
pesquisei várias soluções, mas todas são muito parecidas.
Se alguém puder me ajudar eu agradeço...
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Detecção automática de nova ve rsão.
O TavmVersion fui eu quem fez, mas eu não estou conseguindo enviá-lo para o SourceForge. Alguém aí saberia como fazê-lo? [ ]'s - Original Message - From: Daniel Bastos [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, January 14, 2007 12:39 PM Subject: Re: [delphi-br] Detecção automática de nova versão. Cara... tem vários componentes que vi por ai que dizem fazer isso automaticamente, mas, eu resolvi criar uma solução própria. A grosso modo o que eu faço é o seguinte. eu uso os componentes INDY para se conectar no meu site e baixar um arquivo de lá.. neste arquivo, tem as informações das atualizações e a URL para baixa-las. Verifico a versão do programa corrente (atravez do build da versão compilada) e mando baixar e executar o instalador, que faz o trabalho dai em diante. Isso tudo em uma aplicação separada do meu projeto, para ter mais mobilidade. Esta solução não é difícil de implementar, mas é um tanto trabalhosa. vc pode usar compoentes de terceiros. em uma pesquisa rápida no surceforge achei este link, que é um componente que diz fazer exatamente o que vc quer http://sourceforge.net/projects/tavmversion/ Sinceramente eu aconcelho que desenvolva sua própria aplicação, pois vc provavelmente terá atualizações de banco, e estas, estes componentes não tratam. Abs. Abs Daniel A. Bastos 2007/1/12, ricardoamorim1 [EMAIL PROTECTED]: Olá Pessoal, boa tarde a todos, ingressei no grupo a semana passada e estou achando muito interessante as dúvidas enviada, muito legal mesmo. Bom na minha primeira mensagem já vou mandar uma cabeluda. Tenho alguns softwares instalados em diversos clientes e quando atualizo as versões tenho com comunica-los via email da disponibilidade para download. Alguém sabem como fazer para que o software instalado no cliente detecte automaticamente uma nova versão disponível no meu site de download ou coisa assim, algo parecido com o que acontece com os antivirus por exemplo, o proprio software ao ser aberto notifica o usuário da disponibilidade de uma nova versão. Se alguem puder clarear essa pra mim serei imensamente grato. Um abraço à todos. Ricardo Amorim [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] Salvar figura com clientdataset
Estou tentando salvar uma figura em um campo Blob usando clientdataset, mas dá o seguinte erro: Unable to find record. No key specified. Mas se eu salvar o registro sem o campo da figura funciona normalmente. Estou usando DbExpress e Firebird. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aggregate(O QUE FAÇO?!)
Amigo, eu resolvi isto fechando e abrindo o clientDataSet Abraços - Original Message - From: sampaiobrito To: delphi-br@yahoogrupos.com.br Sent: Monday, January 15, 2007 5:33 PM Subject: [delphi-br] Aggregate(O QUE FAÇO?!) Amigos, Tenho um relacionamento mestre detalhe (feito com 2 clientdataset's pela configuração da propriedade MasterFields) o problema é o seguinte: para o campo valor do clientdataset 'Filho' criei um Aggregate, só que quanto passo um parâmetro para o ClientDataSet 'Pai' e mudo os registros filhos, parece que ele está armazenando o valor da última linha e somando com a que está selecionada no conjunto atual ( no que foi carregado)... O que faço... Alguém já passou por isto e pode dá uma maozinha... Desde já agradeço! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi e Firebird - Erro
Ambiente, Firebird 1.5.2, Delphi 7, DbExpress. Esta aparecendo o seguinte erro em alguns registros: Record not found or changed by another user. Esse erro aparece qdo mando dar post e applyupdates no ClientDataSet, esse erro é esporadico, e nao sei qual a causa dele, se alguem ja passou por isso. No clientdataset eu nao tenho os campos da tabela, eu os carrego em tempo de execucao apenas, atraves do select que é passado a ele. Se eu fizer a alteracao pelo IBExpert ele faz normalmente, mas pelo meu sistema da esse erro ae... e eu so tenho um usuario aberto em apenas um sistema. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Numero por extenso
Igor Alexandre wrote: Alguem sabe como retornar um numero por extenso. ex: 29 - Vinte e nove; http://www.joaomorais.com.br/pascal/push.php?download=31564299 -- João Morais
[delphi-br] Formatar essa coluna no DBGRID
Pessoal,
Como faço pra formatar essa coluna, pois nao acho comando nenhum pra isso.
Codigo abaixo: o EditMaskText nao esta funcionando.
procedure TfrmPesqClientes.CDSPesqClientesCPFCNPJGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
inherited;
if CDSPesqClientesTIPCLI.AsString = 'F' then
Text := EditMaskText('000\.000\.000-00;0;_', Sender.AsString)
else if CDSPesqClientesTIPCLI.AsString = 'J' then
CDSPesqClientesCPFCNPJ.EditMask := '00\.000\.000/-00;0;_';
end;
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] dúvida de implementação de tela!!!!
Ai Galera blz! Gente to com uma dúvida quanto ao desenvolvimento de uma tela do meu software, como eu poderia faze-la, gostaria de sugestões de como desenvolve-la não tenho a minima idéia ... Essa tela irá gerar a agenda diária do dentista. Através dos seguintes campos . Um campo para informar o dentista Um para informar o ano da agenda Um para informar o mês que será gerada por exemplo Dentista: Renato Lorandi Ano : 2006 Mês: 12 Apartir desses dados vou ter um botão gerar agenda quando clicado ele devera me mostrar um grid com os seguintes dados relacionados aos dados acima. DIA_SEMANA DATA Turno MANHA HORA_INI HORA_FIM Turno TARDE HORA_INI HORA_FIM Turno NOITE HORA_INI HORA_FIM Segunda-feira 4/12/2006 07:30 12:00 13:00 18:00 18:00 21:00 Terça-Feira 5/12/2006 Quarta- Feira 6/12/2006 08:00 11:00 Neste exemplo ai, o Dentista Renato não trabalha na terça feira, e na quarta so de manha blz. Será que isso ai vai ser muito complicado de fazer, preciso de uma tela parecida com essa, claro mais bonita r. Os horários serão pegos da consulta em uma tabela, e esses dados, mais precisamente os horários seão gravados em outra tabela, para formar a agenda do dentista no mês de referencia. Este grid tem que possibilitar de apagar esses horários, que vai me dizer que o dentista naquele turno de tal dia não ira trabalhar entende. Assim não será possível marcar consulta naquele dia para aquele dentista... Lógico que a disponibilidade dos dados no grid pode variar, coloquei assim para entendimento de todos, se alguem tiver outras sugestões fico no aguardo, numca fiz um software, este é para meu projeto de faculdade, por isso venho pedir ajuda de vc's a idéia é tentar algo desse tipo caso seja muito complicado gostaria de outras sugestões ok... se não entenderam muito bem tento explicar melhor é so responder .. abraços. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com SQL
Tenho uma tabela listando contas, e uma outra com os valores lançados em cada conta e as datas de lançamento e pagamento. Quero listar todas as contas e os valores totais lançados em cada uma, mesmo quando não haja nenhum valor (quando o valor seria 0). Até aqui, um LEFT JOIN resolve, o problema é que também preciso filtrar por data, para ter a movimentação num certo período. Quando faço isso, todas as contas que não tenham tido lançamentos desaparecem do resultado. Estou usando o banco de dados Firebird. Agradeço se alguém puder ajudar
[delphi-br] Ajuda
Pessoal. Alguem já passou por uma situação dessas? Uma tabela no Access não está atualizando, sempre ocorre o erro de chave, não cosnegue inserir um novo registro. Campo - Numerico - Chave primaria Inserção do campo atraves de botão. CAMPO:= CAMPO +1 Tinha que funcionar o que deve estar errado? PAULO FERNANDES __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ordem decrescente de data
Ola, preciso colocar arquivos em um filelistbox em ordem decrescente de criação. Alguem pode dar uma ajuda? De já agradeço. []´s Paulo
Re: [delphi-br] Ajuda com SQL
Qual o banco o vc esta usando??? Em 16/01/07, blcksun954 [EMAIL PROTECTED] escreveu: Tenho uma tabela listando contas, e uma outra com os valores lançados em cada conta e as datas de lançamento e pagamento. Quero listar todas as contas e os valores totais lançados em cada uma, mesmo quando não haja nenhum valor (quando o valor seria 0). Até aqui, um LEFT JOIN resolve, o problema é que também preciso filtrar por data, para ter a movimentação num certo período. Quando faço isso, todas as contas que não tenham tido lançamentos desaparecem do resultado. Estou usando o banco de dados Firebird. Agradeço se alguém puder ajudar [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com SQL
adicione ao seu SQL: OR DATA IS NULL onde data é o seu campo data. Ex.: select f.filial, p.registro_id, p.data, p.filial_id from filiais f left join propostas p on p.filial_id=f.registro_id where p.data between '01.01.2006' and '10.01.2006' or p.data is null [] Andrei Em 16/01/07, blcksun954[EMAIL PROTECTED] escreveu: Tenho uma tabela listando contas, e uma outra com os valores lançados em cada conta e as datas de lançamento e pagamento. Quero listar todas as contas e os valores totais lançados em cada uma, mesmo quando não haja nenhum valor (quando o valor seria 0). Até aqui, um LEFT JOIN resolve, o problema é que também preciso filtrar por data, para ter a movimentação num certo período. Quando faço isso, todas as contas que não tenham tido lançamentos desaparecem do resultado. Estou usando o banco de dados Firebird. Agradeço se alguém puder ajudar
Res: [delphi-br] Acentução - Delphi + Mysql 4. 1 + Zeos 6.5.1 - Parte II
Para não colocar muitas colunas... Pode usar uma simples estrutura de tabela, sendo: idEntidade int nmEntidade varchar(100) Minha busca sempre será pelo nome, com isso os outros campos não são importantes. Segue em anexo o script com a estrutura da tabela e os inserts. Grato pela ajuda. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 15 de Janeiro de 2007 18:08:07 Assunto: Re: [delphi-br] Acentução - Delphi + Mysql 4.1 + Zeos 6.5.1 - Parte II Oi Wilian, eu novamente, quando enviei o e-mail a ideia era desabilitar o doOEMTranslate, se os dados so estão vindo corretamento com ele habilitado significa que foram inseridos na tabela com ele habilitado tb, por isso sua busca fica assim, sem buscar com os acentos. tenho uma ideia de como resolver mas não sei se vai dar certo, será que você pode gerar o script de uma dessas tabelas e me enviar pra eu fazer um teste? fico no aguardo. Em 15/01/07, Wilian Domingues - Analista de [EMAIL PROTECTED] escreveu: Bom dia PessoALL, Tenho uma aplicação desenvolvida em Delphi + Mysql 4.1 + Zeos 6.5.1 Recentemente passei por um problema de acentuação, problema este, resolvido com a ajuda do Eduardo. A sua dica foi habilitar a opção do componente ZQuery: Options - doOemTranslate. Ao Habilitar, os dados do BD são carregados com os acentos corretos. Só que o meu problema está em cima disso. Quando vou realizar uma consulta com uma palavra acentuada não é localizado nada, estando a opção acima habilitada. Se eu desabilitar esta opção e trazer os dados com os caracteres malucos, ao realizar a consulta com as palavras acentuadas o resultado é feito com sucesso. Para realizar está consulta, eu carrego os dados em um combobox, seleciono um dos itens e mando localizar, assim o paramâtro da busca é exatamente a informação que está no BD. Exemplo: tabela FUNC ZQuery.SQL.Text := 'select * from func where nmfunc = :nmfunc'; O parâmetro nmfunc recebe o valor do COMBOBOX. Jos EstevÆo Braga - Sendo o parâmtro desta forma funciona José Estevão Braga - assim não funciona Já testei a consulta com doOemTranslate habilitado e desabilitado de ZQuery, mesmo assim o resultado é nulo qdo localizo com os acentos corretos. Alguém já passou por isso? Att. Wilian Domingues Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ -- create table entidades( identidade int not null auto_increment, nmentidade varchar(100), primary key (identidade) ); insert into entidades(nmentidade) values(SME); insert into entidades(nmentidade) values(Casa do Professor); insert into entidades(nmentidade) values(Biblioteca P£blica); insert into entidades(nmentidade) values(E.M. Alfredo Bata); insert into entidades(nmentidade) values(E.M. Aleijadinho); insert into entidades(nmentidade) values(E.M. Ana Pereira de Lima); insert into entidades(nmentidade) values(E.M. Benedito Xavier); insert into entidades(nmentidade) values(E.M. Domingos Fleury da Rocha); insert into entidades(nmentidade) values(E.M. Dr. Alves de Brito); insert into entidades(nmentidade) values(E.M. Dr. Pedrosa); insert into entidades(nmentidade) values(E.M. Francisco de Araujo Silva); insert into entidades(nmentidade) values(E.M. Inacio de Souza); insert into entidades(nmentidade) values(E.M. Izaura Mendes); insert into entidades(nmentidade) values(E.M. Jos EstevÆo Braga); insert into entidades(nmentidade) values(E.M. Jos Sales Andrade); insert into entidades(nmentidade) values(E.M. Lavras Novas); insert into entidades(nmentidade) values(E.M. Major Raimundo Felic¡ssimo); insert into entidades(nmentidade) values(E.M. Monsenhor JoÆo Castilho Barbosa); insert into entidades(nmentidade) values(E.M. Monsenhor Rafael); insert into entidades(nmentidade) values(E.M. Nossa Senhora das Graas); insert into entidades(nmentidade) values(E.M. Padre Carmlo A. Teixera); insert into entidades(nmentidade) values(E.M. Padre Martins); insert into entidades(nmentidade) values(E.M. Professora Ana GuimarÆes); insert into entidades(nmentidade) values(E.M. Professora Celina Cruz); insert into entidades(nmentidade) values(E.M. Professora Efignia Meira); insert into entidades(nmentidade) values(E.M. Professora Hayde Antunes CAIC); insert into entidades(nmentidade) values(E.M.
[delphi-br] Revista
Boa tarde PessoAll! Nao sei se eh legal fazer este tipo de pedido... Mas nao custa arriscar. Eu estou precisando de uma listagem de todas as revistas distribuidas no Brasil. Algo como 1- Revista Veja 2- Revista Epoca 3- Revista Ana Maria 4- Revista PlayBoy 5- Revista Em Marcha 6- Revista Acao Games 7- Revista do CD-ROM e etc... Alguem tem ou sabe onde eu poderia encontrar? Alguem que tenha um sistema de comercio talvez possua essa informacao. Nao precisa passar o banco de dados inteiro se nao se quiser. Pode passar soh a tabela. Estou precisando muito disso aqui. Obrigado gente t+ Francisco Thiago de Almeida Se é verdade que todos os caminhos levam a Deus, porque será que nem todas estradas levam ao mesmo lugar? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] duvida como inserir em uma tabela, e deletar de outra
Boa Tarde à Todos!! Eu sou novato em delphi, estou fazendo um sistema para uma oficina mêcanica!! O sistema tem que fazer o seguinte: Na ordem de Servico se usou 5 peças , ele automaticamente retira 5 peças do estoque!!! Bom a ideia é essa só que eu não sei fazer isso na pratica!!! Alguem tem algum exemplo ou uma ideia!! Obrigado desde já!!! Vlw
Re: [delphi-br] Ajuda com SQL
put´s num leu a mensagem inteira e já vai respondendo com outra pergunta que a resposta esta na primeira pergunta !!!???. é firebird... ta no final da mensagem dele... hhehehehehehe abaixo tem um exemplo em mysql num sei se vai servir... só colocar um or campodata is null ex: bla bla bla OR tabela.data IS NULL Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Gabriel Filho To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 16, 2007 1:58 PM Subject: Re: [delphi-br] Ajuda com SQL Qual o banco o vc esta usando??? Em 16/01/07, blcksun954 [EMAIL PROTECTED] escreveu: Tenho uma tabela listando contas, e uma outra com os valores lançados em cada conta e as datas de lançamento e pagamento. Quero listar todas as contas e os valores totais lançados em cada uma, mesmo quando não haja nenhum valor (quando o valor seria 0). Até aqui, um LEFT JOIN resolve, o problema é que também preciso filtrar por data, para ter a movimentação num certo período. Quando faço isso, todas as contas que não tenham tido lançamentos desaparecem do resultado. Estou usando o banco de dados Firebird. Agradeço se alguém puder ajudar [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] Re: obter dados do sintegra
O serasa e o banco central eu sei que tem acesso a esses dados cadastrais atras da Receita federal e isto é pago. Agora com certeza esses dados não estão disponiveis pra nós pobres mortais. Emerson Cassio - Original Message - From: fmmattos1976 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 16, 2007 7:04 AM Subject: [delphi-br] Re: obter dados do sintegra De onde voces acham que as administradoras de cartão obtem dados para enviar cartão de crédito sem solicitção? Experimentem, na sua próxima declaração de IR, colocar um caracter diferente no endereço para distingui-lo dos demais. Ja ouvi dizer que a Receita vende o cadastro (uma associacao comercial comprava para ajustar o spc). Mas não é pra qualquer um, e prepare o bolso. Também já vi reportagem de camelos na regiao da 25 de março em SP vendendo o CD com estes dados. (No Brasil tem de tudo!!) --- Em delphi-br@yahoogrupos.com.br, Emerson Cassio [EMAIL PROTECTED] escreveu Infelismente a Receita não possui este serviço. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 13, 2007 7:37 PM Subject: Re: [delphi-br] obter dados do sintegra Eu acho meio dificil da receita liberar estas informações. ja busquei ha muito tempo so que para CPF e nao achei nada. Em 12/01/07, Fco Carlos [EMAIL PROTECTED] escreveu: Existe a possibilidade de se obter os dados cadastrais das empresas contidas na receita federal ou no sintegra como se faz com os correios. Ex: tenho aqui uma rotina onde eu coloco o nr do cep e ja obtenho os dados referente a rua, bairro,cidade e estado estava pensando na possibilidade de digitar o nr do cnpj da empresa e ja aparecer razaosocil, nome fantasia, insc.estadual, etc.. na pagina da receita ou do sintegra, digitase o cnpj e ja aparece os dados da empresa como colocar isso na minha aplicacao ? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- 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] __ Informação do NOD32 IMON 1976 (20070113) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1981 (20070116) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: off-topic(Agradecimentos)
Valeu Amigo, resolveu o problema! Brigadão. Wagner Binoto [EMAIL PROTECTED] escreveu: Amigo, eu resolvi isto fechando e abrindo o clientDataSet Abraços - Original Message - From: sampaiobrito To: delphi-br@yahoogrupos.com.br Sent: Monday, January 15, 2007 5:33 PM Subject: [delphi-br] Aggregate(O QUE FAÇO?!) Amigos, Tenho um relacionamento mestre detalhe (feito com 2 clientdataset's pela configuração da propriedade MasterFields) o problema é o seguinte: para o campo valor do clientdataset 'Filho' criei um Aggregate, só que quanto passo um parâmetro para o ClientDataSet 'Pai' e mudo os registros filhos, parece que ele está armazenando o valor da última linha e somando com a que está selecionada no conjunto atual ( no que foi carregado)... O que faço... Alguém já passou por isto e pode dá uma maozinha... Desde já agradeço! [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter negativo em positivo
Simples, amigo: Function Inverter(aNumero: Integer) : Integer; Begin Result := aNumero * -1; End; Para usar: Var X, Y : Integer; Begin X := 10; Y := Inverter(X); End; Espero que lhe ajude. []'s Ricardo. Marcelo [EMAIL PROTECTED] escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aggregate(O QUE FAÇO?!)
Se pudesse dar mais uma maozinha... é o seguinte: O display Format do Aggregate não funciona! É um valor monetário e queria saida formatada Alguma sugestão? Desde já agradeço! Wagner Binoto [EMAIL PROTECTED] escreveu: Amigo, eu resolvi isto fechando e abrindo o clientDataSet Abraços - Original Message - From: sampaiobrito To: delphi-br@yahoogrupos.com.br Sent: Monday, January 15, 2007 5:33 PM Subject: [delphi-br] Aggregate(O QUE FAÇO?!) Amigos, Tenho um relacionamento mestre detalhe (feito com 2 clientdataset's pela configuração da propriedade MasterFields) o problema é o seguinte: para o campo valor do clientdataset 'Filho' criei um Aggregate, só que quanto passo um parâmetro para o ClientDataSet 'Pai' e mudo os registros filhos, parece que ele está armazenando o valor da última linha e somando com a que está selecionada no conjunto atual ( no que foi carregado)... O que faço... Alguém já passou por isto e pode dá uma maozinha... Desde já agradeço! [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] HERANÇA
Acho que no seu caso seria interessante Clonar o CDS. Procure no site da Revista Active Delphi ou da Clube Delphi sobre Clonar CDS que vc vai encontrar informação sobre o assunto. []'s Ricardo. sampaiobrito [EMAIL PROTECTED] escreveu: Amigos, Como faço para criar um ClientDataSet (em tempo de execução) herdado de um que eu já tenha criado(em modo desin) ; tentei fazer mas está ocorrendo alguns erros... __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: HERANÇA
Pra criar um CDS em tempo de execução, é trabalhoso:
cdsTmpItensPlano := TClientDataset.Create(nil);
cdsTmpItensPlano.FieldDefs.Add('IDPLANO',ftString,15,False);
cdsTmpItensPlano.FieldDefs.Add('ITEM',ftInteger,0,False);
cdsTmpItensPlano.FieldDefs.Add('TIPOITEM',ftInteger,0,False);
cdsTmpItensPlano.FieldDefs.Add('MESCOMP',ftInteger,0,False);
cdsTmpItensPlano.FieldDefs.Add('ANOCOMP',ftInteger,0,False);
cdsTmpItensPlano.FieldDefs.Add('MACROAREA',ftString,16,False);
cdsTmpItensPlano.FieldDefs.Add('MOTIVO',ftString,25,False);
cdsTmpItensPlano.FieldDefs.Add('ATIVIDADE',ftMemo,0,False);
cdsTmpItensPlano.FieldDefs.Add('JUSTIFICATIVA',ftMemo,0,False);
cdsTmpItensPlano.FieldDefs.Add('SEGMENTO',ftString,10,False);
cdsTmpItensPlano.PacketRecords := 1;
cdsTmpItensPlano.CreateDataSet;
Talvez seja mais negócio você clonar um. Mas cuidado que se voce
clonar um CDS que tenha Details amarrados a ele, ao mover o cursor no
clonado, voce move na tabela detail.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
--- Em delphi-br@yahoogrupos.com.br, sampaiobrito
[EMAIL PROTECTED] escreveu
Amigos,
Como faço para criar um ClientDataSet (em tempo de execução)
herdado de
um que eu já tenha criado(em modo desin) ; tentei fazer mas está
ocorrendo alguns erros...
[delphi-br] Projeto com varias tabelas em 1 select...
ja fiz varias coisas, mas não com tantas tabelas em um unico SELECT... vejam bem tenho uma tabela principal... esta depende de mais 6 tabelas filhas (referencia), onde 4 delas usam tabelas secundários para fazer referencias de N:N e 2 tabelas que são de 1:N... por equanto só fiz o esboço da coisa... mas to começando a pensar que isso pode ficar MUITO lento... o projeto é para MYSQL com InnoDB... então temos 4 com tabelas secundários = 8 + 2 + principal... = 11 tabelas fazendo uns belos JOIN´s heheheh +/- só pra esboçar de como a coisa pode ficar... (PS: isso ai ainda pode crescer + umas 4 tabelas... ou 2 com 2 tabelas para referencia... ) SELECT Tabela.campo.*, bla, bla... FROM TabelaPrincipal as TP, Tab1Prin as T1P, Tab1Ref as T1R, Tab2Prin as T2P, Tab2Ref as T2R, Tab3Prin as T3P, Tab3Ref as T3R, Tab4Prin as T4P, Tab4Ref as T4R, Tab1Unic as T1U, Tab2Unic as T2U Where ( tp.data = dia_escolhido ) And ( ( tp.id = t1r.idtp ) And ( t1r.idt1p = t1p.id ) ) And ( ( tp.id = t2r.idtp ) And ( t2r.idt2p = t2p.id ) ) And ( ( tp.id = t3r.idtp ) And ( t3r.idt3p = t3p.id ) ) And ( ( tp.id = t4r.idtp ) And ( t4r.idt4p = t4p.id ) ) And ( ( tp.id = t1u.id ) ) And ( ( tp.id = t2y.id ) ) ALLguem já fez algo parecido, fica/ficou muito lemto... o servidor (produção) é um P4 2.8Ghz com linux RedHat9 MySQL 5.xx e 1GB-RAM. o de backup (replicação) é menor... mas só será usado se o primeiro cair... ;-) Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br
[delphi-br] Embutir arquivo em executável
Ola... Gostaria de saber qual a melhor maneira de fazer para embutir em um executável um determinado arquivo. Assim, tenho alguns arquivos de configuração de BDE (Base dados Access97), que preciso manter num executável, de modo que se houver algum problema de perca de configuração, eu possa restaurar esta configuração, retrando o arquivo do executável e colocando este de volta no lugar correto. Alguem poderia dar uma idéia de como implementar isso? De já agradeço. []´s Paulo
[delphi-br] Desbilitar ou Ocultar botão de Imprimir no Report Builder
Pessoal, Alguém sabe como posso desabilitar ou ocultar o botão de imprimir do preview do Report Builder??? Agradeço desde já.
Re: [delphi-br] Converter negativo em positivo
A Maneira correta e mais simples é : x := abs(x), pronto basta isto; na função abaixo se o nro. for positivo ele se tornará negativo. Stainle Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Simples, amigo: Function Inverter(aNumero: Integer) : Integer; Begin Result := aNumero * -1; End; Para usar: Var X, Y : Integer; Begin X := 10; Y := Inverter(X); End; Espero que lhe ajude. []'s Ricardo. Marcelo [EMAIL PROTECTED] escreveu: Amigos da lista. Bom dia. Existe alguma forma de se converter algum número negativo em positivo no Delphi, alguma função que realize esse procedimento? Desde já agradeço a colaboração de todos. Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aggregate(O QUE FAÇO?!)
Funcionar funciona, mas quando quer... :D Eu criei esta funcao. Dai sempre que tenho um Agg redireciono o OnGetText dele para esta funcao. O codigo está abaixo. []'s Francisco Thiago de Almeida Se é verdade que todos os caminhos levam a Deus, porque será que nem todas estradas levam ao mesmo lugar? class procedure TDbUtils.getCurrencyField(Sender: TField; var Text: string; DisplayText: Boolean); begin if Sender.Value = Null then Text := Currencystring + '0'+ DecimalSeparator +'00' else Text := FloatToStrF(TNumericUtils.VariantToFloat(Sender.Value),ffCurrency,18,2); end; - Original Message - From: Aliely Sampaio To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 16, 2007 3:59 PM Subject: Re: [delphi-br] Aggregate(O QUE FAÇO?!) Se pudesse dar mais uma maozinha... é o seguinte: O display Format do Aggregate não funciona! É um valor monetário e queria saida formatada Alguma sugestão? Desde já agradeço! Wagner Binoto [EMAIL PROTECTED] escreveu: Amigo, eu resolvi isto fechando e abrindo o clientDataSet Abraços - Original Message - From: sampaiobrito To: delphi-br@yahoogrupos.com.br Sent: Monday, January 15, 2007 5:33 PM Subject: [delphi-br] Aggregate(O QUE FAÇO?!) Amigos, Tenho um relacionamento mestre detalhe (feito com 2 clientdataset's pela configuração da propriedade MasterFields) o problema é o seguinte: para o campo valor do clientdataset 'Filho' criei um Aggregate, só que quanto passo um parâmetro para o ClientDataSet 'Pai' e mudo os registros filhos, parece que ele está armazenando o valor da última linha e somando com a que está selecionada no conjunto atual ( no que foi carregado)... O que faço... Alguém já passou por isto e pode dá uma maozinha... Desde já agradeço! [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.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] Embutir arquivo em executável
Olá Paulo...
Acredito que o que você queira é enviar o executável do sistema e junto com ele
algum outro arquivo necessário e caso precise, descompactar esse arquivo,
correto??? Se for você pode usar os resource files...
Abra um editor de texto simples (tipo notepad) e crie um arquivo com os
arquivos que você quer incluir, dessa maneira:
Cada linha consiste do nome do recurso, seu tipo e o recurso em si, como no
exemplo abaixo:
midas dllsc:\windows\system32\midas.dll
doc docsc:\documentos\arquivo.doc
util exesc:\sistema\util.exe
Crie quantas linhas precisar para todos os arquivos que você deseja incluir.
Salve esse arquivo com o a extensão .rc (meurecurso.rc)
Compile usando o resource compiler: BRCC32.EXE
brcc32 meurecurso
Será criado o arquivo de recursos (meurecurso.res)
Inclua o arquivo de recursos no form principal de seu projeto incluindo uma
linha na sessão implementation:
{$R ANEXO.RES}
Lá já existe a linha {$R *.dfm}.. acrescente abaixo.
Recompile o projeto... o exe já vai incluir os arquivos que você especificou.
* Lembre-se que o executável vai crescer o tamanho dos arquivos que você
acrescentar.**
Para extrair um arquivo do executável quando precisar, use algo do tipo:
procedure TformPrincipal.ExtraiAnexosRES;
var
myresource: TResourceStream;
Begin
myresource := TResourceStream.Create(Hinstance, 'UTIL', 'EXES');
Try
if not FileExists('UTIL.EXE') then
myresource.SavetoFile('UTIL.EXE');
finally
myresource.Free;
end;
end;
Você pode anexar qualquer coisa como recurso, inclusive ícones, imagens, etc,
para ser usado no sistema.
Espero ter ajudado.
Abraço.
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Maringá - Paraná
- Original Message -
From: pcinfowave
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 16, 2007 4:34 PM
Subject: [delphi-br] Embutir arquivo em executável
Ola...
Gostaria de saber qual a melhor maneira de fazer para embutir em um
executável um determinado arquivo.
Assim, tenho alguns arquivos de configuração de BDE (Base dados
Access97), que preciso manter num executável, de modo que se houver
algum problema de perca de configuração, eu possa restaurar esta
configuração, retrando o arquivo do executável e colocando este de
volta no lugar correto.
Alguem poderia dar uma idéia de como implementar isso?
De já agradeço.
[]´s
Paulo
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Quick Report
Boa tarde a todos, Eu gostaria de imprimir um relatorio no caminho \\servidor\impressora, o relatorio esta feito no Quick Report, alguem podeira me ajudar ? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: HERANÇA
Cara, que loucura!
Acho que um
cdsClone.Data := cdsPai.Data... Já deve resolver...
Tem a questão do clone também, mas daí tudo que é atualizado em um cds é
atualizado no outro também.
Talvez tenha dado erro pq vc só pode herdar classes e não objetos.
(Pelo menos até onde sei).
[]'s
Francisco Thiago de Almeida
Se é verdade que todos os caminhos levam a Deus, porque será que nem todas
estradas levam ao mesmo lugar?
- Original Message -
From: Walter Chagas (Yahoo)
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 16, 2007 4:21 PM
Subject: [delphi-br] Re: HERANÇA
Pra criar um CDS em tempo de execução, é trabalhoso:
cdsTmpItensPlano := TClientDataset.Create(nil);
cdsTmpItensPlano.FieldDefs.Add('IDPLANO',ftString,15,False);
cdsTmpItensPlano.FieldDefs.Add('ITEM',ftInteger,0,False);
cdsTmpItensPlano.FieldDefs.Add('TIPOITEM',ftInteger,0,False);
cdsTmpItensPlano.FieldDefs.Add('MESCOMP',ftInteger,0,False);
cdsTmpItensPlano.FieldDefs.Add('ANOCOMP',ftInteger,0,False);
cdsTmpItensPlano.FieldDefs.Add('MACROAREA',ftString,16,False);
cdsTmpItensPlano.FieldDefs.Add('MOTIVO',ftString,25,False);
cdsTmpItensPlano.FieldDefs.Add('ATIVIDADE',ftMemo,0,False);
cdsTmpItensPlano.FieldDefs.Add('JUSTIFICATIVA',ftMemo,0,False);
cdsTmpItensPlano.FieldDefs.Add('SEGMENTO',ftString,10,False);
cdsTmpItensPlano.PacketRecords := 1;
cdsTmpItensPlano.CreateDataSet;
Talvez seja mais negócio você clonar um. Mas cuidado que se voce
clonar um CDS que tenha Details amarrados a ele, ao mover o cursor no
clonado, voce move na tabela detail.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
--- Em delphi-br@yahoogrupos.com.br, sampaiobrito
[EMAIL PROTECTED] escreveu
Amigos,
Como faço para criar um ClientDataSet (em tempo de execução)
herdado de
um que eu já tenha criado(em modo desin) ; tentei fazer mas está
ocorrendo alguns erros...
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto com varias tabelas em 1 select...
Olá Luiz... Pelo que entendi você precisa de dados de várias tabelas de uma vez. Acredito que essas tabelas tenham ligação entre elas. Se for isso, te digo que já usei sim, porém uma tabela no select principal e as outras ligadas por JOIN. Nunca usei todas juntas no select, a não ser para algum teste enquanto desenvolvia alguma rotina. Mas na aplicação nunca deixei desse jeito. Algo do tipo: Select a.codigo, a.descricao, a.vendedor, b.nome as nomevendedor, b.codcidade, c.descricao as desccidade from Produto a INNER JOIN Vendedor b on b.codigo = a.vendedor INNER JOIN Cidade c on c.codigo = b.codcidade where a.codigo 5 and a.codigo 10 and b.codcidade = 2 order by b.nome Isso é só um exemplo que inventei agora, talvez não tenha nada a ver, mas a sintaxe que uso é mais ou menos essa. Nunca tive problema de lentidão. Utilizo principalmente em relatórios. Acho que é questão de você testar o que você criou e tentar fazer algumas alterações pra comparar resultados. Mesmo esse código que te enviei acredito que possa ser melhorado. Também não sou mestre em sql.. rs.. Se alguém tiver alguma dica de melhora, fiquem a vontado pra corrigir. Abraço. Claudiney Cogo N2 Sistemas e Soluções em Informática Maringá - Paraná - Original Message - From: Luiz Escobar To: Undisclosed-Recipient:; Sent: Tuesday, January 16, 2007 4:31 PM Subject: [delphi-br] Projeto com varias tabelas em 1 select... ja fiz varias coisas, mas não com tantas tabelas em um unico SELECT... vejam bem tenho uma tabela principal... esta depende de mais 6 tabelas filhas (referencia), onde 4 delas usam tabelas secundários para fazer referencias de N:N e 2 tabelas que são de 1:N... por equanto só fiz o esboço da coisa... mas to começando a pensar que isso pode ficar MUITO lento... o projeto é para MYSQL com InnoDB... então temos 4 com tabelas secundários = 8 + 2 + principal... = 11 tabelas fazendo uns belos JOIN´s heheheh +/- só pra esboçar de como a coisa pode ficar... (PS: isso ai ainda pode crescer + umas 4 tabelas... ou 2 com 2 tabelas para referencia... ) SELECT Tabela.campo.*, bla, bla... FROM TabelaPrincipal as TP, Tab1Prin as T1P, Tab1Ref as T1R, Tab2Prin as T2P, Tab2Ref as T2R, Tab3Prin as T3P, Tab3Ref as T3R, Tab4Prin as T4P, Tab4Ref as T4R, Tab1Unic as T1U, Tab2Unic as T2U Where ( tp.data = dia_escolhido ) And ( ( tp.id = t1r.idtp ) And ( t1r.idt1p = t1p.id ) ) And ( ( tp.id = t2r.idtp ) And ( t2r.idt2p = t2p.id ) ) And ( ( tp.id = t3r.idtp ) And ( t3r.idt3p = t3p.id ) ) And ( ( tp.id = t4r.idtp ) And ( t4r.idt4p = t4p.id ) ) And ( ( tp.id = t1u.id ) ) And ( ( tp.id = t2y.id ) ) ALLguem já fez algo parecido, fica/ficou muito lemto... o servidor (produção) é um P4 2.8Ghz com linux RedHat9 MySQL 5.xx e 1GB-RAM. o de backup (replicação) é menor... mas só será usado se o primeiro cair... ;-) Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tabela com 396 campos
Boa tarde. Desenvolvo em Delphi 7 com Firebird 1.5 Estou com a seguinte situação: Tenho uma tabela de Perfil q contem todos os cadastros do meu sistema com Habilitar Menu / inclusão / alteração / exclusão. Ex.: CAMPOS CLIENTE CHAR 1 (S/N) CLIENTE_I CHAR 1 (S/N) CLIENTE_A CHAR 1 (S/N) CLIENTE_E CHAR 1 (S/N) FORNECEDOR CHAR 1 (S/N) FORNECEDOR_I CHAR 1 (S/N) FORNECEDOR_A CHAR 1 (S/N) FORNECEDOR_E CHAR 1 (S/N) E ASSIM POR DIANTE, A CADA NOVO CADASTRO NOVO 4 CAMPOS. ATUALMENTE MEU BANCO ESTA COM 396 CAMPOS. GOSTARIA DE REVER O CONCEITO DESTE BANCO E PENSEI EM FAZER DA SEGUINTE FORMA: CAMPOS: TELA VARCHAR 30 MENU CHAR (1) (S/N) INCLUIR CHAR (1) (S/N) ALTERAR CHAR (1) (S/N) EXCLUIR CHAR (1) (S/N) DESTA FORMA EM VEZ DE AUMENTAR EM NUMERO DE CAMPOS, AUMENTARIA EM NUMERO DE REGISTROS. O PROBLEMA É O SEGUINTE. PRA FAZER DESTA FORMA, EM TODA A TELA Q ENTRAR TENHO Q FAZER UMA BUSCA. SERÁ Q O SISTEMA NÃO VAI FICAR MUITO LENTO ? SE ALGUEM TIVER UMA OUTRA FORMA DE FAZER O PERFIL DO USUARIO E PUDER COMPARTILHAR DESDE JÁ AGRADEÇO. OBRIGADO. RODRIGO PEDROSO WINSOFT INFORMATICA (14) 3664-1586 [EMAIL PROTECTED]
Re: [delphi-br] HERANÇA
Vou dá uma olhada. Obrigado pela atenção! Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Acho que no seu caso seria interessante Clonar o CDS. Procure no site da Revista Active Delphi ou da Clube Delphi sobre Clonar CDS que vc vai encontrar informação sobre o assunto. []'s Ricardo. sampaiobrito [EMAIL PROTECTED] escreveu: Amigos, Como faço para criar um ClientDataSet (em tempo de execução) herdado de um que eu já tenha criado(em modo desin) ; tentei fazer mas está ocorrendo alguns erros... __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tabela com 396 campos
Tome como base esse modelo que fiz rapidamente e crie um seu. ++ ++ ++ |Grupo de Usuário|| Perfil || Interfaces | ++ ++ ++ |Código Grupo| |Código Grupo| |Código Interface| |Descrição | |Código Interface| |Código Módulo | ++ |Incluir | |Descrição | | |Consultar | ++ | |Alterar | |\|/ | |Excluir | | | | ++ | | | | | /|\ | | +--+ ++ | | | Usuário|-| Permissão|-| | +--+ ++| |Código Usuário| |Código Usuário | +-+ |Nome | |Código Interface| | Módulo| |Grupo | |Incluir | +-+ |Login | |Consultar | |Código Módulo| |Senha | |Alterar | |Descrição| |Status| |Excluir | +-+ |Validade | ++ +--+ Na tabela de perfil você terá as opções default para cada tipo de usuário. Quando um usuário for cadastrado você busca as opções default para o tipo de usuário que ele será e insere na tabela de permissão. Na tabela de permissão você poderá retirar ou acrescentar as interfaces que quer ou não que o usuário tenha acesso e setar true ou false nas opções de inclusão, consulta, alteração e exclusão. Quando o usuário se logar no sistema, você busca as informações da tabela de permissão e desabilita as opções que ele não poderá acessar. Espero que isso possa te ajudar. Sds, Romario Rodrigo - Winsoft escreveu: Boa tarde. Desenvolvo em Delphi 7 com Firebird 1.5 Estou com a seguinte situação: Tenho uma tabela de Perfil q contem todos os cadastros do meu sistema com Habilitar Menu / inclusão / alteração / exclusão. Ex.: CAMPOS CLIENTE CHAR 1 (S/N) CLIENTE_I CHAR 1 (S/N) CLIENTE_A CHAR 1 (S/N) CLIENTE_E CHAR 1 (S/N) FORNECEDOR CHAR 1 (S/N) FORNECEDOR_I CHAR 1 (S/N) FORNECEDOR_A CHAR 1 (S/N) FORNECEDOR_E CHAR 1 (S/N) E ASSIM POR DIANTE, A CADA NOVO CADASTRO NOVO 4 CAMPOS. ATUALMENTE MEU BANCO ESTA COM 396 CAMPOS. GOSTARIA DE REVER O CONCEITO DESTE BANCO E PENSEI EM FAZER DA SEGUINTE FORMA: CAMPOS: TELA VARCHAR 30 MENU CHAR (1) (S/N) INCLUIR CHAR (1) (S/N) ALTERAR CHAR (1) (S/N) EXCLUIR CHAR (1) (S/N) DESTA FORMA EM VEZ DE AUMENTAR EM NUMERO DE CAMPOS, AUMENTARIA EM NUMERO DE REGISTROS. O PROBLEMA É O SEGUINTE. PRA FAZER DESTA FORMA, EM TODA A TELA Q ENTRAR TENHO Q FAZER UMA BUSCA. SERÁ Q O SISTEMA NÃO VAI FICAR MUITO LENTO ? SE ALGUEM TIVER UMA OUTRA FORMA DE FAZER O PERFIL DO USUARIO E PUDER COMPARTILHAR DESDE JÁ AGRADEÇO. OBRIGADO. RODRIGO PEDROSO WINSOFT INFORMATICA (14) 3664-1586 ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Tabela com 396 campos
Acho que a sugestao que vc deu ira te ajudar. No meu sistema eu tenho os campos Usuario: Integer; Tela: Varchar(100) e Acao: Varchar(15) e faco a pesquisa ai.. se o pc for muito antigo fica um pouco lento, mas se o pc for normal fica rapido - Original Message - From: Rodrigo - Winsoft To: Lista - Delphi-br Sent: Tuesday, January 16, 2007 5:56 PM Subject: [delphi-br] Tabela com 396 campos Boa tarde. Desenvolvo em Delphi 7 com Firebird 1.5 Estou com a seguinte situação: Tenho uma tabela de Perfil q contem todos os cadastros do meu sistema com Habilitar Menu / inclusão / alteração / exclusão. Ex.: CAMPOS CLIENTE CHAR 1 (S/N) CLIENTE_I CHAR 1 (S/N) CLIENTE_A CHAR 1 (S/N) CLIENTE_E CHAR 1 (S/N) FORNECEDOR CHAR 1 (S/N) FORNECEDOR_I CHAR 1 (S/N) FORNECEDOR_A CHAR 1 (S/N) FORNECEDOR_E CHAR 1 (S/N) E ASSIM POR DIANTE, A CADA NOVO CADASTRO NOVO 4 CAMPOS. ATUALMENTE MEU BANCO ESTA COM 396 CAMPOS. GOSTARIA DE REVER O CONCEITO DESTE BANCO E PENSEI EM FAZER DA SEGUINTE FORMA: CAMPOS: TELA VARCHAR 30 MENU CHAR (1) (S/N) INCLUIR CHAR (1) (S/N) ALTERAR CHAR (1) (S/N) EXCLUIR CHAR (1) (S/N) DESTA FORMA EM VEZ DE AUMENTAR EM NUMERO DE CAMPOS, AUMENTARIA EM NUMERO DE REGISTROS. O PROBLEMA É O SEGUINTE. PRA FAZER DESTA FORMA, EM TODA A TELA Q ENTRAR TENHO Q FAZER UMA BUSCA. SERÁ Q O SISTEMA NÃO VAI FICAR MUITO LENTO ? SE ALGUEM TIVER UMA OUTRA FORMA DE FAZER O PERFIL DO USUARIO E PUDER COMPARTILHAR DESDE JÁ AGRADEÇO. OBRIGADO. RODRIGO PEDROSO WINSOFT INFORMATICA (14) 3664-1586 [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] como fazer para não duplicar registros?
estou começando agora em programação e estou desenvolvendo um pequeno aplicativo de controle de patrimonio com Delphi 7 e Firebird 1.5, e gostaria de tirar a seguinte dúvida: como fazer para não duplicar registros, a não ser que o usuário queira que isso aconteça? Ex. tenho a tabela Setor. nela eu tenho 4 campos, codigo, nomesetor, ramal e obs. gostaria que o nome setor não duplicasse, a não ser que o usuário queira, que aparecesse uma caixa perguntando se deseja ou não efetuar o registro mesmo assim. ex. o setor já está cadastrado, deseja cadastrá-lo mesmo assim?, ou algo parecido. desde já agradeço a todos pela ajuda! Gustavo André de Freitas Linhares - ES
Re: [delphi-br] como fazer para não duplicar registros?
Bom Gustavo... desta forma eu acredito que só antes de efetuar o post da tabela, vc faça uma consulta com o parametro nome do setor na clausura where, e ai então, verificando o recordcount da consulta vc emite a msg da forma q vc deseja... ajudado ou atrapalhado???rs Qquer coisa estamos ai... Tamara Clemente Analista Desenvolvedor Em 16/01/07, Gustavo André de Freitas[EMAIL PROTECTED] escreveu: estou começando agora em programação e estou desenvolvendo um pequeno aplicativo de controle de patrimonio com Delphi 7 e Firebird 1.5, e gostaria de tirar a seguinte dúvida: como fazer para não duplicar registros, a não ser que o usuário queira que isso aconteça? Ex. tenho a tabela Setor. nela eu tenho 4 campos, codigo, nomesetor, ramal e obs. gostaria que o nome setor não duplicasse, a não ser que o usuário queira, que aparecesse uma caixa perguntando se deseja ou não efetuar o registro mesmo assim. ex. o setor já está cadastrado, deseja cadastrá-lo mesmo assim?, ou algo parecido. desde já agradeço a todos pela ajuda! Gustavo André de Freitas Linhares - ES
Re: [delphi-br] Tabela com 396 campos
A solução q o Romario(ou Rodrigo, ñ entendi) deu é bem legal... Mas pensando rapidamente na questão apresentada inicialmente, ao invés de vc fazer uma pesquisa a cada vez q entrar numa tela, caso vc trabalhe com orientação a objeto, vc pode criar uma classe q funcione como dados em cache, quando o usuário se loga, vc já seta tds as habilitações dele, e ai então, basta fazer uma verificação simples no seu objeto... Ajudado ou complicadors qquer coisa, estamos ai...rs Tamara Clemente Analista Desenvolvedor Em 16/01/07, Anderson RB[EMAIL PROTECTED] escreveu: Acho que a sugestao que vc deu ira te ajudar. No meu sistema eu tenho os campos Usuario: Integer; Tela: Varchar(100) e Acao: Varchar(15) e faco a pesquisa ai.. se o pc for muito antigo fica um pouco lento, mas se o pc for normal fica rapido - Original Message - From: Rodrigo - Winsoft To: Lista - Delphi-br Sent: Tuesday, January 16, 2007 5:56 PM Subject: [delphi-br] Tabela com 396 campos Boa tarde. Desenvolvo em Delphi 7 com Firebird 1.5 Estou com a seguinte situação: Tenho uma tabela de Perfil q contem todos os cadastros do meu sistema com Habilitar Menu / inclusão / alteração / exclusão. Ex.: CAMPOS CLIENTE CHAR 1 (S/N) CLIENTE_I CHAR 1 (S/N) CLIENTE_A CHAR 1 (S/N) CLIENTE_E CHAR 1 (S/N) FORNECEDOR CHAR 1 (S/N) FORNECEDOR_I CHAR 1 (S/N) FORNECEDOR_A CHAR 1 (S/N) FORNECEDOR_E CHAR 1 (S/N) E ASSIM POR DIANTE, A CADA NOVO CADASTRO NOVO 4 CAMPOS. ATUALMENTE MEU BANCO ESTA COM 396 CAMPOS. GOSTARIA DE REVER O CONCEITO DESTE BANCO E PENSEI EM FAZER DA SEGUINTE FORMA: CAMPOS: TELA VARCHAR 30 MENU CHAR (1) (S/N) INCLUIR CHAR (1) (S/N) ALTERAR CHAR (1) (S/N) EXCLUIR CHAR (1) (S/N) DESTA FORMA EM VEZ DE AUMENTAR EM NUMERO DE CAMPOS, AUMENTARIA EM NUMERO DE REGISTROS. O PROBLEMA É O SEGUINTE. PRA FAZER DESTA FORMA, EM TODA A TELA Q ENTRAR TENHO Q FAZER UMA BUSCA. SERÁ Q O SISTEMA NÃO VAI FICAR MUITO LENTO ? SE ALGUEM TIVER UMA OUTRA FORMA DE FAZER O PERFIL DO USUARIO E PUDER COMPARTILHAR DESDE JÁ AGRADEÇO. OBRIGADO. RODRIGO PEDROSO WINSOFT INFORMATICA (14) 3664-1586 [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto com varias tabelas em 1 select...
Oi Luiz, blz? Bom, eu já fiz umas consultas cabulosas em varias tabelas e de fato, de acordo com a quantidade de dados no banco a coisa pode ficar muito lenta... a um tempinho atrás eu havia feito um relatório q a consulta ficou perfeita na minha base de testes, mas quando foi para o cliente... meu deus...hahahaha... ficou muuuito tempo, muuuito tempo msm rodando a consulta. Conclusão: o cliente esbravejou, esbravejou(com razão) e eu tive q procurar uma forma de melhorar o processamento como um td. Ai vai algumas dicas do q fiz para melhorar o desempenho da consulta: - ao inves de fazer ligações como vc vez, tipo usando o alias das tabelas, prefira usar os join's da vida...rs... - retorne apenas campos q de fato são necessários: campos para interligações naum precisam ser selecionados - cuidado com ordenações monsters - caso necessite de apenas um campo de uma determinada tabela e esta esteja ligada à tabela da consulta principal ou ate mesmo em outra, prefira o uso de subselect's Bom, e assim por diante... descobri q tem varias formas de otimizar uma consulta. Claro q um bando de dados modelado bunitinho é bmmm mais facil de ser otimizada sua consulta...ahahahahaha Ajudado ou confundido???rs Qquer coisa, estamos ai...rs Tamara Clemente Analista Desenvolvedor Em 16/01/07, Claudiney Cogo - Listas[EMAIL PROTECTED] escreveu: Olá Luiz... Pelo que entendi você precisa de dados de várias tabelas de uma vez. Acredito que essas tabelas tenham ligação entre elas. Se for isso, te digo que já usei sim, porém uma tabela no select principal e as outras ligadas por JOIN. Nunca usei todas juntas no select, a não ser para algum teste enquanto desenvolvia alguma rotina. Mas na aplicação nunca deixei desse jeito. Algo do tipo: Select a.codigo, a.descricao, a.vendedor, b.nome as nomevendedor, b.codcidade, c.descricao as desccidade from Produto a INNER JOIN Vendedor b on b.codigo = a.vendedor INNER JOIN Cidade c on c.codigo = b.codcidade where a.codigo 5 and a.codigo 10 and b.codcidade = 2 order by b.nome Isso é só um exemplo que inventei agora, talvez não tenha nada a ver, mas a sintaxe que uso é mais ou menos essa. Nunca tive problema de lentidão. Utilizo principalmente em relatórios. Acho que é questão de você testar o que você criou e tentar fazer algumas alterações pra comparar resultados. Mesmo esse código que te enviei acredito que possa ser melhorado. Também não sou mestre em sql.. rs.. Se alguém tiver alguma dica de melhora, fiquem a vontado pra corrigir. Abraço. Claudiney Cogo N2 Sistemas e Soluções em Informática Maringá - Paraná - Original Message - From: Luiz Escobar To: Undisclosed-Recipient:; Sent: Tuesday, January 16, 2007 4:31 PM Subject: [delphi-br] Projeto com varias tabelas em 1 select... ja fiz varias coisas, mas não com tantas tabelas em um unico SELECT... vejam bem tenho uma tabela principal... esta depende de mais 6 tabelas filhas (referencia), onde 4 delas usam tabelas secundários para fazer referencias de N:N e 2 tabelas que são de 1:N... por equanto só fiz o esboço da coisa... mas to começando a pensar que isso pode ficar MUITO lento... o projeto é para MYSQL com InnoDB... então temos 4 com tabelas secundários = 8 + 2 + principal... = 11 tabelas fazendo uns belos JOIN´s heheheh +/- só pra esboçar de como a coisa pode ficar... (PS: isso ai ainda pode crescer + umas 4 tabelas... ou 2 com 2 tabelas para referencia... ) SELECT Tabela.campo.*, bla, bla... FROM TabelaPrincipal as TP, Tab1Prin as T1P, Tab1Ref as T1R, Tab2Prin as T2P, Tab2Ref as T2R, Tab3Prin as T3P, Tab3Ref as T3R, Tab4Prin as T4P, Tab4Ref as T4R, Tab1Unic as T1U, Tab2Unic as T2U Where ( tp.data = dia_escolhido ) And ( ( tp.id = t1r.idtp ) And ( t1r.idt1p = t1p.id ) ) And ( ( tp.id = t2r.idtp ) And ( t2r.idt2p = t2p.id ) ) And ( ( tp.id = t3r.idtp ) And ( t3r.idt3p = t3p.id ) ) And ( ( tp.id = t4r.idtp ) And ( t4r.idt4p = t4p.id ) ) And ( ( tp.id = t1u.id ) ) And ( ( tp.id = t2y.id ) ) ALLguem já fez algo parecido, fica/ficou muito lemto... o servidor (produção) é um P4 2.8Ghz com linux RedHat9 MySQL 5.xx e 1GB-RAM. o de backup (replicação) é menor... mas só será usado se o primeiro cair... ;-) Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] duvida como inserir em uma tabela, e deletar de outra
Oi Walter... num sei se entendi muito bem, mas o q vc precisa basicamente é inserir as peças na ordem de serviço e retirá-las do estoque certo? Bom, existem varias formas, mas uma das q considero mais simples e de facil entendimento seria vc via comenado sql inserir(insert) as peças na ordem e com o delet, retirá-las do estoque, atraves de uma código em comum... Num sei se ajudei em grandes coisas, mas achei um pouco vaga a sua duvída... :o/ Mas qquer coisa, da um grito ai q a gente vê o q pode fazer...rs.. Tamara Clemente Analista Desenvolvedora Em 16/01/07, walter_3wm[EMAIL PROTECTED] escreveu: Boa Tarde à Todos!! Eu sou novato em delphi, estou fazendo um sistema para uma oficina mêcanica!! O sistema tem que fazer o seguinte: Na ordem de Servico se usou 5 peças , ele automaticamente retira 5 peças do estoque!!! Bom a ideia é essa só que eu não sei fazer isso na pratica!!! Alguem tem algum exemplo ou uma ideia!! Obrigado desde já!!! Vlw
Re: [delphi-br] Ajuda com SQL
Só acrescentando um detalhe: cuidado com a utilização do beetwen em select, certifique-se de que eh gravado no banco apenas a data e ñ como de costume data e hora... se estiver gravado data e o hora, ñ esqueça de acrescentar +1 no q seria o data até para q englobe td o periodo do dia... ;o) Tamara Clemente Analista Desenvolvedora Em 16/01/07, Luiz Escobar[EMAIL PROTECTED] escreveu: put´s num leu a mensagem inteira e já vai respondendo com outra pergunta que a resposta esta na primeira pergunta !!!???. é firebird... ta no final da mensagem dele... hhehehehehehe abaixo tem um exemplo em mysql num sei se vai servir... só colocar um or campodata is null ex: bla bla bla OR tabela.data IS NULL Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Gabriel Filho To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 16, 2007 1:58 PM Subject: Re: [delphi-br] Ajuda com SQL Qual o banco o vc esta usando??? Em 16/01/07, blcksun954 [EMAIL PROTECTED] escreveu: Tenho uma tabela listando contas, e uma outra com os valores lançados em cada conta e as datas de lançamento e pagamento. Quero listar todas as contas e os valores totais lançados em cada uma, mesmo quando não haja nenhum valor (quando o valor seria 0). Até aqui, um LEFT JOIN resolve, o problema é que também preciso filtrar por data, para ter a movimentação num certo período. Quando faço isso, todas as contas que não tenham tido lançamentos desaparecem do resultado. Estou usando o banco de dados Firebird. Agradeço se alguém puder ajudar [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] Ordem decrescente de data
Olá Paulo... se compreendi o seu problema, acho q vc pode resolver na própria seleção dos dados: select taltaltal from tabela where blablabla order by DESC... Certors Espero ter ajudado... Tamara Clemente Analista Desenvolvedora Em 16/01/07, pcinfowave[EMAIL PROTECTED] escreveu: Ola, preciso colocar arquivos em um filelistbox em ordem decrescente de criação. Alguem pode dar uma ajuda? De já agradeço. []´s Paulo
[delphi-br] Re: como fazer para não duplicar registros?
Na verdade estou começando agora e entendi muito pouca coisa. Não estou entendendo muito ainda como fazer pesquisas. Gustavo André de Freitas --- Em delphi-br@yahoogrupos.com.br, Tamara Clemente [EMAIL PROTECTED] escreveu Bom Gustavo... desta forma eu acredito que só antes de efetuar o post da tabela, vc faça uma consulta com o parametro nome do setor na clausura where, e ai então, verificando o recordcount da consulta vc emite a msg da forma q vc deseja... ajudado ou atrapalhado???rs Qquer coisa estamos ai... Tamara Clemente Analista Desenvolvedor Em 16/01/07, Gustavo André de Freitas[EMAIL PROTECTED] escreveu: estou começando agora em programação e estou desenvolvendo um pequeno aplicativo de controle de patrimonio com Delphi 7 e Firebird 1.5, e gostaria de tirar a seguinte dúvida: como fazer para não duplicar registros, a não ser que o usuário queira que isso aconteça? Ex. tenho a tabela Setor. nela eu tenho 4 campos, codigo, nomesetor, ramal e obs. gostaria que o nome setor não duplicasse, a não ser que o usuário queira, que aparecesse uma caixa perguntando se deseja ou não efetuar o registro mesmo assim. ex. o setor já está cadastrado, deseja cadastrá-lo mesmo assim?, ou algo parecido. desde já agradeço a todos pela ajuda! Gustavo André de Freitas Linhares - ES
Re: [delphi-br] Re: como fazer para não duplicar registros?
Uhm... ai complica...rs.. bom... vc ja decidiu como vai trablhar? DbExpress...ADO...rs... Vc pode usar uma TQuery e fazer a pesquisa nela... mas tem tds as ligações e tals...rs... Sei ñ por onde começar pra te ajudar...rs.. Desculpe.. Tamara Clemente Analista Desenvolvedor Em 16/01/07, Gustavo André de Freitas [EMAIL PROTECTED] escreveu: Na verdade estou começando agora e entendi muito pouca coisa. Não estou entendendo muito ainda como fazer pesquisas. Gustavo André de Freitas --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Tamara Clemente [EMAIL PROTECTED] escreveu Bom Gustavo... desta forma eu acredito que só antes de efetuar o post da tabela, vc faça uma consulta com o parametro nome do setor na clausura where, e ai então, verificando o recordcount da consulta vc emite a msg da forma q vc deseja... ajudado ou atrapalhado???rs Qquer coisa estamos ai... Tamara Clemente Analista Desenvolvedor Em 16/01/07, Gustavo André de Freitas[EMAIL PROTECTED] escreveu: estou começando agora em programação e estou desenvolvendo um pequeno aplicativo de controle de patrimonio com Delphi 7 e Firebird 1.5, e gostaria de tirar a seguinte dúvida: como fazer para não duplicar registros, a não ser que o usuário queira que isso aconteça? Ex. tenho a tabela Setor. nela eu tenho 4 campos, codigo, nomesetor, ramal e obs. gostaria que o nome setor não duplicasse, a não ser que o usuário queira, que aparecesse uma caixa perguntando se deseja ou não efetuar o registro mesmo assim. ex. o setor já está cadastrado, deseja cadastrá-lo mesmo assim?, ou algo parecido. desde já agradeço a todos pela ajuda! Gustavo André de Freitas Linhares - ES [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como fazer logon no SQLSERVER em modo Windows only
Pessoal: Alguem aqui ja´ trabalhou em ambiente onde o SQL-Server esta´ no modo de autenticacao Windows Only ? Gostaria de saber como e´ que um programa Delphi faz conexao com um servidor SQL-Server configurado dessa forma. Eu sei como conectar ao SQL-Server (via BDE ou DBExpress), mas somente quando o servidor esta´ em modo de autenticacao misto. Gentileza entrar em contato em private, pois nao sei se esse assunto e´ pertinente à lista. Muito obrigado pela atencao de todos Paulo [As partes desta mensagem que não continham texto foram removidas]
