JUDSON ROSA

coloquei : REQUEST HB_LANG_PT REQUEST HB_CODEPAGE_PT850 HB_LANGSELECT( 'PT' ) HB_SETCODEPAGE( "PT850" ) deu esse erro: unresolved external_HB_FUN_HB_CODPAGE_PT850

enquanto ao indice : to siimovi.cdx

Nao kapiaba , o meu é assim: REQUEST SQLLIB REQUEST MySQL REQUEST DBFCDX // requisita a biblioteca REQUEST DESCEND // requisita a biblioteca Rddsetdefault("DBFCDX") SET CENTURY ON // 4 DIGITOS PARA O ANO SET EPOCH TO 1990 SET DATE BRITISH // FORMATO DD/MM/AAAA SET DELETED ON // ON IMPEDIR VER REGISTROS MARCADOS PARA APAGAR SET FIXED ON SET DECIMALS TO 2 SETCANCEL( .F. ) // INUTILIZA ALT + C PARA ABORTAR PROGRAMA

ok galera muito obrigado ai pela força , peguei agora a base do cliente justamente o dbf q da a corrupcao do indice , pegunta: tenho um indice assim : use siimovi index on cdve+dtos(dtmo)+cdmo+nota+des2 tag siimovi16 fiz uma busca no dbf e vi que o campo des2 ( c - 40 ) tem informacoes desse tipo: 1 - BUCHA PLASTICA N║ 06 - 1000 UNDS PCT 2 - CARRO DE M├O PRETO ROCA 3 - F FECHADURA INTERNA EPOCA MAÃ. ALAVANCA 4 - COLOR SPRAY MET┴LICO VERMELHO CX06 5 - BOMBA PERIF╔RICA SHP 35, 5CV esses caracteres especiais podem trazer algum problema para o indice aliado a outros campo ???

Bom dia , depois de ter ficado ate as 21:30 de ontem no cliente , formatado tdas as estacoes com windows 7, instalado servidor com windows server 2008 , msm assim o erro continua , toda hr o usuaio tem q indexar vou acabar perdendo o cliente , que coisa . um problema que nao dava , e agora começou a aparecer .nao sei mais o que fazer

boa noite , ainda estamos no cliente rsrs , kapiaba faço do jeito q vc relatou com os indices . Formatamos e instalamos o windowns 7 prof , e ate agora nao ocorreu mais o erro : hb_cdxindexgetavailpage: read index page failed , acho que alguma das maquinas estava com o windows com problema , mais ate achar a maquina tivemos que formatar 6 , vamos aguardar mais operacoes de vendas amanha para ver como se comporta , pois como falei ate o fechar deste dia nao ocorreu mais .

Bom dia , estou em outro cliente ainda estamos formatando os equipamentos e o erro que da e esse: mesmo ja tendo feito todos as mudancas encontradas aqui : hb_cdxindexgetavailpage: read index page failed. alguem pode dar uma dica , sei que no cliente anterior formatamos tds os equipamentos e ate agora nao deu nenhum erro. mas neste quando o operador usa as estacoes com windows ultimate. da essa msg.

Bom tb fiz tudo que vi aqui de dicas ( Alessandro ) , e tb formatei as estacoes windows 7 e instalei suas atualizações e coloquei no servidor windows server 2008 e atualizações . Deixe em teste hoje pela manha no cliente , espero que de tudo certo , estou no aguardo ...

Boa tarde ainda estou na luta pela resolucao deste problema pesquisei na net e vi este link , ele tem tudo a ver com o nosso problema relatado aqui, esta em outro idioma mas e so traduzir ; http://stackoverflow.com/questions/17576137/dbf-cdx-files-become-unaccessable-almost-every-day e a solucao encontrada por eles foi mesmo alterar a chave de registro do windows 7 e do servidor como fui mencionado pelo Rogerio Figueira e pelo Kapiaba. Entao estou fazendo os testes e depois posto aqui , mas pelo que vejo a cada versao de windows a sobrevivência do dbf fica cada dia mais dificil .

Muito valido Alessandro , vou tentar isso vi q esse tratamento q vc faz no delete nao faço tudo isso que vc descreveu , pode estar ai o problema qd do deletar do item , pelo tempo que o problema acontece de vez em quando , acho que nem toda nota o vendedor deleta produto, vou inserir testar e comento aqui depois.

Bom dia , Theotokos , ja verifiquei a minha rotina muitas vezes , o sindices estao todos aberto , isso so acontece em 2 clientes , nos outros isso nao ocorre , agora voce falou uma coisa que ontem a noite fiquei pensando , "Eu faço da seguinte maneira... não fico com arquivo aberto, abro apenas na hora de gravar os dados e depois fecho novamente o arquivo..." ,. Agora pela manha vou fazer exatamente como esta na sua frase , vou testar e colocar no cliente pela manha , e vamos ver o que acontece , qualquer coisa posto aqui . t+

e dessa forma que faço : index on cdmo+cdfo+nota+cdpr tag siimovi1 , as aspas foram por acidente . mas vc ta me dizendo que se fosse corrupção ele daria erro de execução quebraria e sairia do sistema , e como posso explicar os dados voltarem a ficar em ordem depois que faço a indexação ?

