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á

Ola pessoal Com a ajuda de muitos aqui no forum consegui fazer um modulo de senha que funciona perfeitamente. Porém ele fica no arquivo de funcoes.prg, agora quando o usuario entra no modulo de controle de entrada e saida de pecas, o sistema pede a senha se ele for autorizado blz, passa pela senha senão ele não consegue entrar. Ai vem minha duvida como que eu faço apos ele ser autorizado pela senha para pegar o nome de usuario dele o horario e a data e gravar isso em arquivo. Para saber depois quem foi que fez a cagada. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 17/02/2009 15:30:28

Ola pessoal Com a ajuda de muitos aqui no forum consegui fazer um modulo de senha que funciona perfeitamente. Porém ele fica no arquivo de funcoes.prg, agora quando o usuario entra no modulo de controle de entrada e saida de pecas, o sistema pede a senha se ele for autorizado blz, passa pela senha senão ele não consegue entrar. Ai vem minha duvida como que eu faço apos ele ser autorizado pela senha para pegar o nome de usuario dele o horario e a data e gravar isso em arquivo. Para saber depois quem foi que fez a cagada. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 17/02/2009 15:30:28

Ola Kbelo e Personal. Muito obrigado pela ajuda, agora deu certo funcionou coloquei como o personal me disse e depois como vc me postou juntei as duas dicas e funcionou legal. Muito obrigado mesmo. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Galera! O codigo é esse ai: DEFINE DIALOG oDlg RESOURCE 'Ord6' SELE 1 NomeOp:=Space(40) oDlg:Cargo:=.f. Redefine LISTBOX oLbx FIELDS open->ordem,dtoc(open->Datemis),open->placaopen,left(open->modelopen,23),left(open->nomecli,29),transform(open->totorc,'@E 999,999.99'),open->status HEADERS "Ordem","Dt.Entrada","Placa","Modelo","Cliente","Valor","Status" OF oDlg ID 101; ON LEFT DBLCLICK (EditServOpen(oLbx, .F. )); ON Change FiltroSer(vRec:=Open->Placaopen,Ordem->(DBgotop(),Ordem->(DBSeek(vRec) ) )) Update //on change FiltroSer(oLbx,xPlaca) alias 'Open' UpDate oLbx:aJustify = { .f., .f., .f., .f., .f., .f., .T., .f. } oLbx:bKeydown:={ |tecla| ; iif( tecla=VK_RETURN, ( oDlg:end() ),; iif( tecla=VK_ESCAPE, oDlg:end(), ) ) } Redefine RADIO oRadio VAR nOrden ID 108, 109; OF oDlg ON CHANGE OrdenServOpen(nOrden,oLbx) Redefine get oGet Var onomeop VAR nomeop Picture "@!K" Of oDLG Id 111 onomeop:bPostKey = { || Search( onomeop:oGet:buffer, 'open' ), oLbx:Refresh() } Redefine ButtonBMP obtn Prompt " &Sair" BITMAP "Cancel" TEXTRIGHT id 701 of oDlg ACTION oDlg:End(beep(5)) ACTIVATE DIALOG oDlg CENTERED ON PAINT GradioDlg( oDlg,"Pesquisa Serviços Realizados", 'SAO - JmS',,'Tecmar1' ) close all return Nil ******************************************* FUNCTION EditServOpen(oLbx) ******************************************* local oDlg,oLbx2 local lFivePro local lDialog local lSave := .f. local opcao local nOldRec := RecNo() local wPlac, wOrde Local mDad:={} mmnumero := ordem mdatemis := datemis mdtentreg := dtentrega mhoremis := horemis xplaca := placaopen mano := anopen mmodelo := modelopen mcor := left(coropen,10) mcombust := combustope mkm := km dat_fecha := datfecha mcodcli := codcli xcodcli := codcli mnomecli := nomecli mdocumento := documento mender := endereco mbairro := substr(bairro,1,20) mcidade := cidade mfone := fone mfax := fax mcep := cep cVetor := {} DEFINE DIALOG oDlg RESOURCE 'PESCSERV' oDlg:Cargo:=.f. *----------------------------------------------- * Localiza o Veiculo caso exista traz na tela * os dados do mesmo para serem utilizados. Redefine get oget Var xPlaca Picture "!!!-9999" ID 101 OF oDlg when .f. Redefine get oget Var mModelo Picture "@!" ID 102 OF oDlg when .f. Redefine get oget Var mano Picture "@!" ID 103 OF oDlg when .f. Redefine get oget Var mCor Picture "@!" ID 104 OF oDlg when .f. Redefine get oget Var mcodcli Picture "!!/9999-9" ID 105 OF oDlg when .f. Redefine get oget Var mnomecli Picture "@!" ID 106 OF oDlg when .f. Redefine get oget Var mdocumento Picture "@!" ID 107 OF oDlg when .f. Redefine get oget Var mender Picture "@!" ID 108 OF oDlg when .f. Redefine get oget Var mbairro Picture "@!" ID 109 OF oDlg when .f. Redefine get oget Var mcep Picture "@!" ID 110 OF oDlg when .f. Redefine get oget Var mcidade Picture "@!" ID 111 OF oDlg when .f. Redefine get oget Var mfone Picture "(!!)!999-9999" ID 112 OF oDlg when .f. *Redefine LISTBOX oLbx2 FIELDS ordem->Num_os,dtoc(ordem->Dataitens),Subst(trim(ordem->codigo),1,13),left(Ordem->Descricao,25),STR(Ordem->Quantidade),STR(Ordem->Unitario),Transform(Ordem->Valor,'@E 999,999.99'),Ordem->Servico; do while .not. eof() if xPlaca = ordem->placa aadd(cVetor,{ordem->Num_os,dtoc(ordem->Dataitens),Subst(trim(ordem->codigo),1,13),left(Ordem->Descricao,25),STR(Ordem->Quantidade),STR(Ordem->Unitario),Transform(Ordem->Valor,'@E 999,999.99'),Ordem->Servico}) endif skip enddo Redefine LISTBOX oLbx2 FIELDS cVetor[oLbx2],cVetor[oLbx2],cVetor[oLbx2],cVetor[oLbx2],cVetor[oLbx2],cVetor[oLbx2],cVetor[oLbx2],cVetor[oLbx2]; HEADERS "Ordem","Data","Codigo",OemToAnsi("Descri‡Æo"),"Qtda","Vl. Unit.","Valor",OemToAnsi("Servi‡o") ID 114 OF oDlg ; alias 'Ordem' UPDATE oLbx2:aJustify = { .f., .f., .f., .f., .t., .t., .t., .f. } Redefine ButtonBMP obtn Prompt " &Aceitar" BITMAP "Aceita" TEXTRIGHT id 701 of oDlg Action (lSave:=.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,"Serviços Realizados", 'SAO - JmS',,'Tecmar1' ) sele 1 return .t. [code] Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Kbelo! Tbm não fumegou ele trava o sistema Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ol JC! Agora funcionou obrigado pela ajuda valeu mesmo. Ufa consegui. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Galera! Estou tbm com esse pipino: Ele trava e não sai do lugar, tem alguma coisa erra, não estou conseguindo. Se alguém souber me diga. DEFINE DIALOG oDlg RESOURCE 'PESCSERV' oDlg:Cargo:=.f. *----------------------------------------------- * Localiza o Veiculo caso exista traz na tela * os dados do mesmo para serem utilizados. Redefine get oget Var xPlaca Picture "!!!-9999" ID 101 OF oDlg when .f. Redefine get oget Var mModelo Picture "@!" ID 102 OF oDlg when .f. Redefine get oget Var mano Picture "@!" ID 103 OF oDlg when .f. Redefine get oget Var mCor Picture "@!" ID 104 OF oDlg when .f. Redefine get oget Var mcodcli Picture "!!/9999-9" ID 105 OF oDlg when .f. Redefine get oget Var mnomecli Picture "@!" ID 106 OF oDlg when .f. Redefine get oget Var mdocumento Picture "@!" ID 107 OF oDlg when .f. select 3 set order to tag vei_ord seek xplaca do while .not. eof() if xPlaca = ordem->placa aadd(cVetor,{ordem->Num_os,dtoc(ordem->Dataitens),Subst(trim(ordem->codigo),1,13),left(Ordem->Descricao,25),STR(Ordem->Quantidade),STR(Ordem->Unitario),Transform(Ordem->Valor,'@E 999,999.99'),Ordem->Servico}) else skip loop endif if eof() exit endif enddo Redefine LISTBOX oLbx2 FIELDS cVetor[1],cVetor[2],cVetor[3],cVetor[4],cVetor[5],cVetor[6],cVetor[7],cVetor; HEADERS "Ordem","Data","Codigo",OemToAnsi("Descri‡Æo"),"Qtda","Vl. Unit.","Valor",OemToAnsi("Servi‡o") ID 114 OF oDlg ; alias 'Ordem' UPDATE oLbx2:aJustify = { .f., .f., .f., .f., .t., .t., .t., .f. } redefine ButtonBMP ..... id=code>id=code>Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 15/02/2009 15:15:41

