Jhonas

então tente if queryapagar.FieldByName('n_recibo').AsInteger > 0 then begin MessageBox(Application.Handle, 'Já Existe um Recibo para este Valor. Não o pode Alterar!'+#13+'Para sair faça Esc', 'Gestão ATL', MB_ICONINFORMATION + MB_OK); queryapagar.Cancel; exit; end else . . . ou ainda voce pode deixar o DBEdit somente como leitura nesta condição abraço

Veja nestes endereços http://paulocassiano.wordpress.com/2008/08...-sqlite-ubuntu/ http://artz-net.de/popfile/ http://blog.interlinked.org/tutorials/ruby...e_lighttpd.html http://superdownloads.uol.com.br/download/154/sqlite-linux/ http://translate.google.com.br/translate_s...k&resnum=11 abraço

Pode ser bug de versão ou limitação ... experimente baixar da net o Crystal Report 8.5 para o VB6 http://www.vb6.us/tutorials/using-crystal-...ts-vb6-tutorial listando os links dos Service Packs disponveis para: Visual Basic 6.0 . Crystal Report 85 . Crystal Report .NET IMPORTANTE: . Quem utiliza o SuperInstall, no esquea de atualizar os arquivos na pasta CR85 com as novas verses. Alguns arquivos foram atualizados. VISUAL BASIC 6.0 ================ Link do Visual Basic 6.0 - SP6 http://msdn.microsoft.com/vstudio/download...p6/default.aspx Link do Visual Basic 6.0 - SP6 - VB Runtime Redistribution Pack http://www.microsoft.com/downloads/details...;displaylang=en Link do MDAC 2.8 (Data Access) http://www.microsoft.com/downloads/details...;DisplayLang=en Link do Microsoft Jet 4.0 Database Engine (XP/9x/NT/2000) http://support.microsoft.com/default.aspx?kbid=239114 CRYSTAL REPORT 8.5 ================== Link do CR85 - SP3 http://ftp.crystaldecisions.com/webprod/ho...5win_en_sp3.exe CRYSTAL REPORT .NET =================== Link do CR.NET - SP2 http://ftp.crystaldecisions.com/webprod/ho...1win_en_sp2.exe abraço

porque fazer esta alimentação um a um ? porque não aplica um Range ? qual é o valor corrente passado ? quando diz que: A formula esta muito complexa. Tente simplifica-la.... voce deve tirar do subreport essa passagem de um a um, porque o número de interações extrapola. For Each oParameterFieldDefinition In oReport.OpenSubreport("SubUP").ParameterFields Select Case oParameterFieldDefinition.ParameterFieldName Case "peCdCelula" For lngArray = 0 To UBound(avUP, 2) oParameterFieldDefinition.AddCurrentValue avUP(0, lngArray) Next End Select Next ao executar For lngArray = 0 To UBound(avUP, 2) oParameterFieldDefinition.AddCurrentValue avUP(0, lngArray) voce esta adicionando no parametro de definição do campo todos os valores do array ... isso para cada interação do < For Each > pense numa maneira de agrupá-los abraço

se a qtde de registros for menor o erro tb não ocorre ... então voce pode perceber o motivo do erro: The formula is too complex. Try simplifying it. A formula esta muito complexa. Tente simplifica-la O modo como é passado o parametro é que tem quer ser modificado veja nestes endereços: http://www.willydev.net/InsiteCreation/v1....oparametros.pdf http://www.dynalivery.com/products/paralle...Definition.html http://devlibrary.businessobjects.com/busi...nclasstopic.htm http://74.125.47.132/search?q=cache:cPnQnx...=clnk&gl=br http://bytes.com/groups/net-c/262325-date-...fielddefinition abraço

Veja este post https://www.scriptbrasil.com.br/forum/lofiv...php/t49627.html abraço

Veja neste endereço http://74.125.47.132/search?q=cache:JBc2u-...=clnk&gl=br abraço

Livio ... testei no delphi 7 sem problemas, entretanto não sei se é porque tenho tambem instalado o delphi 5 onde existe este arquivo 'Quickrep.dcu' Como não posso desistalar o meu delphi 5 para fazer um teste.. vou ficar te devendo outra explicação abraço

Se voce não adicionar um novo registro na query, sempre ficará mostrando o valor de um registro da sua tabela if queryapagar.FieldByName('n_recibo').AsInteger > 0 then begin MessageBox(Application.Handle, 'Já Existe um Recibo para este Valor. Não o pode Alterar!'+#13+'Para sair faça Esc', 'Gestão ATL', MB_ICONINFORMATION + MB_OK); sysutils.Abort; exit; end else begin queryapagar.Last; queryapagar.Append; queryapagar.Edit; queryapagar.FieldByName('valor_almocos').ascurrency := queryapagar.FieldByName('n_almocos').asinteger * queryapagar.FieldByName('preco_almoco').ascurrency; queryapagar.FieldByName('total_recibo').ascurrency := queryapagar.FieldByName('valor_almocos').asinteger + queryapagar.FieldByName('mensalidade').ascurrency + queryapagar.FieldByName('extra_valor').ascurrency; queryapagar.Post; end; abraço

Resp: a bordinha que vai ser destacada de uma ponta a outra OBS: Em impressora matricial, um problema no circuito do motor de passo pode acarretar este tipo de coisa, ou as vezes pode ser problema de drive. abraço

Colega... se pretende realmente abraçar esta área, seja mais perseverante. Vou te dar a dica de alguns ( mas não vou te passar mastigadinho, voce terá que pensar um pouco para resolver ): 15 - Faça um programa que lê 10 números quaisquer, e escreva na tela somente os pares. A) Escrever um algoritmo/programa em Pascal que escreve os números pares entre 100 e 200. program ex15; uses crt; var i: integer; begin clrscr; writeln('Os numeros pares de 100 a 200 são: '); for i:= 100 to 200 do begin if i mod 2 = 0 then begin write(i:8); end; end; readkey; end. OBS: Basta modifica-lo fazendo que leia 10 numeros e escreva somente os pares 16 - Faça um programa que lê X números e escreva na tela a soma dos mesmos. B) Escrever um algoritmo/programa em Pascal que escreve a soma dos números entre 0 e 100. program ex16; uses crt; var i, soma: integer; begin clrscr; soma:=0; for i:= 0 to 100 do begin soma:= soma + i; end; writeln('A soma dos numeros de 0 a 100 e: ', soma); readkey; end. OBS: Basta modifica-lo fazendo que leia X numeros e faça a soma 17 - Faça um programa que lê X números e faça a soma de todos os números maiores que 5 e menores que 20. C) Escrever um algoritmo/programa em Pascal que escreve a soma dos números entre 100 e 200. program ex17; uses crt; var i, soma: integer; begin clrscr; soma:=0; for i:= 100 to 200 do begin soma:= soma + i; end; writeln('A soma dos numeros entre 100 a 200 e: ', soma); readkey; end. OBS: Basta modifica-lo fazendo que leia X numeros e faça a soma dentro de um intervalo ( > 5 and < 20 ) 18 - Faça um programa que lê X números e conte quantos são negativos e quantos são positivos, mostrar na tela o resultado. D) Escrever um algoritmo/programa em Pascal que lê 5 valores para a, um de cada vez, e conta quantos destes valores são negativos, escrevendo esta informação. program ex18; uses crt; var i, a, cont: integer; begin clrscr; cont:=0; for i:= 1 to 5 do begin write('Informe um valor: '); readln(a); if a<0 then cont:=cont+1; end; writeln('Existem ',cont,' valores negativos.'); readkey; end. OBS: Basta modifica-lo fazendo que leia X numeros, sabendo que a rotina para contar valores negativos já esta pronta, então é só pensar como contar os numeros positivos 19 - Faça um programa que lê X números soma os maiores ou iguais a 10 conta os menores que 10. E) Escrever um algoritmo/programa em Pascal que lê 20 valores, um de cada vez, e conta quantos deles estão em cada um dos intervalos [0, 25], [25, 50], [50, 75], [75, 100], escrevendo esta informação program ex19; uses crt; var i, x, cont1, cont2, cont3, cont4: integer; begin clrscr; cont1:=0; cont2:=0; cont3:=0; cont4:=0; for i:= 1 to 20 do begin write('Informe um valor (0-100): '); readln(x); if (x>=0) and (x<=25) then cont1:=cont1 + 1; if (x>25) and (x<=50) then cont2:=cont2 + 1; if (x>50) and (x<=75) then cont3:=cont3 + 1; if (x>75) and (x<=100) then cont4:=cont4 + 1; end; writeln('No intervalo 0 - 25 existem ', cont1, ' numeros.'); writeln('No intervalo 26 - 50 existem ', cont2, ' numeros.'); writeln('No intervalo 51 - 75 existem ', cont3, ' numeros.'); writeln('No intervalo 76 - 100 existem ', cont4, ' numeros.'); readkey; end. OBS: Observe que a lógica aqui usada é a mesma que voce deverá usar para resolver a sua questão .. pense não é dificil 20 - Faça um programa que lê 2 números inteiros “A” e “B”, calcule a potência de “A” elevado a “B”, por multiplicação. F) Escrever um algoritmo/programa em Pascal que lê um número e calcula e escreve o seu fatorial. program ex20; uses crt; var x, i: integer; fat: longint; begin clrscr; write('Informe um numero: '); readln(x); fat:=1; for i:= 1 to x do begin fat:=fat * i; end; writeln('O fatorial de ', x, ' e: ', fat); readkey; end. OBS: Pense mais um pouquinho que a solução é bem simples OBS: Se eu te der os programas resolvidos totalmente, voce não irá usar a sua mente para raciocinar em termos lógicos as soluções são simples, mas se voce não se esforçar não vai aprender nada. Lembre-se que um programa de computador deve primeiro rodar corretamente em sua mente para que depois o computador o faça mais rapidamente. abraço

