Salve salve....
Ponto de entrada MBRWBTN- ( Todas )
MATA235-MBRWBTN - Valida botões para exclusao / alteracao / inclusao / copiar / facilitador
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MBRWBTN
Valida botões para exclusao / alteracao / inclusao / copiar / facilitador
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MBRWBTN()
Local cAlias := PARAMIXB[ 1 ] //NOME DA TABELA || SEU
Local nRecno := PARAMIXB[ 2 ] //RECNO || 64
Local nOption := PARAMIXB[ 3 ] //OPTION || 3
Local cFunName := PARAMIXB[ 4 ] //NOME DA ROTINA || FA581ANULA
Local lRet := .T.
Local lIsBlind := IsBlind() .OR. Type('__LocalDriver') == 'U'
// nOption = 2 = Visualizar
// nOption = 3 = Incluir
// nOption = 4 = Alterar
// nOption = 5 = Excluir
// nOption = 6 = Consulta
// nOption = 7 = Copia
// nOption = 8 = facilitador
Begin Sequence
If lIsBlind
Break
Endif
If nModulo == 5
If dDataBase != Date()
Help(NIL, NIL, 'MBRWBTN', NIL, 'DataBase diferente do dia Atual. Conferir a Data', 1, 0, NIL, NIL, NIL, NIL, NIL, {'Linha{'+cValtoChar(ProcLine(0))+'}'})
lRet := .F.; Break
Endif
Endif
End Sequence
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima