Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para rotina de cadastro de multas

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA765

Multas

Rotinas RelacionadasNome Técnico
MNTA766Notificações

Tickets relacionados

6668447

Issue:

DNG-7936

Países:

Todos.

Bancos de Dados:

Todos.

Sistemas Operacionais:

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada no padrão MVC para customização da rotina de cadastro de multas.

Localização:

SIGAMNT: Em Atualizações > Controle de Riscos > Multas > Multas.

Programa Fonte:

MNTA765.prx

Parâmetros:
NomeTipoDescriçãoObrigatório
ParamIXB[1]ObjetoModelo de dadosSim
ParamIXB[2]CaracterIdentificador do ponto de chamadaSim
ParamIXB[3]CaracterIdentificador do modelo de dadosSim

Retorno:

Tipo

Descrição

Obrigatório

Lógico

Determina a continuidade do processo.

Sim

Links:Pontos de entrada padrão MVC

 

Exemplo: P.E. padrão MVC MNTA765
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'FWMVCDEF.CH'

User Function MNTA765()

	Local oMod   := PARAMIXB[1]
	Local cId    := PARAMIXB[2]
	Local cIdMod := PARAMIXB[3]
	Local lRet   := .T.
 
	If cId == 'MODELPRE'

		If oMod:GetModel( 'MULTAS' ):HasField( 'TRX_PREFIX' )

			oMod:LoadValue( 'MULTAS', 'TRX_PREFIX', &( Trim( Posicione( 'SX3', 2, 'TRX_PREFIX', 'X3_RELACAO' ) ) ) )

		EndIf

		If oMod:GetModel( 'MULTAS' ):HasField( 'TRX_TIPO' )

			oMod:LoadValue( 'MULTAS', 'TRX_TIPO', &( Trim( Posicione( 'SX3', 2, 'TRX_TIPO', 'X3_RELACAO' ) ) ) )

		EndIf

    ElseIf cId == 'MODELPOS'

        If oMod:GetModel( 'MULTAS' ):HasField( 'TRX_RODOVI' ) .And.;
            Empty( oMod:GetValue( 'MULTAS', 'TRX_RODOVI' ) )

            Help( , , 'MODELPOS', , 'Código da Rodovia está vazio.', 2, 1 )
            
            lRet := .F.

        EndIf

	EndIf

Return lRet