FwDateUpd – Atualiza a database do sistema na virada do dia
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.
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.
Exemplo:
User Function tstdate()
Local lContinue := .T.
While lContinue
//A cada volta eu verifico se o dia mudou
FwDateUpd(.F.)
lContinue := MsgYesNo("Continuar no Loop?","Aviso em " + DToC(If(Type("dDatabase") == "D", dDatabase, Date())))
EndDo
Return
Fonte: Tdn
2 Comments
Leave a Reply to admin
Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.
Bem legal a função, eu nunca tinha utilizado… Até me lembro de um usuário que NÃO tinha acesso a mudança de database e conseguiu fazer lançamento em dia anterior (O usuário deixou a tela aberta desde o dia anterior!)
Vlw pelo post 🙂
Meu problema foi parecido. A pesagem ocorre 24h por dia. Dai mantinham a tela aberta e os lancamentos eram feitos como sendo no dia anterior.
Abracao!!!