PC Toledo

Código: Selecionar todos

 
//Para criptografar:

#include 'sixnsx.ch'
rddsetdefault('sixnsx')
new_abre('duplicat','f:\ols\teste\',.t.,'gif')
sx_setpass('ajf')
sx_dbfencrypt()
close data

//Para abrir e indexar

ferase('duplicat.nsx')
if new_abre('duplicat','f:\ols\teste\',.t.,'gif')=1
   close data
   return nil
endif
sellog = select()
if !file('log.dbf')
   novoarq('log',{{'data','d',8,0},{'hora','c',8,0},{'arquivo','c',35,0},;
          {'chave','c',20,0},{'usuario','c',35,0},{'programa','n',10,0}})
endif
use log new shared
select(sellog)
aux = indexkey()
set filter to deleted()
go top
do while !eof()
   aux2 = &aux
   select log
   adireg(0)
   replace data with date(),hora with time(),arquivo with logarquivo,;
      chave with aux2,programa with prog,usuario with gifusuario
   select(sellog)
   skip
enddo
select log
use
select(sellog)
pack
aux1 := {'loja+numero','loja+cliente+dtos(vencimento)',;
            'loja+dtos(vencimento)+numero','loja+vendedor+dtos(vencimento)',;
            'loja+banco+dtos(emissao)+numero','loja+banco+dtos(pagamento)+nume
            'loja+banco+dtos(vencimento)','loja+vendedor+dtos(pagamento)',;
            'loja+dtos(pagamento)','loja+pedido',;
            'loja+dtos(emissao)','loja+nosso'}
for x = 1 to len(aux1)
     aux2 = chr(64+x)
     aux3 = aux1[x]
     index on &aux3 tag &aux2 eval prog(x,aux1) every lastrec()/100
next

function new_abre(arq,rota,uso,sys)
*-------
 local abarq:=rota+arq+"."+sys,abind:=rota+arq,inicio:=time()
 if !file(abarq)
    @12,12 say  'Arquivo '+trim(abarq)+' nao encontrado!'
    return 1
 endif
 if uso
    use &abarq new exclusive
  else
    use &abarq new shared
 endif
 if neterr()
    telnet = sombra(10,11,14,68)
    do while neterr()
       @ 12,12 say 'Arquivo '+trim(arq)+' em uso! Aguardando liberacao..
       if uso
          use &abarq new exclusive
         else
          use &abarq new shared
       endif
    enddo
    rests(telnet)
 endif
 if !uso .and. !file(abind+'.nsx') .and. lastrec() > 1
    @12,12 say 'Indice '+trim(abind)+'.nsx nao encontrado!'
    return 1
   elseif file(abind+'.nsx')
    set index to &abind
 endif
 if sx_tabletype() = 2
    sx_setpass('ajf')
 endif
Return 0

function prog(info1,info2)
*-----
 local nporc := int(recno()/lastrec()*100)
 @13,11 say 'Indexando '+lower(dbf())+' - '+strzero(info1,if(info1>9,2,1),0)+;
            ' de '+strzero(len(info2),if(len(info2)>9,2,1),0)+' indice(s) - '+;
            transf(nporc,'999')+'% concluido'
return .t.