Árvore de páginas

Versões comparadas

Chave

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

...

Não se aplica.

04. RETORNO

NomeTipoObrigatórioDefaultObservação
lAcessoLógicoSimNilSe .T. permite a abertura da rotina, caso .F. bloqueia a abertura da rotina


05. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleMT550EAIMT261ACS
linenumberstrue
#include 'Protheus.ch'

/*/{Protheus.doc} User Function A280SBJMT261ACS
    PEValidação A280SBK - Chamado na gravação da SBK - Saldos iniciais por endereço - após a gravaçãopara abrir a rotina
    @type  Function
    @author Totvs
    @since 09/11/2021TOTVS
    /*/
User Function A280SBKMT261ACS()
    Local aArea  lRet  := GetArea().T.
    Local aAreaSBKdBloq := SBK->(GetArea())SuperGetMV('MV_DBLQMOV')
    Local aAreaSB1cMsg := SB1->(GetArea())
    Local aAreas   := {aAreaSBK, aAreaSB1, aArea}''

    SB1->(DbSetOrder(1))
    If SB1->(DbSeek(FWXFilial('SB1')+SBK->BK_COD))If dDataBase <= dBloq
        //Condições customizadas
        //...lRet := .F.
        
cMsg := "O sistema está em fechamento  If RecLock('SBK', .F.)
    de estoque, não é permitido utilizar "
        //Gravação de campo customizado da SBKcMsg += "a rotina de transferências."
        Help(,, "MT261ACS",, cMsg,  SBK->(MsUnlock())
    1, 0)
    EndIf

Return    EndIf

    AEval(aAreas, {|x| RestArea(x)})
Return




lRet
Informações
titleImportante

O ponto de entrada MT261ACS também é executado através de rotina automática, podendo ser chamado inclusive por outras partes do sistema.



Templatedocumentos