Home

Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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.

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



Nota
titleNota:

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

Exemplos

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

Parâmetros

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

Retorno

Nil

Programa Fonte

FWPreExecute.PRW