Linha Microsiga Protheus

Árvore de páginas

Novo Modelo de Ponto de entrada.

Existe um novo modelo de desenvolvimento de ponto de entrada, por favor realizar a alteração, conforme o exemplo a seguir: Clique aqui.

Inclui dados na tabela TTF - Check List

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

MNTA735

Retorno Check List

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

TTF - Check List

TTG - Detalhes do Check List

Sistema(s) Operacional(is):

Windows e Linux

Ponto de Entrada

Descrição:

Ponto de entrada executado ao confirmar um Retorno de Check List, podendo assim incluir ou alterar dados da tabela TTF

Localização:

Atualizações > Controle de Oficina > Check List > Retorno Check List.

Eventos:

Retorno Check List (MNTA735.prw)

Programa Fonte:

MNTA735.prw

Função:

MNTA7351()

 

Exemplo Ponto de Entrada
#Include 'Protheus.ch'

User Function MNTA7351()

	Local oModel1 := PARAMIXB[1] //O Modelo de dados da rotina MNTA735
	Local aAreaTTF := TTF->(GetArea()) //Salva área posicionada.

	dbSelectArea("TTF")
	dbSetOrder(1) //TTF_FILIAL+TTF_CHECK+TTF_CODFAM+TTF_TIPMOD+TTF_SEQFAM
	If dbSeek(xFilial("TTF")+oModel1:GetValue('TTFMASTER','TTF_CHECK')) //Posiciona no registro adicionado.
   		RecLock("TTF",.F.)
    	TTF->TTF_POSCON := 100  // Realiza alteração de contador. 
    	MsUnLock("TTF")
	EndIf

	RestArea(aAreaTTF) //Retorna área posicionada.

Return