Histórico da Página

#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