Exemplo do Ponto de Entrada MT410ACE.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include 'RwMake.ch'
#Include 'Protheus.ch'
/*------------------------------------------------------------------------------------------------------*
| P.E.: MT410ACE |
| Desc: Não permite usuário editar um pedido de venda caso ele tenha remessa |
| Links: http://tdn.totvs.com/pages/releaseview.actionçpageId=6784346 |
*------------------------------------------------------------------------------------------------------*/
User Function MT410ACE()
Local aArea := GetArea()
Local lContinua := .T.
Local nOpc := PARAMIXB[1]
Local lResiduo := IsInCallStack('MA410RESID')
//Se for inclusão, visualização ou resíduo, permite continuar
If (nOpc == 3) .Or. (nOpc == 2) .Or. (lResiduo)
lContinua := .T.
//Senão, mostra mensagem ao usuário
Else
MsgAlert("Pedido não pode ser manipulado!", "Atenção")
lContinua := .F.
Endif
RestArea(aArea)
Return lContinua
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;