Bom dia, preciso alterar um pedido de compras ja liberado, mas não quero que ele volte para aprovação ( liberar ) nomente

Produtos da Linha Protheus Sigacom - Compras - Backoffice
,
1

bom dia, preciso alterar um pedido de compras ja liberado, mas não quero que ele volte para liberar nomente. tem como impedir dele voltar para a ser liberado ( aprovado ) novamente. GRATO

2

Olá Eduardo, tive que fazer isso quando a OC era alterada para valor inferior e precisava manter a liberação, basicamente verificava a SCR com o PE MT097GRV, segue exemplo.


/*/{Protheus.doc} User Function MT097GRV
    (Permite ou não a gravação de nova alçada de compras)
    @type  Function
    @author LEandro Lemos
    @since 14/05/2024
    @version P12
    @param param_name, param_type, param_descr
    @return return_var, return_type, return_description
    @example
    (examples)
    @see (links_or_references)
    /*/
User Function MT097GRV()
    Local lGravaAlcada := .T. as logical
    Local cPedCom := PARAMIXB[4] as character

    DbSelectArea("SCR")
    SCR->(dbSetOrder(3))

    if SCR->(DbSeek(xFilial("SCR") + 'PC' + cPedCom))
        While SCR->(!EOF() .and. CR_NUM == cPedCom)
            // CR_STATUS  01=Aguardando nivel anterior;02=Pendente;03=Liberado;04=Bloqueado;05=Liberado outro usuario;06=Rejeitado
            IF SCR->CR_STATUS $ "03,05" .and. SCR->CR_TOTAL >= n120TOTLIB
                lGravaAlcada     := .F.
            EndIF
            SCR->(DBSkip())
        EndDo
    endif

return lGravaAlcada