PC Toledo

Código: Selecionar todos

*****************************************************************************
Function FechaArq(cAlias)
Private cAli := Alias()
if cAlias # NIL
   if Select(cAlias) # 0
      Sele &cAlias.
      &cAlias.->(Dbclosearea())
      if upper(cAlias) # upper(cAli)
         Sele &cAli.
      else
         Sele 1
      endif   
   endif
else
   dbcloseall()
endif
return .t.
*******************************************************************************
Function UpdateRede()
   dbcommitall()
   dbunlockall() &&& Refresh em todos os arquivos abertos....
return .t.
******************************************************************************
Function UpdateArq(cAlias,bTipo)
Private cAli := Alias()       &&& Refresh arquivo local
if bTipo == nil; bTipo := .t.; endif
if cAlias # NIL
   if Select(cAlias) # 0
      Sele &cAlias.
      if bTipo == .t.; &cAlias.->(dbcommit()); endif   
      &cAlias.->(dbunlock())
      Sele &cAli.
   endif
endif
return .t.
******************************************************************************
Function Appe(ALIASS)
Private cAli := Alias()
if ALIASS # NIL .and. Select(ALIASS) # 0
   limpatecla()
   do while .t.
      Sele &ALIASS.
*      UpdateArq(ALIASS,.f.)
      &ALIASS.->(dbappend()) 
      if neterr()  
         inkey(.1)   
         @ 23,00 say padc("TENTANDO INCLUIR UM NOVO REGISTRO "+processando()+" Arquivo "+ALIASS,80)
         loop 
      else 
         DO WHILE Travar5(ALIASS); inkey(.2); ENDDO
         exit 
      endif 
   enddo 
else
   if Select("ALIAS") == 0
      Confirma2("ERRO EM MAQUINA NAO CONSEGUIU ABRIR ARQUIVO")
      Seguranca()
   endif   
   return .f.
endif   
return .t.

**********************************
Function Selecione(cAlias)
if cAlias # NIL .and. Select(cAlias) # 0
   Sele &cAlias.
endif  
Return .t.