Jhonas

A vantagem comercial está para o técnico em manutenção ( suposta parceria ), onde o cliente leva a sua impressora pensando que está com algum problema serio .... o técnico usa este software para zerar o contador e faz uma limpeza na impressora. Com isso ele ganha um dinheiro a mais dizendo ao cliente que trocou alguma peça da impressora... são um bando de pilantras. abraço

o que voce quer dizer com ultimo windows ? windows 7 ? ou Vista Ultimate ? esta parecendo bug do proprio windows .... solução instalar novamente o windows abraço

Voce vai achar o que procura nestes endereços http://www.cpac.embrapa.br/download/351/t http://geoflora.googlepages.com/arcview.pdf http://blogdoarcgis.blogspot.com/2008/12/i...ctersticas.html http://www.dpi.inpe.br/teses/lima/dissertacao_lima.pdf http://home.furb.br/efrain/epiinfo/Epi2000_Manual.doc http://www.ltc.ufes.br/GEOMATIC/Apostila%2...o%20ArcView.pdf abraço

Se puder fazer dessa maneira será melhor .. lembre-se que voce pode usar um groupheader, detail, subdetail e groupfooter abraço

Veja esses posts http://scriptbrasil.com.br/forum/index.php...st&p=514074 http://scriptbrasil.com.br/forum/index.php...st&p=493788 http://scriptbrasil.com.br/forum/index.php...st&p=486474 abraço

outra tentativa procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin memo1.Lines.Strings[0] := memo1.Lines.Strings[0] + ' - ' + edit1.text; edit1.clear; end; end; abraço

Deixe-me ver se entendi .... Campo OBS é um memo ou um edit ? se as mensagens vierem de um edit procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin Memo1.Lines.Append(edit1.text); edit1.Clear; end; end; se as mensagens vierem de um Memo procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var i : integer; begin for i := 0 to Memo1.Lines.Count do Edit1.Text := Edit1.Text + ' - ' + Memo1.Lines.Strings[i]; end; Faça uma adaptação do código as suas necessidades abraço

Usando a placa de fax-modem voce pode usar este componente https://www.scriptbrasil.com.br/script/delphi/spbina1.zip entretanto veja este post sobre o assunto http://www.istf.com.br/vb/archive/index.php/t-7331.html abraço

Se conseguir achar um componente FREE não deixe de passar para nós... rs abraço

dmvendas.SimpleDataSetitens.Append; dmvendas.SimpleDataSetitens.fieldByname('codigo_itens').asfloat:= conta; dmvendas.SimpleDataSetitens.FieldByName('totalvendas').Asfloat:= dmvendas.SimpleDataSetitens.FieldByName('totalvendas').Asfloat + valor; [code] Voce está trabalhando diretamente com os campos da sua tabela. O que acontece quando voce dá o append ? o ponteiro do registro vai para um registro vazio e consequentemente os valores que existiam no registro anterior somem, por isso o valor da variavel Valor zera. Como disse o Pirambu use variaveis para efetuar os calculos e somente depois atribua o valor ao campo de sua tabela abraço

Voce quer usar o sistema de bina usando porta serial, paralela ou atraves do fax-modem ?

o comando seria este memo1.lines.Append(memo2.lines.Text); Insere todas as linhas do memo2 ao final das linhas do memo1 abraço

function ApplyUpdates(MaxErrors: Integer); Integer; virtual; MaxErrors indica o número de máximo de erros que o provedor deveria permitir antes de parar a operação de atualização prematuramente. MaxErrors fixo para –1 é usado para indicar que não há nenhum limite ao número de erros. Qualquer outro numero estará indicando a quantidade de erros permitidos em uma operação de atualização de dados abraço

No windows 7 voce deve selecionar o modo de compatibilidade ( windows XP ) para usar o Delphi 7 abraço

Voce tem opções para isso 1 - faça um controle no QRSubDetail1BeforePrint em um determinado campo, por exemplo no campo do Débitos if QueryDebitosNOMEDOCAMPO.Value = '' then begin QRDBText1.Enabled:= false; QRDBText3.Enabled:= false; QRDBText4.Enabled:= false; end else begin QRDBText1.Enabled:= true; QRDBText3.Enabled:= true; QRDBText4.Enabled:= true; end; end; Reparei que voce esta usando : procedure Tfrm_relatCaixaDiario.QRSubDetail1NeedData(Sender: TObject; var MoreData: Boolean); begin MoreData:= not(QueryCreditos.Eof) or not(QueryDebitos.Eof); end; Neste caso eu usaria uma tabela temporaria e colocaria nela todos os dados das 2 tabelas .. no report ficaria mais facil trabalhar somente com uma tabela e para separar os campos tambem ficaria mais tranquilo jeito tem, depende da perpectiva que voce predente usar abraço

O titulo tem que estar no proprio QRGroup ( Group Header) ... os dados serão levados a proxima pagina pela banda Detail linkada ao QRGroup e o titulo se repetirá na proxima pagina abraço

O próprio windows tem essa facilidade para backup de contas de usuário http://74.125.47.132/search?q=cache:oASzNC...=clnk&gl=br abraço

A sua explicação: No meu modo de ver, não mudou praticamente nada, apenas a verificação direta no Socket passou para um variavel. if Socket.ReceiveText='abrecd' then texto: string; begin texto:= Socket.ReceiveText; // Para abrir if texto='abrecd' then OBS: Se voce perceber mudou sim .... ReceiveText retorna o numero de bytes em uma string .. ao jogar para uma variavel tipo string, voce acabou fazendo uma conversão de tipos abraço

Usando SQL com Delphi Veja o capitulo 12 desta apostila para entender melhor http://br.geocities.com/profwagnerberto/delphibd.htm abraço

HTTP.Post(' SEU PHP ', Lista); SEU PHP seria algo parecido com isto <html> <head> <title>Formulario de E-mail</title> </head> <body> <table width="80%" align="center"> <form action="envia.php" method="post" name="formulario" id="formulario"> <tr> <td width="20%">Seu Email</td> <td><input type="text" name="email" size="50" maxlength="255"></td> </tr> <tr> <td width="20%">Assunto</td> <td><input type="text" name="titulo" size="50" maxlength="255"></td> </tr> <tr> <td colspan=2>Sua Mensagem<br> <textarea cols="53" rows="5" name="texto"></textarea> </td> </tr> <tr> <td colspan=2 align="center"><input type="submit" value="Enviar Email"></td> </tr> </form> </table> </body> </html> Vale lembrar que os "names" dos campos do formulario devem ser os mesmos que vamos usar na página envia.php. A página envia.php: <? $destino = "seu_email@seu_dominio.com.br"; $rementente = $email; $assunto = $titulo; $mensagem= $texto; $headers = "Content-Type: text/html; charset=iso-8859-1"; $headers.="From:".$rementente.""; mail("$destino", "$assunto", "$mensagem","$headers"); ?> <html> <body> <center> Obrigado !!! <br> Seu email foi enviado com sucesso !!! </center> </body> </html> abraço

Mas continua aparecendo X no relatorio... Observe que : If dvCaixaCAIDIN.AsString = 'X' then voce está testando o valor de um campo da tabela ... supondo que este campo tem apenas o tamanho para armazenar o X ou seja ( 1 ) , como voce quer atribuir o valor 'DINHEIRO' sem editar o registro e sem alterar o tamanho do campo ? o certo é comparar o campo com 'X' e atribuir a outro campo no report o novo valor 'DINHEIRO' abraço

Nenhum valor para o paramentro 'identificacao' Veja se encontra alguma coisa no forum http://scriptbrasil.com.br/forum/index.php...hlite=DBExpress abraço

Autor do livro "Desenvolvendo Aplicações Palm com NS Basic", atualmente trabalha com automação de processos industriais e códigos de barras. http://www.softpalm.com.br. Tutorial para Desenvolvimento de Conduits em Delphi O objetivo deste documento é exibir ao programador Palm uma forma de sincronizar os dados em um arquivo .pdb (Palm) com um arquivo .mdb (PC). http://www.linhadecodigo.com.br/Artigo.aspx?id=512 abraço

Identificador de Chamadas - Bina Tente este http://www.planetadelphi.com.br/delphi/exe...os/00000443.zip abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...highlite=upload abraço