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 |
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
| Retorno | Tipo | Descrição |
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! 😎