Quando voce cria uma DLL, voce verá este aviso library Project2; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, Classes; {$R *.RES} begin end. voce não atentou para este detalhe To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. Na passagem de parametros deve-se usar PChar ou ShortString Então voce deveria fazer assim procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := Encrypt(PChar(Edit2.Text)); end; Veja um exemplo melhor neste post http://scriptbrasil.com.br/forum/index.php...st&p=472711 Abraço

para o windows falar em portugues procurem no google por "realspeak-português brasil.exe". http://www.torrentz.com/9a6cab4561a8d29fdd...11b6606b4850953 http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= abraço

Se não for dado o caminho ( completo ) deste HD ( externo ) para a instalação, ocorrerá este erro e alguns outros. Uma maneira de solucionar isso seria voce colocar o caminho na path do windows Va em Iniciar > Executar > digite cmd ..... depois digite > Path ( voce verá quais os caminhos definidos dentro do windows ) Voce deve incluir o caminho das pastas de instalação do windows ai ..... use o comando >Set Path caminho completo das pastas que estão no HD externo --------------------------------------------------------------------------- Outras Dicas: http://forum.clubedohardware.com.br/showpo...amp;postcount=6 ------------------------------------------------------------------------------------------------- 1 - Se o seu notebook tiver entrada USB, voce pode copiar o conteudo do CD de instalação do XP para o pendrive e e executar o programa por ele 2 - outra sugestão seria usar a porta COM com um cabo de micro para micro 3 - se voce conseguir tirar o HD do notebook voce pode usar outro micro para fazer a instalação 4 - ou pode comprar um CDROM externo que pode ser acoplado ao notebook http://www.quebarato.com.br/classificados/...e__3309575.html http://produto.mercadolivre.com.br/MLB-80104145-_JM http://produto.mercadolivre.com.br/MLB-789...pcmcia-novo-_JM abraço

Em pascal ficaria assim : program Project2; {$APPTYPE CONSOLE} uses SysUtils; var i,n, numero : integer; s, inverso : string; begin writeln('Digite um numero'); readln(numero); n := length(inttostr(numero)); s := inttostr(numero); for i := 1 to n+1 do begin inverso := inverso + s[n]; n := n - 1; end; writeln('O numero inverso = '+inverso); readln; end. abraço

Não adianta falar que dá erro se voce não posta o erro. Fica mais facil ajudar se souberem qual é o erro. Coloque o erro exatamente como ele aparece na tela abraço

Nosso colega Rodrigo Bizz achou algo interessante Como clicar em um elemento que está na página? http://forums.devshed.com/showpost.php?p=2...amp;postcount=2 abraço

Veja nestes endereços: http://forum.devmedia.com.br/viewtopic.php?t=78251 http://www.apostilando.com/download.php?co...ategoria=Delphi http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=829 Esta apostila na verdade ensina como instalar uma biblioteca no Delphi que faz o reconhecimento de texto digitado e interpretando através de voz do sistema. http://www.acemprol.com/download/file.php?id=9187 para o windows falar em portugues procurem no google por "realspeak-português brasil.exe". abraço

Este código é usado para se colocar um arquivo.exe dentro do aplicativo do delphi procedure TForm1.FormCreate(Sender: TObject); procedure CopiarEExecutar; var DirDestino : String; NomeArquivo: String; Fres : TResourceStream; fFile : TFileStream; begin DirDestino := 'C:\Temp\'; NomeArquivo := 'MeuExecutavel.exe'; {Cria uma instância de TResourceStream para manipulá-lo mais tarde} Fres := TResourceStream.Create(0,'MEURECURSO_NO_PROJETO',RT_RCDATA); {Cria em memória o arquivo gravado no Resource} fFile := TFileStream.Create(DirDestino + NomeArquivo,fmCreate); try {Copia do Resource} Ffile.CopyFrom(Fres,Fres.Size); MessageDlg('O Arquivo: ' + NomeArquivo + ' foi copiado com êxito e será executado.',mtError,[mbOK],0); WinExec(PChar(DirDestino + NomeArquivo), SW_SHOWNORMAL); finally {Libera as variáveis necessárias.} Fres.Free; Ffile.Free; end; end; begin CopiarEExecutar; end; OBS: voce tem que saber usar o arquivo de recursos do delphi O que o Micheus passou em seu link http://www.jansfreeware.com/articles/delphiresource.html foi como utilizar o arquivo de recursos do delphi se voce não sabe usar, peça a algum colega que tenha tempo e lhe auxilie abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=536977 abraço

