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
Perguntas
»
advpl
»
bom dia, preciso alterar um pedido de compras ja liberado, mas não quero que ele volte para aprovação ( liberar ) nomente.
bom dia, preciso alterar um pedido de compras ja liberado, mas não quero que ele volte para aprovação ( liberar ) nomente.
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
0 resposta
-
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 -