Re: [delphi-br] Sistema para concessão de Água e Esgoto!
Funciona mais ou menos desta forma.. Toda qulometragem é anotada; diariamente ou qdo os caminhoes chegam na empresa e todos os gastos sao inseridos; e ele comeca a fazer o levantamento tipo ? Trocou pneu com km 10.000 e logo depois foi trocado em 12.000; ele comeca a criticar as despesas pois a km e muito baixa... Colocou combustivel com 10.000 e depois com 10.100 ele verifica porque foi tam pouco o rendimento do combustivel; quem era o motorista que deu mais e quem deu menos Tudo baseado em KM... Quando a frota tem o mesmo ano verificase tambem os carros para parametro.. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema para concessão de Água e Esgoto!
Eu trabalho com um sistema parecido sen do que é de distribuicao mais existe no meu sistemas situacoes parecidas: tipo: Verificacao de gastos da Frota de carros por quilometragem. Ocorrencias de todos os cadastros Cliente, Fornecedor, Vendedor,Supervisor Contas a Receber conforme as vendas Contas a Pagar conforme as compras Ficha kardex de todas as movimentacoes. etc Qualquer duvida entrar em contato com [EMAIL PROTECTED] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RecordCount
Mostra um dbgrid para ver se tem registro pois o recordcount funciona perfeito. dionatanhenrique [EMAIL PROTECTED] escreveu: Pessoal tenho uma query ao qual executo uma consulta um select simples, mas quando vou saber o numero de registros retornado por esta consulta esta retornando sempre -1, so que tenho certeza que ha registros nas tabelas. O que pode estar ocorrendo? uso delphi 7. Alertas do Yahoo! Mail em seu celular. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Novato...
Provalvelmente voce deve estar no ultimo registro; De um Nomedatabela.first para ir ao inicio; deve resolver. Carlos Magno [EMAIL PROTECTED] escreveu: Olá pessoal, O meu caso anterior foi resolvido com ListForm.bd.campo.AsString. Estou com outro probleminha. Na minha impressao deste BD só imprime o ultimo registro. Alguém sabe porque? desde já agradeço. um gde abraço, Carlos Magno Em 02/07/07, Carlos [EMAIL PROTECTED] escreveu: Você pode converter esta string para um inteiro. ex.: if(StrToInt(mCampo.Value) = 1) then Espero ter ajudado. Fraterno abraço. Carlos --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Logos [EMAIL PROTECTED] escreveu pegue pelo campo copy(campo.asstring,1,1) - Original Message - From: Carlos Magno To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, July 02, 2007 11:28 AM Subject: Re: [delphi-br] Novato... Coloquei este codigo, na complilação nao deu erro, mas na execução da o seguinte erro: Proj .exe raised exception Class EConverterError with message ''I' is not valid integer value. grato pela atenção, Magno Em 02/07/07, Alcistemas Informática [EMAIL PROTECTED] escreveu: VAR POS1:Char; POS2:Char; POS3:Char; etc.. BEGIN POS1:=copy(Campo.text,1,1); POS2:=copy(Campo.text,2,1); POS3:=copy(Campo.text,3,1); etc... - Original Message - From: crsmagno To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Monday, July 02, 2007 8:30 AM Subject: [delphi-br] Novato... Olá pessoal, Estou começando a trabalhar com delphi 7, e esbarrei em varios problemas, entre eles o que me fez parar. Tenho um campo do tipo alfanumerico em BD, de tamanho 6(01). Preciso testar cada posição. se é 1 se é 2 se é 3... para isso eu preciso extrair a posição para uma variavel do tipo string. Alguém pode me ajudar? Um abraço, Magno -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007 12:19 [As partes desta mensagem que não continham texto foram removidas] -- um abraço, Carlos Magno [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007 12:19 [As partes desta mensagem que não continham texto foram removidas] -- um abraço, Carlos Magno [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Relatórios em Matricial e Ja to de Tinta
Leodinei Bielak [EMAIL PROTECTED] escreveu: Olá. Aqui na empresa usamos o FastReport 3 para gerar os relatórios para matricial. Agora o cliente quer em Jato de Tinta também. Mas para isso no FastReport é necessário fazer outro relatório. Existe algum gerador de relatório que me permita criar um relatório só e que possa ser impresso tanto em modo gráfico quanto modo texto, ao mesmo tempo que permita controlar as formatações? No FastReport eu até consigo exportar de maneira que possa ser impresso em modo gráfico, mas onde tem texto em condensado fica muito largo. Valeu. -- Leodinei Bielak In theory, there is no difference between theory and practice. In practice, however.. [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente no DELPHI 6
Aconteceu comigo qudnado eu gravava em pasta diferentes; depois que eu coloquei noa delphi\lib\ os problemas acabaram. Leonardo Felipe de Oliveira [EMAIL PROTECTED] escreveu: Olá Pessoal, Aqui na empresa trabalhamos com componentes de terceiros. Estamos com um problema que ainda não consegui detectar: Apesar de ter instalado o componente no Delphi, sempre que ele é fechado e abro novamente, ele perde algumas pakcages e tenho que adicionar novamente. Alguém sabe como acertar isso? Abraços, Leonardo [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você cria, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Calculo de Horas
Se voce usar o banco de dados sql server existe uma funcao DATEDIFF(DATAINICIAL,DATAFINA) eLE TE RETORNA o valor em minuto ai é so voce fazer a div e o mod que sabe qtas horas e minutos deu. fabio giro [EMAIL PROTECTED] escreveu: Acho que pode ajudar. Adpate as suas necessidades. colocar 5 edits e 1 botao: no edit1 colocar data/hora inicial - 01/01/2004 07:00 no edit2 colocar data/hora final - 02/01/2004 10:00 no edit3 virá a diferenca da data/hora no edit4 virá a diferenca de dias e horas no edit5 virá a diferenca de horas procedure TForm1.Button1Click(Sender: TObject); var dt1 : tdate; dt2 : tdate; hr1 : ttime; hr2 : ttime; dti : double; hri : shortint; begin edit3.clear; edit4.clear; edit5.clear; dt1 := strtodate(copy(edit1.text,1,10)); dt2 := strtodate(copy(edit2.text,1,10)); hr1 := strtotime(copy(edit1.text,12,5)); hr2 := strtotime(copy(edit2.text,12,5)); edit3.text := datetimetostr(strtodatetime(edit2.text) - strtodatetime(edit1.text)); if dt2 = dt1 then // mesmo dia begin if hr2 = hr1 then // mesma hora edit5.text := '00:00' else begin // horas diferentes edit5.text := timetostr(hr2 - hr1); edit5.text := FormatDateTime('hh:mm',strtotime(edit5.text)); end; end else begin // dia seguinte dti := dt2 - dt1; if dti = 1 then begin if hr2 hr1 then // menos de 24 horas begin hri := strtoint(copy(edit3.text,12,2)); edit5.text := inttostr(hri) + copy(edit3.text,14,3); edit5.text := FormatDateTime('hh:mm',strtotime(edit5.text)); // 24 horas edit5.text:=timetostr(StrToTime('23:59:59')+ StrToTime('00:00:01') - Hr1 + Hr2); end else if hr2 = hr1 then // 24 horas begin edit4.text := floattostr(dti) + ' dia'; hri := trunc(dti * 24); edit5.text := inttostr(hri) + ':00'; end else begin // entre 24 e 48 horas edit4.text := floattostr(dti) + ' dia e ' + copy(edit3.text,12,5) + ' hora(s)'; hri := strtoint(copy(edit3.text,12,2)); hri := hri + (trunc(dti * 24)); edit5.text := inttostr(hri) + copy(edit3.text,14,3); end end else if hr2 hr1 then // mais de 1 dia, porem menos de 48,72,... horas begin edit4.text := floattostr(dti - 1) + ' dia(s) e ' + copy(edit3.text,12,5) + ' hora(s)'; hri := strtoint(copy(edit3.text,12,2)); hri := hri + (trunc((dti - 1) * 24)); edit5.text := inttostr(hri) + copy(edit3.text,14,3); end else if hr2 = hr1 then // 48,72,... horas begin edit4.text := floattostr(dti) + ' dias'; hri := trunc(dti * 24); edit5.text := inttostr(hri) + ':00'; end else begin // mais de 1 dia, mais de 48,72,... horas edit4.text := floattostr(dti) + ' dia(s) e ' + copy(edit3.text,12,5) + ' hora(s)'; hri := strtoint(copy(edit3.text,12,2)); hri := hri + (trunc((dti) * 24)); edit5.text := inttostr(hri) + copy(edit3.text,14,3); end end; end; Daniel [EMAIL PROTECTED] escreveu: Aê Pessoal...Help por favor... Preciso saber como faço pra calcular o intervalo entre duas horas que estão em datas diferentes... Exemplo... Qtas horas há entre 16:00:00 do dia 24/05/2007 e o 21:10:00 do dia 28/05/2007 Ajuda por favor O resultado deve ser em HH:mm:ss, tem uma função no Delphi, mas não retorna dessa forma...so retorna se foi 24, 48, 72 horas... Se eu pedir e a diferença for maior que 24 e menor que 48 ele retorna 24 Por favor ajudem-me [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]