Tempo aproximado para leitura: 00:03:00 min
Dúvida
Exemplo de utilização do Ponto de Entrada CRMA980 - MODELPOS
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - A partir da release 12.
Solução
O retorno do Ponto de Entrada CRMA980 irá depender de qual ID estará sendo executado no momento, nesse exemplo iremos utilizar o ID MODELPOS que é chamado nas operações de inclusão, alteração e exclusão.
Obs.: O nome do arquivo não poderá ser CRMA980.PRW, utilize por exemplo MYCRMA980.PRW.
Exemplo
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
Static __LogTela := NIL
User Function CRMA980() ///cXXX1,cXXX2,cXXX3,cXXX4,cXXX5,cXXX6
Local aParam := PARAMIXB
Local xRet := .T.
Local lIsGrid := .F.
Local cIDPonto := ''
Local cIDModel := ''
Local cIDForm := ''
Local oObj := NIL
If __LogTela == NIL
__LogTela := ApMsgYesNo("A geracao do 'LOG de processamento' dos PE 'CRMA980' (MVC) sera exibido em TELA?" + CRLF + CRLF +;
'SIM = TELA' + CRLF +;
'NAO = CONSOLE do AppServer')
EndIf
If aParam <> NIL
oObj := aParam[1]
cIDPonto := aParam[2]
cIDModel := aParam[3]
lIsGrid := (Len(aParam) > 3)
nOperation := oObj:GetOperation()
If cIDPonto == 'MODELPOS'
cIDForm := oObj:GetID()
MsgAlert("Entrou no PE - MODELPOS", "PE CRMA980")
EndIf
EndIf
Return xRet
Saiba Mais
PE CRMA980 - Pontos de Entrada do Cadastro de Clientes (MVC)
0 Comentários