PC Toledo

Código: Selecionar todos

C:\dev\hb32-code>ping servidor -4

Disparando servidor [192.168.1.154] com 32 bytes de dados:
Resposta de 192.168.1.154: bytes=32 tempo=2ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo=3ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo=2ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo=2ms TTL=128

Estatísticas do Ping para 192.168.1.154:
    Pacotes: Enviados = 4, Recebidos = 4, Perdidos = 0 (0% de
             perda),
Aproximar um número redondo de vezes em milissegundos:
    Mínimo = 2ms, Máximo = 3ms, Média = 2ms

Código: Selecionar todos

C:\dev\hb32-code>ping servidor -4

Disparando servidor [192.168.1.154] com 32 bytes de dados:
Resposta de 192.168.1.154: bytes=32 tempo<1ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo<1ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo<1ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo<1ms TTL=128

Estatísticas do Ping para 192.168.1.154:
    Pacotes: Enviados = 4, Recebidos = 4, Perdidos = 0 (0% de
             perda),
Aproximar um número redondo de vezes em milissegundos:
    Mínimo = 0ms, Máximo = 0ms, Média = 0ms

Código: Selecionar todos

REQUEST DBFCDX
REQUEST LETO

*---------------*
 FUNCTION MAIN()  
*---------------*
RddSetDefault("LETO")

cIP:= BUSCA_IP_ARQINI()
//cIP:="localhost"
cPort:="2812"

public cPathLeto :=  "//"+cIP+":"+cPort+"/"  
 
nTimeOut := -1
nHotBuf := 10

if cIP # "localhost" .and. cIP # "127.0.0.1" // para acesso remoto

   tela_conex := MSGBOX({".... Conectando al servidor ....", "", ;
                           "-- "+ cPathLeto +" --"} )
endif   
	   
IF leto_Connect( cPathLeto, /*user*/, /*pass*/, nTimeOut /*timeout*/, nHotBuf /*hot buffer*/ ) == -1
   rstenv(tela_conex)
	MSGBOX3D1({"Servidor no encontrado, verifique su conexi¢n!", "", ;
             "-- "+ leto_Connect_Err( .T. ) +" --"}, "Camino : " + cPathLeto )
   QUIT
ENDIF

Código: Selecionar todos

do while aTenta2 > 0

      if aExclusivo = .t.
         dbUseArea( .t.,'LETO',(aDBF), aAlias, if(.f. .or. .t., !.t., NIL), .f. )
      else                      
         dbUseArea( .t.,'LETO',(aDBF), aAlias, if(.t. .or. .f., !.f., NIL), .f. )
      endif

      if neterr() = .f.
         restscreen(0,0,24,79,aTela)
         return(.t.)
      endif

Código: Selecionar todos

WIN(12,22,15,55,"Espere!", WT_AZUL1BRANCO, WD_AZUL1BRANCO)
@14,23 say ".. Abriendo bases de datos .." color "N/W*"
set color to "R+/W*"
inkey(0.5)
	
   use psw      shared alias psw new via "LETO"                            // senhas do usuario
   use ace      shared alias ace new via "LETO"                         // acesso do usuario
   use psn      shared alias psn new via "LETO"                         // grupo de acesso senhas
   use par      shared alias par new via "LETO"                         // parametros do sistema
   use loj      shared alias loj new via "LETO"                         // lojas
   use cam      shared alias cam new via "LETO"                         // cambio

Código: Selecionar todos

***********************************
// cria indices

if !leto_file("psw" + indexext()) //.and. curdir() # "controle_"
   @10,44 say "psw.cdx      "
   inkey(0.1)
  
   if abre_index("psw.dbf",.t.,"psw","psw.cdx") = .f.
      close databases
      return
   endif

   index on usuario tag pswcx_01
   index on senha   tag pswcx_02 

   dbcloseall()

endif