MATA020-CUSTOMERVENDOR- PE MVC Cadastro de Fornecedor

Salve salve....

Ponto de entrada CUSTOMERVENDOR- ( Cadastro de Fornecedor )

MATA020-CUSTOMERVENDOR- PE MVC Cadastro de Fornecedor

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} CUSTOMERVENDOR
PE MVC Cadastro de Fornecedor


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