maxm.ro

se eu fizer desta forma ele vai fazer o seguinte! se o valor for: 123,20 vai ficar: 123,2 ou seja, vou perder o zero e ainda tenho a virgula! a idéia era um forma dele me retornar: 12300 com a virgula e os dois zeros! mas vlw obrigado pela diga cara...

Estou tentando fazer uma importação de dados de Access p/ txt no Delphi, porem estou com alguns problemas na conversão e formatação de alguns campo. No banco de dados tenho um campo “VALOR” do tipo unidade monetária, só que quando exporto para o arquivo txt devo converte-lo p/ texto. O arquivo txt requer os seguintes critérios: O campo “VALOR” no arquivo txt deve ter17 dígitos completados com zeros a esquerda e sem virgula. Sendo assim, o valor 200,20 teria que ficar da seguinte forma: 00000000000020020 Se o valor for 300,00 deve ficar: 00000000000030000 A função p/ completar com zeros eu consegui! Porem não sei como faço para converter p/ texto e tirar a vírgula sem perder zero a direita do numero, porque se eu tiver um campo com valor “200,20” e converte-lo p/ texto ele vai ficar “200,2”, ou seja, perdi o ultimo zero que no arquivo txt já iria fazer grande diferença.... Alguém teria uma luz!!!!

vlw cara, vou testar aqui, já vi essas configurações nas impressoras laser... se resolver posto informando! grato pela ajuda, abraços...

blza, é isso mesmo! muito obrigado !! agora gostaria de uma ajuda, sobre outro tópico que postei (Problemas com formulario). link p/ o tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=117838 isse problema ta me atrapalhando demais, se alguém tivesse uma solução seria uma mão na roda!! pois já tentei de varias formas e ainda não encontrei a solução p/ o mesmo! vlw abraços!!!

como poderia contar os caracteres que o usuario ainda pode digitar em um memo??? ex: limite: 100 caracteres. restante: 50 caracteres. tentei usar o lenght mas não consegui... alguma dica??

Ola pessoal, já postei um tópico aqui relacionado com o rave, e esse problema tb esta. o relatório carrega muitos dados, passo 80% dos dados por meio de parametro, com isso, quando clico em "gerar relatório" demora cerca de uns 12 a 18 segundos pra gerar o relatório, depende muito do computador tb, em uma maquina com uma configuração melhor é gerado em 7 segundo.... quando to usando uma maquina mais humilde, nesse tempo o formulario trava! o botão que clico "gerar relatório" some, fica meio apagado, só depois que ele joga a janela do "OutPut Opitions" é que ele volta ao normal. p/ passar os parametros utilizo o seguinte metodo, ex: RvProCE.SetParam('CPFTGaran',Dm.ADOQryCedulasCPFTgaran.Value); alem dos demais que o rave pega direto do banco de dados. esse problema poderia ser solucionado ? teria alguma propriedade no formulario que não deixasse ele ficar apagado e os botão sumirem ? algum tem alguma diga ? Grato!

Ola pessoal, to com um pequeno problema com a geração do relatório no rave. quando chamo o rave primeiro ele mostra uma tela "OutPut Options" que tem algumas opções, quando clico em ok p/ ele mostrar o relatório ele gera muitas paginas fica gerando centenas de paginas e n'ao acaba nunca, quando deveria gerar apenas duas! isso acontece apenas com algumas impressoras (em alguns computadores funciona em outros não), já fiz o teste. só não sei porque isso acontece. em alguns computadores ele funciona blza, já em outro não funciona... ai pra gerar corretamente selecionar aquela impressora do windows, depois que ele mostra o relatório com as duas paginas corretamente mando imprimir e seleciono a impressora correta, ai imprime blza... o que poderia ser isso, alguma configuração no rave ? vlw aGRADECO A AJUDA DE TODOS...

blza cara vlw pela ajuda... pra salvar em PDF é simples mesmo, nem tinha notado, mas tem um componete da paleta Rave, o nome é "RvRenderPDF" é só colcoar ele no form, não precisa configurar nada. quando roda a aplicação e gera o relatório já tera a opção pra salvar.... alem do formato PDF tem uns componente para salvar em salvar Html, TXT.. entre outros... vlw...

Ola pessoal, é o seguinte, utilizo o BDS 2006, para os relatórios o RAVE Reports. a pergunta é: como salvar os relatórios do rave em formato PDF ou Excel??? o sistema emite os relatórios só que alem de imprimi-los é necessario arquivar-los no computador, para isso utilizo uma ferramena por fora, a CutePDF. não sei se todos conhecem mas o CUTEPDF é uma ferramenta que serve para salvar arquivos no formto pdf, funciona como se fosse uma impressora, só que ao invés de imprimir ela possibilita o usuario salvar o relatório no formato pdf. para algus usuarios torna-se complicado utilizar essa ferramenta. é possivel fazer o rave salvar os relatórios em outro formato, pois ele só salva em formato *.ndr. gostaria de poder salvar em PDF! falou agradeço a ajuda de todos...