Especificações do: Monitor LCD AOC 519sw de 15 Polegadas Entre suas características destacam-se: display LCD Widescreen de 15 polegadas, resolução máxima de 1280×720 pixels, interface de vídeo analógico RGB, menu OSD com interface gráfica amigável, VESA Mount, acabamento em Black Piano. Possui também tempo de resposta de 8ms, taxa de brilho de 200cd/m², relação de contraste dinâmico de 1.500:1, fonte interna, sistema Plug and Play, ângulo de visão de 50°, suporte para 16 milhões de cores. Seu valor no mercado é de aproximadamente 295 reais Monitor LCD AOC 519sw com Tela Widescreen de 15″ Desfrute de imagens de alta qualidade e resolução através do monitor LCD 519SW produzida pela AOC, que proporciona ao usuário LCD Widescreen de 15 polegadas, tendo um belo e moderno design. Entre suas características destacam-se: taxa de brilho de 200cd/m², relação de contraste de 1.500:1, tempo de resposta de 8ms, ângulo de visão de 70°, resolução máxima de 1280×720 pixels, suporte para 16 milhões de cores, conector analógico, compatível com o sistema operacional Vista. Dispõe ainda de Função OSD, sistema Pulg and Play, Led indicador, juste de altura, acabamento em Black Piano, fonte interna e mais. Seu preço no mercado é de aproximadamente 275 reais. ---------------------------------------------------------------------------------- Veja que a resolução máxima é de 1280×720 pixels, suporte para 16 milhões de cores. sendo assim é a sua placa de video que não tem o mesmo suporte. Se a placa de video for onboard não dá pra fazer nada .... voce pode tentar usar outra placa de video abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=468562 abraço

qual é a finalidade disso ? seja mais explicito. abraço

Tente usar um desses drives que resolve http://www.aoc.com.br/arquivos/produto/driver/212Va.zip http://www.aoc.com.br/arquivos/produto/driver/716Sw.zip http://www.aoc.com.br/arquivos/produto/driver/511Vwb.zip outros drives http://www.hardwaresecrets.com/page/drivers_monitor abraço

Comandos Condicionais if e case of exemplos muito bons: http://www.cin.ufpe.br/~rmfl/IF_CASE.html http://profsergio.frutalhost.com.br/module...mp;ratetype=num http://www.ucb.br/programar/algoritmo/pratica_controleV.htm abraço