aferra

Bom dia! eu faço desta forma, e realmente demora, mais nunca ninguém reclamou, bem vai lá: FUNCTION CriaCdx() PRIVATE qTotDbf:=DIRECTORY("DADOS\*.DBF","D") PRIVATE qTotCdx:=DIRECTORY("DADOS\*.CDX","D") PRIVATE ntotDbf:=0,nTotCdx:=0 PRIVATE oTxt1:=cTxt1:=oTxt2:=cTxt2:="Quero Testar esta função de indexação" //deleta todos os cdx AEVAL(DIRECTORY("DADOS\*.cdx"),{|aFile| FErase("DADOS\"+aFile[1])}) qTotDbf:=qTotCdx:=LEN(qTotDbf)-1 @ 25.3,38.1 SAY oTxt1 VAR cTxt1 SIZE 420,16 OF oWSig COLOR nRgb(0,0,0),nRgb(238,221,187) @ 25.0,38.1 METER oMetDbf VAR nTotDbf TOTAL qTotDbf SIZE 420,20 BARCOLOR nRgb(0,0,255),nRgb(255,255,255) OF oWSig @ 29.5,38.1 SAY oTxt2 VAR cTxt2 SIZE 420,16 OF oWSig COLOR nRgb(0,0,0),nRgb(238,221,187) @ 29.0,38.1 METER oMetCdx VAR nTotCdx TOTAL qTotCdx SIZE 420,20 BARCOLOR nRgb(0,0,255),nRgb(255,255,255) OF oWSig ScrolMeter() (oTxt1:END(),oMetDbf:END(),oTxt2:END(),oMetCdx:END()) RETURN(NIL) STATIC FUNCTION ScrolMeter() LOCAL indexao:=0 while .T. oMetDbf:Set(indexa) IF indexa==1 oTxt1:SetText("Arquivo de Agenda / Calendário") IF cDbf ; USE DADOS\arqagc NEW ; END oMetCdx:nTotal:=RecCount() oTxt2:SetText("Indexando o Arquivo Por Data") INDEX ON DTOS(data)+user+hora TAG data EVAL (oMetCdx:Set(RecNo()),SysRefresh()) INDEX ON DTOS(data)+user+hora TAG datl FOR !lido EVAL (oMetCdx:Set(RecNo()),SysRefresh()) ELSEIF indexa = 2 oTxt1:SetText("Arquivo de Informações do Sistema") IF cDbf ; USE DADOS\arqimp NEW ; END oMetCdx:nTotal:=RecCount() oTxt2:SetText("Indexando o Arquivo Por Situações") INDEX ON estacao TAG estacao EVAL (oMetCdx:Set(RecNo()),SysRefresh()) END FreeResources() IF indexa <= qTotDbf ; indexa++ ELSE ; EXIT END END RETURN(NIL) pode haver algum erro, pois fui tirando algumas configurações do meu prg, qqc é só gritar Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

e aí RPR, blz? então vc está o que para ver o preview?, olhe dentro do diretório do seu programa, ou sei lá, dentro de windows\system(32) Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

HAHAHAHAHAHAHA, É VERDADE, HAHAHAHAHAHAHAHAHAHAHA Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

em tempo, pelo q vi no III encontro, a Vprinter faz as duas, aí é só pegar e sair pro abraço, se não for enganação é claro, hehehe brincadeirinha hein Vagner. Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

sim, concordo com vc, o que eu não acho vantajoso é vc criar um relatório que é para a tdosprn e mandar imprimir em deskjet, é isso o que eu disse, então se vc quer mandar para a deskjet mande com a fonte bem leve e pronto, custo/beneficio, quer mandar para a matricial, mais fácil ainda, para q perder tempo em configuração se vc tem em poucas linhas suas impressões, é tempo e satisfação, agora quer deixar o cliente feliz, faça as duas opções... Veja eu não estou dizendo que o cliente tenha q investir para se ter o melhor e pronto, o que eu quero dizer é tdosprn == matricial, tprinter == deskjet/laser, treport == deskjet/laser Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

Bom minha opnião é a seguinte, se vc tem uma ótima ferramenta para imprimir em impressoras deskjet, pra que vc quer imprimir, em forma matricial, nelas, eu coloquei na mente de meus clientes que isso é coisa do passado se ele quiser é assim, o máximo que eu faço é tirar os pen, os boxes, enfim, deixar bem simples para economizar tinta ou tooner, sei lá é uma opnião, pense como Microsoft, qq relatório do word/excell não sai como as matriciais, se mandar imprimir demora um tanto, portanto, ou vc entra ou está fora, é assim que eles agem e alguém reclama? não precisa ser como eles mas sempre existe uma boa conversa, os clientes acabam aceitando rsrs Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

olá Marcelo, blz? é acho que seria com o timerCount(), dê uma olhada no \samples\testtool.prg Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

Caros companheiros, as vezes dá vontade de. . . . pasmem o servidor nada mais tinha do que 2.083 arquivo infectados, será que é por isso que não funcionava o programa, será que é por isso q de vez enquando o programa parava de responder, será será, e ainda tive que escutar "não sei como isso aconteceu, eu coloquei este Ruindowsid=red> porque ele é melhor", karas, estou aliviado em saber que nem tudo é culpa do programador, agora eu bati de frente para colocar o linux, mas parece que o lara não sabe, hehehe, vamos ver no que dá, mais uma vez obrigado a todos Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

Blz Vailton? o Blinker 7.0 muito bom, estável e mais rápido, claro milésimos de segundos, mas e daí Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

blz! estou indo brigar com os "karas", munido de todas estas informações, quero só ver o que dá, obrigado mais uma vez a todos... Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

Está eu aprendi na semana, através do amigo Marcelo Gomes FILE VMW -> Corrigi outro problema de memoria na maquina virtual do clipper, deve-se usar! Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com

Bom dia Marcelo, blz? Funcionou, hahahahaha, kara que legal, muito fácil e rápido, gostei, agora como de praxe, onde eu encontro estes objetos "InternetExplorer.Application", já fiz um pesquisa no regedit, mas só encontro o próprio, tem como charmar outras funções tipo msn, outlook, estas coisas, sabe? kara Gostei do negócio, Acho que para o Marcelo(yasmin) vai ficar um blz! Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @SAy @Get MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Boa noite amigos, blz? comigo, agora, mais calmo e analisando os problemas com a razão, vou verificar todas as opção que me deram, dar mais uma olhada nas funções de append e replace, só para desencargo de consciência e ver no que dá Obrigado a todos Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

será que não é o dbfcdx ao invés de dbfntx, tente quem sabe Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Pois é Jõao, isso tudo eu tô fazendo, existe alguma configuração no windows 2003 server q precise ser feito, eu acho que ele anda travando o sistema por (ntempo) e aí que dá o problema,eu não sei nada de windows server, e pelo visto nem o cara que instalou, então tô agora com a corda no pescoço, nem sei em que atirar, hehehehehehe tem alguma ajuda aí?? help!!!! please!!!!!1 Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

olá, Marcelo, qual a versão do fw que vc usa? faça o seguinte, coloque no "meu perfil", aquele lá em cima, qual a versão do clipper/fw, isso ajuda muito o pessoal daqui, no meu fw20d funciona perfeitamente Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

é verdade, me desculpe, hj tô meio doidão, vamos lá. estou imaginando o que precisa ter. colocar as libs _dbfcdx.lib e dbfcdx.lib colocar no inicio do programa REQUEST DBFCDX RddSetDefaut("DBFCDX") dbSetDriver("_DBFCDX") dbSetDriver("DBFCDX") db fechado e fazer o eraser(), li sobre que se estiver aberto não é bom abrir o bd use &(Wchave) NEW SHARED INDEX ON Placa + DTOS(Dt_Abast) + H_Abast TAG XDecre DESCEND veja se dá certo Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

sim está no caminho, veja tb outra forma: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5656 Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

tô vendo o cara subir, parace um balão, embora para chamar de magro tens que engordar uns quilos, hahahahaha Parabens, pela que pessoa que és e pelo prêmio Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

primeiro veja se não está aberto o dbf, depois tente colocar &(WChave), certas vezes me erro por esqueço disso, embora e não utilizo to &Wchaveid=red>, mas experimente usar sem quem sabe??? Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Fala Vagner, blz? o servidor passaram para Rwindows 2003 server, ficou um tempo sem dar problemas ( 15 dias ) e agora cara todo dia tem q indexar, senão não mostra nada, o pior é que eu falei, volta para o antigo que não era lá estas coisas ( Rwindows 98 ), mas trabalhava tão certinho, e como foi uma empresa de consulturia que imbutil isso na cabeça do cara ele não quer voltar atrás, o pior é que escutei hj q ele troca de sistema se não der uma solução para ele, cara tô meio arrazado até, hehe, desculpe o desabo, mas é isso que me irrita em certas empresas de consultoria, ele chegam e não querem saber o que está errado e consertar e sim de colocar novas coisas, eu sei que temos que seguir em frente buscar novas coisas, mas se pagam por mês para eu desenvolver o sistema, acho q poderiam pelo menos me comunciar ou troca uma idéia, mas tô eu aqui agora, sem poder aprender sobre xharbour e tendo que mexer num negócio que já ia começar a mudar, e f... eu comecei a usar a forma do que eu li de abrir todos os bds no inicio ficou t+ mais rápido, mas não tenho certeza de que irá ficar bom e não dar mais problemas, o m....., mas blz, vamos ver no que dá, obrigadão, desculpe forum pelo desabafo, hehe, ficou grandinho o txt Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Boa Tarde! estou com um problema de corrupção de indices (CDX) e procurando ali e aqui li sobre abrir os arquivos na abertura e fecha-los somente qdo encerrar o sistema, alguém tem uma opnião sobre isso, é melhor, segura mais o indices, veja, o sistema não dava problema agora depois de anos q está dando, agradeço desde já Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Boa Tarde! estou com um problema de corrupção de indices (CDX) e procurando ali e aqui li sobre abrir os arquivos na abertura e fecha-los somente qdo encerrar o sistema, alguém tem uma opnião sobre isso, é melhor, segura mais o indices, veja, o sistema não dava problema agora depois de anos q está dando, agradeço desde já Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

Boa Tarde! estou com um problema de corrupção de indices (CDX) e procurando ali e aqui li sobre abrir os arquivos na abertura e fecha-los somente qdo encerrar o sistema, alguém tem uma opnião sobre isso, é melhor, segura mais o indices, veja, o sistema não dava problema agora depois de anos q está dando, agradeço desde já Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.

em tempo... esse end() ficou estranho oPrn:END(), agora sim, hehehe Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com ENCONTRO DE FIVEWINNERS EU FUI E NÃO PERCO MAIS.