Salve salve....
Ponto de entrada CRMA980 - ( Faturamento / Cadastro de Cliente )
Arquivo: xCRMA980.tlpp
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} CRMA980
Manipulação de Cliente. MATA030. Ponto de Entrada MVC
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function CRMA980()
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'
If !(xRet := fModelPos())
Break
Endif
ElseIf cIdPonto == 'MODELCOMMITTTS'
// fMODELCOMMITTTS()
Endif
Endif
End Sequence
Return( xRet )
/*/{Protheus.doc} fModelPos
Validacao do Modelo
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
Static Function fModelPos()
Local lRet := .T. as logical
Begin Sequence
//Validação
End Sequence
Return( lRet )
/*/{Protheus.doc} fMODELCOMMITTTS
fMODELCOMMITTTS
@type function
@author Eurai Rapelli
@since 2023.05.11
/*/
Static Function fMODELCOMMITTTS()
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima