ZECA

citação:Ola Jose Carlos.. Gostaria de saber se o problema foi resolvido, vc. sumiu sem dar resposta. E Seu email nao tá mas recebendo minhas menssagens... Abraços.. LUIZ ARRUDA - Corumba-MS FW 2.4 - CLP 5.3 - WS - Windows XP iko67@ibest.com.br id=quote>id=quote>Ola LUIZ ARRUDA Como sempre muito trabalho. Mas ontem cometi um sacrilegio e quero redimir agora. VOCE TAMBEM É SHOW DE BOLA. Fique tranquilo que eu ainda vou "pertubar" muito voce. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

O problema da SENHA foi resolvido com a interferencia do MARLON(o cara é show de bola mesmo !!!) Agora gostaria de saber como mudar o titulo da DIALOG durante a execução. grato Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

O problema da SENHA foi resolvido com a interferencia do MARLON(o cara é show de bola mesmo !!!) Agora gostaria de saber como mudar o titulo da DIALOG durante a execução. grato Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

O problema da SENHA foi resolvido com a interferencia do MARLON(o cara é show de bola mesmo !!!) Agora gostaria de saber como mudar o titulo da DIALOG durante a execução. grato Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde a Todos Estou criando uma senha de acesso em um DIALOG. Neste DIALOG existem codigo(N),nome© e senha©. O que eu gostaria que acontecesse é que quando digitasse algo errado ele desse um REFRESH, limpando todos os campos. Segue abaixo parte de meu codigo: FUNCTION CONFERESENHA() local oDlg, oGet, oId, oGet2, oGet3, oBtn, oBtn2 local cPassword := Space( 10 ), cPsw2 := Space( 10 ), nTries:= 0,lGo := .F. DEFINE DIALOG oDlg RESOURCE "ChekaUsur" oDlg:LHELPICON := .F. // Desliga a "?" da Caixa de Dialogo. Set Font Of oDlg To oDlFont REDEFINE BITMAP oLogo ID 40 OF oDlg RESOURCE "MAXIMA" ADJUST REDEFINE GET oGet VAR nOper PICTURE "9999" ID 35 OF oDlg VALID IdUsu(nOper, @cOper, @cPswr, oDlg,@oGet,@lGo) REDEFINE GET oGet2 VAR cOper ID 36 OF oDlg UPDATE REDEFINE GET oGet3 VAR cPsw2 ID 38 OF oDlg REDEFINE SBUTTON oBtn ID 103 RESOURCE "Senha" OF oDlg ; ACTION ( nTries++,; lGo := ( Upper( cPsw2 ) == UPPER( cPswr ) ),; If( nTries > 2 .or. lGo, oDlg:End(),; ( MsgAlert( "Senha inválida!","Atenção" ),oDlg:Refresh(),oGet:SetFocus() ) ) ); PROMPT " Senha " TOOLTIP "Verifica a Senha "; TEXT ON_RIGHT LOOK W97 REDEFINE SBUTTON oBtn2 ID 104 RESOURCE "Sair" OF oDlg ACTION (lGo := .F.,oDlg:End()); PROMPT " Sair " TOOLTIP "Sair da Senha"; TEXT ON_RIGHT LOOK W97 ACTIVATE DIALOG oDlg CENTERED RETURN lGo STATIC FUNCTION IdUsu(nOper, cOper,oGet,oGet2,oGet3,lGo) LOCAL lFnd, oOldDb lFnd := .F. IF ! FILE("SENHA.DBF") RETURN .T. ENDIF oOldDb := SELECT() USE SENHA SHARED NEW ordListClear() OrdListAdd("CODIGO", "NOME") PESSOAL->(DBGOTOP()) IF SENHA->(EOF()) CLOSE SENHA SELECT(oOldDb) RETURN .T. ENDIF IF SENHA->(DBSEEK(nOper)) cPswr := PESSOAL->SENHA cOper := PESSOAL->ITEM02 ELSE MsgAlert(OemToAnsi("Este funcion rio nÆo tem senha cadastrada."),"Sem senha") lFnd:=.F. lGo:=.F. ENDIF lFnd := .T. ELSE MsgStop(OemToAnsi("Codigo Inexistente!"),OemToAnsi("Aten‡Æo !")) lFnd:=.F. lGo:=.F. nOper:= 0 oGet:Refresh() // oDlg:Refresh() // ENDIF CLOSE SENHA SELECT(oOldDb) oDlg:UpDate() RETURN lFnd Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde a Todos Estou criando uma senha de acesso em um DIALOG. Neste DIALOG existem codigo(N),nome© e senha©. O que eu gostaria que acontecesse é que quando digitasse algo errado ele desse um REFRESH, limpando todos os campos. Segue abaixo parte de meu codigo: FUNCTION CONFERESENHA() local oDlg, oGet, oId, oGet2, oGet3, oBtn, oBtn2 local cPassword := Space( 10 ), cPsw2 := Space( 10 ), nTries:= 0,lGo := .F. DEFINE DIALOG oDlg RESOURCE "ChekaUsur" oDlg:LHELPICON := .F. // Desliga a "?" da Caixa de Dialogo. Set Font Of oDlg To oDlFont REDEFINE BITMAP oLogo ID 40 OF oDlg RESOURCE "MAXIMA" ADJUST REDEFINE GET oGet VAR nOper PICTURE "9999" ID 35 OF oDlg VALID IdUsu(nOper, @cOper, @cPswr, oDlg,@oGet,@lGo) REDEFINE GET oGet2 VAR cOper ID 36 OF oDlg UPDATE REDEFINE GET oGet3 VAR cPsw2 ID 38 OF oDlg REDEFINE SBUTTON oBtn ID 103 RESOURCE "Senha" OF oDlg ; ACTION ( nTries++,; lGo := ( Upper( cPsw2 ) == UPPER( cPswr ) ),; If( nTries > 2 .or. lGo, oDlg:End(),; ( MsgAlert( "Senha inválida!","Atenção" ),oDlg:Refresh(),oGet:SetFocus() ) ) ); PROMPT " Senha " TOOLTIP "Verifica a Senha "; TEXT ON_RIGHT LOOK W97 REDEFINE SBUTTON oBtn2 ID 104 RESOURCE "Sair" OF oDlg ACTION (lGo := .F.,oDlg:End()); PROMPT " Sair " TOOLTIP "Sair da Senha"; TEXT ON_RIGHT LOOK W97 ACTIVATE DIALOG oDlg CENTERED RETURN lGo STATIC FUNCTION IdUsu(nOper, cOper,oGet,oGet2,oGet3,lGo) LOCAL lFnd, oOldDb lFnd := .F. IF ! FILE("SENHA.DBF") RETURN .T. ENDIF oOldDb := SELECT() USE SENHA SHARED NEW ordListClear() OrdListAdd("CODIGO", "NOME") PESSOAL->(DBGOTOP()) IF SENHA->(EOF()) CLOSE SENHA SELECT(oOldDb) RETURN .T. ENDIF IF SENHA->(DBSEEK(nOper)) cPswr := PESSOAL->SENHA cOper := PESSOAL->ITEM02 ELSE MsgAlert(OemToAnsi("Este funcion rio nÆo tem senha cadastrada."),"Sem senha") lFnd:=.F. lGo:=.F. ENDIF lFnd := .T. ELSE MsgStop(OemToAnsi("Codigo Inexistente!"),OemToAnsi("Aten‡Æo !")) lFnd:=.F. lGo:=.F. nOper:= 0 oGet:Refresh() // oDlg:Refresh() // ENDIF CLOSE SENHA SELECT(oOldDb) oDlg:UpDate() RETURN lFnd Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde a Todos Estou criando uma senha de acesso em um DIALOG. Neste DIALOG existem codigo(N),nome© e senha©. O que eu gostaria que acontecesse é que quando digitasse algo errado ele desse um REFRESH, limpando todos os campos. Segue abaixo parte de meu codigo: FUNCTION CONFERESENHA() local oDlg, oGet, oId, oGet2, oGet3, oBtn, oBtn2 local cPassword := Space( 10 ), cPsw2 := Space( 10 ), nTries:= 0,lGo := .F. DEFINE DIALOG oDlg RESOURCE "ChekaUsur" oDlg:LHELPICON := .F. // Desliga a "?" da Caixa de Dialogo. Set Font Of oDlg To oDlFont REDEFINE BITMAP oLogo ID 40 OF oDlg RESOURCE "MAXIMA" ADJUST REDEFINE GET oGet VAR nOper PICTURE "9999" ID 35 OF oDlg VALID IdUsu(nOper, @cOper, @cPswr, oDlg,@oGet,@lGo) REDEFINE GET oGet2 VAR cOper ID 36 OF oDlg UPDATE REDEFINE GET oGet3 VAR cPsw2 ID 38 OF oDlg REDEFINE SBUTTON oBtn ID 103 RESOURCE "Senha" OF oDlg ; ACTION ( nTries++,; lGo := ( Upper( cPsw2 ) == UPPER( cPswr ) ),; If( nTries > 2 .or. lGo, oDlg:End(),; ( MsgAlert( "Senha inválida!","Atenção" ),oDlg:Refresh(),oGet:SetFocus() ) ) ); PROMPT " Senha " TOOLTIP "Verifica a Senha "; TEXT ON_RIGHT LOOK W97 REDEFINE SBUTTON oBtn2 ID 104 RESOURCE "Sair" OF oDlg ACTION (lGo := .F.,oDlg:End()); PROMPT " Sair " TOOLTIP "Sair da Senha"; TEXT ON_RIGHT LOOK W97 ACTIVATE DIALOG oDlg CENTERED RETURN lGo STATIC FUNCTION IdUsu(nOper, cOper,oGet,oGet2,oGet3,lGo) LOCAL lFnd, oOldDb lFnd := .F. IF ! FILE("SENHA.DBF") RETURN .T. ENDIF oOldDb := SELECT() USE SENHA SHARED NEW ordListClear() OrdListAdd("CODIGO", "NOME") PESSOAL->(DBGOTOP()) IF SENHA->(EOF()) CLOSE SENHA SELECT(oOldDb) RETURN .T. ENDIF IF SENHA->(DBSEEK(nOper)) cPswr := PESSOAL->SENHA cOper := PESSOAL->ITEM02 ELSE MsgAlert(OemToAnsi("Este funcion rio nÆo tem senha cadastrada."),"Sem senha") lFnd:=.F. lGo:=.F. ENDIF lFnd := .T. ELSE MsgStop(OemToAnsi("Codigo Inexistente!"),OemToAnsi("Aten‡Æo !")) lFnd:=.F. lGo:=.F. nOper:= 0 oGet:Refresh() // oDlg:Refresh() // ENDIF CLOSE SENHA SELECT(oOldDb) oDlg:UpDate() RETURN lFnd Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Pessoal, é off-topic, mas tenho certeza que de grande interesse a todos desta lista. http://bdn.borland.com/article/0,1410,33439,00.html viva o FIVEWIN!!!!!!!!!!!!!!!!!! Abraços ! Alexandre E.Luiz id=quote>id=quote>Viva o FIVEWIN até quando ??? Aproveito o ensejo para externar o meu desapontamento. Antes quero esclarecer que ainda estou tentando transformar meu sistema de CLIPPER para FIVEWIN. Como demorei um pouco, a grande maioria do pessoal está programando em HARBOUR e outras coisas mais. Por exemplo: quando retiro um exemplo, penso que é para FW, descubro que é para HARBOUR. Quando digito FIVEWIN no GOOGLE aparece sempre os mesmo sites, sendo que a grande maioria estão a mais de um ano sem nenhuma atualização. Ninguém coloca exemplos proximos daquilo que precisamos. Ninguém se preocupa em detalhar os exemplos. Este site, por exemplo, para aqueles que já passaram do FW para o HARBOUR é perfeito, mas para mim que tive um pequeno desencanto e parei um pouco e para os estão começando é extremamente complexo. Acho que deveria separar o que é FW e o que HARBOUR, por exemplo. Colocar exemplos mais proximos daquilos que precisamos; por exemplo: ROTINAS PARA ACESSO AOS SISTEMAS(SENHAS), ROTINAS PARA INDEXAÇÃO DE ARQUIVOS e por ai afora. Gostaria de lembrar a todos que estão no topo da piramide da sabedoria(seja no FW ou HARBOUR)que um dia foram base. Sem novas bases(como eu por exemplo) não haverá novas piramides e o FW corre serio risco. Outro dia vi algumas telas sensacionais e pensei: um dia farei desta forma também. Para minha surpresa parece que estão em HARBOUR(não sei direito porque quem fez não explicou como fez). Há horas em que este site parece uma passarela onde desfilam as mais lindas telas. Mas só desfilam porque que fez apenas quer mostrar. Como disse no começo deste desabafo, parei(provisoriamente) com o FW até que surja um fato novo que restabeleça uma motivação. TODOS os dias(RELIGIOSAMENTE) abro este site e outros(PATRICK MAST,PUERTOSUR,PROMETHEUS) e digito FIVEWIN no GOOGLE e não vejo nada diferente. porisso a pergunta: Viva o FIVEWIN até quando ??? Desculpe pelo desabafo, mas ainda acho que o futuro do CLIPPER passa pelo FIVEWIN. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Desculpe a todos , mas fiquei tão empolgado com a noticia que estou postanto aqui. Fonte revista info exame edição dezembro http://info.abril.com.br/aberto/infonews/112005/25112005-4.shl SÃO PAULO – O Java é a linguagem preferida para desenvolvimento corporativo. É o que aponta estudo realizado pelo Grupo Impacta com as 2.000 maiores empresas brasileiras. O relatório "Desenvolvimento de Sistemas das Grandes Corporações" colocou a linguagem da Sun como preferida por 19,3% dos entrevistados. Na seqüência, veio o Visual Basic.net, com 18,3%, o Delphi, com 15,3%, e o Cobol, com 14%. Uma observação importante é que, empatado em segundo lugar com os mesmos 18,3%, aparece o Clipper, que ainda empurra muitas aplicações corporativas desenvolvidas para MS-DOS. == Isto muito me alegra porque sabemos do potencial da linguagem que trabalhos , mas muito desacreditada por todos e isto vem a provar o nosso potencial que ainda estamos no mercado com muita força. grato a todos Marcio Tullio sunset@sunset.eti.br Clipper 5.2e, Fw 2.3c , Blinker 7.0. id=quote>id=quote>Olá a Todos !!! Isto só vem provar que os criadores do CLIPPER jogaram uma mina de ouro no lixo quando se negaram a fazer uma ferramenta visual decente para o mesmo. Parece que eles estão "fuçando" no lixo para tentar retomar o CLIPPER mas a essas alturas do campeonato é muito tarde pois o CLIPPER praticamente se tornou uma linguagem publica. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Por caso alguem sabe como fazer para o sistema não ir perdendo recursos a medida que vai usando, pois ja dou release em todas as variaveis, utilizo variaveis locais e memvar e dou relaese nas mesmas e mesmo assim meu sistema esta perdendo recursos significamente a medida que vai sendo usado chegando ao ponto de ter que sair entrar de novo para o sistema se recuperar. Utilizo xHarbour neste sistema! Marcelo Gomes elitenet@terra.com.br FW 2.3C/CLIPPER 5.2E/BLINKER 7.0 id=quote>id=quote>Boa tarde MARCELO !!! Este problema ocorre só com o xHarbour ? Estou perguntando porque estou migrando para o FIVEWIN e este problema me assusta. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Oi Kapi Obrigado pela atenção. Preocedí conforme recomendado, só que agora piorou, pois ao compilar o sistema ocorre o seguinte erro em cada módulo: Fatal C3032 Can´t create intermediate file Paulo id=quote>id=quote>Ola PAULO !!! Antes que mandem voce jogar o computador no lixo, tente entender o erro: este erro significa que o COMPILADOR nao conseguiu criar no disco o arquivo temporario que é utilizado durante a compilação. Verifique se vc temp C:\WINDOWS\TEMP. Caso tenha, verifique se o clipper reconhece este diretorio como o seu TEMP. /*/ F:250 //DYNF:8 //SWAPK:65535 //TEMPPATH:"C:\TEMP" //SWAPPATH:"C:\TEMP" /*/ 1. Em redes, certifique-se de estar autorizado a criar o arquivo no diretorio onde está sendo feita a compilação. 2. Compile usando a opção /T para gravar os arquivos objetos em outro drive ou diretorio(caso queira) Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Oi Kapi Obrigado Inclui no meu lnk o que vc enviou, porem não adiantou nada, o erro continua o mesmo. (Como disse anteriormente, mas nem com reza braba) Eis o erro: Error occurred at: 10/10/2005, 18:13:50 Error description: Error BASE/1072 Argument error: <> Args: [ 1] = A { ... } Array [ 2] = N 0 Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TDBTNBMP:INITCOORS(779) Bye Paulo id=quote>id=quote>Bom dia PAULO !!! Não podemos esquecer que por baixo do FW existe o CLIPPER. E este erro é tipico do CLIPPER. BASE/1072 - argument error: <> Os argumentos especificados para os operadores <>,# ou != são do tipo de dados incompativeis. Comece tentando resolver seu problema por ai. Pode ser que falte alguns .CH. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Olá, Uma vez eu respondi que até os meus 100 anos, estarei programando, depois o que vier é lucro , estou com 42 e nem me lembro mais quando comecei a trabalhar com programação, entrei com uma linguagem que poucos ou ninguém aqui deve conhecer, era o KBasic, depois veio o MBasic e só depois veio o DBase, isso em CPM, o MBasic dessas 3 era a única que criava um .Exe, o restante era rodado diretamente no fonte, e muitos já programavam em C e Assembler, eu gostei muito do DBase, depois que passou para DOS veio o DBase II e aí seguiu para o Dbase III... no Dbase II apareceu um camarada chamado Clipper, que nada mais era do que um compilador para o DBase II, onde deixavamos de rodar com o DBRun onde rodava um pseudo compilador do DBase II, bom mas voltando ao assunto , eu pretendo programar muito tempo aind, pois adoro isso, se bem que as vezes dá vontade de mandar tudo a ..... e montar um bar, mas aí eu paro e penso, se montar um bar vou a falência, tomarei todas (hehehehehe), e volto a programar, quanto a idéia de entrar em contato com faculdades, acho muito interessante, eu tento ensinar o que eu sei, só assim saberei que qdo estiver com os meus 100 aninhos , ainda estarei por aqui aprendendo e ensinando, ainda falta um tempinho para eu, estou com 42 igual ao Kapiaba, alias ele é um mês mais velho (hehehehe) Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>Bom dia Vagner !!! Quando dei minha opinião propositalmente deixei de citar minha idade(cinco ponto zero). Parece que encontrei alguem que passou por tudo que eu passei. Voce "apenas" esqueceu de dizer que usavamos, como editor de texto o famoso VEDIT64, SIDEKICK E WORDSTAR(hehehehehehehehe). Para matar minha saudade hoje uso o EDITPADPRO, só que criei um arquivo batch chamado VEDIT que chama o editpadpro. Ai quando chamo qualquer programa eu uso VEDIT INCLCLI.PRG(por exemplo) Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde EVALDO H.C. !!! Esta bola erguida por vc vem justamente ao encontro daquilo que eu venho pensando a respeito de PROGRAMAÇÃO. Eu acho que para o FW se perpetuar e ganhar STATUS de linguagem precisa que os "PAIS" dele deem mais atenção. Eu posso falar de camarote porque adoro o CLIPPER e estou começando no FW(vide minhas estrelas). Uma boa linguagem se faz com um bom suporte. O FW não possui um bom suporte porque o "PAI" disparou a colocar "FILHOS" no mundo(FW 1.92, FW 1.95, FW 2.2 e por ai afora) e se esqueceu de "dar educação"(suporte) aos filhos que fez. Ai, cabe aos "Padrastos" pelo mundo afora (GILMER e VAGNER, por exemplo, no BRASIL) tentarem educar os filhos da melhor maneira possivel. Mas isto se acaba tornando uma missao HERCULEA porque faltam muitas coisas para estas crianças e sempre aparece mais uma. Voce poder notar pelo excesso de perguntas REPETITIVAS que ocorrem neste FORUM, com muitas respostas sem sentido. Todo mundo no afã de querer ajudar acaba embaralhando mais a cabeça de quem está apenas começando(como eu). É um tal de misturar versões diferentes do FW com HARBOUR. Aqui vai uma sugestão para aqueles que querem ajudar. ANTES DE RESPONDER, VERIQUE: As versoes do CLIPPER,FW,BLINKER e RDD usados por quem tem duvida. A verdade é que ultimamente pergunto de FW e acabo tomando do HARBOUR(é só um trocadilho) Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:é pra já !!!! citação:Ola gilberto será que nao dava pra madar pra mim tambem. Agradeço desde já. alissonstyle@hotmail.com id=quote>id=quote> id=quote>id=quote>Ola gilberto !!! Mande pra mim também. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Olá Zeca... Se você utiliza Arquivos de Indices tipo NTX ou CDX, troque o índice ativo de acordo com a escolha dos Radios Buttons. Após tornar o índice ativo, acrescente o comando DBGOTOP(). Caso utilize SQL ou outro Tipo de Banco de Dados, é só aplicar a mesma regra, obdecendo as características de cada Banco de Dados. um abraço Valdir - Jundiaí - S.P. FW23/CLIP52E/BLINKER7 Prestigiem o III Encontro de Usuários de Fivewin Acesse http://www.installsis.com.br/encontro e faça a sua Inscrição... Eu já fiz a minha e Você ??? id=quote>id=quote>Bom dia VALDIR !!! O problema não é este. Eu disse que tudo funciona beleza.Só que quando mudo de indice(por exemplo NOME para ENDEREÇO) consigo localizar o Endereco do cliente mas o radiobutton do NOME continua setado juntamente com o do ENDERECO. Caso eu passe do ENDERECO para FONE por exemplo ai fica setado NOME, ENDEREÇO e FONE(e assim por diante). Pelo que sei, quando eu passo de NOME para ENDEREÇO por exemplo o radiobuttom do NOME "apaga" e ficaria selecionado somente o radiobuttom do ENDEREÇO. O que estou querendo saber é como dar REFRESH no radiobutton para ficar somente a opção selecionada. O outro problema é que no BROWSE o nome selecionado é sempre o ultimo a aparecer após e pesquisa. por exemplo: JOSE CARLOS. quando digito J o browse começa descer.ai vem o O e desce mais até que quando termino de digitar o nome ele situa-se na ultima linha do BROWSE. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:Olá Zeca... Se você utiliza Arquivos de Indices tipo NTX ou CDX, troque o índice ativo de acordo com a escolha dos Radios Buttons. Após tornar o índice ativo, acrescente o comando DBGOTOP(). Caso utilize SQL ou outro Tipo de Banco de Dados, é só aplicar a mesma regra, obdecendo as características de cada Banco de Dados. um abraço Valdir - Jundiaí - S.P. FW23/CLIP52E/BLINKER7 Prestigiem o III Encontro de Usuários de Fivewin Acesse http://www.installsis.com.br/encontro e faça a sua Inscrição... Eu já fiz a minha e Você ??? id=quote>id=quote>Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde a todos !!! Estou montando uma rotina de pesquisa incremental. Só que tenho dois problemas: 1. Ao digitar o nome do cliente, letra por letra, a pesquisa vai "correndo" e localiza o cliente. Só que o cliente é o ultimo do BROWSE. Gostaria que saber como fazer para ao digitar o nome do cliente o nome aparecer no topo do BROWSE. 2.Neste BROWSE coloquei dentro de um GROUP varios RADIOS BUTTONS para a consulta(Por Nome, Endereco,Cidade,CNPJ e etc..). Só que quando, por exemplo, vou mudar de Nome para Endereço o Nome continua "SETADO". Pelo que eu sei, ao escolher outra opção, o radiobutton seta a opção escolhida e desativa a anterior. O meu BROWSE foi criado pelo WS. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde a todos !!! Estou montando uma rotina de pesquisa incremental. Só que tenho dois problemas: 1. Ao digitar o nome do cliente, letra por letra, a pesquisa vai "correndo" e localiza o cliente. Só que o cliente é o ultimo do BROWSE. Gostaria que saber como fazer para ao digitar o nome do cliente o nome aparecer no topo do BROWSE. 2.Neste BROWSE coloquei dentro de um GROUP varios RADIOS BUTTONS para a consulta(Por Nome, Endereco,Cidade,CNPJ e etc..). Só que quando, por exemplo, vou mudar de Nome para Endereço o Nome continua "SETADO". Pelo que eu sei, ao escolher outra opção, o radiobutton seta a opção escolhida e desativa a anterior. O meu BROWSE foi criado pelo WS. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Tarde a todos !!! Estou montando uma rotina de pesquisa incremental. Só que tenho dois problemas: 1. Ao digitar o nome do cliente, letra por letra, a pesquisa vai "correndo" e localiza o cliente. Só que o cliente é o ultimo do BROWSE. Gostaria que saber como fazer para ao digitar o nome do cliente o nome aparecer no topo do BROWSE. 2.Neste BROWSE coloquei dentro de um GROUP varios RADIOS BUTTONS para a consulta(Por Nome, Endereco,Cidade,CNPJ e etc..). Só que quando, por exemplo, vou mudar de Nome para Endereço o Nome continua "SETADO". Pelo que eu sei, ao escolher outra opção, o radiobutton seta a opção escolhida e desativa a anterior. O meu BROWSE foi criado pelo WS. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Noite A todos !!! Verificando a parte de impressão do FIVEWIN deparei com um comando que não consigo achar explicação para ele oPrnOrc:CharSay(nLin,95,TRANSFORM(OrcaItens->QTDADE,"@ZE 99999.999"),"D") oPrnOrc:CharSay(nLin,107,TRANSFORM(OrcaItens->VALUNI,"@ZE 9,999,999.99"),"D") A pergunta é a seguinte: o que significa este "D" no comando acima e como é a sintaxe correta do mesmo. Já vasculhei em todos os lugares e até a agora não consegui achar nada que me explicasse detalhadamente este comando. Aproveitando o fim de semana mando um recado para o VAGNER. Ve se sobra em tempo e responde meu e-mail Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Noite A todos !!! Verificando a parte de impressão do FIVEWIN deparei com um comando que não consigo achar explicação para ele oPrnOrc:CharSay(nLin,95,TRANSFORM(OrcaItens->QTDADE,"@ZE 99999.999"),"D") oPrnOrc:CharSay(nLin,107,TRANSFORM(OrcaItens->VALUNI,"@ZE 9,999,999.99"),"D") A pergunta é a seguinte: o que significa este "D" no comando acima e como é a sintaxe correta do mesmo. Já vasculhei em todos os lugares e até a agora não consegui achar nada que me explicasse detalhadamente este comando. Aproveitando o fim de semana mando um recado para o VAGNER. Ve se sobra em tempo e responde meu e-mail Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

Boa Noite A todos !!! Verificando a parte de impressão do FIVEWIN deparei com um comando que não consigo achar explicação para ele oPrnOrc:CharSay(nLin,95,TRANSFORM(OrcaItens->QTDADE,"@ZE 99999.999"),"D") oPrnOrc:CharSay(nLin,107,TRANSFORM(OrcaItens->VALUNI,"@ZE 9,999,999.99"),"D") A pergunta é a seguinte: o que significa este "D" no comando acima e como é a sintaxe correta do mesmo. Já vasculhei em todos os lugares e até a agora não consegui achar nada que me explicasse detalhadamente este comando. Aproveitando o fim de semana mando um recado para o VAGNER. Ve se sobra em tempo e responde meu e-mail Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:REDEFINE GET oGets VAR cCnpjCPF ID ??? OF oDlg VALID ! Empty(cCnpjCPF) .AND. ValidMascara(cCnpjCPF, oGets ) oGets:bGotFocus:= {|| ( oGets:oGet:Picture := "99999999999999", oGets:Refresh() ) } ********************************************** Static Function ValidMascara( cCpjCnpj, oGets ) ***************************************** Local MASCARA if empty(cCpjCnpj) Return .t. endif if len( Alltrim( cCpjCnpj ) ) > 11 if VALIDACNPJ( cCpjCnpj ) mascara := "@R 99.999.999/9999-99" else Return .f. endif else if VALIDACPF( alltrim( cCpjCnpj ) ) mascara := "@R 999.999.999-99" else return .f. endif endif oGets:oGet:Picture := mascara oGets:Refresh() Return .t. Márcio Augusto Cezar FWH 2.6 PELLES 3.00.4 marcio.cezar@gmail.com id=quote>id=quote>Boa Tarde Marcio !!! Segue parte de meu codigo para ver se vc "encaixa" a sua rotina de validação do get ...... REDEFINE GET aProf[7] ID 7 OF oFld:aDialogs[1] REDEFINE GET aProf ID 8 OF oFld:aDialogs[1] PICTURE "999999999999999999"; VALID CHECACGC(aProf) REDEFINE GET aProf[9] ID 9 OF oFld:aDialogs[1] ..... Estes codigos estão dentro de um FOLDER em um DIALOG. (Ei Paulo !!! Só porque falei, colocaram mais duas estrelas pra mim.Um dia chego lá. Espero gostar tanto do FW como gosto do CLIPPER) Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02

