Páginas filhas
  • FwDateUpd - Atualiza a database do sistema na virada do dia

Descrição

Essa é uma função de framework, que deve ser utilizada dentro de outras rotinas quando se deseja que a database seja atualizada automaticamente na virada do dia.
Ela deve ser chamada dentro do loop principal da rotina, pois assim que sua chamada for realizada, a data já é atualizada. 

Observações

Por padrão, essa rotina considera o acesso de usuário de número 36, que indica se ele pode ou não alterar a database do sistema.
Isso significa que caso ele possa alterar, não há problema da data se manter no dia anterior, e assim a função FwDateUpd

NÃO (aviso) irá atualizar a data.


Quando o parâmetro lAccess36 estiver como .F., a função atualizará a data independente de permissão de usuário.



Nota:

A função possui uma tolerância de 30 minutos, ou seja, a data não será alterada após a 00h30.

Obs. Caso o segundo parâmetro da função esteja ativo a tolerância será desconsiderada.

Exemplos

User Function tstdate

Local lContinue := .T.

While lContinue

//A cada volta eu verifico se o dia mudou
FwDateUpd(.F., .T.)

lContinue := MsgYesNo("Continuar no Loop?","Aviso em " + DToC(If(Type("dDatabase") == "D", dDatabase, Date())))

EndDo

Return

Parâmetros

lAccess36 - Considera o Acesso 36(Alterar Database do Sist.)?

lTime - Desconsidera a tolerância de 30 minutos para atualizar a database do sistema

Retorno

Nil

Programa Fonte

FWPreExecute.PRW
  • Sem rótulos