A função CN300Aprov retorna um valor numérico, um(1) para quando a aprovação ocorreu com sucesso e zero(0) para quando ocorrer alguma falha. Além disso, é pré-requisito que o sistema esteja posicionado no registro da revisão que se deseja aprovar.

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
 
User Function CN300AUTO()
    Local cContra   := 'TECOP12000016LU'
    Local cRevisa   := '001'
    Local nRet      :=  0
        
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GCT" TABLES "CN9T10"
        
        ConOut("Inicio") 
        
        CN9->(DBSetOrder(1))
        If CN9->( DbSeek( xFilial("CN9") + cContra + cRevisa ))//=== Preparação do contrato para revisão
            nRet := CN300Aprov(.T.)//- Função retorna 0 em caso de falha e 1 em caso de sucesso.
            lRet := (nRet == 1)   
        EndIf
        
        ConOut(IIF(lRet,"Revisao aprovada.", "Aprovacao falhou."))
        ConOut("FIM") 
    RESET ENVIRONMENT
Return lRet

<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;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>