Ola Galera! Estou tbm com esse pipino: Ele trava e não sai do lugar, tem alguma coisa erra, não estou conseguindo. Se alguém souber me diga. DEFINE DIALOG oDlg RESOURCE 'PESCSERV' oDlg:Cargo:=.f. *----------------------------------------------- * Localiza o Veiculo caso exista traz na tela * os dados do mesmo para serem utilizados. Redefine get oget Var xPlaca Picture "!!!-9999" ID 101 OF oDlg when .f. Redefine get oget Var mModelo Picture "@!" ID 102 OF oDlg when .f. Redefine get oget Var mano Picture "@!" ID 103 OF oDlg when .f. Redefine get oget Var mCor Picture "@!" ID 104 OF oDlg when .f. Redefine get oget Var mcodcli Picture "!!/9999-9" ID 105 OF oDlg when .f. Redefine get oget Var mnomecli Picture "@!" ID 106 OF oDlg when .f. Redefine get oget Var mdocumento Picture "@!" ID 107 OF oDlg when .f. select 3 set order to tag vei_ord seek xplaca do while .not. eof() if xPlaca = ordem->placa aadd(cVetor,{ordem->Num_os,dtoc(ordem->Dataitens),Subst(trim(ordem->codigo),1,13),left(Ordem->Descricao,25),STR(Ordem->Quantidade),STR(Ordem->Unitario),Transform(Ordem->Valor,'@E 999,999.99'),Ordem->Servico}) else skip loop endif if eof() exit endif enddo Redefine LISTBOX oLbx2 FIELDS cVetor[1],cVetor[2],cVetor[3],cVetor[4],cVetor[5],cVetor[6],cVetor[7],cVetor; HEADERS "Ordem","Data","Codigo",OemToAnsi("Descri‡Æo"),"Qtda","Vl. Unit.","Valor",OemToAnsi("Servi‡o") ID 114 OF oDlg ; alias 'Ordem' UPDATE oLbx2:aJustify = { .f., .f., .f., .f., .t., .t., .t., .f. } redefine ButtonBMP ..... id=code>id=code>Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 15/02/2009 15:15:41

Ola JC Coloquei assim: Redefine ButtonBMP obtn Prompt " &Incluir" BITMAP "Incluir" TEXTRIGHT id 701 of oDlg Action( iif( PedSenha2(), IncRec( oLbx, .T. ), ) ) //Porem esta do mesmo jeito se cancelar abre o mesmo jeito o modulo de cadastro, e se errar a senha 3X tbm entra no modulo. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná

Ola Vagner! Redefine ButtonBMP obtn Prompt " &Incluir" BITMAP "Incluir" TEXTRIGHT id 701 of oDlg Action(Iif(Senha(),IncRec(oLbx,.t.))) //ACTION IncRec(oLbx,.t.) id=code>id=code>coloquei assim mas deu erro: parse error at ')' Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná