Descrição
FwDateUpd
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
|
Sintaxe
| FwDateUpd( <lVerAccess> ) |
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
lVerAccess |
Boolean |
Analisa permissão de acesso – 36 (Alterar Database do Sist.) |
|
X |
|
Retorno
Exemplo
#INCLUDE "TOTVS.CH"
User Function FwDateUpd()
Local lContinue := .T.
Do While lContinue
FwDateUpd(.F.)
lContinue := MsgYesNo( "Continuar no Loop?","Aviso em " + Dtoc(If(Type("dDatabase") == "D", dDatabase, Date() ) ) )
EndDo
Return( Nil )
Resultado
Informações adicionais
|
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
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
