Arlon

A quebra de página é automática, se todos os campos não couberem numa única página o QuickRep já jera a segunda. Agora, quanto ao Rave funcionar em D6 eu não sei lhe informar não.

Se você deseja imprimir apenas um registro recomendo que use um QrLabel, pois o QrDBText "puxa" todos os registros da tablela. Aí no evento BeforePrint da banda Detail onde estão os QrLabels referentes a cada campo da sua tabela (se você tiver 5 campos, necessitará de 5 QrLabels, assim como precisaria se usasse QrDBTexts) é só usar esse código: QrLabel1.Caption := Tabela.Campo1; QrLabel2.Caption := Tabela.Campo2; //e assim por diante, lembrando de fazer as conversões (IntToStr), caso tenha algum campo numérico, já que a propriedade "Caption" é do tipo String.

Olhem que coisa estranha e no mínimo curiosa: eu não podia perder tempo com esse projeto, então fiz outra tela Principal e o erro parou. Depois disso eu comecei a fazer um outro trabalho aqui com a resolução do meu monitor em 1024x768 e depois mudei pra 800x600 e deu o mesmo erro que tá aí na imagem do post acima, aí depois quando mudei pra 1024x768 de novo o problema foi sanado. Agora a pergunta: o que que tem a ver a resolução antiga com a nova, faz algum sentido isso??

Eu tb tava precisando de uma parada dessa, ia até perguntar tb... dá certo mesmo, valeu.

Eu tirei a tela de skin, depois eu vejo esse problema. Mas agora o problema é o seguinte: toda vez que eu rodo o programa pelo Delphi e chamo o Formulário Principal dá erro, quando eu chamo qualquer outro formulário (ou seja, no botão "Entrar" do Form de Acesso eu substituo "FrmPrincipal.ShowModal" por "FrmCadastro.ShowModal") o problema não acontece, por esse motivo acho que o problema é no formulário Principal. Só que quando eu rodo o programa fora do Delphi não dá erro nenhum, o porquê disso eu não sei. Eu criei outro formulário Principal e agora (pelo menos por enquanto) tá rodando legal), mas eu queria saber o motivo desse erro. Quando rodo o projeto pelo Delphi e chamo o Form Principal o erro que aparece é a imagem que tá no link abaixo (a imagem é pekena, não demora nada pra carregar!!): Erro

Pqp, apontaram um dedo podre pro meu programa. Hehauheuehaeu... vô dar uma olhada nele mais tarde, qualquer coisa eu arranco, decepo, extirpo, esse raio de SplashForm. Desde aquele dia que você me passou como o fazer tava dando certo, mas ontem começou a dar errado.

Esse tópico tá quebrando o record mundial de posts por minuto num fórum. Mas é melhor eu parar por aqui antes que uma alma impura (hum, macabro...) diga que eu estou floodando a situação aqui. Até.

Mas como eu vou colocar esses eventos no click de um botão se o FrmAcesso é um formulário de autenticação com login e senha. Estranho é que essa tela já tava pronta há uns dez dias, e eu usando o programa todo dia, só ontem que começou a dar essas maluquices aí. Me responde umas coisas: a chamada e a criação do FormSplash antes de todos os outros tá certa? O "Application.Run" tem necessariamente que ficar na Unit que leva o nome do projeto, ou poderia entrar no OnClick do botão OK do FrmAcesso? Existe algum problema em dar um ".ShowModal;" antes do "Application.Run" como eu estava fazendo?

Bem, tudo não passou de um mal-entendido né, o Lucian0 brincou com uma idéia de greve, mas que depois acabou confundindo a cabeça de todo mundo, principalmente a do Binho. Mas acho que já foi resolvido, estamos, agora, apenas esperando a sua volta.

