CTBA020-CTBA020 - PE MVC

Salve salve....

Ponto de entrada CTBA020 - ( Cadastramento de Contas Contabeis)

CTBA020-CTBA020 - PE MVC   

#INCLUDE "TOTVS.CH"


/*/{Protheus.doc} CTBA020
PE MVC

@type 		function
@author    	Eurai Rapelli
@since     	2023.01.01
/*/
User Function CTBA020()
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