Kapiaba e o seguinte o lance de aparecer e nao aparecer produtos na nota é uma vez ou outra , mas os produtos foram inseridos na nota eles estão la , foram gravados na nota , mas quando o vendedor vai ver a nota numa alteracao ou numa impressao nao aparece os produtos que estao la , ai temos que organizar e depois tudo volta a funcionar , entao estamos concluido que ocorre alguma corrupção neste indice , tem dia que nem ocorre , por isso que nao achamos que e o nosso sistema e sim a rede ou o servidor de dados do cliente .

Joao meu amigo como falei to tentando converte o meu sistema so que ainda nao deu tempo pq to num outro projeto tambem de conversao de uma sistema que esta em DOS para XHarbour e mysql , por enquanto tenho que arrumar um solucao para este problema obrigado.

Bom obrigado ai pessoal , o problema como falei e que as informacoes ficam fora de ordem , produtos em uma nota nao aparecem , so volta a aparecer quando e indexado , isso como falei depois de um tempo, vou postar aqui como faço os processos: 1) abertura do dbf: use (w_dbfPath)+"siimovi.dbf" alias MOVI index (w_dbfPath)+"siimovi.cdx" shared new ; dbsetorder(1) 2) indexação: use siimovi exclusive index on "cdmo+cdfo+nota+cdpr" tag siimovi1 3) rotina de gravacao dos dados: dbselectarea("movi") rlock() replace ... dbcommit() dbunlock() 4 ) imagem nao posso mandar porque fica so desorganizado os dados 5) windows 7 x server: Windows 7 É um sistema operacional produzido pela Microsoft para uso em computadores pessoais , incluindo a casa e negócios desktops , laptops , netbooks , tablet PCs e media center PCs. Tamanho: 2,36 GB Web site oficial: http://windows.microsoft.com/pt-BR/windo... Para baixar: http://baixaki.com.br/download/windows-7... >Windows Server É projetada para fornecer serviços e recursos para outros sistemas em uma rede. O sistema operacional tem um abundante conjunto de recursos e opções de configuração. Sua versão mais robusta do Windows Server 2008 com aperfeiçoamentos nos recursos de cluster e suporte a configurações de memória muito amplas com até 64 GB de RAM em sistemas x86 e dois TB RAM em sistemas de 64 bits. Tem requisito mínimo de CPU e pode dar suporte a até 64 CPUs. Pode ate nao resolver o problema mas e para isso que serve o windows server.

Bom dia amigos , gostaria que alguém pudesse me dar uma solução para o seguinte problema: Utilizo xharbour + dbf + cdx , ainda nao pode concluir a migração para MySql , então ultimamente tenho encontrado problema de indexação constante nas rotinas de grande movimento na rede , tipo aquelas onde vários vendedores realizam vendas no balcão , não e sempre mais aqui ali precisamos organizar esse dbf . ja vi aqui no fórum algumas formas de gravar no dbf fiz tudo que vi aqui neste fórum na questão de segurança dos dados , já verifiquei a rede , coloquei ip fixo , e em certos momentos o problema volta a acontece , antes de fazer o que estou pensando , gostaria de uma opinião sobre este problema . Mas estou quase que convencido que o problema não esta no sistema e sim no servidor do cliente pois o mesmo não e bem um servidor e além disso esta rodando com Windows 7 , pretendo pedir a colocar de Windows server , o que os amigos podem opinar ?

obrigado a todos , resolvido o que faltava era o fopen , fread , ... como nessa rotina do miragerr. obrigado. function atualiza_file ( ) ********************** ntotal := 0 lend := .f. nbufsize := 1000 // 128 // 4096 cbuffer := space(nbufsize) ferase( cCurDir_exe+w_soft ) htarget := fcreate( cCurDir_exe+w_soft ) nbytes := 0 ofile := fopen( w_dbfPath+w_soft ) do while ( nbytes := FREAD(ofile, @cBuffer, nbufsize ) ) > 0 .and. !lend fwrite( htarget , cbuffer , nbytes ) oSSay4:settext( transform( ntotal += nbytes , "@E 999,999,999" ) ) ometerver:set( ntotal ) cbuffer := space(nbufsize) enddo fclose( htarget ) fclose( ofile ) lexecutar:=.t. return(.t.)

amigos valeu ai pela força mais ainda nao e isso que eu quero.

obrigado pela força , mas como falei durante a copia queria alimentar um meter para mostrar a evolucao dos bytes copiados.

Estou desenvolvendo uma rotina para atualização de versão do meu sistema , onde coloco o executável no servidor e as estacoes verificam e copiam o executavel para si , entao queria montar o meter , só que nao conheco nenhuma funcao que leia o executavel , achei um exemplo com o tftpfile() , mas este e para ftp e o que quero e so para copia na rede local. agradeço desde ja a todos. ntotal := 0 lend := .f. nbufsize := 4096 cbuffer := space(nbufsize) htarget := fcreate("temp.exe") ofile := tftpfile():new( csource ) ofile :openread() do while ( nbytes := len( cbuffer := ofile:read( nbufsize ) ) ) > 0 .and. !lend fwrite( htarget , cbuffer , nbytes ) oSSay5:settext( "Bytes copiados: " + alltrim( str (ntotal += nbytes ) ) ) ometerver:set( ntotal ) enddo fclose( htarget ) ofile:end() return(.t.)