RES: [delphi-br] Transportar BDF para txt uma única vez
Olá,
Bom uma forma de fazer isso seria a seguinte:
Conecte a tabela a um componente Table da palheta BDE e faça a seguinte
rotina:
Coloque no procedimento do botão que vai fazer a exportação dos dados...
procedure TForm1.Button1Click(Sender: TObject);
{ Função que retorna a stirng preenchendo com espaços de acordo com número
de carcteres passado no parâmetro }
function ComEspacos(Texto: String; NumeroCaracteres: Integer): String;
var
n, Repete, Tamanho: integer;
begin
Tamanho := StrLen(PChar(Texto));
Repete := NumeroCaracteres - Tamanho;
Result := Texto;
for n := 1 to Repete do
Result := Result + ' ';
end;
var
ArqTexto: TStringList;
begin
ArqTexto := TStringList.Create;
with Table1 do
begin
Open;
while not Eof do
begin
{ Joga linha a linha os registros da tabela no arquivo de texto }
ArqTexto.Add(ComEspacos(Table1Cod.Text,4) +
ComEspacos(Table1Nome.Text, 26) + ComEspacos(Table1End.Text, 20));
Next;
end;
end;
{ Salva o arquivo de texto no caminho indicado }
ArqTexto.SaveToFile('C:\Tabela.txt');
FreeAndNil(ArqTexto);
end;
Creio que isso resolve seu problema, pode até haver outra forma mais fácil
mas essa foi a que me veio agora...
Anderson
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Marcelo
Enviada em: segunda-feira, 25 de setembro de 2006 16:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Transportar BDF para txt uma única vez
Olá comunidade delphiana.
preciso transportar uma única vez os dados das minhas tabelas DBf
para arquivos txt com posições definidas.
Exemplo:
DBF:
Cod NomeEnd
1Joaorua tal
2Maria outra rua
TXT:
Cod (tem de estar entre 0 e 4)
Nome (tem de estar entre 5 e 30)
Edn (tem de estar entre 31 e 50)
desde já agradeço as ajudas
[As partes desta mensagem que não continham texto foram removidas]
--
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] Enviar parâmtros no executavel
Boa tarde, Alguém sabe como faço para enviar algum parâmetro Quando chamo o executavel do meu programa? Por exemplo, criar no atalho lá C:\MeuPrograma.exe Parametro1 Parametro2 Como faço para receber esses dados no MeuProgama? Muito 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] 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
RES: [delphi-br] Geração de boletos bancarios
www.cobrebem.com.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ulisses Enviada em: terça-feira, 14 de março de 2006 16:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Geração de boletos bancarios Boa tarde! Procure pela lista Boleto Bancário. Já existe um componente com vários bancos já homologados. Boa sorte. Ulisses - Original Message - From: Leandro Carbonera [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, November 14, 2005 10:22 AM Subject: [delphi-br] Geração de boletos bancarios E ai galera tudo bem. Estou com um pipinão pra descascar.. Tenho um cliente que deseja imprimir boletos bancarios pelo meu sistema, só que não consegui encontrar uma fonte que faça a impressão do codigo de barras do boleto. Alguem teria alguma ideia de como posso fazer isso Att. Leandro Carbonera Suporte Técnico - RBR Informática Fone: 54 343 1788 [EMAIL PROTECTED] www.rbrinformatica.com.br ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- 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
RES: [delphi-br] Converter Imagem
Esse programa esta instalado em um cliente, e ele tira as fotos e Direto da maquina digital passa pro computador.. por isso o tamanho Da foto.. O código é o seguinte: var Imagem: TPicture; JPEG : TJPEGImage; begin OpenDialog.Execute; if OpenDialog.FileName = '' then Exit; Imagem := TPicture.Create; Imagem.LoadFromFile(OpenDialog.FileName); JPEG := TJPEGImage.Create; JPEG.Assign(Imagem); JPEG.CompressionQuality := 25; Clipboard.Assign(JPEG); DBImage1.PasteFromClipboard; Imagem.Free; end; Bom, não sei se isto esta correto, só sei que depois de gravadas Umas 30 imagens de 1 mb cada no banco de dados.. ele foi pra mais de 500 MB... e as outras informções são somente texto... O que acontece para aumentar tanto o tamanho do banco? Obrigado -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 7 de março de 2006 07:59 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Converter Imagem Prioridade: Alta JPEG com mais de 1MB de tamanho? Que imagens são essas que vc grava no banco? Imagino que se você gravasse como BMP teria uns 10MB cada imagem! Posta o teu código que grava as imagens no banco pra gente analisar. Sds. From: Anderson Cichon [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Converter Imagem Date: Mon, 06 Mar 2006 22:54:07 -0300 Boa tarde Estou gravando imagens jpeg no banco de dados firebird.. O problema é que cada arquivo de imagem de mais de 1 mb... Como faço para diminuir o tamanho do arquivo antes de armazenar no banco Muito obrigado _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- 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] Converter Imagem
Boa tarde Estou gravando imagens jpeg no banco de dados firebird.. O problema é que cada arquivo de imagem de mais de 1 mb... Como faço para diminuir o tamanho do arquivo antes de armazenar no banco Muito 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] 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
RES: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?]
E alguém tem idéias de onde encontrar essa tela que vai na frente do monitor para vender? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de TechVale - Gustavo Enviada em: quinta-feira, 23 de fevereiro de 2006 23:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Ola pessoal, O touchscreen funciona mais ou menos assim... Você coloca uma tela como se fosse um desses protetores de tela que vc compra por aí na frente de seu monitor. Este vidro tem uma pelicula em 2 camadas que formam um pequeno capacitor. Dependendo de onde vc toca na tela a capacitancia varia. Para detectar esta variação de capacitancia vc precisa instalar uma placa que gera os sinais que excitam esta pelicula. Uma vez que a capacitancia varie, esta placa transforma esta variação em coordenada de tela enviando ao sistema operacional através do driver apropriado, dependendo do modelo. Uma vez trabalhei com uma placa que tinha uma saída que era colocado em uma ligação estrela com o mouse, ou seja, o mouse ia ligado nela e tinha uma saida que era ligado na entrada do mouse. Normalmente a programação com tela touchscreen é transparente ao aplicativo pois o programa recebe os dados como se fosse o mouse, ou seja, se vc tocar na posição do botão OK em uma caixa de dialogo, o aplicativo recebe um click como se o mouse tivesse clicado ali. Porém, para tirar proveito ao máximo destas telas touchscreen, o aplicativo precisa ser desenvolvido para usar ao máximo o mouse. Normalemnte os aplicativos usam mais o teclado que o mouse... Espero ter ajudado.. Abraços, Gustavo C. Bianconi. Técnico Eletrônico CREA-SP 0681944836 Celular : (12) 9123.0302 Email : [EMAIL PROTECTED] MSN : [EMAIL PROTECTED] Sistemas, Serviços e Equipamentos para Automação R Romeu Carnevalli, 200 CS03 - Centro São José dos Campos - SP - 12209-490 TeleFax 12 3923.5414 www.techvale.com.br - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Sent: Thursday, February 23, 2006 4:50 PM Subject: RES: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Éh, na verdade o assunto é pouco explorado. Eu vou dar uma fuçada no Copernico hoje a noite e ver o que acho de interessante. O que eu tinha escrito, baseei no site abaixo e lá dizia da placa. http://www.automatica.com.br/periferi_quiosque.htm []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Filipe Xavier Ramalho Enviada em: quinta-feira, 23 de fevereiro de 2006 12:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] http://www.waytec.com.br/conteudo.asp?lnk=produtos/ct5w Walter, não seria possível fazer a detecção dos toques apenas com uma placa, o vidro do monitor não teria como identificar os pontos de toque. O site acima é de um produto que compõe o seguinte: uma tela resistiva e uma placa controladora. a tela deve ser colotada sobre o monitor, para transformá-lo em um TouchScreen. Att, Filipe Xavier Ramalho Desenvolvimento Telefone: (41) 3219-2042 Duty Sistemas de Gerenciamento de Riscos S/A http://www.duty.com.br Antes de imprimir pense no MEIO AMBIENTE! - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Thursday, February 23, 2006 12:11 PM Subject: RES: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Não é tela. É uma placa especial que é instalada no computador e que deve detectar os toques. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Campus Enviada em: quinta-feira, 23 de fevereiro de 2006 10:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Provavelmente. É uma tela que é aplicada sobre o cinescópio do monitor, já vem com a fiação para conectar na porta serial ou usb. Deve se comportar como os leitores de código de barra que são conectados via teclado. - Original Message - From: Emerson Moreno [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 23, 2006 10:21 AM Subject: Re: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Não conheço direito a forma de trabalho desses monitores, mas creio que o mesmo retorna o posição (x,y) e simulando o
[delphi-br] Descobrir sistema operacional
Alguém conhece alguma função para descobrir o sistema operacional Que o aplicativo delphi esta sendo executado. Muito 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] 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] Descobrir sistema operacional
Boa Tarde Alguém conhece alguma função para retornar o sistema operacional Em que esta sendo rodado o aplicativo delphi? Muito 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] 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 no Delphi 2006
Alguém sabe como faço para instalar o QuickReport no Delphi 2006? Muito 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] 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] Teclado Numérico + Porta Serial
Boa tarde, Tenho um teclado numérico MultBanck que é conectado a porta serial, Alguém sabe como faço para acessar via delphi o dispositivo e efetuar a leitura da digitação do teclado? Muito 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] 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] Duvida SQL urgentíssimo por favor
Tenho uma dúvida e não consigo resolver de forma alguma com o firebird, Estou fazendo um programa financeiro com o delphi e firebird Há uma parte de conciliação bancária, onde pega os registros de uma tabela Que contém, o extrato bancário e concilia através de uma chave com uma Tabela de contas a pagar do sistema. Eu consegui fazer a consulta via access, que UPDATE COM INNER, mas no firebird da erro isso.. como posso resolver...? A consulta é mais ou menos a seguinte... UPDATE (((EXTRATOBANCARIO INNER JOIN COMPROMISSOS ON (EXTRATOBANCARIO.TIPO = COMPROMISSOS.DEBITOCREDITO) AND (EXTRATOBANCARIO.DATA = COMPROMISSOS.COM_DATAPAGAMENTO) AND (EXTRATOBANCARIO.VALOR = COMPROMISSOS.COM_VALORPGTO) AND (EXTRATOBANCARIO.CODIGOBANCO = COMPROMISSOS.BANCO_CODIGO) AND (EXTRATOBANCARIO.CODIGO = COMPROMISSOS.NDOCUMENTOCONCILIACAO)) INNER JOIN CENTROCUSTO ON COMPROMISSOS.CENTRO_CODIGO = CENTROCUSTO.CENTRO_CODIGO) INNER JOIN PLANOCONTAS_TERCIARIO ON COMPROMISSOS.TER_CODIGO = PLANOCONTAS_TERCIARIO.TER_CODIGO) INNER JOIN CADASTROFORNECEDORES ON COMPROMISSOS.FOR_CODIGO = CADASTROFORNECEDORES.FOR_CODIGO SET EXTRATOBANCARIO.CONCILIADO = 'S', EXTRATOBANCARIO.COM_CODIGO = compromissos.com_codigo, EXTRATOBANCARIO.COD_DIV_3 = compromissos.ter_codigo, EXTRATOBANCARIO.FOR_CODIGO = cadastrofornecedores.for_codigo, EXTRATOBANCARIO.CENTRO_CODIGO = centrocusto.centro_codigo, EXTRATOBANCARIO.HISTORICO = compromissos.com_observacoes, COMPROMISSOS.COM_CONCILIACAO = 'S', EXTRATOBANCARIO.NOMEFORNECEDOR = CADASTROFORNECEDORES.FOR_RAZAOSOCIAL, EXTRATOBANCARIO.NOMECENTROCUSTO = centrocusto.centro_nome WHERE (((EXTRATOBANCARIO.CONCILIADO)='N')); Ele usa alguns campos (Tipo, Data, Valor, Banco e Código do Documento) como Chave para fazer a alteração em alguns campos... Fico muuuito agradecido se alguém puder ajudar, muito obrigado Anderson -- 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] Impressão Digital
Boa Tarde, Alguém já trabalhou com um dispositivo USB que Lê impressão digital, eu tenho um e gostaria de Coloca-lo na minha aplicação, mas preciso de algo Que leia e decodifique o leitor... 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
RES: [delphi-br] Impressão Digital
O modelo é Targus PA469 DEFCON AUTHENTICATOR -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Filipe Xavier Ramalho Enviada em: quinta-feira, 6 de outubro de 2005 14:51 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Impressão Digital Qual o modelo do seu leitor? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Anderson Cichon Enviada em: quinta-feira, 6 de outubro de 2005 14:37 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Impressão Digital Boa Tarde, Alguém já trabalhou com um dispositivo USB que Lê impressão digital, eu tenho um e gostaria de Coloca-lo na minha aplicação, mas preciso de algo Que leia e decodifique o leitor... 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] Yahoo! Grupos, um serviço oferecido por: PlayStation 2 a partir de R$ 659! Parcele! Celular Motorola com câmera a partir de R$ 449! Siemens SL65 com câmera a partir de R$ 730! Câmeras Digitais a partir de apenas R$ 399! Parcele! CD Players Pioneer a partir de R$ 369! MP3 Player iPod a partir de R$ 799! Parcele! -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- 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 -- 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] POR FAVOR! Consulta SQL *Ajuda
Pessoal, estou com uma consulta aqui e não consigo fazer de forma alguma, preciso de ajuda por favor. A situação é mais ou menos a seguinte. Tenho 3 tabelas com a seguinte estrutura: Tabela CENTRO_CUSTO: CEN_CODIGO | DESCRICAO 1 | MATRIZ 2 | FILIAL 1 3 | FILIAL 2 4 | FILIAL 3 7 | RATEIO DO VALOR Tabela COMPROMISSOS: COM_CODIGO | CEN_CODIGO | VALOR | DESCRICAO 1 | 2 | 150,00 | Pgto. Água 2 | 7 | 200,00 | Pgto. ISS (Rateio entre filiais) Tabela COMPROMISSOS_RATEIO COM_CODIGO | CEN_CODIGO | VALOR 2 | 1 | 60,00 2 | 2 | 40,00 2 | 3 | 50,00 2 | 4 | 50,00 O programa funciona da seguinte maneira: Ele grava todos os compromissos a pagar na tabela COMPROMISSOS, sempre indicando qual o centro de custo a qual o compromissos esta sendo pago, mas, caso o centro de custo seja 7 - RATEIO DO VALOR então, grava-se no campo VALOR da tabela COMPROMISSOS o valor total do compromisso, e na tabela COMPROMISSOS_RATEIO grava-se o valor desse compromisso com o rateio para cada centro de custo como no exemplo a cima, onde para o CODIGO 2 na tabela COMPROMISSOS foi indicado o CODIGO 7 no campo CEN_CODIGO, portanto, para o valor desse compromissos, foi feito o rateio na tabela COMPROMISSOS_RATEIO, onde cada filial foi responsavel por uma certa quantia do valor total. Bom, na verdade foi feito dessa maneira, porque o programa não foi projetado para ratear o valor entre as filias, isso apareceu depois de pronto, então teve que ser contornado o problema. Agora a dúvida é a seguinte, preciso fazer uma consulta que me mostre o valor total por filial, somando os valores da tabela COMPROMISSOS e agrupando por CENTRO DE CUSTO, porém, caso o centro de custo seja o RATEIO DO VALOR, então a consulta precisa achar esse compromisso na tabela COMPROMISSOS_RATEIO, e somar ele no valor total. Deu pra entender? Bom, se alguém tiver alguma opinião de como fazer, fico muito agradecido... Obrigado pela colaboração Anderson -- 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 -- 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] Consulta SQL *Ajuda
Pessoal, estou com uma consulta aqui e não consigo fazer de forma alguma, preciso de ajuda por favor. A situação é mais ou menos a seguinte. Tenho 3 tabelas com a seguinte estrutura: Tabela CENTRO_CUSTO: CEN_CODIGO | DESCRICAO 1 | MATRIZ 2 | FILIAL 1 3 | FILIAL 2 4 | FILIAL 3 7 | RATEIO DO VALOR Tabela COMPROMISSOS: COM_CODIGO | CEN_CODIGO | VALOR | DESCRICAO 1 | 2 | 150,00 | Pgto. Água 2 | 7 | 200,00 | Pgto. ISS (Rateio entre filiais) Tabela COMPROMISSOS_RATEIO COM_CODIGO | CEN_CODIGO | VALOR 2 | 1 | 60,00 2 | 2 | 40,00 2 | 3 | 50,00 2 | 4 | 50,00 O programa funciona da seguinte maneira: Ele grava todos os compromissos a pagar na tabela COMPROMISSOS, sempre indicando qual o centro de custo a qual o compromissos esta sendo pago, mas, caso o centro de custo seja 7 - RATEIO DO VALOR então, grava-se no campo VALOR da tabela COMPROMISSOS o valor total do compromisso, e na tabela COMPROMISSOS_RATEIO grava-se o valor desse compromisso com o rateio para cada centro de custo como no exemplo a cima, onde para o CODIGO 2 na tabela COMPROMISSOS foi indicado o CODIGO 7 no campo CEN_CODIGO, portanto, para o valor desse compromissos, foi feito o rateio na tabela COMPROMISSOS_RATEIO, onde cada filial foi responsavel por uma certa quantia do valor total. Bom, na verdade foi feito dessa maneira, porque o programa não foi projetado para ratear o valor entre as filias, isso apareceu depois de pronto, então teve que ser contornado o problema. Agora a dúvida é a seguinte, preciso fazer uma consulta que me mostre o valor total por filial, somando os valores da tabela COMPROMISSOS e agrupando por CENTRO DE CUSTO, porém, caso o centro de custo seja o RATEIO DO VALOR, então a consulta precisa achar esse compromisso na tabela COMPROMISSOS_RATEIO, e somar ele no valor total. Deu pra entender? Bom, se alguém tiver alguma opinião de como fazer, fico muito agradecido... Obrigado pela colaboração Anderson -- 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] URG String com Delimitador
Bom dia, Alguém saba como fazer para separar os valores de uma string com um determinado delimitador. Exemlo, Eu tenho um arquivo de texto no seguinte formato: 81;0210592990281;20040127;20040123 E preciso que o programa leia o arquivo e jogue os valores num banco... O meu problema é separar cada valor da string. Como posso fazer isso? Muito 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
