Exemplo do Ponto de Entrada MT410ACE.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | //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;