[delphi-br] Problema com Função (Lógica errada ?)
Pessoal, estou com o seguinte problema aqui no meu serviço, tenho que fazer uma função que desabilite a acentuação em todos os forms do sistema. Até ae tudo OK, estou com a seguinte função para fazer isso. if not (Key in ['A'..'Z', 'a'..'z', '0'..'9']) then key := #0; Testei essa função direto no OnKeyPress do form e ela funcionou perfeitamente, mas para ficar um pouco melhor, tentei colocar essa função numa Unit aqui que tem somente Procedures e Functions. Então ela ficou assim : UntFuncoes procedure Desabilita_Acentos ( Key : Char); begin if not (Key in ['A'..'Z', 'a'..'z', '0'..'9']) then key := #0; end; UntCentro_Custo No Evento OnKeyPress coloco assim. procedure TfrmCentro_Custo.FormKeyPress(Sender: TObject; var Key: Char); Begin Desabilita_Acentos(key); end; Pelo que sei, era para funcionar... mas não funcionou assim, debuguei a função e ela retonar false na verificação (Key in ['A'..'Z', 'a'..'z', '0'..'9']) e a Key que testei foi a é. E mesmo dando false na verificação, ela não le a linha Key := #0; Alguem tem alguma explicação do porque isso ?!?!? Como preciso passar isso logo pra frente, eu coloquei a função if not (Key in ['A'..'Z', 'a'..'z', '0'..'9']) then key := #0; direto no OnKeyPress do UntCentro_Custo para poder liberar isso hj, mas gostaria de uma explicação para isso, pois a lógica está correta (Eu acho). Abraços [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Res:Coletor de Ponto MCP-52
Então Ricardo, estou desenvolvendo um sistema que vai integrar a coleta do ponto, e não vamos usar softs de terceiros. Então aqueles softs do site da Tecnibra, não vão me servir. Mesmo assim, valeu a ajuda. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Layout CMC7
Pessoal, no trabalho estamos com uma leitora de cheques, e já fiz a função para me trazer os campos de agência, banco, conta e numero do cheque. Só que me deparei com um pequeno problema. Nem todos os bancos usam o mesmo padrão para o numero da conta na banda magnética. Resumindo a história: BANCO 01 Numero da Conta na Banda Magnética: 9 1234 99 X BANCO 02 Numero da Conta na Banda Magnética: 9 123 999 X Bom, acho que vc perceberam que no banco 1 tem 4 digitos antes do numero da conta, e no banco 2 só tem 3. Isso vária mais ainda de banco para banco, daí eu queria saber se alguém aqui da lista, já desenvolveu algo para isso, e se alguém tem os Layouts dos bancos, tipo, o banco Itaú tem 9 dígitos no numero da conta, o Brasil tem 11 dígitos, o Real tem 7 dígitos, algo assim para que eu posso pegar direito o numero da conta. Abraços e bom final de semana a todos. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro na inicialização do Delphi7
Galera, já instalei uns 4 tipos de delphis diferentes e ambos dão essas 2 mensagens erradas. O que pode ser ? Faz tempo que não instalo o D7, e o meu SO é o Windows 2003. Abraços. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro na inicialização do Delphi7
Esqueci a img =\ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Erro na inicialização do Delphi7
Opa, valeu a dica. As img são essas : Imagem 01: http://farm4.static.flickr.com/3253/2995461047_043dc6ecb1_o.jpg Imagem 02: http://farm4.static.flickr.com/3229/2995461105_3a6231d060_o.jpg Abraços. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Onjahyr - GMAIL Enviada em: domingo, 2 de novembro de 2008 14:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Erro na inicialização do Delphi7 A lista não aceita anexos, se existe alguma imagem coloque-a em algum local na internet e indique o endereço ou coloque na seção de arquivos da lista. Tiago de Assis Pimenta escreveu: Esqueci a img =\ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 7 Service Pack 1 (Update)
Galera, estou procurando o update do Delphi 7, alguém tem ae ou pode me passa o link que não seja para os da codegear que tem que ser usuário registrado !??!?! [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Fechar uma Janela, ou Finalizar um Processo
Eu queria fechar uma janela em especifico, ou finalizar um processo especifico. Mas com esse comando abaixo, eu falei que ele estava tentando finalizar o Windows. Mas isso já foi resolvido. Depois eu posto como ficou :D Abraço. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jean Barreiros Enviada em: quarta-feira, 29 de outubro de 2008 09:25 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Fechar uma Janela, ou Finalizar um Processo Eu não entedir direito, vc quer reiniciar/desligar o windows? . . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] mailto:jean%40comerciofsa.com.br e-mail: [EMAIL PROTECTED] mailto:delphijean%40gmail.com De: Tiago de Assis Pimenta [EMAIL PROTECTED] mailto:tiagopimenta%40ymail.com Para: Grupo Delphi Yahoo delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 28 de Outubro de 2008 12:44:16 Assunto: [delphi-br] Fechar uma Janela, ou Finalizar um Processo Galera, agora preciso finalizar um processo, ou fechar uma determinada janela para fazer o atualizador do meu sistema. Peguei um código de um amigo meu, mas esse não rola, pois ele está tentando finalizar o Windows, e aparece a tela de Hibernar, Desligar ou Reiniciar o Windows. procedure Tfrmprincipal. FechaSistema; var h : THandle; begin h := findwindow(nil, pchar(paramstr( 1))); if h 0 then sendmessage( h, WM_CLOSE, 0, 0); end; O processo chama LTACorpore.exe. [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fechar uma Janela, ou Finalizar um Processo
Galera, agora preciso finalizar um processo, ou fechar uma determinada janela para fazer o atualizador do meu sistema. Peguei um código de um amigo meu, mas esse não rola, pois ele está tentando finalizar o Windows, e aparece a tela de Hibernar, Desligar ou Reiniciar o Windows. procedure Tfrmprincipal.FechaSistema; var h : THandle; begin h := findwindow(nil, pchar(paramstr(1))); if h 0 then sendmessage(h, WM_CLOSE, 0, 0); end; O processo chama LTACorpore.exe. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Atualizar Sistema ao Iniciar
Ricardo, Obrigado pela resposta, mas já resolvi, fiz assim oh: O sistema inicia e verifica a versão do sistema local, e a do servidor, se for inferior a do local, ele chama outro exe chamado Atualizador.exe e fecha o Sistema.exe. Daí o Atualizador deleta o sistema.exe da maquina local, e copia o novo sistema.exe para a maquina local. Daí depois de feita a cópia, o Atualizador chama o sistema já atualizado e se fecha. Abraços. Tiago Pimenta De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo Cabral Enviada em: terça-feira, 28 de outubro de 2008 16:31 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Atualizar Sistema ao Iniciar Tenho um cliente que tem várias máquinas na rede. Eu faço o seguinte: Quando o usuário entra no sistema, este verifica no servidor a data e a hora e se for mais novo, faço uma cópia do servidor para a máquina do usuário. Abraços, Ricardo Cabral --- Em ter, 28/10/08, Adailson Reis Rocha [EMAIL PROTECTED] mailto:adailsonrocha%40hotmail.com escreveu: De: Adailson Reis Rocha [EMAIL PROTECTED] mailto:adailsonrocha%40hotmail.com Assunto: RE: [delphi-br] Atualizar Sistema ao Iniciar Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Terça-feira, 28 de Outubro de 2008, 14:43 Utilize o componente mdLaucher da biblioteca mdLib. Eu utilizo este componente e recomendo. http://micrologics. co.uk/library/ mdlib/ Adailson Rocha Programador To: [EMAIL PROTECTED] os.com.br From: tiagopimenta@ ymail.com Date: Mon, 27 Oct 2008 13:45:54 -0200 Subject: [delphi-br] Atualizar Sistema ao Iniciar Galera, alguém aqui já teve a necessidade de atualizar o sistema, ou até mesmo, verificar se o sistema que está em execução na maquina, é o mais novo ? Isso se tratando em rede local, sem precisar verificar em FTP ou algo do tipo. No serviço aqui, vou precisar disso, e queria que fosse feito dessa forma, quando iniciar o aplicativo, ele verifique no servidor, se a versão do sistema é igual ao que está no servidor, se não for, ele atualizar sozinho. Por enquanto estou usado um bat no inicialização do Windows em cada maquina, mas para que o sistema seja atualizado, o usuário tem que reiniciar a maquina, e isso não esta muito agradável. Vi na net meio correndo aqui, esse artigo (http://www.techtips .com.br/programa cao/delphi/ componentes/ auto-atualizacao - de-aplicativos- em-delphi/ ), mas parece que está muito além do que eu preciso. Queria saber se alguém desenvolveu algo mais simples. Abraços. [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile. live.com/ signup/signup2. aspx?lc=pt- br [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atualizar Sistema ao Iniciar
Galera, alguém aqui já teve a necessidade de atualizar o sistema, ou até mesmo, verificar se o sistema que está em execução na maquina, é o mais novo ? Isso se tratando em rede local, sem precisar verificar em FTP ou algo do tipo. No serviço aqui, vou precisar disso, e queria que fosse feito dessa forma, quando iniciar o aplicativo, ele verifique no servidor, se a versão do sistema é igual ao que está no servidor, se não for, ele atualizar sozinho. Por enquanto estou usado um bat no inicialização do Windows em cada maquina, mas para que o sistema seja atualizado, o usuário tem que reiniciar a maquina, e isso não esta muito agradável. Vi na net meio correndo aqui, esse artigo (http://www.techtips.com.br/programacao/delphi/componentes/auto-atualizacao- de-aplicativos-em-delphi/ ), mas parece que está muito além do que eu preciso. Queria saber se alguém desenvolveu algo mais simples. Abraços. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Impressão Cheque via Jato de Tinta
Galera, to com um sistema na empresa que trabalho, que imprimia os cheques com o componente RDPrint 3.0h, e pelo que pude ver, ele é usado para imprimir em matricial, agora os cheques vão ser impressos via jato de tinta (HP Deskjet 3550), alguém sabe se tem como configurar o RDPrint para imprimir na jato de tinta, ou se é mais rápido fazer um outro relatório para isso !??! Abraço [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Como DEBUGAR uma STORED PROCEDURE ?
Pelo que eu sei, dando exception nela. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabio Ferreira Enviada em: quarta-feira, 22 de outubro de 2008 19:59 Para: Delphi-Brasil; delphi-br@yahoogrupos.com.br; Moderador do grupo DelphiToDelphi Assunto: [delphi-br] Como DEBUGAR uma STORED PROCEDURE ? Fabio http://www.orkut.com.br/Main#Profile.aspx?uid=14658194472417066894Como DEBUGAR uma STORED PROCEDURE ?Pessoal Estou começando agora a mexer com T-SQL e me deparei com uma SP enorme e gostaria de saber se há alguma maneira de debugar uma sp acompanhando o seus resultados passo a passo. Abs [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Bom Dia Ricardo,
Você pode fazer assim:
IF not DM.ibvendedor.isnull then
Begin
Bla,bla,bla;
End;
Abraço.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Mendes
Enviada em: quarta-feira, 1 de outubro de 2008 00:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir
form
Oi galera,
Gostaria de uma sugestão..
Eu preciso verificar se algumas tabelas tem registro antes de abrir um
determinado form...
Atualmente tenho todos os meus IBDataSet num data Modulo.estou tentando
fazer o codigo abaixo...
Mas não está funcionando conforme eu quero...
if not(DM.IBVendedor.Eof) then
begin
MessageDlg('Nenhum vendedor foi cadastrada ainda.'+#13+
#10+'Favor cadastrar vendedor para para continuar.', mtInformation, [mbOK],
0);
Exit;
end;
fico no aguardo de uma ajuda...
Obrigado...
Ricardo Mendes
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Corrige o meu outro código, é IF tabela.isnull, e não IF not tabela.isnull
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Mendes
Enviada em: quarta-feira, 1 de outubro de 2008 00:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir
form
Oi galera,
Gostaria de uma sugestão..
Eu preciso verificar se algumas tabelas tem registro antes de abrir um
determinado form...
Atualmente tenho todos os meus IBDataSet num data Modulo.estou tentando
fazer o codigo abaixo...
Mas não está funcionando conforme eu quero...
if not(DM.IBVendedor.Eof) then
begin
MessageDlg('Nenhum vendedor foi cadastrada ainda.'+#13+
#10+'Favor cadastrar vendedor para para continuar.', mtInformation, [mbOK],
0);
Exit;
end;
fico no aguardo de uma ajuda...
Obrigado...
Ricardo Mendes
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Res:RE: Res: [delphi-br] Melhor Relátorio para BDS2 006
Galera, se puderem, tem como colocar os prós e contras de cada um dos relatórios que me indicaram ??? Tipo, os prós e contras do FastReport, do QuickReport, Reportman, etc Abraços [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Melhor Relátorio para BDS2006
Galera, qual o melhor relatório para o BDS2006 ? Até o Delphi 7 eu usava o Quick Report, agora no 2006 estou em duvida quanto ao RAVE, dizem não ser aquelas coisas, que é pesado e nada funcional, alguém pode me ajudar a decidir com qual eu mecho Abraço [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Numeros Aleatórios não Aleatórios
Galera, para desenvolver um soft que preciso, tive que aprender a usar o random e o randomize, só que tem coisa errada no meu projeto. Fiz um simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim. Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava fora do loop, coloquei o randomize dentro do loop e nada. Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!? Abraço, quem quizer o prj me passe o email que envio, está simples, simples, era só para eu aprender como usar o random, mas o randomize está me tirando. Grato. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Res:Re: Numeros Aleatórios não Aleatórios
Galera, ta ae o código que estou usando: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin listbox1.clear; randomize; for I := 0 to 9 do listbox1.Items.Add(inttostr(random(10))); end; E vou testar os códigos e as dicas que me passaram. E João Morais, eu intendi o que vc disse, o random pega numeros aleatóriamente, não quer dizer que ele não vá se repetir, isso intendi, mas qual a função então do randomize ??? Pelo que eu li por ae, seria para não deixar repetir os numeros, tipo de 0..9 ele usasse todos sem repetir. Abraço gente. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problema com pasta Default Projects
Então Juliano, o problema é mesmo a criação da pasta em um lugar que não quero, pois eu quero que todo material de delphi fique em D:\Delphi\... Quando vou salvar ou abrir algum projeto, realmente ele aponta para a pasta correta, o problema é que se eu apagar a pasta de Meus Documentos o BDS impoem o que ele quer, e acho que se ele tem a opção para mudar a pasta, pq na hora que vou executar um projeto compilado, ele pedi para instalar a pasta novamente. Abraço. Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com pasta Default Projects
Bom dia pessoal do grupo. Estou mandando esse email com um problema chato que esta acontecendo com o meu BDS2006. É o seguinte, tenho uma pasta padrão dentro da pasta Meus Documentos chamada Delphi, e nela fica tudo que é projetos de Delphi. Então quando eu instalo o BDS2006, ele cria uma Pasta Chamada Borland Studio Projects dentro do Meus Documentos, só que eu quero move-la para a pasta Delphi que também fica dentro do Meus Documentos. Dai começa a minha perigrinação, pois mesmo alterando a pasta patrão de projetos dentro do delphi, path do windows, etc... ele tenta criar essa pasta dentro do Meus Documentos toda vez que eu compilo a primeira vez um projeto. Então gostaria de saber se alguem do grupo aqui, saberia me informar como eu faço para alterar a pasta padrão de projetos do BDS2006. Algumas coisas que já fiz e não deram certo: * No Windows * 1# Path do Windows para: D:\Delphi\Borland Studio Projects\Bpl * No Delphi * 2# Tools Options Environment Options Default Projetcs: D:\Delphi\Borland Studio Projects 3# Tools Options Environment Variables BDSPROJETCSDIR: D:\Delphi\Borland Studio Projects Algumas coisas que não estou afim de fazer: 1# Deixar o BDS2006 criar a pasta em Meus Documentos 2# Ficar apertando ESC toda vez que eu compilo a primeira vez um projeto e aparece a tela de instalação de novo do BDS para ele criar a Pasta do jeito que ele quer. Grato Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DLL Versão 1.1 - PesoSaturno_v11.dll
Galera Gostaria de sabe se alguem tem essa DLL e se tiver se alguem poderia me enviar DLL PesoSaturno_v11.dll Já baixei a documentação do site Saturno, só que o arquivo DLL_v11-DOCOMENTACAO.zip está sem a DLL. Grato Tiago de Assis Pimenta MSN: [EMAIL PROTECTED] Email: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Demora ao carregar uma img com o TImage
Galera, estou com problemas para carregar uma imagem como TImagem. A figura
é grande, tamanho 1024x768 e o formato é JPG. Ela é a img que fica no form
principal, e dando 2 cliques na img que vai no formulário principal, abre um
cx de dialogo para procurar outra img para colocar no lugar.
Está funcionando tudo, ela troca a img, salva o caminho da foto no arquivo
.ini tudo certo, o problema é que para eu atualizar a img, eu tenho que
minimizar e restaurar o programa para ela dar um Refresh na img.
Alguem sabe como eu posso fazer isso sem ter que falar para o cliente
minimizar e restaurar o programa ???
Abaixo vai o código.
procedure Tfrmprincipal.Image1DblClick(Sender: TObject);
var
ini : TIniFile;
begin
{
NÃO ESQUECER DE DECLARAR JPEG NA USES !!
}
openpicturedialog1.execute;
image1.picture.loadfromfile(openpicturedialog1.filename);
image1.picture.savetofile(openpicturedialog1.filename);
ini := TIniFile.Create('c:\windows\system\branco.ini');
try
Ini.writestring('CONFIG','FOTO',openpicturedialog1.filename);
finally
Ini.free;
end;
end;
Abraço.
Tiago de Assis Pimenta
www.supportsinformatica.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Re: [delphi-br] Melhor Gerador de Relátorio D20 06
E galera, onde eu posso baixar o Fast Reports, de preferencia o 4 ?!?!? Abraço Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Site: http://www.supportsinformatica.com/ www.supportsinformatica.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fast Reports 4
Galera, alguem sabe onde consigo o Fast Reports, de preferencia já crackeado ?!?! Abraços Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Site: http://www.supportsinformatica.com/ www.supportsinformatica.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Melhor Gerador de Relátorio D2006
Galera, sei que esse tema é bem váriavel, e dependi muito de gosto pessoal, mas atualmente, qual Gerador de Relátorio é o melhor para o D2006 ??? Abraço Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Site: http://www.supportsinformatica.com/ www.supportsinformatica.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] InterBase Admin no BDS 2006
Mendo, Se possivel vc pode me passar o nome do arquivo ?? Pois aqui não esta instalado. grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] InterBase Admin no BDS 2006
Mendo, Agora que me lembrei, estou falando da paleta IBAdmin e não somente da paleta Interbase, pois a interbase já esta instalada normal, mais eu preciso da IBAdmin pois preciso do componente para fazer backup e restore. Grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] _ De: Tiago de Assis Pimenta [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 4 de junho de 2007 08:27 Para: Grupo Delphi Yahoo (delphi-br@yahoogrupos.com.br) Assunto: InterBase Admin no BDS 2006 Mendo, Se possivel vc pode me passar o nome do arquivo ?? Pois aqui não esta instalado. grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] IBAdmin no BDS 2006
Galera, estou mandando de novo esse email pq não consegui achar/instalar essa paleta no meu BDS 2006. Ele esta instalado somente a versão for win32. Já desinstalei e instalei tudo de novo para ve se era algum erro meu, mas mesmo assim, a paleta não existe. Alguem sabe como adicionar ela usando o BDS for win32 ??? Preciso dessa paleta para usar o componente IBBackupService e o IBRestoreService. Grato mais uma vez. Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] InterBase Admin no BDS 2006
Galera, no Delphi 7 tinha a paleta Interbase Admin que tinha o componente para fazer o backup do firebird. No BDS 2006 não achei essa paleta, alguem sabe como proceder ??? Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] IbExpert Developer Studio 2.2
Não sei se é permitido fazer essa pergunta, mas só tem um jeito de saber. Alguem tem o Crack do IbExpert Developer Studio 2.2 ??? Abraço Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como vc's cobram por manutenção mensal ???
Galera, estou querendo cobrar pelos meus sistemas comerciais uma manutenção mensal para ter uma renda fixa todo mês, para que eu possa terminar minha faculdade de Eng. da Computação. E gostaria de saber de vc's, como são cobrados por essas manutenções mensais !!! Alugel seria um caso a parte. Pois já conversei com alguns colegas programadores e eles sempre dizem que além do valor do sistema, eles cobram por uma manutenção mensal. E dependendo do sistema e de quantas maquinas o sistema roda, eu já cheguei a ouvi que cobram 1 salário minimo. Dai vem a pergunta básica: O que argumentar com o cliente na hora de oferecer essa manutenção mensal ??? E se no mês não tiver nenhuma manutenção ??? Grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Executar EXE no CD-Rom
Galera, fui executar um sistema em um cd-rom no meu cliente e ele deu erro de windows ... que tinha que enviar relátorio e talz ... Cheguei aqui em casa, e executei ele normalmente no cd-rom ... alguem faz ideia do que pode ser ??? Ele não ta fazendo conexão com o banco ainda então o que pode ter faltado ?!?! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Executar Banco em CDROM
Galera, amanha vou apresentar um sistema e preciso que o banco de dados rode no cd-rom. O problema que ele da o seguinte erro --- SCC - Sistema de Controle de Crédiario - Pes Cia --- no permission for read-write access to database F:\BD\DADOS.FDB. --- OK --- Alguem sabe como fazer ele ser executado simplesmente como leitura. Não vou precisar gravar nada no cd-rom, simplesmente mostrar os dados já cadastrados ... Grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Executar Banco em CDROM
Galera, amanha vou apresentar um sistema e preciso que o banco de dados rode no cd-rom. O problema que ele da o seguinte erro --- SCC - Sistema de Controle de Crédiario - Pes Cia --- no permission for read-write access to database F:\BD\DADOS.FDB. --- OK --- Alguem sabe como fazer ele ser executado simplesmente como leitura. Não vou precisar gravar nada no cd-rom, simplesmente mostrar os dados já cadastrados ... Grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTalk: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Caracter estranho
No outlook os caracteres são normais ... tenta mudar o programa para ve se da certo !!! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodilson Enviada em: segunda-feira, 23 de abril de 2007 18:07 Para: delphi-br @yahoogrupos.com.br Assunto: [delphi-br] Caracter estranho Pessoal boa tarde, Tenho recebido e-mail do grupo no outlook express normalmente, porém as mensagens com acentuação está aparecendo uns caracteres estranhos nos acentos. Alguém sabe por que isso acontece? Rodilson [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] problemas com quantidade de registro no Select
Não seria where cod = 55 Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius Latini Enviada em: domingo, 22 de abril de 2007 03:08 Para: delphi-br Assunto: [delphi-br] problemas com quantidade de registro no Select Fala Calera estou tendo problemas com a quantidade de registro quando faço um Select no banco de dados ele mostra que tem apenas um registro quando existe mais alguém tem ideia do que pode ser ?? DM.IBQuery.Close(); DM.IBQuery.SQL.Clear(); DM.IBQuery.SQL.Add(SELECT * from tabela where cod 55); DM.IBQuery.Open(); while not (DM.IBQuery.Eof) do begin valor :=DM.IBQuery.FieldValues[vCampo];); DM.IBQuery.Next; end [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] QuickReport 4.06 for Delphi 2006 Parte 2
Esqueci de mencionar o tipo de erro que da quando tento executar o Proj. [Pascal Warning] qreport.pas(595): W1020 Constructing instance of 'TQReportIDEWizard' containing abstract method 'TIExpert.GetMenuText' Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] QuickReport 4.06 for Delphi2006
Galera estou tendo problemas para instalar o QuickReport no Delphi 2006. Aparece o seguinte erro qdo compilo o ProjectGroup1 --- Error --- Cannot run project unless a host application is defined. Use the Run|Parameters... dialog box. --- OK Details --- E se tento instalar o Package QR4runDX da o seguinte erro: --- Error --- Package D:\Borland Studio Projects\Bpl\QR4RunDX.bpl can't be installed because it is not a design time package. --- OK Details --- Alguem tem uma luz para me dar ??? Estou usando o Delphi 2006 for win32 Grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] sair do grupo
Olha no final da minha msg, vai aparecer isso ó: blocked::http://br.groups.yahoo.com/;_ylc=X3oDMTJkamhjZGc0BF9TAzk3NDkwNDM3B GdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxM Tc2NTYxMjU1 Alterar blocked::http://br.groups.yahoo.com/group/delphi-br/join;_ylc=X3oDMTJmajNwZ jg1BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc 2xrA3N0bmdzBHN0aW1lAzExNzY1NjEyNTU- configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar blocked::mailto:[EMAIL PROTECTED] Recebimento de e-mail: Lista de mensagens recebimento para lista diária de mensagens | Alterar blocked::mailto:[EMAIL PROTECTED] formato de distribuição: Tradicional formato para o tradicional Visite blocked::http://br.groups.yahoo.com/group/delphi-br;_ylc=X3oDMTJkZWVqNmxmBF 9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2 hwZgRzdGltZQMxMTc2NTYxMjU1 seu Grupo | Termos de uso do Yahoo! blocked::http://br.yahoo.com/info/utos.html Grupos | Sair do blocked::mailto:[EMAIL PROTECTED] grupo CLica aqui. Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de Maykon Keller Enviada em: sábado, 14 de abril de 2007 10:30 Para: [EMAIL PROTECTED] Assunto: [delphi-br] sair do grupo por favor podem me retirar do grupo maykon __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger http://br.messenger.yahoo.com/ .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sistema Sintegra
Galera, alguem pode me explicar o que é sintegra ? Pelo que intendi vc pega e cria um arquivo txt que vai ter que ser enviado Alguem poderia melhorar isso ?!?! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Sistema Sintegra
Alcistemas, Tem como me explicar um pouco mais sobre esse layout ? Eu tenho 2 arquivos.txt aqui para exemplo, mais o que não intendo é o seguinte. Todo mês tem que fazer isso ? Gerar esse arquivo informarmando os produtos que entram e os que saim no estabelicimento ? Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alcistemas Informática Enviada em: segunda-feira, 9 de abril de 2007 21:16 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistema Sintegra É um arquivo no formato .txt que se gera apartir de seu aplicativo, com informações de tudo que se vende e tudo que se compra de um determinado estabelecimento comercial. Existe um layout padrão para geração desses arquivos. Todo usuário de sistemas de informações que gere documentos fiscais (emissao de notas fiscais ou cupons fiscais) por computador é obrigado gerar esses arquivo. Quanto a obrigatoriedade de entrega sem prévia notificação por um fiscal varia de estado para estado. pequeno trecho de um arquivo: .. 752007020120070228435 0 ABRACADEIRA 1 * 1.1/2 * 14MM UN 000 5530001888005489943 20070211SP012 0003445101P00150 N 5400053000188800012 0003445101020001435 0001150 752007020120070228435 ABRACADEIRA 1 * 1.1/2 * 14MM UN 000 .. Consulte a CAT-32/96 no site do www.sintegra.gov.br - Original Message - From: Tiago de Assis Pimenta To: Grupo Delphi Sent: Monday, April 09, 2007 8:47 PM Subject: [delphi-br] Sistema Sintegra Galera, alguem pode me explicar o que é sintegra ? Pelo que intendi vc pega e cria um arquivo txt que vai ter que ser enviado Alguem poderia melhorar isso ?!?! Tiago de Assis Pimenta MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com SKYPE: tiagopimenta_skype GTALK: tiagopimenta [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]
RES: [delphi-br] Resultados nulos no SQL
Utilize o seguinte codigo para retonar algo no lugar de null. coalesce(campo,valor_nao_nulo) Ex.: coalesce(tabela.qtde,0) Se a qtde for null, ele retorna 0 Pelo menos para Firebird funciona, não sei qual seu BD. Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Julio F Figueiredo Enviada em: terça-feira, 6 de março de 2007 19:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Resultados nulos no SQL se vc usa um descendente de tquery vc testa com if TQuery.IsEmpty then Abçs Julio Joandreiy Cordeiro escreveu: Estou fazendo o seguinte select: select CODIGO, DESCRICAO, QUANTIDADE from LANCAMENTOS where CODIGO=1 Caso não encontre o codigo especificado ele deverá retornar nulo, para que não retorne nulo tem como retornar um texto ou valor? Por exemplo: codigo não encontrado num campo. -- Obrigado, Joandreiy Cordeiro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] Quebra String
João, deu certo cara ... valeu a todos que me ajudaram.
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: terça-feira, 27 de fevereiro de 2007 23:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Quebra String
Tiago de Assis Pimenta wrote:
[snip]
write(impressora,format('%-40s',[wraptext(qrhistserv.fieldbyname('servico').
asstring,39)]));
write(impressora,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(impressora,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname
('precoun').value)]));
write(impressora,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname
('total').value)]));
writeln(impressora);
qrhistserv.next;
end;
Só que acho que esta acontecendo o seguinte.
Como a string tem mais de 40 caracteres ele dá pau na formatação. Acho que
é
isso.
Você precisa pegar uma linha por vez. Use o StringList para ajudar:
VStringList := TStringList.Create;
try
VStringList.Text := WrapText('texto', VColunas);
VStringList.Count == total de linhas
VStringList[0] == primeira linha
VStringList[1] == segunda linha
//etc.
finally
VStringList.Free;
end;
Depois você monta o corpo do relatório, levando em conta que você
precisará abrir linhas caso o .Count seja maior do que um. Ex.:
Mensagem Qtd Unit Total
== = =
Mensagem que não cabe em uma 2 10,00 20,00
única linha
Mensagem que cabe em uma linha 150 2,00 300,00
--
João Morais
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Quebra String
João a função funcionou perfeitamente, só que esbarrei em outra duvida aqui. Ela quebra a string em quantas linhas forem necessária, só que o alinhamento da qtde , preço unitário e preço total depois fica diferente para quando não passa de 40 caracteres. Um exemplo para ilustar como ficou. DISCRIMANACAO QTDE PRECO UNITARIOPRECO TOTAL TESTANDO A FUNCAO PARA A QUEBRA DESSA STRING EM VARIAS LINHAS1 100,00100,00 Dai pensei em mandar imprimir a qtde em uma determinada coluna, independendo de qtos caracteres tem antes, tipo assim, a qtde começa na coluna 30 e termina na 35 por ex. e assim por diante eu faria com o preço unitário e total. Andei olhando tanto no help do delphi quanto em sites para ver se o format fazia isso, mas acho que não, ou se tem como fazer com ele não intendi como. Tem como fazer isso que estou pensando ? Grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Quebra String Tiago de Assis Pimenta wrote: Galera, boa tarde, estou com o seguinte problema. Preciso quebrar um string em varias linhas, as condições são as seguintes, cada linha não pode passar de 40 caracteres. Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40 caracteres, ele pula para a proxima linha e assim sucessivamente. Agora a duvida, como faço isso por exemplo, se o limite de caracter der no meio de uma palavra ? Vai fica estranho !!! Então tava pensando em pular a linha só quando achar um espaço em branco. Sera que alguem tem outra ideia para me ajudar ??? SysUtils.WrapText -- João Morais [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Quebra String
João, já tinha feito assim.
Olha o código de como tava tentando fazer.
write(impressora,format('%-40s',['DISCRIMANACAO']));
write(impressora,format('%-10s',['QTDE']));
write(impressora,format('%-18s',['PRECO UNITARIO']));
writeln(impressora,format('%-10s',['PRECO TOTAL']));
writeln(impressora,'
===');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(impressora,format('%-40s',[wraptext(qrhistserv.fieldbyname('servico').
asstring,39)]));
write(impressora,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(impressora,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname
('precoun').value)]));
write(impressora,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname
('total').value)]));
writeln(impressora);
qrhistserv.next;
end;
Só que acho que esta acontecendo o seguinte.
Como a string tem mais de 40 caracteres ele dá pau na formatação. Acho que é
isso.
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: terça-feira, 27 de fevereiro de 2007 16:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Quebra String
Tiago de Assis Pimenta wrote:
João a função funcionou perfeitamente, só que esbarrei em outra duvida
aqui.
Ela quebra a string em quantas linhas forem necessária, só que o
alinhamento
da qtde , preço unitário e preço total depois fica diferente para quando
não
passa de 40 caracteres.
Dai pensei em mandar imprimir a qtde em uma determinada coluna,
independendo
de qtos caracteres tem antes, tipo assim, a qtde começa na coluna 30 e
termina na 35 por ex. e assim por diante eu faria com o preço unitário e
total.
Andei olhando tanto no help do delphi quanto em sites para ver se o format
fazia isso, mas acho que não, ou se tem como fazer com ele não intendi
como.
Tem como fazer isso que estou pensando ?
Format('%-30s', [VarSuaString]) faz com que VarSuaString ocupe pelo
menos 30 caracteres, e alinha o texto à esquerda. Para alinhar à
direita, retire o sinal de menos.
--
João Morais
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Quebra String
Sem comentário ? qq vc quiz dizer com isso ? Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: domingo, 25 de fevereiro de 2007 10:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Quebra String Abra o delphi. WrapText(Com o cursor aqui tecla ctrl+shsift+espaço) Depois leia o q vai aparecer. Sem comentário. Eduardo Tiago de Assis Pimenta escreveu: Não intendi João, tem como me explicar o que seria esse SysUtils.WrapText Tiago de Assis Pimenta MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Joao Morais Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Quebra String Tiago de Assis Pimenta wrote: Galera, boa tarde, estou com o seguinte problema. Preciso quebrar um string em varias linhas, as condições são as seguintes, cada linha não pode passar de 40 caracteres. Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40 caracteres, ele pula para a proxima linha e assim sucessivamente. Agora a duvida, como faço isso por exemplo, se o limite de caracter der no meio de uma palavra ? Vai fica estranho !!! Então tava pensando em pular a linha só quando achar um espaço em branco. Sera que alguem tem outra ideia para me ajudar ??? SysUtils.WrapText -- João Morais [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] Quebra String
Por acaso vc esta 24 do meu lado para saber o que eu fiz ou deixei de fazer ? Acho que essa lista aqui é para ajudar todos sem nenhum tipo de cobrança. Então cara, se quer ajudar ajude, agora se quer dar lição de moral, vc ta na lista errada. Vc não tem nada a ver com a minha vida, mas vou responder para vc, eu vi sim a função no help do delphi, só que não intendi a sintaxe. Por isso eu perguntei para o JOÃO como funcionava. Agora além de vc se intrometer na minha duvida vc quer me dar lição de moral ? Se encherga amigo. Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: domingo, 25 de fevereiro de 2007 11:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Quebra String Você nem se deu ao trabalho de testar a função no delphi. Se você tivesse feito isso você não teria mandado o email. A função é simples demais para qualquer pergunta. Foi isso que eu quis dizer com o sem comentário. Eduardo Tiago de Assis Pimenta escreveu: Sem comentário ? qq vc quiz dizer com isso ? Tiago de Assis Pimenta MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Enviada em: domingo, 25 de fevereiro de 2007 10:32 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Quebra String Abra o delphi. WrapText(Com o cursor aqui tecla ctrl+shsift+espaço) Depois leia o q vai aparecer. Sem comentário. Eduardo Tiago de Assis Pimenta escreveu: Não intendi João, tem como me explicar o que seria esse SysUtils.WrapText Tiago de Assis Pimenta MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Joao Morais Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Quebra String Tiago de Assis Pimenta wrote: Galera, boa tarde, estou com o seguinte problema. Preciso quebrar um string em varias linhas, as condições são as seguintes, cada linha não pode passar de 40 caracteres. Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40 caracteres, ele pula para a proxima linha e assim sucessivamente. Agora a duvida, como faço isso por exemplo, se o limite de caracter der no meio de uma palavra ? Vai fica estranho !!! Então tava pensando em pular a linha só quando achar um espaço em branco. Sera que alguem tem outra ideia para me ajudar ??? SysUtils.WrapText -- João Morais [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
RES: [SPAM] Re: [delphi-br] Quebra String
Leandro, tem como vc colocar o codigo de como vc faz ?!??! Abraço !!! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leandro Enviada em: sexta-feira, 23 de fevereiro de 2007 17:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [SPAM] Re: [delphi-br] Quebra String Eu geralmente coloco um Memo oculto, com o tamanho certo que preciso pra quebra das linhas, jogo o texto nele, ele já faz as quebras corretamente... aí depois só leio as linhas do memo e imprimo... att, Leandro - Original Message - From: Ezequiel To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, February 23, 2007 4:41 PM Subject: [SPAM] Re: [delphi-br] Quebra String Você pode testar aonde está o último espaço (dentro desses 40 caracteres) e fazer a quebra nele. Dê uma olhada na função LastDelimiter que vai te ajudar com isso. []'s Ezequiel Tiago de Assis Pimenta escreveu: Galera, boa tarde, estou com o seguinte problema. Preciso quebrar um string em varias linhas, as condições são as seguintes, cada linha não pode passar de 40 caracteres. Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40 caracteres, ele pula para a proxima linha e assim sucessivamente. Agora a duvida, como faço isso por exemplo, se o limite de caracter der no meio de uma palavra ? Vai fica estranho !!! Então tava pensando em pular a linha só quando achar um espaço em branco. Sera que alguem tem outra ideia para me ajudar ??? Tiago de Assis Pimenta MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com Skype: tiagopimenta_skype Gtalk: tiagopimenta [As partes desta mensagem que não continham texto foram removidas] Mensagens neste tópico http://br.groups. http://br.groups.yahoo.com/group/delphi-br/message/167918;_ylc=X3oDMTM4ZTV2 OWZrBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2 NzkxOARzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzExNzIyNTU1MzIEdHBjSWQDMTY3OTE4 yahoo.com/group/delphi-br/message/167918;_ylc=X3oDMTM4ZTV2OWZrBF9TAzk3NDkwND M3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2NzkxOARzZWMDZnRyBH NsawN2dHBjBHN0aW1lAzExNzIyNTU1MzIEdHBjSWQDMTY3OTE4 (1) Responder (através da web) http://br.groups. http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyZXNqb2VkBF9TAz k3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2NzkxOARzZW MDZnRyBHNsawNycGx5BHN0aW1lAzExNzIyNTU1MzI-?act=replymessageNum=167918 yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyZXNqb2VkBF9TAzk3NDkwNDM3BGdycElk AzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2NzkxOARzZWMDZnRyBHNsawNycGx5 BHN0aW1lAzExNzIyNTU1MzI-?act=replymessageNum=167918 | Adicionar um novo tópico http://br.groups. http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlbHI0ZmhrBF9TAz k3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cG MEc3RpbWUDMTE3MjI1NTUzMg-- yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlbHI0ZmhrBF9TAzk3NDkwNDM3BGdycElk AzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTE3MjI1 NTUzMg-- Mensagens http://br.groups. http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlZnIwYXQ0BF 9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2 1zZ3MEc3RpbWUDMTE3MjI1NTUzMg-- yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlZnIwYXQ0BF9TAzk3NDkwNDM3BGdy cElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTE3 MjI1NTUzMg-- | Arquivos http://br.groups. http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmMzJkcXJnBF9TA zk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2Zpb GVzBHN0aW1lAzExNzIyNTU1MzI- yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmMzJkcXJnBF9TAzk3NDkwNDM3BGdycEl kAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzExNzI yNTU1MzI- | Fotos http://br.groups. http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlYzdjOXVvBF9T Azk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bo b3QEc3RpbWUDMTE3MjI1NTUzMg-- yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlYzdjOXVvBF9TAzk3NDkwNDM3BGdycE lkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTE3Mj I1NTUzMg-- | Links http://br.groups. http://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmMDI5aHF0BF9TA zk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpb mtzBHN0aW1lAzExNzIyNTU1MzI- yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmMDI5aHF0BF9TAzk3NDkwNDM3BGdycEl kAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzExNzI yNTU1MzI- | Banco de dados http://br.groups. http://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjNmpnMW8zBF
RES: [delphi-br] Quebra String
Não intendi João, tem como me explicar o que seria esse SysUtils.WrapText Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: sexta-feira, 23 de fevereiro de 2007 18:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Quebra String Tiago de Assis Pimenta wrote: Galera, boa tarde, estou com o seguinte problema. Preciso quebrar um string em varias linhas, as condições são as seguintes, cada linha não pode passar de 40 caracteres. Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40 caracteres, ele pula para a proxima linha e assim sucessivamente. Agora a duvida, como faço isso por exemplo, se o limite de caracter der no meio de uma palavra ? Vai fica estranho !!! Então tava pensando em pular a linha só quando achar um espaço em branco. Sera que alguem tem outra ideia para me ajudar ??? SysUtils.WrapText -- João Morais [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Quebra String
Galera, boa tarde, estou com o seguinte problema. Preciso quebrar um string em varias linhas, as condições são as seguintes, cada linha não pode passar de 40 caracteres. Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40 caracteres, ele pula para a proxima linha e assim sucessivamente. Agora a duvida, como faço isso por exemplo, se o limite de caracter der no meio de uma palavra ? Vai fica estranho !!! Então tava pensando em pular a linha só quando achar um espaço em branco. Sera que alguem tem outra ideia para me ajudar ??? Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Skype: tiagopimenta_skype Gtalk: tiagopimenta [As partes desta mensagem que não continham texto foram removidas]
RES: [SPAM] Re: [delphi-br] Quebra String
Opa, uma boa ideia, vou tentar e depois respondo aqui !!! Abraço galera Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Skype: tiagopimenta_skype Gtalk: tiagopimenta _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leandro Enviada em: sexta-feira, 23 de fevereiro de 2007 18:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [SPAM] Re: [delphi-br] Quebra String Eu geralmente coloco um Memo oculto, com o tamanho certo que preciso pra quebra das linhas, jogo o texto nele, ele já faz as quebras corretamente... aí depois só leio as linhas do memo e imprimo... att, Leandro - Original Message - From: Ezequiel To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, February 23, 2007 4:41 PM Subject: [SPAM] Re: [delphi-br] Quebra String Você pode testar aonde está o último espaço (dentro desses 40 caracteres) e fazer a quebra nele. Dê uma olhada na função LastDelimiter que vai te ajudar com isso. []'s Ezequiel Tiago de Assis Pimenta escreveu: Galera, boa tarde, estou com o seguinte problema. Preciso quebrar um string em varias linhas, as condições são as seguintes, cada linha não pode passar de 40 caracteres. Isso é para imprimir uma Ordem de Serviço, então por exemplo, chegou em 40 caracteres, ele pula para a proxima linha e assim sucessivamente. Agora a duvida, como faço isso por exemplo, se o limite de caracter der no meio de uma palavra ? Vai fica estranho !!! Então tava pensando em pular a linha só quando achar um espaço em branco. Sera que alguem tem outra ideia para me ajudar ??? Tiago de Assis Pimenta MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com mailto:tiagopimenta%40hotmail.com Skype: tiagopimenta_skype Gtalk: tiagopimenta [As partes desta mensagem que não continham texto foram removidas] Mensagens neste tópico http://br.groups. http://br.groups.yahoo.com/group/delphi-br/message/167918;_ylc=X3oDMTM4ZTV2 OWZrBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2 NzkxOARzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzExNzIyNTU1MzIEdHBjSWQDMTY3OTE4 yahoo.com/group/delphi-br/message/167918;_ylc=X3oDMTM4ZTV2OWZrBF9TAzk3NDkwND M3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2NzkxOARzZWMDZnRyBH NsawN2dHBjBHN0aW1lAzExNzIyNTU1MzIEdHBjSWQDMTY3OTE4 (1) Responder (através da web) http://br.groups. http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyZXNqb2VkBF9TAz k3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2NzkxOARzZW MDZnRyBHNsawNycGx5BHN0aW1lAzExNzIyNTU1MzI-?act=replymessageNum=167918 yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyZXNqb2VkBF9TAzk3NDkwNDM3BGdycElk AzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2NzkxOARzZWMDZnRyBHNsawNycGx5 BHN0aW1lAzExNzIyNTU1MzI-?act=replymessageNum=167918 | Adicionar um novo tópico http://br.groups. http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlbHI0ZmhrBF9TAz k3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cG MEc3RpbWUDMTE3MjI1NTUzMg-- yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlbHI0ZmhrBF9TAzk3NDkwNDM3BGdycElk AzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTE3MjI1 NTUzMg-- Mensagens http://br.groups. http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlZnIwYXQ0BF 9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2 1zZ3MEc3RpbWUDMTE3MjI1NTUzMg-- yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlZnIwYXQ0BF9TAzk3NDkwNDM3BGdy cElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTE3 MjI1NTUzMg-- | Arquivos http://br.groups. http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmMzJkcXJnBF9TA zk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2Zpb GVzBHN0aW1lAzExNzIyNTU1MzI- yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmMzJkcXJnBF9TAzk3NDkwNDM3BGdycEl kAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzExNzI yNTU1MzI- | Fotos http://br.groups. http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlYzdjOXVvBF9T Azk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bo b3QEc3RpbWUDMTE3MjI1NTUzMg-- yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlYzdjOXVvBF9TAzk3NDkwNDM3BGdycE lkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTE3Mj I1NTUzMg-- | Links http://br.groups. http://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmMDI5aHF0BF9TA zk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpb mtzBHN0aW1lAzExNzIyNTU1MzI- yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmMDI5aHF0BF9TAzk3NDkwNDM3BGdycEl kAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzExNzI yNTU1MzI- | Banco de dados http://br.groups. http://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjNmpnMW8zBF
RES: [delphi-br] [URGENTE] Formatação Im pressão Matricial
Boa Tarde Ricardo, faço tudo na mão, vou colar o código de como esta.
procedure Tfrmcadordserv.BitBtn1Click(Sender: TObject);
const
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CExpandido = #14;
SExpandido = #20;
var
a: textfile;
begin
// Imprimindo Ordem de Serviço
assignfile(a,'c:\tmp\cupom.txt');
rewrite(A);
writeln(A,'=
==');
writeln(A,' BRANCO AUTO MECANICA - ESPECIALIZADA EM INJECAO
ELETRONICA ');
writeln(A,'AV. MESSIAS GONCALVES, 1363 - (17) 3325-8055
');
writeln(A,'=
==');
write(A,CNegrito + CExpandido + format('%-29s',['ORDEM DE SERVICO N: ' +
formatfloat('0',strtoint(edit1.text))]));
writeln(A,SNegrito + SExpandido + format('%10s',['DATA:
'+frmordserv.qrordserv.fieldbyname('data').asstring]));
writeln(A);
write(A,format('%-57s',['NOME DO CLIENTE: '+
qrcli.fieldbyname('nome').value]));
writeln(A,format('%-22s',['CELULAR: '+qrcli.fieldbyname('celular').value]));
write(A,format('%-57s',['ENDERECO: '+
qrcli.fieldbyname('endereco').value]));
writeln(A,format('%-22s',['BAIRRO : '+ qrcli.fieldbyname('bairro').value]));
write(A,format('%-57s',['CIDADE: '+ qrcli.fieldbyname('cidade').value]));
writeln(A,format('%-22s',['CEP.: '+ qrcli.fieldbyname('cep').value]));
write(A,format('%-35s',['TELEFONE: '+
qrcli.fieldbyname('telefone').value]));
write(A,format('%-22s',['CPF: '+ qrcli.fieldbyname('cpf').value]));
writeln(A,format('%-22s',['RG: ' + qrcli.fieldbyname('rg').value]));
writeln(A);
write(A,format('%-57s',['MARCA: '+
frmordserv.qrordserv.fieldbyname('marca').value]));
writeln(A,format('%-22s',['MODELO: '+
frmordserv.qrordserv.fieldbyname('modelo').value]));
write(A,format('%-35s',['COR: '+
frmordserv.qrordserv.fieldbyname('cor').value]));
write(A,format('%-22s',['PLACA: '+
frmordserv.qrordserv.fieldbyname('placa').value]));
writeln(A,format('%-22s',['KM DO VEICULO: '+edit3.text]));
writeln(A);
writeln(A,format('%-20s',['FUNCIONARIO: '+
frmordserv.qrordserv.fieldbyname('funcionario').value]));
writeln(A,'=
==');
write(A,format('%-40s',['DISCRIMANACAO']));
write(A,format('%-10s',['QTDE']));
write(A,format('%-18s',['PRECO UNITARIO']));
writeln(A,format('%-10s',['PRECO TOTAL']));
writeln(A,'=
==');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(A,format('%-40s',[qrhistserv.fieldbyname('servico').value]));
write(A,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(A,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname('precoun
').value)]));
write(A,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname('total')
.value)]));
writeln(A);
qrhistserv.next;
end;
writeln(A,'=
==');
write(A,CNegrito + CExpandido + 'TOTAL R$: ');
writeln(A,format('%29.2f',[frmordserv.qrordserv.fieldbyname('total').asfloat
]));
writeln(A,SNegrito + SExpandido +
'===
');
writeln(A);
writeln(A);
writeln(A);
writeln(A);
//writeln(A,'___');
writeln(A,'ASSINATURA DO CLIENTE');
closefile(A);
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 09:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Como você faz pra imprimir? faz tudo na mão ou usa alguma rotina ou
componente? Posta aí que agente te ajuda
Bom Código
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: Grupo Delphi
Sent: Monday, February 12, 2007 11:40 PM
Subject: [delphi-br] [URGENTE] Formatação Impressão Matricial
Galera, seguinte, preciso da seguinte informação.
Tem como eu usar o write para fazer o seguinte.
Na hora que chegar num determinado numero de caracter, ele pule para a
proxima linha, mais ou menos no estilo das Celulas do Excel ???
Por ex.: Eu reservo um espaço de 50 caracteres para Descrição do Serviço na
nota, se ele passar de 50, ele pula para a proxima linha, sem atrapalhar a
coluna preço.
Na nota ficaria assim
DESCRIÇÃO | PREÇO
TESTE TESTE TESTE TESTE TESTE
TESTE TESTE TESTE TESTE TESTE R$ 40,00
OUTRO TESTE R$ 20,00
Tem como ?
Tiago de Assis Pimenta
MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta
RES: [delphi-br] [URGENTE] Formatação Im pressão Matricial
Opa ... valeu Ricardo ... to tentando achar em foruns alguma coisa assim do
tipo mas até agora não consegui achar uma solução ...
Abraço
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 18:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Ae Brother,
não esqueci de você não, só que estou ocupadaço, mas assim que eu tiver um
tempo vou dar uma olhada legal no teu código... Mas caso você descobrir
antes como fazer, posta na lista, pra agente saber!
Abraços
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Tuesday, February 13, 2007 9:56 AM
Subject: RES: [delphi-br] [URGENTE] Formatação Impressão Matricial
Boa Tarde Ricardo, faço tudo na mão, vou colar o código de como esta.
procedure Tfrmcadordserv.BitBtn1Click(Sender: TObject);
const
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CExpandido = #14;
SExpandido = #20;
var
a: textfile;
begin
// Imprimindo Ordem de Serviço
assignfile(a,'c:\tmp\cupom.txt');
rewrite(A);
writeln(A,'=
==');
writeln(A,' BRANCO AUTO MECANICA - ESPECIALIZADA EM INJECAO
ELETRONICA ');
writeln(A,' AV. MESSIAS GONCALVES, 1363 - (17) 3325-8055
');
writeln(A,'=
==');
write(A,CNegrito + CExpandido + format('%-29s',['ORDEM DE SERVICO N: ' +
formatfloat('0',strtoint(edit1.text))]));
writeln(A,SNegrito + SExpandido + format('%10s',['DATA:
'+frmordserv.qrordserv.fieldbyname('data').asstring]));
writeln(A);
write(A,format('%-57s',['NOME DO CLIENTE: '+
qrcli.fieldbyname('nome').value]));
writeln(A,format('%-22s',['CELULAR: '+qrcli.fieldbyname('celular').value]));
write(A,format('%-57s',['ENDERECO: '+
qrcli.fieldbyname('endereco').value]));
writeln(A,format('%-22s',['BAIRRO : '+ qrcli.fieldbyname('bairro').value]));
write(A,format('%-57s',['CIDADE: '+ qrcli.fieldbyname('cidade').value]));
writeln(A,format('%-22s',['CEP.: '+ qrcli.fieldbyname('cep').value]));
write(A,format('%-35s',['TELEFONE: '+
qrcli.fieldbyname('telefone').value]));
write(A,format('%-22s',['CPF: '+ qrcli.fieldbyname('cpf').value]));
writeln(A,format('%-22s',['RG: ' + qrcli.fieldbyname('rg').value]));
writeln(A);
write(A,format('%-57s',['MARCA: '+
frmordserv.qrordserv.fieldbyname('marca').value]));
writeln(A,format('%-22s',['MODELO: '+
frmordserv.qrordserv.fieldbyname('modelo').value]));
write(A,format('%-35s',['COR: '+
frmordserv.qrordserv.fieldbyname('cor').value]));
write(A,format('%-22s',['PLACA: '+
frmordserv.qrordserv.fieldbyname('placa').value]));
writeln(A,format('%-22s',['KM DO VEICULO: '+edit3.text]));
writeln(A);
writeln(A,format('%-20s',['FUNCIONARIO: '+
frmordserv.qrordserv.fieldbyname('funcionario').value]));
writeln(A,'=
==');
write(A,format('%-40s',['DISCRIMANACAO']));
write(A,format('%-10s',['QTDE']));
write(A,format('%-18s',['PRECO UNITARIO']));
writeln(A,format('%-10s',['PRECO TOTAL']));
writeln(A,'=
==');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(A,format('%-40s',[qrhistserv.fieldbyname('servico').value]));
write(A,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(A,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname('precoun
').value)]));
write(A,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname('total')
.value)]));
writeln(A);
qrhistserv.next;
end;
writeln(A,'=
==');
write(A,CNegrito + CExpandido + 'TOTAL R$: ');
writeln(A,format('%29.2f',[frmordserv.qrordserv.fieldbyname('total').asfloat
]));
writeln(A,SNegrito + SExpandido +
'===
');
writeln(A);
writeln(A);
writeln(A);
writeln(A);
//writeln(A,'___');
writeln(A,' ASSINATURA DO CLIENTE');
closefile(A);
Tiago de Assis Pimenta
MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 09:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Como você faz pra imprimir
[delphi-br] [URGENTE] Formatação Impressão Matricial
Galera, seguinte, preciso da seguinte informação. Tem como eu usar o write para fazer o seguinte. Na hora que chegar num determinado numero de caracter, ele pule para a proxima linha, mais ou menos no estilo das Celulas do Excel ??? Por ex.: Eu reservo um espaço de 50 caracteres para Descrição do Serviço na nota, se ele passar de 50, ele pula para a proxima linha, sem atrapalhar a coluna preço. Na nota ficaria assim DESCRIÇÃO |PREÇO TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE TESTE R$ 40,00 OUTRO TESTE R$ 20,00 Tem como ? Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Skype: tiagopimenta_skype Gtalk: tiagopimenta [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Impressão Matricial
Galera, to usando o write para imprimir uma O.S.
Até aqui tudo light, coloquei 2 edits, 1 para descrição do produto e outro
para o preço tava funfando mil maravilhas, só que meu cliente me avisou
que as vezes ele usa muito texto na descrição. Resumindo, ele não separa, os
produtos da m.o ... tipo coloca tudo numa linha só ...
Dai veio a duvida na hora ... como vou fazer isso ???
Atualmente estou usando write(format('-%100',edit1.text) (Se não me engano é
assim , to com preguisa de abrir o Delphi ...)
Dai to pensando sera que tem como fazer no Word .. um tipo de tabela ???
Por ex.:
TEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOT
EXTOTEXTO
TEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOT
EXTOTEXTO
TEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOTEXTOT
EXTOTEXTOVALOR
Se não consegui passar todas informações, me avisem o que faltou ...
Abraço galera !!
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Função Format
Galera, queria saber como que funciona essa função format, principalmente o
parametro format('%1s'
Por exemplo, para que serve o % , o numero ali S .. o S é de String mas e o
numero ali ? É o tamanho ???
Abraço
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Impressora LX-300+
Galera, alguem sabe como diminuir a FONTE dela ?? Estou precisando usa-la para imprimir um cupom não fiscal, e a fonte vai ser Draft, mais o tamanho estou achando que está muito grande. Alguem sabe como configurar isso nela !??! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] DBLookupComboBox
Valeu Paulo deu certo, só me explica pq do fetchall Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Sérgio de Souza Enviada em: sexta-feira, 24 de novembro de 2006 07:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] DBLookupComboBox Bom dia Tiago, Para que o DBLookupComboBox mostre mais de 1 é necessário dar um FetchAll logo após o Open de sua query. Espero ter ajudado. Sds, Paulo Sérgio Desenvolvedor Bhte./MG - Original Message - From: Tiago de Assis Pimenta To: Grupo Delphi Sent: Thursday, November 23, 2006 5:51 PM Subject: [delphi-br] DBLookupComboBox Galera, sempre tive esse duvida e nunca consegui achar uma resposta para ela . Qual prop do DBLookupComboBox que a gente altera para quando se clicar na seta ela abrir com 5 linhas por ex. No meu caso aqui ela esta abrindo só com 1 linha, e eu quero que ele mostre todos usuários do meu sistema para eu poder escolher para me logar, só que ele abre de 1 em 1 , dai fica foda. Abraço Tiago de Assis Pimenta MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com SKYPE: tiagopimenta_skype GTALK: mailto:tiagopimenta@ mailto:tiagopimenta%40gmail.com gmail.com tiagopimenta@ mailto:tiagopimenta%40gmail.com gmail.com [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.1.409 / Virus Database: 268.14.14/547 - Release Date: 22/11/2006 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: DBLookupComboBox
Walter agora esta assim:
qrusu.close;
qrusu.sql.clear;
qrusu.sql.add('select * from usuario_view');
qrusu.prepared := true;
qrusu.open;
qrusu.fetchall;
antes não tinha o fetchall
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Walter Chagas (Yahoo)
Enviada em: sexta-feira, 24 de novembro de 2006 10:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: DBLookupComboBox
Tiago,
Se você estiver usando ClientDataset, basta ajustar a propriedade
PacketRecords para 10 ou mais, e também a propriedade FetchonDemand
true. aí serão exibidos mais itens simultaneamente. Mas curiosamente,
quando eu vinculo um DBLookUp diretamente em uma query não dá este
problema. Como está a sentença SQL que você está jogando aí?
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED] mailto:wchagasj%40yahoo.com.br com.br
http://www.geocitie http://www.geocities.com/SiliconValley/Bay/1058
s.com/SiliconValley/Bay/1058
MSN: whitesockets@ mailto:whitesockets%40hotmail.com hotmail.com
--- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br, Tiago de Assis Pimenta
[EMAIL PROTECTED] escreveu
Galera, sempre tive esse duvida e nunca consegui achar uma resposta
para ela
.
Qual prop do DBLookupComboBox que a gente altera para quando se
clicar na
seta ela abrir com 5 linhas por ex.
No meu caso aqui ela esta abrindo só com 1 linha, e eu quero que
ele mostre
todos usuários do meu sistema para eu poder escolher para me logar,
só que
ele abre de 1 em 1 , dai fica foda.
Abraço
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
GTALK: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DBLookupComboBox
Galera, sempre tive esse duvida e nunca consegui achar uma resposta para ela . Qual prop do DBLookupComboBox que a gente altera para quando se clicar na seta ela abrir com 5 linhas por ex. No meu caso aqui ela esta abrindo só com 1 linha, e eu quero que ele mostre todos usuários do meu sistema para eu poder escolher para me logar, só que ele abre de 1 em 1 , dai fica foda. Abraço Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype GTALK: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Tela de Login
Enrique, não intendi a parte do = mrOK !!! tem como explicar ??? E como o seu frmlogin é ??? MDI ou Normal ?? Valeu Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Henrique Netzka (Vetor Sistemas) Enviada em: terça-feira, 7 de novembro de 2006 15:13 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Tela de Login Programe no DPR! O Delphi não prevê todas as situações (rs), algumas coisas deve-se programar na mão... Depois do Application.Initialize, você coloca: frmLogin := TfrmLogin.Create(nil); // Se você colocar Application, vai dar caca! rs try if (frmLogin.ShowModal = mrOK) then Application.CreateForm(SeuFormPrincipal, ...) else Application.Terminate; finally frmLogin.Free; Application.Run; // Esse tem que rodar de qq forma, mesmo que vá terminar.. end; Henrique - Original Message - From: Tiago de Assis Pimenta To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 07, 2006 2:48 PM Subject: [delphi-br] Tela de Login Galera, preciso fazer uma tela de login para o meu sistema ... o formulário principal é MDI e o restante são todos MDIChild. Dai vem os problemas ... quando ponho o formulário de login como Main Form ... ele não cria o formulário principal, dai tentei por para criar o frm de login para se criar no onactive do frmprincipal ele não Fecha o do login... e se por no oncreate ele aparece por baixo do frmprincipal. Alguem tem alguma dica ?!?! Ou se tiver um sistema com um frmlogin e pudesse me enviar ficaria grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype [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] __._,_.___ -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!. __,_._,___
[delphi-br] Tela de Login
Galera, preciso fazer uma tela de login para o meu sistema ... o formulário principal é MDI e o restante são todos MDIChild. Dai vem os problemas ... quando ponho o formulário de login como Main Form ... ele não cria o formulário principal, dai tentei por para criar o frm de login para se criar no onactive do frmprincipal ele não Fecha o do login... e se por no oncreate ele aparece por baixo do frmprincipal. Alguem tem alguma dica ?!?! Ou se tiver um sistema com um frmlogin e pudesse me enviar ficaria grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype [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
RES: [delphi-br] Tela de Login
Douglas .. consegui de outra maneira e fica ae para quem precisar a informação. A tela de login eu pus como MDI e puz ela para ser a ultima a ser criada ... dai ela fica na frente da frmprincipal :D Mesmo assim valeu pela ajuda douglas. Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Douglas Uesato - Depto. de Informática Enviada em: terça-feira, 7 de novembro de 2006 13:08 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Tela de Login Tiago, Altere as seguintes propriedades do form de Login: FormStyle: fsNormal BorderStyle: bsDialog Na chamada do form de Login utilize o ShowModal ao invés do Show. Atenciosamente, Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tiago de Assis Pimenta Enviada em: terça-feira, 7 de novembro de 2006 15:49 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Tela de Login Galera, preciso fazer uma tela de login para o meu sistema ... o formulário principal é MDI e o restante são todos MDIChild. Dai vem os problemas ... quando ponho o formulário de login como Main Form ... ele não cria o formulário principal, dai tentei por para criar o frm de login para se criar no onactive do frmprincipal ele não Fecha o do login... e se por no oncreate ele aparece por baixo do frmprincipal. Alguem tem alguma dica ?!?! Ou se tiver um sistema com um frmlogin e pudesse me enviar ficaria grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype [As partes desta mensagem que não continham texto foram removidas] [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
RES: [delphi-br] Lendo e Gravando Imagem no BD
Não recomendo gravar img no banco,
imagina o tamanho que vai ficar seu banco, eu já usei img sim num dos meus
sistema, mais fiz da seguinte maneira.
Eu criei uma pasta chamada c:\arquivos de programas\meu programa\img e
salvava as img aki.
No banco eu só gravei o caminho.
Ficou bom, funcional e salvei o banco :D
Abraço
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Valdir UOL
Enviada em: terça-feira, 7 de novembro de 2006 14:39
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Lendo e Gravando Imagem no BD
Olá, eu utilizo da seguinte maneira, para gravar:
procedure TFormEmpresa.Exporta1Click(Sender: TObject);
var Stream: TStream;
Stream2: TMemoryStream;
ImagemJPG: TJPEGImage;
Imagem: TBitmap;
begin
if Dmcon.cdsEmpresa.State in [dsEdit, dsInsert] then
begin
OpenPictureDialog1.InitialDir := (ExtractFilePath(Application.ExeName)
+ 'Logos');
if (OpenPictureDialog1.Execute) then
if (AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) =
'.BMP') then
begin
Stream := TFileStream.Create(OpenPictureDialog1.FileName,
fmOpenRead or fmShareDenyWrite);
Stream.Position := 0;
TGraphicField(Dmcon.cdsEmpresa.FieldByName('LOGOMARCA')).LoadFromStream(Stre
am);
Stream.Free;
end
else if (AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) =
'.JPG') then
begin
Stream2 := TMemoryStream.Create;
Stream2.Clear;
ImagemJpg := TJPEGImage.Create;
ImagemJpg.LoadFromFile(OpenPictureDialog1.FileName);
Imagem := TBitmap.Create;
Imagem.Width := ImagemJPG.Width;
Imagem.Height := ImagemJPG.Height;
Imagem.Canvas.Draw(0, 0, ImagemJPG);
Imagem.SaveToStream(Stream2);
Stream2.Position := 0;
TGraphicField(Dmcon.cdsEmpresa.FieldByName('LOGOMARCA')).LoadFromStream(Stre
am2);
Stream2.Free;
ImagemJPG.Free;
Imagem.Free;
end
else
Application.MessageBox('Esta não é uma IMAGEM VÁLIDA...', 'ATENÇÃO
!!!', MB_ICONSTOP);
end
else
begin
Application.MessageBox('Clique em EDITAR para realizar qualquer
ALTERAÇÃO...', 'ATENÇÃO !!!', MB_ICONSTOP);
end;
end;
E para Excluir
procedure TFormEmpresa.Excluir1Click(Sender: TObject);
begin
inherited;
dbimage1.Picture:= nil;
end;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de carolinetcc
Enviada em: terça-feira, 7 de novembro de 2006 13:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Lendo e Gravando Imagem no BD
Olá pessoal!
Preciso muito da ajuda de vocês!
É o seguinte... eu uso um Banco de Dados(Firebird) integrado ao
Delphi, e nesse BD eu tenho uma tabela chamada EVENTOS, onde um dos
campos desta tabela chama-se LOGO_EVENTO que eu preciso armazenar o
logo/imagem do evento.
Eu já estou lendo a imagem e mostrando ela num componente Image, mas
eu quero GRAVAR essa imagem no meu banco de dados...
Espero que alguém possa me ajudar.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
[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
RES: [delphi-br] Tela de Login
Como fica a tela de splash Eric ?!?!?! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eric D. Enviada em: terça-feira, 7 de novembro de 2006 16:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Tela de Login Isso vc pode resolver direto editando o seu .dpr. Ex.: Digamos que tenho 2 forms: frmPrincipal e frmLogin. Digamos que meu frmLogin tenha uma propriedade (que eu criei e eu vou definir dentro de uma função de verificação de usuário neste form) que indique se conseguiu ou não logar no sistema (Boolean). Então ficaria: Application.Initialize; try frmLogin := TfrmLogin.Create(nil); with frmLogin do begin ShowModal; if Logado then // se não for definido a propriedade logado no form de login, nem entra no sistema, sai direto =) Application.CreateForm(TfrmPrincipal, frmPrincipal); end; Application.Run; finally FreeAndNil(frmLogin); end; Eu sempre faço isso, fora o splash que vai antes de tudo isso (saindo o Application.Initialize) e a atualização do mesmo =)) Ps.: Pra usar FreeAndNil, não esqueça de declarar SysUtils no uses dentro do .DPR =) Espero ter ajudado []'s Eric D. - Desenvolvimento e Soluções de Tecnologia [EMAIL PROTECTED] Talk is cheap, show me the code... - Original Message - From: Tiago de Assis Pimenta To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 07, 2006 2:48 PM Subject: [delphi-br] Tela de Login Galera, preciso fazer uma tela de login para o meu sistema ... o formulário principal é MDI e o restante são todos MDIChild. Dai vem os problemas ... quando ponho o formulário de login como Main Form ... ele não cria o formulário principal, dai tentei por para criar o frm de login para se criar no onactive do frmprincipal ele não Fecha o do login... e se por no oncreate ele aparece por baixo do frmprincipal. Alguem tem alguma dica ?!?! Ou se tiver um sistema com um frmlogin e pudesse me enviar ficaria grato Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype [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] -- 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] Re: criando senhas em executaveis
Christian ... mais e qdo se formata o HD ??? O numero troca não troca !??! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Christian Balz Enviada em: sexta-feira, 3 de novembro de 2006 10:00 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: criando senhas em executaveis Anderson, Porque não pega o serial físico do HD. Este serial é único e livre de clonagens. Att, Christian Balz _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: sexta-feira, 3 de novembro de 2006 11:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: criando senhas em executaveis Walter, o q eu disse foi mais ou menos isso... rsrsrs só que seria mais completo, pois poderia pegar outras informações da máquina, e não somente data/hora de diretórios (pois se for clonado o hd, volta na mesma história). O que recomendo é q pegar mais informações relativas à máquina... pode até existir alguma brecha, mas vai ser bem mais difícil... ps: vc viu meu recado no orkut? Anderson Silva - Original Message - From: Walter Chagas (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Friday, November 03, 2006 10:15 AM Subject: [delphi-br] Re: criando senhas em executaveis Anderson, Você pode usar o numero do volume do HD COMO UM DOS PARAMETROS, mas não trasnformá-lo na chave base do gerador de seu serial. Quando eu trabalhava na CABTEC, a gente usava um macete que consistia de um conjunto de informações para gerar uma chave serial: - Volume do HD da maquina - Data e hora de criação do diretório do programa - Versão do programa Pega-se estas três informações junta tudo e tem-se um número. Aí pegavamos este numero e atribuiamos a uma variavel, lido de trás pra frente. Feito isto, faz um determinado calculo embaralhando os números e aplicando uma base nele (podia ser base 5 ou base 6, depende) e em seguida tem-se uma chave que o cliente passava pra nós e com esta chave geravamos o serial do programa. O registro só era liberado mediante conbinação do serial com a chave passada. O programa lá na ponta fazia a decodificação. Uma vez um funcionario em um cliente veio tirar uma onda com a gente, disse que no Astalavista conseguiria um serial praquele programa porque aquilo era serial manjado. Eu desafiei ele a conseguir. Aí ele vei com um papo de que um amigo dele éra hacker, que tinha a manha de criar keygen, e seiláoque, enfim, falou um monte de borracha... Eu sei que a coisa lá era bem feita, gastamos mais ou menos um ano pra elaborar um algorítmo porreta! :) []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, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu Esse procedimento tem suas limitações... um HD clonado gera o mesmo nº serial, portanto, mais fácil de ser pirateado. Existem vários editores de dados, onde vc pode inclusive modificar o volume da sua unidade, manualmente. Uma solução boa é vc mesclar vários dados da máquina (inclusive o volume). Existe um componente na paleta JEDI que fornece as mínimas informações da máquina. Anderson Silva Sisponto Sistemas Inteligentes - Original Message - From: Marcos P. M. de Souza To: delphi-br@yahoogrupos.com.br Sent: Thursday, November 02, 2006 7:29 AM Subject: RES: [delphi-br] criando senhas em executaveis existem varias maneiras de se fazer um sistema gerar uma senha. Eu utilizo o número do volume como base para gerar os meus numeros de registro. Esse numero é dado pelo Windows qdo o volume é formatado. Cada formatação...muda o numero do volume. Cada Unidade tem seu numero. Na verdade ele nao possue somente numeros mas letras tb. Vc pode pegar esse número atraves do comando GetVolumeInformation e seus parametros e fazer uma conta ...bem elaborada... para gerar uma senha baseada nesse número. Se o valor digitado nao for igual a essa senha q o sistema espera entao ...limitar as funcionalidadesse acertar...gravar e deixar todas as funcionalidades.. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de Virgilho Henrique Enviada em: quarta-feira, 1 de novembro de 2006 14:47 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] criando senhas em executaveis caros amigos... alguém poderia me dar um exemplo de como configurar senhas para serem utilizadas em executaveis??? por exemplo: qnd eu inicializar o executavel ele solicitar uma senha para
RES: [delphi-br] Re: criando senhas em executaveis
Opa ... valeu Walter !!! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Chagas (Yahoo) Enviada em: sexta-feira, 3 de novembro de 2006 11:51 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: criando senhas em executaveis O serial físico não troca. Este serial está embutido na controladora. O que troca é o numero serial do Volume do HD. Aliás, tem um artigo meu no Delphi3000 mostrando como pegar este número serial. Você tem que estar com o S.M.A.R.T habilitado no Setup da maquina e ele só funciona pra HD padrão IDE. Serial ATA não funciona. http://www.delphi3000.com/articles/article_4207.asp []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, Tiago de Assis Pimenta [EMAIL PROTECTED] escreveu Christian ... mais e qdo se formata o HD ??? O numero troca não troca !??! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de Christian Balz Enviada em: sexta-feira, 3 de novembro de 2006 10:00 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: criando senhas em executaveis Anderson, Porque não pega o serial físico do HD. Este serial é único e livre de clonagens. Att, Christian Balz _ De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: sexta-feira, 3 de novembro de 2006 11:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: criando senhas em executaveis Walter, o q eu disse foi mais ou menos isso... rsrsrs só que seria mais completo, pois poderia pegar outras informações da máquina, e não somente data/hora de diretórios (pois se for clonado o hd, volta na mesma história). O que recomendo é q pegar mais informações relativas à máquina... pode até existir alguma brecha, mas vai ser bem mais difícil... ps: vc viu meu recado no orkut? Anderson Silva - Original Message - From: Walter Chagas (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Friday, November 03, 2006 10:15 AM Subject: [delphi-br] Re: criando senhas em executaveis Anderson, Você pode usar o numero do volume do HD COMO UM DOS PARAMETROS, mas não trasnformá-lo na chave base do gerador de seu serial. Quando eu trabalhava na CABTEC, a gente usava um macete que consistia de um conjunto de informações para gerar uma chave serial: - Volume do HD da maquina - Data e hora de criação do diretório do programa - Versão do programa Pega-se estas três informações junta tudo e tem-se um número. Aí pegavamos este numero e atribuiamos a uma variavel, lido de trás pra frente. Feito isto, faz um determinado calculo embaralhando os números e aplicando uma base nele (podia ser base 5 ou base 6, depende) e em seguida tem-se uma chave que o cliente passava pra nós e com esta chave geravamos o serial do programa. O registro só era liberado mediante conbinação do serial com a chave passada. O programa lá na ponta fazia a decodificação. Uma vez um funcionario em um cliente veio tirar uma onda com a gente, disse que no Astalavista conseguiria um serial praquele programa porque aquilo era serial manjado. Eu desafiei ele a conseguir. Aí ele vei com um papo de que um amigo dele éra hacker, que tinha a manha de criar keygen, e seiláoque, enfim, falou um monte de borracha... Eu sei que a coisa lá era bem feita, gastamos mais ou menos um ano pra elaborar um algorítmo porreta! :) []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, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu Esse procedimento tem suas limitações... um HD clonado gera o mesmo nº serial, portanto, mais fácil de ser pirateado. Existem vários editores de dados, onde vc pode inclusive modificar o volume da sua unidade, manualmente. Uma solução boa é vc mesclar vários dados da máquina (inclusive o volume). Existe um componente na paleta JEDI que fornece as mínimas informações da máquina. Anderson Silva Sisponto Sistemas Inteligentes - Original Message - From: Marcos P. M. de Souza To: delphi-br@yahoogrupos.com.br Sent: Thursday, November 02, 2006 7:29 AM Subject: RES: [delphi-br] criando senhas em executaveis existem varias maneiras de se fazer um sistema gerar uma senha
RES: [delphi-br] Como identificar o numero do dia da semana
Tavares, Procura no superdownload o arquivo 850 dicas (dtdelphi27) nele tem isso que vc precisa Abraço Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tavares1 Enviada em: quarta-feira, 25 de outubro de 2006 08:23 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Como identificar o numero do dia da semana Prioridade: Alta Bom dia! Estou precisando descobrir o numero do dia da semana na qual uma determinada data irá ocorrer. Ex.: O dia 25/12/2006 ira ocorrer na quarta (4a.) segunda-feira do mes de dezembro. Alguem conhece uma rotina que permita processar esta informacao? Obrigado Tavares [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
RES: [delphi-br] Stored Procedure
eu uso nessa sequencia
parambyname
prepare
execproc
nunca vi esse unprepare
Tente na sequencia que eu postei
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
SKYPE: tiagopimenta_skype
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de stainle2003
Enviada em: quarta-feira, 25 de outubro de 2006 11:14
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Stored Procedure
criei a SP abaixo no SQLSERVER 2000;
porém quando tento executar :
Dados.StoredProc1.Prepare;
Dados.StoredProc1.ParamByName('@pmes').AsInteger := StrToInt
(Edit1.Text);
Dados.StoredProc1.ParamByName('@pano').AsInteger := StrToInt
(Edit2.Text);
Dados.StoredProc1.ExecProc;
Dados.StoredProc1.UnPrepare;
ocorre o seguinte erro :
General SQL Error.
Could not find stored procedure 'dbo.sp_Vendalin;1'.
ONDE ESTOU ERRANDO ?
grato
Stainle
CREATE PROCEDURE sp_Vendalin (@pmes integer, @pano integer)
as
select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano,
sum(mat.ttotal) as Matriz,
(select sum(f03.ttotal) from esif03 f03
where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3))
and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano)
and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia,
(select sum(f04.ttotal) from esif04 f04
where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3))
and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano)
and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa,
(select sum(f05.ttotal) from esif05 f05
where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3))
and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano)
and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo,
(select sum(f06.ttotal) from esif06 f06
where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3))
and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano)
and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba,
(select sum(f07.ttotal) from esif07 f07
where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3))
and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano)
and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata
from esimat mat
where (mat.tiimes = @pmes) and (mat.tiano = @pano) and (mat.tiopera =
2) and (mat.tihisto = 'S')
group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3)
order by linha
GO
[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] Duvida com pagamento parcelado
Galera, vou tentar resumir o meu problema, preciso inserir numa tabela alguns dados, só que é o seguinte, se for 1 pagamento um registro com os dados, se for em 2 vezes são todos os registros só mudando o campo Parcela que colocaria o numero 2. Tava pensando em usar um for para fazer isso, senão vou ter que fazer 05 if para os 5 pagamentos. Tipo if maskedit1.text '' then insert bla bla bla if maskedit2.text '' then insert bla bla bla parc = 2 Alguem sabe de uma outra maneira ... sei la quero o meu codigo o mais profissional possivel ... Valeu galera Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype [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] Duvida com pagamento parcelado
Galera, vou tentar resumir o meu problema, preciso inserir numa tabela alguns dados, só que é o seguinte, se for 1 pagamento um registro com os dados, se for em 2 vezes são todos os registros só mudando o campo Parcela que colocaria o numero 2. Tava pensando em usar um for para fazer isso, senão vou ter que fazer 01 if para os 5 pagamentos. Tipo if maskedit1.text '' then insert bla bla bla if maskedit2.text '' then insert bla bla bla parc = 2 Alguem sabe de uma outra maneira ... sei la quero o meu codigo o mais profissional possivel ... Valeu galera Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype [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
RES: [delphi-br] Re: Para Leandro
Se eu não me engano no 850 Dicas tem algo de arrastar .. só não lembro se é BMP... Da uma procurada por esse help .. ve se ti ajuda... PS.: To contigo quanto ao que vc falou ... não sabe a resposta melhor nem responder !! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de maniacapordelphi Enviada em: domingo, 22 de outubro de 2006 16:44 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Para Leandro Desculpe Leandro, mas se vc não pode responder a minha dúvida então fique na sua. Dispenso seu comentário inútil. Sei q esse é um grupo sério e que ninguém entrou nele por acaso. E, por necessidade, eu entrei nesse grupo para troca de informações sobre Delphi. Se estivesse em busca de piadas e risinhos buscaria por Humor ou Idiotices. T+ Mani --- Em delphi-br@yahoogrupos.com.br, Leandro [EMAIL PROTECTED] escreveu Maniaca por Delphi? rsrsrsrs t+ - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Saturday, October 21, 2006 9:30 AM Subject: [delphi-br] Arrastar bmp e soltar em um local determinado Como faço para clicar em um bmp e arrastá-lo até um local determinado em tempo de execução? T+ Mani [As partes desta mensagem que não continham texto foram removidas] [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
RES: [delphi-br] teste de email
teste Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de NetSoft Enviada em: sábado, 21 de outubro de 2006 15:24 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] teste de email Galera, parei de receber as mensagens da lista estou fazendo um teste [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
RES: [delphi-br] Acessar uma base de dados ip Rotiavel
Já tentou usar o www.no-ip.com ??? Ele é um programa que pega o ip da maquina que vc quer. E para acessar é soh digitar o nome que vc escolheu na hora de se cadastrar la no no-ip.com Não posso mais ti ajudar pq não mecho com o no-ip faz tempo, mais acho que ti ajudaria. Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luis Enviada em: sexta-feira, 20 de outubro de 2006 11:22 Para: delphi-Br Assunto: [delphi-br] Acessar uma base de dados ip Rotiavel Bom Dia, Galera é o seguinte, como faço para acessar uma base de dados, que tem um modem rotiavel, sendo que o IP da minha maquina é 10.1.1.7 e o Ip internet 200.10.1.90 , como faço para acessar remotamente essa base firebird, por modem rotiavel? ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com [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
RES: [delphi-br] Acessar uma base de dados ip Rotiavel
Exato =] tem ke liberar a porta também !!! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: sexta-feira, 20 de outubro de 2006 11:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Acessar uma base de dados ip Rotiavel O no-ip ajuda mesmo, porque ele cria um DNS pro seu IP, mas se nao fizer um redirecionamento do Modem nao vai adiantar nada. Em 20/10/06, Tiago de Assis Pimenta [EMAIL PROTECTED] escreveu: Já tentou usar o www.no-ip.com ??? Ele é um programa que pega o ip da maquina que vc quer. E para acessar é soh digitar o nome que vc escolheu na hora de se cadastrar la no no-ip.com Não posso mais ti ajudar pq não mecho com o no-ip faz tempo, mais acho que ti ajudaria. Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luis Enviada em: sexta-feira, 20 de outubro de 2006 11:22 Para: delphi-Br Assunto: [delphi-br] Acessar uma base de dados ip Rotiavel Bom Dia, Galera é o seguinte, como faço para acessar uma base de dados, que tem um modem rotiavel, sendo que o IP da minha maquina é 10.1.1.7 e o Ip internet 200.10.1.90 , como faço para acessar remotamente essa base firebird, por modem rotiavel? ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- 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] [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] Tela Splash
Galera seguinte ... tenho 1 formulário principal MDIForm e os outros MDIChild ... e estou tendo problemas para fazer uma tela de splash justamente por usar MDI... Alguem já fez um sistema assim e sabe de algum macete para isso ??? Valeu galera ! Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype [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
RES: [delphi-br] Off-Topic URGENTE
O Easy CD Creator tem como , o nero acho que tem ... vc coloca la o(s) arquivo(s) e ele ti fala que vai usar 2 cd's ... Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Nilton Oliveira Enviada em: segunda-feira, 16 de outubro de 2006 12:34 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Off-Topic URGENTE Pessoal, Desculpem o off-topic, é que já revirei a internet e não consegui, talves também por não usar a pergunta correta. Preciso urgente saber qual software para que eu possa copiar um game de 950 MB para dois CDs. Não quero gravar em DVD, mas sim construir em dois CDs ( CD1 e CD2). Os 950 MB contem os seguintes arquivos com extensões: varios .zip; setup.exe; o pacote do windows installer. Desde já agradeço pela ajuda - Nilton [EMAIL PROTECTED] [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
