personal

Gilmer... Verifiquei como você disse, e não tem não. Já tive este problema anteriormente e fui orientado a aumentar a memória baixa do micro, hoje estou com 619k. O sistema que estou tendo o problema, tem somente 12 modulos, e nenhum com mais de 800 linhas.

Acho que uma boa solução, é manter todos os equipamentos com NB, e pricipalmente manter os NB em bom funcionamento, pois o que ocorre, na maioria dos casos, é que coloca-se o NB e esquece, só lembra dele quando falta energia e o mesmo não segura nada, aí o NB não presta, o sistema é falho etc.. e Tal. Só não assumem (clientes) que os equipamentos são tratados com total falta de critério de manutenção preventiva, como manda os fabricantes de equipamentos, principalmente os de NB. Raramente acontece de ter equipamentos e NB equivalentes a sua carga de operação. Na grande maioria utiliza-se NB de pequena capacidade por uma questão de custos, e penduram uma grande quantidade de equipamentos. Outro fator que pesa muito, é quando da compra de equipamento por parte do cliente, os prestadores de serviços, quer internos ou externos, raramente tem a palavra final, referente aos equipamentos a serem comprados, ficando a referida compra a critério do departamento de compra, que para mostrar "serviço" compram equipamentos de inferior qualidade ou capacidade. Na realidade temos uma grande parcela de culpa, pois para não perdermos nossos clientes, nos sujeitamos aos equipamentos que nos são fornecidos, mesmos que cientes que não sejam os ideais para trabalhar. Enfim, acho que este problema vai levar um pouco mais de tempo para ser resolvido, do que nós meros mortais, gostaríamos que levasse.

//--------- // Senha //--------- #include "L:\FW21\INCLUDE\FiveWin.ch" Function senha() Public _senha, botSNH, xVEZ DEFINE DIALOG pSENHA From 0,0 To 12,48 xVEZ := 1 @ 00.5, 06.5 Say "Digite sua senha para o Sistema " Size 140,11 @ 02.8, 10.0 Say "Senha" COLOR AZUL _senha := Space(06) @ 02.8, 13 Get _senha PASSWORD Pict "@!K" OF pSENHA Size 40,11 COLOR AZUL UPDATE @ 03.4, 08.5 BUTTON botSNH1 PROMPT "Confirmar" OF pSENHA Size 50,15 ACTION confSenha() @ 03.4, 21.0 BUTTON botSNH2 PROMPT "Cancelar" OF pSENHA Size 50,15 ACTION pSENHA:End() ACTIVATE DIALOG pSENHA CENTERED Return(nil) //--------------------------- Static Function confSenha() //--------------------------- // aqui voce faz a busca no seu arquivo IF ( UPPER(_senha) # "SENHA") msgStop("Senha inválida ", " Atenção") xVEZ += 1 If (xVEZ > 3) pSenha:End() EndIf pSENHA:Update() pSENHA:SetFocus() Return(.f.) Else msgStop("Senha OK ", " Atenção") EndIf pSenha:End() Return(.t.)

Estou tendo o seguinte erro: (FATAL C3001 MEMORY OVERBOOKED). Memoria baixa 619k já comentei includes não utilizaveis no fivewin.ch O que Fazer ????????????????????????? SERGIO - Personal - Lins

Valeu Gilmer...

Agora entendi o que você quer fazer. Pretende ao acionar um link qualquer já abrir a caixa de criar nova mensagem do outlook, como é feito em páginas. Andei fazendo uns testes, porém sem sucesso, mas... tenho um amigo que está fazendo um estágio na MS, enviei um eMail para ele, solicitando informações a respeito. Assim que tiver um retorno te informo, pois isto muito me interessa também. Sérgio - PERSONAL LINS

Alguêm conhece alguma maneira de se colocar um botão a direita da barra de botões. DEFINE BUTTONBAR oBar 3d SIZE _LarCur, _AltCur OF oWnd DEFINE BUTTON Resource "sair1" OF oBar ; MESSAGE "Sair do Sistema" ; TOOLTIP "Sair do Sistema" ; ACTION oWnd:End() NOBORDER Desta forma os botões se posicionam um sempre após o outro, partindo da esquerda para direita, gostaria de colocar um ou mais botões isolados a direita da barra de botões. Sérgio - PERSONAL LINS

Fica doidão não !!! Aponte como se fosse um atalho da área de trabalho do windows. Ex: WinExec("c:\arquiv~1\outloo~1\msimn.exe") desta forma voce aciona o outlook, (base win98) Verifique no 2000 como é o atalho que voce precisa e faça igual. Como já te disse, configuro cada máquina que vai utilizar o sistema, junto tenho um arquívo com todos os parametros que vou precisar, inclusive os caminhos para programas que vou chamar pelo WinExec(). Caso voce ainda tenha dúvidas, (pretensão a minha) posso te enviar um exemplo OK. Sérgio - PERSONAL

