Salve salve....
Ponto de entrada MNTA084- ( Cadastro de Veículos )
MNTA084-MNTA084 - PE MVC
#INCLUDE "TOTVS.CH" /*/{Protheus.doc} MNTA084 PE MVC @type function @author Eurai Rapelli @since 2023.01.01 /*/ User Function MNTA084() Local aParam := PARAMIXB as array Local xRet := .T. AS Variant Private oUAObj := Nil as object Private cIdPonto := '' as character Private cIdModel := '' as character Private cClasse := '' as character Private cCRLF := CRLF as character Begin Sequence If aParam <> NIL oUAObj := aParam[1] cIdPonto := aParam[2] cIdModel := IIf( oUAObj <> NIL, oUAObj:GetId(), aParam[3] ) cClasse := IIf( oUAObj <> NIL, oUAObj:ClassName(), '' ) If cIdPonto == 'MODELVLDACTIVE' ElseIf cIdPonto == 'MODELPOS' ElseIf cIdPonto == 'MODELCOMMITTTS' ElseIf cIdPonto == 'BUTTONBAR' xRet := {} aAdd( xRet, {'XXX', 'CLIPS', { || U_XX() }, 'XXX' } ) Endif Endif End Sequence Return( xRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima