[delphi-br] Delphi 2009 com QuickReport
Pessoal, preciso criar um relatorio do Quick que fique semelhante a uma planilha. MES Joao Pedro Aurelio Maria Eduardo Denise Jan120,00 140,00 0,00 90,00 240,00 670,00 Fev 87,00 110,00 60,00230,0080,00 340,00 mar 45,0067,00 90,00150,0060,00 120,00 Abr Mai Jun Acima exemplifiquei como deve ficar o relatorio. Como devo fazer para ter este resultado no Quick ? Quanto as Tabelas envolvidas nao detalhei pois posso monta-las como necessario para atingir este resultado do relatorio. Resaltando: a primeira linha será NOMES DE CLIENTES e as demais linhas serão os valores de cada cliente e o respectivo mês.
[delphi-br] Quick Report : Master Detail
Pessoal, preciso criar um relatorio do Quick que fique semelhante a uma planilha. MES Joao Pedro Aurelio Maria Eduardo Denise Jan 120,00 140,00 0,00 90,00 240,00 670,00 Fev 87,00 110,00 60,00 230,00 80,00 340,00 mar 45,00 67,00 90,00 150,00 60,00 120,00 Abr Mai Jun Acima exemplifiquei como deve ficar o relatorio. Como devo fazer para ter este resultado no Quick ? Quanto as Tabelas envolvidas nao detalhei pois posso monta-las como necessario para atingir este resultado do relatorio. Resaltando: a primeira linha será NOMES DE CLIENTES e as demais linhas serão os valores de cada cliente e o respectivo mês.
[delphi-br] Procedures no Firebird
Tenho uma procedure que ira ler registros para calcular saldo do cliente (isto funciona) Mas, se ainda nao existir registros do cliente o saldo encontrado NAO e´ zero e sim NULL. Como resolver isto ? Ou seja, como aparecer zero ao inves da palavra NULL ? Abaixo a minha Procedure begin viLinha = 0; Select max(linha) from ContaCorrente where (CodCli = :CodCli) and (SI = 'S') into :viLinha; vfdebito = 0; vfcredito = 0; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'D') into :vfdebito; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'C') into :vfcredito; vsdc = 'D'; vfsaldo = vfcredito - vfdebito; if (vfsaldo 0) then vsdc = 'C'; INSERT INTO ContaCorrente (CodCli, Linha, DtEmissao, SI, Talao, NroNf, Valor, DC, JD, Texto1, texto2, CodHist, DtFato, Usuario) VALUES (:CodCli, :Linha, :DtEmissao, :SI, :Talao, :NroNf, :vfsaldo, :vsdc, :JD, :Texto1, :texto2, :CodHist, :DtFato, :Usuario); suspend; end
[delphi-br] Duvida: Query no Data Module ou nos Forms
Pessoal, no meu Sistema haverá 'n' consultas: - Consulta para o modulo Contas a Receber - Consulta para o modulo NF Saida - Consulta para o modulo NF Entrada... As Query´s que usarei para estas consultas onde devem ficar ? No Data Module ou nos proprios Forms ? Utilizo um componente query para cada consulta ou posso usar o mesmo componente query para consultas dque leem tabelas diferentes ? Se eu usar uma query, que e´ chamada em diversos Form e associada em tabelas diversas o Firebird sabera administrar isto ? Uso Delphi 7 com Firebird.
[delphi-br] String editada para float
Pessoal, estou tendo problemas na conversao de uma string para float. o Conteudo da string, como exemplo seria este: 1.234,56 Ou seja, um valor com o ponto do milhar. E e´ este ponto do milhar que me causa problemas. Se na string estivesse assim: 1234,56 nao ocorreria erro de conversao. Como voces estao resolvendo isto ? ParamByName('TotProd').Asfloat := strtofloat(edit5.text); esta e´a linha que uso para converter -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Campo Data vazio em Grid
Gabirle, obrigado por responder, mas mesmo assim, continuo com duvidas: - no momento de gravar, se eu informar a palavra NULL ocorre erro de conversao (null para float) - Onde devo usar o termo NULL ? Gabriel Filho [EMAIL PROTECTED] escreveu deixe seu valor como nulo Duas duvidas: - porque um campo Date ao ser gravado com ZERO fica armazenado a data 31/12/1899 ? - como faço para que esta data - 31/12/1899 - não apareça em um DBGrid, e que apareça espaços quando for esta data. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Campo Data vazio em Grid: (Parte 2)
Obrigado ao Gabriel e ao Welson. Eu uso Firebird. A resposta do Welson, e´o que eu estava procurando. Mas como ele mesmo disse, existe um furo na solucao dele. E este problema e´ comum. Todos deve ter em algum momento enfrentado-o. Qual foi a solucao de voces ? Vou repetir o problema: - Um campo data, que nao recebe um data e sim um zero, acaba armazenando a data 31/12/1899 (ao inves do zero) - E ao mostrar em uma consulta qualquer este campo, em um grid, aparecera la, esta data estranha (31/12/1899) - O que desejo e´: deixar este campo vazio quando a data for 31/12/1899 Exemplo desta situacao: - controle de contas a receber: - data de pagamento do titulo mas o titulo ainda nao foi pago entao a data esta zerada - outra situacao: controle de biblioteca - data de devolucao do livro. mas o livro ainda nao foi devolvido. e no Grid aparece a data 31/12/1899 e o que quero e´que este campo apareca vazio. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Importacao de dados: DOS para Delphi(Firebird)
- Preciso ler um arquivo texto que contem enes linhas sendo cada linha, um registro a ser gravado em uma tabela do Firebird. (até ai tudo bem, sem problemas) - Dentro do meu formulario em Delphi chamo um programa executavel em DOS ,que ira gerar o arquivo texto. Estou usando a linha abaixo: winexec('command.com /c e:\cliente\TXTCLI4.exe', sw_shownormal); (ate aqui tuido bem, sem problemas) - O problema e´: Como saber que o programa DOS ja acabou de ser executado para o formulario continuar o processo. Ou seja: 1- formulario chama um programa DOS 2- programa DOS ira ler dados (em Cobol) e gerar um arquivo texto 3- formulario deve aguardar que o programa DOS conclua 4- para depois poder ler o arquivo texto 5- e atualizar minha base de dados em Firebird. Como controlar uma pausa entre a parte 2 e 3 ? - Atraves do formulario, feito em Delphi, que ira ler este arquivo texto -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Campo Data vazio em Grid
Duas duvidas: - porque um campo Date ao ser gravado com ZERO fica armazenado a data 31/12/1899 ? - como faço para que esta data - 31/12/1899 - não apareça em um DBGrid, e que apareça espaços quando for esta data. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] iboconsole: criar triggers
Nao consigo criar uma trigger pelo Interactive SQL do IBOConsole. Ja existe a Tabela Clientes Ja existe o Generator (CREATE GENERATOR Gen_Clientes;) O script que estou usando e´ o seguinte: CREATE TRIGGER TRG_INC_CLIENTES FOR CLIENTES BEFORE INSERT POSITION 0 AS begin NEW.CODCLIENTE = GEN_ID(Gen_Clientes, 1) end; A mensagem de erro e´ esta: ISC ERROR CODE:335544569 ISC ERROR MESSAGE: Dynamic SQL Error SQL error code = -104 Token unknown - line 5, char 10 end Statement: CREATE TRIGGER TRG_INC_CLIENTES FOR CLIENTES BEFORE INSERT POSITION 0 AS begin NEW.CODCLIENTE = GEN_ID(Gen_Clientes, 1) end Como criar esta Trigger no IBOConsole ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Sql: Campos diferentes. mesma tabela
Tenho a seguinte estrutura de uma tabela(Pedidos): NroPedido CodProd Quant Valor Sabor1 smallint Sabor2 smallint Sabor3 smallint Sabor4 smallint Sabor5 smallint Sendo que nos campos SABOR existe uma tabela (Sabores) que armazena o nome. Como ao ler cada registro de um determinado pedido, pegar o NOME dos Sabores ? Seria o uso de JOIN ? Mas para cada campo SABOR terei que fazer um JOIN ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SQLConnection1 + Firebird
Em um componente SQLConnection na Propriedade DRIVERNAME contem uma relação de Banco de Dados. Como facoo para que apareca nesta relacao o Firebird ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SQL: Consulta Ordem Alfab (p2)
Pessoal, ontem pedi ajuda e muitos fizeram comentarios, ajudando. Muito obrigado. Sobre a duvida que tinha, de via SQL fazer uma consulta que apresentase o que o usuario informou, mas permitindo que o usuario navegasse nos registros, tanto acima, quanto abaixo, foi resolvido, usando LOCATE. So que, se o usuario informar um nome que nao existe, por exemplo: PAPEL CARBONADO No cadastrado nao tem produtos que contem no seu nome este texto. E o LOCATE nao esta posicionando no registro que vem logo apos. A consulta esta ficando no inicio dos registros. Como fazer, para caso o USUARIO informe um texto que NAO existe, a consulta posicionar-se, no texto seguinte um exemplo: Usuario informa PAPEL CARB mas nao existe nenhum produto que contem estas letras no nome. O mais proximo e´ PAPEL CARMIM Em PARADOX eu usava FINDNEAREST Tenho algo parecido em FIREBIRD, via SQL ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SQL: Consulta em ordem alfabetica
Pessoal agradeço pelos comentarios a minha duvida. O Gabriel Filho, comentou em mostrar todos registros e posicionar no que foi digitado. Como fazer isto ? E somente para esclarecimento, eu usei o SELECT * aqui na pergunta para ficar mais facil o texto. Pois no programa, o SELECT esta assim: ... SQL.Text := 'select P.Codigo, P.Descr as ProdDescr, P.UM, ' + 'P.VlrVenda1, P.Grupo, P.Fabric, P.Ativo, T.Codigo, ' + 'T.Descr as FabricDescr from Produtos P'; SQL.Add ('LEFT OUTER JOIN Tabelas T on (T.Codigo = P.Fabric) and ' + '(T.Tipo = :Tipo)'); ... -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: SQL: Consulta em ordem alfabetica
Agradeço aos comentarios que fizeram. Mas alguem poderia me mostrar como fazer para que seja mostrado os produtos que o usuario escolheu e tambem permitir que o usuario tenha acesso a produtos que estao antes e apos dos produtos selecionados. o script original esta assim: with IBQProdutos do begin if Active then Close; SQL.Text := 'select P.Codigo, P.Descr as ProdDescr, ' + 'P.UM, P.VlrVenda1, P.Grupo, P.Fabric, ' + 'P.Ativo, T.Codigo, T.Descr as FabricDescr ' + 'from Produtos P'; SQL.Add('LEFT OUTER JOIN Tabelas T on (T.Codigo = P.Fabric) '+ ' and (T.Tipo = :Tipo)'); if edit1.text '' then SQL.add('WHERE (P.Descr like :Descr) and ' + '(P.Ativo = :Ativo)') else SQL.add('WHERE P.Ativo = :Ativo'); SQL.Add ('Order By P.Descr'); with params do begin ParamByName('Ativo').AsString := vsAtivo; ParamByName('Tipo').AsString := 'FAB'; if edit1.text '' then ParamByName('Descr').AsString := edit1.text + '%'; end; Open; end; Explicacoes: vsativo, variavel tipo string, que contem a letra S de sim, ou seja, Produto Ativo. TIPO = FAB, e´ porque em TABELAS contem cadastro de grupos, Fabricantes e Sub-Grupos. Consegue-se separar um dos outros, atraves do campo TIPO, ou seja, se Tipo = FAB e´ fabricante, se Tipo = GRP e´ grupo E o EDIT1.text e´ onde o usuario digita o nome parcial dos produtos que deseja consultar. E se EDIT1.text for diferente de significa que o usuario informou algum parametro (nome parcial) pois por padrao o edit1.text contem a informacao que o Sistema interpreta como ver todos os produtos. (fim) -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: SQL: Consulta em ordem alfabetica
Obrigado Gabriel pelos comentarios. O habito do ibQuery e´ tao grande que eu ja havia esquecido do ibTable. Estou fazendo uma consulta, usnado o DBGRID e IBTABLE da palheta INTERBASE no Delphi. Como fazer para que seja mostrado no Grid os produtos que o Usuario digitou no EDIT1 ? No Paradox eu fazia assim: ... Produtos.IndexName := 'Descricao'; Produtos.FindNearest ([edit1.text]); E no ibTable, como fazer ? (eu preciso mostrar hoje a tarde para o Cliente). -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: SQL: Consulta em ordem alfabetica
Vitor (obrigado pela intencao de ajudar) mas acredito que pela tua dica, eu obrigaria o Usuario retornar para o EDIT. O que preciso é que quando o Usuario chegar no ultimo produto da consulta, apareca os produtos que estao abaixo (em ordem alfabetica) que nao apareceram primeiramente por serem diferentes do que o Usuario colocou no EDIT. Entendeu ? Exemplo: Usuario informa: Agua com gas e´mostrado todos produtos que comecam com 'AGUA COM GAS' Usuario vai ate o ultimo produto que que seja AGUA COM GAS, e ao querer descer mais (usando a seta para baixo do teclado), deve aparecer os proximos produtos (exemplo: AGUA SEM GAS) Como fazer, via query ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: SQL: Consulta em ordem alfabetica
Ao Campus, muito obrigado pela explicacao. Mas como estou com gigante pressao do cliente nisto. Seria muito eu te pedir auxilio no codigo ? Fiz assim: isto esta no EDIT {= =} procedure TProdutosConsulta3.Edit1Change(Sender: TObject); begin if ibqprodutos.Active = true then ibqprodutos.locate ('ProdDescr',edit1.text,[]); end; e aqui a procedure que faz o SQL {= =} procedure TProdutosConsulta3.MostrarDadosGrid; begin if rgVisualizar.itemindex = 1 then vsAtivo := 'N'; with IBQProdutos do begin if Active then Close; SQL.Text := 'select P.Codigo, P.Descr as ProdDescr, P.UM, 'P.VlrVenda1, P.Grupo, P.Fabric, P.Ativo, ' + 'T.Codigo, T.Descr as FabricDescr from Produtos P'; SQL.Add ('LEFT OUTER JOIN Tabelas T on (T.Codigo = P.Fabric)' + ' and (T.Tipo = :Tipo)'); SQL.add('WHERE P.Ativo = :Ativo'); SQL.Add ('Order By P.Descr'); with params do begin ParamByName('Ativo').AsString := vsAtivo; ParamByName('Tipo').AsString := 'FAB'; end; Open; end; end; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: SQL: Consulta em ordem alfabetica
Obrigado a todos. A dica do Campus, ajudou muito e o Vitor concluiu. Consegui fazer funcionar. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SQL: Consulta em ordem alfabetica
Pessoal uso o scrip abaixo para apresentar em ordem alfabetica os Produtos. o EDIT1.text, tem a funcao de o Usuario informar parte do nome do produto que deseja consultar. E isto funciona. naturalmente. Como fazer para que, se o Usuario quiser ver os produtos que estão acima ou abaixo dos que apareceram no resultado da pesquisa ? Exemplificando: O usuario informou Papel Oficio O scripit, apresenta todos os produtos que comecam com PAPEL OFICIO (dentro de um DBGRID) E se o usuario, usando as setas do teclado SUBIR e desejar ver produtos que entecedem os PAPEL OFICIO, como fazer ? Pergunto isso, pois o meu cliente estava acostumado com as consultas feitas em Paradox. E no Paradox, estava ali todos os produtos da Tabela. Ele podia subir, descer a vontade (eu nao usava SQL, usava os FindNearest) O cliente NAO quer retornar para o EDIT para informar um novo parametro (por exemplo PAPEL CARTA) para ver. Ele quer que, ao informar PAPEL OFICIO, seja apresentado os papeis oficios, e se ele subir - no dbgrid - automaticamente seja mostrado os produtos que estão acima. Tem algum meio de eu resolevr isto ? with IBQProdutos do begin if Active then Close; SQL.Text := 'select * Produtos P'; SQL.add('WHERE (P.Descr like :Descr) SQL.Add ('Order By P.Descr'); with params do ParamByName('Descr').AsString := edit1.text + '%'; Open; end; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: software para controle de frota
No momento o que preciso são de idéias para as telas. Pensei em eu mesmo desenvolver, mas não estou conseguindo elaborar as telas. O controle de frotas que preciso, deve gerenciar as viagens dos caminhoes, controlando frete e despesas envolvidas. Sei que tambem existe o controle de pneus. Então, o meu pedido por enquanto é: - gostaria de ver imagens das telas para Controle de Frota, ou pelo menos as estruturas das tabelas envolvidas. Agradeço aos que responderam anteriormente a minha mensagem. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] software para controle de frota
Alguem tem um software para controle de frota de caminhoes ? Que use Firebird ? Aguardo contatos. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] StringGrid + keyPress
Como fazer com que o usuario tenha o recurso de ao teclar letras uma pesquisa ocorra ? Ou seja, os dados são mostrados em uma stringgrid. desejo que o usuario tenha o recurso de pressionar teclas, como se estivesse escrevendo uma palavra para a busca, e a filtragem ocorra. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird: Consulta sem considerar os acentos
Pessoal, como fazer com que uma consulta em ordem alfabética, seja desconsiderado os acentos ? Exemplo: o usuario escreve LAPIS (sem acento) Desejo, que aparece os produtos que começam com LAPIS, inclusive os que tem acento (LÁPIS). -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird: campo DATE: deixar sem data ?
Que tipo de tratamento voces fazem quando um campo tipo DATE, precisa ficar sem data ? Exemplo: Na emissao de NF, a data de saida, nem sempre é informada, assim como tambem o horario. Como deixar gravado, que o usuario nao informou data e hora ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Sql - mascara em campos
Pessoal como colocar mascara em DBGRID, quando este é preenchido de dados via SQL em tempo de execucao ? Sei que tem esta forma: TNumericField(dbGrid2.Columns[4].Field).DisplayFormat:='##,##0.00'; Mas uma outra, de preferencia, direto no campo da Tabela. Pois a linha acima nao esta funcionando, acredito ser, por estar manipulando as cores do dbgrid via o evento onDrawColumnCell. Ja que uso esta linha (TNumericField(dbGrid2.Columns[4].Field).DisplayFormat:='##,##0.00') em outras consultas e funciona perfeitamente. Obrigado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Quick Report: boleto em formulario continuo
Uma duvida: Preciso preencher boletos bancarios usando formulario continuo pre-impresso. a minha duvida é referente ao tamanho do papel informado no quick report. uso tamanho personalizado, ou seja, larg.: 19,5 cm por alt.: 10,2 cm ou de outra forma ? o que voces sugerem ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] QuickReport: Tamanho da folha
Fiz um relatorio, em que no componente do quick report esta definido folha tipo A4. Na maquina do Usuario esta outro tipo de foha. Como fazer para que o QuickReport imprima no tamanho que estiver definido na impressora ? O que problema que mais acontece comigo e´de no quickreport eu usar papel A4 e o usuário depois imprimir em formulario continuo. {Delphi 7 com Firebird} -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Programa DOS com XP
Uso a seguinte linha para executar programa DOS, via Delphi. winexec('command.com /c \delta-w\cobol\exec\Ped301.exe', sw_shownormal); Mas no XP ela nao funcionou. Alguem tem alguma sugestao ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird e Samba
Pessoal, no ibDataBase, na propriedade DataBaseName coloco assim: 10.1.1.159:d:\Controler\Dados\FALTAS.GDB e os outros terminais acessam e funciona como esperado. Mas, em um cliente, estou tendo problema. Nos terminais, ao chamar o Executavel (que esta em cada terminal) ocorre erro ao acessar o Banco de Dados (neste exemplo o FALTAS.GDB) O que tem de diferente neste meu cliente, é que a maquina servidora roda Linux (Samba). O pessoal que dá assistência ao meu cliente, no Samba, diz não haver nenhum bloqueio. O que eu devo fazer ? Por que não está funcionando ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Impressao: demora para começar a imprimir
Pessoal, ja perguntei isto em outros momentos. Volto a perguntar, pois ainda nao consegui resolver o problema: Uso Cobol 4.5 (DOS) em maquinas com Win98 e XP. Situacao: O Usuario informa impressora e confirma inicio de impressao. A impressao ira comecar, apos uns 30 segundos ou mais. Se o Usuario abandonar o Ssistema, ou seja, sair por completo do Menu, a impressao comeca imediatamente. Nao e´ necessario aguardar os 30 segs ou mais. Por que isto ??? Mesmo que na configuracao da impressora (Win98) esteja marcado para NAO usar o SPOOL, esta demora acontece. Ninguem passou por este problema ??? Se ninguem passou por este problema, entao sou eu que estou fazendo algo errado. Mas o que ? Como faço nos programas: Na SELECT da impressora, uso uma variavel para indicar a impressora a ser usada. Então, é movido para a variavel uma das seguintes opçoes: LPT1 LPT2 RELAT onde LPT1 porta de impressora da maquina local LPT2 porta de impressora da maquina remota RELAT nao usar impressora, gera um aqruiivo. Como voces fazem ? Obrigado a quem puder ajudar-me. Fernando -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html