josehilton Posted March 6, 2013 Report Share Posted March 6, 2013 Bom dia pessaoal Eu estou em processo de Homologacao Tef e Estou com um Probleminha error irrecuper vel 1011: write in index page faild. =========================================================== Function HttpGetFile(cReply,cImprimer,cSeqImp) Local wbuffer := SPACE(2300) Local cString := "" Local nCount Local rtn := .f. Local nLength local xBuffer := 2300 Local cRet := 999 cMsgRet := '' VESPAGUE_OPCAO := '' cRetornoTipo := '' cTipoMascara := '' cTent := 0 cTent ++ Tem := .t. Tent := 1 qTent := 1 default cmsgespera := 'PROCESSANDO AGUARDE..' if ! file('c:\respostaTef.txt') cFileRet := fCreate('c:\respostaTef.txt') else cFileRet := fOpen('c:\respostaTef.txt',1) RET_TAM = FSeek( cFileRet, 0, FS_END ) ENDIF fwrite(cFileRet,'----------------------------------------------------'+chr(13)+chr(10)) fwrite(cFileRet,cReply+chr(13)+chr(10)) fwrite(cFileRet,'--------------programa------------------------------'+chr(13)+chr(10)) InetSetTimeout( HANDLEsocket, 750 ) InetSend( HANDLEsocket,cReply ) cTent := 0 mensagemvermelha() cGet13 := cMsgEspera oGet13:varput(cGet13) oGet13:Refresh() nProgress := 0 do while InetDataReady( HANDLEsocket, 100 ) == 0 if GETASYNCKEY( VK_DOWN ) .or. GETKEYSTATE(VK_DOWN) cTent := 0 fclose(cFileRet) Return(99) endif if GETKEYSTATE(VK_ESCAPE) cTent := 9999999999999999999999999999999 endif if cTenta > 10 cTent ++ if cTent > cTenta cSequenc := alltrim(str(val(cSequenc)+1)) fclose(cFileRet) exit endif DO CASE CASE nProgress = 0 cmm := "-" CASE nProgress = 1 cmm := "\" CASE nProgress = 2 cmm := "|" CASE nProgress = 3 cmm := "/" nProgress := -1 ENDCASE nProgress ++ cGet13 := cMsgEspera + ' '+cmm ' oGet13:varput(cGet13) oGet13:Refresh() endif enddo if cTent > cTenta cTent := 0 cMsgRet := '' VESPAGUE_OPCAO := '' cRetornoTipo := '' cTipoMascara := '' CMSGRETORNOTEF := '' CrET := 9 Return(99) endif cTent := 0 cDescr := '' nCount := InetRecvAll( HANDLESOcket, @wBuffer, xBUFFER ) cString := left(wBuffer, nCount) //alltrim(cResponse) // fwrite(cFileRet,'----------------------------------------------------'+chr(13)+chr(10)) fwrite(cFileRet,alltrim(cString)) fwrite(cFileRet,'--------------vsp-----------------------'+chr(13)+chr(10)) fclose(cFileret) nPos := At("automacao_coleta_mensagem=",cString) if npos > 0 cRetornoAutomacao := Substr(cString,nPos + 27) nPOs := At('"',cRetornoAutomacao) cRetornoAutomacao := Substr(cRetornoAutomacao,1,nPos - 1) cRetornoAutomacao := StrTran(cRetornoAutomacao,Chr(13)," ") cRetornoAutomacao := StrTran(cRetornoAutomacao,Chr(10)," ") nPos := At(Upper("Transacao aprovada"),Upper(cRetornoAutomacao) ) if nPos > 0 iRetorno := 8888 endif endif xText := '' cLoop := 1 cTipoRetorno := '' cValorRetorno := '' CfILETEXT := FCREATE('TEXTRET.TXT') cMsgTef := '' FWRITE(cFileText,cString) fclose(cfileText) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 6, 2013 Report Share Posted March 6, 2013 http://msdn.microsoft.com/pt-br/library/bb202810.aspx write in index page faild 1011 de leitura / gravação de acesso na página de Ãndice falharam CA-Clipper tentou ler ou gravar em uma página de Ãndice. Este erro pode ocorrer se a uma pilha foi corrompido ou não existe espaço suficiente na pilha. Isto pode ser devido a um corrompido ou inválido EXE.. Ação: Tente aumentar a profundidade da pilha ou procedimento. Verifique se há conflitos de memória que pode causar a corrupção do buffer de Ãndice. Tente desativar o EMS com a E / /: 0 em CLIPPER SET. Se utilizando de terceiros RDDs, tente aumentar o espaço de pilha. Se o uso de Ãndices estruturais (. CDX. MDX), apague o arquivo de Ãndice e recriar. Resolver todos os avisos vinculador e erros. Recompilar todo OBJs. E religue. Verifique todos os terceiros compatibilidade da versão RDD. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 6, 2013 Report Share Posted March 6, 2013 http://forums.fivetechsupport.com/viewtopic.php?f=7&t=18225&p=95627&hilit=write+in+index+page+failed#p95627 Quote Link to comment Share on other sites More sharing options...
josehilton Posted March 6, 2013 Author Report Share Posted March 6, 2013 Bom dia Kapiaba. Kapiaba no momento do erro eu não estouacessando nenhum arquivo e a única gravação q faço e em um arquivo texto usandofwrite.. Grato Hilton Fwh 11.12 xhb 1.2.0 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 6, 2013 Report Share Posted March 6, 2013 Use o DISKSPACE() para ver o espaço no HD. Verifique se tem permissão para gravação. http://www.itlnet.net/programming/program/reference/c53g01c/ng4c93a.html http://www.itlnet.net/programming/program/reference/c53g02c/menu.html http://forums.fivetechsupport.com/viewtopic.php?f=6&t=23502&p=126378&hilit=FWRITe#p126378 Quote Link to comment Share on other sites More sharing options...
vagner Posted March 6, 2013 Report Share Posted March 6, 2013 Olá,Vc está mandando gravar diretamente na "Raiz" "C:", coloque em alguma outra pasta pois dependendo do Windows, vc não consegue gravar no Raiz Quote Link to comment Share on other sites More sharing options...
josehilton Posted March 6, 2013 Author Report Share Posted March 6, 2013 bom ja fiz de tudo e nao obtive exito Quote Link to comment Share on other sites More sharing options...
AnaCatacombs Posted March 6, 2013 Report Share Posted March 6, 2013 José, em qual momento dá o erro? no primeiro fwrite? Ele chega a criar o arquivo? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.