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 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