10521046 DMANMAT02-31032 DT Aprovação WF de PC Utilizando A097ProcLib

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