Salve salve....
Ponto de entrada PCPA200- ( Programa de manutenção de estruturas (SG1) )
PCPA200-PCPA200- PE MVC
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} PCP200MNU
PE MVC
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
#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