citação:José Carlos, tudo bem?? Por que você usa direto a PICTURE "@R 99.999.999/9999-99" ??? Agora, se quizer mudar a PICTURE em tempo de execução, tente assim: .... GET oCGC VAR wCGC ..... VALID MYFUNC(oCgc) FUNC MYFUNC(oGet) ........ If .not. ..... && está errado wGet:=0 && se for numérico oGet:cPicture:="999999999999999999" oGet:oGet:Picture:="999999999999999999" oGet:Refresh() RETU .F. else oGet:cPicture:="@R 99.999.999/9999-99" oGet:oGet:Picture:="@R 99.999.999/9999-99" oGet:Refresh() RETU .T. endif Aproveitando, VOCÊ VAI NOS PRESTIGIAR NO III ENCONTRO DIA 19 DE NOVEMBRO???? Um abraço Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 Editado por - pauloaraujo on 06/09/2005 12:55:53 id=quote>id=quote>Boa Tarde PAULO !!! Eu não uso esta picture porque como eu falei eu CRITICO antes o CNPJ/CIC para ver se o número é valido. Caso seja valido aí sim retorno na picture correta. Quando ao III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 eu ainda nao tenho ESTRELAS (*) suficiente para ir a este evento. Ir somente por ir não é de meu interesse. Eu quero ir e participar. Espero estar no proximo evento, se DEUS quiser Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02