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. NÃO irá atualizar a data.
|
Exemplos | User Function tstdate Local lContinue := .T. While lContinue //A cada volta eu verifico se o dia mudou 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.)? |
Retorno | Nil |
Programa Fonte | FWPreExecute.PRW |