Para todos um ótimo 2003, e tenho certeza que será. Aqui neste forun pude ver que realmente funciona a ajuda mutua, ao contrário do que tenho visto em outros foruns. Como já disse DESIS, "Nenhum de nós é tão bom quanto todos nós juntos". E eu espero fazer parte deste grupo seleto de colaboradores muito em breve. Abraços a todos, e em especial para aqueles que me ajudaram. Sergio - PERSONAL

Funciona sim. Eu uso no 98se, Me, XP. Só que eu configuro o sistema para a máquina. Faço modulo específico para configuração do sistema para cada maquina e/ou usuário. Ex. Terminal X = ambiente, resolução de monitor, etc... Usuário X = poderes, pano de fundo, etc...

A LÓGICA DE EINSTEIN Conta certa lenda, que estavam duas crianças patinando num lago congelado. Era uma tarde nublada e fria e as crianças brincavam despreocupadas. De repente, o gelo se quebrou e uma delas caiu, ficando presa na fenda que se formou. A outra, vendo seu amiguinho preso e se congelando, tirou um dos patins e começou a golpear o gelo com todas as suas forças, conseguindo por fim quebrá-lo e libertar o amigo. Quando os bombeiros chegaram e viram o que havia acontecido, perguntaram ao menino: - Como você conseguiu fazer isso? É impossível que tenha conseguido quebrar o gelo, sendo tão pequeno e com mãos tão frágeis! Nesse instante, um ancião que passava pelo local, comentou: - Eu sei como ele conseguiu. Todos perguntaram: - Pode nos dizer como? - É simples - respondeu o velho. - Não havia ninguém ao seu redor, para lhe dizer que não seria capaz. "Deus nos fez perfeitos e não escolhe os capacitados, capacita os escolhidos. Fazer ou não fazer algo só depende de nossa vontade e perseverança". Albert Einstein Quando Einstein disse isto, com certeza já sábia que no futuro existiria programadores. Um Feliz Natal a todos.

Para poder utilizar cores no campo When(.f.), no caso de ser numérico é so incrementar com RIGH, já no campo caracter quando se incrementa com RIGH lógicamente alinha a direita, porém permite colocar cores de frente e fundo. Para poder usar igualmente no campo caracter, passei a adicionar espaços em branco a esquerda a mais no campo. Ex: variavel := PadL("Exemplo de campo com cor",50) @ lin,col Get variavel Righ When(.f.) COLOR cor1,cor2

Alguem sabe como (se é possivel) manimular as mensagens do report. Ex Fivewin Report, e demais textos que aparecem en ingles. Outra coisa, enviar o relatorio diretamente para a impressora desejada, e não a default do windows.

Não sei se é certo, mas eu faço assim e funciona. apenas verifique no caminho correto no 2000. WinExec("c:\arquiv~1\outloo~1\msimn.exe") Para não ficar sem troco... aí vai uma perguntinha. No 2000 eu não consigo mostrar um pano de fundo com o comando Image, somente com BitMap, tens alguma idéia?

Estou usando o comando abaixo, para mostrar uma imagem como pano de fundo, No windows 98 tudo bem, no 2000, ou não mostra a imagem ou mostra com pau. Alguem sabe como resolver ? @ 0,0 Image FILE cFundo of oWnd Size 1024,680 ADJUST

Alguem pode me ajudar ??? memoRead Gostaria de evitar que o texto já entre pre-selecionado. Ocorre problema de distração e apaga tudo. Abaixo segue prg //------------------------ Function Observ() //------------------------ local oDlg, oGet local cText := "", cFile := pDirObs + "CL"+StrZero(_codcli,6) + ".txt", cCliente := _razcli SET 3DLOOK ON DEFINE DIALOG oDlg FROM 1,1 TO 25,70 TITLE "" FONT fArialb @ 1, 1 GET oGet VAR cText MEMO OF oDlg SIZE 257, 120 COLOR AZUL; ( oGet:VarPut( MemoRead( cFile ) ), oGet:Refresh(),; oDlg:cTitle := "Observações do Cliente : " + cCliente ) @ 08.5, 10 BUTTON "Salvar" OF oDlg Size 45,15 ACTION ( MemoWrit( cFile, cText ), MsgInfo( "Texto Salvo !!! " ) ) @ 08.5, 22 BUTTON "Fechar" OF oDlg Size 45,15 ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED Return(nil)

Será que existe uma maneira de mudar a cor de acionamento do checkbox, se alguem souber...

Como colocar uma imagem em um BUTTON. Ex: @ 10.8, 01.2 BUTTON botao0 PROMPT "Confirmar" OF P01a ACTION grava(oP01a) Size 45,15