Jhonas

Clique em > Component > Install PacKages > Selecione o Componente > Remove abraço

Jeito tem ... mas terá que pesquisar no forum ... me lembro que já vi algo a respeito no forum abraço

Use este programa http://superdownloads.uol.com.br/download/...setup-ii-light/ abraço

Tente baixar o arquivo de outro site abraço

Veja este material http://www.vqv.com.br/arquivos/EstudoDirig...oDelphi7ADO.pdf http://www.linhadecodigo.com.br/Artigo.aspx?id=417&pag=2 http://www.scribd.com/doc/8636805/Apostila-Delphi-7 http://www.cedupcua.com.br/~jucemar/Inform..._Um_Sistema.pdf http://scriptbrasil.com.br/forum/index.php...st&p=421613 abraço

Parece que voce está querendo montar uma calculadora ... é isso ? se for procure no forum, já tem algo a respeito http://scriptbrasil.com.br/forum/index.php...ite=calculadora abraço

Voce deve mudar a configuração de acesso ao banco de dados... neste caso voce pode usar um arquivo .ini passando os paramentros para os comandos antes de fazer a conexão DataBase = Caminho para o banco de Dados HostName = IP do micro que tem o servidor Mysql Password = Senha Port = 0 ou 3306 Protocol = mysql-4.1 User = Root ou o nome do usuario definido exemplo: Var Arquivo : TextFile; Line : string; num : integer; p1,p2,p3,p4,p5 : string begin num := 0; AssignFile(Arquivo, 'C:\DiretorioMeuPrograma\MySql.Ini'); Reset(Arquivo); while not EOF(Arquivo) do begin num := num + 1; Readln(Arquivo, Line); if num = 1 then p1 := Line; // Database if num = 2 then p2 := Line; // HostName if num = 3 then p3 := Line; // Password if num = 4 then p4 := Line; // Port if num = 5 then p5 := Line; // Protocol if num = 6 then p6 := Line; // User end; CloseFile(Arquivo); end; abraço

Você pode inserir o texto de qualquer forma. Caso o texto seja maior que o tamanho do richtext ele continuará automaticamente na próxima linha, sem a inserção da quebra de linha. basta deixar a propriedade AutoStretch como true abraço

Amigo ... voce deve baixar o manual de serviço para poder ter uma visão melhor sobre o circuito procure seguir a linha de alimentação dos filamentos do tubo http://www.electronica-pt.com/index.php/co...rtdown/id,8063/ abraço

conversion error from string "3-JAN-1900 14:23:59.0000". erro de conversão para a string "3-JAN-1900 14:23:59.0000" OBS: esta conversão só pode ser feita em um campo do tipo TIMESTAMP ( Data + hora ) abraço

Sim ... mas a definição de tipos no Paradox ou interbase / firebird é diferente abraço

object frmPrintSetup: TfrmPrintSetup Left = 492 Top = 325 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Print Setup' ClientHeight = 129 ClientWidth = 329 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 88 Width = 329 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 5 DesignSize = ( 329 41) object btnCancel: TButton Left = 249 Top = 11 Width = 75 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 2 end object btnOk: TButton Left = 169 Top = 11 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&OK' Default = True ModalResult = 1 TabOrder = 1 OnClick = btnOkClick end object Button1: TButton Left = 7 Top = 11 Width = 75 Height = 25 Caption = 'Advanced...' TabOrder = 0 OnClick = Button1Click end end object chkUseColors: TCheckBox Left = 16 Top = 16 Width = 97 Height = 17 Caption = 'Use Colors' TabOrder = 0 end object chkUseHighLight: TCheckBox Left = 16 Top = 40 Width = 121 Height = 17 Caption = 'Use Syntax Highlight' TabOrder = 1 end object chkShowLineNumbers: TCheckBox Left = 160 Top = 16 Width = 129 Height = 17 Caption = 'Show Line Numbers' TabOrder = 3 end object chkWrapLines: TCheckBox Left = 16 Top = 64 Width = 97 Height = 17 Caption = 'Wrap Lines' TabOrder = 2 end object chkLineNumbersInMargin: TCheckBox Left = 160 Top = 40 Width = 161 Height = 17 Caption = 'Print Line Numbers in Margin' TabOrder = 4 end object psdlgPrinterSetup: TPrinterSetupDialog Left = 160 Top = 65 end end OBS: Crie uma nova aplicação .. no form com o botão direito clique em View as Text , apague tudo e cole este codigo no lugar, depois clique novamente com o botão direito em View as Form ... pronto... terá o form do printsetup abraço

Troque o CI LM1237BDCE/NA e veja os resistores R502/R504(82K - 2 W) e o diodo D505 (1N4936) abraço

De uma maneira bem simples, vai um exemplo de como diminuir a prioridade da execução do Delphi Neste exemplo, mostra como alterar a prioridade de execução do delphi para Abaixo do Normal Voce pode verificar o resultado no Gerenciador de Tarefas do Windows procedure TForm1.Button1Click(Sender: TObject); begin winexec(pchar('C:\WINDOWS\system32\cmd.exe /c START /BELOWNORMAL /B Delphi32.exe'),SW_HIDE); end; abraço

Ao iniciar um cliente habilitado PXE, você poderá receber a seguinte mensagem de erro: O NTLDR está corrompido. O sistema não pode inicializar. Causa Este comportamento ocorre quando o arquivodriveletter\RemoteInstall\OSChooser\I386\NTLDR está corrompido ou é substituído por uma versão incorreta (como o arquivo Ntldr da mídia de origem do Windows 2000). Qualquer operação do arquivo pode fazer a mensagem de erro ocorrer (por exemplo, se você copiar o arquivo errado, se o arquivo ficar corrompido por causa do driver de sistema do arquivo, ou por causa de problemas de backup e restauração. Solução Para solucionar esta questão, no servidor no RIS (Remote Installation Service), renomeie o arquivo %SystemRoot%\System32\RemInst\Oschoice.exe para Ntldr e coloque o arquivo na pastadriveletter\RemoteInstall\OSChooser\I386. Mais Informações Quando um cliente PXE contatar um servidor RIS com êxito, o cliente recebe o arquivo Startrom.com que ele usa para inicializar. O arquivo Startrom.com pede o arquivo Ntldr para que um sistema operacional possa ser carregado. Se o carregador não estiver disponível, o processo de imagem não obterá êxito. abraço

Não encontra... por isso postei o código para voce abraço

Veja nestes endereços http://www.meusdownloads.com.br/p.jsp?ppID=8615 http://www.planetadelphi.com.br/download/3...report-para-pdf http://www.plugmasters.com.br/sys/materias...do-Quick-Report http://www.angelo.com.br/forum3.php?tópico=9&msg=868 abraço

Tá na mão... rs unit PrintSetup; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Registry, Main; type TfrmPrintSetup = class(TForm) Panel1: TPanel; btnCancel: TButton; btnOk: TButton; Button1: TButton; chkUseColors: TCheckBox; chkUseHighLight: TCheckBox; chkShowLineNumbers: TCheckBox; chkWrapLines: TCheckBox; chkLineNumbersInMargin: TCheckBox; psdlgPrinterSetup: TPrinterSetupDialog; procedure Button1Click(Sender: TObject); procedure btnOkClick(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmPrintSetup: TfrmPrintSetup; implementation {$R *.dfm} procedure TfrmPrintSetup.Button1Click(Sender: TObject); begin psdlgPrinterSetup.Execute; end; procedure TfrmPrintSetup.btnOkClick(Sender: TObject); var pReg: TRegistry; begin pReg := TRegistry.Create(); //Printing Settings PrintUseColor := chkUseColors.Checked; PrintUseSyntax := chkUseHighLight.Checked; PrintUseWrapLines := chkWrapLines.Checked; PrintLineNumbers := chkShowLineNumbers.Checked; PrintLineNumbersInMargin := chkLineNumbersInMargin.Checked; pReg.OpenKey('\Software\LuaEdit\PrintSetup', True); pReg.WriteBool('UseColors', chkUseColors.Checked); pReg.WriteBool('UseSyntax', chkUseHighLight.Checked); pReg.WriteBool('UseWrapLines', chkWrapLines.Checked); pReg.WriteBool('LineNumbers', chkShowLineNumbers.Checked); pReg.WriteBool('LineNumbersInMargin', chkLineNumbersInMargin.Checked); pReg.Free; end; procedure TfrmPrintSetup.FormShow(Sender: TObject); begin chkUseColors.Checked := PrintUseColor; chkUseHighLight.Checked := PrintUseSyntax; chkWrapLines.Checked := PrintUseWrapLines; chkShowLineNumbers.Checked := PrintLineNumbers; chkLineNumbersInMargin.Checked := PrintLineNumbersInMargin; end; end. abraço

O seu provedor deve dar acesso externo ao MySQL, caso contrário a conexão não poderá ser efetuada abraço

Alterar o proprio programa do delphi ( se voce tiver o .pas dele ) ou criar o seu proprio print setup... o padrão é voltar para as configurções iniciais quando voce clica nele. abraço

E além disso tem a questão do aprendizado, não é porque existem programas prontos que eu vou desistir de fazer um meu. Gostei de ver ... é isso ai amigo ... gostaria de pode te ajudar, mas estou sem tempo para isso... quem sabe outro colega possa lhe ajudar abraço

Esse código é pra mandar imprimir...usando uma impressora não fiscal da bematech. Esse script abaixo é o exemplo WEB deles para imprimir. Arquivo Completo: <HTML> <HEAD> <TITLE>Exemplo de utilização de impressora não fiscal na web</TITLE> <META name="vs_snapToGrid" content="False"> <META name="vs_showGrid" content="False"> <STYLE type="text/css"> .text{ font-family:Verdana,Arial,Helvetica,sans-serif; font-size:12px; color:##FFFF00 } .title1{ font-family:Verdana,Arial,Helvetica,sans-serif; font-size:12px; vertical-align:top; color:##FFFF00 } .title2{ font-family:Verdana,Arial,Helvetica,sans-serif; font-size:12px; vertical-align:center; color:##FFFF00 } .stText{font-family:Verdana,Arial,Helvetica,sans-serif; font-size:11px; color:#000000; background-color:C5D8EB; font-weight:bold } .Buttom{border:1px solid #777777; font:normal 11px Courier New,verdana,tahoma; padding-left:5px; margin-top:2px; font-weight:bold; width=250px; } .ButtomShort{border:1px solid #777777; font:normal 11px Courier New,verdana,tahoma; padding-left:5px; margin-top:2px; font-weight:bold; width=150px; } .kltable{border:1px black solid; bgcolor:#FBFBFB; background-color:#FCFCFC; width="100%"; } </STYLE> <OBJECT id="BemaPrinter1" height="14" width="14" classid="clsid:310DBDAC-85FF-4008-82A8-E22A09F9460B" VIEWASTEXT> </OBJECT> </HEAD><BODY onload="Inicializa()" onunload="Finaliza()"> <script language="Javascript" type="TEXT/Javascript"> function CaracteresAcentuados() { // Insere todos os caracteres acentuados document.FormPrinter.EdTxtImpressao.value = " âäàáãÃÂÄÁÀ êëèéÊËÉÈ ïíìîÎÍÌÏ öóòôõÖÓÒÔÕ üúùûÜÙÚÛ Çç ÿ Ññ "; } function ImprimeTextoSemFormatacao() { sNumeroVezes = window.prompt("Quantas vezes você deseja imprimir?",""); if (sNumeroVezes != null) { iNumeroVezes = parseInt(sNumeroVezes); for (i=0; i<iNumeroVezes; i++){ BemaPrinter1.FormataTX(document.FormPrinter.EdTxtImpressao.value + "\n", 3, 0, 0, 0, 0); } } } function Inicializa(){ document.FormPrinter.EdTxtImpressao.value = "Digite seu texto aqui."; // Abre a porta de comunicacao iRetorno = BemaPrinter1.IniciaPorta("LPT1"); if (iRetorno <= 0) alert("Problemas ao abrir a porta de Comunicação LPT1. " + iRetorno); else { // Configura o modelo da impressora para MP20 CI ModeloImpressora(2); } } function Finaliza(){ BemaPrinter1.FechaPorta(); } function AbrePorta(valor) { iRetorno = BemaPrinter1.IniciaPorta(valor); if (iRetorno <= 0) alert("Problemas ao abrir a porta de Comunicação " + valor + ". " + iRetorno); } function ModeloImpressora(valor) { document.FormPrinter.BtnAguardarTexto.disabled = false; document.FormPrinter.btnAutenticar.disabled = false; document.FormPrinter.BtnCorteParcial.disabled = false; document.FormPrinter.BtnCorteTotal.disabled = false; document.FormPrinter.BtnDesabilitarPresenter.disabled = false; document.FormPrinter.btnDocInserido.disabled = false; document.FormPrinter.BtnHabilitarNLinhas.disabled = false; document.FormPrinter.BtnProgamarNLinhas.disabled = false; document.FormPrinter.BtnPapelPresenter.disabled = false; document.FormPrinter.BtnProgramarPresenter.disabled = false; PrinterNumber = parseInt(valor); switch (PrinterNumber) { case 1: document.FormPrinter.BtnAguardarTexto.disabled = true; document.FormPrinter.BtnCorteParcial.disabled = true; document.FormPrinter.BtnCorteTotal.disabled = true; document.FormPrinter.BtnDesabilitarPresenter.disabled = true; document.FormPrinter.BtnPapelPresenter.disabled = true; document.FormPrinter.BtnHabilitarNLinhas.disabled = true; document.FormPrinter.BtnProgamarNLinhas.disabled = true; document.FormPrinter.BtnProgramarPresenter.disabled = true; break; case 2: // MP2000 CI document.FormPrinter.BtnCorteParcial.disabled = true; document.FormPrinter.BtnCorteTotal.disabled = true; case 3: // MP2000 TH document.FormPrinter.BtnAguardarTexto.disabled = true; document.FormPrinter.btnAutenticar.disabled = true; document.FormPrinter.BtnDesabilitarPresenter.disabled = true; document.FormPrinter.btnDocInserido.disabled = true; document.FormPrinter.BtnPapelPresenter.disabled = true; document.FormPrinter.BtnHabilitarNLinhas.disabled = true; document.FormPrinter.BtnProgamarNLinhas.disabled = true; document.FormPrinter.BtnProgramarPresenter.disabled = true; PrinterNumber = 0; break; default: PrinterNumber = 2; break; } iRetorno = BemaPrinter1.ConfiguraModeloImpressora(PrinterNumber) if (iRetorno == -2) alert("Parâmetro inválido na função ConfiguraModeloImpressora."); } function ImprimeTextoFormatado() { sNumeroVezes = window.prompt("Quantas vezes você deseja imprimir?",""); if (sNumeroVezes != null) { iNumeroVezes = parseInt(sNumeroVezes); if (document.FormPrinter.MImpressao[0].checked) modo = 2; // Normal else if (document.FormPrinter.MImpressao[1].checked) modo = 3; // elite else modo = 1; // condensado Expandido = 0; Italico = 0; Negrito = 0; Sublinhado = 0; if (document.FormPrinter.CbExpandido.checked) Expandido = 1; if (document.FormPrinter.CbItalico.checked) Italico = 1; if (document.FormPrinter.CbNegrito.checked) Negrito = 1; if (document.FormPrinter.CbSublinhado.checked) Sublinhado = 1; for (i=0; i<iNumeroVezes; i++){ BemaPrinter1.FormataTX(document.FormPrinter.EdTxtImpressao.value + "\n", modo, Italico, Sublinhado, Expandido, Negrito); } } } function ProgramarPresenter() { NumeroLinha = parseInt(document.FormPrinter.EdTimePresenter.value); iRetorno = BemaPrinter1.ProgramaPresenterRetratil(NumeroLinha); if (iRetorno == 0) alert("Problemas na programação do presenter. /n Possíveis causas: Impressora desligada, off-line ou sem papel"); } function HabilitarPresenter(){ if (document.FormPrinter.BtnDesabilitarPresenter.value == "Habilitar"){ document.FormPrinter.BtnDesabilitarPresenter.value = "Desabilitar"; iRetorno = BemaPrinter1.HabilitaPresenterRetratil(1); if (iRetorno == 0) alert("Problemas na programação do presenter./n Possíveis causas: Impressora desligada, off-line ou sem papel"); } else { document.FormPrinter.BtnDesabilitarPresenter.value = "Habilitar"; iRetorno = BemaPrinter1.HabilitaPresenterRetratil(0); if (iRetorno == 0) alert("Problemas na programação do presenter./nPossíveis causas: Impressora desligada, off-line ou sem papel"); } } function ProgramarTamanhoExtrato() { NumeroLinha = parseInt(document.FormPrinter.EdNumeroLinha.value); iRetorno = BemaPrinter1.ProgramaPresenterRetratil(NumeroLinha); if (iRetorno == 0) alert("Problemas na programação do tamanho do extrato./nPossíveis causas: Impressora desligada, off-line ou sem papel"); } function HabilitarExtratoLongo(){ if (document.FormPrinter.BtnHabilitarNLinhas.value == "Habilitar"){ document.FormPrinter.BtnHabilitarNLinhas.value = "Desabilitar"; iRetorno = BemaPrinter1.HabilitaExtratoLongo(1); if (iRetorno == 0) alert("Problemas na programação do tamanho do extrato./n Possíveis causas: Impressora desligada, off-line ou sem papel"); } else { document.FormPrinter.BtnHabilitarNLinhas.value = "Habilitar"; iRetorno = BemaPrinter1.HabilitaExtratoLongo(0); if (iRetorno == 0) alert("Problemas na programação do tamanho do extrato./nPossíveis causas: Impressora desligada, off-line ou sem papel"); } } function PrinterStatus() { iRetorno = BemaPrinter1.Le_Status(); switch (iRetorno) { case 0 : alert("Desligada ou cabo desconectado"); break; case 32 : // pouco papel e off-line na LPT if ( document.FormPrinter.PortaComunicacao.selectedIndex == 0 ) alert("Pouco papel e off-line"); else alert("Off-line ou Fim de papel"); break; case 4 : // pouco papel e off-line na serial alert("Pouco papel e off-line"); break; case 40 : // fim de papel na LPT alert("Fim de papel"); break; case 5: case 48 : // 5 = pouco papel serial e 48 na LPT alert("Pouco papel e on-line"); break; case 79 : // off-line na LPT alert("Off-line"); break; case 9: case 128 : // 9 = head-up na serial e 128 na LPT alert("Head Up"); break case 24: case 144 : // 24 = on-line na serial e 144 na LPT alert("Impressora ok"); // 24 (COM) e 144 (LPT) break; default: alert("Status desconhecido: " + iRetorno); break; } } function FullCut() { iRetorno = BemaPrinter1.AcionaGuilhotina(1); // modo total (full cut) if (iRetorno != 1) alert("Problemas no corte do papel../nPossíveis causas: Impressora desligada, off-line ou sem papel"); } function PartialCut() { iRetorno = BemaPrinter1.AcionaGuilhotina(0); // modo total (full cut) if (iRetorno != 1) alert("Problemas no corte do papel../nPossíveis causas: Impressora desligada, off-line ou sem papel"); } function PapelNoPresenter(){ iRetorno = BemaPrinter1.VerificaPapelPresenter(); switch (iRetorno) { case -1 : alert("Erro de execução da função."); break; case 0 : alert("Problemas da verificação do papel no presenter./nPossíveis causas: Impressora desligada, off-line ou sem papel."); break; case 1 : alert("Papel posicionado no presenter."); break; case 2 : alert("Papel não posicionado no presenter."); break; case 3 : alert("Erro desconhecido."); break; default: alert("Unknown error."); break; } } function Autenticar(){ tempo = parseInt(document.FormPrinter.EdAutenticarTempo.value) * 1000; iRetorno = BemaPrinter1.AutenticaDoc(document.FormPrinter.EdAutenticarTexto.value,tempo) if (iRetorno == 0) alert("Problemas na autenticação do documento.\nPossíveis causas: Impressora desligada, off-line ou sem papel"); else if (iRetorno == -1) alert("Tempo maior que o permitido."); } function DocInserido(){ iRetorno = BemaPrinter1.DocumentInserted(); if (iRetorno == 1) alert("Documento inserido."); else alert("Documento não inserido."); } </SCRIPT> <FORM name="FormPrinter"> <DIV align="center"> <TABLE class="kltable" width="889"> <TR> <TD class="title1"><B>Porta de comunicação:<SELECT size="1" name="PortaComunicacao" onchange="AbrePorta(this.value)"> <OPTION value="LPT1" selected>LPT1</OPTION> <OPTION value="COM1">COM1</OPTION> <OPTION value="COM2">COM2</OPTION> </SELECT></B></TD> <TD class="title1"><B>Modelo da impressora:<SELECT size="1" name="ModeImpressora" onchange="ModeloImpressora(this.value)"> <OPTION value="1" selected>MP-20 CI</OPTION> <OPTION value="1">MP-20 MI</OPTION> <OPTION value="3">MP-20 TH</OPTION> <OPTION value="2">MP-2000 CI</OPTION> <OPTION value="3">MP-2000 TH</OPTION> <OPTION value="4">58mm Kiosk Printer</OPTION> <OPTION value="4">76/80mm Kiosk Printer</OPTION> <OPTION value="4">112mm Kiosk Printer</OPTION> </SELECT></B></TD> </TR> <TR> <TD width="879" height="69" colspan="2"> <INPUT type="text" name="EdTxtImpressao" class="stText" size="62" value="Digite seu texto aqui."> <INPUT type="button" class="Buttom" value="Caracteres Acentuados" name="BtnCarcAcentuados" onclick="CaracteresAcentuados()"> </TD> </TR> <TR> <TD class="title1" width="380" height="54" valign="top" align="left"> <B>Modos de Impressão</B><BR> <FONT class="title1"><INPUT type="radio" value="2" name="MImpressao" checked>Normal <INPUT type="radio" value="3" name="MImpressao">Elite <INPUT type="radio" value="1" name="MImpressao">Condensado </FONT> </TD> <TD class="title1" width="493" height="54" valign="top" align="left"> <B>Modos de formatação</B> <TABLE border="0" cellpadding="0" cellspacing="0" width="100%"> <TR> <TD class="title1" width="50%"><INPUT type="checkbox" name="CbNegrito" value="ON">Negrito</TD> <TD class="title1" width="50%"><INPUT type="checkbox" name="CbItalico" value="ON">Itálico</TD> </TR> <TR> <TD class="title1" width="50%"><INPUT type="checkbox" name="CbSublinhado" value="ON">Sublinhado</TD> <TD class="title1" width="50%"><INPUT type="checkbox" name="CbExpandido" value="ON">Expandido</TD> </TR> </TABLE> </TD> </TR> <TR> <TD width="879" height="27" colspan="2" align="center"> <INPUT type="button" class="Buttom" value="Imprime Texto sem Formatação" name="BtnTextoSemFormatacao" onclick="ImprimeTextoSemFormatacao()"> <INPUT type="button" class="Buttom" value="Imprime Texto com Formatação" name="BtnTextoComFormatacao" onclick="ImprimeTextoFormatado()"> </TD> </TR> </TABLE> <BR> <TABLE class="kltable" width="100%"> <TR> <TD width="33%" class="title1"><B>Programação do Presenter</B></TD> <TD width="67%"></TD> </TR> <TR> <TD width="33%" class="title2"> Tempo para retração: <INPUT type="text" class="stText" name="EdTimePresenter" size="11" id="Text1">Seg.</TD> <TD width="67%"> <INPUT type="button" class="Buttom" value="Programar" name="BtnProgramarPresenter" onclick="ProgramarPresenter()"><BR> <INPUT type="button" class="Buttom" value="Habilitar" name="BtnDesabilitarPresenter" onclick="HabilitarPresenter()"> </TD> </TR> </TABLE> <BR> <TABLE class="kltable" width="100%"> <TR> <TD width="33%" class="title1"><B>Autenticação de documentos</B> </TD> <TD width="67%"></TD> </TR> <TR> <TD width="33%" class="title2">Time-out:<INPUT type="text" class="stText" name="EdAutenticarTempo" size="11">Seg.<BR> Texto: <INPUT type="text" class="stText" name="EdAutenticarTexto" size="27"></TD> <TD width="67%" valign="middle"> <INPUT type="button" class="Buttom" value="Autenticar Documento" name="btnAutenticar" onclick="Autenticar()"><BR> <INPUT type="button" class="Buttom" value="Verificar Documento Inserido" name="btnDocInserido" onclick="DocInserido()"> </TD> </TR> </TABLE> <BR> <TABLE class="kltable" width="100%"> <TR> <TD width="33%" class="title1"><B>Tamanho do Extrato</B> </TD> <TD width="67%"></TD> </TR> <TR> <TD width="33%" class="title2"> Numero de linhas:<INPUT type="text" class="stText" name="EdNumeroLinha" size="11"></TD> <TD width="67%" valign="middle"> <INPUT type="button" class="Buttom" value="Programar" name="BtnProgamarNLinhas" onclick="ProgramarTamanhoExtrato()"><BR> <INPUT type="button" class="Buttom" value="Habilitar" name="BtnHabilitarNLinhas" onclick="HabilitarExtratoLongo()"> </TD> </TR> </TABLE> <BR> <TABLE class="kltable"> <TR> <TD align="center"> <INPUT type="button" class="Buttom" value="Status da impressora" name="BtnStatusImpressora" onclick="PrinterStatus()"> <INPUT type="button" class="Buttom" value="Imprimir caracter gráfico" name="BtnCaracGrafico" onclick="CaracterGrafico()"><BR> <INPUT type="button" class="Buttom" value="Corte Total do Papel" name="BtnCorteTotal" onclick="FullCut()"> <INPUT type="button" class="Buttom" value="Corte Parcial do Papel" name="BtnCorteParcial" onclick="PartialCut()"><BR> <INPUT type="button" class="Buttom" value="Aguardar impressão texto" name="BtnAguardarTexto"> <INPUT type="button" class="Buttom" value="Verificar Papel Presenter" name="BtnPapelPresenter" onclick="PapelNoPresenter()"> </TD> </TR> </TABLE> </DIV> </FORM> </BODY> </HTML> As funções para cortar function FullCut() { iRetorno = BemaPrinter1.AcionaGuilhotina(1); // modo total (full cut) if (iRetorno != 1) alert("Problemas no corte do papel../nPossíveis causas: Impressora desligada, off-line ou sem papel"); } function PartialCut() { iRetorno = BemaPrinter1.AcionaGuilhotina(0); // modo total (full cut) if (iRetorno != 1) alert("Problemas no corte do papel../nPossíveis causas: Impressora desligada, off-line ou sem papel"); } abraço

Sim .... sempre que voce tiver um DBgrid junto com outras informações, as informações do DBGrid estará sendo gravado e referenciado em outra tabela abraço

Noções básicas de Controle de Patrimoneo http://www.cpcon.eng.br/gestao-patrimonial...ole-patrimonio/ Exemplos http://busca.superdownloads.uol.com.br/busca/patrimonio.html abraço

Faça uma pesquisa no forum pelas palavras Email e Timer abraço