ola pessoal, estou com um problema... desenvolvi um sistema em Delphi .Net, bds 2006, e estou instalando o sistema em outro computador, porem, ele não esta iniciando. Emite o seguinte Erro: Sistema - Serviço de depuração Cammon Language Runtime a aplicação gerou uma execução que não foi possivel processar. id do processo =0x860 (2144), id do thread =0x9d0 (2512). clik em 'ok' para terminar a aplicação. clique em 'canselar' para depurar a aplicação. alguém já passou por essa situação ? se alguém puder ajudar fico grato! Max M Costa.

traduzindo o Assunto: Este formulário da chamada do método permitiu somente métodos da classe! tenho duas Units. Uma chamada UnCadastro e outro UnPesquisa. blza criei uma procedure na UnCadastro e declarei como Publica; public { Public declarations } Procedure ConsultaClientes(Paramentro : String); end; blza... na mesma unit (Uncadastro) utilizei a procedure e ela funcionou perfeitmente. ConsultaClientes(Edit1.Text); certo, agora to tentando usa-la na Unit UnPesquisa. Ficaria Assim Para Acessa-la: TFCadastro.ConsultaClientes(Edit1.TExt); só que estou me deparando com o sequinte erro! This form Of method Call Only Allowed for class methods Qual seria o Problema, Faltou declarar Alguma Coisa ?

cara, Eu testei no DBGrid e Funcionou, só que nos campos que quero que são Edits e DBEdits não funcionou ... você testou ai em DBEdts ? se funcionar ai, pode ser porque eu estou utilizando delphi .net

coloquei dessa forma no evento onkeypress e não funcionou ... onde devo colocar ? vlw obrigado...

Ola pessoal, Pra executar um evento quando pressiono a tecla ENTER faço isso: If (Key = #13) then begin . . . end; E pra usar a Tecla "TAB" qual seria ?

Pessoal, tenho uma simples duvida sobre o BDS 2006: na Paleta de Propriedades tem uma forma de traduzir o significado de cada propriedade! por exemplo, se clicar no formulario logo depois ir na propriedade "Name": ele mostrará "Propriedade p/ definiri nome do Form" ele mostra pra que serve essa propriedade. alguém sabe como fazer isso ?

Pessoal vlw pela ajuda de Todos... O codigo que o Jhonas passou funcionou corretamente, muito bom !!!! já pesquisado bastante, e no .net ninguém tinha uma solução.... Resolvido problema!!!!

não entendi muto bem o que você quis dizer ocm isso: Progressbar1.Max := quantaslin('C:\Documents and Settings\lanhouse\Meus documentos\MAX\Banco de Dados\3271_20070912\3271_20070910_Cadastro.txt');//valor max do Progressbar em função do numero de linhas do arquivo o que significa esse "Quantaslin" ?

cara, ele mostra alguma coisa sobre o file size, mas não sei se pode funcionar com esse tipo de operação oque o delphi tem na ajuda: FileSize Routine Returns the number of records in a file. Namespace Borland.Delphi.System Syntax [Delphi] function FileSize(var F: Object): Integer; Description In Delphi code, call FileSize to determine the size of the file specified by the file variable F. The size is expressed as the number of records in a record file. Thus: If the file is declared as a file of byte, then the record size defaults to one byte, and FileSize returns the number of bytes in the file. The Reset procedure can set the record size (in bytes) when it opens the file. In this case, FileSize returns the number of records in the file. Note: If the file is declared as an untyped file and you don't specify a record size when you call Reset , then FileSize assumes a record size of 128. That is, FileSize gives the number of bytes divided by 128. To use FileSize, the file must be open. If the file is empty, FileSize(F) returns 0.

blza .. vlw pela dica, mas tem um porem: o delphi parece não reconhecer esse comando TamArquivo := FileSize(ArqCadastro); TamArquivo --> varivel integer; ArqCadastro---> que esta relacionado com o arquivo txt, caminho. ele me retorna o seguinte erro: Erro: borland.delphi.Systen init out of date or corrupted: missing '@filesize'

ola galera, o Codigo abaixo e referente a importação de um arquivo TXT para BD em Sq Server A duvida é: Como coloco um ProgressBar nessa importação? procedure TForm1.SpeedButton1Click(Sender: TObject); var arq: textfile; Entrada : String; begin assignfile(arq,'C:\Documents and Settings\lanhouse\Meus documentos\MAX\Banco de Dados\3271_20070912\3271_20070910_Cadastro.txt');//associa arquivo a variavel reset(arq);//abre arquivo DM.ADOQryCadastro.open; // abre a table DM.ADOQryCadastro.First; // aponta para o primeiro registro while not eof (arq) do begin Readln(arq,entrada); DM.ADOQryCadastro.append; Edit4.Text := Copy(Entrada,01,07); if (Edit4.Text = 'RESPOND') or (Edit4.Text = 'RENOVAD') then begin end else begin DM.ADOQryCadastroNumCadastroUnico.Value := StrToInt(copy(Entrada,01,07)); DM.ADOQryCadastroCodTipoPessoa.Value:= StrToInt(copy(Entrada,08,01)); DM.ADOQryCadastroCPF_CNPJ.Value := Copy(Entrada,19,14); DM.ADOQryCadastroNomeCliente.Value := Copy(Entrada,33,50); DM.ADOQryCadastro.post; // salva DM.ADOQryCadastro.Next; // vai para o próximo end; end; end; ? ? coloquei um progressbar no formulario, qwando passa pro proximo registro (next) eu escrevi: "progressbar.position := progressbar.position + 1;" . Só que ele não executa corretamento, quando ta começando a importar o progressbar já encheu. então devo dizer para o progressbar o tamanho do arquivo, como posso fazer isso ??? Progressbar1.Max := o que ??? o que devo fazer ? estou utlizando Delphi for .net falou agradeço a ajuda ....

blza, vlw pela dica, mas teno uma Duvida! nesse artigo ta mostrando a estrutura do microsoft .NET para o Borland Delpi 8! O que esta intalado em meu pc é o Borland Developer Studio 6, Ele tem opções para as linguagens: C#; C ++ Builder; Delpi for Microsoft Win 32; Delpi For Microsoft .Net FrameWork; no caso a lingugem .NET deve ser a mesma não é ?

Ola ! Tenho que programar utilizando o Borland Developer Studio 2006, com Linguagem: Delphi for .NET. alguém aqui que conhece e sabe dizer se: tem Muita diferença do Delphi 7 ? a linguagem, muda alguma coisa ? ainda não tenho intalado, usava o delphi 7. Dizem que a prencia mudou bastante. tenho que começar a desenvolver um sistema... será que alguém ai pode dar umas dicas, tipo apostilas essas coisas ? falou galera....

apartir do formulario principal quero abrir outro formulario atravez de uma tecla de atalho.. para isso fiz o seguinte: if (key = #113) then begin FClientes.ShowModal; end; coloque isso codigo ai no Evento OnKeyPress do form Principal, testei em outro eventos também mas não deu certo. o numero 113 corresponde a tecla "F2". pensei que fosse assim, mas não deu certo, pressiono f2 mas não acontece nada... o que ue pode estar errado???

blza problema RESOLVIDO ...... o codigo foi esse ai: procedure TFRelHistorico.SbLimparClick(Sender: TObject); begin If application.MessageBox( 'Tem certeza de que deseja Limpar todo o histórico do cliente selecionado?','Informação',MB_YESNO)=mryes then begin If application.MessageBox( 'Você esta Prestes a apagar o histórico do cliente selecionado! Deseja Continuar?','Informação',MB_YESNO)=mryes then begin DSRelHistorico.DataSet.First; while not DSRelHistorico.DataSet.Eof do begin if DataModule1.ADOQryHistorico.FieldByName('codigo_cli_mov').Value = Cod_Cli then begin datamodule1.ADOQryHistorico.locate('Codigo_Cli_mov',Cod_Cli,[]); DataModule1.ADOQryHistorico.Delete; end; DSRelHistorico.DataSet.Next; end; DataModule1.ADOQryHistorico.Delete; ShowMessage('O Histórico do cliente foi limpo com sucesso!'); end; end; end; obrigado pela ajuda ......

tentei de todos os modos que foram passados acima mas não deu certo... acho que o banco de dados em access que ñão da suprte para apagar varios ccampos de uma só vez, porque coloquei esse codigo: StrToInt(EdtCodCli.Text); DataModule1.ADOQryHistorico.Close; DataModule1.ADOQryHistorico.SQL.Clear; DataModule1.ADOQryHistorico.SQL.Text:= 'DELETE * FROM Historico WHERE codigo_cli_mov = '+EdtCodCli.Text+''; DataModule1.ADOQryHistorico.Open; e ele me retornou o seguinte erro : O provedor atual não oferece suporte para retornar varios conjuntos de registro de uma unica execução. ADOQRYHistorico: ComandText does not return a result set. tentei também assim : DataModule1.ADOQryHistorico.SQL.Add('DELETE * FROM Historico WHERE codigo_cli_mov = '+EdtCodCli.Text+' '); e da o mesmo erro....