Eder

Jonas, testei a sua idéia porem não ta dando certo: 06-02 a 08-02 = 1 deveria ser 1 este esta correto 06-02 a 09-02 = 1 deveria ser 2 segunda e terça 06-02 a 10-02 = 2 deveria ser 3 segunda, terça e quarta 06-02 a 11-02 = 3 deveria ser 4 segunda, terça, quarta e quinta Ontem também fiz alguns if´s diferente do seu e também dava algo distorcido. Será porque eu to chamando a função no OnPrint de um QrLabel? i := Dias_Uteis(Query1DATA_EMISSAO.AsDateTime ,Query1ULT_OCORR_DATA.AsDateTime); VALUE:= inttostr(i); Grato

Bom Dia! Sim Jonas, a função é show de bola. você não entendeu a minha dúvida. Eu estou usando a sua função para contar quantos dias eu levo para entregar uma mercadoria(transportadora). então eu coleto a mercadoria num dia e entrego em outro dia. O problema é que eu não posso contar o dia da coleta da mercadoria então na sua função em fiz assim nesta linha: result := Contador-n-1;//note que inclui um -1 ai funciona menos um dia certinho. Só que ai esbarrei num problema quando a coleta acontece num sabado ou domingo e a entrega ocorre na segunda ele não conta 1 dia e sim 0zero dia. Como eu poderia contornar este problema.... Acredito que um IF resolveria o problema> tipo SE SABADO OU DOMINGO USA result := Contador-n; SENÃO result := Contador-n-1; mas não to conseguindo montar este if, fiz alguns mas não obedece. O que você acha? Agradecido, Abraço.

Jonas caso for você quem ver este tópico, não sei se fiz o correto postar o probleminha aqui, mas em fim, se puderes me ajudar ou outro colega. seguinte. Na função: 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; Eu estou usando sua função no relatorio, porem como eu tenho que contar sempre diminuindo o primeiro dia util então inseri um -1 na linha: result := Contador-n-1; Neste caso ele sempre diminue 1. O problema é quando o primeiro dia cai num sabado ou domingo, neste caso ele faz a conta incorretamente. Exemplo: se a primeira data for sabado dia 06-02 e a ultima data for 08-02 segunda ele deveria contar 1 dia util, porem ta contando 0. Pela seu codigo original ele conta correto pois eu to diminuindo 1 na função. tentei fazer um if mas não deu certo. pois se não for final de semana tem que ser assim: mas se for final de semana tem que ser assim: Como eu poderia contornar este problema? Muito Obrigado

valeu, Jonas. Muito Obrigado. Abraços :)

Ola, Uma vez nosso colega Jonas me ensinou a trabalhar com o gauge copiando dados de arquivos TXT neste link Mas agora eu tenho que copiar alguns campos de uma tabela paradox para outra tabela paradox e não estou conseguindo mostrar o resultado no gauge. O codigo para copiar que estou usando é este: alguém poderia me ajudar? Obrigado Eder

Achei esta dica do Jonas aqui no forum e resolveu minha dúvida: http://scriptbrasil.com.br/forum/index2.ph...&hl=domingo adaptei no quickreport num pequeno teste, assim: inseri um QuickRep + uma banda title e uma banda detail Inseri na banda detail: inseri 2 qrdbtext com dois campos de dados de DATAS numa tabela paradox. inseri 1 qrlabel que mostra o resultados dos dias Inseri a função do Jonas: e no onprint do qrlabel o codigo: Ok, funcionou certinho é apenas um pequeno teste. valeu. Johnas Obrigado Abraço a todos

Ola Preciso montar um relatório no quickreport + paradox aonde eu pego a coluna DATA_ENTREGA - DATA_EMISSAO e ele me retorna o nr de dias descontado o sabado e domingo. Exemplo: entrega: 08-03 - emissão 01-03 = 5(neste caso ele descontou o sabado e domingo) alguém poderia me dar uma ideia de como calcular? Obrigado :)

Ok..valeu...por enquando vou continuar usando o wep mesmo t+

