jdmoura

AreaExis_get:=0.00 // Area Existente AreaConst_get:=0.00 // Area Construida AreaTotal_get:=0.00 // Area Total AreaReal_get :=0.00 // Variavel para calculo da Area Total Redefine Get oGet Var AreaExis_get picture "@E 999999.99" ID 120 OF oDlg Redefine Get oAreaConst_get Var AreaConst_get picture "@E 999999.99" VALID (CalcArea(oAreaConst_get)) ID 121 OF oDlg //Redefine Get oGet Var AreaConst_get picture "@E 999999.99" ID 121 OF oDlg AreaTotal_get:=AreaExis_get + AreaConst_get Redefine Get oAreaConst_get Var AreaTotal_get picture "@E 999999.99" ID 122 OF oDlg When .f. //RedefineGet AreaTotal_get picture "@E 999999.99" ID 122 OF oDlg //When .f. * ----------- Calculo da Total da Area STATIC FUNCTION CalcArea(oAreaConst_get) AreaTotal:=AreaExis_get+AreaConst_get oAreaConst_get:Varput(AreaTotal_get) oAreaConst_get:REFRESH() RETURN .t. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola pessoal vcs entenderão a minha dúvida. Caso alguem saiba como resolver isso por favor me explique. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola pessoal estou com um probleminha aqui! Preciso fazer um mapeamento de rede em um notebook que tem windows7 e o outro pc tem o XP, porem do note para o pc normal mas do pc para o note não consigo achar o C: do note, porém já fiz o compartilhamento da unidade c: do note, mesmo assim não consegui achar o Raiz C: do notebook no mapeamento do pc com o XP. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 25/02/2010 20:04:34

Ola pessoal estou com um probleminha aqui! Preciso fazer um mapeamento de rede em um notebook que tem windows7 e o outro pc tem o XP, porem do note para o pc normal mas do pc para o note não consigo achar o C: do note, porém já fiz o compartilhamento da unidade c: do note, mesmo assim não consegui achar o Raiz C: do notebook no mapeamento do pc com o XP. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 25/02/2010 20:04:34

Ola Cristiano! Rapazz valeu vou fazer isso qlq coisa eu posto novamente. Obrigado a todos pela ajuda. Abraços Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola galera! Alguem pode me ajudar estou precisando instalar o clipper no windows 7, porem não consigo entrar no autoexec.bat e config.sys do windows 7 Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 25/01/2010 22:09:04

Ola galera! Alguem pode me ajudar estou precisando instalar o clipper no windows 7, porem não consigo entrar no autoexec.bat e config.sys do windows 7 Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 25/01/2010 22:09:04

Ola Galera! Funcionou agora funcionou legarl usei o HB_Crypt( cText, cKey ) Deu certo, muito obrigado mesmo. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Lainton! Eu coloquei, porém eu percebi que a senha encriptada no DBF, não é a mesma que o usuario digita. Sendo que eu usei a mesma função para encriptar as duas tanto a do DBF de Usuarios como ao que o usuario digita. a função é encrypt(cVariavel). Observei que quando ele encripta e salva no dbf de usuarios, fica diferente quando ele digita a mesma senha para ser localizada no dbf de usuarios. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Anderson Tem o mesmo tamanho caracter de 12 os dois primeiros usuario não tem problema algum mas do terceiro usuario para frente ele da senha erra. xUser := space(20) do while .T. xSenha := space(12) DEFINE DIALOG oDlg RESOURCE 'Senha4' oDlg:Cargo:=.f. Redefine get oGet VAR xUser pict "@!" ID 101 of oDlg Redefine get oGet VAR xSenha pict "@!" ID 102 of oDlg valid !empty(xSenha) Redefine ButtonBMP obtn Prompt " &Aceitar" BITMAP "Aceita" TEXTRIGHT id 701 of oDlg Action (oDlg:Cargo := .T.,oDlg:End(Beep(5))) Redefine ButtonBMP obtn Prompt " &Rejeitar" BITMAP "Cancel" TEXTRIGHT id 702 of oDlg Action odlg:end(beep(5)) ACTIVATE DIALOG oDlg CENTERED ON PAINT GradioDlg( oDlg,"Senha Acesso", 'SAO - JmS',,'Tecmar1' ) if !odlg:cargo exit endif vUser := left(xUser,2) vSenha := encrypt(xSenha+vUser) sele 100 set order to tag Sen_SHA seek vsenha if alltrim(vSenha) != alltrim(Senha->Pass) beep(5) MsgAlert(OemToAnsi("Acesso Negado. Senha Invalida !!!"),OemToAnsi("Aten‡Æo")) loop else ......... endif .... enddo id=code>id=code>Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Galera! Estou com um probleminha eu fiz um castro de usuario do qual eu uso a função encrypt() do FW para encriptar a senha porem qndo o usuario vai entrar no sistema em vez de descriptar a senha eu encripto a senha digita pelo usuario e comparo com a que esta no dbf já encriptada. Com os dois primeiros blz ma agora apartir do terceiro usuario cadastrado ela da senha erra. Alguem pode me ajudar. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 18/02/2009 10:55:40

Ola Galera! Estou com um probleminha eu fiz um castro de usuario do qual eu uso a função encrypt() do FW para encriptar a senha porem qndo o usuario vai entrar no sistema em vez de descriptar a senha eu encripto a senha digita pelo usuario e comparo com a que esta no dbf já encriptada. Com os dois primeiros blz ma agora apartir do terceiro usuario cadastrado ela da senha erra. Alguem pode me ajudar. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 18/02/2009 10:55:40

Ola Galera! Blz funcionou legal, muito obrigado pela colaboração de todos. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Sambomb! Blz, eu agrescentei o campo processo no dbf, o que eu não entendi foi: Como eu faço vamos supor que eu esteja no modulo de cadastro de usuarios, porem para entrar nesse modulo o sistema pede a senha de autorização, como eu faço para pegar o nome do modulo e gravar no arquivo de senha no campo processo. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Evaldo Wagner! Só não entendi como pegar o nome do módulo e gravar no campo processo. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná