PC Toledo

Código: Selecionar todos

      TimeOut = -1             -    Connection timeout in seconds, -1 means infinite wait.
                                    This timeout determine, how long a write to network/ wait for requested workarea
                                    will wait to succeed, before the thread for the connection give up.
                                    If used: Zombie_Check, this value shell be shorter than that.
      Zombie_Check = 0         -    Time in seconds, that a client must be quiet ( no activity ), before
                                    a 'are you healthy' query (ping) is send from server, to verify it's not a
                                    dead/ unplugged connection. ! Application must be linked multi-thread ( '-mt' ) !,
                                    else these checks cannot be done.
                                    As 3 times for a given interval a check is done, a zombie can be 1/3 time
                                    longer 'dead', e.g. 60 ==> max. 80 seconds 'dead' before detected.
                                    Such connection will be shut down, opened files and locks are reset-ed.
                                    If set to 0 [ default ], these checks are diabled.

Código: Selecionar todos

C:\dev\letodbf\bin>net stop letodbf_service

O serviço de LetoDBf_Service letodb.ini foi finalizado com êxito.

C:\dev\letodbf\bin>net start letodbf_service
O serviço de LetoDBf_Service letodb.ini está sendo iniciado.
O serviço de LetoDBf_Service letodb.ini foi iniciado com êxito.

Código: Selecionar todos

Function Main()

...
...

      cc := 1

      Do While .t.

         If ze_RecAppend( .t. )

            ze_RecReplace( ArrayCamposNomes, Alias() )

            ze_RecUnlock()

         Else

            msg := '[EMP] Não consegui gravar este registro, ocorreu um problema na Rede ou na abertura da tabela:' + Alias()
            msg += CRLF + 'Quantidade de tentativas: ' + Str(cc, 4)
            msg += CRLF + 'Deseja tentar novamente?'

            If MsgYesNo( msg )
               Loop
            Endif

         Endif

         Exit

         cc++
         
      EndDo

...
...
Return NIL

Código: Selecionar todos

/*
ZE_REDE - ROTINAS PARA USO EM REDE
1995.04 José Quintas
*/
#pragma -w0
#pragma -es0

#include "inkey.ch"
#include "GAS.ch"

FUNCTION ze_RecLock( lForever )

   LOCAL nCont := 1

   Default( @lForever, .T. )
   //wSave( MaxRow() - 1, 0, MaxRow(), MaxCol() )
   DO WHILE .T.
      IF rLock()
         EXIT
      ENDIF
      //Mensagem( "Aguardando liberação do registro em " + Alias() + "... Tentativa " + lTrim( Str( nCont ) ) + iif( lForever, "", ". ESC cancela" ) )
      IF Inkey( 0.5 ) == K_ESC .AND. ! lForever
         EXIT
      ENDIF
      nCont += 1
   ENDDO
   //WRestore()
   SKIP 0

   RETURN ( rLock() )


Procedure ze_RecReplace(aRep, cAlias )
   Local i, msg

   FOR i := 1 TO FCount()
      msg    := FieldName(i)
      aRep[i] := M->&msg.
      &cAlias->&msg. := aRep[i]
   NEXT

   &cAlias->Flag := DtoC(Date()) + '|' + Time() + '|' + AllTrim(UserNic)
   
   Return

FUNCTION ze_RecAppend( lForever )

   LOCAL nCont := 1, lOk := .F., telaSave

   Default( @lForever, .T. )

   telaSave := SaveScreen(0, 0, MaxRow(), MaxCol() )

   DO WHILE .T.

      APPEND BLANK

      IF ! NetErr()
         lOk := .T.
         ze_RecLock()

         EXIT

      ENDIF

      DBOX("Liberando do arquivo: " + Alias() +;
       "|... Tentativa " + LTrim( Str( nCont ) ) +;
       IIf( lForever, "", "|[ESC] cancela" ), Int(MaxRow()/2),,, NAO_APAGA, "AGUARDE!")

      IF Inkey( 0.5 ) == K_ESC .AND. ! lForever
         EXIT
      ENDIF

      nCont += 1

   ENDDO

   RestScreen( 0, 0, MaxRow(), MaxCol(), telaSave)

   SKIP 0

   RETURN lOk


FUNCTION ze_RecDelete( lForever )

   LOCAL lOk := .F.

   Default( @lForever, .T. )
   IF ze_RecLock( lForever )
      DELETE
      ze_RecUnlock()
      lOk := .T.
   ENDIF

   RETURN lOk

FUNCTION ze_RecUnlock()

   SKIP 0
   UNLOCK

   RETURN NIL