Histórico da Página

#INCLUDE "Protheus.ch"

User Function APR182()

    Local aParam as Array
    Local lContinua as Logical
    
    /*  O array aParam refere-se as 3 perguntas da rotina:
        MV_PAR01: Data de Apropriação
        MV_PAR02: Recalcula 
        MV_PAR03: Mostra Lançamento Contábil
    */
    aParam := {}
    lContinua := .T.

    If !IsBlind() // se for executado com interface apresenta o pergunte
        If Pergunte("AFI182A",.T.)
            aAdd(aParam, {"MV_PAR01", MV_PAR01})
            aAdd(aParam, {"MV_PAR02", MV_PAR02})
            aAdd(aParam, {"MV_PAR03", MV_PAR03})
        Else
            lContinua := .F.
        EndIf
    Else
        aAdd(aParam, {"MV_PAR01", dDataBase })
        aAdd(aParam, {"MV_PAR02", 2})
        aAdd(aParam, {"MV_PAR03", 2})
    EndIf

    If lContinua
        MsExecAuto({|a, b| FINA182(a, b)}, .T., aParam)
    EndIf

Return(Nil)

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>