Salve salve....
Ponto de entrada MT410ACE - ( Faturamento - Pedido de venda )
MATA410-MT410ACE - Valida permissao prosseguir pedido de venda
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT410ACE
Valida permissao prosseguir pedido de venda
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT410ACE()
Local lRet := .T.
If !Empty( SC5->C5_NOTA ) .AND. ALTERA
Help(NIL, NIL, 'MT410ACE', NIL, 'Pedido não pode ser alterado', 1, 0, NIL, NIL, NIL, NIL, NIL, {'Linha{'+cValtoChar(ProcLine(0))+'}'})
lRet := .F.
Endif
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima