01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Ao utilizar a aprovação via função A097ProcLib, o status do pedido não está sendo totalmente atualizado.

03. SOLUÇÃO

Realizado o posicionamento correto na SC7, para que o pedido seja localizado, e com isso o status seja atualizado corretamente.

04. DEMAIS INFORMAÇÕES

• Para um cenário onde há um pedido de compra com dois itens, por exemplo, e nesse pedido, cada item possui um centro de custo diferente, pode-se utilizar o A097ProcLib dessa forma.

#include'totvs.ch'
#include'tbiconn.ch'
User Function zA097ProcLib()

/*
nReg – Recno da tabela SCR (sugestão SCR->(Recno())
nOpc – 2 para aprovação, diferente de 2 bloqueia
nTotal – Default: SCR->CR_TOTAL (não é obrigatório passar)
cCodLiber – Default: SCR->CR_APROV (não é obrigatório passar)
cGrupo – Default: SCR->CR_GRUPO (não é obrigatório passar)
cObs – Default: SCR->CR_OBS (não é obrigatório passar)
dRefer – Data de liberação (sugestão: dDataBase)
oModelCT – Modelo do contrato (para aprovação do SIGAGCT)
A097ProcLib(nReg,nOpc,nTotal,cCodLiber,cGrupo,cObs,dRefer,oModelCT)
*/

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "COM" TABLES "SC7"

DBSelectArea("SCR")
SCR->(DBSetOrder(1))
IF !SCR->(DBSeek(xFilial("SCR")+"IP"+"PMSARW"))
CONOUT("Não foi localizado o registro!!")
RETURN
ENDIF
While SCR->(!EOF()) .And. SCR->CR_NUM = 'PMSARW'
cNumDoc := SCR->CR_NUM
IF A097ProcLib(SCR->(Recno()),2,,,,,dDataBase)
CONOUT("Liberou o Documento "+ cNumDoc)
else
ConOut( "Não foi possível liberar o Documento")
ENDIF
SCR->(DBSKIP())
ENDDO

RESET ENVIRONMENT

RETURN

05. ASSUNTOS RELACIONADOS

• MV_IPAPREC - Libera Itens de Pedido por Grupo de Aprovação

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