Rafael...usei o protocolo de segurança WEP no roteador e ai andei pesquisando sobre ele...e o que percebi que ele é muito facil de ser burlado sua chave/senha... então fui instruido a usar outros protolos....que não me lembro o nome agora.... beleza..configurei no roteador num destes protolos...mas quando vou configurar a nova chave no windows ele não me mostra que existe outro protocolo diferente de WEP. Eu uso windows vista. Terias uma ideia de como resolvo isto, ou tenho que usar o wep mesmo? Grato

Ola.. Ininstalei um ROTEADOR SIEMENS GIGASET SE361 na minha rede...configurei meu pc e notebook nele, ou seja o pc via cabo e o note via weireles, funciona perfeito...usei o protocolo de segurando wap. Ip Automatico. Como este roteador não veio um manual mais amplo com todos as funcionalidade em portugues e a sua ajuda é todo em ingles, pergunto: Tem como eu configurar para um usuario um limite de banda, ou seja, dizer que o usuario com o ip 10 acesse somente velocidade de 200 kb ou 20% algo assim. tem como com este roteador? Procurei no site da siemens e não encontrei o tal manual em portugues. muito Grato

Beleza...Micheus..deu certo no quickreport. Fiz conforme sua dica... Eu tava no caminho certo, apenas não tinha inserido a bandaDetalhe. só joguei a banda detalhe coloquei os QRExpr´s ResetAfterPrint=True e tudo rodou certinho quanto a usar o FR, vou dar uma pesquisada para ver como funciona...mas não deve ser dificil não, pois na minha opnião o FR é mais facil de trabalhar que o quick...é mais maleável, acho eu, só não descobri como funciona nesta situação. Bom....muito Grato. Grande Abraço :)

Ola.. Micheus... o codigo ficou assim dentro das suas dicas: SELECT P.Numero, P.Marca, P.Modelo, P.Tipo, P.Serie, P.Tamanho, P.Lona, Sum(R.RCusto) as Total1, 0 as Total2 FROM PNEU P, RECONST R WHERE R.Data > "01/01/2009" And R.CodPen = P.Codigo Group By P.Numero, P.Marca, P.Modelo, P.Tipo,P.Serie, P.Tamanho, P.Lona Union all SELECT P.Numero, P.Marca, P.Modelo, P.Tipo, P.Serie, P.Tamanho, P.Lona, 0 as Total1, Sum(M.KmRodado) as Total2 FROM PNEU P, MOVI M WHERE M.Data > "01/01/2009" And M.CodPen = P.Codigo Group By P.Numero, P.Marca, P.Modelo, P.Tipo,P.Serie, P.Tamanho, P.Lona Order By Pneu.Numero deu quase tudo certo.... exceto: R.: aconteceu exatamente como preveu... o relatorio saiu assim: pneu----custo----kmrodado 5000-----222---------------0 5000-------0----------15000 6000------345--------------0 6000-------0----------22878 teria que juntar como menciona... Como estou ultimamente usando FR-Free Report....não consigui fazer rodar diferente do acima. Ai tentei montar no quick e não estou conseguindo. Como sei que você não manja muito de FR como havia me dito no passado, pergunto: Quais as bandas devo inserir no quickreport para juntar os dados?....ficando assim: pneu----custo----kmrodado 5000-----222---------15000 6000-----345---------22878 muito Grato mais uma vez pela ajuda. :) Abraço

