Tiempo aproximado de lectura 00:03:00 min
Duda
Ejemplo de utilización del Punto de Entrada CRMA980 - FORMPOS
Entorno
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - Versión 12
Solución
El retorno del punto de entrada CRMA980 dependerá del ID que se esté ejecutando en ese momento; en este ejemplo utilizaremos el ID FORMPOS, que se invoca en las operaciones de inclusión y modificación.
Obs.: El nombre del archivo no puede ser CRMA980.PRW; utiliza, por ejemplo, MYCRMA980.PRW.
Ejemplo
#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 == 'FORMPOS'
cIDForm := oObj:GetID()
MsgAlert("Entrou no PE - FORMPOS", "PE CRMA980")
EndIf
EndIf
Return xRet
Conozca más:
PE CRMA980 - Pontos de Entrada do Cadastro de Clientes (MVC)
0 Comentarios