Jhonas

frmModalSaldos := TfrmModalSaldosLocais.Create(self); o erro aconteceu aqui Precisei adicionar uma propriedade publica a minha classe. Simples! Vou rodar o projeto e então o erro: 'Resource TfrmModalSaldosLocais Not Found' Erro: Recurso TfrmModalSaldosLocais Não Encontrado. OBS: Acho que o erro está bem explicito... não ??? O recurso não encontrado é o proprio formulário. abraço

Procure sempre pesquisar no forum antes de postar a sua duvida .... http://scriptbrasil.com.br/forum/index.php...ghlite=embedded abraço

exp_PDF.FileName:= gsAppPath + 'C:\Vendas Bender\Peidos Mantac' + FormatDateTime('ddd d of mmm yyyy', myDate) ; + '.pdf' correção: exp_PDF.FileName:= gsAppPath + 'C:\Vendas Bender\Peidos Mantac' + FormatDateTime('ddd d of mmm yyyy', myDate) + '.pdf' ; abraço

E é isso mesmo .... Eder ... é muito facil fazer isso ... function Dias_Uteis(DataI, DataF:TDate):Integer; var contador, i, n, d :Integer; DataR : Tdate; begin n := 0; d := 0; if DataI > DataF then begin result := 0; exit; end; Contador := 0; while (DataI <= DataF) do begin if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then Inc(Contador); if contador > 1 then d := 1; for i := 0 to Form1.ComboBox1.Items.Count-1 do begin DataR := strtodate(Form1.ComboBox1.Items.Strings[i]); if DataR = int(DataI) then n := n + 1; end; DataI := DataI + 1; end; result := Contador-n-d; end; OBS: Precisa melhorar seu raciocínio lógico .rs abraço

É possivel ... acho que tem alguma coisa a respeito em um dos posts .... faça uma pesquisa para achar http://scriptbrasil.com.br/forum/index.php...ighlite=simular abraço

Procure por QRComposite http://scriptbrasil.com.br/forum/index.php...ite=qrcomposite abraço

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

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; Button1: TButton; ComboBox1: TComboBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function Dias_Uteis(DataI, DataF:TDate):Integer; var contador, i, n :Integer; DataR : Tdate; begin n := 0; if DataI > DataF then begin result := 0; exit; end; Contador := 0; while (DataI <= DataF) do begin if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then Inc(Contador); for i := 0 to Form1.ComboBox1.Items.Count-1 do begin DataR := strtodate(Form1.ComboBox1.Items.Strings[i]); if DataR = int(DataI) then n := n + 1; end; DataI := DataI + 1; end; result := Contador-n; end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i := Dias_Uteis(DateTimePicker1.Date ,DateTimePicker2.Date); showmessage('Total de dias úteis no período : ' + inttostr(i)); end; end. Eder ... a função funciona corretamente exemplo: abraço

Veja esses posts http://scriptbrasil.com.br/forum/index.php...st&p=567168 http://scriptbrasil.com.br/forum/index.php...st&p=566056 http://scriptbrasil.com.br/forum/index.php...ADPROCESSMEMORY abraço

Veja nesse link http://pdfdatabase.com/apostila-gratis-win...-portugues.html abraço

as musicas selecionadas para tocar no media player terão o tempo somado e colocado ao final da lista de reprodução abraço

Tipo rótulo personalizado, colocar um texto no X,Y do mapa. Veja nesses links http://mapserver.org/tutorial/example1-4.html http://www.geotecnia.ufba.br/arquivos/tuto...20mapserver.pdf http://lists.osgeo.org/pipermail/mapserver...ary/048193.html abraço

Veja este link http://www.mathworks.com/access/helpdesk/h...ef/xlsread.html abraço

Veja este link http://www.mathworks.com/access/helpdesk/h...ef/xlsread.html abraço

Set objFile = objFSO.OpenTextFile("C:\temp\teste\TextToRead.txt", 1) voce deve criar uma lista com o nome os arquivos .... depois voce lê essa lista um a um e substitu o comando por uma vriavel que vai receber o nome da lista exemplo: Set objFile = objFSO.OpenTextFile("C:\temp\teste\"+ArqText, 1) onde ArqText vai receber cada um dos nomes dos arquivos .... monte uma rotina para ler todos os nomes dessa lista. abraço

Veja neste link http://ultradownloads.com.br/download/Forc...xar-gratis.html abraço

Resposta no seu outro post .... finalizar uma sessão ou processo abraço

Não deve ter procurado da forma correta .... veja os links http://www.baixaki.com.br/download/instala...-2-compacto.htm http://www.pobrevirtual.com.br/default/des....php?blogid=553 http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=75 http://www.planetadelphi.com.br/dica/46/fa...-em-um-disquete http://www.babooforum.com.br/forum/index.p...t&p=1342666 abraço

Procure nesses posts http://scriptbrasil.com.br/forum/index.php...ghlite=killtask abraço

Faça essa modificação no código: procedure TForm1.XiButton11Click(Sender: TObject); var cont : integer; begin cont := 0; Table1.Open; Table2.Open; {Copiar dados} gauge1.Progress:=0; Gauge1.MaxValue := Table1.RecordCount; while not table1.Eof do begin inc(cont); gauge1.Progress:=cont; Table2.Last; Table2.Append; Table2.Edit; Table2.FieldByName('SIGLA_CTRC').Value := Table1.FieldByName('SIGLA_CTRC').Value; Table2.FieldByName('NUMERO_CTRC').Value := Table1.FieldByName('NUMERO_CTRC').Value; Table2.FieldByName('SITUACAO_CTRC').Value := Table1.FieldByName('SITUACAO_CTRC').Value; Table2.FieldByName('DATA_EMISSAO').Value := Table1.FieldByName('DATA_EMISSAO').Value; Table2.FieldByName('FIL_DEST').Value := Table1.FieldByName('FIL_DEST').Value; Table2.FieldByName('KG_REAL').Value := Table1.FieldByName('KG_REAL').Value; Table2.FieldByName('KG_CALCULO').Value := Table1.FieldByName('KG_CALCULO').Value; Table2.FieldByName('VALOR_N_FISCAL').Value := Table1.FieldByName('VALOR_N_FISCAL').Value; Table2.FieldByName('FRETE_VALOR').Value := Table1.FieldByName('FRETE_VALOR').Value; Table2.FieldByName('ALIQUOTA').Value := Table1.FieldByName('ALIQUOTA').Value; Table2.FieldByName('VLR_ICMS').Value := Table1.FieldByName('VLR_ICMS').Value; Table2.FieldByName('DESPACHO').Value := Table1.FieldByName('DESPACHO').Value; Table2.FieldByName('PEDAGIO').Value := Table1.FieldByName('PEDAGIO').Value; Table2.FieldByName('OUTROS_IMPOSTOS').Value := Table1.FieldByName('OUTROS_IMPOSTOS').Value; Table2.FieldByName('VALOR_FRETE').Value := Table1.FieldByName('VALOR_FRETE').Value; Table2.FieldByName('NOME_VENDEDOR').Value := Table1.FieldByName('NOME_VENDEDOR').Value; Table2.FieldByName('CONTADOR').Value := Table1.FieldByName('CONTADOR').Value; Table2.FieldByName('ULT_OCORR_CODIGO').Value := Table1.FieldByName('ULT_OCORR_CODIGO').Value; Table2.Post; Table1.next; end; Showmessage('Dados Copiados'); gauge1.Progress:=0; end; abraço

Uma das formas seria atrvés de coordenadas ( posição x e y do mouse ) da janela onde esta o item que devera ser clicado exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; procedure WebBrowser1Enter(Sender: TObject); procedure Button1Click(Sender: TObject); procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure MouseClickLeft(X, Y: Integer); var Pt : TPoint; begin Pt.X := X; Pt.Y := Y; Pt.x := Round(Pt.x * (65535 / Screen.Width)); Pt.y := Round(Pt.y * (65535 / Screen.Height)); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); end; procedure TForm1.WebBrowser1Enter(Sender: TObject); begin WebBrowser1.Navigate('http://www.autopecasxavier.com.br/'); end; procedure TForm1.Button1Click(Sender: TObject); begin MouseClickLeft(100, 150); // coordenada da tela onde esta o item que quer clicar end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var Pt : TPoint; begin Pt.X := 0; Pt.Y := 0; Pt := ClientToScreen(Pt); Pt.x := Round(Pt.x * (65535 / Screen.Width)); Pt.y := Round(Pt.y * (65535 / Screen.Height)); {Move o mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0); {Simula o pressionamento do botão esquerdo do mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0); {Simula soltando o botão esquerdo do mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); end; end. Neste caso eu coloquei um botão para voce poder testar o evento ... entretanto para obter a posição correta da posição do item na janela, a mesma deverá estar maximizada. abraço

jeito tem .... mas se está achando meio complicado, veja outra opção: http://scriptbrasil.com.br/forum/index.php...st&p=460741 abraço

Essa pode ser uma solução: http://www.planetadelphi.com.br/dica/6615/...dentro-de-outro abraço

Veja esses links http://technet.microsoft.com/en-us/library/cc966495.aspx http://www.activedelphi.com.br/forum/viewt...5a6603b9cd28a17 http://scriptbrasil.com.br/forum/index.php...st&p=574187 abraço

Outras informações: http://www.activedelphi.com.br/forum/viewt...5c23a276e138e4e http://info.abril.com.br/forum-antigo/forum.php?tópico=66598 http://www.planetadelphi.com.br/dica/584/s...nacao-de-teclas http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=606 http://www.babooforum.com.br/forum/index.p...howtopic=621989 http://www.cheatsbrasil.com/local/delphi/1...o-do-mouse.html abraço