Ola.. tenho que fazer um relatorio com este layout: para pegar dados do: Pneu uso a tabela: PNEU.DB da Movimentação para achar o KmRodado uso a tabela: MOVI.DB do custo do pneu uso a tabela: RECONST.DB Eu consigo trazer o resultado separadamente, tipo primeiro o kmrodado e depois o custo, porem tenho que trazer estes numeros conforme layout...e não to conseguindo.. tentei usar um Union all mas parece que o paradox não suporta: assim: //CUSTO INICIO SELECT Sum(Reconst.RCusto) as Total1, Pneu.Numero, Pneu.Marca, Pneu.Modelo, Pneu.Tipo, Pneu.Serie, Pneu.Tamanho, Pneu.Lona FROM PNEU, RECONST WHERE Reconst.Data > "01/01/2009" And Reconst.CodPen = Pneu.Codigo Group By Pneu.Numero, Pneu.Marca, Pneu.Modelo, Pneu.Tipo, Pneu.Serie, Pneu.Tamanho, Pneu.Lona, Pneu.Custo Order By Pneu.Numero //CUSTO FIM Union all //KM RODADO INICIO SELECT Sum(Movi.KmRodado) as Total2, Pneu.Numero, Pneu.Marca, Pneu.Modelo, Pneu.Tipo, Pneu.Serie, Pneu.Tamanho, Pneu.Lona FROM PNEU, MOVI WHERE MOVI.Data > "01/01/2009" And MOVI.CodPen = Pneu.Codigo Group By Pneu.Numero, Pneu.Marca, Pneu.Modelo, Pneu.Tipo, Pneu.Serie, Pneu.Tamanho, Pneu.Lona, Pneu.Custo Order By Pneu.Numero //KM RODADO FIM alguém teria alguma ideia de como fazer? Grato

se você criou um email do bol....faça assim a configuração: // Configura o Servidor IdSMTP1.Host := EditSmtp.text;//Host SMTP do bol exemplo: smtps.bol.com.br IdSMTP1.Port := StrToInt(EditPorta.text); //Port do bol exempo: 25 IdSMTP1.Username := EditUserName.text;//Login do usuário exemplo: pirambu IdSMTP1.Password := EditPassWord.Text; //Senha do usuário exemplo: 787877 IdSMTP1.AuthenticationType := atLogin; //tipo da autenticação (atNone é quando não precisa se fizer assim deve funcionar...pois acabei de fazer um teste com o bol...e deu certo a imagem enviou e recebi...é claro que tem que configurar as outras opções não esqueça que o bol.....o servidor não é smtp e sim smtps eu fiz o teste assim smtp.bol.com.br e deu exatamento o erro que você mencionou: SOCKET ERRO #11004. ai corrigi para smtps.bol.com.br e deu certo. Acredito que seja este o problema. :) abraço

simples...criaria um email no bol, pelo que eu sei é Grátis..www.bol.com.br servidor do envio do Bol: smtps.bol.com.br falou

