K!ko

K!ko, mas já não foi isso que dissemos... :huh: Apenas sugiro que você utilize Date. Now, retorna a hora agregado e você terá um resultado fracionário. Se você leu o post que mencionei, lá eu digo: o tipo TDateTime (que é na verdade um Double) então, é importante que você não utilize a parte fracionária (correspondente à horas). Mas, se você preferir utilizar uma variável inteira para armazenar a quantidade dias, faça assim: atraso := Trunc(data_final - Date); em teoria você não precisa nem declara data_atual... (mas não sei se você utiliza em outro ponto do código) Abraços então cara... eu fiz de outro jeito... criei uma UDF do banco que faz o calculo... eu pensei que da maneira que fiz seria mais dificil... no entanto acabou sendo o mais facil... ficou assim: selecionaiq(qraux,' Select udf_daysbetween(current_date,'''+dtos(DsetRC.fieldbyname('rcvenc').AsDateTime)+''')atraso from rc'); imp(contlinha,88, qraux.fieldbyname('atraso').AsString +' Dia(s)'); eu testei do jeito que você falou e deu certo também... eu não estava entendendo oque você estava querendo dizer... e também não sabia usar "trunc"... pra que serve exatamente? se quiser pode considerar o tópico como resolvido. vlws pelas dicas... abraço

K!ko, parece que você não testou o que o colega Denis Courcy lhe sugeriu, pois é exatamente o número de dias que lhe será retornado! Se tiver dúvidas do porque, dê uma olhada na explicação que fiz neste post; Abraços se eu criar 3 variaveis: data_final, data_atual, atraso; todas como Tdatetime... e fazer o seguinte: while not(dsetRC.eof) do begin whit rdprint1 do if dsetRC.fieldbyname('rcemiscar').asString = 'S' then begin data_final:= dsetRC.fieldbyname('rcvenc').asDateTime; data_atual:= Now; ou Date atraso:= data_final - data_atual; ... end; ... end; isso vai me trazer a quantidade de dias de atraso? este while eu estou usando... na verdade tem mais coisas no código... estou "andando" a tabela toda e pegando alguns registros dela... só o que estão marcados pelo campo "rcemiscar" quando o mesmo é igual "S"... este código esta dentro de uma rotina para impressão de carta de cobrança usando RDPrint;

isto eu já fiz, resolveria se o resultado pretendido fosse por exemplo 15/02/2008... mas o resultado pretendido é: atraso 7 dia(s) eu só preciso que esse nº apareça. abraço

Ola amigos... bom... eu preciso de uma função ou rotina que calcule a diferença entre a data atual e a data de vencimento de um boleto de pagamento... isso é pra calcular atraso do pagamente desses boletos... fiz algumas rotinas e funções, no entanto o resultado obtido não foi exatamente o que eu esperava se alguém puder me ajudar... :D agradecido desde já!

Se o conteudo do Edit for apenas pra ser visualizado em tempo de execussão, ou seja, não guardará nenhum registro que será salvo no banco, basta fazer isso ficara meio estranho, pois o conteudo de um Memo é Distribuido em linhas... ou seja, é muita coisa pra se mostrar em Edit dependendo do tamanho da informação atribuida a ele... no entanto se isso resolver o problema: Edit1.text:= memo1.text; abraço :D

R.: carinha....infelizmente não tem esta paleta no meu D4, de um tempo pra cá estou notando o porque que a versão 4 foi liberada. Não tem muitos recursos. O delphi 4 é de 1998, vélhinho .... Meu amigo tem Delphi 5 e neste já tem a Paleta Interbase. Então como no D4 não tem, acredito que não gerencia outro banco diferente do Paradox, será?? Ai é muito ruim, pois fico impossibilitado de avançar........ Bom derepende até rode, vou esperar a opinião de mais alguns colegas... Até aqui muito Grato :) Ixi ai fica difcil... porém deve haver uma maneira de instalar esta aba no D4, aqui eu a uso no D5, ela contem componentes para gerenciamento do Firebird e do Interbase... da uma fussada na net e tenta acha algum componente pra instalar do D4 que seja relacionado a esta aba... creio que encontrara alguma coisa... em todo caso boa sorte brow :D abraço.

Hiho! Esta mensagem se refere a que exatamente? ela oecorre onde?

Koeh brow! No seu delphi 4 existe uma aba chamada interbase? se existir... você pode fazer a conexão através dela... usando os seguintes componentes no datamodule: -IBDatabase (para fazer a conexã com o banco de dados); -IBTransaction (para fazer os servisos de modificações no banco. EX: Incluir, Deletar, Gravar, etc.); -IBDataset (para Trazer os campos que você utilizará no delphi); -TDataSource (na aba Data Access); Basicamente serão esses... basta configura-los corretamente que os resultados serão positivos... eu os uso aqui no trabalho... mas com FireBird 1.5... mas creio que os processos nesse ponto de conexão são os mesmos. Bom... a respeito das configurações do datamodule: 1º - Use o IBDatabase para se conectar com o banco... de 2 cliques sobre ele para acessar as configurações... é uma tela semelhante a tela de criação de banco no IBExpert... creio que você irá reconhece-la. preencha a configuração e de um "test"pra ver se funfo. se passou deixe a propriedade "Active" do IBDataBase como "True". 2º - com o banco já conectado ao sistema... configure agora o transaction... na propriedade DefaultTransaction do IBDataBase selecione o Transaction que você criou... Depois na propriedade "Active" do IBTransaction deixe como "True" 3º - No IBDataSet - Na propriedade "Database" selecione o Database criado... c você não o renomeou estara como DataBase1; De 2 cliques na propriedade "SelectSQL", ai você colocará o Select para buscar os campos. EX: Select * from Cad_Clientes order by CODIGO. Feito isso, clique com o botão direito do mouse sobre o IBDataSet e va na opção "DataBase Editor"; deigite o nome da tabela no campo; clique em "Get Table Fields". se fez tdo certo ateh aki ele trara os campos respectivos a tabela escolhida (tem que ser a mesma tabela que você colocou na propriedade "SelectSQL" o nome da tabela deve estar identico ao que você colocou no select); após aparecer os campos clique em "Select Prymary Keys" e selecione o campo q é chave primaria; Feito isso clique em "Generate SQL". o assistente lhe mostrara uma aba onde você pode pre-editar os comandos usados para Modificar, Inserir, Deletar e Atualizar, baseando-se no select que você usou na propriedade "SelectSQL". Basta clicar nos Checks quele ele gera automaticamente. feito isso clique em OK. Agora de 2 cliques no componente... ira apareceu uma pequena tela em branco... clique com o direito na mesma e selecione "Add All Fields", se fez tdo certo ateh aki ira aparecer os campos respectivos a tabela selecionada no select da propriedade "SelectSQL". 4º - TDatasource - Adicione um no datamodule (aba Data Access). Na propriedade "DatasSet" selecione o IBDataset existente. Pronto... se fez tdo certo ateh aki o data module já esta configurado! :D é um método um tanto arcaico mas que gera resultados... xD Agora basta configurar o Form... isso eu vo deixar por sua conta. Qualquer duvida a respeito das configurações é só falar :D abraço.

koeh brow... cara isso o Jhonas já te instruiu em outro post... saca http://scriptbrasil.com.br/forum/index.php?showtopic=114449 Select * from NomedaTabela // NomedaTabela é o nome do seu arquivo de dados order by NOME é só usar o "Order by" e o nome do campo que contem os nomes no final do Select... além de ensinar como ordenar por ordem alfabética, que é uma coisa bem simples, ele passou um link de instruções SQL nesse link... http://www.linhadecodigo.com.br/Artigo.aspx?id=75 acho que vale a pena dar uma olhada. abraço :D

Pessoal...o Romário estava certo, fiz certinho como mencionou e deu certo. A Versão que estou usando IBExpert Versão 2007.07.20 valeu..ajuda....por enquanto é só... :blush: Abraço a todos.. :) então pelo jeito esse erro ocorre em determinada versão... na minha nem rola. em tdo caso...

E aew Eder.... Algum resultado positivo?

Romário na versão que uso, digito tudo em minusculo ou tudo em maiusculo e funciona do mesmo jeito... Creio que este não seja o problema... O IBExpert auto-edita os caracteres pra miusculo quando se digita usuario e senha... justamente pra evitar este tipo de erro. abraço

Bom, aparentemente o erro ocorreu na verifucação de senha e usuario... verifique se você digitou corretamente quando crio bancos aqui no meu micro eu faço exatamente do jeito que você fez... e da certo. não uso a mesma versão do IBExpert... porém o processo é o msmo não sei se tem algo a ver com permissões de usuario local... posso ta falanu bestera... mais num custa nada tentar... você possui uma conta de administrador no seu micro?

Olá Micheus! Sim verifiquei isto... retornei o Select antigo e o erro se repetiu... mas o erro não envolvia apenas a propriedade SelectSQL do IBDataset, mas sim os Selects pré-editados pelo componente, disponivel ao clicar com o botão direito do mouse sobre ele e ir em "Database Editor", Lá ele pré-edita os Selects usados para Modificar, Inserir, Deletar e Atualizar, baste selecionar a tabela, os campos pertencentes a ela, e a(s) chave primaria(s) que ele gera os selects; era justamente neste ultimo (o de atualizar) que o erro ocorria; Não fui eu quem fez as migrações... apenas me encarregarão de consertar os erros existentes, sem ao menos me dizer o que havia sido feito nele. Obrigado pela atenção! :D abraço

Ola Eder aqui eu uso o IBExpert, que é um gerenciador de banco de dados. Através dele eu crio uma conexão com o Client do Firebird. posteriormente crio os bancos e as tabelas pertencentes a eles... você já tentou usar o IBExpert? é bem simples de se usar. qlqh coisa https://www.scriptbrasil.com.br/download/apostila/706/ abraço

Obrigado cara :D Meu antigo tópico se tratava de um problema com rotina de back para firebird... usado em determinado cliente... nessa semana um novo cliente solicitou exatamente oque você postou... me ajudo pra caramba! :D vlws msmu!

Uffa!!! Encontrei o problema... tipo, na verdade esse sistema passou por duas migrações de banco de dados: 1º de Paradox para Interbase. 2º de Interbase para Firebird. A pessoa que me deu a tarefa de concertar os erros existentes me disse que havia sido feita a migração de Paradox para Firebird, e essa mesma pessoa disse que o Datamodule e o banco de dados já estavam prontos e funcionando. No entanto, eu não reparei que os selects usados estavão feitos com letras em minusculo sendo que o nome das tabelas são em maiusculo. Pro firebird isso faz diferença! então comecei analizar o erro... ele parava no "from" e a linha 2 existe de fato... não exatamente no select usado na propriedade selecSQL do IBDataSet mas em outro lugar: clicando com o botão direito do mouse sobre o componente> depois em database editor...> existe uma aba sql onde lhe permite pré-editar os selects usados para modificar, deletar, inserir e atualizar... o erro ocorria no select usado para atualizar, que estava assim: Select * from gr where GRCODI = :GRCODI por isso o erro ocorria na 2ª linha... ele não encontrava a tabela, pois ela se chama "GR" e não "gr". Enfim o problema está resolvido... na verdade foi por falta de informações passadas a mim que ele se agravou obrigado pela atenção Jhonas! :) e desculpa o encomodo.

eu não estou usando IBQuery. por incrivel que pareça é exatamente o que estou fazendo, e pelo que você me disse as configurações feitas estão corretas pois estão iguais as que você mensionou acima... no entanto o erro persiste. eu as fiz comparando-as com as de outro sistema, cujo as configurações desses componentes são identicas e tem a mesma finalidade. agora eu fiquei um pouco mais confuso... pois se as configurações estão corretas por que ocorre o erro??? pelamor se você consegui pensa em alguma coisa me fala.

estou usando os seguintes componentes: No Datamodule: 1 IBDataSet (nome = qrgr), 1 Datasource (nome = dsgr), 1 IBDataBase (nome = DB) e um IBTransaction (nome = Transaction) nos quais o datasource esta ligado no qrgr; o qrgr esta ligado no db; e o transaction esta ligado no db tambem. os campos do form estão lidados no datasource. o db esta fazendo a conexão com o banco... juntamente com o transaction, para poder gravar, excluir, alterar, etc. comparado as dos outros sistemas que fiz sim, o modo de conexão é semelhante. quando deixo a propriedade active do qrgr em 'true' acontece aquele erro misterioso... o msmo ocorre quando tento adicionar algum campo no mesmo. basicamente é isso. essas informções ajudão?

tenta isso... nomedocampo.text:= nomedocampo.text + '..................'; no OnExit dele nomedocampo se refere ao nome que você atribuiu ao componente que esta usando, no caso você mensionou um Edit. a quantidade de pontos é você quem decide. aqui funcionou. é uma maneira bem simples de fazer oque você pediu. abraço

é exatamente isto... A gente ta na mesma situação... O select só é passado no SQL da query... e não existe nenhuma outra linha além desta 'Select * from GR' eu já removi e recriei o componente... já revi as conexões... msmo assim não funfo... não consigo enternder o por que deste erro to pra fica loko :wacko:

O Select esta na propriedade SQL do componente... o nome da tabela esta certo, é GR mesmo O Select não é passado por parametro... o local exato onde o erro ocorre é o seguinte: procedure TFrmcdgr.FormShow(Sender: TObject); begin dm.Qrgr.Open; end; o erro acorre assim que eu chamo o form pelo menu... alguma sugestão?

um simples "SELECT * FROM GR" GR = Nome da tabela...

melhor voce postar o codigo que está dando erro, fica mais facil para ajudar. então... aparentemene ele não está aceitando ou encontrando o select especificado no componente de conexão... mas não tenho certeza. em alguns form's ocorre este erro: Project Controle.exe raised exception class EIBInterbaseError with message 'Dynamic SQL Error SQL Error code = -104 Token unknown - line 2, char 1 from'. Process stoped. Use step or Run to continue. em outros este: Project Controle.exe raised exception class EConvertError with message 'No argument for format '%s'' Process stoped. Use step or Run to continue. o problema ocorre no OnCreate ou OnShow dos forms... por isso não encontro o principio do erro, e por isso tambem, acredito q o erro ocorre devido ao componente de conexão com o banco.

Desculpa a ausencia... então... o trabalho de migração em si já esta feito... já transferi todos os dados das tabelas do paradox para o firebird... ou seja o banco esta pronto.... o problema é no delphi... com os componentes de conexão com o banco... eu estou usando os componentes da aba interbase, IBQUERY, IBDATASET, etc. já vi e revi todas as configurações... todos os componentes.... maaannss.. não encontro oque esta errado. :( alguns form's funcionão e outros não. tem alguma ideia do que pode ser?