Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada para Inclusão, Alteração e Exclusão de registros. 

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas. 

Rotina:

Rotina

Nome Técnico

MNTA765

Multas

Cadastros Iniciais:

MNTA084 - Veículos

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

ST9 - Bens 

Sistema(s) Operacional(is):

Windows e Linux

Ponto de Entrada:MNTA7651 - Inclusão, Alteração e Exclusão de registros. 

Descrição

Realizado conversão das rotina MNTA765 - Multas para o modelo padrão de desenvolvimento MVC, por este motivo a chamada e utilização do ponto de entrada MNTA7651 deve ser alterada para o novo modelo. 


Procedimento para Utilização

  1.  Entrar no modulo de Manutenção de Ativos e Gestão de Frotas(SIGAMNT).
  2. Em Atualizações > Gestão de Riscos > Multas > Multas.


Ponto de Entrada

Descrição:

Ponto de entrada MNTA7651 no padrão MVC. 

Localização:

Em Atualizações > Gestão de Riscos > Multas > Multas.

Eventos:

Multas (MNTA765)

Programa Fonte:

MNTA765.prx

Função:

MNTA765()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 xRet

Indefinido

Determina o retorno o parâmetro

Sim. 

 

Exemplo Ponto de Entrada Padrão MVC 
#Include 'Protheus.ch'
 
User Function MNTA7651()
 
    Local xRet := .T.
	Local oModel765 
 
	If Type("PARAMIXB") == "A"  
 
		oModel765 := PARAMIXB[1] // Busca o modelo de dados, que conterá os dados do arquivo em tela. 

		dbSelectArea("TSO")
		dbSetOrder(1)
		If dbSeek(xFilial("TRX")+oModel765:GetValue('MULTAS','TRX_MULTA')) // Posiciona na multa. 
 			RecLock("TSO",.f.)
			dbDelete() // Faz a exclusão do arquivo. 
			TSO->(MsUnLock())
 		EndIf

	EndIf
 
 
Return xRet