Ola... Amigo....eu faço assim...segue o codigo que uso. procedure TForm1.XiButton1Click(Sender: TObject); Var newText : TIdText; sPath : String; newAttach : TIdAttachment; imgID1, imgName1 : String; begin //Endereço e ID da Imagem imgName1 := 'c:\figura.jpg'; //imgID1 := CreateUniqueID; desabilitei // Configura o Servidor IdSMTP1.Host := EditSmtp.text;//Host SMTP do bol IdSMTP1.Port := StrToInt(EditPorta.text); //Port do bol IdSMTP1.Username := EditUserName.text;//Login do usuário IdSMTP1.Password := EditPassWord.Text; //Senha do usuário IdSMTP1.AuthenticationType := atLogin; //tipo da autenticação (atNone é quando não precisa autenticar} // Configura o Remetente da Mensagem IdMessage1.Clear; IdMessage1.From.Address := EditEmailRem.text; IdMessage1.From.Name := EditNomeRem.text; IdMessage1.Subject := EditAssunto.text; // Configura os destinatários IdMessage1.Recipients.Clear; IdMessage1.Recipients.Add; IdMessage1.Recipients.Items[IdMessage1.Recipients.Count-1].Address := EditEmailDest.text; IdMessage1.Recipients.Items[IdMessage1.Recipients.Count-1].Name := EditNomeDest.text; // Adiciona o HTML ao corpo da mensagem newText := TIdText.Create(IdMessage1.MessageParts,nil); newText.ContentType := 'text/html'; newText.Body.Add('<HTML><BODY>'); newText.Body.Add('<IMG SRC="cid:'+imgID1+'"></p>'); // Troca imagens pelo ID unico newText.Body.Add('<font face="Verdana" size="2"><b>Empresa</b>'); newText.Body.Add('</font><hr><font face="Verdana" size="2"><b><font face="Verdana" size="2"><b><font face="Verdana" size="1"><b><u>'+EditAssunto.text+'</u></b></font></b></font></b></font></p>'); newText.Body.Add('<p><font face="Verdana" size="2"><b><font face="Verdana" size="2"><b><font face="Verdana" size="1">'+EditMensagem1.text+'</font></b></font></b></font></p>'); newText.Body.Add('<p><font face="Verdana" size="2"><b><font face="Verdana" size="2"><b><font face="Verdana" size="1">'+EditMensagem2.text+'</font></b></font></b></font></p>'); newText.Body.Add('<p><font face="Verdana" size="2"><b><font face="Verdana" size="2"><b><font face="Verdana" size="1">'+EditMensagem2.text+'</font></b></font></b></font></p>'); newText.Body.Add('</BODY><HTML>'); // define o tipo do conteúdo da mensagem // Adiciona uma parte texto ao corpo newText := TIdText.Create(IdMessage1.MessageParts,nil); newText.ContentType := 'text/plain'; newText.Body.Add('Este email só será visualizado em padrão HTML'); //Anexa a primeira imagem newAttach := TIdAttachment.Create(IdMessage1.MessageParts,imgName1); newAttach.ContentType := 'image/jpeg'; newAttach.ContentDisposition := 'inline'; newAttach.ExtraHeaders.Values['Content-ID'] := '<'+imgId1+'>'; //Estabelece a conexão IdSMTP1.Connect; IdSMTP1.Authenticate; // Envia Try IdSMTP1.Send(IdMessage1); showmessage('Ok. Mesagem Enviada com Sucesso.'); //Envia a mensagem except showmessage('ERRO. Não enviado.'); //Mensagem de erro end; IdSMTP1.Disconnect; end; Veja se te ajuda este código...ele faz todo o processo.....com opção de anexar um papel de carta... uso este codigo ....e foi testado no servidor bol e meu domínio. Abraço

Ola... Minha impressora estava imprimindo nomalmente, derepente não imprimi mais nada, olhei os niveis de tinta e o preto havia acabado....então comprei um cartucho preto e troquei. Agora quando mando imprimir, a impressora faz todo o processo de impressão normalmente, porem não imprimi nada....ela passa por cima como se estivesse imprimindo e não sai a impressão....verifiquei o cartucho e tem tinta...pois é novo. O que pode ser? Grato

Pessoal...achei uma dica na net e deu certo, exatamento como eu queria. Montei um exemplinho em cima da dica, caso alguém venha a precisar. Código abaixo: <html> <head> <title>Teste</title> </head> <body bgcolor="white" text="black" link="blue" vlink="purple" alink="red"> <table align="center" border="1" width="300" cellspacing="0" bordercolordark="black" bordercolorlight="black"> <tr> <td width="300"> <a href="teste1.htm" target="site"><font face="Verdana" size="2" color="green">link1</font></a><font face="Verdana" size="2"> </font><a href="teste2.html" target="site1"><font face="Verdana" size="2"> </font></a><font face="Verdana" size="2">| </font><a href="teste2.html" target="site"><font face="Verdana" size="2" color="red">link2</font></a><font face="Verdana" size="2"> </font><a href="teste2.html" target="site1"><font face="Verdana" size="2"> </font></a><font face="Verdana" size="2">| </font><a href="teste3.htm" target="site"><font face="Verdana" size="2" color="blue">link3</font></a> </td> </tr> <tr> <td width="300"> <p><iframe name="site" frameborder="0" width="300" height="30" marginheight="0" scrolling="auto"></iframe></p> </td> </tr> </table> <p align="center"><a href="http://forum.codigofonte.net/index.php?showtopic=9546" target="_blank"><font face="Verdana" size="1">Dica do site: Créditos</font></a></p> </body> </html> valeu..Tiago. Grato :)

