PCPA200-PCPA200- PE MVC

Salve salve....

Ponto de entrada PCPA200- ( Programa de manutenção de estruturas (SG1) )

PCPA200-PCPA200- PE MVC  

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} PCPA200
PE MVC PCPA200

@type       function
@author      Eurai Rapelli
@since       2023.01.01


/*/
User Function PCPA200()
Local aParam    := PARAMIXB as array
Local xRet      := .T. AS Variant

Private oUDObj       := 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

        oUDObj       := aParam[1]
        cIdPonto     := aParam[2]
        cIdModel     := IIf( oUDObj <> NIL, oUDObj:GetId(), aParam[3] )
        cClasse      := IIf( oUDObj <> NIL, oUDObj:ClassName(), '' )



        If cIdPonto == 'MODELVLDACTIVE'




        ElseIf cIdPonto == 'MODELPOS'



        ElseIf cIdPonto == 'MODELCOMMITTTS'

       

        ElseIf cIdPonto == 'BUTTONBAR'
            xRet := {}
        Endif


    Endif



End Sequence


Return( xRet )


/*/{Protheus.doc} fModelPos
Validacao do Modelo

@type       function
@author     Eurai Rapelli
@since       2023.01.01

/*/
Static Function fModelPos(oUDObj)
Local lRet     := .T. as logical


Begin Sequence




End Sequence



Return( lRet )


/*/{Protheus.doc} fMODELCOMMITTTS
fMODELCOMMITTTS

@type          function
@author        Eurai Rapelli
@since          2023.01.01

/*/
Static Function fMODELCOMMITTTS(oUDObj)


Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima