LUIS1361303120

Eu sei que nao sou muito conhecido aqui no forum, gostaria de participar tambem, se o nosso amigo da empresoft participar, pois moro um pouco perto dele, e assim trocar mais ideias,, estou aprendendo no momento a usar o visual studio.

Bom dia tentei baixar o rvisual,, so que tem que instalar ou senha no 4shared..

Bom dia tentei baixar o rvisual,, so que tem que instalar ou senha no 4shared..

Bom dia tentei baixar o rvisual,, so que tem que instalar ou senha no 4shared..

Bom dia Vagner Tenho uma duvida,,, para criar indices em memoria como vc disse anteriormente, tenho que gerar tambem os dbfs em memoria,, como que eu faria para criar isso,, pois realmente na rede e muito rapido, na pesquisa normal fica lento,,, luis

so uma pergunta para que serve oTela:Show();;;;;;; isso,,,

Poderiam postar para nos aqui no forum, um exemplo por favor... pelo menos esse e um assunto de interesse de todos,,, que ultimamente aqui, ta dificil, so uns falando mal,, pessoas falando coisas que nao tem nada a ver com o forum... so uma critica construtiva..

bom dia Luiz Vc vai este ao encontro no Rio

bom dia Luiz Vc vai este ao encontro no Rio

olha to devendo ate as cuecas e nem sei o q fazer ,, tenho um programinha legalzinho de lista telefonica mineira...,sera q se eu mandar para todos os emais daqui,, seria ajudado..por um precinho de 70,00 ( setenta reales ), por que o bom natal acabou e nao sei o q fazer.. acho que vou pedir para o henri cristi me ajudar.... chua..chuaaa... chua... chua.. chua... e o Ale SB esta com razao,, e sera que esse programa dele funciona ao compilar,,, fico na duvida.. me ajude henri, henri..

eu nao sei o ocorrido,, vc ja tentou compilar ele separado e rodar ele separado do seu sistema... criando .bat separado.. vc inserire so os 2 .prgs... eu uso aqui e nao apresenta esse erro...

desabilite a opcao dentro do seu exemplo: * oWord:TitleBar(.f.) pois ele tira o titulo do topo... esse objeto: oWord esta definido ,, tem que registrar tambem o officeviewer.ocx....

Postei em dicas um exemplo com o .ocx, tem que registar o .ocx para acessar e instalado o office... http://www.fivewin.com.br/exibedicas.asp?id=1104

esse ordscop e rapido mesmo.... eu uso index por numero e pesquiso por data ou por uma string,, isso e possivel com ele,, ou tem que estar indexado pelo que pesquisamos...

nao se preocupe e te entendo....

Kbelo Eu sei que e pedir de M+,, mas vc me mandaria essa classe que vc usou como heranca,, do DIALOG.PRG... para mim dar uma olhada como vc fez,,,, nao quero ser manso, pois e da sua autoria..se tiver algum custo me avise..... luispaixao13@hotmail.com

so uma pergunta ,, onde usuaria isto,, e pra que serve...

boa tarde,, e realmente neste pais é o único jeito de passar umas ferias na cadeia,,, mas acho q neste caso, devemos tb nos desculpar pelo ocorrido,,, eu tenho um tio q morreu infartado com 70 anos por que nao pagou a f...lha de uma p... da pensao para a veia dele,, e ele foi preso,, so que nao aguentou a pressao psicologica e morreu infartado,, infelizmente foi fulminante,,, mas se o Vitor sabia da situação devia sim, ter nos informado,, por que ate apoiei para fazer um boletim de ocorrencia,, ,, fui errado em pensar nisso,,, por que perante no que vc deve estar passando e pouco o que aconteceu,,, ai ate eu nesse momento se precisar depositar novamente a minha parte, farei com prazer...por que o encontro foi otimo para mim. Te desejo boa sorte e obrigado por botar a cara aqui no forum e explicar o ocorrido... isso demonstra que algumas pessoas tem carater nesta vida... nao desanime,, infelizmente,,, isso pode acontecer com qualquer um,, mulher e um trem bom d+,,, so que uma armadilha em nossas vidas.. felicidades pra vc e boa sorte.. luis antonio - ssparaiso/MG

Procure nesta pasta: C:\WINDOWS\system32\drivers\etc o arquivo:] hosts: e acrescente nesta linhas: # Copyright © 1993-1999 Microsoft Corp. # # Este é um arquivo HOSTS de exemplo usado pelo Microsoft TCP/IP para Windows. # # Este arquivo contém os mapeamentos de endereços IP para nomes de host. Cada # entrada deve ser mantida em uma linha individual. O endereço IP deve # ser colocado na primeira coluna, seguido do nome de host correspondente. # O endereço IP e o nome do host devem ser separados por pelo menos um # espaço. # # Adicionalmente, comentários (como estes) podem ser inseridos em linhas # individuais ou após o nome de computador indicado por um símbolo '#'. # # Por exemplo: # # 102.54.94.97 rino.acme.com # servidor de origem # 38.25.63.10 x.acme.com # host cliente x 127.0.0.1 localhost # Start of entries inserted by Spybot - Search & Destroy 127.0.0.1 www.007guard.com 127.0.0.1 007guard.com 127.0.0.1 008i.com 127.0.0.1 www.008k.com 127.0.0.1 008k.com 127.0.0.1 www.00hq.com 127.0.0.1 00hq.com 127.0.0.1 010402.com 127.0.0.1 www.032439.com 127.0.0.1 032439.com 127.0.0.1 www.0scan.com 127.0.0.1 0scan.com 127.0.0.1 1000gratisproben.com 127.0.0.1 www.1000gratisproben.com 127.0.0.1 1001namen.com 127.0.0.1 www.1001namen.com 127.0.0.1 100888290cs.com 127.0.0.1 www.100888290cs.com 127.0.0.1 www.100sexlinks.com 127.0.0.1 100sexlinks.com 127.0.0.1 10sek.com 127.0.0.1 www.10sek.com 127.0.0.1 www.1-2005-search.com 127.0.0.1 1-2005-search.com 127.0.0.1 123fporn.info 127.0.0.1 www.123fporn.info 127.0.0.1 123haustiereundmehr.com 127.0.0.1 www.123haustiereundmehr.com 127.0.0.1 123moviedownload.com 127.0.0.1 www.123moviedownload.com 127.0.0.1 123simsen.com 127.0.0.1 www.123simsen.com e acrescente mais o nome do site

Nem vou escrever ,, pois ja escrevam muito aqui, so desejo boa sorte,,, Herbeson,, tenha paciencia,,, hhheeh, achei que so fosse a minha..hehehheh

Tudo que for para ajudar o s programadores, seria otimo,,

trabalho muito com arquivo de word,, igual que vc usa no cartorio,, com texto,, e uso dbf, .cdx, no caso como que eu poderia usar .adt,, tem que mudar alguma coisa.. e por que da erro de alias nao existe, usando arq.temporario,, e pesquisando com o xfilter,, como que criaria o arq e abrisse para que ele acha o alis.. tpo: select lei e depois usar esse alias...

so uma pergunta se eu usasse com arq. temporario,, como farias as pesquisas no arquivos sem usar o ads que tenho.. por favor me de essa luz...

uso a lib.. ads do geoveny,, nao e que e lento,, mas vc vai pesquisar uma palavra, e vejo que e meio lento, demora um pouco: faco assim para pesquisar: REDEFINE get o118 var pesq ID 118 OF oDlg1 picture "@!" on change ( PSLEM( nKey , o118 ) ) REDEFINE get o120 var pesqNum ID 120 OF oDlg1 picture '999999' on change ( PSLNUM( nKey , o120 ) ) REDEFINE get o121 var pesqproj ID 121 OF oDlg1 picture '999999' on change ( PSLproj( nKey , o121 )) REDEFINE get o122 var pesqautor ID 122 OF oDlg1 picture "@!" on change ( PSLAUTOR( nKey , o122 )) REDEFINE BUTTON o1 prompt 'Pesquisa' ID 119 OF odlg1 ACTION (pesqlei() , olbx1:SetFocus(),olbx1:refresh()) REDEFINE BUTTON o2 prompt 'Arquivo' ID 113 OF odlg1 ACTION ( pesqtex( pesq, pesqNum, pesqproj, pesqautor), pesqarq(),; olbx1:UpStable() , xSetFocus(olbx1) , olbx1:refresh() ) o1:ctooltip = {"Pesquisa","Ajuda",3,nRGB(255,255,0),nRGB(58,116,241) } // altera o icone 1 2 3 o2:ctooltip = {"Pesquisa dentro do arquivo","Ajuda",1,nRGB(255,255,255),nRGB(58,116,241) } // altera o icone 1 2 3 TWBrowse():lHScroll:= .f. REDEFINE LISTBOX oLbx1 FIELDS lei->numero, lei->projeto ,; // resource "TWBrowse" if(!empty(lei->sancao),dtoc(lei->sancao),dtoc(lei->dtpromulg)) ; HEADERS "Lei",'Projeto','Data' FIELDSIZES 50,50,70 ID 182 OF oDlg1 ; COLORS CLR_HBLUE,LightColor(230,LightColor(60,getsysColor(2))) update ; on change ( verdlei() , olbx1:refresh() ) ; on click ( verdlei() , o3:enable(), olbx1:refresh() ) olbx1:nClrForeFocus:= RGB(0,0,0) olbx1:nClrBackFocus:= RGB(0,228,0) oLbx1:nClrForeHead := CLR_YELLOW // Cabecalho OLBX1:nclrbackhead := CLR_HBLUE * oLbx1:bRClicked = { || oLbx1:ShowSizes() } oLbx1:aJustify := { 2 , 2 , 2 } oLbx1:nLineStyle := 2 oLbx1:nLineHeight:= 20 * oLbx1:Set3DStyle() REDEFINE LISTBOX oLEI FIELDS LEIALT->NUMERO ; HEADERS "Lei" FIELDSIZES 50 ID 181 OF odlg1 ALIAS 'LEIALT' ; SELECT LEIALT->LEI FOR lei->numero UPDATE ; ON dblCLICK PRODBF( LEIALT->NUMERO,1, wacesso,pesq ,pesqnum,pesqproj,pesqautor,odlg1) ; on click ( mleialt() , o3:disable() , olei:refresh(), o1:disable() ) olei:nClrForeFocus:= RGB(0,0,0) olei:nClrBackFocus:= RGB(0,228,0) olei:nClrForeHead := CLR_YELLOW // Cabecalho olei:nclrbackhead := CLR_HBLUE olei:aJustify := { 2 } *----------------------------- Function PSLEM( nKey , oGet ) Local cFras, cChave SELE LEI LEI->(OrdSetFocus("LEIPESQ")) cFras := AllTrim( oGet:cTitle ) cChave:= "'"+CFRAS+"' $upper(refere1+' '+refere2+' '+refere3+' '+refere4+' '+refere5+' '+refere6+' '+refere7)" // lei->(adssetaof( cchave , 2 )) lei->(Xfilter(cchave)) IF EOF() SET FILTER TO // lei->(ADSRefreshAOF()) // lei->(AdsRefreshRecord()) lei->(xClearFilter()) ENDIF statusl = 1 olbx1:GoTop() ; olbx1:refresh() return nil e tentei criar um indice usando temporario ate que abre rapido: so que quando vai pesquisar da erro no ads: veja: sele Lei lei->(AdsRefreshRecord()) LEI->(OrdSetFocus("LEIPESQ")) go top USE AaDd(aTemp,{"NUMERO" ,"C", 6,0}) AaDd(aTemp,{"REFERE1" ,"C", 63,0}) AaDd(aTemp,{"REFERE2" ,"C", 63,0}) AaDd(aTemp,{"REFERE3" ,"C", 63,0}) AaDd(aTemp,{"REFERE4" ,"C", 63,0}) AaDd(aTemp,{"REFERE5" ,"C", 63,0}) AaDd(aTemp,{"REFERE6" ,"C", 63,0}) AaDd(aTemp,{"REFERE7" ,"C", 63,0}) AaDd(aTemp,{"PROJETO" , "C" , 6,0}) AaDd(aTemp,{"DATA" , "D" , 8,0}) AaDd(aTemp,{"SANCAO" , "D" , 8,0}) AaDd(aTemp,{"DTPROMULG" , "D" , 8,0}) AaDd(aTemp,{"DATACAD" , "D" , 8,0}) AaDd(aTemp,{"AUTOR" , "C" ,150,0}) AaDd(aTemp,{"NIVEL" , "N" , 1,0}) AaDd(aTemp,{"REGISTRO" , "N" , 6,0}) AaDd(aTemp,{"JOMEDIC" , "C" , 5,0}) AaDd(aTemp,{"JOMPAG" , "C" , 5,0}) AaDd(aTemp,{"ARQLDO" , "C" , 20,0}) Hb_DbCreateTemp("LEI", aTemp, "DBFCDX") Appen From "LEI" Inde On val(lei->numero) Tag "01" To ("leipesq") descending Memory como faria para nao dar erro ou uso o ordscop().. nao sei.. e estou usando o listbox que foi postado aqui as fontes da lib....

Eu nao sei o que fazer,, tenho uma base de dados na rede,, que nao passa de 4000 registro,, mas quando eu vou usar para pesquisar alguma informacao, percebo que fica lento, utilizo o ads que postaram aqui no forum,, coloquei windows server 2003 na maquina principal e o resto e tudo xp.. achei que melhoraria alguma coisa, mas vejo que nao tive muito progresso,, sera que toda a rede e assim mesmo,, a rede que uso e simples,,, ..