Tiago...Bza? Carinha eu já havia tentado desta forma também...no meu caso o link esta dentro de uma cell e ao clickar neste link deveria abrir a pagina dentro da segunda cell eu fiz da forma como mencionou...mas ai a pagina teste2.html abre como um _blank, ou seja, fora da pagina do link. exemplo abaixo: <html> <head> <title>ola</title> </head> <body bgcolor="white" text="black" link="blue" vlink="purple" alink="red"> <table border="1" align="center" width="482"> <tr> <td width="472" height="11"> <p><a href="teste2.html" target="frame"><font face="Verdana" size="2">LINK</font></a></p> </td> </tr> <tr> <td width="472" height="278"> <p><font face="Verdana" size="2">&nbsp;</font></p> </td> </tr> </table> </body> </html> Grato

Ola estou tentando montar um Frame usando 3 paginas, topo, esquerda e direita, porem não gostaria que ele usasse as paginas da largura da tela, neste caso eu queria definir esta lagura, tentei mexer no percentual, mas não deu certo...ela insiste em ficar da largura da tela... codigo abaixo: <html> <head> <title>Teste</title> </head> <frameset rows="17%, 83%" cols="1*" border="5"> <frame name="banner" scrolling="auto" marginwidth="14" marginheight="10" namo_target_frame="contents" src="noname2.htm"> <frameset rows="1*" cols="19%, 81%"> <frame name="contents" scrolling="now" marginwidth="10" marginheight="14" namo_target_frame="detail" src="noname3.htm"> <frame name="detail" scrolling="now" marginwidth="10" marginheight="14" src="noname4.htm"> </frameset> <noframes> <body bgcolor="silver" text="lime" link="#0000FF" vlink="#800080" alink="#FF0000" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0"> <p>teste</p> </body> </noframes> </frameset> </html> alguém poderia me ajudar. Agradecido

Ola... Tenho uma tabela com duas cell numa pagina html. Na primeira cell eu tenho um link e eu gostaria que quando eu clickasse neste link abriria uma pagina chamada teste.html dentro da segunda cell. Tem como? eu to carregando uma pagina dentro da segunda cell assim e funciona perfeito. <IFRAME name="teste2" src="teste2.html" frameBorder="now" width="640" height="120" scrolling="auto" allowtransparency="true"></IFRAME mas agora eu preciso carregar via link como descrevi acima. Grato

falou...VOU dar uma estudada então. Grato

Ola..ESerra... vamos supor que meu servidor aceite o htm e envie ao php. Como eu criaria estas sessões nas paginas html protegidas? poderias dar uma exemplo para fazer um testezinho em uma pagina htm tipo index.htm? muito Grato Abraço :)

Ola.. estou usando uma tela de login em html + um arquivo em php chamado logar.php o codigo é este: <? $nome = $_POST['txt_nome']; $senha = $_POST['txt_senha']; $arq = file_get_contents("usuarios.txt"); $arr = explode("\n",$arq); foreach($arr as $chave => $line){ $arr2 = explode(",",$line); if($arr2[0] == $nome){ $ch = $chave; break; } } if ((empty($nome)) && (empty($senha))) { echo 'Campo Nome e Senha Vazio.'; Exit; } if (empty($nome)){ echo 'Campo Nome Vazio'; Exit; } if (empty($senha)){ echo 'Campo senha Vazio'; Exit; } $dados = explode(",",$arr[$ch]); if(trim($dados[1]) == $senha){ header ("Location:index.htm"); }else{ header ("Location:erro.htm"); } ?> neste caso funciona direitinho eu cadastro os usuarios no arquivo texto que fica numa determinada pasta e ai o php le e ve se bate a senha e usuario. no txt este assim: só que tem um problema.... note que quando o usuario digitar o login e senha e caso estão corretos o php redereciona ao index.htm que é a pagina procurada... mas se alguém descobrir o caminho deste index.htm e depois copiar e colar em qualquer navagedor vai passar e ai o usuario e senha foram pro espaço, pois ele vai entrar direto....pois já sabe o caminho.. Tem alguma maneira de contornar este situação? Grato

falou...ESerra muito Grato pela ajuda :) Abraço