Acho que o problema é o seguinte: Esse código dá erro: . . . {$R *.res} begin FormSplash := TFormSplash.Create(Application); FormSplash.Show; FormSplash.Update; Application.Initialize; Application.CreateForm(TFrmPrincipal, FrmPrincipal); Application.CreateForm(TFrmAcesso, FrmAcesso); Application.CreateForm(TDM, DM); //Application.CreateForm(TFormSplash, FormSplash); Application.CreateForm(TFrmImprimirPecas, FrmImprimirPecas); FrmAcesso.ShowModal; //Application.Run; end. Botão OK do formulário de Acesso (login e senha): dá erro tanto colocando: FrmPrincipal.ShowModal; quanto: Application.Run; já esse código não dá erro: {$R *.res} begin FormSplash := TFormSplash.Create(Application); FormSplash.Show; FormSplash.Update; Application.Initialize; Application.CreateForm(TFrmPrincipal, FrmPrincipal); Application.CreateForm(TFrmAcesso, FrmAcesso); Application.CreateForm(TDM, DM); //Application.CreateForm(TFormSplash, FormSplash); Application.CreateForm(TFrmImprimirPecas, FrmImprimirPecas); //FrmAcesso.ShowModal; <-- não achamo o form de login e senha Application.Run; end. OnShow do form Principal: FormSplash.Close; mas aí o problema é que não aparece a tela de login. Acho que na hora de abrir form, fechar form e chamar os forms de login e splash na Unit do projeto é que eu estou me enrolando. Mas caso não consiga solucionar vou tirar o SplashForm.

O problema agora acontece algumas vezes quando fecho o programa. Às vezes acontece, outras não, mas na maioria das vezes acontece. Primeiro surge uma tela do Windows assim: O Projeto.exe encontrou um problema e precisa ser fechado. Depois: Application Error Exception EAccess Violation Projeto.exe at 000DC629. Access violation at address 004DC629 in module 'Projeto.exe'. Read of address 00B0930E Runtime error 216 at 0043EB09 E depois vem isso aqui: Project Projeto.exe raised exception class EAccessViolation with message 'Access violation at address 004DC629 in module 'Projeto.exe. read of address 00B144A6'. Process stopped. Use Step or Run to continue. O que fazer??

Depois que eu o deletei foi criado um outro arquivo "EditarItem.ddp", não sei se foi na hora que eu rodei o programa, sei lá... bem, o que importa é que agora tá funcionando belezinha. Obrigado mais uma vez. Fecha aí...

Bem, parece que deu certo, valeu s3c. Mas por que raios de motivo o problema foi com esse arquivo? Corrompeu-se sozinho? Sabe qual o motivo disso?

Vou deletá-lo então. Duas coisas que não entendi: esse erro indica que há algo corrompido, certo? Nesse caso (ou em qualquer caso desse tipo) o problema é com o arquivo .ddp? E qual a diferença entre os arquivos .ddp e .~ddp? Ouvi dizer certa vez que os .~*.* são arquivos de backup, é verdade?

Mas se eu deletar o .ddp não vai danificar nada no projeto não??

Resolvido galera, era uma parada boba, boba. A solução era usar QrLabel ao invés de QrDBText como o Program-Amador falou. Depois criar um campo na tabela com o nome de "Imprimir", por exemplo e atribuir os valores "Sim" (caso queira imprimir) ou "não" (caso não queira, lembre-se de colocar sem til, pois o SQL não faz pesqisas em strings acentuadas), e depois disso colocar um código mais ou menos assim: if DM.QrRelatItens.FieldByName('Imprimir').AsString = 'não' Then begin QRLabel8.Caption := ''; QRLabel9.Caption := ''; QRLabel10.Caption := ''; QRLabel11.Caption := ''; end; if DM.QrRelatItens.FieldByName('Imprimir').AsString = 'Sim' Then begin QRLabel8.Caption := DM.QrRelatItens.FieldByName('LOTE').AsString; QRLabel9.Caption := DM.QrRelatItens.FieldByName('ITEM').AsString; QRLabel10.Caption := DM.QrRelatItens.FieldByName('DESCRICAO').AsString; QRLabel11.Caption := DM.QrRelatItens.FieldByName('preço').AsString; end; Obrigado Program-Profissional!! Huheuhaeueahuehahaue

Até dá pra fazer desta forma, mas eis que me surge mais um problema: o máximo de lihas que eu posso imprimir por folha são 22, ficando mais ou menos assim: QrLabel1 ------ QrLabel2 ------- QrLabel3 ------- QrLabel4 QrLabel5 ------ QrLabel6 ------- QrLabel7 ------- QrLabel8 QrLabel9 ------ QrLabel10 ------ QrLabel11 ------ QrLabel12 . . . QrLabelxx ------ QrLabelxx ------- QrLabelxx ------- QrLabelxx <--- LINHA 22 O problema é o seguinte: quando passar pra segunda folha os textos dos QrLabels serão sobrepostos. Acho que não existe nenhuma forma de se fazer isso que eu quero.

Quando eu tento abrir um determinado formulário do projeto dá o seguinte erro: "Corrupt portfolio stream", e o formulário não é aberto. Só acontece com esse formulário, todos os outros abrem normalmente.

Aí, muito informativa essa palestra que o Capablanca pos um link no seu último post. Tá certo que o cara que dá a palestra trabalha na Sun, então obviamente ele vai defender o Java em relação ao .NET, mas vale a pena conferir, ela tem áudio e slides em flash mas não demora pra carregar nem em conexão discada.

Deixa ver se entendi... Terei que usar QrLabel ao invés de QrDBText (o certo é QrDBText e não QrDBEdit como você disse), assim colocarei na posição exata pra impressão, já que não sei a partir de que item vou ter que imprimir de novo. Bem, se for isso, acho que dá pra fazer, valeu pela ajuda. Devo tentar amanhã, aí volto pra dizer no que deu. e no caso não seria if QueryItens.FieldByName('Impresso').AsString = 'S' Then Value := '' else Value := QueryItens.FieldByName('codigo').AsString; e sim if QueryItens.FieldByName('Impresso').AsString = 'S' Then Caption := '' else Caption := QueryItens.FieldByName('codigo').AsString; Bem, a idéia pode ser maluca, mas parece que funciona. Que seria de nós programadores se não tivessemos idéias malucas não é mesmo.

Acredito que não há como fazer o que vou perguntar, mas não custa nada, olhem que parada sinistra: Eu imprimo um relatório da tabela ITENS, vamos supor que eu tenha 10 itens para imprimir. Até aí tudo bem, eu consigo imprimir. O problema começa agora, caso o cliente volte e inclua mais 5 itens eu terei que imprimir agora esses 5 itens, sendo que eu não posso imprimir os outros 10 já impressos anteriormente. Esses 5 novos itens deverão ser impressos na mesma folha onde foram impressos os 10 primeiros. Os problemas são os seguintes: existe alguma forma de marcar na Query que estão esses itens, apenas os 5 itens qua ainda não foram impressos (ou seja, fazer uma espécie de CheckBox na Query, quer dizer na verdade no DBgrid e imprimir os registros que estiveram "Checkados"?) Outro problema: como informar a posição no relatório onde esses registros serão impressos, já que não serão impressos no início do relatório e sim no final dos 10 itens já impressos? Sinistro né!? Mas fui claro??

Esse lance de informática, é uma parada muito, muito, muito loka demais (muito demais mesmo!!). estou eu aqui fazendo um sisteminha dakeles que todo mundo conhece - cadastro, consulta e relatório - só que com certos toques especiais: com um visual que modéstia a parte ficou 10, tem opção de troca de skin, cara de XP em qualquer versão do windows, funciona em rede, faz café e o c****** a quatro; e estou pensando: "agora eu posso me considerar um programador". P... nenhuma, eu ainda não sou nada. nada, nada, nada, nada, estou vendo que eu não sei nada (não estou me humilhando, apenas expondo meu ponto de vista sobre mim mesmo, e acho que muitas pessoas que estão lendo esse tópico estão fazendo a mesma coisa sobre si... não é mesmo!!??). Na boa, preciso me matricular em uma faculdade e fazer cursos que nem um louco, esse tópico mudou minha vida!! E voltando a falar de algo que já tinha falado no meu último post: é difícil de se achar um texto que fale sobre Java ou qualquer outro "assunto" de informática pra pessoas que querem se informar. Capablanca, valeu mesmo por esse seu esclarecimento, estou escrevendo isso aqui e ouvindo essa palestra que você passou o link. Até 5 minutos atrás eu não sabia nada sobre Java, mas agora já sei o que seja talvez o grande "BUM" desa linguagem, que é a capacidade de se meter e rodar na cara de pau mesmo, sem tomar conhecimento do SO nem do Hardware e tudo mais. Não sei quanto a vocês, mas eu não conheço nenhum programador Delphi pessoalmente (além de mim mesmo, é claro), trabalho numa empresa que sou eu trabalhando com Delphi, o dono trabalhando com manutenção e mais uma outra pessoa trabalhando com sites (html, DW, essas paradas...) e a única forma de procurar saber das coisas é pesquisando e recorrendo a ferramentas de troca de idéias, como é esse fórum. Então peço encarecidamente às pessoas que tiverem aí artigos falando sobre alguma coisa pra quem quer aprender ou está afim de se informar sobre essa coisa ao invés de artigos que falem apenas pra quem já conhece as ferramentas, falou. -----editado------- Mais uma coisa: até onde vai o Delphi.Net que o Delphi não alcança? Quais as principais aplicações do Delphi .Net? Pergunta idiota do dia: em Delphi.Net eu faço minhas aplicações rodarem em servidores on line, ou seja, um cara lá no Alasca (através de uma aplicação Delphi.Net) insere dados no banco que tá num servidor aqui na longínqua São Gonçalo?

Bem, muita gente aí falou sobre Java, C#, C++, Plataforma .Net e tudo mais. Mas pra ser sincero com vocês a única coisa que eu faço é programar em Delphi, por isso não gosto de dizer que Delphi é melhor que VB, que Delphi é isso e VB é akilo... enfim, não gosto de discutir sobre uma coisa que não entendo. Já ouvi falar muito em Java, dizem que a linguagem do futuro, que é a que paga-se melhor por um programador e tal. Já ouvi falar em C, C++, C# (é "C Sharp" que se fala??), mas não sei nem a diferença entre essas três últimas. Agora eu fiquei curioso com o tal do Java e pensei em abrir um tópico lá no fórum deles pra perguntar, que raios de vantagem essa linguagem leva sobre as outras, mas acho melhor fazer essa pergunta aqui, já que "falamos a mesma língua". e a respeito de C, C++, C#, qual a diferença entre eles e porquê Java é uma espécie de bam-bam-bam na programação, alguém saberia me explicar... e sobre .Net?? Acho que esse tópico vai esclarecer muita gente. Eu procuei por .Net por aí, mas a maioria dos textos fala de .Net pra quem já entende .Net, assim como os textos sobre Java e os "Cs". - Java - C, C++, C# - .Net --------editado aqui por mim mesmo-------- Ah, e outra coisa que eu vi agora: no fórum de VB já tem uns 8 tópicos Delphi x VB

Valeu, agora consegui.

Eu tenho que fazer uma pesquisa por nomes no programa e percebi que o SQL não realiza a busca se esse nome estver acentuado. Procurei na net e achei uma função que retira acentos de uma string. Mas aí deparei-me com um gravíssimo problema: como usar utilizar uma função?? Hauhaauhauahua, eu não sei!! A função está abaixo. Eu já fiz aquele esquema de Ctrl+Shift+C e coloquei o código lá certinho, mas como eu faço para "executar" a função?? function TFrmUsuario.RemoveAcentos(Str: String): String; Const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ'; SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU'; Var x : Integer; Begin For x := 1 to Length(Str) do Begin if Pos(Str[x],ComAcento)<>0 Then begin Str[x] := SemAcento[Pos(Str[x],ComAcento)]; end; end; Result := Str; end;