ERRO IRRECUPER VEL 1011

[josehilton]

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)

 

 

[kapiaba]

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.

[kapiaba]

http://forums.fivetechsupport.com/viewtopic.php?f=7&t=18225&p=95627&hilit=write+in+index+page+failed#p95627

[josehilton]

Bom dia Kapiaba.

Kapiaba no momento do erro eu não estou
acessando nenhum arquivo e a única gravação q faço e em um arquivo texto usando
fwrite..

 

Grato Hilton   Fwh 11.12 
xhb 1.2.0 

[kapiaba]

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

[vagner]

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

[josehilton]

bom ja fiz de tudo e nao obtive exito 

[AnaCatacombs]

José, em qual momento dá o erro? no primeiro fwrite? Ele chega a criar o arquivo?