#include 'Protheus.ch'

/*/{Protheus.doc} User Function A280SBJ
    PE A280SBK - Chamado na gravação da SBK - Saldos iniciais por endereço - após a gravação
    @type  Function
    @author Totvs
    @since 09/11/2021
    /*/
User Function A280SBK()
    Local aArea    := GetArea()
    Local aAreaSBK := SBK->(GetArea())
    Local aAreaSB1 := SB1->(GetArea())
    Local aAreas   := {aAreaSBK, aAreaSB1, aArea}

    SB1->(DbSetOrder(1))
    If SB1->(DbSeek(FWXFilial('SB1')+SBK->BK_COD))
        //Condições customizadas
        //...
        
        If RecLock('SBK', .F.)
            //Gravação de campo customizado da SBK
            SBK->(MsUnlock())
        EndIf
    EndIf

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